/[lmdze]/trunk/phylmd/Conflx/conflx.f
ViewVC logotype

Diff of /trunk/phylmd/Conflx/conflx.f

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC
# Line 24  c======================================= Line 24  c=======================================
24  c Entree:  c Entree:
25        REAL dtime            ! pas d'integration (s)        REAL dtime            ! pas d'integration (s)
26        REAL, intent(in):: pres_h(klon,klev+1) ! pression half-level (Pa)        REAL, intent(in):: pres_h(klon,klev+1) ! pression half-level (Pa)
27        REAL pres_f(klon,klev)! pression full-level (Pa)        REAL, intent(in):: pres_f(klon,klev)! pression full-level (Pa)
28        REAL t(klon,klev)     ! temperature (K)        REAL t(klon,klev)     ! temperature (K)
29        REAL q(klon,klev)     ! humidite specifique (g/g)        REAL q(klon,klev)     ! humidite specifique (g/g)
30        REAL w(klon,klev)     ! vitesse verticale (Pa/s)        REAL w(klon,klev)     ! vitesse verticale (Pa/s)
# Line 217  c     *                   ldcum, ktype, Line 217  c     *                   ldcum, ktype,
217        use dimphy        use dimphy
218        use YOMCST        use YOMCST
219        use yoethf        use yoethf
220                use yoecumf
221        IMPLICIT none        IMPLICIT none
222  C     ------------------------------------------------------------------  C     ------------------------------------------------------------------
       include "YOECUMF.h"  
223  C     ----------------------------------------------------------------  C     ----------------------------------------------------------------
224        REAL pten(klon,klev), pqen(klon,klev), pqsen(klon,klev)        REAL pten(klon,klev), pqen(klon,klev), pqsen(klon,klev)
225        REAL ptte(klon,klev)        REAL ptte(klon,klev)
# Line 717  c Line 717  c
717        use dimphy        use dimphy
718        use YOMCST        use YOMCST
719        use yoethf        use yoethf
720                use yoecumf
721        IMPLICIT none        IMPLICIT none
722  C----------------------------------------------------------------------  C----------------------------------------------------------------------
723  C THIS ROUTINE DOES THE CALCULATIONS FOR CLOUD ASCENTS  C THIS ROUTINE DOES THE CALCULATIONS FOR CLOUD ASCENTS
724  C FOR CUMULUS PARAMETERIZATION  C FOR CUMULUS PARAMETERIZATION
725  C----------------------------------------------------------------------  C----------------------------------------------------------------------
       include "YOECUMF.h"  
726  C  C
727        REAL pdtime        REAL pdtime
728        REAL pten(klon,klev), ptenh(klon,klev)        REAL pten(klon,klev), ptenh(klon,klev)
# Line 1022  C Line 1022  C
1022        use YOMCST        use YOMCST
1023        use yoethf        use yoethf
1024        use fcttre        use fcttre
1025                use yoecumf
1026        IMPLICIT none        IMPLICIT none
1027  C----------------------------------------------------------------------  C----------------------------------------------------------------------
1028  C THIS ROUTINE DOES THE FINAL CALCULATION OF CONVECTIVE  C THIS ROUTINE DOES THE FINAL CALCULATION OF CONVECTIVE
1029  C FLUXES IN THE CLOUD LAYER AND IN THE SUBCLOUD LAYER  C FLUXES IN THE CLOUD LAYER AND IN THE SUBCLOUD LAYER
1030  C----------------------------------------------------------------------  C----------------------------------------------------------------------
       include "YOECUMF.h"  
1031  C  C
1032        REAL cevapcu(klev)        REAL cevapcu(klev)
1033  C     -----------------------------------------------------------------  C     -----------------------------------------------------------------
# Line 1265  c Line 1265  c
1265        use dimphy        use dimphy
1266        use YOMCST        use YOMCST
1267        use yoethf        use yoethf
1268                use yoecumf
1269        IMPLICIT none        IMPLICIT none
1270  c----------------------------------------------------------------------  c----------------------------------------------------------------------
1271  c calculer les tendances T et Q  c calculer les tendances T et Q
1272  c----------------------------------------------------------------------  c----------------------------------------------------------------------
       include "YOECUMF.h"  
1273  C     -----------------------------------------------------------------  C     -----------------------------------------------------------------
1274        LOGICAL  llo1        LOGICAL  llo1
1275  C  C
# Line 1336  C Line 1336  C
1336        use dimphy        use dimphy
1337        use YOMCST        use YOMCST
1338        use yoethf        use yoethf
1339                use yoecumf
1340        IMPLICIT none        IMPLICIT none
1341  C  C
1342  C----------------------------------------------------------------------  C----------------------------------------------------------------------
# Line 1353  C Line 1354  C
1354  C CHECK FOR NEGATIVE BUOYANCY OF AIR OF EQUAL PARTS OF  C CHECK FOR NEGATIVE BUOYANCY OF AIR OF EQUAL PARTS OF
1355  C MOIST ENVIRONMENTAL AIR AND CLOUD AIR.  C MOIST ENVIRONMENTAL AIR AND CLOUD AIR.
1356  C----------------------------------------------------------------------  C----------------------------------------------------------------------
       include "YOECUMF.h"  
1357  C  C
1358        REAL ptenh(klon,klev)        REAL ptenh(klon,klev)
1359        REAL pqenh(klon,klev)        REAL pqenh(klon,klev)
# Line 1447  C Line 1447  C
1447        use dimphy        use dimphy
1448        use YOMCST        use YOMCST
1449        use yoethf        use yoethf
1450                use yoecumf
1451        IMPLICIT none        IMPLICIT none
1452  C  C
1453  C----------------------------------------------------------------------  C----------------------------------------------------------------------
# Line 1464  C          A) MOVING AIR DRY-ADIABATICAL Line 1465  C          A) MOVING AIR DRY-ADIABATICAL
1465  C          B) CORRECTING FOR EVAPORATION TO OBTAIN SATURATED STATE.  C          B) CORRECTING FOR EVAPORATION TO OBTAIN SATURATED STATE.
1466  C  C
1467  C----------------------------------------------------------------------  C----------------------------------------------------------------------
       include "YOECUMF.h"  
1468  C  C
1469        REAL ptenh(klon,klev), pqenh(klon,klev)        REAL ptenh(klon,klev), pqenh(klon,klev)
1470        REAL pgeoh(klon,klev), paph(klon,klev+1)        REAL pgeoh(klon,klev), paph(klon,klev+1)
# Line 1636  C Line 1636  C
1636        RETURN        RETURN
1637        END        END
1638        SUBROUTINE flxsetup        SUBROUTINE flxsetup
1639                use yoecumf
1640        IMPLICIT none        IMPLICIT none
1641  C  C
1642  C     THIS ROUTINE DEFINES DISPOSABLE PARAMETERS FOR MASSFLUX SCHEME  C     THIS ROUTINE DEFINES DISPOSABLE PARAMETERS FOR MASSFLUX SCHEME
1643  C  C
       include "YOECUMF.h"  
1644  C  C
1645        ENTRPEN=1.0E-4  ! ENTRAINMENT RATE FOR PENETRATIVE CONVECTION        ENTRPEN=1.0E-4  ! ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
1646        ENTRSCV=3.0E-4  ! ENTRAINMENT RATE FOR SHALLOW CONVECTION        ENTRSCV=3.0E-4  ! ENTRAINMENT RATE FOR SHALLOW CONVECTION
Legend:
Removed from v.3  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.21