CAM
rad_constituents.F90 File Reference

Data Types

type  rad_constituents::mode_component_t
 
type  rad_constituents::modes_t
 
type  rad_constituents::rad_cnst_namelist_t
 
type  rad_constituents::gas_t
 
type  rad_constituents::gaslist_t
 
type  rad_constituents::aerosol_t
 
type  rad_constituents::aerlist_t
 
type  rad_constituents::modelist_t
 
interface  rad_constituents::rad_cnst_get_info
 
interface  rad_constituents::rad_cnst_get_aer_mmr
 
interface  rad_constituents::rad_cnst_get_aer_props
 

Modules

module  rad_constituents
 

Functions/Subroutines

subroutine, public rad_constituents::rad_cnst_readnl (nlfile)
 
subroutine, public rad_constituents::rad_cnst_init ()
 
subroutine, public rad_constituents::rad_cnst_get_gas (list_idx, gasname, state, pbuf, mmr)
 
subroutine, public rad_constituents::rad_cnst_get_info (list_idx, gasnames, aernames, use_data_o3, ngas, naero, nmodes)
 
subroutine rad_constituents::rad_cnst_get_info_by_mode (list_idx, m_idx, mode_type, num_name, num_name_cw, nspec)
 
subroutine rad_constituents::rad_cnst_get_info_by_mode_spec (list_idx, m_idx, s_idx, spec_type, spec_name, spec_name_cw)
 
subroutine rad_constituents::rad_cnst_get_info_by_spectype (list_idx, spectype, mode_idx, spec_idx)
 
integer function, public rad_constituents::rad_cnst_get_mode_idx (list_idx, mode_type)
 
integer function, public rad_constituents::rad_cnst_get_spec_idx (list_idx, mode_idx, spec_type)
 
subroutine, public rad_constituents::rad_cnst_get_call_list (call_list)
 
subroutine, public rad_constituents::rad_cnst_out (list_idx, state, pbuf)
 
subroutine rad_constituents::init_mode_comps (modes)
 
integer function rad_constituents::get_cam_idx (source, name, routine)
 
subroutine rad_constituents::list_init1 (namelist, gaslist, aerlist, ma_list)
 
subroutine rad_constituents::list_init2 (gaslist, aerlist, ma_list)
 
subroutine rad_constituents::rad_gas_diag_init (glist)
 
subroutine rad_constituents::rad_aer_diag_init (alist)
 
subroutine rad_constituents::parse_mode_defs (nl_in, modes)
 
subroutine parse_error (msg, str)
 
subroutine check_specie_type (str, ib, ie)
 
subroutine check_mode_type (str, ib, ie)
 
subroutine rad_constituents::parse_rad_specifier (specifier, namelist_data)
 
subroutine rad_constituents::rad_cnst_get_aer_mmr_by_idx (list_idx, aer_idx, state, pbuf, mmr)
 
subroutine rad_constituents::rad_cnst_get_mam_mmr_by_idx (list_idx, mode_idx, spec_idx, phase, state, pbuf, mmr)
 
subroutine, public rad_constituents::rad_cnst_get_mam_mmr_idx (mode_idx, spec_idx, idx)
 
subroutine, public rad_constituents::rad_cnst_get_mode_num (list_idx, mode_idx, phase, state, pbuf, num)
 
subroutine, public rad_constituents::rad_cnst_get_mode_num_idx (mode_idx, cnst_idx)
 
integer function rad_constituents::rad_cnst_get_aer_idx (list_idx, aer_name)
 
subroutine rad_constituents::rad_cnst_get_aer_props_by_idx (list_idx, aer_idx, opticstype, sw_hygro_ext, sw_hygro_ssa, sw_hygro_asm, lw_hygro_ext, sw_nonhygro_ext, sw_nonhygro_ssa, sw_nonhygro_asm, sw_nonhygro_scat, sw_nonhygro_ascat, lw_ext, refindex_aer_sw, refindex_aer_lw, r_sw_ext, r_sw_scat, r_sw_ascat, r_lw_abs, mu, aername, density_aer, hygro_aer, dryrad_aer, dispersion_aer, num_to_mass_aer)
 
subroutine rad_constituents::rad_cnst_get_mam_props_by_idx (list_idx, mode_idx, spec_idx, opticstype, sw_hygro_ext, sw_hygro_ssa, sw_hygro_asm, lw_hygro_ext, sw_nonhygro_ext, sw_nonhygro_ssa, sw_nonhygro_asm, sw_nonhygro_scat, sw_nonhygro_ascat, lw_ext, refindex_aer_sw, refindex_aer_lw, r_sw_ext, r_sw_scat, r_sw_ascat, r_lw_abs, mu, aername, density_aer, hygro_aer, dryrad_aer, dispersion_aer, num_to_mass_aer, spectype)
 
