10 |
! From LMDZ4/libf/phylmd/vdif_kcay.F, version 1.1 2004/06/22 11:45:36 |
! From LMDZ4/libf/phylmd/vdif_kcay.F, version 1.1 2004/06/22 11:45:36 |
11 |
|
|
12 |
USE dimphy, ONLY: klev, klon |
USE dimphy, ONLY: klev, klon |
13 |
|
use yamada_m, only: yamada |
14 |
|
|
15 |
! dt : pas de temps |
! dt : pas de temps |
16 |
! g : g |
! g : g |
41 |
REAL v(klon, klev) |
REAL v(klon, klev) |
42 |
REAL teta(klon, klev) |
REAL teta(klon, klev) |
43 |
REAL, intent(in):: cd (:) ! (ngrid) cdrag, valeur au debut du pas de temps |
REAL, intent(in):: cd (:) ! (ngrid) cdrag, valeur au debut du pas de temps |
44 |
REAL q2(klon, klev+1), q2s(klon, klev+1) |
REAL q2(klon, klev+1) |
45 |
REAL q2diag(klon, klev+1) |
REAL q2diag(klon, klev+1) |
46 |
REAL km(klon, klev+1) |
REAL km(klon, klev+1) |
47 |
REAL kn(klon, klev+1) |
REAL kn(klon, klev+1) |
48 |
real sq(klon), sqz(klon), zz(klon, klev+1), zq, long0(klon) |
real sq(klon), sqz(klon), zq, long0(klon) |
49 |
|
|
50 |
integer l_mix, iii |
integer l_mix |
51 |
|
|
52 |
! nlay : nombre de couches |
! nlay : nombre de couches |
53 |
! nlev : nombre de niveaux |
! nlev : nombre de niveaux |