27 |
|
|
28 |
INTEGER ngrid, nlay, w2di, tho |
INTEGER ngrid, nlay, w2di, tho |
29 |
real ptimestep, l_mix, r_aspect |
real ptimestep, l_mix, r_aspect |
30 |
REAL pt(ngrid, nlay), pdtadj(ngrid, nlay) |
REAL, intent(in):: pt(ngrid, nlay) |
31 |
|
real pdtadj(ngrid, nlay) |
32 |
REAL pu(ngrid, nlay), pduadj(ngrid, nlay) |
REAL pu(ngrid, nlay), pduadj(ngrid, nlay) |
33 |
REAL pv(ngrid, nlay), pdvadj(ngrid, nlay) |
REAL pv(ngrid, nlay), pdvadj(ngrid, nlay) |
34 |
REAL po(ngrid, nlay), pdoadj(ngrid, nlay) |
REAL po(ngrid, nlay), pdoadj(ngrid, nlay) |