/[lmdze]/trunk/phylmd/nflxtr.f
ViewVC logotype

Diff of /trunk/phylmd/nflxtr.f

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

revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC revision 62 by guez, Thu Jul 26 14:37:37 2012 UTC
# Line 5  Line 5 
5       .                 paprs,x,dx)       .                 paprs,x,dx)
6        use dimens_m        use dimens_m
7        use dimphy        use dimphy
8        use YOMCST        use SUPHEC_M
9              use yoecumf              use yoecumf
10        IMPLICIT NONE        IMPLICIT NONE
11  c=====================================================================  c=====================================================================
# Line 28  c Line 28  c
28        REAL, intent(in):: pdtime        REAL, intent(in):: pdtime
29  c--les flux sont definis au 1/2 niveaux  c--les flux sont definis au 1/2 niveaux
30  c--pmfu(klev+1) et pmfd(klev+1) sont implicitement nuls  c--pmfu(klev+1) et pmfd(klev+1) sont implicitement nuls
31        REAL pmfu(klon,klev)  ! flux de masse dans le panache montant  
32          REAL, intent(in):: pmfu(klon,klev)
33    !     flux de masse dans le panache montant
34    
35        REAL pmfd(klon,klev)  ! flux de masse dans le panache descendant        REAL pmfd(klon,klev)  ! flux de masse dans le panache descendant
36        REAL pen_u(klon,klev) ! flux entraine dans le panache montant        REAL pen_u(klon,klev) ! flux entraine dans le panache montant
37        REAL pde_u(klon,klev) ! flux detraine dans le panache montant        REAL pde_u(klon,klev) ! flux detraine dans le panache montant
Legend:
Removed from v.10  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.21