MOD_COSP_CONSTANTS Module


Contents

Variables


Variables

Type Visibility Attributes Name Initial
character(len=32), public :: COSP_VERSION = 'COSP v1.4'
logical, public :: ok_debug_cosp = .true.
integer, public, parameter :: I_LSCLIQ = 1
integer, public, parameter :: I_LSCICE = 2
integer, public, parameter :: I_LSRAIN = 3
integer, public, parameter :: I_LSSNOW = 4
integer, public, parameter :: I_CVCLIQ = 5
integer, public, parameter :: I_CVCICE = 6
integer, public, parameter :: I_CVRAIN = 7
integer, public, parameter :: I_CVSNOW = 8
integer, public, parameter :: I_LSGRPL = 9
real, public, parameter :: R_UNDEF = -1.0E30
integer, public, parameter :: N_OUT_LIST = 74
integer, public, parameter :: N3D = 11
integer, public, parameter :: N2D = 19
integer, public, parameter :: N1D = 43
real, public, parameter :: R_GROUND = -1.0E20
integer, public, parameter :: I_LSC = 1
integer, public, parameter :: I_CVC = 2
integer, public, parameter :: N_SIMULATORS = 7
integer, public, parameter :: I_RADAR = 1
integer, public, parameter :: I_LIDAR = 2
integer, public, parameter :: I_ISCCP = 3
integer, public, parameter :: I_MISR = 4
integer, public, parameter :: I_MODIS = 5
integer, public, parameter :: I_RTTOV = 6
integer, public, parameter :: I_STATS = 7
character(len=32), public, dimension(N_SIMULATORS) :: SIM_NAME = (/'Radar', 'Lidar', 'ISCCP', 'MISR ', 'MODIS', 'RTTOV', 'Stats'/)
integer, public, dimension(N_SIMULATORS) :: tsim
integer, public, parameter :: DBZE_BINS = 15
real, public, parameter :: DBZE_MIN = -100.0
real, public, parameter :: DBZE_MAX = 80.0
real, public, parameter :: CFAD_ZE_MIN = -50.0
real, public, parameter :: CFAD_ZE_WIDTH = 5.0
integer, public, parameter :: SR_BINS = 15
integer, public, parameter :: DPOL_BINS = 6
real, public, parameter :: LIDAR_UNDEF = 999.999
integer, public, parameter :: LIDAR_NCAT = 4
integer, public, parameter :: LIDAR_NTYPE = 3
integer, public, parameter :: PARASOL_NREFL = 5
real, public, parameter, dimension(PARASOL_NREFL) :: PARASOL_SZA = (/0.0, 20.0, 40.0, 60.0, 80.0/)
real, public, parameter :: DEFAULT_LIDAR_REFF = 30.0e-6
integer, public, parameter :: LIDAR_NTEMP = 40
real, public, parameter, dimension(LIDAR_NTEMP) :: LIDAR_PHASE_TEMP = (/-91.5, -88.5, -85.5, -82.5, -79.5, -76.5, -73.5, -70.5, -67.5, -64.5, -61.5, -58.5, -55.5, -52.5, -49.5, -46.5, -43.5, -40.5, -37.5, -34.5, -31.5, -28.5, -25.5, -22.5, -19.5, -16.5, -13.5, -10.5, -7.5, -4.5, -1.5, 1.5, 4.5, 7.5, 10.5, 13.5, 16.5, 19.5, 22.5, 25.5/)
real, public, parameter, dimension(2,LIDAR_NTEMP) :: LIDAR_PHASE_TEMP_BNDS = reshape(source=(/-273.15, -90., -90., -87., -87., -84., -84., -81., -81., -78., -78., -75., -75., -72., -72., -69., -69., -66., -66., -63., -63., -60., -60., -57., -57., -54., -54., -51., -51., -48., -48., -45., -45., -42., -42., -39., -39., -36., -36., -33., -33., -30., -30., -27., -27., -24., -24., -21., -21., -18., -18., -15., -15., -12., -12., -9., -9., -6., -6., -3., -3., 0., 0., 3., 3., 6., 6., 9., 9., 12., 12., 15., 15., 18., 18., 21., 21., 24., 24., 100./), shape=(/2, 40/))
integer, public, parameter :: MISR_N_CTH = 16
integer, public, parameter :: RTTOV_MAX_CHANNELS = 20
real, public, parameter, dimension(7) :: ISCCP_TAU = (/0.15, 0.80, 2.45, 6.5, 16.2, 41.5, 100.0/)
real, public, parameter, dimension(2,7) :: ISCCP_TAU_BNDS = reshape(source=(/0.0, 0.3, 0.3, 1.30, 1.30, 3.6, 3.6, 9.4, 9.4, 23.0, 23.0, 60.0, 60.0, 100000.0/), shape=(/2, 7/))
real, public, parameter, dimension(7) :: ISCCP_PC = (/90000., 74000., 62000., 50000., 37500., 24500., 9000./)
real, public, parameter, dimension(2,7) :: ISCCP_PC_BNDS = reshape(source=(/100000.0, 80000.0, 80000.0, 68000.0, 68000.0, 56000.0, 56000.0, 44000.0, 44000.0, 31000.0, 31000.0, 18000.0, 18000.0, 0.0/), shape=(/2, 7/))
real, public, parameter, dimension(MISR_N_CTH) :: MISR_CTH = 1000.0*(/0., 0.25, 0.75, 1.25, 1.75, 2.25, 2.75, 3.5, 4.5, 6., 8., 10., 12., 14.5, 16., 18./)
real, public, parameter, dimension(2,MISR_N_CTH) :: MISR_CTH_BNDS = 1000.0*reshape(source=(/-99.0, 0.0, 0.0, 0.5, 0.5, 1.0, 1.0, 1.5, 1.5, 2.0, 2.0, 2.5, 2.5, 3.0, 3.0, 4.0, 4.0, 5.0, 5.0, 7.0, 7.0, 9.0, 9.0, 11.0, 11.0, 13.0, 13.0, 15.0, 15.0, 17.0, 17.0, 99.0/), shape=(/2, MISR_N_CTH/))
character(len=120), public :: RADAR_SIM_LUT_DIRECTORY = './'
character(len=120), public :: RADAR_SIM_MICROPHYSICS_SCHEME_NAME = 'MMF_v3_single_moment'
logical, public :: RADAR_SIM_LOAD_scale_LUTs_flag = .false.
logical, public :: RADAR_SIM_UPDATE_scale_LUTs_flag = .false.
integer, public, parameter :: N_HYDRO = 9
integer, public :: HCLASS_TYPE(N_HYDRO)
integer, public :: HCLASS_PHASE(N_HYDRO)
real, public :: HCLASS_DMIN(N_HYDRO)
real, public :: HCLASS_DMAX(N_HYDRO)
real, public :: HCLASS_APM(N_HYDRO)
real, public :: HCLASS_BPM(N_HYDRO)
real, public :: HCLASS_RHO(N_HYDRO)
real, public :: HCLASS_P1(N_HYDRO)
real, public :: HCLASS_P2(N_HYDRO)
real, public :: HCLASS_P3(N_HYDRO)
real, public, dimension(N_HYDRO) :: N_ax
real, public, dimension(N_HYDRO) :: N_bx
real, public, dimension(N_HYDRO) :: alpha_x
real, public, dimension(N_HYDRO) :: c_x
real, public, dimension(N_HYDRO) :: d_x
real, public, dimension(N_HYDRO) :: g_x
real, public, dimension(N_HYDRO) :: a_x
real, public, dimension(N_HYDRO) :: b_x
real, public, dimension(N_HYDRO) :: gamma_1
real, public, dimension(N_HYDRO) :: gamma_2
real, public, dimension(N_HYDRO) :: gamma_3
real, public, dimension(N_HYDRO) :: gamma_4