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

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

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

revision 134 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 yamada_m Line 4  module yamada_m
4    
5  contains  contains
6    
7    SUBROUTINE yamada(ngrid, g, rconst, plev, temp, zlev, zlay, u, v, teta, q2, &    SUBROUTINE yamada(ngrid, g, zlev, zlay, u, v, teta, q2, km, kn)
        km, kn, ustar, l_mix)  
8    
9      ! From LMDZ4/libf/phylmd/yamada.F,v 1.1 2004/06/22 11:45:36      ! From LMDZ4/libf/phylmd/yamada.F,v 1.1 2004/06/22 11:45:36
10    
# Line 33  contains Line 32  contains
32    
33      ! .......................................................................      ! .......................................................................
34      REAL, INTENT (IN) :: g      REAL, INTENT (IN) :: g
     REAL rconst  
     REAL plev(klon, klev+1), temp(klon, klev)  
     REAL ustar(klon), snstable  
35      REAL zlev(klon, klev+1)      REAL zlev(klon, klev+1)
36      REAL zlay(klon, klev)      REAL zlay(klon, klev)
37      REAL u(klon, klev)      REAL u(klon, klev)
# Line 44  contains Line 40  contains
40      REAL q2(klon, klev+1)      REAL q2(klon, klev+1)
41      REAL km(klon, klev+1)      REAL km(klon, klev+1)
42      REAL kn(klon, klev+1)      REAL kn(klon, klev+1)
43      INTEGER l_mix, ngrid      INTEGER ngrid
44    
45    
46      INTEGER nlay, nlev      INTEGER nlay, nlev
Legend:
Removed from v.134  
changed lines
  Added in v.145
  ViewVC Help
Powered by ViewVC 1.1.21