source: LMDZ6/branches/contrails/libf/phylmd/yoecumf_mod_h.f90 @ 5445

Last change on this file since 5445 was 5289, checked in by abarral, 8 weeks ago

Turn YOECUMF.h into a module
Fix USE in fxy_new_mod_h.f90
  • 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
Line 
1MODULE yoecumf_mod_h
2  !     ----------------------------------------------------------------
3  !*    *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
4  !     ----------------------------------------------------------------
5
6  IMPLICIT NONE; PRIVATE
7  PUBLIC ENTRPEN, ENTRSCV, ENTRMID, ENTRDD, CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, &
8          CPRCON, LMFPEN, LMFSCV, LMFMID, LMFDD, LMFDUDV
9
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)
15
16  !*if (DOC,declared) <> 'UNKNOWN'
17  !*    *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
18
19  !     M.TIEDTKE       E. C. M. W. F.      18/1/89
20
21  !     NAME      TYPE      PURPOSE
22  !     ----      ----      -------
23
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 yoecumf_mod_h
Note: See TracBrowser for help on using the repository browser.