phylmd/Conflx/YOECUMF.f90

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	module yoecumf
2
3	! From phylmd/YOECUMF.h, version 1.1.1.1 2004/05/19 12:53:07
4
5	! M. Tiedtke, E. C. M. W. F., 18th Jan. 1989
6	! Parameters for cumulus massflux scheme
7
8	implicit none
9
10	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
26	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	end module yoecumf