micro_mg_utils.F90 File Reference

Data Types
interface	micro_mg_utils::mghydrometeorprops
interface	micro_mg_utils::mghydrometeorprops
interface	micro_mg_utils::rising_factorial
interface	micro_mg_utils::var_coef

Modules
module	micro_mg_utils

Functions/Subroutines
subroutine, public	micro_mg_utils::micro_mg_utils_init (kind, rh2o, cpair, tmelt_in, latvap, latice, dcs, ice_sed_ai, errstring)
type(mghydrometeorprops) function	micro_mg_utils::newmghydrometeorprops (rho, eff_dim, lambda_bounds, min_mean_mass)
pure real(r8) function	micro_mg_utils::rising_factorial_r8 (x, n)
pure real(r8) function	micro_mg_utils::rising_factorial_integer (x, n)
elemental real(r8) function	micro_mg_utils::calc_ab (t, qv, xxl)
elemental subroutine, public	micro_mg_utils::size_dist_param_liq (props, qcic, ncic, rho, pgam, lamc)
elemental subroutine, public	micro_mg_utils::size_dist_param_basic (props, qic, nic, lam, n0)
elemental subroutine, public	micro_mg_utils::size_dist_param_ice (props, dcst, qic, nic, lam, n0)
real(r8) elemental function, public	micro_mg_utils::avg_diameter (q, n, rho_air, rho_sub)
elemental real(r8) function	micro_mg_utils::var_coef_r8 (relvar, a)
elemental real(r8) function	micro_mg_utils::var_coef_integer (relvar, a)
elemental subroutine, public	micro_mg_utils::ice_deposition_sublimation (t, qv, qi, ni, icldm, rho, dv, qvl, qvi, dcst, dcs_tdep, berg, vap_dep, ice_sublim)
elemental subroutine, public	micro_mg_utils::kk2000_liq_autoconversion (microp_uniform, qcic, ncic, rho, relvar, mg_prc_coeff_fix, prc_coef1, prc_exp, prc_exp1, prc, nprc, nprc1)
elemental subroutine, public	micro_mg_utils::ice_autoconversion (t, qiic, lami, n0i, dcs, dcst, dcs_tdep, prci, nprci)
elemental subroutine, public	micro_mg_utils::immersion_freezing (microp_uniform, t, pgam, lamc, qcic, ncic, relvar, mnuccc, nnuccc)
pure subroutine, public	micro_mg_utils::contact_freezing (microp_uniform, t, p, rndst, nacon, pgam, lamc, qcic, ncic, relvar, mnucct, nnucct)
elemental subroutine, public	micro_mg_utils::snow_self_aggregation (t, rho, asn, rhosn, qsic, nsic, nsagg)
elemental subroutine, public	micro_mg_utils::accrete_cloud_water_snow (t, rho, asn, uns, mu, qcic, ncic, qsic, pgam, lamc, lams, n0s, psacws, npsacws)
elemental subroutine, public	micro_mg_utils::secondary_ice_production (t, psacws, msacwi, nsacwi)
elemental subroutine, public	micro_mg_utils::accrete_rain_snow (t, rho, umr, ums, unr, uns, qric, qsic, lamr, n0r, lams, n0s, pracs, npracs)
elemental subroutine, public	micro_mg_utils::heterogeneous_rain_freezing (t, qric, nric, lamr, mnuccr, nnuccr)
elemental subroutine, public	micro_mg_utils::accrete_cloud_water_rain (microp_uniform, qric, qcic, ncic, relvar, accre_enhan, pra, npra)
elemental subroutine, public	micro_mg_utils::self_collection_rain (rho, qric, nric, nragg)
elemental subroutine, public	micro_mg_utils::accrete_cloud_ice_snow (t, rho, asn, qiic, niic, qsic, lams, n0s, prai, nprai)
elemental subroutine, public	micro_mg_utils::evaporate_sublimate_precip (t, rho, dv, mu, sc, q, qvl, qvi, lcldm, precip_frac, arn, asn, qcic, qiic, qric, qsic, lamr, n0r, lams, n0s, pre, prds)
elemental subroutine, public	micro_mg_utils::bergeron_process_snow (t, rho, dv, mu, sc, qvl, qvi, asn, qcic, qsic, lams, n0s, bergs)
subroutine	micro_mg_utils::get_dcst_sc (temp, dcst)
pure real(r8) function	micro_mg_utils::no_limiter ()
pure logical function	micro_mg_utils::limiter_is_on (lim)

