libf/phylmd/YOECUMF.f90

!
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/YOECUMF.h,v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin Exp $
!
C     ----------------------------------------------------------------
C*    *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
C     ----------------------------------------------------------------
C
      COMMON /YOECUMF/
     L                 LMFPEN,LMFSCV,LMFMID,LMFDD,LMFDUDV,
     R                 ENTRPEN,ENTRSCV,ENTRMID,ENTRDD,CMFCTOP,
     R                 CMFCMAX,CMFCMIN,CMFDEPS,RHCDD,CPRCON
C
      LOGICAL          LMFPEN,LMFSCV,LMFMID,LMFDD,LMFDUDV
      REAL ENTRPEN, ENTRSCV, ENTRMID, ENTRDD
      REAL CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, CPRCON
C
*if (DOC,declared) <> 'UNKNOWN'
C*    *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
C
C     M.TIEDTKE       E. C. M. W. F.      18/1/89
C
C     NAME      TYPE      PURPOSE
C     ----      ----      -------
C
C     LMFPEN    LOGICAL  TRUE IF PENETRATIVE CONVECTION IS SWITCHED ON
C     LMFSCV    LOGICAL  TRUE IF SHALLOW     CONVECTION IS SWITCHED ON
C     LMFMID    LOGICAL  TRUE IF MIDLEVEL    CONVECTION IS SWITCHED ON
C     LMFDD     LOGICAL  TRUE IF CUMULUS DOWNDRAFT      IS SWITCHED ON
C     LMFDUDV   LOGICAL  TRUE IF CUMULUS FRICTION       IS SWITCHED ON
C     ENTRPEN   REAL     ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
C     ENTRSCV   REAL     ENTRAINMENT RATE FOR SHALLOW CONVECTION
C     ENTRMID   REAL     ENTRAINMENT RATE FOR MIDLEVEL CONVECTION
C     ENTRDD    REAL     ENTRAINMENT RATE FOR CUMULUS DOWNDRAFTS
C     CMFCTOP   REAL     RELAT. CLOUD MASSFLUX AT LEVEL ABOVE NONBUOYANC
C     CMFCMAX   REAL     MAXIMUM MASSFLUX VALUE ALLOWED FOR
C     CMFCMIN   REAL     MINIMUM MASSFLUX VALUE (FOR SAFETY)
C     CMFDEPS   REAL     FRACTIONAL MASSFLUX FOR DOWNDRAFTS AT LFS
C     RHCDD     REAL     RELATIVE SATURATION IN DOWNDRAFTS
C     CPRCON    REAL     COEFFICIENTS FOR DETERMINING CONVERSION
C                        FROM CLOUD WATER TO RAIN
*ifend
C     ----------------------------------------------------------------
1	guez	3	!
2			! $Header: /home/cvsroot/LMDZ4/libf/phylmd/YOECUMF.h,v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin Exp $
3			!
4			C ----------------------------------------------------------------
5			C* COMMON YOECUMF - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
6			C ----------------------------------------------------------------
7			C
8			COMMON /YOECUMF/
9			L LMFPEN,LMFSCV,LMFMID,LMFDD,LMFDUDV,
10			R ENTRPEN,ENTRSCV,ENTRMID,ENTRDD,CMFCTOP,
11			R CMFCMAX,CMFCMIN,CMFDEPS,RHCDD,CPRCON
12			C
13			LOGICAL LMFPEN,LMFSCV,LMFMID,LMFDD,LMFDUDV
14			REAL ENTRPEN, ENTRSCV, ENTRMID, ENTRDD
15			REAL CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, CPRCON
16			C
17			*if (DOC,declared) <> 'UNKNOWN'
18			C* COMMON YOECUMF - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
19			C
20			C M.TIEDTKE E. C. M. W. F. 18/1/89
21			C
22			C NAME TYPE PURPOSE
23			C ---- ---- -------
24			C
25			C LMFPEN LOGICAL TRUE IF PENETRATIVE CONVECTION IS SWITCHED ON
26			C LMFSCV LOGICAL TRUE IF SHALLOW CONVECTION IS SWITCHED ON
27			C LMFMID LOGICAL TRUE IF MIDLEVEL CONVECTION IS SWITCHED ON
28			C LMFDD LOGICAL TRUE IF CUMULUS DOWNDRAFT IS SWITCHED ON
29			C LMFDUDV LOGICAL TRUE IF CUMULUS FRICTION IS SWITCHED ON
30			C ENTRPEN REAL ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
31			C ENTRSCV REAL ENTRAINMENT RATE FOR SHALLOW CONVECTION
32			C ENTRMID REAL ENTRAINMENT RATE FOR MIDLEVEL CONVECTION
33			C ENTRDD REAL ENTRAINMENT RATE FOR CUMULUS DOWNDRAFTS
34			C CMFCTOP REAL RELAT. CLOUD MASSFLUX AT LEVEL ABOVE NONBUOYANC
35			C CMFCMAX REAL MAXIMUM MASSFLUX VALUE ALLOWED FOR
36			C CMFCMIN REAL MINIMUM MASSFLUX VALUE (FOR SAFETY)
37			C CMFDEPS REAL FRACTIONAL MASSFLUX FOR DOWNDRAFTS AT LFS
38			C RHCDD REAL RELATIVE SATURATION IN DOWNDRAFTS
39			C CPRCON REAL COEFFICIENTS FOR DETERMINING CONVERSION
40			C FROM CLOUD WATER TO RAIN
41			*ifend
42			C ----------------------------------------------------------------