/[lmdze]/trunk/libf/phylmd/phystokenc.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/phystokenc.f90

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

revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC
# Line 13  contains Line 13  contains
13      ! Objet: moniteur général des tendances traceurs                              ! Objet: moniteur général des tendances traceurs                        
14    
15      USE histwrite_m, ONLY : histwrite      USE histwrite_m, ONLY : histwrite
16      USE histcom, ONLY : histsync      USE histsync_m, ONLY : histsync
17      USE dimens_m, ONLY : iim, jjm, nqmx      USE dimens_m, ONLY : iim, jjm, nqmx
18      USE indicesol, ONLY : nbsrf      USE indicesol, ONLY : nbsrf
19      USE dimphy, ONLY : klev, klon      USE dimphy, ONLY : klev, klon
# 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.61
  ViewVC Help
Powered by ViewVC 1.1.21