Variables
integer, parameter, public	micro_mg_utils::r8 = selected_real_kind(12)
integer, parameter, public	micro_mg_utils::i8 = selected_int_kind(18)
type(mghydrometeorprops), public	micro_mg_utils::mg_liq_props
type(mghydrometeorprops), public	micro_mg_utils::mg_ice_props
type(mghydrometeorprops), public	micro_mg_utils::mg_rain_props
type(mghydrometeorprops), public	micro_mg_utils::mg_snow_props
real(r8), parameter, public	micro_mg_utils::pi = 3.14159265358979323846_r8
real(r8), parameter, public	micro_mg_utils::omsm = 1._r8 - 1.e-5_r8
real(r8), public	micro_mg_utils::qsmall = huge(1.0_r8)
real(r8), parameter, public	micro_mg_utils::mincld = 0.0001_r8
real(r8), parameter, public	micro_mg_utils::rhosn = 250._r8
real(r8), parameter, public	micro_mg_utils::rhoi = 500._r8
real(r8), parameter, public	micro_mg_utils::rhow = 1000._r8
real(r8), parameter, public	micro_mg_utils::rhows = 917._r8
real(r8), parameter, public	micro_mg_utils::ac = 3.e7_r8
real(r8), parameter, public	micro_mg_utils::bc = 2._r8
real(r8), parameter, public	micro_mg_utils::as = 11.72_r8
real(r8), parameter, public	micro_mg_utils::bs = 0.41_r8
real(r8), public	micro_mg_utils::ai = huge(1.0_r8)
real(r8), parameter, public	micro_mg_utils::bi = 1._r8
real(r8), parameter, public	micro_mg_utils::ar = 841.99667_r8
real(r8), parameter, public	micro_mg_utils::br = 0.8_r8
real(r8), parameter, public	micro_mg_utils::mi0 = 4._r8/3._r8*pi*rhoi*(10.e-6_r8)**3
logical	micro_mg_utils::pergro_mods = .false.
integer(i8), parameter	micro_mg_utils::limiter_off = int(Z'7FF1111111111111', i8)
real(r8), parameter	micro_mg_utils::icsmall = 1.e-8_r8
real(r8), parameter	micro_mg_utils::dsph = 3._r8
real(r8), dimension(2), parameter	micro_mg_utils::lam_bnd_rain = 1._r8/[500.e-6_r8, 20.e-6_r8]
real(r8), dimension(2), parameter	micro_mg_utils::lam_bnd_snow = 1._r8/[2000.e-6_r8, 10.e-6_r8]
real(r8), parameter	micro_mg_utils::min_mean_mass_liq = 1.e-20_r8
real(r8), parameter	micro_mg_utils::min_mean_mass_ice = 1.e-20_r8
real(r8), parameter	micro_mg_utils::f1s = 0.86_r8
real(r8), parameter	micro_mg_utils::f2s = 0.28_r8
real(r8), parameter	micro_mg_utils::f1r = 0.78_r8
real(r8), parameter	micro_mg_utils::f2r = 0.308_r8
real(r8), parameter	micro_mg_utils::eii = 0.5_r8
real(r8), parameter	micro_mg_utils::bimm = 100._r8
real(r8), parameter	micro_mg_utils::aimm = 0.66_r8
real(r8), parameter	micro_mg_utils::droplet_mass_25um = 4._r8/3._r8*pi*rhow*(25.e-6_r8)**3
real(r8)	micro_mg_utils::rv
real(r8)	micro_mg_utils::cpp
real(r8)	micro_mg_utils::tmelt
real(r8)	micro_mg_utils::xxlv
real(r8)	micro_mg_utils::xlf
real(r8)	micro_mg_utils::xxls
real(r8)	micro_mg_utils::gamma_bs_plus3
real(r8)	micro_mg_utils::gamma_half_br_plus5
real(r8)	micro_mg_utils::gamma_half_bs_plus5