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