4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE vdif_kcay(ngrid, dt, g, rconst, plev, temp, zlev, zlay, & |
SUBROUTINE vdif_kcay(ngrid, dt, g, rconst, plev, temp, zlev, zlay, u, v, & |
8 |
u, v, teta, cd, q2, q2diag, km, kn, ustar, l_mix) |
teta, cd, q2, 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 |
|
|
12 |
USE dimphy, ONLY: klev, klon |
USE dimphy, ONLY: klev, klon |
13 |
|
use yamada_m, only: yamada |
14 |
|
|
15 |
|
INTEGER ngrid |
16 |
! dt : pas de temps |
! dt : pas de temps |
17 |
! g : g |
! g : g |
18 |
! zlev : altitude a chaque niveau (interface inferieure de la couche |
! zlev : altitude a chaque niveau (interface inferieure de la couche |
59 |
! q : echelle de vitesse au bas de chaque couche |
! q : echelle de vitesse au bas de chaque couche |
60 |
! (valeur a la fin du pas de temps) |
! (valeur a la fin du pas de temps) |
61 |
|
|
62 |
INTEGER nlay, nlev, ngrid |
INTEGER nlay, nlev |
63 |
REAL unsdz(klon, klev) |
REAL unsdz(klon, klev) |
64 |
REAL unsdzdec(klon, klev+1) |
REAL unsdzdec(klon, klev+1) |
65 |
REAL q(klon, klev+1) |
REAL q(klon, klev+1) |