modal_aero_amicphys.F90 File Reference

Data Types
type	modal_aero_amicphys::misc_vars_aa_type

Modules
module	modal_aero_amicphys

Macros
#define	CAM_VERSION_IS_ACME

Functions/Subroutines
subroutine, public	modal_aero_amicphys::modal_aero_amicphys_intr (mdo_gasaerexch, mdo_rename, mdo_newnuc, mdo_coag, lchnk, ncol, nstep, loffset, deltat, latndx, lonndx, t, pmid, pdel, zm, pblh, qv, cld, q, qqcw, q_pregaschem, q_precldchem, qqcw_precldchem, dgncur_a, dgncur_awet, wetdens_host, qaerwat)
subroutine	modal_aero_amicphys::mam_amicphys_1gridcell (do_cond, do_rename, do_newnuc, do_coag, nstep, lchnk, i, k, latndx, lonndx, lund, loffset, deltat, nsubarea, ncldy_subarea, iscldy_subarea, afracsub, temp, pmid, pdel, zmid, pblh, relhumsub, dgn_a, dgn_awet, wetdens, qsub1, qsub2, qqcwsub2, qsub3, qqcwsub3, qaerwatsub3, qsub4, qqcwsub4, qaerwatsub4, qsub_tendaa, qqcwsub_tendaa, misc_vars_aa)
subroutine	modal_aero_amicphys::mam_amicphys_1subarea_cloudy (do_cond, do_rename, do_newnuc, do_coag, nstep, lchnk, i, k, latndx, lonndx, lund, loffset, deltat, jsub, nsubarea, iscldy_subarea, afracsub, temp, pmid, pdel, zmid, pblh, relhum, dgn_a, dgn_awet, wetdens, qgas1, qgas3, qgas4, qgas_delaa, qnum3, qnum4, qnum_delaa, qaer2, qaer3, qaer4, qaer_delaa, qwtr3, qwtr4, qnumcw3, qnumcw4, qnumcw_delaa, qaercw2, qaercw3, qaercw4, qaercw_delaa, misc_vars_aa_sub)
subroutine	modal_aero_amicphys::mam_amicphys_1subarea_clear (do_cond, do_rename, do_newnuc, do_coag, nstep, lchnk, i, k, latndx, lonndx, lund, loffset, deltat, jsub, nsubarea, iscldy_subarea, afracsub, temp, pmid, pdel, zmid, pblh, relhum, dgn_a, dgn_awet, wetdens, qgas1, qgas3, qgas4, qgas_delaa, qnum3, qnum4, qnum_delaa, qaer3, qaer4, qaer_delaa, qwtr3, qwtr4, misc_vars_aa_sub)
subroutine	modal_aero_amicphys::mam_gasaerexch_1subarea (nstep, lchnk, i, k, jsub, jtsubstep, ntsubstep, latndx, lonndx, lund, dtsubstep, temp, pmid, aircon, n_mode, qgas_cur, qgas_avg, qgas_netprod_otrproc, qaer_cur, qnum_cur, qwtr_cur, dgn_a, dgn_awet, wetdens, uptkaer, uptkrate_h2so4)
subroutine	modal_aero_amicphys::mam_soaexch_1subarea (nstep, lchnk, i, k, jsub, latndx, lonndx, lund, dtsubstep, temp, pmid, aircon, n_mode, qgas_cur, qgas_avg, qaer_cur, qnum_cur, qwtr_cur, uptkaer)
subroutine	modal_aero_amicphys::mam_rename_1subarea (nstep, lchnk, i, k, jsub, latndx, lonndx, lund, iscldy_subarea, mtoo_renamexf, n_mode, qnum_cur, qaer_cur, qaer_del_grow4rnam, qwtr_cur, qnumcw_cur, qaercw_cur, qaercw_del_grow4rnam)
subroutine	modal_aero_amicphys::mam_newnuc_1subarea (nstep, lchnk, i, k, jsub, latndx, lonndx, lund, deltat, temp, pmid, aircon, zmid, pblh, relhum, uptkrate_h2so4, del_h2so4_gasprod, del_h2so4_aeruptk, n_mode, qgas_cur, qgas_avg, qnum_cur, qaer_cur, qwtr_cur, dnclusterdt)
subroutine	modal_aero_amicphys::mam_coag_1subarea (nstep, lchnk, i, k, jsub, latndx, lonndx, lund, deltat, temp, pmid, aircon, dgn_a, dgn_awet, wetdens, n_mode, qnum_cur, qaer_cur, qaer_del_coag_in, qwtr_cur)
subroutine	modal_aero_amicphys::mam_pcarbon_aging_1subarea (nstep, lchnk, i, k, jsub, latndx, lonndx, lund, deltat, dgn_a, do_cond, n_mode, qnum_cur, qnum_del_cond, qnum_del_coag, qaer_cur, qaer_del_cond, qaer_del_coag, qaer_del_coag_in, qwtr_cur)
real(8) function	modal_aero_amicphys::mean_molecular_speed (temp, rmw)
real(8) function	modal_aero_amicphys::gas_diffusivity (t_k, p_atm, rmw, vm)
subroutine	modal_aero_amicphys::gas_aer_uptkrates_1box1gas (accom, gasdiffus, gasfreepath, beta_inp, n_mode, dgncur_awet, lnsg, uptkrate)
subroutine, public	modal_aero_amicphys::modal_aero_amicphys_init (imozart, species_class, n_so4_monolayers_pcage_in)
subroutine	modal_aero_amicphys::mam_set_lptr2_and_specxxx2
subroutine	modal_aero_amicphys::m_a_amicphys_init_history (loffset)

