/[lmdze]/trunk/phylmd/vdif_kcay.f
ViewVC logotype

Diff of /trunk/phylmd/vdif_kcay.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 117 by guez, Tue Sep 16 14:00:41 2014 UTC revision 118 by guez, Thu Dec 18 17:30:24 2014 UTC
# Line 4  module vdif_kcay_m Line 4  module vdif_kcay_m
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      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
# Line 58  contains Line 59  contains
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)
Legend:
Removed from v.117  
changed lines
  Added in v.118
  ViewVC Help
Powered by ViewVC 1.1.21