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

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

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

revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC revision 51 by guez, Tue Sep 20 09:14:34 2011 UTC
# Line 36  contains Line 36  contains
36      REAL pde_u(klon, klev) ! flux detraine dans le panache montant      REAL pde_u(klon, klev) ! flux detraine dans le panache montant
37      REAL pen_d(klon, klev) ! flux entraine dans le panache descendant      REAL pen_d(klon, klev) ! flux entraine dans le panache descendant
38      REAL pde_d(klon, klev) ! flux detraine dans le panache descendant      REAL pde_d(klon, klev) ! flux detraine dans le panache descendant
39      REAL pt(klon, klev)      REAL, intent(in):: pt(klon, klev)
40    
41      REAL, INTENT (IN) :: rlon(klon), rlat(klon)      REAL, INTENT (IN) :: rlon(klon), rlat(klon)
42      REAL, INTENT (IN) :: dtime      REAL, INTENT (IN) :: dtime
# Line 48  contains Line 48  contains
48      !   Couche limite:                                                            !   Couche limite:                                                      
49    
50      REAL yv1(klon)      REAL yv1(klon)
51      REAL yu1(klon), pphis(klon), paire(klon)      REAL yu1(klon), paire(klon)
52        REAL, INTENT(IN):: pphis(klon)
53      REAL pcoefh(klon, klev) ! coeff melange Couche limite      REAL pcoefh(klon, klev) ! coeff melange Couche limite
54    
55      ! Arguments necessaires pour les sources et puits de traceur                  ! Arguments necessaires pour les sources et puits de traceur            
Legend:
Removed from v.32  
changed lines
  Added in v.51
  ViewVC Help
Powered by ViewVC 1.1.21