CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches
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_cfgconfigs
 
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(nrhgam_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(nrhgav_g = (/45.9173813, 67.0867386, 98.0158463, 122.353378, 143.204224, 161.794724, 178.762115, 194.488785, 209.225876/)
 
real(wp), dimension(nrhgbv_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(nbcdc
 
real(dp), dimension(nbcdtc
 
real(dp), dimension(nbidi
 
real(dp), dimension(nbidti
 
real(dp), dimension(nbrdr
 
real(dp), dimension(nbrdtr
 
real(dp), dimension(nbsds
 
real(dp), dimension(nbsdts
 
real(dp), dimension(nbgdg
 
real(dp), dimension(nbgdtg
 
real(dp), dimension(nbct_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, nrhgcge
 
real(wp), dimension(12, nrhgcgg
 
real(wp), dimension(nrhgoamg
 
real(wp), dimension(nrhgocmg
 
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/)