CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches
micro_mg2_0 Module Reference

Functions/Subroutines

subroutine, public micro_mg_init (kind, gravit, rair, rh2o, cpair, eps, tmelt_in, latvap, latice, rhmini_in, micro_mg_dcs, ts_auto, mg_qcvar, microp_uniform_in, do_cldice_in, use_hetfrz_classnuc_in, micro_mg_precip_frac_method_in, micro_mg_berg_eff_factor_in, allow_sed_supersat_in, do_sb_physics_in, do_ice_gmao_in, do_liq_liu_in, nccons_in, nicons_in, ncnst_in, ninst_in)
 This subroutine calculates.
 
subroutine, public micro_mg_tend (mgncol, nlev, deltatin, t, q, qcn, qin, ncn, nin, qrn, qsn, nrn, nsn, relvar, accre_enhan_i, p, pdel, cldn, liqcldf, icecldf, qsatfac, qcsinksum_rate1ord, naai, npccnin, rndst, nacon, tlat, qvlat, qctend, qitend, nctend, nitend, qrtend, qstend, nrtend, nstend, effc, effc_fn, effi, sadice, sadsnow, prect, preci, nevapr, evapsnow, am_evp_st, prain, prodsnow, cmeout, deffi, pgamrad, lamcrad, qsout, dsout, lflx, iflx, rflx, sflx, qrout, reff_rain, reff_snow, qcsevap, qisevap, qvres, cmeitot, vtrmc, vtrmi, umr, ums, qcsedten, qisedten, qrsedten, qssedten, pratot, prctot, mnuccctot, mnuccttot, msacwitot, psacwstot, bergstot, bergtot, melttot, homotot, qcrestot, prcitot, praitot, qirestot, mnuccrtot, pracstot, meltsdttot, frzrdttot, mnuccdtot, nrout, nsout, refl, arefl, areflz, frefl, csrfl, acsrfl, fcsrfl, rercld, ncai, ncal, qrout2, qsout2, nrout2, nsout2, drout2, dsout2, freqs, freqr, nfice, qcrat, prer_evap, xlat, xlon, lprnt, iccn, nlball)
 This subroutine is the main microphysics routine to be called each time step.
 
subroutine calc_rercld (lamr, n0r, lamc, pgam, qric, qcic, ncic, rercld, mgncol, nlev)
 This subroutine.
 

Variables

logical nccons
 
logical nicons
 
real(r8) ncnst
 
real(r8) ninst
 
real(r8), parameter csmin = -30._r8
 
real(r8), parameter csmax = 26._r8
 
real(r8), parameter mindbz = -99._r8
 
real(r8), parameter minrefl = 1.26e-10_r8
 
real(r8) dcs
 
real(r8) ts_au
 
real(r8) ts_au_min
 
real(r8), public qcvar
 
real(r8), parameter mi0l_min = 4._r8/3._r8*pi*rhow*(4.e-6_r8)**3
 
real(r8), parameter zero =0.0_r8
 
real(r8), parameter one =1.0_r8
 
real(r8), parameter two =2.0_r8
 
real(r8), parameter three =3.0_r8
 
real(r8), parameter four =4.0_r8
 
real(r8), parameter five =5.0_r8
 
real(r8), parameter six =6._r8
 
real(r8), parameter half =0.5_r8
 
real(r8), parameter ten =10.0_r8
 
real(r8), parameter forty =40.0_r8
 
real(r8), parameter oneo6 =one/six
 
real(r8) g
 
real(r8) r
 
real(r8) rv
 
real(r8) cpp
 
real(r8) tmelt
 
real(r8) xxlv
 
real(r8) xlf
 
real(r8) xxls
 
real(r8) rhmini
 
logical microp_uniform
 
logical do_cldice
 
logical use_hetfrz_classnuc
 
real(r8) rhosu
 
real(r8) icenuct
 
real(r8) snowmelt
 
real(r8) rainfrze
 
real(r8) gamma_br_plus1
 
real(r8) gamma_bs_plus1
 
real(r8) gamma_bi_plus1
 
real(r8) gamma_bj_plus1
 
real(r8) gamma_br_plus4
 
real(r8) gamma_bs_plus4
 
real(r8) gamma_bi_plus4
 
real(r8) gamma_bj_plus4
 
real(r8) xxlv_squared
 
real(r8) xxls_squared
 
real(r8) omeps
 
real(r8) epsqs
 
character(len=16) micro_mg_precip_frac_method
 
real(r8) micro_mg_berg_eff_factor
 
logical allow_sed_supersat
 
logical do_sb_physics
 
logical do_ice_gmao
 
logical do_liq_liu