35 |
REAL, INTENT (IN) :: pvar(nlon) |
REAL, INTENT (IN) :: pvar(nlon) |
36 |
|
|
37 |
! Local: |
! Local: |
38 |
INTEGER ilevh, jl, jk |
INTEGER jl, jk |
39 |
REAL zsqr, zalfa, zriw, zdel, zb, zalpha, zdz2n |
REAL zsqr, zalfa, zriw, zdel, zb, zalpha, zdz2n |
40 |
REAL zdelp, zdelpt |
REAL zdelp, zdelpt |
41 |
REAL zdz2(klon, klev), znorm(klon), zoro(klon) |
REAL zdz2(klon, klev), znorm(klon), zoro(klon) |
47 |
|
|
48 |
! COMPUTATIONAL CONSTANTS. |
! COMPUTATIONAL CONSTANTS. |
49 |
|
|
|
ilevh = klev/3 |
|
|
|
|
50 |
DO jl = 1, klon |
DO jl = 1, klon |
51 |
IF (ktest(jl)==1) THEN |
IF (ktest(jl)==1) THEN |
52 |
zoro(jl) = psig(jl)*pdmod(jl)/4./max(pvar(jl), 1.0) |
zoro(jl) = psig(jl)*pdmod(jl)/4./max(pvar(jl), 1.0) |