phylmd/Conflx/YOECUMF.f

module yoecumf

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

  ! M. Tiedtke, ECMWF, 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 ! relative cloud massflux at level above nonbuoyanc level
  real cmfcmax ! maximum massflux value allowed for updrafts etc
  real cmfcmin ! minimum massflux value (for safety)
  real cmfdeps ! fractional massflux for downdrafts at lfs

  real rhcdd
  ! relative saturation in downdrafts (no longer used) (formulation
  ! implies saturation)

  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
    ENTRSCV = 3E-4
    ENTRMID = 1E-4
    ENTRDD = 2E-4 
    CMFCTOP = 0.33
    CMFCMAX = 1.
    CMFCMIN = 1E-10
    CMFDEPS = 0.3
    CPRCON = 2E-4
    RHCDD = 1.
    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	70	! M. Tiedtke, ECMWF, 18th Jan. 1989
6	guez	63	! Parameters for cumulus massflux scheme
7	guez	10
8			implicit none
9
10	guez	73	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 ! relative cloud massflux at level above nonbuoyanc level
20			real cmfcmax ! maximum massflux value allowed for updrafts etc
21			real cmfcmin ! minimum massflux value (for safety)
22			real cmfdeps ! fractional massflux for downdrafts at lfs
23	guez	10
24	guez	73	real rhcdd
25			! relative saturation in downdrafts (no longer used) (formulation
26			! implies saturation)
27
28			real cprcon ! coefficients for determining conversion from cloud water to rain
29
30	guez	64	contains
31
32			SUBROUTINE flxsetup
33
34			! This routine defines disposable parameters for massflux scheme.
35
36			!--------------------------------------------------------
37
38	guez	73	ENTRPEN = 1E-4
39			ENTRSCV = 3E-4
40			ENTRMID = 1E-4
41			ENTRDD = 2E-4
42			CMFCTOP = 0.33
43			CMFCMAX = 1.
44			CMFCMIN = 1E-10
45			CMFDEPS = 0.3
46			CPRCON = 2E-4
47	guez	64	RHCDD = 1.
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