#include "shr_assert.h"

Modules
module	snowsnicarmod

Functions/Subroutines
subroutine, public	snowsnicarmod::snicar_rt (flg_snw_ice, bounds, num_nourbanc, filter_nourbanc, coszen, flg_slr_in, h2osno_liq, h2osno_ice, snw_rds, mss_cnc_aer_in, albsfc, albout, flx_abs, waterstate_vars)

subroutine, public	snowsnicarmod::snowage_grain (bounds, num_snowc, filter_snowc, num_nosnowc, filter_nosnowc, waterflux_vars, waterstate_vars, temperature_vars)

subroutine, public	snowsnicarmod::snowoptics_init ()

subroutine, public	snowsnicarmod::snowage_init ()

Variables
integer, parameter, public	snowsnicarmod::sno_nbr_aer = 8

logical, parameter, public	snowsnicarmod::do_sno_oc = .false.

logical, parameter, public	snowsnicarmod::do_sno_aer = .true.

integer, parameter	snowsnicarmod::numrad_snw = 5

integer, parameter	snowsnicarmod::nir_bnd_bgn = 2

integer, parameter	snowsnicarmod::nir_bnd_end = 5

integer, parameter	snowsnicarmod::idx_mie_snw_mx = 1471

integer, parameter	snowsnicarmod::idx_t_max = 11

integer, parameter	snowsnicarmod::idx_t_min = 1

integer, parameter	snowsnicarmod::idx_tgrd_max = 31

integer, parameter	snowsnicarmod::idx_tgrd_min = 1

integer, parameter	snowsnicarmod::idx_rhos_max = 8

integer, parameter	snowsnicarmod::idx_rhos_min = 1

integer, parameter	snowsnicarmod::idx_bc_nclrds_min = 1

integer, parameter	snowsnicarmod::idx_bc_nclrds_max = 10

integer, parameter	snowsnicarmod::idx_bcint_icerds_min = 1

integer, parameter	snowsnicarmod::idx_bcint_icerds_max = 8

integer, parameter	snowsnicarmod::snw_rds_max_tbl = 1500

integer, parameter	snowsnicarmod::snw_rds_min_tbl = 30

real(r8), parameter	snowsnicarmod::snw_rds_max = 1500._r8

real(r8), parameter	snowsnicarmod::snw_rds_refrz = 1000._r8

real(r8), parameter	snowsnicarmod::min_snw = 1.0E-30_r8

real(r8), parameter	snowsnicarmod::c1_liq_brun89 = 0._r8

real(r8), parameter	snowsnicarmod::c2_liq_brun89 = 4.22E-13_r8

real(r8), parameter	snowsnicarmod::tim_cns_bc_rmv = 2.2E-8_r8

real(r8), parameter	snowsnicarmod::tim_cns_oc_rmv = 2.2E-8_r8

real(r8), parameter	snowsnicarmod::tim_cns_dst_rmv = 2.2E-8_r8

logical	snowsnicarmod::flg_snoage_scl = .false.

real(r8), parameter	snowsnicarmod::xdrdt = 1.0_r8

real(r8), dimension(idx_mie_snw_mx, numrad_snw)	snowsnicarmod::ss_alb_snw_drc

real(r8), dimension(idx_mie_snw_mx, numrad_snw)	snowsnicarmod::asm_prm_snw_drc

real(r8), dimension(idx_mie_snw_mx, numrad_snw)	snowsnicarmod::ext_cff_mss_snw_drc

real(r8), dimension(idx_mie_snw_mx, numrad_snw)	snowsnicarmod::ss_alb_snw_dfs

real(r8), dimension(idx_mie_snw_mx, numrad_snw)	snowsnicarmod::asm_prm_snw_dfs

real(r8), dimension(idx_mie_snw_mx, numrad_snw)	snowsnicarmod::ext_cff_mss_snw_dfs

real(r8), dimension(numrad_snw, idx_bc_nclrds_max)	snowsnicarmod::ss_alb_bc1

real(r8), dimension(numrad_snw, idx_bc_nclrds_max)	snowsnicarmod::asm_prm_bc1

real(r8), dimension(numrad_snw, idx_bc_nclrds_max)	snowsnicarmod::ext_cff_mss_bc1

real(r8), dimension(numrad_snw, idx_bc_nclrds_max)	snowsnicarmod::ss_alb_bc2

real(r8), dimension(numrad_snw, idx_bc_nclrds_max)	snowsnicarmod::asm_prm_bc2

real(r8), dimension(numrad_snw, idx_bc_nclrds_max)	snowsnicarmod::ext_cff_mss_bc2

real(r8), dimension(numrad_snw)	snowsnicarmod::ss_alb_oc1

real(r8), dimension(numrad_snw)	snowsnicarmod::asm_prm_oc1

real(r8), dimension(numrad_snw)	snowsnicarmod::ext_cff_mss_oc1

real(r8), dimension(numrad_snw)	snowsnicarmod::ss_alb_oc2

real(r8), dimension(numrad_snw)	snowsnicarmod::asm_prm_oc2

real(r8), dimension(numrad_snw)	snowsnicarmod::ext_cff_mss_oc2

real(r8), dimension(numrad_snw)	snowsnicarmod::ss_alb_dst1

real(r8), dimension(numrad_snw)	snowsnicarmod::asm_prm_dst1

real(r8), dimension(numrad_snw)	snowsnicarmod::ext_cff_mss_dst1

real(r8), dimension(numrad_snw)	snowsnicarmod::ss_alb_dst2

real(r8), dimension(numrad_snw)	snowsnicarmod::asm_prm_dst2

real(r8), dimension(numrad_snw)	snowsnicarmod::ext_cff_mss_dst2

real(r8), dimension(numrad_snw)	snowsnicarmod::ss_alb_dst3

real(r8), dimension(numrad_snw)	snowsnicarmod::asm_prm_dst3

real(r8), dimension(numrad_snw)	snowsnicarmod::ext_cff_mss_dst3

real(r8), dimension(numrad_snw)	snowsnicarmod::ss_alb_dst4

real(r8), dimension(numrad_snw)	snowsnicarmod::asm_prm_dst4

real(r8), dimension(numrad_snw)	snowsnicarmod::ext_cff_mss_dst4

real(r8), dimension(numrad_snw, idx_bc_nclrds_max, idx_bcint_icerds_max)	snowsnicarmod::bcenh

real(r8), dimension(:,:,:), pointer	snowsnicarmod::snowage_tau

real(r8), dimension(:,:,:), pointer	snowsnicarmod::snowage_kappa

real(r8), dimension(:,:,:), pointer	snowsnicarmod::snowage_drdt0

Modules

Functions/Subroutines

Variables