Morrison-Gettelman MP cldwat2m_micro Module

This module contains CAM interface for MG microphysics. More...

Detailed Description

Author

Andrew Gettelman, Hugh Morrison.

e-mail: morri.nosp@m.son@.nosp@m.ucar..nosp@m.edu, andre.nosp@m.w@uc.nosp@m.ar.ed.nosp@m.u

Contributions from: Xiaohong Liu and Steve Ghan

December 2005-May 2010

Description in: Morrison and Gettelman, 2008 [130] Gettelman et al., 2010 [67]

Collaboration diagram for Morrison-Gettelman MP cldwat2m_micro Module:

Modules
module	cldwat2m_micro

Functions/Subroutines
subroutine, public	cldwat2m_micro::ini_micro (Dcs_, QCVAR_, ts_auto_ice_)
	This subroutine initializes constants for MG microphysics. More...
subroutine, public	cldwat2m_micro::mmicro_pcond (lchnk, ncol, deltatin, tn, ttend, pcols, pver, qn, qtend, cwtend, qc, qi, nc, ni, fprcp, qrn, qsnw, nrn, nsnw, p, pdel, cldn, liqcldf, icecldf, cldo, pint, rpdel, zm, rate1ord_cw2pr_st, naai, npccnin, rndst, nacon, rhdfda, rhu00, fice, tlat, qvlat, qctend, qitend, nctend, nitend, effc, effc_fn, effi, prect, preci, nevapr, evapsnow, prain, prodsnow, cmeout, deffi, pgamrad, lamcrad, qsout2, dsout2, qrout2, drout2, qcsevap, qisevap, qvres, cmeiout, vtrmc, vtrmi, qcsedten, qisedten, prao, prco, mnuccco, mnuccto, msacwio, psacwso, bergso, bergo, melto, homoo, qcreso, prcio, praio, qireso, mnuccro, pracso, meltsdt, frzrdt, ncal, ncai, mnuccdo, nnuccto, nsout2, nrout2, ncnst, ninst, nimm, miu_disp, nsoot, rnsoot, ui_scale, dcrit, nnuccdo, nnuccco, nsacwio, nsubio, nprcio, npraio, npccno, npsacwso, nsubco, nprao, nprc1o, tlataux, nbincontactdust, lprint, xlat, xlon, rhc)
	This subroutine is the microphysics routine for each timestep goes here... More...
subroutine	cldwat2m_micro::findsp1 (lchnk, ncol, q, t, p, tsp, qsp)
	This subroutine finds the wet bulb temperature for a given t and q in a longitude hight section. More...
subroutine	cldwat2m_micro::findsp1_water (lchnk, ncol, q, t, p, tsp, qsp)
	This subroutine finds the wet bulb temperature for a given t and q in a longitude height section. More...
function, public	cldwat2m_micro::derf (x)
	error function in single precision More...
real(r8) function	cldwat2m_micro::mui_hemp (T)
	This subroutine. More...
real(r8) function	cldwat2m_micro::mui_hemp_l (lambda)
	This function. More...
real(r8) function	cldwat2m_micro::gamma_incomp (muice, x)
	This function. More...
real(r8) function, public	cldwat2m_micro::gamma (X)