Variables
logical, public	modal_aero_amicphys::mosaic = .true.
integer, parameter	modal_aero_amicphys::pcnstxx = gas_pcnst
real(r8), public, protected	modal_aero_amicphys::n_so4_monolayers_pcage = huge(1.0_r8)
real(r8), public, protected	modal_aero_amicphys::dr_so4_monolayers_pcage = huge(1.0_r8)
integer, public	modal_aero_amicphys::mdo_gaexch_cldy_subarea = 0
integer, public	modal_aero_amicphys::gaexch_h2so4_uptake_optaa = 2
integer, public	modal_aero_amicphys::newnuc_h2so4_conc_optaa = 2
integer, public	modal_aero_amicphys::rename_method_optaa = 40
integer, public	modal_aero_amicphys::update_qaerwat = 0
integer, public	modal_aero_amicphys::update_dgncur_a = 0
integer, public	modal_aero_amicphys::update_dgncur_awet = 0
real(r8)	modal_aero_amicphys::newnuc_adjust_factor_dnaitdt = 1.0_r8
real(r8)	modal_aero_amicphys::newnuc_adjust_factor_pbl = 1.0_r8
integer, parameter	modal_aero_amicphys::max_gas = nsoa + 1
integer, parameter	modal_aero_amicphys::max_aer = nsoa + npoa + nbc + 4
integer, parameter	modal_aero_amicphys::ntot_amode_extd = ntot_amode
integer, parameter	modal_aero_amicphys::max_mode_fresh = 1
integer, parameter, public	modal_aero_amicphys::max_mode = ntot_amode_extd + max_mode_fresh
integer, parameter	modal_aero_amicphys::max_coagpair = 100
integer, parameter	modal_aero_amicphys::max_agepair = 1
integer, parameter	modal_aero_amicphys::maxsubarea = 2
integer, parameter	modal_aero_amicphys::nqtendaa = 4
integer, parameter	modal_aero_amicphys::iqtend_cond = 1
integer, parameter	modal_aero_amicphys::iqtend_rnam = 2
integer, parameter	modal_aero_amicphys::iqtend_nnuc = 3
integer, parameter	modal_aero_amicphys::iqtend_coag = 4
integer, parameter	modal_aero_amicphys::nqqcwtendaa = 1
integer, parameter	modal_aero_amicphys::iqqcwtend_rnam = 1
integer, dimension(nqtendaa), parameter	modal_aero_amicphys::iqqcwtend_match_iqtend = (/ 0, iqqcwtend_rnam, 0, 0 /)
logical, parameter	modal_aero_amicphys::aging_include_seasalt = .false.
integer	modal_aero_amicphys::igas_soa
integer	modal_aero_amicphys::igas_h2so4
integer	modal_aero_amicphys::igas_nh3
integer	modal_aero_amicphys::igas_hno3
integer	modal_aero_amicphys::igas_hcl
integer	modal_aero_amicphys::iaer_bc
integer	modal_aero_amicphys::iaer_dst
integer	modal_aero_amicphys::iaer_ncl
integer	modal_aero_amicphys::iaer_nh4
integer	modal_aero_amicphys::iaer_pom
integer	modal_aero_amicphys::iaer_soa
integer	modal_aero_amicphys::iaer_so4
integer	modal_aero_amicphys::iaer_mpoly
integer	modal_aero_amicphys::iaer_mprot
integer	modal_aero_amicphys::iaer_mlip
integer	modal_aero_amicphys::iaer_mhum
integer	modal_aero_amicphys::iaer_mproc
integer	modal_aero_amicphys::iaer_mom
integer	modal_aero_amicphys::iaer_no3
integer	modal_aero_amicphys::iaer_cl
integer	modal_aero_amicphys::iaer_ca
integer	modal_aero_amicphys::iaer_co3
integer	modal_aero_amicphys::i_agepair_pca
integer	modal_aero_amicphys::i_agepair_macc
integer	modal_aero_amicphys::i_agepair_mait
integer, dimension(max_gas)	modal_aero_amicphys::lmap_gas
integer, dimension(max_aer, max_mode)	modal_aero_amicphys::lmap_aer
integer, dimension(max_aer, max_mode)	modal_aero_amicphys::lmapbb_aer
integer, dimension(max_aer, max_mode)	modal_aero_amicphys::lmap_aercw
integer, dimension(max_mode)	modal_aero_amicphys::lmap_num
integer, dimension(max_mode)	modal_aero_amicphys::lmap_numcw
integer, dimension(gas_pcnst)	modal_aero_amicphys::lmapcc_all
integer, parameter	modal_aero_amicphys::lmapcc_val_gas = 1
integer, parameter	modal_aero_amicphys::lmapcc_val_aer = 2
integer, parameter	modal_aero_amicphys::lmapcc_val_num = 3
integer	modal_aero_amicphys::ngas
integer	modal_aero_amicphys::naer
integer	modal_aero_amicphys::nacc
integer	modal_aero_amicphys::nait
integer	modal_aero_amicphys::npca
integer	modal_aero_amicphys::nufi
integer	modal_aero_amicphys::nmacc
integer	modal_aero_amicphys::nmait
integer	modal_aero_amicphys::n_agepair
integer	modal_aero_amicphys::n_coagpair
integer, dimension(max_agepair)	modal_aero_amicphys::modefrm_agepair
integer, dimension(max_agepair)	modal_aero_amicphys::modetoo_agepair
integer, dimension(max_mode)	modal_aero_amicphys::mode_aging_optaa
integer, dimension(max_coagpair)	modal_aero_amicphys::modefrm_coagpair
integer, dimension(max_coagpair)	modal_aero_amicphys::modetoo_coagpair
integer, dimension(max_coagpair)	modal_aero_amicphys::modeend_coagpair
integer	modal_aero_amicphys::lun82
integer	modal_aero_amicphys::lun97
integer	modal_aero_amicphys::lun98
integer	modal_aero_amicphys::lun13n
integer	modal_aero_amicphys::lun15n
logical	modal_aero_amicphys::ldiag82
logical	modal_aero_amicphys::ldiag97
logical	modal_aero_amicphys::ldiag98
logical	modal_aero_amicphys::ldiag13n
logical	modal_aero_amicphys::ldiag15n
logical	modal_aero_amicphys::ldiagd1
real(r8), dimension(max_gas)	modal_aero_amicphys::accom_coef_gas
real(r8), dimension(max_mode)	modal_aero_amicphys::alnsg_aer
real(r8), dimension(max_mode)	modal_aero_amicphys::dgnum_aer
real(r8), dimension(max_mode)	modal_aero_amicphys::dgnumhi_aer
real(r8), dimension(max_mode)	modal_aero_amicphys::dgnumlo_aer
real(r8), dimension(max_aer)	modal_aero_amicphys::dens_aer
real(r8)	modal_aero_amicphys::dens_so4a_host
real(r8), dimension(max_aer)	modal_aero_amicphys::fac_m2v_aer
real(r8), dimension(max_aer)	modal_aero_amicphys::fac_eqvso4hyg_aer
real(r8), dimension(max_aer)	modal_aero_amicphys::fac_m2v_eqvhyg_aer
real(r8), dimension(max_gas)	modal_aero_amicphys::fcvt_gas
real(r8), dimension(max_aer)	modal_aero_amicphys::fcvt_aer
real(r8)	modal_aero_amicphys::fcvt_num
real(r8)	modal_aero_amicphys::fcvt_wtr
real(r8), dimension(max_mode)	modal_aero_amicphys::fcvt_dgnum_dvolmean
real(r8), dimension(max_aer)	modal_aero_amicphys::hygro_aer
real(r8), dimension(max_gas)	modal_aero_amicphys::mw_gas
real(r8), dimension(max_aer)	modal_aero_amicphys::mw_aer
real(r8), dimension(max_gas)	modal_aero_amicphys::mwhost_gas
real(r8), dimension(max_aer)	modal_aero_amicphys::mwhost_aer
real(r8)	modal_aero_amicphys::mwhost_num
real(r8)	modal_aero_amicphys::mw_nh4a_host
real(r8)	modal_aero_amicphys::mw_so4a_host
real(r8), dimension(nsoa)	modal_aero_amicphys::mwuse_soa
real(r8), dimension(npoa)	modal_aero_amicphys::mwuse_poa
real(r8), dimension(max_mode)	modal_aero_amicphys::sigmag_aer
real(r8), dimension(max_gas)	modal_aero_amicphys::vol_molar_gas
character(len=16), dimension(max_gas)	modal_aero_amicphys::name_gas
character(len=16), dimension(max_aer)	modal_aero_amicphys::name_aerpfx
character(len=16), dimension(max_aer, max_mode)	modal_aero_amicphys::name_aer
character(len=16), dimension(max_aer, max_mode)	modal_aero_amicphys::name_aercw
character(len=16), dimension(max_mode)	modal_aero_amicphys::name_num
character(len=16), dimension(max_mode)	modal_aero_amicphys::name_numcw
character(len=8), dimension(nqtendaa)	modal_aero_amicphys::suffix_q_coltendaa = (/ '_sfgaex1', '_sfgaex2', '_sfnnuc1', '_sfcoag1' /)
character(len=8), dimension(nqqcwtendaa)	modal_aero_amicphys::suffix_qqcw_coltendaa = '_sfgaex2'
logical, dimension(gas_pcnst, nqtendaa)	modal_aero_amicphys::do_q_coltendaa = .false.
logical, dimension(gas_pcnst, nqqcwtendaa)	modal_aero_amicphys::do_qqcw_coltendaa = .false.
real(r8), dimension(ntot_aspectype, ntot_amode)	modal_aero_amicphys::specmw2_amode
real(r8), dimension(ntot_aspectype, ntot_amode)	modal_aero_amicphys::specdens2_amode
real(r8), dimension(ntot_aspectype, ntot_amode)	modal_aero_amicphys::spechygro2

Macro Definition Documentation

CAM_VERSION_IS_ACME

#define CAM_VERSION_IS_ACME