--- trunk/libf/phylmd/YOECUMF.f90	2008/04/18 14:45:53	10
+++ trunk/libf/phylmd/Conflx/YOECUMF.f90	2012/08/29 14:47:17	64
@@ -1,35 +1,56 @@
 module yoecumf
 
-  ! From phylmd/YOECUMF.h,v 1.1.1.1 2004/05/19 12:53:07
+  ! From phylmd/YOECUMF.h, version 1.1.1.1 2004/05/19 12:53:07
 
-  ! PARAMETERS FOR CUMULUS MASSFLUX SCHEME
+  ! M. Tiedtke, E. C. M. W. F., 18th Jan. 1989
+  ! Parameters for cumulus massflux scheme
 
   implicit none
 
-  LOGICAL          LMFPEN,LMFSCV,LMFMID,LMFDD,LMFDUDV
-  REAL ENTRPEN, ENTRSCV, ENTRMID, ENTRDD
-  REAL CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, CPRCON
-
-  !     M.TIEDTKE       E. C. M. W. F.      18/1/89
-  !
-  !     NAME      TYPE      PURPOSE
-  !     ----      ----      -------
-  !
-  !     LMFPEN    LOGICAL  TRUE IF PENETRATIVE CONVECTION IS SWITCHED ON
-  !     LMFSCV    LOGICAL  TRUE IF SHALLOW     CONVECTION IS SWITCHED ON
-  !     LMFMID    LOGICAL  TRUE IF MIDLEVEL    CONVECTION IS SWITCHED ON
-  !     LMFDD     LOGICAL  TRUE IF CUMULUS DOWNDRAFT      IS SWITCHED ON
-  !     LMFDUDV   LOGICAL  TRUE IF CUMULUS FRICTION       IS SWITCHED ON
-  !     ENTRPEN   REAL     ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
-  !     ENTRSCV   REAL     ENTRAINMENT RATE FOR SHALLOW CONVECTION
-  !     ENTRMID   REAL     ENTRAINMENT RATE FOR MIDLEVEL CONVECTION
-  !     ENTRDD    REAL     ENTRAINMENT RATE FOR CUMULUS DOWNDRAFTS
-  !     CMFCTOP   REAL     RELAT. CLOUD MASSFLUX AT LEVEL ABOVE NONBUOYANC
-  !     CMFCMAX   REAL     MAXIMUM MASSFLUX VALUE ALLOWED FOR
-  !     CMFCMIN   REAL     MINIMUM MASSFLUX VALUE (FOR SAFETY)
-  !     CMFDEPS   REAL     FRACTIONAL MASSFLUX FOR DOWNDRAFTS AT LFS
-  !     RHCDD     REAL     RELATIVE SATURATION IN DOWNDRAFTS
-  !     CPRCON    REAL     COEFFICIENTS FOR DETERMINING CONVERSION
-  !                        FROM CLOUD WATER TO RAIN
+  LOGICAL LMFPEN ! PENETRATIVE CONVECTION SWITCHED ON
+  logical LMFSCV ! SHALLOW CONVECTION SWITCHED ON
+  logical LMFMID ! MIDLEVEL CONVECTION SWITCHED ON
+  logical LMFDD ! CUMULUS DOWNDRAFT SWITCHED ON
+  logical LMFDUDV ! CUMULUS FRICTION SWITCHED ON
+  REAL ENTRPEN ! ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
+  real ENTRSCV ! ENTRAINMENT RATE FOR SHALLOW CONVECTION
+  real ENTRMID ! ENTRAINMENT RATE FOR MIDLEVEL CONVECTION
+  real ENTRDD ! ENTRAINMENT RATE FOR CUMULUS DOWNDRAFTS
+  REAL CMFCTOP ! RELAT. CLOUD MASSFLUX AT LEVEL ABOVE NONBUOYANC
+  real CMFCMAX ! MAXIMUM MASSFLUX VALUE ALLOWED FOR
+  real CMFCMIN ! MINIMUM MASSFLUX VALUE (FOR SAFETY)
+  real CMFDEPS ! FRACTIONAL MASSFLUX FOR DOWNDRAFTS AT LFS
+  real RHCDD ! RELATIVE SATURATION IN DOWNDRAFTS
+  real CPRCON ! COEFFICIENTS FOR DETERMINING CONVERSION FROM CLOUD WATER TO RAIN
+
+contains
+
+  SUBROUTINE flxsetup
+
+    ! This routine defines disposable parameters for massflux scheme.
+
+    !--------------------------------------------------------
+
+    ENTRPEN = 1E-4 ! ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
+    ENTRSCV = 3E-4 ! ENTRAINMENT RATE FOR SHALLOW CONVECTION
+    ENTRMID = 1E-4 ! ENTRAINMENT RATE FOR MIDLEVEL CONVECTION
+    ENTRDD = 2E-4 ! ENTRAINMENT RATE FOR DOWNDRAFTS
+    CMFCTOP = 0.33 ! RELATIVE CLOUD MASSFLUX AT LEVEL ABOVE NONBUO LEVEL
+    CMFCMAX = 1. ! MAXIMUM MASSFLUX VALUE ALLOWED FOR UPDRAFTS ETC
+    CMFCMIN = 1E-10 ! MINIMUM MASSFLUX VALUE (FOR SAFETY)
+    CMFDEPS = 0.3 ! FRACTIONAL MASSFLUX FOR DOWNDRAFTS AT LFS
+    CPRCON = 2E-4 ! CONVERSION FROM CLOUD WATER TO RAIN
+
+    RHCDD = 1.
+    ! RELATIVE SATURATION IN DOWNDRAFtS (NO LONGER USED) (FORMULATION
+    ! IMPLIES SATURATION)
+
+    LMFPEN = .TRUE.
+    LMFSCV = .TRUE.
+    LMFMID = .TRUE.
+    LMFDD = .TRUE.
+    LMFDUDV = .TRUE.
+
+  END SUBROUTINE flxsetup
 
 end module yoecumf