Index

Rundeck: P1SoM40

Created: Fri May 10 03:30:18 EDT 2024

ucheck

Module: SOCPBL

File: PBL.f

Summary: ucheck makes sure that the winds remain within reasonable bounds during the initialization process. (Sometimes the computed wind speed iterated out in left field someplace, *way* outside any reasonable range.) Tests and corrects both direction and magnitude of the wind rotation with altitude. Tests the total wind speed via comparison to similarity theory. Note that it works from the top down so that it can assume that at level (i), level (i+1) displays reasonable behavior.
Author : Ye Cheng/G. Hartke
Version: 1.0

---

Declaration:

subroutine ucheck(u, v, z, ustar, lmonin, z0m, hemi, psi0, psi1, n)

Variables:

n : integer, intent(in)

array dimension

psistb : real*8, parameter

Initial Value = 15.*radian

psiuns : real*8, parameter

Initial Value = 5.*radian

z : real*8, dimension(n), intent(in)

u : real*8, dimension(n), intent(inout)

v : real*8, dimension(n), intent(inout)

lmonin : real*8, intent(in)

z0m : real*8, intent(in)

hemi : real*8, intent(in)

psi0 : real*8, intent(in)

psi1 : real*8, intent(in)

ustar : real*8, intent(in)

psilim : real*8

psirot : real*8

angle : real*8

utotal : real*8

x : real*8

x0 : real*8

dpsim : real*8

psiu : real*8

zet : real*8

zet0 : real*8

utest : real*8

i : integer

loop and dummy variables

xm : real*8