4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE vdif_kcay(ngrid, dt, g, rconst, plev, temp, zlev, zlay, u, v, & |
SUBROUTINE vdif_kcay(ngrid, dt, g, plev, zlev, zlay, u, v, teta, cd, q2, & |
8 |
teta, cd, q2, q2diag, km, kn, ustar, l_mix) |
q2diag, km, kn, ustar, l_mix) |
9 |
|
|
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 |
|
|
33 |
|
|
34 |
REAL, intent(in):: dt |
REAL, intent(in):: dt |
35 |
real, intent(in):: g |
real, intent(in):: g |
36 |
real rconst |
real plev(klon, klev+1) |
|
real plev(klon, klev+1), temp(klon, klev) |
|
37 |
real ustar(klon), snstable |
real ustar(klon), snstable |
38 |
REAL zlev(klon, klev+1) |
REAL zlev(klon, klev+1) |
39 |
REAL zlay(klon, klev) |
REAL zlay(klon, klev) |
197 |
|
|
198 |
! Initialisation de q2 |
! Initialisation de q2 |
199 |
|
|
200 |
call yamada(ngrid, g, rconst, plev, temp, zlev, zlay, u, v, teta, & |
call yamada(ngrid, g, zlev, zlay, u, v, teta, q2diag, km, kn) |
|
q2diag, km, kn, ustar, l_mix) |
|
201 |
if (first.and.1.eq.1) then |
if (first.and.1.eq.1) then |
202 |
first=.false. |
first=.false. |
203 |
q2=q2diag |
q2=q2diag |