subroutine, public rad_constituents::rad_cnst_get_mode_props (list_idx, mode_idx, extpsw, abspsw, asmpsw, absplw, refrtabsw, refitabsw, refrtablw, refitablw, ncoef, prefr, prefi, sigmag, dgnum, dgnumlo, dgnumhi, rhcrystal, rhdeliques)
 
subroutine rad_constituents::print_modes (modes)
 
subroutine rad_constituents::print_lists (gas_list, aer_list, ma_list)
 

Variables

integer, parameter rad_constituents::cs1 = 256
 
integer, parameter, public rad_constituents::n_diag = 10
 
character(len=cs1), public rad_constituents::iceopticsfile
 
character(len=cs1), public rad_constituents::liqopticsfile
 
character(len=32), public rad_constituents::icecldoptics
 
character(len=32), public rad_constituents::liqcldoptics
 
logical, public rad_constituents::oldcldoptics = .false.
 
integer, parameter rad_constituents::n_mode_str = 100
 
integer, parameter rad_constituents::n_rad_cnst = N_RAD_CNST
 
character(len=cs1), dimension(n_mode_str) rad_constituents::mode_defs = ' '
 
character(len=cs1), dimension(n_rad_cnst) rad_constituents::rad_climate = ' '
 
character(len=cs1), dimension(n_rad_cnst) rad_constituents::rad_diag_1 = ' '
 
character(len=cs1), dimension(n_rad_cnst) rad_constituents::rad_diag_2 = ' '
 
character(len=cs1), dimension(n_rad_cnst) rad_constituents::rad_diag_3 = ' '
 
character(len=cs1), dimension(n_rad_cnst) rad_constituents::rad_diag_4 = ' '
 
character(len=cs1), dimension(n_rad_cnst) rad_constituents::rad_diag_5 = ' '
 
character(len=cs1), dimension(n_rad_cnst) rad_constituents::rad_diag_6 = ' '
 
character(len=cs1), dimension(n_rad_cnst) rad_constituents::rad_diag_7 = ' '
 
character(len=cs1), dimension(n_rad_cnst) rad_constituents::rad_diag_8 = ' '
 
character(len=cs1), dimension(n_rad_cnst) rad_constituents::rad_diag_9 = ' '
 
character(len=cs1), dimension(n_rad_cnst) rad_constituents::rad_diag_10 = ' '
 
type(modes_t), target rad_constituents::modes
 
type(rad_cnst_namelist_t), dimension(0:n_diag) rad_constituents::namelist
 
logical, dimension(0:n_diag) rad_constituents::active_calls
 
type(gaslist_t), dimension(0:n_diag), target rad_constituents::gaslist
 
type(aerlist_t), dimension(0:n_diag), target rad_constituents::aerosollist
 
type(modelist_t), dimension(0:n_diag), target rad_constituents::ma_list
 
real(r8), dimension(:,:), allocatable, target rad_constituents::zero_cols
 
logical rad_constituents::verbose = .true.
 
character(len=1), parameter rad_constituents::nl = achar(10)
 
integer, parameter rad_constituents::num_mode_types = 8
 
integer, parameter rad_constituents::num_spec_types = 9
 
character(len=14), dimension(num_mode_types), parameter rad_constituents::mode_type_names = (/ 'accum ', 'aitken ', 'primary_carbon', 'fine_seasalt ', 'fine_dust ', 'coarse ', 'coarse_seasalt', 'coarse_dust ' /)
 
character(len=9), dimension(num_spec_types), parameter rad_constituents::spec_type_names = (/ 'sulfate ', 'ammonium ', 'nitrate ', 'p-organic', 's-organic', 'black-c ', 'seasalt ', 'dust ', 'm-organic' /)
 

Function/Subroutine Documentation

◆ check_mode_type()

subroutine parse_mode_defs::check_mode_type ( character(len=*), intent(in)  str,
integer, intent(in)  ib,
integer, intent(in)  ie 
)
private
Here is the call graph for this function:
Here is the caller graph for this function:

◆ check_specie_type()

subroutine parse_mode_defs::check_specie_type ( character(len=*), intent(in)  str,
integer, intent(in)  ib,
integer, intent(in)  ie 
)
private
Here is the call graph for this function:
Here is the caller graph for this function:

◆ parse_error()

subroutine parse_mode_defs::parse_error ( character(len=*), intent(in)  msg,
character(len=*), intent(in)  str 
)
private
Here is the caller graph for this function: