12 |
! ====================================================================== |
! ====================================================================== |
13 |
|
|
14 |
|
|
15 |
REAL, INTENT (IN) :: paprs(klon, klev+1) |
REAL, INTENT (IN):: paprs(klon, klev+1) |
16 |
REAL tsol(klon) |
REAL tsol(klon) |
17 |
REAL, INTENT (IN) :: t(klon, klev) |
REAL, INTENT (IN):: t(klon, klev) |
18 |
REAL q(klon, klev), u(klon, klev), v(klon, klev) |
REAL, INTENT (IN):: q(klon, klev), u(klon, klev), v(klon, klev) |
19 |
REAL utran_e(klon, klev), utran_q(klon, klev) |
REAL utran_e(klon, klev), utran_q(klon, klev) |
20 |
REAL vtran_e(klon, klev), vtran_q(klon, klev) |
REAL vtran_e(klon, klev), vtran_q(klon, klev) |
21 |
|
|