module_mp_tempo_params Module Reference

Data Types
type	ty_tempo_cfg

Functions/Subroutines
subroutine	mp_tempo_params_init ()

Variables
logical, parameter	original_thompson = .true.
type(ty_tempo_cfg)	configs
real(wp)	pi = 3.1415926536
real(wp)	lsub = 2.834e6
real(wp)	lvap0 = 2.5e6
real(wp)	lfus
real(wp)	olfus
real(wp)	rv = 461.5
real(wp)	orv
real(wp)	r = 287.04
real(wp)	roverrv = 0.622
real(wp)	cp2 = 1004.0
real(wp), parameter	r1 = 1.e-12
real(wp), parameter	r2 = 1.e-6
real(wp), parameter	eps = 1.e-15
logical	merra2_aerosol_aware = .false.
logical	sedi_semi = .false.
logical, parameter	build_hail_aware_table = .true.
logical	using_hail_aware_table = .false.
integer, parameter	nrhg = 9
integer, parameter	nrhg1 = 1
integer	dimnrhg
integer, parameter	idx_bg1 = 6
real(wp), parameter	rho_w2 = 1000.0
real(wp), parameter	rho_i = 890.0
real(wp), dimension(nrhg), parameter	rho_g = (/50., 100., 200., 300., 400., 500., 600., 700., 800./)
integer, parameter	nu_c_max = 15
integer, parameter	nu_c_min = 2
real(wp), parameter	nu_c_scale = 1000.e6
real(wp), parameter	mu_r = 0.0
real(wp), parameter	mu_s = 0.6357
real(wp), parameter	mu_g = 0.0
real(wp), parameter	mu_i = 0.0
real(wp)	am_r
real(wp), parameter	bm_r = 3.0
real(wp), parameter	am_s = 0.069
real(wp), parameter	bm_s = 2.0
real(wp), dimension(nrhg)	am_g
real(wp), parameter	bm_g = 3.0
real(wp)	am_i
real(wp), parameter	bm_i = 3.0
real(wp), parameter	av_r = 4854.0
real(wp), parameter	bv_r = 1.0
real(wp), parameter	av_s = 40.0
real(wp), parameter	bv_s = 0.55
real(wp), parameter	fv_s = 100.0
real(wp), parameter	av_g_old = 442.0
real(wp), parameter	bv_g_old = 0.89
real(wp), dimension(nrhg)	av_g = (/45.9173813, 67.0867386, 98.0158463, 122.353378, 143.204224, 161.794724, 178.762115, 194.488785, 209.225876/)
real(wp), dimension(nrhg)	bv_g = (/0.640961647, 0.640961647, 0.640961647, 0.640961647, 0.640961647, 0.640961647, 0.640961647, 0.640961647, 0.640961647/)
real(wp), parameter	c_cube = 0.5
real(wp), parameter	c_sqrd = 0.15
real(wp), parameter	sc = 0.632
real(wp)	sc3
real(wp), parameter	bv_i = 1.0
real(wp), parameter	bv_c = 2.0
real(wp), parameter	xm0i = 1.e-12
real(wp), parameter	d0c = 1.e-6
real(wp), parameter	d0r = 50.e-6
real(wp), parameter	d0s = 300.e-6
real(wp), parameter	d0g = 350.e-6
real(wp)	d0i
real(wp)	xm0s
real(wp)	xm0g
integer, parameter	nbins = 100
integer, parameter	nbc = nbins
integer, parameter	nbr = nbins
integer, parameter	nbs = nbins
integer, parameter	nbi = nbins
integer, parameter	nbg = nbins
integer, parameter	ntb_i = 64
integer, parameter	ntb_i1 = 55
integer, parameter	ntb_c = 37
integer, parameter	ntb_t = 9
integer, parameter	ntb_g1 = 37
integer, parameter	ntb_s = 28
integer, parameter	ntb_g = 28
integer, parameter	ntb_r = 37
integer, parameter	ntb_r1 = 37
integer, parameter	ntb_t1 = 45
integer, parameter	ntb_in = 55
integer, parameter	ntb_arc = 7
integer, parameter	ntb_arw = 9
integer, parameter	ntb_art = 7
integer, parameter	ntb_arr = 5
integer, parameter	ntb_ark = 4
integer	nic1
integer	nic2
integer	nii2
integer	nii3
integer	nir2
integer	nir3
integer	nis2
integer	nig2
integer	nig3
integer	niin2
real(dp), dimension(nbc)	dc
real(dp), dimension(nbc)	dtc
real(dp), dimension(nbi)	di
real(dp), dimension(nbi)	dti
real(dp), dimension(nbr)	dr
real(dp), dimension(nbr)	dtr
real(dp), dimension(nbs)	ds
real(dp), dimension(nbs)	dts
real(dp), dimension(nbg)	dg
real(dp), dimension(nbg)	dtg
real(dp), dimension(nbc)	t_nc
real(wp), dimension(ntb_c), parameter	r_c = (/1.e-6,2.e-6,3.e-6,4.e-6,5.e-6,6.e-6,7.e-6,8.e-6,9.e-6, 1.e-5,2.e-5,3.e-5,4.e-5,5.e-5,6.e-5,7.e-5,8.e-5,9.e-5, 1.e-4,2.e-4,3.e-4,4.e-4,5.e-4,6.e-4,7.e-4,8.e-4,9.e-4, 1.e-3,2.e-3,3.e-3,4.e-3,5.e-3,6.e-3,7.e-3,8.e-3,9.e-3, 1.e-2/)
real(wp), dimension(ntb_i), parameter	r_i = (/1.e-10,2.e-10,3.e-10,4.e-10, 5.e-10,6.e-10,7.e-10,8.e-10,9.e-10, 1.e-9,2.e-9,3.e-9,4.e-9,5.e-9,6.e-9,7.e-9,8.e-9,9.e-9, 1.e-8,2.e-8,3.e-8,4.e-8,5.e-8,6.e-8,7.e-8,8.e-8,9.e-8, 1.e-7,2.e-7,3.e-7,4.e-7,5.e-7,6.e-7,7.e-7,8.e-7,9.e-7, 1.e-6,2.e-6,3.e-6,4.e-6,5.e-6,6.e-6,7.e-6,8.e-6,9.e-6, 1.e-5,2.e-5,3.e-5,4.e-5,5.e-5,6.e-5,7.e-5,8.e-5,9.e-5, 1.e-4,2.e-4,3.e-4,4.e-4,5.e-4,6.e-4,7.e-4,8.e-4,9.e-4, 1.e-3/)
real(wp), dimension(ntb_r), parameter	r_r = (/1.e-6,2.e-6,3.e-6,4.e-6,5.e-6,6.e-6,7.e-6,8.e-6,9.e-6, 1.e-5,2.e-5,3.e-5,4.e-5,5.e-5,6.e-5,7.e-5,8.e-5,9.e-5, 1.e-4,2.e-4,3.e-4,4.e-4,5.e-4,6.e-4,7.e-4,8.e-4,9.e-4, 1.e-3,2.e-3,3.e-3,4.e-3,5.e-3,6.e-3,7.e-3,8.e-3,9.e-3, 1.e-2/)
real(wp), dimension(ntb_g1), parameter	n0g_exp = (/1.e2,2.e2,3.e2,4.e2,5.e2,6.e2,7.e2,8.e2,9.e2, 1.e3,2.e3,3.e3,4.e3,5.e3,6.e3,7.e3,8.e3,9.e3, 1.e4,2.e4,3.e4,4.e4,5.e4,6.e4,7.e4,8.e4,9.e4, 1.e5,2.e5,3.e5,4.e5,5.e5,6.e5,7.e5,8.e5,9.e5, 1.e6/)
real(wp), dimension(ntb_g), parameter	r_g = (/1.e-5,2.e-5,3.e-5,4.e-5,5.e-5,6.e-5,7.e-5,8.e-5,9.e-5, 1.e-4,2.e-4,3.e-4,4.e-4,5.e-4,6.e-4,7.e-4,8.e-4,9.e-4, 1.e-3,2.e-3,3.e-3,4.e-3,5.e-3,6.e-3,7.e-3,8.e-3,9.e-3, 1.e-2/)
real(wp), dimension(ntb_s), parameter	r_s = (/1.e-5,2.e-5,3.e-5,4.e-5,5.e-5,6.e-5,7.e-5,8.e-5,9.e-5, 1.e-4,2.e-4,3.e-4,4.e-4,5.e-4,6.e-4,7.e-4,8.e-4,9.e-4, 1.e-3,2.e-3,3.e-3,4.e-3,5.e-3,6.e-3,7.e-3,8.e-3,9.e-3, 1.e-2/)
real(wp), dimension(ntb_r1), parameter	n0r_exp = (/1.e6,2.e6,3.e6,4.e6,5.e6,6.e6,7.e6,8.e6,9.e6, 1.e7,2.e7,3.e7,4.e7,5.e7,6.e7,7.e7,8.e7,9.e7, 1.e8,2.e8,3.e8,4.e8,5.e8,6.e8,7.e8,8.e8,9.e8, 1.e9,2.e9,3.e9,4.e9,5.e9,6.e9,7.e9,8.e9,9.e9, 1.e10/)
real(wp), dimension(ntb_i1), parameter	nt_i = (/1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0, 1.e1,2.e1,3.e1,4.e1,5.e1,6.e1,7.e1,8.e1,9.e1, 1.e2,2.e2,3.e2,4.e2,5.e2,6.e2,7.e2,8.e2,9.e2, 1.e3,2.e3,3.e3,4.e3,5.e3,6.e3,7.e3,8.e3,9.e3, 1.e4,2.e4,3.e4,4.e4,5.e4,6.e4,7.e4,8.e4,9.e4, 1.e5,2.e5,3.e5,4.e5,5.e5,6.e5,7.e5,8.e5,9.e5, 1.e6/)
real(wp), dimension(ntb_in), parameter	nt_in = (/1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0, 1.e1,2.e1,3.e1,4.e1,5.e1,6.e1,7.e1,8.e1,9.e1, 1.e2,2.e2,3.e2,4.e2,5.e2,6.e2,7.e2,8.e2,9.e2, 1.e3,2.e3,3.e3,4.e3,5.e3,6.e3,7.e3,8.e3,9.e3, 1.e4,2.e4,3.e4,4.e4,5.e4,6.e4,7.e4,8.e4,9.e4, 1.e5,2.e5,3.e5,4.e5,5.e5,6.e5,7.e5,8.e5,9.e5, 1.e6/)
real(dp), dimension(:,:,:,:,:), allocatable	tcg_racg
real(dp), dimension(:,:,:,:,:), allocatable	tmr_racg
real(dp), dimension(:,:,:,:,:), allocatable	tcr_gacr
real(dp), dimension(:,:,:,:,:), allocatable	tnr_racg
real(dp), dimension(:,:,:,:,:), allocatable	tnr_gacr
real(dp), dimension(:,:,:,:), allocatable	tcs_racs1
real(dp), dimension(:,:,:,:), allocatable	tmr_racs1
real(dp), dimension(:,:,:,:), allocatable	tcs_racs2
real(dp), dimension(:,:,:,:), allocatable	tmr_racs2
real(dp), dimension(:,:,:,:), allocatable	tcr_sacr1
real(dp), dimension(:,:,:,:), allocatable	tms_sacr1
real(dp), dimension(:,:,:,:), allocatable	tcr_sacr2
real(dp), dimension(:,:,:,:), allocatable	tms_sacr2
real(dp), dimension(:,:,:,:), allocatable	tnr_racs1
real(dp), dimension(:,:,:,:), allocatable	tnr_racs2
real(dp), dimension(:,:,:,:), allocatable	tnr_sacr1
real(dp), dimension(:,:,:,:), allocatable	tnr_sacr2
real(dp), dimension(:,:,:,:), allocatable	tpi_qcfz
real(dp), dimension(:,:,:,:), allocatable	tni_qcfz
real(dp), dimension(:,:,:,:), allocatable	tpi_qrfz
real(dp), dimension(:,:,:,:), allocatable	tpg_qrfz
real(dp), dimension(:,:,:,:), allocatable	tni_qrfz
real(dp), dimension(:,:,:,:), allocatable	tnr_qrfz
real(dp), dimension(:,:), allocatable	tps_iaus
real(dp), dimension(:,:), allocatable	tni_iaus
real(dp), dimension(:,:), allocatable	tpi_ide
real(dp), dimension(:,:), allocatable	t_efrw
real(dp), dimension(:,:), allocatable	t_efsw
real(dp), dimension(:,:,:), allocatable	tnr_rev
real(dp), dimension(:,:,:), allocatable	tpc_wev
real(dp), dimension(:,:,:), allocatable	tnc_wev
real(sp), dimension(:,:,:,:,:), allocatable	tnccn_act
real(wp), dimension(5, 15)	cce
real(wp), dimension(5, 15)	ccg
real(wp), dimension(15)	ocg1
real(wp), dimension(15)	ocg2
real(wp), dimension(7)	cie
real(wp), dimension(7)	cig
real(wp)	oig1
real(wp)	oig2
real(wp)	obmi
real(wp), dimension(13)	cre
real(wp), dimension(13)	crg
real(wp)	ore1
real(wp)	org1
real(wp)	org2
real(wp)	org3
real(wp)	obmr
real(wp)	oams
real(wp)	obms
real(wp)	ocms
real(wp), dimension(12, nrhg)	cge
real(wp), dimension(12, nrhg)	cgg
real(wp), dimension(nrhg)	oamg
real(wp), dimension(nrhg)	ocmg
real, dimension(17)	cse
real, dimension(17)	csg
real(wp)	oge1
real(wp)	ogg1
real(wp)	ogg2
real(wp)	ogg3
real(wp)	obmg
real(wp)	t1_qr_qc
real(wp)	t1_qr_qi
real(wp)	t2_qr_qi
real(wp)	t1_qs_qc
real(wp)	t1_qs_qi
real(wp)	t1_qr_ev
real(wp)	t2_qr_ev
real(wp)	t1_qg_qc
real(wp)	t2_qg_sd
real(wp)	t2_qg_me
real(wp)	t1_qs_sd
real(wp)	t2_qs_sd
real(wp)	t1_qs_me
real(wp)	t2_qs_me
real(wp)	t1_qg_sd
real(wp)	t1_qg_me
real(wp), parameter	nt_c_o = 50.e6
real(wp), parameter	nt_c_l = 100.e6
real(wp), parameter	nt_c_max = 1999.e6
real(wp)	nt_c
real(wp)	mu_c
real(wp)	mu_c_o
real(wp)	mu_c_l
real(wp)	min_qv = 1.e-10
real(wp), parameter	demott_nuc_ssati = 0.15
real(wp), parameter	nwfa_default = 11.1e6
real(wp), parameter	nain1 = 0.5e6
real(wp), parameter	nifa_default = naIN1*0.01
real(wp), parameter	aero_max = 9999.e6
real(dp), parameter	max_ni = 4999.e3
real(wp), parameter	icenuc_max = 1000.e3
real(wp), parameter	rime_threshold = 5.0
real(wp), parameter	rime_conversion = 0.75
real(wp), parameter	fv_r = 195.0
real(wp)	rho_s2 = 100.0
real(wp), parameter	av_c = 0.316946e8
logical, parameter	iiwarm = .false.
logical, parameter	dustyice = .true.
logical, parameter	homogice = .true.
integer, parameter	ifdry = 0
real(wp)	t_0 = 273.15
real(wp), parameter	nain0 = 1.5e6
real(wp), parameter	naccn0 = 300.0e6
real(wp), parameter	naccn1 = 50.0e6
real(wp), parameter	kap0 = 490.6
real(wp), parameter	kap1 = 17.46
real(wp), parameter	lam0 = 20.78
real(wp), parameter	lam1 = 3.29
real(dp), parameter	gonv_min = 1.e2
real(dp), parameter	gonv_max = 1.e6
real(wp), parameter	a_coeff = 0.47244157
real(wp), parameter	b_coeff = 0.54698726
real(wp), parameter	av_i = 1493.9
real(wp), parameter	ef_si = 0.05
real(wp), parameter	ef_rs = 0.95
real(wp), parameter	ef_rg = 0.75
real(wp), parameter	ef_ri = 0.95
real(wp), parameter	tno = 5.0
real(wp), parameter	ato = 0.304
real(wp), parameter	rho_not = 101325.0 / (287.05*298.0)
real(wp), parameter	hgfr = 235.16
real(wp)	r_uni = 8.314
real(dp)	k_b = 1.38065e-23
real(dp)	m_w = 18.01528e-3
real(dp)	m_a = 28.96e-3
real(dp)	n_avo = 6.022e23
real(dp)	ma_w
real(wp)	ar_volume
real(wp), dimension(ntb_arc), parameter	ta_na = (/10.0, 31.6, 100.0, 316.0, 1000.0, 3160.0, 10000.0/)
real(wp), dimension(ntb_arw), parameter	ta_ww = (/0.01, 0.0316, 0.1, 0.316, 1.0, 3.16, 10.0, 31.6, 100.0/)
real(wp), dimension(ntb_art), parameter	ta_tk = (/243.15, 253.15, 263.15, 273.15, 283.15, 293.15, 303.15/)
real(wp), dimension(ntb_arr), parameter	ta_ra = (/0.01, 0.02, 0.04, 0.08, 0.16/)
real(wp), dimension(ntb_ark), parameter	ta_ka = (/0.2, 0.4, 0.6, 0.8/)
real(wp), dimension(10), parameter	sa = (/ 5.065339, -0.062659, -3.032362, 0.029469, -0.000285, 0.31255, 0.000204, 0.003199, 0.0, -0.015952/)
real(wp), dimension(10), parameter	sb = (/ 0.476221, -0.015896, 0.165977, 0.007468, -0.000141, 0.060366, 0.000079, 0.000594, 0.0, -0.003577/)
real(wp), dimension(ntb_t), parameter	tc = (/-0.01, -5., -10., -15., -20., -25., -30., -35., -40./)
character(len= *), parameter	thomp_table_file = 'thompson_tables_precomp_v2.sl'
character(len= *), parameter	qr_acr_qg_file = 'MP_TEMPO_QRacrQG.dat'
character(len= *), parameter	qr_acr_qg_hailaware_file = 'MP_TEMPO_HAILAWARE_QRacrQG.dat'
character(len= *), parameter	qr_acr_qs_file = 'MP_TEMPO_QRacrQS.dat'
character(len= *), parameter	freeze_h2o_file = 'MP_TEMPO_freezeH2O.dat'
real(wp), parameter	re_qc_min = 2.50e-6
real(wp), parameter	re_qc_max = 50.0e-6
real(wp), parameter	re_qi_min = 2.50e-6
real(wp), parameter	re_qi_max = 125.0e-6
real(wp), parameter	re_qs_min = 5.00e-6
real(wp), parameter	re_qs_max = 999.0e-6
type(mpi_comm)	mpi_communicator
logical	thompson_table_writer
integer, parameter	nc_ml_input = 7
integer, parameter	nc_ml_nodes = 24
integer, parameter	nc_ml_output = 1
integer, parameter	nr_ml_input = 7
integer, parameter	nr_ml_nodes = 24
integer, parameter	nr_ml_output = 1
real(wp), dimension(nc_ml_input), parameter	nc_ml_trans_mean = (/0.000184549468444656, 2.82753321185558e-05, 2.28805854616895e-07, 6.58700882098648e-05, 84142.0407488623, 275.273903970569, 0.104461576672394/)
real(wp), dimension(nc_ml_input), parameter	nc_ml_trans_var = (/5.05620015304623e-08, 1.45515502768552e-08, 1.94012756342739e-11, 4.30246362061344e-08, 140316880.172549, 71.5124250320993, 0.265261175700759/)
real(wp), dimension(nc_ml_input *nc_ml_nodes), parameter	nc_ml_w00 = (/2.224199, -1.393835e-32, 2.528453, -0.2449199, 2.625664, 0.107049, 2.239675, -0.441944, 0.5798664, -3.495472, -0.09473098, 1.767392, -0.722639, -0.6872597, 0.7640355, 0.2941241, 1.413414e-32, -4.027426, -0.0885509, -0.1930209, 2.027927, 2.729985, 3.869902, -0.7086006, 0.3556898, -1.545999e-32, 0.002439348, 0.07797334, 0.3065982, 0.1250733, -0.003919218, 0.02658273, 0.04677797, 0.001224378, -0.0450751, 0.54966, -0.09625612, -0.06435507, -0.06188935, 0.6316406, 1.438075e-32, 0.001260835, -0.6693181, -0.0726619, 0.313943, 0.08460538, 0.4238361, -0.1105529, -0.02594946, -1.571175e-32, 0.02000831, 0.0254104, 0.1613512, -0.1140745, 0.07543574, 0.06550872, -0.00693186, -0.02249624, -0.1207949, 0.087761, 0.003812449, -0.002278045, 0.0314725, 0.0824788, -1.607022e-32, -1.805405, 0.1899621, -0.07471617, 0.1923102, 0.3078783, 0.1380734, -0.9808061, 0.07569794, -1.458374e-32, 0.2184116, 0.09525398, -0.009037461, -1.004012, -0.4529723, -0.03389523, -0.5127279, 0.001164416, -0.3503374, -0.5206463, -0.6791449, -3.765049, -0.1630133, 0.2867654, -1.423354e-32, -0.000892627, -0.2104853, -0.9603029, 0.003026641, -0.02990868, 0.006338483, -0.1191584, 0.01307624, 1.314499e-32, -0.1628825, -0.08426163, 0.01635959, 0.0214172, 0.05406244, -0.07126028, 0.3039913, 0.005295561, -0.3454399, -0.005133086, 0.0850361, 0.03916358, -0.07233618, -0.6070899, 1.435512e-32, -0.003379478, 0.2966512, -0.1559436, 0.09629949, -0.0112761, -0.09785055, -0.02918944, -3.064122, 1.534848e-32, -0.0893663, 0.07659288, -1.701944, 0.9777426, 0.794859, 0.07797011, 1.247827, -0.01696694, 0.0106477, 1.002509, 1.440111, 0.3025449, -0.7814463, -0.3589398, 1.450329e-32, 0.006022078, -0.75178, -0.04612495, -2.27526, 0.2128798, -1.837864, 0.1171825, 0.05044287, 1.60034e-32, -0.0266461, 1.557734, 0.06955704, -0.01070863, -0.05760999, 1.493531, -0.08257127, -0.0246272, -0.7703797, -0.04289152, -0.1313693, 0.02611825, 0.5722927, 0.2976797, -1.465193e-32, 0.006705693, -0.1825065, 0.09151408, 0.001714205, -0.0241104, -0.03077858, 0.119318/)
real(wp), dimension(nc_ml_nodes), parameter	nc_ml_w01 = (/2.05212,-1.614832e-05,1.0335,-0.7872604,1.696272,0.8682101,-1.100169, 0.5193954,-0.5440724,-23.27656,0.4010488,1.077693,-1.816235,8.917124,0.4402028, -0.2852043,-0.01313276,-70.52726,0.3490098,0.4163963,-1.772994,1.331957,-2.861476,0.7307689/)
real(wp), dimension(nc_ml_nodes), parameter	nc_ml_b00 = (/1.411423, -0.009188521, 2.194735, -0.1570402, 2.083004, -0.02242614, 1.345345, 0.3308931, -0.2128314, -2.824152, 0.06516771, 1.614252, -1.168782, -1.600044, 2.485356, -0.02002283, -0.6876131, -3.362524, 1.999535, -0.1876818, 0.8209553, 2.305562, 2.347924, -0.2078552/)
real(wp), dimension(nc_ml_output), parameter	nc_ml_b01 = (/1.966172/)