seasalt_model.F90 File Reference

Modules
module	seasalt_model

Functions/Subroutines
subroutine, public	seasalt_model::seasalt_init
subroutine, public	seasalt_model::advance_ocean_data (state, pbuf2d)
subroutine, public	seasalt_model::ocean_data_readnl (nlfile)
subroutine, public	seasalt_model::seasalt_emis (u10, u10cubed, lchnk, srf_temp, ocnfrc, ncol, cflx, emis_scale, F_eff)
subroutine	seasalt_model::calc_om_ssa_quinn (mass_frac_bub_section, om_ssa)
subroutine	seasalt_model::calc_om_ssa_rinaldi (chla_in, u10, mass_frac_bub_section, om_ssa)
subroutine	seasalt_model::calc_om_ssa_gantt (chla_in, u10, mass_frac_bub_section, om_ssa)
subroutine	seasalt_model::calc_om_ssa_burrows (ncol, mpoly_in, mprot_in, mlip_in, mass_frac_bub_section, om_ssa, F_eff, lchnk)
subroutine	seasalt_model::omfrac_accu_aitk (om_ssa_in, om_ssa)
subroutine	seasalt_model::gantt_omfrac_size (om_ssa_max, om_ssa)
subroutine, public	seasalt_model::init_ocean_data ()

Variables
integer, parameter	seasalt_model::nslt = max(3, ntot_amode-3)
integer, parameter	seasalt_model::nnum = nslt
integer, parameter, public	seasalt_model::nslt_om = 3
integer, parameter	seasalt_model::nnum_om = 1
integer, parameter	seasalt_model::om_num_modes = 3
character(len=6), dimension(nslt+nslt_om+nnum+nnum_om), parameter, public	seasalt_model::seasalt_names = (/ 'ncl_a1', 'ncl_a2', 'ncl_a3', 'mom_a1', 'mom_a2', 'mom_a4', 'num_a1', 'num_a2', 'num_a3', 'num_a4'/)
integer, dimension(om_num_modes), parameter	seasalt_model::om_num_ind = (/ 1, 2, 4 /)
integer, parameter, public	seasalt_model::seasalt_nbin = nslt+nslt_om
integer, parameter, public	seasalt_model::seasalt_nnum = nnum+nnum_om
integer, parameter, public	seasalt_model::n_ocean_data = 4
logical, parameter, public	seasalt_model::f_eff_out = .false.
type(trfld), dimension(:), pointer	seasalt_model::fields
type(trfile)	seasalt_model::file
real(r8), parameter	seasalt_model::small_oceanorg = 1.0e-30
integer, dimension(seasalt_nbin+seasalt_nnum), public	seasalt_model::seasalt_indices
logical, public	seasalt_model::seasalt_active = .false.
logical	seasalt_model::debug_mam_mom = .false.
real(r8), parameter	seasalt_model::aw_carbon = 12.0107_r8
real(r8), parameter	seasalt_model::g_per_m3_nacl_bulk = 35875._r8
real(r8)	seasalt_model::g_per_m2_nacl_bub
integer, parameter	seasalt_model::n_org_max = 3
integer	seasalt_model::n_org
integer, parameter	seasalt_model::n_org_burrows = 3
integer, parameter	seasalt_model::n_org_gantt = 1
integer, parameter	seasalt_model::n_org_rinaldi = 1
integer, parameter	seasalt_model::n_org_quinn = 1
character(len=32), dimension(n_ocean_data)	seasalt_model::specifier = ''
character(len=256)	seasalt_model::filename = ' '
character(len=256)	seasalt_model::filelist = ' '
character(len=256)	seasalt_model::datapath = ' '
character(len=32)	seasalt_model::datatype = 'CYCLICAL'
integer	seasalt_model::data_cycle_yr = 0
logical	seasalt_model::rmv_file = .false.
integer	seasalt_model::fixed_ymd = 0
integer	seasalt_model::fixed_tod = 0
real(r8)	seasalt_model::l_bub = 0.1e-6_r8
integer	seasalt_model::mixing_state = 1
integer	seasalt_model::fmoa = 1
logical, public	seasalt_model::has_mam_mom = .true.
real(r8), dimension(n_org_burrows), parameter	seasalt_model::om_to_oc_in = (/ 2.3_r8, 2.2_r8, 1.3_r8 /)
real(r8), dimension(n_org_burrows), parameter	seasalt_model::alpha_org = (/ 90.58_r8, 25175._r8, 18205._r8 /)
real(r8), dimension(n_org_burrows), parameter	seasalt_model::mw_org = (/ 250000._r8, 66463._r8, 284._r8 /)
real(r8), dimension(n_org_burrows), parameter	seasalt_model::g_per_m2_org = (/ 0.1376_r8, 0.00219_r8, 0.002593_r8 /)
real(r8), dimension(nslt+nslt_om), parameter	seasalt_model::sst_sz_range_lo = (/ 0.08e-6_r8, 0.02e-6_r8, 1.0e-6_r8, 0.08e-6_r8, 0.02e-6_r8, 0.08e-6_r8 /)
real(r8), dimension(nslt+nslt_om), parameter	seasalt_model::sst_sz_range_hi = (/ 1.0e-6_r8, 0.08e-6_r8, 10.0e-6_r8, 1.0e-6_r8, 0.08e-6_r8, 1.0e-6_r8 /)