Parent Directory | Revision Log | Patch
trunk/phylmd/transp.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC | trunk/phylmd/transp.f revision 91 by guez, Wed Mar 26 17:18:58 2014 UTC | |
---|---|---|
# | Line 19 SUBROUTINE transp(paprs, tsol, t, q, u, | Line 19 SUBROUTINE transp(paprs, tsol, t, q, u, |
19 | REAL, INTENT (IN) :: paprs(klon, klev+1) | REAL, INTENT (IN) :: paprs(klon, klev+1) |
20 | REAL tsol(klon) | REAL tsol(klon) |
21 | REAL, INTENT (IN) :: t(klon, klev) | REAL, INTENT (IN) :: t(klon, klev) |
22 | REAL q(klon, klev), u(klon, klev), v(klon, klev) | REAL, INTENT (IN) :: q(klon, klev), u(klon, klev), v(klon, klev) |
23 | REAL utran_e(klon), utran_q(klon), vtran_e(klon), vtran_q(klon) | REAL utran_e(klon), utran_q(klon), vtran_e(klon), vtran_q(klon) |
24 | ||
25 | INTEGER i, l | INTEGER i, l |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |