CAM
cldwat2m_macro.F90 File Reference

Modules

module  cldwat2m_macro
 

Functions/Subroutines

subroutine, public cldwat2m_macro::ini_macro (rhminl_opt_in, rhmini_opt_in)
 
subroutine, public cldwat2m_macro::mmacro_pcond (lchnk, ncol, dt, p, dp, T0, qv0, ql0, qi0, nl0, ni0, A_T, A_qv, A_ql, A_qi, A_nl, A_ni, C_T, C_qv, C_ql, C_qi, C_nl, C_ni, C_qlst, D_T, D_qv, D_ql, D_qi, D_nl, D_ni, a_cud, a_cu0, clrw_old, clri_old, landfrac, snowh, tke, qtl_flx, qti_flx, cmfr_det, qlr_det, qir_det, s_tendout, qv_tendout, ql_tendout, qi_tendout, nl_tendout, ni_tendout, qme, qvadj, qladj, qiadj, qllim, qilim, cld, al_st_star, ai_st_star, ql_st_star, qi_st_star, a_det_star, do_cldice)
 
subroutine cldwat2m_macro::rhcrit_calc (ncol, dp, T0, p, clrw_old, clri_old, tke, qtl_flx, qti_flx, cmfr_det, qlr_det, qir_det, rhmini_arr, rhminl_arr, rhminl_adj_land_arr, rhminh_arr, d_rhmin_liq_PBL, d_rhmin_ice_PBL, d_rhmin_liq_det, d_rhmin_ice_det)
 
subroutine cldwat2m_macro::instratus_condensate (lchnk, ncol, k, p_in, T0_in, qv0_in, ql0_in, qi0_in, ni0_in, a_dc_in, ql_dc_in, qi_dc_in, a_sc_in, ql_sc_in, qi_sc_in, landfrac, snowh, rhmini_in, rhminl_in, rhminl_adj_land_in, rhminh_in, T_out, qv_out, ql_out, qi_out, al_st_out, ai_st_out, ql_st_out, qi_st_out)
 
subroutine cldwat2m_macro::instratus_core (lchnk, icol, k, p, T0, qv0, ql0, qi0, a_dc, ql_dc, qi_dc, a_sc, ql_sc, qi_sc, ai_st, qcst_crit, Tmin, Tmax, landfrac, snowh, rhminl, rhminl_adj_land, rhminh, T, qv, ql, qi)
 
subroutine cldwat2m_macro::funcd_instratus (T, p, T0, qv0, ql0, qi0, fice0, muQ0, qc_nc0, a_dc, ql_dc, qi_dc, a_sc, ql_sc, qi_sc, ai_st, qcst_crit, landfrac, snowh, rhminl, rhminl_adj_land, rhminh, f, fg, qc_nc, fice, al_st)
 
subroutine cldwat2m_macro::gridmean_rh (lchnk, icol, k, p, T, qv, ql, qi, a_dc, ql_dc, qi_dc, a_sc, ql_sc, qi_sc, landfrac, snowh)
 
subroutine cldwat2m_macro::positive_moisture (ncol, dt, qvmin, qlmin, qimin, dp, qv, ql, qi, t, qvten, qlten, qiten, tten, do_cldice)
 
subroutine cldwat2m_macro::gaussj (a, n, np, b, m, mp)
 

Variables

character(len=16) cldwat2m_macro::shallow_scheme
 
integer cldwat2m_macro::i_rhminl
 
integer cldwat2m_macro::i_rhmini
 
real(r8), parameter cldwat2m_macro::tau_detw =100._r8
 
real(r8), parameter cldwat2m_macro::tau_deti = 1._r8
 
real(r8), parameter cldwat2m_macro::c_aniso = 1._r8
 
real(r8), parameter cldwat2m_macro::coef_ero = 1.e-6_r8
 
integer, parameter cldwat2m_macro::i_adet = 1
 
logical, parameter cldwat2m_macro::camstfrac = .false.
 
real(r8), parameter cldwat2m_macro::qlst_min = 2.e-5_r8
 
real(r8), parameter cldwat2m_macro::qlst_max = 3.e-3_r8
 
real(r8), parameter cldwat2m_macro::cc = 0.1_r8
 
integer, parameter cldwat2m_macro::niter = 2
 
real(r8), parameter cldwat2m_macro::ramda = 0.5_r8
 
real(r8), private cldwat2m_macro::rhminl_const
 
real(r8), private cldwat2m_macro::rhminl_adj_land_const
 
real(r8), private cldwat2m_macro::rhminh_const
 
real(r8), private cldwat2m_macro::premit
 
real(r8), private cldwat2m_macro::premib
 
real(r8), parameter cldwat2m_macro::qsmall = 1.e-18_r8