|
| subroutine, public | mp_wsm6::mp_wsm6_init (den0, denr, dens, cl, cpv, hail_opt, errmsg, errflg) |
| |
| subroutine, public | mp_wsm6::mp_wsm6_finalize (errmsg, errflg) |
| |
| subroutine, public | mp_wsm6::mp_wsm6_run (t, q, qc, qi, qr, qs, qg, den, p, delz, delt, g, cpd, cpv, rd, rv, t0c, ep1, ep2, qmin, xls, xlv0, xlf0, den0, denr, cliq, cice, psat, rain, rainncv, sr, snow, snowncv, graupel, graupelncv, rainprod2d, evapprod2d, its, ite, kts, kte, errmsg, errflg) |
| |
| real(kind=kind_phys) function | mp_wsm6::rgmma (x) |
| |
| real(kind=kind_phys) function | mp_wsm6::fpvs (t, ice, rd, rv, cvap, cliq, cice, hvap, hsub, psat, t0c) |
| |
| subroutine | mp_wsm6::slope_wsm6 (qrs, den, denfac, t, rslope, rslopeb, rslope2, rslope3, vt, its, ite, kts, kte) |
| |
| subroutine | mp_wsm6::slope_rain (qrs, den, denfac, t, rslope, rslopeb, rslope2, rslope3, vt, its, ite, kts, kte) |
| |
| subroutine | mp_wsm6::slope_snow (qrs, den, denfac, t, rslope, rslopeb, rslope2, rslope3, vt, its, ite, kts, kte) |
| |
| subroutine | mp_wsm6::slope_graup (qrs, den, denfac, t, rslope, rslopeb, rslope2, rslope3, vt, its, ite, kts, kte) |
| |
| subroutine | mp_wsm6::nislfv_rain_plm (im, km, denl, denfacl, tkl, dzl, wwl, rql, precip, dt, id, iter) |
| |
| subroutine | mp_wsm6::nislfv_rain_plm6 (im, km, denl, denfacl, tkl, dzl, wwl, rql, rql2, precip1, precip2, dt, id, iter) |
| |
| subroutine, public | mp_wsm6::refl10cm_wsm6 (qv1d, qr1d, qs1d, qg1d, t1d, p1d, dBZ, kts, kte) |
| |
|
| integer, parameter | mp_wsm6::kind_phys = c_double |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::dtcldcr = 120. |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::n0r = 8.e6 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::avtr = 841.9 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::bvtr = 0.8 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::r0 = .8e-5 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::peaut = .55 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::xncr = 3.e8 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::xmyu = 1.718e-5 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::avts = 11.72 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::bvts = .41 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::lamdarmax = 8.e4 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::lamdasmax = 1.e5 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::dicon = 11.9 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::dimax = 500.e-6 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::pfrz1 = 100. |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::pfrz2 = 0.66 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::qcrmin = 1.e-9 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::eacrc = 1.0 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::dens = 100.0 |
| |
| real(kind=kind_phys), parameter, private | mp_wsm6::qs0 = 6.e-4 |
| |
| real(kind=kind_phys), parameter, public | mp_wsm6::n0smax = 1.e11 |
| |
| real(kind=kind_phys), parameter, public | mp_wsm6::n0s = 2.e6 |
| |
| real(kind=kind_phys), parameter, public | mp_wsm6::alpha = .12 |
| |
| real(kind=kind_phys), save | mp_wsm6::qc0 |
| |
| real(kind=kind_phys), save | mp_wsm6::qck1 |
| |
| real(kind=kind_phys), save | mp_wsm6::bvtr1 |
| |
| real(kind=kind_phys), save | mp_wsm6::bvtr2 |
| |
| real(kind=kind_phys), save | mp_wsm6::bvtr3 |
| |
| real(kind=kind_phys), save | mp_wsm6::bvtr4 |
| |
| real(kind=kind_phys), save | mp_wsm6::g1pbr |
| |
| real(kind=kind_phys), save | mp_wsm6::g3pbr |
| |
| real(kind=kind_phys), save | mp_wsm6::g4pbr |
| |
| real(kind=kind_phys), save | mp_wsm6::g5pbro2 |
| |
| real(kind=kind_phys), save | mp_wsm6::pvtr |
| |
| real(kind=kind_phys), save | mp_wsm6::eacrr |
| |
| real(kind=kind_phys), save | mp_wsm6::pacrr |
| |
| real(kind=kind_phys), save | mp_wsm6::bvtr6 |
| |
| real(kind=kind_phys), save | mp_wsm6::g6pbr |
| |
| real(kind=kind_phys), save | mp_wsm6::precr1 |
| |
| real(kind=kind_phys), save | mp_wsm6::precr2 |
| |
| real(kind=kind_phys), save | mp_wsm6::roqimax |
| |
| real(kind=kind_phys), save | mp_wsm6::bvts1 |
| |
| real(kind=kind_phys), save | mp_wsm6::bvts2 |
| |
| real(kind=kind_phys), save | mp_wsm6::bvts3 |
| |
| real(kind=kind_phys), save | mp_wsm6::bvts4 |
| |
| real(kind=kind_phys), save | mp_wsm6::g1pbs |
| |
| real(kind=kind_phys), save | mp_wsm6::g3pbs |
| |
| real(kind=kind_phys), save | mp_wsm6::g4pbs |
| |
| real(kind=kind_phys), save | mp_wsm6::n0g |
| |
| real(kind=kind_phys), save | mp_wsm6::avtg |
| |
| real(kind=kind_phys), save | mp_wsm6::bvtg |
| |
| real(kind=kind_phys), save | mp_wsm6::deng |
| |
| real(kind=kind_phys), save | mp_wsm6::lamdagmax |
| |
| real(kind=kind_phys), save | mp_wsm6::g5pbso2 |
| |
| real(kind=kind_phys), save | mp_wsm6::pvts |
| |
| real(kind=kind_phys), save | mp_wsm6::pacrs |
| |
| real(kind=kind_phys), save | mp_wsm6::precs1 |
| |
| real(kind=kind_phys), save | mp_wsm6::precs2 |
| |
| real(kind=kind_phys), save | mp_wsm6::pidn0r |
| |
| real(kind=kind_phys), save | mp_wsm6::xlv1 |
| |
| real(kind=kind_phys), save | mp_wsm6::pacrc |
| |
| real(kind=kind_phys), save | mp_wsm6::pi |
| |
| real(kind=kind_phys), save | mp_wsm6::bvtg1 |
| |
| real(kind=kind_phys), save | mp_wsm6::bvtg2 |
| |
| real(kind=kind_phys), save | mp_wsm6::bvtg3 |
| |
| real(kind=kind_phys), save | mp_wsm6::bvtg4 |
| |
| real(kind=kind_phys), save | mp_wsm6::g1pbg |
| |
| real(kind=kind_phys), save | mp_wsm6::g3pbg |
| |
| real(kind=kind_phys), save | mp_wsm6::g4pbg |
| |
| real(kind=kind_phys), save | mp_wsm6::g5pbgo2 |
| |
| real(kind=kind_phys), save | mp_wsm6::pvtg |
| |
| real(kind=kind_phys), save | mp_wsm6::pacrg |
| |
| real(kind=kind_phys), save | mp_wsm6::precg1 |
| |
| real(kind=kind_phys), save | mp_wsm6::precg2 |
| |
| real(kind=kind_phys), save | mp_wsm6::pidn0g |
| |
| real(kind=kind_phys), save | mp_wsm6::rslopermax |
| |
| real(kind=kind_phys), save | mp_wsm6::rslopesmax |
| |
| real(kind=kind_phys), save | mp_wsm6::rslopegmax |
| |
| real(kind=kind_phys), save | mp_wsm6::rsloperbmax |
| |
| real(kind=kind_phys), save | mp_wsm6::rslopesbmax |
| |
| real(kind=kind_phys), save | mp_wsm6::rslopegbmax |
| |
| real(kind=kind_phys), save | mp_wsm6::rsloper2max |
| |
| real(kind=kind_phys), save | mp_wsm6::rslopes2max |
| |
| real(kind=kind_phys), save | mp_wsm6::rslopeg2max |
| |
| real(kind=kind_phys), save | mp_wsm6::rsloper3max |
| |
| real(kind=kind_phys), save | mp_wsm6::rslopes3max |
| |
| real(kind=kind_phys), save | mp_wsm6::rslopeg3max |
| |
| real(kind=kind_phys), save, public | mp_wsm6::pidn0s |
| |
| real(kind=kind_phys), save, public | mp_wsm6::pidnc |
| |
1.9.1