phylmd/Conflx/YOECUMF.f

module yoecumf

  ! From phylmd/YOECUMF.h, version 1.1.1.1 2004/05/19 12:53:07

  ! M. Tiedtke, E. C. M. W. F., 18th Jan. 1989
  ! Parameters for cumulus massflux scheme

  implicit none

  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
1	guez	10	module yoecumf
2
3	guez	63	! From phylmd/YOECUMF.h, version 1.1.1.1 2004/05/19 12:53:07
4	guez	10
5	guez	63	! M. Tiedtke, E. C. M. W. F., 18th Jan. 1989
6			! Parameters for cumulus massflux scheme
7	guez	10
8			implicit none
9
10	guez	63	LOGICAL LMFPEN ! PENETRATIVE CONVECTION SWITCHED ON
11			logical LMFSCV ! SHALLOW CONVECTION SWITCHED ON
12			logical LMFMID ! MIDLEVEL CONVECTION SWITCHED ON
13			logical LMFDD ! CUMULUS DOWNDRAFT SWITCHED ON
14			logical LMFDUDV ! CUMULUS FRICTION SWITCHED ON
15			REAL ENTRPEN ! ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
16			real ENTRSCV ! ENTRAINMENT RATE FOR SHALLOW CONVECTION
17			real ENTRMID ! ENTRAINMENT RATE FOR MIDLEVEL CONVECTION
18			real ENTRDD ! ENTRAINMENT RATE FOR CUMULUS DOWNDRAFTS
19			REAL CMFCTOP ! RELAT. CLOUD MASSFLUX AT LEVEL ABOVE NONBUOYANC
20			real CMFCMAX ! MAXIMUM MASSFLUX VALUE ALLOWED FOR
21			real CMFCMIN ! MINIMUM MASSFLUX VALUE (FOR SAFETY)
22			real CMFDEPS ! FRACTIONAL MASSFLUX FOR DOWNDRAFTS AT LFS
23			real RHCDD ! RELATIVE SATURATION IN DOWNDRAFTS
24			real CPRCON ! COEFFICIENTS FOR DETERMINING CONVERSION FROM CLOUD WATER TO RAIN
25	guez	10
26	guez	64	contains
27
28			SUBROUTINE flxsetup
29
30			! This routine defines disposable parameters for massflux scheme.
31
32			!--------------------------------------------------------
33
34			ENTRPEN = 1E-4 ! ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
35			ENTRSCV = 3E-4 ! ENTRAINMENT RATE FOR SHALLOW CONVECTION
36			ENTRMID = 1E-4 ! ENTRAINMENT RATE FOR MIDLEVEL CONVECTION
37			ENTRDD = 2E-4 ! ENTRAINMENT RATE FOR DOWNDRAFTS
38			CMFCTOP = 0.33 ! RELATIVE CLOUD MASSFLUX AT LEVEL ABOVE NONBUO LEVEL
39			CMFCMAX = 1. ! MAXIMUM MASSFLUX VALUE ALLOWED FOR UPDRAFTS ETC
40			CMFCMIN = 1E-10 ! MINIMUM MASSFLUX VALUE (FOR SAFETY)
41			CMFDEPS = 0.3 ! FRACTIONAL MASSFLUX FOR DOWNDRAFTS AT LFS
42			CPRCON = 2E-4 ! CONVERSION FROM CLOUD WATER TO RAIN
43
44			RHCDD = 1.
45			! RELATIVE SATURATION IN DOWNDRAFtS (NO LONGER USED) (FORMULATION
46			! IMPLIES SATURATION)
47
48			LMFPEN = .TRUE.
49			LMFSCV = .TRUE.
50			LMFMID = .TRUE.
51			LMFDD = .TRUE.
52			LMFDUDV = .TRUE.
53
54			END SUBROUTINE flxsetup
55
56	guez	10	end module yoecumf