CAM
|
Functions/Subroutines | |
subroutine, public | unicon_init (xlv_in, cp_in, xlf_in, zvir_in, r_in, g_in) |
subroutine, public | compute_unicon (mix, mkx, iend, ncnst, dt, ps0_in, zs0_in, p0_in, z0_in, dp0_in, dpdry0_in, t0_in, qv0_in, ql0_in, qi0_in, tr0_in, u0_in, v0_in, ast0_in, tke0_in, bprod0_in, kpblh_in, pblh_in, went_in, qflx_in, shflx_in, taux_in, tauy_in, aflx_in, landfrac_in, sgh30_in, am_evp_st_in, evprain_st_in, evpsnow_st_in, cush_inout, cushavg_inout, cuorg_inout, awk_PBL_inout, delta_thl_PBL_inout, delta_qt_PBL_inout, delta_u_PBL_inout, delta_v_PBL_inout, delta_tr_PBL_inout, cu_cmfum_out, cu_cmfr_inout, cu_thlr_inout, cu_qtr_inout, cu_ur_inout, cu_vr_inout, cu_qlr_inout, cu_qir_inout, cu_trr_inout, cu_cmfrd_out, cu_thlrd_out, cu_qtrd_out, cu_urd_out, cu_vrd_out, cu_qlrd_out, cu_qird_out, cu_trrd_out, am_u_out, qlm_u_out, qim_u_out, am_d_out, qlm_d_out, qim_d_out, cmf_u_out, slflx_out, qtflx_out, qvten_out, qlten_out, qiten_out, trten_out, sten_out, uten_out, vten_out, qrten_out, qsten_out, rqc_l_out, rqc_i_out, rqc_out, rnc_l_out, rnc_i_out, rliq_out, precip_out, snow_out, evapc_out, cnt_out, cnb_out, cmf_det_out, ql_det_out, qi_det_out, lchnk) |
Variables | |
real(r8) | xlv |
real(r8) | xlf |
real(r8) | xls |
real(r8) | cp |
real(r8) | zvir |
real(r8) | r |
real(r8) | g |
real(r8) | p00 |
real(r8) | rovcp |
integer, parameter | nseg = 1 |
integer, parameter | inorm = 2 |
integer, parameter | iprd_prep = 5 |
integer, parameter | ievp_prep = 1 |
integer, parameter | nacc = 1 |
integer, parameter | niter = 1 |
logical, parameter | dbsort_con = .false. |
integer, parameter | ithv_mine = 1 |
real(r8), parameter | mu_mix = 0.5_r8 |
real(r8), parameter | mu_top = 0.5_r8 |
real(r8), parameter | mu_area = 0.5_r8 |
real(r8), parameter | offset_mine = 0._r8 |
real(r8), parameter | epsz_dn = 0.e-4_r8 |
real(r8), parameter | delz_dn = 0.e-4_r8 |
real(r8), parameter | eps_wk = 0.e-5_r8 |
real(r8), parameter | del_wk = 0.e-5_r8 |
integer, parameter | i_budget_coldpool = 6 |
integer, parameter | i_energy_coldpool = 1 |
real(r8), parameter | eps_wk0 = 0.e-5_r8 |
real(r8), parameter | del_wk0 = 0.e-5_r8 |
real(r8), parameter | b1 = 15.0_r8 |
integer, parameter | int_del_wk = 0 |
real(r8), parameter | c_del_wk = 0._r8 |
integer, parameter | icudist_tail = 0 |
real(r8), parameter | au_base_min_ocn = 0.045_r8 |
real(r8), parameter | au_base_max_ocn = 0.045_r8 |
real(r8), parameter | au_base_min_lnd = 0.03_r8 |
real(r8), parameter | au_base_max_lnd = 0.03_r8 |
integer, parameter | iau_base_ocn = 1 |
integer, parameter | iau_base_lnd = 1 |
real(r8), parameter | cadj_area_ocn = 3._r8 |
real(r8), parameter | cadj_area_lnd = 3._r8 |
integer, parameter | icridis = 1 |
real(r8), parameter | rlc = 0.15_r8 |
real(r8), parameter | cridis_in = 1.e8_r8 |
integer, parameter | i_downloading = 0 |
real(r8), parameter | vfall_rain = 1.e1_r8 |
real(r8), parameter | vfall_snow = 1.e1_r8 |
real(r8), parameter | prepminpblh_org = 0.0_r8 |
logical, parameter | iorg_adv = .true. |
logical, parameter | orgfeedback_off = .false. |
real(r8), parameter | norm_sgh = 1.e3_r8 |
real(r8), parameter | a_oro_max = 0._r8 |
real(r8), parameter | awk_pbl_min = 0.05_r8 |
real(r8), parameter | cdrag = 1.5e-3_r8 |
real(r8), parameter | delta_thv_wc = -0.1_r8 |
real(r8), parameter | kw_omega = 1.414_r8 |
real(r8), parameter | kstar = 0.1_r8 |
integer, parameter | iorg_ent = 1 |
integer, parameter | iorg_detrain = 1 |
integer, parameter | i_detrain = 1 |
real(r8), parameter | fac_org_ent = 1._r8 |
real(r8), parameter | fac_org_rad = 1._r8 |
real(r8), parameter | orp = 1._r8 |
real(r8), parameter | ro_min_ocn = 100._r8 |
real(r8), parameter | ro_max_ocn = 4000._r8 |
real(r8), parameter | sigmar_min_ocn = 100._r8 |
real(r8), parameter | sigmar_max_ocn = 100._r8 |
real(r8), parameter | ro_min_lnd = 100._r8 |
real(r8), parameter | ro_max_lnd =10000._r8 |
real(r8), parameter | sigmar_min_lnd = 100._r8 |
real(r8), parameter | sigmar_max_lnd = 100._r8 |
real(r8), parameter | ro_eps0 = 25._r8 |
real(r8), parameter | eta2 = 0.1_r8 |
real(r8), parameter | beta2 = 1.0_r8 |
real(r8), parameter | beta2_st = 0.0_r8 |
real(r8), parameter | sigma_wo = 0.0_r8 |
real(r8), parameter | kw_min_ocn = 0.35_r8 |
real(r8), parameter | kw_max_ocn = 0.35_r8 |
real(r8), parameter | kw_min_lnd = 0.35_r8 |
real(r8), parameter | kw_max_lnd = 0.35_r8 |
real(r8), parameter | pgfc_up = 0.9_r8 |
real(r8), parameter | pgfc_dn = 0.9_r8 |
integer, parameter | mclimit = 1 |
real(r8), parameter | caer = 0.15_r8 |
real(r8), parameter | criqc_lnd = 6.5e-4_r8 |
real(r8), parameter | criqc_ocn = 6.5e-4_r8 |
real(r8), parameter | c0_ac_lnd = 1.0e-3_r8 |
real(r8), parameter | c0_ac_ocn = 1.0e-3_r8 |
real(r8), parameter | kevp_rain_dn_lnd = 2.e-5_r8 |
real(r8), parameter | kevp_snow_dn_lnd = 2.e-5_r8 |
real(r8), parameter | kevp_rain_lnd = 2.e-5_r8 |
real(r8), parameter | kevp_snow_lnd = 2.e-5_r8 |
real(r8), parameter | kevp_rain_dn_ocn = 2.e-5_r8 |
real(r8), parameter | kevp_snow_dn_ocn = 2.e-5_r8 |
real(r8), parameter | kevp_rain_ocn = 2.e-5_r8 |
real(r8), parameter | kevp_snow_ocn = 2.e-5_r8 |
real(r8), parameter | c0 = 0.2_r8 |
integer, parameter | i_eps0 = 1 |
real(r8), parameter | cevpeps0 = 1.0_r8 |
integer, parameter | i_dnmixing = 0 |
real(r8), parameter | rbuoy_min = 0.33_r8 |
real(r8), parameter | rbuoy_max = 1.00_r8 |
real(r8), parameter | rdrag = 2.0_r8 |
real(r8), parameter | rjet = 0.0_r8 |
real(r8), parameter | r_buo = 100._r8 |
real(r8), parameter | xc_min = 0._r8 |
real(r8), parameter | xc_max = 1._r8 |
real(r8), parameter | droprad_liq = 10.e-6_r8 |
real(r8), parameter | droprad_ice = 85.e-6_r8 |
real(r8), parameter | density_liq = 997._r8 |
real(r8), parameter | density_ice = 500._r8 |
real(r8), parameter | droprad_rain = 10.e-6_r8 |
real(r8), parameter | droprad_snow = 85.e-6_r8 |
real(r8), parameter | density_rain = 1000._r8 |
real(r8), parameter | density_snow = 250._r8 |
real(r8), parameter | epsz0_max = 0.05_r8 |
integer, parameter | exp_cmf = 1 |
real(r8), parameter | alpha_max = 2._r8 |
real(r8), parameter | cmfmin = 1.e-5_r8 |
real(r8), parameter | au_max = 1.e-1_r8 |
real(r8), parameter | wumin = 1.e-1_r8 |
real(r8), parameter | wumax = 20._r8 |
real(r8), parameter | wdmin = 1.e-1_r8 |
real(r8), parameter | nonzero = 1.e-20_r8 |
real(r8), parameter | unity = 0.9999_r8 |
real(r8), parameter | thv_ref = 300._r8 |
integer, parameter | iup_par = 4 |
integer, parameter | idn_par = 1 |
integer, parameter | islope_on_thlqttr = 1 |
integer, parameter | islope_on_uv = 1 |
integer, parameter | iflux_env = 1 |
integer, parameter | kiss = 0 |
real(r8), parameter | sigfac = 1.0_r8 |
subroutine, public unicon::compute_unicon | ( | integer, intent(in) | mix, |
integer, intent(in) | mkx, | ||
integer, intent(in) | iend, | ||
integer, intent(in) | ncnst, | ||
real(r8), intent(in) | dt, | ||
real(r8), dimension(mix,0:mkx), intent(in) | ps0_in, | ||
real(r8), dimension(mix,0:mkx), intent(in) | zs0_in, | ||
real(r8), dimension(mix,mkx), intent(in) | p0_in, | ||
real(r8), dimension(mix,mkx), intent(in) | z0_in, | ||
real(r8), dimension(mix,mkx), intent(in) | dp0_in, | ||
real(r8), dimension(mix,mkx), intent(in) | dpdry0_in, | ||
real(r8), dimension(mix,mkx), intent(in) | t0_in, | ||
real(r8), dimension(mix,mkx), intent(in) | qv0_in, | ||
real(r8), dimension(mix,mkx), intent(in) | ql0_in, | ||
real(r8), dimension(mix,mkx), intent(in) | qi0_in, | ||
real(r8), dimension(mix,mkx,ncnst), intent(in) | tr0_in, | ||
real(r8), dimension(mix,mkx), intent(in) | u0_in, | ||
real(r8), dimension(mix,mkx), intent(in) | v0_in, | ||
real(r8), dimension(mix,mkx), intent(in) | ast0_in, | ||
real(r8), dimension(mix,0:mkx), intent(in) | tke0_in, | ||
real(r8), dimension(mix,0:mkx), intent(in) | bprod0_in, | ||
integer(i4), dimension(mix), intent(in) | kpblh_in, | ||
real(r8), dimension(mix), intent(in) | pblh_in, | ||
real(r8), dimension(mix), intent(in) | went_in, | ||
real(r8), dimension(mix), intent(in) | qflx_in, | ||
real(r8), dimension(mix), intent(in) | shflx_in, | ||
real(r8), dimension(mix), intent(in) | taux_in, | ||
real(r8), dimension(mix), intent(in) | tauy_in, | ||
real(r8), dimension(mix,ncnst), intent(in) | aflx_in, | ||
real(r8), dimension(mix), intent(in) | landfrac_in, | ||
real(r8), dimension(mix), intent(in) | sgh30_in, | ||
real(r8), dimension(mix,mkx), intent(in) | am_evp_st_in, | ||
real(r8), dimension(mix,mkx), intent(in) | evprain_st_in, | ||
real(r8), dimension(mix,mkx), intent(in) | evpsnow_st_in, | ||
real(r8), dimension(mix), intent(inout) | cush_inout, | ||
real(r8), dimension(mix), intent(inout) | cushavg_inout, | ||
real(r8), dimension(mix), intent(inout) | cuorg_inout, | ||
real(r8), dimension(mix), intent(inout) | awk_PBL_inout, | ||
real(r8), dimension(mix), intent(inout) | delta_thl_PBL_inout, | ||
real(r8), dimension(mix), intent(inout) | delta_qt_PBL_inout, | ||
real(r8), dimension(mix), intent(inout) | delta_u_PBL_inout, | ||
real(r8), dimension(mix), intent(inout) | delta_v_PBL_inout, | ||
real(r8), dimension(mix,ncnst), intent(inout) | delta_tr_PBL_inout, | ||
real(r8), dimension(mix,mkx), intent(out) | cu_cmfum_out, | ||
real(r8), dimension(mix,mkx), intent(inout) | cu_cmfr_inout, | ||
real(r8), dimension(mix,mkx), intent(inout) | cu_thlr_inout, | ||
real(r8), dimension(mix,mkx), intent(inout) | cu_qtr_inout, | ||
real(r8), dimension(mix,mkx), intent(inout) | cu_ur_inout, | ||
real(r8), dimension(mix,mkx), intent(inout) | cu_vr_inout, | ||
real(r8), dimension(mix,mkx), intent(inout) | cu_qlr_inout, | ||
real(r8), dimension(mix,mkx), intent(inout) | cu_qir_inout, | ||
real(r8), dimension(mix,mkx,ncnst), intent(inout) | cu_trr_inout, | ||
real(r8), dimension(mix,mkx), intent(out) | cu_cmfrd_out, | ||
real(r8), dimension(mix,mkx), intent(out) | cu_thlrd_out, | ||
real(r8), dimension(mix,mkx), intent(out) | cu_qtrd_out, | ||
real(r8), dimension(mix,mkx), intent(out) | cu_urd_out, | ||
real(r8), dimension(mix,mkx), intent(out) | cu_vrd_out, | ||
real(r8), dimension(mix,mkx), intent(out) | cu_qlrd_out, | ||
real(r8), dimension(mix,mkx), intent(out) | cu_qird_out, | ||
real(r8), dimension(mix,mkx,ncnst), intent(out) | cu_trrd_out, | ||
real(r8), dimension(mix,mkx), intent(out) | am_u_out, | ||
real(r8), dimension(mix,mkx), intent(out) | qlm_u_out, | ||
real(r8), dimension(mix,mkx), intent(out) | qim_u_out, | ||
real(r8), dimension(mix,mkx), intent(out) | am_d_out, | ||
real(r8), dimension(mix,mkx), intent(out) | qlm_d_out, | ||
real(r8), dimension(mix,mkx), intent(out) | qim_d_out, | ||
real(r8), dimension(mix,0:mkx), intent(out) | cmf_u_out, | ||
real(r8), dimension(mix,0:mkx), intent(out) | slflx_out, | ||
real(r8), dimension(mix,0:mkx), intent(out) | qtflx_out, | ||
real(r8), dimension(mix,mkx), intent(out) | qvten_out, | ||
real(r8), dimension(mix,mkx), intent(out) | qlten_out, | ||
real(r8), dimension(mix,mkx), intent(out) | qiten_out, | ||
real(r8), dimension(mix,mkx,ncnst), intent(out) | trten_out, | ||
real(r8), dimension(mix,mkx), intent(out) | sten_out, | ||
real(r8), dimension(mix,mkx), intent(out) | uten_out, | ||
real(r8), dimension(mix,mkx), intent(out) | vten_out, | ||
real(r8), dimension(mix,mkx), intent(out) | qrten_out, | ||
real(r8), dimension(mix,mkx), intent(out) | qsten_out, | ||
real(r8), dimension(mix,mkx), intent(out) | rqc_l_out, | ||
real(r8), dimension(mix,mkx), intent(out) | rqc_i_out, | ||
real(r8), dimension(mix,mkx), intent(out) | rqc_out, | ||
real(r8), dimension(mix,mkx), intent(out) | rnc_l_out, | ||
real(r8), dimension(mix,mkx), intent(out) | rnc_i_out, | ||
real(r8), dimension(mix), intent(out) | rliq_out, | ||
real(r8), dimension(mix), intent(out) | precip_out, | ||
real(r8), dimension(mix), intent(out) | snow_out, | ||
real(r8), dimension(mix,mkx), intent(out) | evapc_out, | ||
real(r8), dimension(mix), intent(out) | cnt_out, | ||
real(r8), dimension(mix), intent(out) | cnb_out, | ||
real(r8), dimension(mix,mkx), intent(out) | cmf_det_out, | ||
real(r8), dimension(mix,mkx), intent(out) | ql_det_out, | ||
real(r8), dimension(mix,mkx), intent(out) | qi_det_out, | ||
integer, intent(in) | lchnk | ||
) |
subroutine, public unicon::unicon_init | ( | real(r8), intent(in) | xlv_in, |
real(r8), intent(in) | cp_in, | ||
real(r8), intent(in) | xlf_in, | ||
real(r8), intent(in) | zvir_in, | ||
real(r8), intent(in) | r_in, | ||
real(r8), intent(in) | g_in | ||
) |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |
|
private |