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

Diff of /trunk/phylmd/diagcld1.f

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

trunk/phylmd/diagcld1.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/phylmd/diagcld1.f revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 1  Line 1 
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
# Line 16  Line 16 
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
# Line 35  Line 33 
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
Legend:
Removed from v.76  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21