Variables
real(r8), parameter	cldwat2m_micro::one =1.0_r8
real(r8), parameter	cldwat2m_micro::two =2.0_r8
real(r8), parameter	cldwat2m_micro::three =3.0_r8
real(r8), parameter	cldwat2m_micro::four =4.0_r8
real(r8), parameter	cldwat2m_micro::five =5.0_r8
real(r8), parameter	cldwat2m_micro::half =0.5_r8
real(r8), parameter	cldwat2m_micro::oneb3 =one/three
real(r8), parameter	cldwat2m_micro::onebcp =one/cpair
integer, parameter	cldwat2m_micro::iulog = 6
real(r8), parameter	cldwat2m_micro::rhmini = 0.80_r8
real(r8), parameter	cldwat2m_micro::rhmaxi = 1.1_r8
real(r8), parameter	cldwat2m_micro::mwh2o = 18.016
real(r8), parameter	cldwat2m_micro::rhoh2o = 1.000e3
logical	cldwat2m_micro::ip = .true.
real(r8)	cldwat2m_micro::tmn = 173.16_r8
real(r8)	cldwat2m_micro::tmx = 375.16_r8
real(r8)	cldwat2m_micro::trice = 35.00_r8
real(r8), parameter	cldwat2m_micro::gravit = MAPL_GRAV
real(r8), parameter	cldwat2m_micro::rair = MAPL_RGAS
real(r8), parameter	cldwat2m_micro::tmelt = MAPL_TICE
real(r8), parameter	cldwat2m_micro::cpair = MAPL_CP
real(r8), parameter	cldwat2m_micro::rh2o = MAPL_RVAP
real(r8), parameter	cldwat2m_micro::r_universal = MAPL_RUNIV
real(r8), parameter	cldwat2m_micro::latvap = MAPL_ALHL
real(r8), parameter	cldwat2m_micro::latice = MAPL_ALHF
real(r8), parameter	cldwat2m_micro::epsilon = MAPL_VIREPS
logical, public	cldwat2m_micro::liu_in = .false.
real(r8), private	cldwat2m_micro::g
real(r8), private	cldwat2m_micro::ginv
real(r8), private	cldwat2m_micro::r
real(r8), private	cldwat2m_micro::rv
real(r8), private	cldwat2m_micro::cpp
real(r8), private	cldwat2m_micro::rhow
real(r8), private	cldwat2m_micro::pirhow
real(r8), private	cldwat2m_micro::xxlv
real(r8), private	cldwat2m_micro::xlf
real(r8), private	cldwat2m_micro::xlfocp
real(r8), private	cldwat2m_micro::cpoxlf
real(r8), private	cldwat2m_micro::xxls
real(r8), private	cldwat2m_micro::rhosn
real(r8), private	cldwat2m_micro::pirhosn
real(r8), private	cldwat2m_micro::rhoi
real(r8), private	cldwat2m_micro::pirhoi
real(r8), private	cldwat2m_micro::ac
real(r8), private	cldwat2m_micro::bc
real(r8), private	cldwat2m_micro::as
real(r8), private	cldwat2m_micro::bs
real(r8), private	cldwat2m_micro::ai
real(r8), private	cldwat2m_micro::bi
real(r8), private	cldwat2m_micro::ar
real(r8), private	cldwat2m_micro::br
real(r8), private	cldwat2m_micro::ci
real(r8), private	cldwat2m_micro::di
real(r8), private	cldwat2m_micro::oneodi
real(r8), private	cldwat2m_micro::cs
real(r8), private	cldwat2m_micro::ds
real(r8), private	cldwat2m_micro::cr
real(r8), private	cldwat2m_micro::dr
real(r8), private	cldwat2m_micro::f1s
real(r8), private	cldwat2m_micro::f2s
real(r8), private	cldwat2m_micro::eii
real(r8), private	cldwat2m_micro::ecc
real(r8), private	cldwat2m_micro::ecr
real(r8), private	cldwat2m_micro::f1r
real(r8), private	cldwat2m_micro::f2r
real(r8), private	cldwat2m_micro::dcs
real(r8), private	cldwat2m_micro::ts_auto_ice
real(r8), private	cldwat2m_micro::qsmall
real(r8), private	cldwat2m_micro::qvsmall
real(r8), private	cldwat2m_micro::bimm
real(r8), private	cldwat2m_micro::aimm
real(r8), private	cldwat2m_micro::rhosu
real(r8), private	cldwat2m_micro::mi0
real(r8), private	cldwat2m_micro::rin
real(r8), private	cldwat2m_micro::qcvar
real(r8), private	cldwat2m_micro::cons1
real(r8), private	cldwat2m_micro::cons2
real(r8), private	cldwat2m_micro::cons3
real(r8), private	cldwat2m_micro::cons4
real(r8), private	cldwat2m_micro::cons5
real(r8), private	cldwat2m_micro::lammini
real(r8), private	cldwat2m_micro::lammaxi
real(r8), private	cldwat2m_micro::lamminr
real(r8), private	cldwat2m_micro::lammaxr
real(r8), parameter, private	cldwat2m_micro::tmax_fsnow = tmelt
	parameters for snow/rain fraction for convective clouds More...
real(r8), private	cldwat2m_micro::tt0
real(r8), private	cldwat2m_micro::csmin
real(r8), private	cldwat2m_micro::csmax
real(r8), private	cldwat2m_micro::minrefl
real(r8), private	cldwat2m_micro::mindbz