/[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

trunk/phylmd/vdif_kcay.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/phylmd/vdif_kcay.f revision 108 by guez, Tue Sep 16 14:00:41 2014 UTC
# Line 10  contains Line 10  contains
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
# Line 40  contains Line 41  contains
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
Legend:
Removed from v.76  
changed lines
  Added in v.108
  ViewVC Help
Powered by ViewVC 1.1.21