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

Diff of /trunk/Sources/phylmd/vdif_kcay.f

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

revision 144 by guez, Wed Apr 29 15:47:56 2015 UTC revision 145 by guez, Tue Jun 16 15:23:29 2015 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, 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    
# Line 33  contains Line 33  contains
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)
# Line 198  contains Line 197  contains
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
Legend:
Removed from v.144  
changed lines
  Added in v.145
  ViewVC Help
Powered by ViewVC 1.1.21