50 |
REAL u1lay(klon), v1lay(klon) |
REAL u1lay(klon), v1lay(klon) |
51 |
REAL coef(klon, klev) |
REAL coef(klon, klev) |
52 |
REAL, intent(in):: t(klon, klev) ! temperature (K) |
REAL, intent(in):: t(klon, klev) ! temperature (K) |
53 |
real ftsol(klon, nbsrf), pctsrf(klon, nbsrf) |
real, intent(in):: ftsol(klon, nbsrf), pctsrf(klon, nbsrf) |
54 |
REAL tr(klon, klev), trs(klon) |
REAL tr(klon, klev), trs(klon) |
55 |
REAL, intent(in):: paprs(klon, klev+1) |
REAL, intent(in):: paprs(klon, klev+1) |
56 |
real, intent(in):: pplay(klon, klev) |
real, intent(in):: pplay(klon, klev) |