source: LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_YOECUMF.f90 @ 5218

Last change on this file since 5218 was 5142, checked in by abarral, 5 months ago

Put cvparam.h, fcg_gcssold.h, planete.h, tsoilnudge.h, YOECUMF.h into modules
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.1 KB
RevLine 
[5142]1MODULE lmdz_YOECUMF
2  !     ----------------------------------------------------------------
3  !*    *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
4  !     ----------------------------------------------------------------
[5099]5
[5142]6  IMPLICIT NONE; PRIVATE
7  PUBLIC ENTRPEN, ENTRSCV, ENTRMID, ENTRDD, CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, &
8          CPRCON, LMFPEN, LMFSCV, LMFMID, LMFDD, LMFDUDV
[5099]9
[5142]10  LOGICAL          LMFPEN, LMFSCV, LMFMID, LMFDD, LMFDUDV
11  REAL ENTRPEN, ENTRSCV, ENTRMID, ENTRDD
12  REAL CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, CPRCON
13  !$OMP THREADPRIVATE(ENTRPEN, ENTRSCV, ENTRMID, ENTRDD, CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, &
14  !$OMP      CPRCON, LMFPEN, LMFSCV, LMFMID, LMFDD, LMFDUDV)
[5099]15
[5142]16  !*if (DOC,declared) <> 'UNKNOWN'
17  !*    *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
[5099]18
[5142]19  !     M.TIEDTKE       E. C. M. W. F.      18/1/89
[1279]20
[5142]21  !     NAME      TYPE      PURPOSE
22  !     ----      ----      -------
[5081]23
[5142]24  !     LMFPEN    LOGICAL  TRUE IF PENETRATIVE CONVECTION IS SWITCHED ON
25  !     LMFSCV    LOGICAL  TRUE IF SHALLOW     CONVECTION IS SWITCHED ON
26  !     LMFMID    LOGICAL  TRUE IF MIDLEVEL    CONVECTION IS SWITCHED ON
27  !     LMFDD     LOGICAL  TRUE IF CUMULUS DOWNDRAFT      IS SWITCHED ON
28  !     LMFDUDV   LOGICAL  TRUE IF CUMULUS FRICTION       IS SWITCHED ON
29  !     ENTRPEN   REAL     ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
30  !     ENTRSCV   REAL     ENTRAINMENT RATE FOR SHALLOW CONVECTION
31  !     ENTRMID   REAL     ENTRAINMENT RATE FOR MIDLEVEL CONVECTION
32  !     ENTRDD    REAL     ENTRAINMENT RATE FOR CUMULUS DOWNDRAFTS
33  !     CMFCTOP   REAL     RELAT. CLOUD MASSFLUX AT LEVEL ABOVE NONBUOYANC
34  !     CMFCMAX   REAL     MAXIMUM MASSFLUX VALUE ALLOWED FOR
35  !     CMFCMIN   REAL     MINIMUM MASSFLUX VALUE (FOR SAFETY)
36  !     CMFDEPS   REAL     FRACTIONAL MASSFLUX FOR DOWNDRAFTS AT LFS
37  !     RHCDD     REAL     RELATIVE SATURATION IN DOWNDRAFTS
38  !     CPRCON    REAL     COEFFICIENTS FOR DETERMINING CONVERSION
39  !                        FROM CLOUD WATER TO RAIN
40  !*ifend
41  !     ----------------------------------------------------------------
42END MODULE lmdz_YOECUMF
Note: See TracBrowser for help on using the repository browser.