1 |
SUBROUTINE diagcld1(paprs,pplay,rain,snow,kbot,ktop, & |
SUBROUTINE diagcld1(paprs,pplay,rain,snow,kbot,ktop, & |
2 |
diafra,dialiq) |
diafra,dialiq) |
3 |
use dimens_m |
use dimensions |
4 |
use dimphy |
use dimphy |
5 |
use SUPHEC_M |
use SUPHEC_M |
6 |
IMPLICIT none |
IMPLICIT none |
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 |