40 |
REAL v(klon, klev) |
REAL v(klon, klev) |
41 |
REAL teta(klon, klev) |
REAL teta(klon, klev) |
42 |
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 |
43 |
REAL q2(klon, klev+1), q2s(klon, klev+1) |
REAL q2(klon, klev+1) |
44 |
REAL q2diag(klon, klev+1) |
REAL q2diag(klon, klev+1) |
45 |
REAL km(klon, klev+1) |
REAL km(klon, klev+1) |
46 |
REAL kn(klon, klev+1) |
REAL kn(klon, klev+1) |
47 |
real sq(klon), sqz(klon), zz(klon, klev+1), zq, long0(klon) |
real sq(klon), sqz(klon), zq, long0(klon) |
48 |
|
|
49 |
integer l_mix, iii |
integer l_mix |
50 |
|
|
51 |
! nlay : nombre de couches |
! nlay : nombre de couches |
52 |
! nlev : nombre de niveaux |
! nlev : nombre de niveaux |