41 |
REAL ppic(nlon), pval(nlon) |
REAL ppic(nlon), pval(nlon) |
42 |
REAL pulow(nlon), pvlow(nlon), pustr(nlon), pvstr(nlon) |
REAL pulow(nlon), pvlow(nlon), pustr(nlon), pvstr(nlon) |
43 |
REAL, INTENT (IN):: t(nlon, nlev) |
REAL, INTENT (IN):: t(nlon, nlev) |
44 |
real u(nlon, nlev), v(nlon, nlev) |
real, INTENT (IN):: u(nlon, nlev), v(nlon, nlev) |
45 |
REAL d_t(nlon, nlev), d_u(nlon, nlev), d_v(nlon, nlev) |
REAL d_t(nlon, nlev), d_u(nlon, nlev), d_v(nlon, nlev) |
46 |
|
|
47 |
INTEGER i, k, kgwd, kdx(nlon), ktest(nlon) |
INTEGER i, k, kgwd, kdx(nlon), ktest(nlon) |