module_bfmicrophysics.f File Reference

This file contains some subroutines used in microphysics. More...

Modules
module	module_microphysics
	This module contains some subroutines used in microphysics.

Functions/Subroutines
subroutine	module_microphysics::gsmconst (DTPG, mype, first)
	This subroutine initializes constants & lookup tables for microphysics. More...
subroutine	module_microphysics::my_growth_rates (DTPH)
	This subrouine sets up lookup table for calculating initial ice crystal growth. More...
subroutine	module_microphysics::ice_lookup
	This subroutine creates lookup tables for ice processes. More...
subroutine	module_microphysics::rain_lookup
	This subroutine creates lookup tables for rain processes. More...
subroutine	module_microphysics::gsmcolumn (ARAING, ASNOWG, DTPG, I_index, J_index, LSFC, P_col, QI_col, QR_col, QV_col, QW_col, RimeF_col, T_col, THICK_col, WC_col, LM, RHC_col, XNCW, FLGmin, PRINT_diag, psfc)
real function	condense (PP, QW, RHgrd, TK, WV)
real function	deposit (PP, RHgrd, Tdum, WVdum)
subroutine	module_microphysics::rsipath (im, ix, ix2, levs, prsl, prsi, t, q, clw , f_ice, f_rain, f_rime, flgmin , cwatp, cicep, rainp, snowp , recwat, rerain, resnow, lprnt, ipr)
subroutine	module_microphysics::rsipath2 (plyr, plvl, tlyr, qlyr, qcwat, qcice, qrain, rrime, IM, LEVS, iflip, flgmin, cwatp, cicep, rainp, snowp, recwat, rerain, resnow, snden )
	This program is a modified version of Ferrier's original "rshipath" subprogram. It computes layer's cloud liquid, ice, rain, and snow water condensate path and the partical effective radius for liquid droplet, rain drop, and snow flake. More...

Variables
real, private	module_microphysics::abfr
real, private	module_microphysics::cbfr
real, private	module_microphysics::ciacw
real, private	module_microphysics::ciacr
real, private	module_microphysics::c_n0r0
real, private	module_microphysics::cn0r0
real, private	module_microphysics::cn0r_dmrmin
real, private	module_microphysics::cn0r_dmrmax
real, private	module_microphysics::cracw
real, private	module_microphysics::craut
real, private	module_microphysics::esw0
real, private	module_microphysics::qautx
real, private	module_microphysics::rfmax
real, private	module_microphysics::rqr_dr1
real, private	module_microphysics::rqr_dr2
real, private	module_microphysics::rqr_dr3
real, private	module_microphysics::rqr_drmin
real, private	module_microphysics::rqr_drmax
real, private	module_microphysics::rr_drmin
real, private	module_microphysics::rr_dr1
real, private	module_microphysics::rr_dr2
real, private	module_microphysics::rr_dr3
real, private	module_microphysics::rr_drmax
integer, private	module_microphysics::mic_step
integer, parameter, private	module_microphysics::my_t1 =1
integer, parameter, private	module_microphysics::my_t2 =35
real, dimension(my_t1:my_t2), private	module_microphysics::my_growth
real, parameter, private	module_microphysics::dmimin =.05e-3
real, parameter, private	module_microphysics::dmimax =1.e-3
real, parameter, private	module_microphysics::xmimin =1.e6*DMImin
real, parameter, private	module_microphysics::xmimax =1.e6*DMImax
real, parameter, private	module_microphysics::deldmi =1.e-6
integer, parameter, private	module_microphysics::mdimin =XMImin
integer, parameter, private	module_microphysics::mdimax =XMImax
real, dimension(mdimin:mdimax), private	module_microphysics::accri
real, dimension(mdimin:mdimax), private	module_microphysics::massi
real, dimension(mdimin:mdimax), private	module_microphysics::sdens
real, dimension(mdimin:mdimax), private	module_microphysics::vsnowi
real, dimension(mdimin:mdimax), private	module_microphysics::venti1
real, dimension(mdimin:mdimax), private	module_microphysics::venti2
real, parameter, private	module_microphysics::dmrmin =.05e-3
real, parameter, private	module_microphysics::dmrmax =.45e-3
real, parameter, private	module_microphysics::xmrmin =1.e6*DMRmin
real, parameter, private	module_microphysics::xmrmax =1.e6*DMRmax
real, parameter, private	module_microphysics::deldmr =1.e-6
real, parameter, private	module_microphysics::nlimin =100.
integer, parameter, private	module_microphysics::mdrmin =XMRmin
integer, parameter, private	module_microphysics::mdrmax =XMRmax
integer, parameter, private	module_microphysics::indexsmin =100
real, parameter, private	module_microphysics::rerainmin =1.5*XMRmin
real, dimension(mdrmin:mdrmax), private	module_microphysics::accrr
real, dimension(mdrmin:mdrmax), private	module_microphysics::massr
real, dimension(mdrmin:mdrmax), private	module_microphysics::rrate
real, dimension(mdrmin:mdrmax), private	module_microphysics::vrain
real, dimension(mdrmin:mdrmax), private	module_microphysics::ventr1
real, dimension(mdrmin:mdrmax), private	module_microphysics::ventr2
integer, parameter, private	module_microphysics::nrime =40
real, dimension(2:9, 0:nrime), private	module_microphysics::vel_rf
integer, parameter	module_microphysics::itlo =-60
integer, parameter	module_microphysics::ithi =40
integer, dimension(itlo:ithi, 4)	module_microphysics::nstats
real, dimension(itlo:ithi, 5)	module_microphysics::qmax
real, dimension(itlo:ithi, 22)	module_microphysics::qtot
real, parameter, private	module_microphysics::thom =T_ICE
real, parameter, private	module_microphysics::tnw =50.
real, parameter, private	module_microphysics::toler =1.0E-20