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 |