My Project
 All Classes Files Functions Variables Macros
YOECUMF.h
Go to the documentation of this file.
1 !
2 ! $Id: YOECUMF.h 1279 2009-12-10 09:02:56Z fairhead $
3 !
4 ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
5 ! veillez n'utiliser que des ! pour les commentaires
6 ! et bien positionner les & des lignes de continuation
7 ! (les placer en colonne 6 et en colonne 73)
8 !
9 ! ----------------------------------------------------------------
10 !* *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
11 ! ----------------------------------------------------------------
12 !
13  COMMON /YOECUMF/ &
14  & LMFPEN,LMFSCV,LMFMID,LMFDD,LMFDUDV, &
15  & ENTRPEN,ENTRSCV,ENTRMID,ENTRDD,CMFCTOP, &
16  & CMFCMAX,CMFCMIN,CMFDEPS,RHCDD,CPRCON
17 
18  LOGICAL LMFPEN,LMFSCV,LMFMID,LMFDD,LMFDUDV
19  REAL ENTRPEN, ENTRSCV, ENTRMID, ENTRDD
20  REAL CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, CPRCON
21 !$OMP THREADPRIVATE(/YOECUMF/)
22 !
23 !*if (DOC,declared) <> 'UNKNOWN'
24 !* *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
25 !
26 ! M.TIEDTKE E. C. M. W. F. 18/1/89
27 !
28 ! NAME TYPE PURPOSE
29 ! ---- ---- -------
30 !
31 ! LMFPEN LOGICAL TRUE IF PENETRATIVE CONVECTION IS SWITCHED ON
32 ! LMFSCV LOGICAL TRUE IF SHALLOW CONVECTION IS SWITCHED ON
33 ! LMFMID LOGICAL TRUE IF MIDLEVEL CONVECTION IS SWITCHED ON
34 ! LMFDD LOGICAL TRUE IF CUMULUS DOWNDRAFT IS SWITCHED ON
35 ! LMFDUDV LOGICAL TRUE IF CUMULUS FRICTION IS SWITCHED ON
36 ! ENTRPEN REAL ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
37 ! ENTRSCV REAL ENTRAINMENT RATE FOR SHALLOW CONVECTION
38 ! ENTRMID REAL ENTRAINMENT RATE FOR MIDLEVEL CONVECTION
39 ! ENTRDD REAL ENTRAINMENT RATE FOR CUMULUS DOWNDRAFTS
40 ! CMFCTOP REAL RELAT. CLOUD MASSFLUX AT LEVEL ABOVE NONBUOYANC
41 ! CMFCMAX REAL MAXIMUM MASSFLUX VALUE ALLOWED FOR
42 ! CMFCMIN REAL MINIMUM MASSFLUX VALUE (FOR SAFETY)
43 ! CMFDEPS REAL FRACTIONAL MASSFLUX FOR DOWNDRAFTS AT LFS
44 ! RHCDD REAL RELATIVE SATURATION IN DOWNDRAFTS
45 ! CPRCON REAL COEFFICIENTS FOR DETERMINING CONVERSION
46 ! FROM CLOUD WATER TO RAIN
47 !*ifend
48 ! ----------------------------------------------------------------