16 |
! Arguments d'entree: |
! Arguments d'entree: |
17 |
REAL, intent(in):: paprs(klon,klev+1) ! pression (Pa) a inter-couche |
REAL, intent(in):: paprs(klon,klev+1) ! pression (Pa) a inter-couche |
18 |
REAL, intent(in):: pplay(klon,klev) ! pression (Pa) au milieu de couche |
REAL, intent(in):: pplay(klon,klev) ! pression (Pa) au milieu de couche |
|
REAL t(klon,klev) ! temperature (K) |
|
|
REAL q(klon,klev) ! humidite specifique (Kg/Kg) |
|
19 |
REAL rain(klon) ! pluie convective (kg/m2/s) |
REAL rain(klon) ! pluie convective (kg/m2/s) |
20 |
REAL snow(klon) ! neige convective (kg/m2/s) |
REAL snow(klon) ! neige convective (kg/m2/s) |
21 |
INTEGER ktop(klon) ! sommet de la convection |
INTEGER ktop(klon) ! sommet de la convection |
33 |
REAL CCFCT, CCSCAL |
REAL CCFCT, CCSCAL |
34 |
PARAMETER (CCFCT=0.400) |
PARAMETER (CCFCT=0.400) |
35 |
PARAMETER (CCSCAL=1.0E+11) |
PARAMETER (CCSCAL=1.0E+11) |
36 |
REAL CETAHB, CETAMB |
REAL CETAHB |
37 |
PARAMETER (CETAHB=0.45, CETAMB=0.80) |
PARAMETER (CETAHB=0.45) |
38 |
REAL CCLWMR |
REAL CCLWMR |
39 |
PARAMETER (CCLWMR=1.E-04) |
PARAMETER (CCLWMR=1.E-04) |
40 |
REAL ZEPSCR |
REAL ZEPSCR |