/[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 226 by guez, Tue Mar 22 16:31:39 2016 UTC revision 227 by guez, Thu Nov 2 15:47:03 2017 UTC
# Line 6  contains Line 6  contains
6    
7    SUBROUTINE yamada(ngrid, g, zlev, zlay, u, v, teta, q2, km, kn)    SUBROUTINE yamada(ngrid, g, zlev, zlay, u, v, teta, q2, km, kn)
8    
9      ! From LMDZ4/libf/phylmd/yamada.F,v 1.1 2004/06/22 11:45:36      ! From LMDZ4/libf/phylmd/yamada.F, version 1.1 2004/06/22 11:45:36
10    
11      USE dimens_m      USE dimphy, only: klon, klev
     USE dimphy  
12      ! .......................................................................      ! .......................................................................
13      ! .......................................................................      ! .......................................................................
14    
# Line 31  contains Line 30  contains
30      ! (en sortie : la valeur a la fin du pas de temps)      ! (en sortie : la valeur a la fin du pas de temps)
31    
32      ! .......................................................................      ! .......................................................................
33      REAL, INTENT (IN) :: g      REAL, INTENT(IN):: g
34      REAL zlev(klon, klev+1)      REAL zlev(klon, klev+1)
35      REAL zlay(klon, klev)      REAL zlay(klon, klev)
36      REAL u(klon, klev)      REAL, INTENT(IN):: u(klon, klev)
37      REAL v(klon, klev)      REAL, INTENT(IN):: v(klon, klev)
38      REAL teta(klon, klev)      REAL teta(klon, klev)
39      REAL q2(klon, klev+1)      REAL q2(klon, klev+1)
40      REAL km(klon, klev+1)      REAL km(klon, klev+1)
Legend:
Removed from v.226  
changed lines
  Added in v.227
  ViewVC Help
Powered by ViewVC 1.1.21