Parent Directory | Revision Log | Patch
revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC | revision 145 by guez, Tue Jun 16 15:23:29 2015 UTC | |
---|---|---|
# | Line 4 module yamada_m | Line 4 module yamada_m |
4 | ||
5 | contains | contains |
6 | ||
7 | SUBROUTINE yamada(ngrid, g, rconst, plev, temp, zlev, zlay, u, v, teta, q2, & | SUBROUTINE yamada(ngrid, g, zlev, zlay, u, v, teta, q2, km, kn) |
km, kn, ustar, l_mix) | ||
8 | ||
9 | ! From LMDZ4/libf/phylmd/yamada.F,v 1.1 2004/06/22 11:45:36 | ! From LMDZ4/libf/phylmd/yamada.F,v 1.1 2004/06/22 11:45:36 |
10 | ||
# | Line 33 contains | Line 32 contains |
32 | ||
33 | ! ....................................................................... | ! ....................................................................... |
34 | REAL, INTENT (IN) :: g | REAL, INTENT (IN) :: g |
REAL rconst | ||
REAL plev(klon, klev+1), temp(klon, klev) | ||
REAL ustar(klon), snstable | ||
35 | REAL zlev(klon, klev+1) | REAL zlev(klon, klev+1) |
36 | REAL zlay(klon, klev) | REAL zlay(klon, klev) |
37 | REAL u(klon, klev) | REAL u(klon, klev) |
# | Line 44 contains | Line 40 contains |
40 | REAL q2(klon, klev+1) | REAL q2(klon, klev+1) |
41 | REAL km(klon, klev+1) | REAL km(klon, klev+1) |
42 | REAL kn(klon, klev+1) | REAL kn(klon, klev+1) |
43 | INTEGER l_mix, ngrid | INTEGER ngrid |
44 | ||
45 | ||
46 | INTEGER nlay, nlev | INTEGER nlay, nlev |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |