4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE transp(paprs, tsol, t, q, u, v, geom, vtran_e, vtran_q, utran_e, & |
SUBROUTINE transp(paprs, t, q, u, v, geom, vtran_e, vtran_q, utran_e, utran_q) |
|
utran_q) |
|
8 |
|
|
9 |
! From LMDZ4/libf/phylmd/transp.F,v 1.1.1.1 2004/05/19 12:53:09 |
! From LMDZ4/libf/phylmd/transp.F,v 1.1.1.1 2004/05/19 12:53:09 |
10 |
|
|
19 |
|
|
20 |
|
|
21 |
REAL, INTENT (IN) :: paprs(klon, klev+1) |
REAL, INTENT (IN) :: paprs(klon, klev+1) |
|
REAL tsol(klon) |
|
22 |
REAL, INTENT (IN) :: t(klon, klev) |
REAL, INTENT (IN) :: t(klon, klev) |
23 |
REAL, INTENT (IN) :: q(klon, klev), u(klon, klev), v(klon, klev) |
REAL, INTENT (IN) :: q(klon, klev), u(klon, klev), v(klon, klev) |
24 |
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) |