From 604d0ad8ff98b8d9a058b01fc685db5a4a47ca38 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Thu, 4 Aug 2022 13:56:10 -0600 Subject: [PATCH 01/64] initial implementation of SNICAR-AD in Icepack, not tested but BFB in standard dEdd config --- columnphysics/icepack_intfc.F90 | 5 +- columnphysics/icepack_parameters.F90 | 9 +- columnphysics/icepack_shortwave.F90 | 841 +++++++++++++----- configuration/driver/icedrv_arrays_column.F90 | 36 +- configuration/driver/icedrv_init_column.F90 | 16 +- configuration/driver/icedrv_step.F90 | 12 +- 6 files changed, 675 insertions(+), 244 deletions(-) diff --git a/columnphysics/icepack_intfc.F90 b/columnphysics/icepack_intfc.F90 index 3a0ab2b5e..b63e40aba 100644 --- a/columnphysics/icepack_intfc.F90 +++ b/columnphysics/icepack_intfc.F90 @@ -45,13 +45,14 @@ module icepack_intfc use icepack_tracers, only: icepack_max_iso => max_iso use icepack_tracers, only: icepack_nmodal1 => nmodal1 use icepack_tracers, only: icepack_nmodal2 => nmodal2 - use icepack_parameters, only: icepack_nspint => nspint + use icepack_parameters, only: icepack_nspint_3bd => nspint_3bd + use icepack_parameters, only: icepack_nspint_5bd => nspint_5bd use icepack_parameters, only: icepack_init_parameters use icepack_parameters, only: icepack_query_parameters use icepack_parameters, only: icepack_write_parameters use icepack_parameters, only: icepack_recompute_constants - use icepack_parameters, only: nspint, secday, spval_const + use icepack_parameters, only: nspint_3bd, nspint_5bd, secday, spval_const use icepack_parameters, only: c0, c1, c1p5, c2, c3, c4, c5, c6, c8 use icepack_parameters, only: c10, c15, c16, c20, c25, c100, c1000 use icepack_parameters, only: p001, p01, p1, p2, p4, p5, p6, p05 diff --git a/columnphysics/icepack_parameters.F90 b/columnphysics/icepack_parameters.F90 index bd3ffee7b..ceb2e604d 100644 --- a/columnphysics/icepack_parameters.F90 +++ b/columnphysics/icepack_parameters.F90 @@ -22,9 +22,6 @@ module icepack_parameters ! parameter constants !----------------------------------------------------------------- - integer (kind=int_kind), parameter, public :: & - nspint = 3 ! number of solar spectral intervals - real (kind=dbl_kind), parameter, public :: & c0 = 0.0_dbl_kind, & c1 = 1.0_dbl_kind, & @@ -174,6 +171,10 @@ module icepack_parameters ! Parameters for radiation !----------------------------------------------------------------------- + integer (kind=int_kind), parameter, public :: & + nspint_3bd = 3, & ! number of solar spectral bands + nspint_5bd = 5 ! number of solar spectral bands + real (kind=dbl_kind), public :: & ! (Briegleb JGR 97 11475-11485 July 1992) emissivity = 0.985_dbl_kind,&! emissivity of snow and ice @@ -210,7 +211,7 @@ module icepack_parameters awtidf = 0.36218_dbl_kind ! near IR, diffuse character (len=char_len), public :: & - shortwave = 'dEdd', & ! shortwave method, 'ccsm3' or 'dEdd' + shortwave = 'dEdd', & ! shortwave method, 'ccsm3' or 'dEdd' or 'dEdd_snicar' albedo_type = 'ccsm3' ! albedo parameterization, 'ccsm3' or 'constant' ! shortwave='dEdd' overrides this parameter diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index be854823d..043dca25e 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -44,7 +44,8 @@ module icepack_shortwave use icepack_parameters, only: c0, c1, c1p5, c2, c3, c4, c10 use icepack_parameters, only: p01, p1, p15, p25, p5, p75, puny use icepack_parameters, only: albocn, Timelt, snowpatch, awtvdr, awtidr, awtvdf, awtidf - use icepack_parameters, only: kappav, hs_min, rhofresh, rhos, nspint, rsnw_fall, snwredist, rsnw_tmax + use icepack_parameters, only: kappav, hs_min, rhofresh, rhos, nspint_3bd, nspint_5bd + use icepack_parameters, only: rsnw_fall, snwredist, rsnw_tmax use icepack_parameters, only: hi_ssl, hs_ssl, min_bgc, sk_l, snwlvlfac, snwgrain #ifdef UNDEPRECATE_0LAYER use icepack_parameters, only: z_tracers, skl_bgc, calc_tsfc, shortwave, kalg, heat_capacity @@ -803,12 +804,12 @@ subroutine run_dEdd(dt, ncat, & dT_mlt, rsnw_mlt, & hs0, hs1, hp1, & pndaspect, & - kaer_tab, waer_tab, & - gaer_tab, & - kaer_bc_tab, & - waer_bc_tab, & - gaer_bc_tab, & - bcenh, & + kaer_3bd, waer_3bd, & + gaer_3bd, & + kaer_bc_3bd, & + waer_bc_3bd, & + gaer_bc_3bd, & + bcenh_3bd, & modal_aero, & swvdr, swvdf, & swidr, swidf, & @@ -856,18 +857,49 @@ subroutine run_dEdd(dt, ncat, & hp1 , & ! critical parameter for pond ice thickness kalg ! algae absorption coefficient - real (kind=dbl_kind), dimension(:,:), intent(in) :: & - kaer_tab, & ! aerosol mass extinction cross section (m2/kg) - waer_tab, & ! aerosol single scatter albedo (fraction) - gaer_tab ! aerosol asymmetry parameter (cos(theta)) + real (kind=dbl_kind), dimension(:,:), intent(in) :: & + kaer_3bd, & ! aerosol mass extinction cross section (m2/kg) + waer_3bd, & ! aerosol single scatter albedo (fraction) + gaer_3bd ! aerosol asymmetry parameter (cos(theta)) real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Modal aerosol treatment - kaer_bc_tab, & ! aerosol mass extinction cross section (m2/kg) - waer_bc_tab, & ! aerosol single scatter albedo (fraction) - gaer_bc_tab ! aerosol asymmetry parameter (cos(theta)) + kaer_bc_3bd, & ! aerosol mass extinction cross section (m2/kg) + waer_bc_3bd, & ! aerosol single scatter albedo (fraction) + gaer_bc_3bd ! aerosol asymmetry parameter (cos(theta)) real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment - bcenh ! BC absorption enhancement factor + bcenh_3bd ! BC absorption enhancement factor + +!echmod logical (kind=log_kind), intent(in), optional :: & + logical (kind=log_kind) :: & + use_snicar ! .true. use 5-band SNICAR-AD approach + +!echmod real (kind=dbl_kind), dimension(:,:), intent(in) :: & + real (kind=dbl_kind), dimension(nspint_5bd,1471) :: & + kaer_5bd, & ! aerosol mass extinction cross section (m2/kg) + waer_5bd, & ! aerosol single scatter albedo (fraction) + gaer_5bd ! aerosol asymmetry parameter (cos(theta)) + +!echmod real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Modal aerosol treatment + real (kind=dbl_kind), dimension(nspint_5bd,1471) :: & + kaer_bc_5bd, & ! aerosol mass extinction cross section (m2/kg) + waer_bc_5bd, & ! aerosol single scatter albedo (fraction) + gaer_bc_5bd ! aerosol asymmetry parameter (cos(theta)) + +!echmod real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment + real (kind=dbl_kind), dimension(nspint_5bd,1471) :: & + bcenh_5bd ! BC absorption enhancement factor + + ! SNICAR snow grain single-scattering properties (SSP) for + ! direct (drc) and diffuse (dfs) shortwave incidents +! real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & + real (kind=dbl_kind), dimension(5,1471) :: & + asm_prm_ice_drc , & ! snow asymmetry factor (cos(theta)) + asm_prm_ice_dfs , & ! snow asymmetry factor (cos(theta)) + ss_alb_ice_drc , & ! snow single scatter albedo (fraction) + ss_alb_ice_dfs , & ! snow single scatter albedo (fraction) + ext_cff_mss_ice_drc , & ! snow mass extinction cross section (m2/kg) + ext_cff_mss_ice_dfs ! snow mass extinction cross section (m2/kg) character (len=char_len), intent(in) :: & calendar_type ! differentiates Gregorian from other calendars @@ -990,6 +1022,18 @@ subroutine run_dEdd(dt, ncat, & character(len=*),parameter :: subname='(run_dEdd)' +!echmod - temporary, for testing + use_snicar = .false. +! use_snicar = .true. + asm_prm_ice_drc = 0.90 ! snow asymmetry factor (cos(theta)) + asm_prm_ice_dfs = 0.89 ! snow asymmetry factor (cos(theta)) + ss_alb_ice_drc = 0.95 ! snow single scatter albedo (fraction) + ss_alb_ice_dfs = 0.99 ! snow single scatter albedo (fraction) + ext_cff_mss_ice_drc = 2.00 ! snow mass extinction cross section (m2/kg) + ext_cff_mss_ice_dfs = 1.50 ! snow mass extinction cross section (m2/kg) +!echmod end + + allocate(l_fswthrun_vdr(ncat)) allocate(l_fswthrun_vdf(ncat)) allocate(l_fswthrun_idr(ncat)) @@ -1185,12 +1229,12 @@ subroutine run_dEdd(dt, ncat, & fpn, hpn, & aeron(:,n), & R_ice, R_pnd, & - kaer_tab, waer_tab, & - gaer_tab, & - kaer_bc_tab, & - waer_bc_tab, & - gaer_bc_tab, & - bcenh, modal_aero, & + kaer_3bd, waer_3bd, & + gaer_3bd, & + kaer_bc_3bd, & + waer_bc_3bd, & + gaer_bc_3bd, & + bcenh_3bd, modal_aero, & kalg, & swvdr, swvdf, & swidr, swidf, & @@ -1209,6 +1253,8 @@ subroutine run_dEdd(dt, ncat, & albpnd=albpndn(n), & fswpenl=fswpenln(:,n), & zbio=trcrn_bgcsw(:,n), & + use_snicar=use_snicar, & +!echmod add _5bd l_print_point=l_print_point) if (icepack_warnings_aborted(subname)) return @@ -1276,12 +1322,12 @@ subroutine shortwave_dEdd (dEdd_algae, & fp, hp, & aero, & R_ice, R_pnd, & - kaer_tab, waer_tab, & - gaer_tab, & - kaer_bc_tab, & - waer_bc_tab, & - gaer_bc_tab, & - bcenh, modal_aero, & + kaer_3bd, waer_3bd, & + gaer_3bd, & + kaer_bc_3bd, & + waer_bc_3bd, & + gaer_bc_3bd, & + bcenh_3bd, modal_aero, & kalg, & swvdr, swvdf, & swidr, swidf, & @@ -1297,7 +1343,21 @@ subroutine shortwave_dEdd (dEdd_algae, & Iswabs, albice, & albsno, albpnd, & fswpenl, zbio, & - l_print_point) + l_print_point, & + use_snicar, & + asm_prm_ice_drc, & + asm_prm_ice_dfs, & + ss_alb_ice_drc, & + ss_alb_ice_dfs, & + ext_cff_mss_ice_drc, & + ext_cff_mss_ice_dfs, & + kaer_5bd, & + waer_5bd, & + gaer_5bd, & + kaer_bc_5bd, & + waer_bc_5bd, & + gaer_bc_5bd, & + bcenh_5bd) integer (kind=int_kind), intent(in) :: & nilyr , & ! number of ice layers @@ -1310,18 +1370,45 @@ subroutine shortwave_dEdd (dEdd_algae, & dEdd_algae, & ! .true. use prognostic chla in dEdd modal_aero ! .true. use modal aerosol treatment + real (kind=dbl_kind), dimension(:,:), intent(in) :: & + kaer_3bd, & ! aerosol mass extinction cross section (m2/kg) + waer_3bd, & ! aerosol single scatter albedo (fraction) + gaer_3bd ! aerosol asymmetry parameter (cos(theta)) + real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Modal aerosol treatment - kaer_bc_tab, & ! aerosol mass extinction cross section (m2/kg) - waer_bc_tab, & ! aerosol single scatter albedo (fraction) - gaer_bc_tab ! aerosol asymmetry parameter (cos(theta)) + kaer_bc_3bd, & ! aerosol mass extinction cross section (m2/kg) + waer_bc_3bd, & ! aerosol single scatter albedo (fraction) + gaer_bc_3bd ! aerosol asymmetry parameter (cos(theta)) real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment - bcenh ! BC absorption enhancement factor - - real (kind=dbl_kind), dimension(:,:), intent(in) :: & - kaer_tab, & ! aerosol mass extinction cross section (m2/kg) - waer_tab, & ! aerosol single scatter albedo (fraction) - gaer_tab ! aerosol asymmetry parameter (cos(theta)) + bcenh_3bd ! BC absorption enhancement factor + + logical (kind=log_kind), intent(in), optional :: & + use_snicar ! .true. use 5-band SNICAR-AD approach + + ! SNICAR snow grain single-scattering properties (SSP) for + ! direct (drc) and diffuse (dfs) shortwave incidents + real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & +! real (kind=dbl_kind), dimension(5,1471) :: & + asm_prm_ice_drc , & ! snow asymmetry factor (cos(theta)) + asm_prm_ice_dfs , & ! snow asymmetry factor (cos(theta)) + ss_alb_ice_drc , & ! snow single scatter albedo (fraction) + ss_alb_ice_dfs , & ! snow single scatter albedo (fraction) + ext_cff_mss_ice_drc , & ! snow mass extinction cross section (m2/kg) + ext_cff_mss_ice_dfs ! snow mass extinction cross section (m2/kg) + + real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & + kaer_5bd, & ! aerosol mass extinction cross section (m2/kg) + waer_5bd, & ! aerosol single scatter albedo (fraction) + gaer_5bd ! aerosol asymmetry parameter (cos(theta)) + + real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & ! Modal aerosol treatment + kaer_bc_5bd, & ! aerosol mass extinction cross section (m2/kg) + waer_bc_5bd, & ! aerosol single scatter albedo (fraction) + gaer_bc_5bd ! aerosol asymmetry parameter (cos(theta)) + + real (kind=dbl_kind), dimension(:,:,:), intent(in), optional :: & ! Modal aerosol treatment + bcenh_5bd ! BC absorption enhancement factor real (kind=dbl_kind), intent(in) :: & kalg , & ! algae absorption coefficient @@ -1388,6 +1475,7 @@ subroutine shortwave_dEdd (dEdd_algae, & aero_mp ! aerosol mass path in kg/m2 integer (kind=int_kind) :: & + nspint , & ! number of solar spectral bands srftyp ! surface type over ice: (0=air, 1=snow, 2=pond) integer (kind=int_kind) :: & @@ -1489,17 +1577,18 @@ subroutine shortwave_dEdd (dEdd_algae, & ! calculate bare sea ice srftyp = 0 - call compute_dEdd(nilyr, nslyr, klev, klevp, & - zbio, dEdd_algae, & + nspint = nspint_3bd + call compute_dEdd(nilyr, nslyr, nspint, & + klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER heat_capacity, fnidr, coszen, & #else fnidr, coszen, & #endif R_ice, R_pnd, & - kaer_tab, waer_tab, gaer_tab, & - kaer_bc_tab, waer_bc_tab, gaer_bc_tab, & - bcenh, modal_aero, kalg, & + kaer_3bd, waer_3bd, gaer_3bd, & + kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd, & + bcenh_3bd, modal_aero, kalg, & swvdr, swvdf, swidr, swidf, srftyp, & hstmp, rhosnw, rsnw, hi, hp, & fi, aero_mp, avdrl, avdfl, & @@ -1534,17 +1623,19 @@ subroutine shortwave_dEdd (dEdd_algae, & ! calculate snow covered sea ice srftyp = 1 - call compute_dEdd(nilyr, nslyr, klev, klevp, & - zbio, dEdd_algae, & + if (use_snicar) then + nspint = nspint_5bd + call compute_dEdd(nilyr, nslyr, nspint, & + klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER heat_capacity, fnidr, coszen, & #else fnidr, coszen, & #endif R_ice, R_pnd, & - kaer_tab, waer_tab, gaer_tab, & - kaer_bc_tab, waer_bc_tab, gaer_bc_tab, & - bcenh, modal_aero, kalg, & + kaer_5bd, waer_5bd, gaer_5bd, & + kaer_bc_5bd, waer_bc_5bd, gaer_bc_5bd, & + bcenh_5bd, modal_aero, kalg, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fs, aero_mp, avdrl, avdfl, & @@ -1557,6 +1648,32 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idf, & Sswabs, & Iswabs, fswpenl) + else + nspint = nspint_3bd + call compute_dEdd(nilyr, nslyr, nspint, & + klev, klevp, zbio, dEdd_algae, & +#ifdef UNDEPRECATE_0LAYER + heat_capacity, fnidr, coszen, & +#else + fnidr, coszen, & +#endif + R_ice, R_pnd, & + kaer_3bd, waer_3bd, gaer_3bd, & + kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd, & + bcenh_3bd, modal_aero, kalg, & + swvdr, swvdf, swidr, swidf, srftyp, & + hs, rhosnw, rsnw, hi, hp, & + fs, aero_mp, avdrl, avdfl, & + aidrl, aidfl, & + fswsfc, fswint, & + fswthru, & + fswthru_vdr, & + fswthru_vdf, & + fswthru_idr, & + fswthru_idf, & + Sswabs, & + Iswabs, fswpenl) + endif if (icepack_warnings_aborted(subname)) return alvdr = alvdr + avdrl *fs @@ -1569,7 +1686,7 @@ subroutine shortwave_dEdd (dEdd_algae, & + awtvdf*avdfl + awtidf*aidfl endif endif - + hi = c0 ! sea ice points with sun above horizon @@ -1584,17 +1701,18 @@ subroutine shortwave_dEdd (dEdd_algae, & ! calculate ponded ice srftyp = 2 - call compute_dEdd(nilyr, nslyr, klev, klevp, & - zbio, dEdd_algae, & + nspint = nspint_3bd + call compute_dEdd(nilyr, nslyr, nspint, & + klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER heat_capacity, fnidr, coszen, & #else fnidr, coszen, & #endif R_ice, R_pnd, & - kaer_tab, waer_tab, gaer_tab, & - kaer_bc_tab, waer_bc_tab, gaer_bc_tab, & - bcenh, modal_aero, kalg, & + kaer_3bd, waer_3bd, gaer_3bd, & + kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd, & + bcenh_3bd, modal_aero, kalg, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fp, aero_mp, avdrl, avdfl, & @@ -1706,9 +1824,25 @@ end subroutine shortwave_dEdd ! ! author: Bruce P. Briegleb, NCAR ! 2013: E Hunke merged with NCAR version - - subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & - zbio, dEdd_algae, & +! 2018: Cheng Dang merged with SNICAR 5-band snow and aersols IOPs, UC Irvine + +! Note regarding SNICAR 5-band scheme: +! 1. The shortwave radiative transfer properties of snow-covered sea ice are +! calculated for 5 bands (1 visible and 4 near-IR) defined in SNICAR +! 2. The reflection/absorption/transmission of direct and diffuse shortwave +! incidents are calculated seperately to remove the snow grain adjustment +! 3. The albedo and absorption of snow-covered sea ice are adjusted when the +! solar zenith angle is above 75 degrees +! 4. The original subroutine, compute_dEdd_5bd, has been merged with this +! compute_dEdd subroutine. +! For further information, see +! Dang, C., Zender, C. S., and Flanner, M. G.: Intercomparison and improvement +! of 2-stream shortwave radiative transfer schemes in Earth system models for +! a unified treatment of cryospheric surfaces. The Cryosphere, 13, 2325-2343, +! 2019. https://doi.org/10.5194/tc-13-2325-2019 + + subroutine compute_dEdd(nilyr, nslyr, nspint, & + klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER heat_capacity, fnidr, coszen, & #else @@ -1729,7 +1863,11 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl) + Iswabs, fswpenl, & + use_snicar, & + asm_prm_ice_drc, asm_prm_ice_dfs, & + ss_alb_ice_drc, ss_alb_ice_dfs, & + ext_cff_mss_ice_drc, ext_cff_mss_ice_dfs) integer (kind=int_kind), intent(in) :: & nilyr , & ! number of ice layers @@ -1744,7 +1882,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & #endif dEdd_algae, & ! .true. use prognostic chla in dEdd modal_aero ! .true. use modal aerosol treatment - + real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Modal aerosol treatment kaer_bc_tab, & ! aerosol mass extinction cross section (m2/kg) waer_bc_tab, & ! aerosol single scatter albedo (fraction) @@ -1773,6 +1911,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & swidf ! shortwave down at surface, near IR, diffuse (W/m^2) integer (kind=int_kind), intent(in) :: & + nspint , & ! number of solar spectral bands srftyp ! surface type over ice: (0=air, 1=snow, 2=pond) real (kind=dbl_kind), intent(in) :: & @@ -1809,6 +1948,19 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & Sswabs , & ! SW absorbed in snow layer (W m-2) Iswabs ! SW absorbed in ice layer (W m-2) + logical (kind=log_kind), intent(in), optional :: & + use_snicar ! .true. use 5-band SNICAR-AD approach + + ! SNICAR snow grain single-scattering properties (SSP) for + ! direct (drc) and diffuse (dfs) shortwave incidents + real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & + asm_prm_ice_drc , & ! snow asymmetry factor (cos(theta)) + asm_prm_ice_dfs , & ! snow asymmetry factor (cos(theta)) + ss_alb_ice_drc , & ! snow single scatter albedo (fraction) + ss_alb_ice_dfs , & ! snow single scatter albedo (fraction) + ext_cff_mss_ice_drc , & ! snow mass extinction cross section (m2/kg) + ext_cff_mss_ice_dfs ! snow mass extinction cross section (m2/kg) + !----------------------------------------------------------------------- ! ! Set up optical property profiles, based on snow, sea ice and ponded @@ -1925,7 +2077,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & kii ! level starting index for sea ice (nslyr+1) integer (kind=int_kind), parameter :: & - nmbrad = 32 ! number of snow grain radii in tables + nmbrad = 32 ! number of snow grain radii in tables real (kind=dbl_kind) :: & avdr , & ! visible albedo, direct (fraction) @@ -1951,8 +2103,8 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & real (kind=dbl_kind), dimension(nilyr+1) :: & fthrul ! shortwave through to ice layers (W m-2) - real (kind=dbl_kind), dimension (nspint) :: & - wghtns ! spectral weights + real (kind=dbl_kind), dimension (nspint_3bd) :: & + wghtns ! spectral weights real (kind=dbl_kind), parameter :: & cp67 = 0.67_dbl_kind , & ! nir band weight parameter @@ -1983,14 +2135,14 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & delr , & ! snow grain radius interpolation parameter ! inherent optical properties (iop) for snow Qs , & ! Snow extinction efficiency - ks , & ! Snow extinction coefficient (/m) + ks , & ! Snow mass extinction coefficient (m^2/kg) ! echmod - CHECK units and usage ws , & ! Snow single scattering albedo gs ! Snow asymmetry parameter real (kind=dbl_kind), dimension(nslyr) :: & frsnw ! snow grain radius in snow layer * adjustment factor (m) - ! actual used ice and ponded ice IOPs, allowing for tuning + ! ice and ponded ice IOPs, allowing for tuning ! modifications of the above "_mn" value real (kind=dbl_kind), dimension (nspint) :: & ki_ssl , & ! Surface-scattering-layer ice extinction coefficient (/m) @@ -2064,11 +2216,12 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & tmp_0, tmp_ks, tmp_kl ! temp variables integer(kind=int_kind), dimension(0:klev) :: & - k_bcini , & ! + k_bcini , & ! index k_bcins , & k_bcexs + real(kind=dbl_kind):: & - tmp_gs, tmp1 ! temp variables + tmp_gs, tmp1 ! temp variables ! snow grain radii (micro-meters) for table real (kind=dbl_kind), dimension(nmbrad), parameter :: & @@ -2083,7 +2236,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & 1600._dbl_kind, 1800._dbl_kind, 2000._dbl_kind, 2500._dbl_kind/) ! snow extinction efficiency (unitless) - real (kind=dbl_kind), dimension (nspint,nmbrad), parameter :: & + real (kind=dbl_kind), dimension (nspint_3bd,nmbrad), parameter :: & Qs_tab = reshape((/ & 2.131798_dbl_kind, 2.187756_dbl_kind, 2.267358_dbl_kind, & 2.104499_dbl_kind, 2.148345_dbl_kind, 2.236078_dbl_kind, & @@ -2117,10 +2270,10 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & 2.002590_dbl_kind, 2.003627_dbl_kind, 2.005276_dbl_kind, & 2.002395_dbl_kind, 2.003391_dbl_kind, 2.004904_dbl_kind, & 2.002071_dbl_kind, 2.002922_dbl_kind, 2.004241_dbl_kind/), & - (/nspint,nmbrad/)) + (/nspint_3bd,nmbrad/)) ! snow single scattering albedo (unitless) - real (kind=dbl_kind), dimension (nspint,nmbrad), parameter :: & + real (kind=dbl_kind), dimension (nspint_3bd,nmbrad), parameter :: & ws_tab = reshape((/ & 0.9999994_dbl_kind, 0.9999673_dbl_kind, 0.9954589_dbl_kind, & 0.9999992_dbl_kind, 0.9999547_dbl_kind, 0.9938576_dbl_kind, & @@ -2154,10 +2307,10 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & 0.9998332_dbl_kind, 0.9926888_dbl_kind, 0.8095131_dbl_kind, & 0.9998148_dbl_kind, 0.9919968_dbl_kind, 0.7968620_dbl_kind, & 0.9997691_dbl_kind, 0.9903277_dbl_kind, 0.7677887_dbl_kind/), & - (/nspint,nmbrad/)) + (/nspint_3bd,nmbrad/)) ! snow asymmetry parameter (unitless) - real (kind=dbl_kind), dimension (nspint,nmbrad), parameter :: & + real (kind=dbl_kind), dimension (nspint_3bd,nmbrad), parameter :: & gs_tab = reshape((/ & 0.859913_dbl_kind, 0.848003_dbl_kind, 0.824415_dbl_kind, & 0.867130_dbl_kind, 0.858150_dbl_kind, 0.848445_dbl_kind, & @@ -2191,7 +2344,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & 0.891340_dbl_kind, 0.896623_dbl_kind, 0.950916_dbl_kind, & 0.891356_dbl_kind, 0.896851_dbl_kind, 0.951945_dbl_kind, & 0.891386_dbl_kind, 0.897399_dbl_kind, 0.954156_dbl_kind/), & - (/nspint,nmbrad/)) + (/nspint_3bd,nmbrad/)) ! inherent optical property (iop) arrays for ice and ponded ice ! mn = specified mean (or base) value @@ -2199,32 +2352,38 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & ! wi = single scattering albedo ! gi = asymmetry parameter + real (kind=dbl_kind), dimension (nspint) :: & + ki_ssl_mn, wi_ssl_mn, gi_ssl_mn, & ! ice surface scattering layer (ssl) iops + ki_dl_mn, wi_dl_mn, gi_dl_mn , & ! ice drained layer (dl) iops + ki_int_mn, wi_int_mn, gi_int_mn ! ice interior layer (int) iops + + ! 3-band data values ! ice surface scattering layer (ssl) iops - real (kind=dbl_kind), dimension (nspint), parameter :: & - ki_ssl_mn = (/ 1000.1_dbl_kind, 1003.7_dbl_kind, 7042._dbl_kind/), & - wi_ssl_mn = (/ .9999_dbl_kind, .9963_dbl_kind, .9088_dbl_kind/), & - gi_ssl_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind/) + real (kind=dbl_kind), dimension (nspint_3bd), parameter :: & + ki_ssl_mn_3bd = (/ 1000.1_dbl_kind, 1003.7_dbl_kind, 7042._dbl_kind/), & + wi_ssl_mn_3bd = (/ .9999_dbl_kind, .9963_dbl_kind, .9088_dbl_kind/), & + gi_ssl_mn_3bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind/) ! ice drained layer (dl) iops - real (kind=dbl_kind), dimension (nspint), parameter :: & - ki_dl_mn = (/ 100.2_dbl_kind, 107.7_dbl_kind, 1309._dbl_kind /), & - wi_dl_mn = (/ .9980_dbl_kind, .9287_dbl_kind, .0305_dbl_kind /), & - gi_dl_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) + real (kind=dbl_kind), dimension (nspint_3bd), parameter :: & + ki_dl_mn_3bd = (/ 100.2_dbl_kind, 107.7_dbl_kind, 1309._dbl_kind /), & + wi_dl_mn_3bd = (/ .9980_dbl_kind, .9287_dbl_kind, .0305_dbl_kind /), & + gi_dl_mn_3bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) ! ice interior layer (int) iops - real (kind=dbl_kind), dimension (nspint), parameter :: & - ki_int_mn = (/ 20.2_dbl_kind, 27.7_dbl_kind, 1445._dbl_kind /), & - wi_int_mn = (/ .9901_dbl_kind, .7223_dbl_kind, .0277_dbl_kind /), & - gi_int_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) + real (kind=dbl_kind), dimension (nspint_3bd), parameter :: & + ki_int_mn_3bd = (/ 20.2_dbl_kind, 27.7_dbl_kind, 1445._dbl_kind /), & + wi_int_mn_3bd = (/ .9901_dbl_kind, .7223_dbl_kind, .0277_dbl_kind /), & + gi_int_mn_3bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) ! ponded ice surface scattering layer (ssl) iops - real (kind=dbl_kind), dimension (nspint), parameter :: & + real (kind=dbl_kind), dimension (nspint_3bd), parameter :: & ki_p_ssl_mn = (/ 70.2_dbl_kind, 77.7_dbl_kind, 1309._dbl_kind/), & wi_p_ssl_mn = (/ .9972_dbl_kind, .9009_dbl_kind, .0305_dbl_kind/), & gi_p_ssl_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) ! ponded ice interior layer (int) iops - real (kind=dbl_kind), dimension (nspint), parameter :: & + real (kind=dbl_kind), dimension (nspint_3bd), parameter :: & ki_p_int_mn = (/ 20.2_dbl_kind, 27.7_dbl_kind, 1445._dbl_kind/), & wi_p_int_mn = (/ .9901_dbl_kind, .7223_dbl_kind, .0277_dbl_kind/), & gi_p_int_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) @@ -2233,7 +2392,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & ! kw = Pond water extinction coefficient (/m) ! ww = Pond water single scattering albedo ! gw = Pond water asymmetry parameter - real (kind=dbl_kind), dimension (nspint), parameter :: & + real (kind=dbl_kind), dimension (nspint_3bd), parameter :: & kw = (/ 0.20_dbl_kind, 12.0_dbl_kind, 729._dbl_kind /), & ww = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /), & gw = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /) @@ -2257,14 +2416,87 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & ! Grenfell 1991 uses 0.004 (m^2/mg) which is (0.0078 * spectral weighting) !chlorophyll mass extinction cross section (m^2/mg chla) + ! SNICAR inputs + logical (kind=log_kind) :: & + l_use_snicar ! local value for use_snicar + + integer (kind=int_kind), parameter :: & + nmbrad_snicar = 1471, & ! number of snow grain radii in SNICAR snow iops table + rsnw_snicar_max = 1500, & + rsnw_snicar_min = 30 + + real (kind=dbl_kind), dimension (5) :: & + wghtns_5bd_dfs, & ! spectral weights for diffuse incident + wghtns_5bd_drc ! spectral weights for direct incident + + integer (kind=int_kind) :: & + nsky !sky = 1 (2) for direct (diffuse) downward SW incident + + real (kind=dbl_kind), parameter :: & ! solar zenith angle parameterizations + sza_a0 = 0.085730_dbl_kind , & + sza_a1 = -0.630883_dbl_kind , & + sza_a2 = 1.303723_dbl_kind , & + sza_b0 = 1.467291_dbl_kind , & + sza_b1 = -3.338043_dbl_kind , & + sza_b2 = 6.807489_dbl_kind , & + mu_75 = 0.2588_dbl_kind ! cosine(75 degrees) + + real (kind=dbl_kind) :: & + sza_c1 , & ! parameter for high sza adjustment + sza_c0 , & ! parameter for high sza adjustment + sza_factor , & ! parameter for high sza adjustment + mu0 + + ! 5-bands ice surface scattering layer (ssl) iops to match SNICAR calculations + ! note by Cheng Dang: + ! for now these data are not needed since the sea ice layer IOPs can be directly + ! assigned based on the 3 bands data after adjustment based on tuning parameter R_ice + ! In the future, when 5-band sea ice IOPs are available, these data shall be updated + ! and the sea ice layer IOPs shall be calculated based on updated 5band iops* + ! + ! The 5band data given in this section are based on CICE and SNICAR band choice: + ! SNICAR band 1 = CICE band 1 + ! SNICAR band 2 + SNICAR band 3 = CICE band 2 + ! SNICAR band 4 + SNICAR band 5 = CICE band 3 + + ! ice surface scattering layer (ssl) iops + real (kind=dbl_kind), dimension (nspint_5bd), parameter :: & + ki_ssl_mn_5bd = (/ 1000.1_dbl_kind, 1003.7_dbl_kind, 1003.7_dbl_kind, & + 7042._dbl_kind, 7042._dbl_kind /), & + wi_ssl_mn_5bd = (/ .9999_dbl_kind, .9963_dbl_kind, .9963_dbl_kind, & + .9088_dbl_kind, .9088_dbl_kind /), & + gi_ssl_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & + .94_dbl_kind, .94_dbl_kind /) + + ! ice drained layer (dl) iops + real (kind=dbl_kind), dimension (nspint_5bd), parameter :: & + ki_dl_mn_5bd = (/ 100.2_dbl_kind, 107.7_dbl_kind, 107.7_dbl_kind, & + 1309._dbl_kind, 1309._dbl_kind /), & + wi_dl_mn_5bd = (/ .9980_dbl_kind, .9287_dbl_kind, .9287_dbl_kind, & + .0305_dbl_kind, .0305_dbl_kind /), & + gi_dl_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & + .94_dbl_kind, .94_dbl_kind /) + + ! ice interior layer (int) iops + real (kind=dbl_kind), dimension (nspint_5bd), parameter :: & + ki_int_mn_5bd = (/ 20.2_dbl_kind, 27.7_dbl_kind, 27.7_dbl_kind, & + 1445._dbl_kind, 1445._dbl_kind/), & + wi_int_mn_5bd = (/ .9901_dbl_kind, .7223_dbl_kind, .7223_dbl_kind, & + .0277_dbl_kind, .0277_dbl_kind /), & + gi_int_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & + .94_dbl_kind, .94_dbl_kind /) + character(len=*),parameter :: subname='(compute_dEdd)' + l_use_snicar = .false. + if (present(use_snicar)) l_use_snicar = .true. + !----------------------------------------------------------------------- ! Initialize and tune bare ice/ponded ice iops - k_bcini(:) = c0 - k_bcins(:) = c0 - k_bcexs(:) = c0 + k_bcini(:) = 0 + k_bcins(:) = 0 + k_bcexs(:) = 0 rnilyr = c1/real(nilyr,kind=dbl_kind) rnslyr = c1/real(nslyr,kind=dbl_kind) @@ -2290,16 +2522,57 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & fthruidr = c0 fthruidf = c0 + if (nspint == nspint_3bd) then + ki_ssl_mn = ki_ssl_mn_3bd + wi_ssl_mn = wi_ssl_mn_3bd + gi_ssl_mn = gi_ssl_mn_3bd + ki_dl_mn = ki_dl_mn_3bd + wi_dl_mn = wi_dl_mn_3bd + gi_dl_mn = gi_dl_mn_3bd + ki_int_mn = ki_int_mn_3bd + wi_int_mn = wi_int_mn_3bd + gi_int_mn = gi_int_mn_3bd + elseif (l_use_snicar .and. nspint == nspint_5bd) then + ki_ssl_mn = ki_ssl_mn_5bd + wi_ssl_mn = wi_ssl_mn_5bd + gi_ssl_mn = gi_ssl_mn_5bd + ki_dl_mn = ki_dl_mn_5bd + wi_dl_mn = wi_dl_mn_5bd + gi_dl_mn = gi_dl_mn_5bd + ki_int_mn = ki_int_mn_5bd + wi_int_mn = wi_int_mn_5bd + gi_int_mn = gi_int_mn_5bd + else + !echmod abort + endif + ! spectral weights + if (nspint == nspint_3bd) then ! weights 2 (0.7-1.19 micro-meters) and 3 (1.19-5.0 micro-meters) ! are chosen based on 1D calculations using ratio of direct to total ! near-infrared solar (0.7-5.0 micro-meter) which indicates clear/cloudy ! conditions: more cloud, the less 1.19-5.0 relative to the ! 0.7-1.19 micro-meter due to cloud absorption. - wghtns(1) = c1 - wghtns(2) = cp67 + (cp78-cp67)*(c1-fnidr) -! wghtns(3) = cp33 + (cp22-cp33)*(c1-fnidr) - wghtns(3) = c1 - wghtns(2) + wghtns(1) = c1 + wghtns(2) = cp67 + (cp78-cp67)*(c1-fnidr) + wghtns(3) = c1 - wghtns(2) + + elseif (l_use_snicar .and. nspint == nspint_5bd) then + ! direct beam incident + ! add-local-variable + wghtns_5bd_drc(1) = 1._dbl_kind + wghtns_5bd_drc(2) = 0.49352158521175_dbl_kind + wghtns_5bd_drc(3) = 0.18099494230665_dbl_kind + wghtns_5bd_drc(4) = 0.12094898498813_dbl_kind + wghtns_5bd_drc(5) = c1-(wghtns_5bd_drc(2)+wghtns_5bd_drc(3)+wghtns_5bd_drc(4)) + + ! diffuse incident + wghtns_5bd_dfs(1) = 1._dbl_kind + wghtns_5bd_dfs(2) = 0.58581507618433_dbl_kind + wghtns_5bd_dfs(3) = 0.20156903770812_dbl_kind + wghtns_5bd_dfs(4) = 0.10917889346386_dbl_kind + wghtns_5bd_dfs(5) = c1-(wghtns_5bd_dfs(2)+wghtns_5bd_dfs(3)+wghtns_5bd_dfs(4)) + endif ! find snow grain adjustment factor, dependent upon clear/overcast sky ! estimate. comparisons with SNICAR show better agreement with DE when @@ -2434,23 +2707,29 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & kabs_chl(1,k) = kalg*(0.50_dbl_kind/dzk(k)) endif ! kabs_chl -!mgf++ + ! aerosols if (modal_aero) then do k=0,klev if (k < nslyr+1) then ! define indices for snow layer ! use top rsnw, rhosnw for snow ssl and rest of top layer + ! Cheng: note that aerosol IOPs are related to snow grain radius. + ! CICE adjusted snow grain radius rsnw to frsnw in the original 3-band + ! scheme, while for SNICAR the snow grain radius is used directly. ksnow = k - min(k-1,0) - tmp_gs = frsnw(ksnow) + if (nspint == nspint_3bd) then + tmp_gs = frsnw(ksnow) + elseif (l_use_snicar .and. nspint == nspint_5bd) then + tmp_gs = rsnw(ksnow) + endif - ! get grain size index: - ! works for 25 < snw_rds < 1625 um: - if (tmp_gs < 125) then - tmp1 = tmp_gs/50 + ! grain size index: works for 25 < snw_rds < 1625 um: + if (tmp_gs < 125._dbl_kind) then + tmp1 = tmp_gs/50._dbl_kind k_bcini(k) = nint(tmp1) - elseif (tmp_gs < 175) then + elseif (tmp_gs < 175._dbl_kind) then k_bcini(k) = 2 else - tmp1 = (tmp_gs/250)+2 + tmp1 = (tmp_gs/250._dbl_kind) + c2 k_bcini(k) = nint(tmp1) endif else ! use the largest snow grain size for ice @@ -2540,6 +2819,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & !----------------------------------------------------------------------- ! begin spectral loop +!echmod - split this loop for efficiency, if possible (move conditionals outside of the loop) do ns = 1, nspint ! set optical properties of air/snow/pond overlying sea ice @@ -2554,6 +2834,8 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & else if( srftyp == 1 ) then ! interpolate snow iops using input snow grain radius, ! snow density and tabular data + + if (nspint == nspint_3bd) then do k=0,nslyr ! use top rsnw, rhosnw for snow ssl and rest of top layer ksnow = k - min(k-1,0) @@ -2588,72 +2870,149 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & tau(k) = (ks + kabs_chl(ns,k))*dzk(k) w0(k) = ks/(ks + kabs_chl(ns,k)) *ws g(k) = gs + enddo ! k + elseif (l_use_snicar .and. nspint == nspint_5bd) then + ! SNICAR 5-band +! do nsky = 1,2 ! loop for both direct beam and diffuse beam +! if (nsky == 1) then ! direct incident + nsky = 1 ! for diagnostics + do k=0,nslyr + ksnow = k - min(k-1,0) + if (rsnw(ksnow) <= rsnw_snicar_min) then + ks = ext_cff_mss_ice_drc(ns,1) + ws = ss_alb_ice_drc(ns,1) + gs = asm_prm_ice_drc(ns,1) + elseif (rsnw(ksnow) >= rsnw_snicar_max) then + ks = ext_cff_mss_ice_drc(ns,nmbrad_snicar) + ws = ss_alb_ice_drc(ns,nmbrad_snicar) + gs = asm_prm_ice_drc(ns,nmbrad_snicar) + elseif (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then + nr = ceiling(rsnw(ksnow)) - 30 + 1 + ks = ext_cff_mss_ice_drc(ns,nr) + ws = ss_alb_ice_drc(ns,nr) + gs = asm_prm_ice_drc(ns,nr) + else ! linear interpolation in rsnw + ! radius = 30 --> nr = 1 in SNICAR table + nr = ceiling(rsnw(ksnow)) - 30 + 1 + delr = (rsnw(ksnow) - floor(rsnw(ksnow))) / & + (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) + ks = ext_cff_mss_ice_drc(ns,nr-1)*(delr) + & + ext_cff_mss_ice_drc(ns,nr)*(c1-delr) + ws = ss_alb_ice_drc(ns,nr-1)*(delr) + & + ss_alb_ice_drc(ns,nr)*(c1-delr) + gs = asm_prm_ice_drc(ns,nr-1)*(delr) + & + asm_prm_ice_drc(ns,nr)*(c1-delr) + endif + ! ks = Qs*((rhosnw(ksnow)/rhoi)*3._dbl_kind / & + ! (4._dbl_kind*rsnw(ksnow)*1.0e-6_dbl_kind)) + tau(k) = (ks*rhosnw(ksnow) + kabs_chl(ns,k))*dzk(k) + !w0(k) = ks/(ks + kabs_chl(ns,k))*ws + w0(k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl(ns,k)) * ws + g(k) = gs + + !write(warning, *) "sky, k, tau, w0, g =", nsky, k, tau(k), w0(k), g(k) + !write(warning, *) "ns, ks, kabs_chl(ns,k), ", ns, ks, kabs_chl(ns,k) + !call add_warning(warning) + !print *, "rsnw(ksnow)", rsnw(ksnow) + !print *, "sky, k, tau, w0, g =", nsky, k, tau(k), w0(k), g(k) + !print *, "ns, ks, kabs_chl(ns,k), ",ns, ks, kabs_chl(ns,k) + enddo ! k +! elseif (nsky == 2) then ! diffuse incident + nsky = 2 ! for diagnostics + do k=0,nslyr + ! use top rsnw, rhosnw for snow ssl and rest of top layer + ksnow = k - min(k-1,0) + if (rsnw(ksnow) < rsnw_snicar_min) then + ks = ext_cff_mss_ice_dfs(ns,1) + ws = ss_alb_ice_dfs(ns,1) + gs = asm_prm_ice_dfs(ns,1) + elseif (rsnw(ksnow) > rsnw_snicar_max) then + ks = ext_cff_mss_ice_dfs(ns,nmbrad_snicar) + ws = ss_alb_ice_dfs(ns,nmbrad_snicar) + gs = asm_prm_ice_dfs(ns,nmbrad_snicar) + elseif (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then + nr = ceiling(rsnw(ksnow)) - 30 + 1 + ks = ext_cff_mss_ice_dfs(ns,nr) + ws = ss_alb_ice_dfs(ns,nr) + gs = asm_prm_ice_dfs(ns,nr) + else ! linear interpolation in rsnw + ! radius = 30 --> nr = 1 in SNICAR table + nr = ceiling(rsnw(ksnow)) - 30 + 1 + delr = (rsnw(ksnow) - floor(rsnw(ksnow))) / & + (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) + ks = ext_cff_mss_ice_dfs(ns,nr-1)*(c1-delr) + & + ext_cff_mss_ice_dfs(ns,nr)*delr + ws = ss_alb_ice_dfs(ns,nr-1)*(c1-delr) + & + ss_alb_ice_dfs(ns,nr)*delr + gs = asm_prm_ice_dfs(ns,nr-1)*(c1-delr) + & + asm_prm_ice_dfs(ns,nr)*delr + endif + ! ks = Qs*((rhosnw(ksnow)/rhoi)*3._dbl_kind / & + ! (4._dbl_kind*rsnw(ksnow)*1.0e-6_dbl_kind)) + tau(k) = (ks*rhosnw(ksnow) + kabs_chl(ns,k))*dzk(k) + !w0(k) = ks/(ks + kabs_chl(ns,k)) *ws + w0(k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl(ns,k)) * ws + g(k) = gs + + !write(warning, *) "sky, k, tau, w0, g =", nsky, k, tau(k), w0(k), g(k) + !write(warning, *) "ns, ks, kabs_chl(ns,k), ", ns, ks, kabs_chl(ns,k) + !call add_warning(warning) + enddo ! k +! endif ! end if nsky for snow IOPs assignment + endif ! nspint ! aerosol in snow - if (tr_zaero .and. dEdd_algae) then + if (tr_zaero .and. dEdd_algae) then do k = 0,nslyr gzaer(ns,k) = gzaer(ns,k)/(wzaer(ns,k)+puny) wzaer(ns,k) = wzaer(ns,k)/(tzaer(ns,k)+puny) - g(k) = (g(k)*w0(k)*tau(k) + gzaer(ns,k)*wzaer(ns,k)*tzaer(ns,k)) / & - (w0(k)*tau(k) + wzaer(ns,k)*tzaer(ns,k)) - w0(k) = (w0(k)*tau(k) + wzaer(ns,k)*tzaer(ns,k)) / & - (tau(k) + tzaer(ns,k)) + g(k) = (g(k)*w0(k)*tau(k) + gzaer(ns,k)*wzaer(ns,k)*tzaer(ns,k)) & + / (w0(k)*tau(k) + wzaer(ns,k)*tzaer(ns,k)) + w0(k) = (w0(k)*tau(k) + wzaer(ns,k)*tzaer(ns,k)) & + / (tau(k) + tzaer(ns,k)) tau(k) = tau(k) + tzaer(ns,k) enddo - elseif (tr_aero) then - k = 0 ! snow SSL + elseif (tr_aero) then + k = 0 ! snow SSL taer = c0 waer = c0 gaer = c0 do na=1,4*n_aero,4 -! mgf++ if (modal_aero) then - if (na == 1) then - !interstitial BC - taer = taer + & - aero_mp(na)*kaer_bc_tab(ns,k_bcexs(k)) - waer = waer + & - aero_mp(na)*kaer_bc_tab(ns,k_bcexs(k))* & - waer_bc_tab(ns,k_bcexs(k)) - gaer = gaer + & - aero_mp(na)*kaer_bc_tab(ns,k_bcexs(k))* & - waer_bc_tab(ns,k_bcexs(k))*gaer_bc_tab(ns,k_bcexs(k)) - elseif (na == 5)then - !within-ice BC - taer = taer + & - aero_mp(na)*kaer_bc_tab(ns,k_bcins(k))* & - bcenh(ns,k_bcins(k),k_bcini(k)) - waer = waer + & - aero_mp(na)*kaer_bc_tab(ns,k_bcins(k))* & - waer_bc_tab(ns,k_bcins(k)) - gaer = gaer + & - aero_mp(na)*kaer_bc_tab(ns,k_bcins(k))* & - waer_bc_tab(ns,k_bcins(k))*gaer_bc_tab(ns,k_bcins(k)) - else - ! other species (dust) - taer = taer + & - aero_mp(na)*kaer_tab(ns,(1+(na-1)/4)) - waer = waer + & - aero_mp(na)*kaer_tab(ns,(1+(na-1)/4))* & - waer_tab(ns,(1+(na-1)/4)) - gaer = gaer + & - aero_mp(na)*kaer_tab(ns,(1+(na-1)/4))* & - waer_tab(ns,(1+(na-1)/4))*gaer_tab(ns,(1+(na-1)/4)) - endif + if (na == 1) then ! interstitial BC + taer = taer + aero_mp(na)*kaer_bc_tab(ns,k_bcexs(k)) + waer = waer + aero_mp(na)*kaer_bc_tab(ns,k_bcexs(k)) & + *waer_bc_tab(ns,k_bcexs(k)) + gaer = gaer + aero_mp(na)*kaer_bc_tab(ns,k_bcexs(k)) & + *waer_bc_tab(ns,k_bcexs(k)) & + *gaer_bc_tab(ns,k_bcexs(k)) + elseif (na == 5) then ! within-ice BC + taer = taer + aero_mp(na)*kaer_bc_tab(ns,k_bcins(k)) & + *bcenh(ns,k_bcins(k),k_bcini(k)) + waer = waer + aero_mp(na)*kaer_bc_tab(ns,k_bcins(k)) & + *waer_bc_tab(ns,k_bcins(k)) + gaer = gaer + aero_mp(na)*kaer_bc_tab(ns,k_bcins(k)) & + *waer_bc_tab(ns,k_bcins(k)) & + *gaer_bc_tab(ns,k_bcins(k)) + else ! other species (dust) + taer = taer + aero_mp(na)*kaer_tab(ns,(1+(na-1)/4)) + waer = waer + aero_mp(na)*kaer_tab(ns,(1+(na-1)/4)) & + *waer_tab(ns,(1+(na-1)/4)) + gaer = gaer + aero_mp(na)*kaer_tab(ns,(1+(na-1)/4)) & + *waer_tab(ns,(1+(na-1)/4)) & + *gaer_tab(ns,(1+(na-1)/4)) + endif else - taer = taer + & - aero_mp(na)*kaer_tab(ns,(1+(na-1)/4)) - waer = waer + & - aero_mp(na)*kaer_tab(ns,(1+(na-1)/4))* & - waer_tab(ns,(1+(na-1)/4)) - gaer = gaer + & - aero_mp(na)*kaer_tab(ns,(1+(na-1)/4))* & - waer_tab(ns,(1+(na-1)/4))*gaer_tab(ns,(1+(na-1)/4)) + taer = taer + aero_mp(na)*kaer_tab(ns,(1+(na-1)/4)) + waer = waer + aero_mp(na)*kaer_tab(ns,(1+(na-1)/4)) & + *waer_tab(ns,(1+(na-1)/4)) + gaer = gaer + aero_mp(na)*kaer_tab(ns,(1+(na-1)/4)) & + *waer_tab(ns,(1+(na-1)/4)) & + *gaer_tab(ns,(1+(na-1)/4)) endif !modal_aero -!mgf-- enddo ! na gaer = gaer/(waer+puny) waer = waer/(taer+puny) @@ -2664,9 +3023,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & gaer = c0 do na=1,4*n_aero,4 if (modal_aero) then -!mgf++ - if (na==1) then - ! interstitial BC + if (na==1) then ! interstitial BC taer = taer + & (aero_mp(na+1)/rnslyr)*kaer_bc_tab(ns,k_bcexs(k)) waer = waer + & @@ -2675,8 +3032,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & gaer = gaer + & (aero_mp(na+1)/rnslyr)*kaer_bc_tab(ns,k_bcexs(k))* & waer_bc_tab(ns,k_bcexs(k))*gaer_bc_tab(ns,k_bcexs(k)) - elseif (na==5) then - ! within-ice BC + elseif (na==5) then ! within-ice BC taer = taer + & (aero_mp(na+1)/rnslyr)*kaer_bc_tab(ns,k_bcins(k))*& bcenh(ns,k_bcins(k),k_bcini(k)) @@ -2687,8 +3043,8 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & (aero_mp(na+1)/rnslyr)*kaer_bc_tab(ns,k_bcins(k))* & waer_bc_tab(ns,k_bcins(k))*gaer_bc_tab(ns,k_bcins(k)) - else - ! other species (dust) + else ! other species (dust) + taer = taer + & (aero_mp(na+1)/rnslyr)*kaer_tab(ns,(1+(na-1)/4)) waer = waer + & @@ -2697,7 +3053,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & gaer = gaer + & (aero_mp(na+1)/rnslyr)*kaer_tab(ns,(1+(na-1)/4))* & waer_tab(ns,(1+(na-1)/4))*gaer_tab(ns,(1+(na-1)/4)) - endif !(na==1) + endif ! na==1 else taer = taer + & @@ -2709,7 +3065,6 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & (aero_mp(na+1)*rnslyr)*kaer_tab(ns,(1+(na-1)/4))* & waer_tab(ns,(1+(na-1)/4))*gaer_tab(ns,(1+(na-1)/4)) endif ! modal_aero -!mgf-- enddo ! na gaer = gaer/(waer+puny) waer = waer/(taer+puny) @@ -2721,8 +3076,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & enddo ! k endif ! tr_aero - ! pond - else !if( srftyp == 2 ) then + else ! srftyp == 2 ! pond water layers evenly spaced dz = hp/(c1/rnslyr+c1) do k=0,nslyr @@ -2775,10 +3129,10 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & do k = kii, klev gzaer(ns,k) = gzaer(ns,k)/(wzaer(ns,k)+puny) wzaer(ns,k) = wzaer(ns,k)/(tzaer(ns,k)+puny) - g(k) = (g(k)*w0(k)*tau(k) + gzaer(ns,k)*wzaer(ns,k)*tzaer(ns,k)) / & - (w0(k)*tau(k) + wzaer(ns,k)*tzaer(ns,k)) - w0(k) = (w0(k)*tau(k) + wzaer(ns,k)*tzaer(ns,k)) / & - (tau(k) + tzaer(ns,k)) + g(k) = (g(k)*w0(k)*tau(k) + gzaer(ns,k)*wzaer(ns,k)*tzaer(ns,k)) & + / (w0(k)*tau(k) + wzaer(ns,k)*tzaer(ns,k)) + w0(k) = (w0(k)*tau(k) + wzaer(ns,k)*tzaer(ns,k)) & + / (tau(k) + tzaer(ns,k)) tau(k) = tau(k) + tzaer(ns,k) enddo elseif (tr_aero) then @@ -2787,10 +3141,8 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & waer = c0 gaer = c0 do na=1,4*n_aero,4 -!mgf++ if (modal_aero) then - if (na==1) then - ! interstitial BC + if (na==1) then ! interstitial BC taer = taer + & aero_mp(na+2)*kaer_bc_tab(ns,k_bcexs(k)) waer = waer + & @@ -2799,8 +3151,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & gaer = gaer + & aero_mp(na+2)*kaer_bc_tab(ns,k_bcexs(k))* & waer_bc_tab(ns,k_bcexs(k))*gaer_bc_tab(ns,k_bcexs(k)) - elseif (na==5) then - ! within-ice BC + elseif (na==5) then ! within-ice BC taer = taer + & aero_mp(na+2)*kaer_bc_tab(ns,k_bcins(k))* & bcenh(ns,k_bcins(k),k_bcini(k)) @@ -2810,8 +3161,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & gaer = gaer + & aero_mp(na+2)*kaer_bc_tab(ns,k_bcins(k))* & waer_bc_tab(ns,k_bcins(k))*gaer_bc_tab(ns,k_bcins(k)) - else - ! other species (dust) + else ! other species (dust) taer = taer + & aero_mp(na+2)*kaer_tab(ns,(1+(na-1)/4)) waer = waer + & @@ -2821,7 +3171,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & aero_mp(na+2)*kaer_tab(ns,(1+(na-1)/4))* & waer_tab(ns,(1+(na-1)/4))*gaer_tab(ns,(1+(na-1)/4)) endif - else !bulk + else ! bulk taer = taer + & aero_mp(na+2)*kaer_tab(ns,(1+(na-1)/4)) waer = waer + & @@ -2831,7 +3181,6 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & aero_mp(na+2)*kaer_tab(ns,(1+(na-1)/4))* & waer_tab(ns,(1+(na-1)/4))*gaer_tab(ns,(1+(na-1)/4)) endif ! modal_aero -!mgf-- enddo ! na gaer = gaer/(waer+puny) @@ -2846,10 +3195,8 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & waer = c0 gaer = c0 do na=1,4*n_aero,4 -!mgf++ if (modal_aero) then - if (na==1) then - ! interstitial BC + if (na==1) then ! interstitial BC taer = taer + & (aero_mp(na+3)/rnilyr)*kaer_bc_tab(ns,k_bcexs(k)) waer = waer + & @@ -2858,8 +3205,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & gaer = gaer + & (aero_mp(na+3)/rnilyr)*kaer_bc_tab(ns,k_bcexs(k))* & waer_bc_tab(ns,k_bcexs(k))*gaer_bc_tab(ns,k_bcexs(k)) - elseif (na==5) then - ! within-ice BC + elseif (na==5) then ! within-ice BC taer = taer + & (aero_mp(na+3)/rnilyr)*kaer_bc_tab(ns,k_bcins(k))* & bcenh(ns,k_bcins(k),k_bcini(k)) @@ -2869,9 +3215,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & gaer = gaer + & (aero_mp(na+3)/rnilyr)*kaer_bc_tab(ns,k_bcins(k))* & waer_bc_tab(ns,k_bcins(k))*gaer_bc_tab(ns,k_bcins(k)) - - else - ! other species (dust) + else ! other species (dust) taer = taer + & (aero_mp(na+3)/rnilyr)*kaer_tab(ns,(1+(na-1)/4)) waer = waer + & @@ -2881,8 +3225,7 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & (aero_mp(na+3)/rnilyr)*kaer_tab(ns,(1+(na-1)/4))* & waer_tab(ns,(1+(na-1)/4))*gaer_tab(ns,(1+(na-1)/4)) endif - else !bulk - + else ! bulk taer = taer + & (aero_mp(na+3)*rnilyr)*kaer_tab(ns,(1+(na-1)/4)) waer = waer + & @@ -2892,7 +3235,6 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & (aero_mp(na+3)*rnilyr)*kaer_tab(ns,(1+(na-1)/4))* & waer_tab(ns,(1+(na-1)/4))*gaer_tab(ns,(1+(na-1)/4)) endif ! modal_aero -!mgf-- enddo ! na gaer = gaer/(waer+puny) waer = waer/(taer+puny) @@ -2904,8 +3246,8 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & enddo ! k endif ! tr_aero + else ! srftyp == 2 ! sea ice layers under ponds - else !if( srftyp == 2 ) then k = kii tau(k) = ki_p_ssl(ns)*dzk(k) w0(k) = wi_p_ssl(ns) @@ -3014,6 +3356,23 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & if (dfdif(k) < puny) dfdif(k) = c0 !echmod necessary? enddo ! k +!echmod - is this necessary? +! ! note that because the snow IOPs for diffuse and direct incidents +! ! are different, the snow albedo needs to be calculated twice for +! ! direct incident and diffuse incident respectively +! if (nsky == 1) then ! direc beam (keep the direct beam results) +! do k = 0, klevp +! dfdir_snicar(k) = dfdir(k) +! rupdir_snicar(k) = rupdir(k) +! enddo +! elseif (nsky == 2) then ! diffuse (keep the diffuse incident results) +! do k = 0, klevp +! dfdif_snicar(k) = dfdif(k) +! rupdif_snicar(k) = rupdif(k) +! enddo +! endif +! enddo ! end direct/diffuse incident nsky + ! calculate final surface albedos and fluxes- ! all absorbed flux above ksrf is included in surface absorption @@ -3074,11 +3433,13 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & - (dfdir(kp)*swdr + dfdif(kp)*swdf) enddo ! k - else !if(ns > 1) then ! near IR + else ! ns > 1, near IR swdr = swidr swdf = swidf + if (nspint == nspint_3bd) then + ! let fr1 = alb_1*swd*wght1 and fr2 = alb_2*swd*wght2 be the ns=2,3 ! reflected fluxes respectively, where alb_1, alb_2 are the band ! albedos, swd = nir incident shortwave flux, and wght1, wght2 are @@ -3097,11 +3458,41 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & tmp_ks = tmp_ks * wghtns(ns) tmp_kl = tmp_kl * wghtns(ns) + fthruidr = fthruidr + dfdir(klevp)*swdr*wghtns(ns) + fthruidf = fthruidf + dfdif(klevp)*swdf*wghtns(ns) + + elseif (l_use_snicar .and. nspint == nspint_5bd) then + + ! let fr2(3,4,5) = alb_2(3,4,5)*swd*wght2(3,4,5) + ! the ns=2(3,4,5) reflected fluxes respectively, + ! where alb_2(3,4,5) are the band + ! albedos, swd = nir incident shortwave flux, and wght2(3,4,5) are + ! the 2(3,4,5) band weights. thus, the total reflected flux is: + ! fr = fr2 + fr3 + fr4 + fr5 + ! = alb_2*swd*wght2 + alb_3*swd*wght3 + alb_4*swd*wght4 + alb_5*swd*wght5 + ! hence, the 2,3,4,5 nir band albedo is + ! alb = fr/swd = alb_2*wght2 + alb_3*wght3 + alb_4*wght4 + alb_5*wght5 + + aidr = aidr + rupdir(0)*wghtns_5bd_drc(ns) + aidf = aidf + rupdif(0)*wghtns_5bd_dfs(ns) + + tmp_0 = dfdir(0 )*swdr*wghtns_5bd_drc(ns) & + + dfdif(0 )*swdf*wghtns_5bd_dfs(ns) + tmp_ks = dfdir(ksrf )*swdr*wghtns_5bd_drc(ns) & + + dfdif(ksrf )*swdf*wghtns_5bd_dfs(ns) + tmp_kl = dfdir(klevp)*swdr*wghtns_5bd_drc(ns) & + + dfdif(klevp)*swdf*wghtns_5bd_dfs(ns) + + fthruidr = fthruidr & + + dfdir(klevp)*swdr*wghtns_5bd_drc(ns) + fthruidf = fthruidf & + + dfdif(klevp)*swdf*wghtns_5bd_dfs(ns) + + endif ! nspint + fsfc = fsfc + tmp_0 - tmp_ks fint = fint + tmp_ks - tmp_kl fthru = fthru + tmp_kl - fthruidr = fthruidr + dfdir(klevp)*swdr*wghtns(ns) - fthruidf = fthruidf + dfdif(klevp)*swdf*wghtns(ns) ! if snow covered ice, set snow internal absorption; else, Sabs=0 if( srftyp == 1 ) then @@ -3144,12 +3535,34 @@ subroutine compute_dEdd (nilyr, nslyr, klev, klevp, & enddo ! end spectral loop ns - ! accumulate fluxes over bare sea ice + ! solar zenith angle parameterization + ! calculate the scaling factor for NIR direct albedo if SZA>75 degree + sza_factor = c1 + if (srftyp == 1 .and. l_use_snicar .and. nspint == nspint_5bd) then + mu0 = max(coszen,p01) + if (mu0 < mu_75) then + sza_c1 = sza_a0 + sza_a1 * mu0 + sza_a2 * mu0**2 + sza_c0 = sza_b0 + sza_b1 * mu0 + sza_b2 * mu0**2 + sza_factor = sza_c1 * (log10(rsnw(1)) - 6.0) + sza_c0 + endif + ! assume the reduced NIR energy absorption by snow due to corrected + ! snow albedo is absorbed only by the snow single scattering layer + ! - this is generally true if snow SSL >= 2 cm. Default set up: + ! if snow_depth >= 8 cm, SSL = 4 cm, satisfy + ! else if snow_depth >= 4 cm, SSL = snow_depth/2 >= 2 cm, satisfy + ! else snow_depth < 4 cm, SSL = snow_depth/2, may overcool SSL layer + alidr = aidr * sza_factor ! sza_factor >= 1 + fswsfc = fswsfc + (fsfc - (sza_factor-c1)*aidr*swidr)*fi + else + alidr = aidr + fswsfc = fswsfc + fsfc*fi + endif + alvdr = avdr alvdf = avdf - alidr = aidr alidf = aidf - fswsfc = fswsfc + fsfc *fi + + ! accumulate fluxes over bare sea ice fswint = fswint + fint *fi fswthru = fswthru + fthru*fi fswthru_vdr = fswthru_vdr + fthruvdr*fi @@ -4095,12 +4508,12 @@ subroutine icepack_step_radiation (dt, ncat, & days_per_year, & nextsw_cday, & yday, sec, & - kaer_tab, waer_tab, & - gaer_tab, & - kaer_bc_tab, & - waer_bc_tab, & - gaer_bc_tab, & - bcenh, & + kaer_3bd, waer_3bd, & + gaer_3bd, & + kaer_bc_3bd, & + waer_bc_3bd, & + gaer_bc_3bd, & + bcenh_3bd, & modal_aero, & swvdr, swvdf, & swidr, swidf, & @@ -4158,18 +4571,18 @@ subroutine icepack_step_radiation (dt, ncat, & real (kind=dbl_kind), dimension (:), intent(in) :: & swgrid ! grid for ice tracers used in dEdd scheme - real (kind=dbl_kind), dimension(:,:), intent(in) :: & - kaer_tab, & ! aerosol mass extinction cross section (m2/kg) - waer_tab, & ! aerosol single scatter albedo (fraction) - gaer_tab ! aerosol asymmetry parameter (cos(theta)) + real (kind=dbl_kind), dimension(:,:), intent(in) :: & + kaer_3bd, & ! aerosol mass extinction cross section (m2/kg) + waer_3bd, & ! aerosol single scatter albedo (fraction) + gaer_3bd ! aerosol asymmetry parameter (cos(theta)) - real (kind=dbl_kind), dimension(:,:), intent(in) :: & - kaer_bc_tab, & ! aerosol mass extinction cross section (m2/kg) - waer_bc_tab, & ! aerosol single scatter albedo (fraction) - gaer_bc_tab ! aerosol asymmetry parameter (cos(theta)) + real (kind=dbl_kind), dimension(:,:), intent(in) :: & + kaer_bc_3bd, & ! aerosol mass extinction cross section (m2/kg) + waer_bc_3bd, & ! aerosol single scatter albedo (fraction) + gaer_bc_3bd ! aerosol asymmetry parameter (cos(theta)) - real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & - bcenh + real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & + bcenh_3bd ! BC absorption enhancement factor real (kind=dbl_kind), dimension(:), intent(in) :: & aicen , & ! ice area fraction in each category @@ -4328,12 +4741,12 @@ subroutine icepack_step_radiation (dt, ncat, & dT_mlt, rsnw_mlt, & hs0, hs1, & hp1, pndaspect, & - kaer_tab, waer_tab, & - gaer_tab, & - kaer_bc_tab, & - waer_bc_tab, & - gaer_bc_tab, & - bcenh, & + kaer_3bd, waer_3bd, & + gaer_3bd, & + kaer_bc_3bd, & + waer_bc_3bd, & + gaer_bc_3bd, & + bcenh_3bd, & modal_aero, & swvdr, swvdf, & swidr, swidf, & diff --git a/configuration/driver/icedrv_arrays_column.F90 b/configuration/driver/icedrv_arrays_column.F90 index 9e3c49bba..9bf7dbd00 100644 --- a/configuration/driver/icedrv_arrays_column.F90 +++ b/configuration/driver/icedrv_arrays_column.F90 @@ -12,7 +12,7 @@ module icedrv_arrays_column use icedrv_domain_size, only: nblyr, max_nsw , max_ntrcr use icepack_intfc, only: icepack_max_nbtrcr, icepack_max_algae, icepack_max_aero use icepack_intfc, only: icepack_nmodal1, icepack_nmodal2 - use icepack_intfc, only: icepack_nspint + use icepack_intfc, only: icepack_nspint_3bd, icepack_nspint_5bd use icepack_intfc, only: icepack_warnings_flush, icepack_warnings_aborted use icedrv_system, only: icedrv_system_abort @@ -123,19 +123,33 @@ module icedrv_arrays_column ! aerosol optical properties -> band | ! v aerosol ! for combined dust category, use category 4 properties - real (kind=dbl_kind), dimension(icepack_nspint,icepack_max_aero), public :: & - kaer_tab , & ! aerosol mass extinction cross section (m2/kg) - waer_tab , & ! aerosol single scatter albedo (fraction) - gaer_tab ! aerosol asymmetry parameter (cos(theta)) + real (kind=dbl_kind), dimension(icepack_nspint_3bd,icepack_max_aero), public :: & + kaer_3bd , & ! aerosol mass extinction cross section (m2/kg) + waer_3bd , & ! aerosol single scatter albedo (fraction) + gaer_3bd ! aerosol asymmetry parameter (cos(theta)) - real (kind=dbl_kind), dimension(icepack_nspint,icepack_nmodal1), public :: & - kaer_bc_tab, & ! BC mass extinction cross section (m2/kg) - waer_bc_tab, & ! BC single scatter albedo (fraction) - gaer_bc_tab ! BC aerosol asymmetry parameter (cos(theta)) + real (kind=dbl_kind), dimension(icepack_nspint_3bd,icepack_nmodal1), public :: & + kaer_bc_3bd, & ! BC mass extinction cross section (m2/kg) + waer_bc_3bd, & ! BC single scatter albedo (fraction) + gaer_bc_3bd ! BC aerosol asymmetry parameter (cos(theta)) real (kind=dbl_kind), & - dimension (icepack_nspint,icepack_nmodal1,icepack_nmodal2), public :: & - bcenh ! BC absorption enhancement factor + dimension (icepack_nspint_3bd,icepack_nmodal1,icepack_nmodal2), public :: & + bcenh_3bd ! BC absorption enhancement factor + + real (kind=dbl_kind), dimension(icepack_nspint_5bd,icepack_max_aero), public :: & + kaer_5bd , & ! aerosol mass extinction cross section (m2/kg) + waer_5bd , & ! aerosol single scatter albedo (fraction) + gaer_5bd ! aerosol asymmetry parameter (cos(theta)) + + real (kind=dbl_kind), dimension(icepack_nspint_5bd,icepack_nmodal1), public :: & + kaer_bc_5bd, & ! BC mass extinction cross section (m2/kg) + waer_bc_5bd, & ! BC single scatter albedo (fraction) + gaer_bc_5bd ! BC aerosol asymmetry parameter (cos(theta)) + + real (kind=dbl_kind), & + dimension (icepack_nspint_5bd,icepack_nmodal1,icepack_nmodal2), public :: & + bcenh_5bd ! BC absorption enhancement factor ! biogeochemistry components diff --git a/configuration/driver/icedrv_init_column.F90 b/configuration/driver/icedrv_init_column.F90 index 357fa6ec8..1df5e9157 100644 --- a/configuration/driver/icedrv_init_column.F90 +++ b/configuration/driver/icedrv_init_column.F90 @@ -99,9 +99,11 @@ subroutine init_shortwave use icedrv_arrays_column, only: fswsfcn, ffracn, snowfracn use icedrv_arrays_column, only: fswthrun, fswthrun_vdr, fswthrun_vdf, fswthrun_idr, fswthrun_idf use icedrv_arrays_column, only: fswintn, albpndn, apeffn, trcrn_sw, dhsn - use icedrv_arrays_column, only: kaer_tab, waer_tab, gaer_tab - use icedrv_arrays_column, only: kaer_bc_tab, waer_bc_tab, gaer_bc_tab - use icedrv_arrays_column, only: swgrid, igrid, bcenh + use icedrv_arrays_column, only: kaer_3bd, waer_3bd, gaer_3bd + use icedrv_arrays_column, only: kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd + use icedrv_arrays_column, only: kaer_5bd, waer_5bd, gaer_5bd + use icedrv_arrays_column, only: kaer_bc_5bd, waer_bc_5bd, gaer_bc_5bd + use icedrv_arrays_column, only: swgrid, igrid, bcenh_3bd, bcenh_5bd use icedrv_calendar, only: istep1, dt, calendar_type use icedrv_calendar, only: days_per_year, nextsw_cday, yday, sec use icedrv_system, only: icedrv_system_abort @@ -261,10 +263,10 @@ subroutine init_shortwave calendar_type=calendar_type, & days_per_year=days_per_year, & nextsw_cday=nextsw_cday, yday=yday, sec=sec, & - kaer_tab=kaer_tab, kaer_bc_tab=kaer_bc_tab(:,:), & - waer_tab=waer_tab, waer_bc_tab=waer_bc_tab(:,:), & - gaer_tab=gaer_tab, gaer_bc_tab=gaer_bc_tab(:,:), & - bcenh=bcenh(:,:,:), & + kaer_3bd=kaer_3bd, kaer_bc_3bd=kaer_bc_3bd(:,:), & + waer_3bd=waer_3bd, waer_bc_3bd=waer_bc_3bd(:,:), & + gaer_3bd=gaer_3bd, gaer_bc_3bd=gaer_bc_3bd(:,:), & + bcenh_3bd=bcenh_3bd(:,:,:), & modal_aero=modal_aero, & swvdr=swvdr(i), swvdf=swvdf(i), & swidr=swidr(i), swidf=swidf(i), & diff --git a/configuration/driver/icedrv_step.F90 b/configuration/driver/icedrv_step.F90 index b807639bc..ea9f15919 100644 --- a/configuration/driver/icedrv_step.F90 +++ b/configuration/driver/icedrv_step.F90 @@ -922,8 +922,8 @@ subroutine step_radiation (dt) use icedrv_arrays_column, only: fswthrun, fswthrun_vdr, fswthrun_vdf, fswthrun_idr, fswthrun_idf use icedrv_arrays_column, only: albicen, albsnon, albpndn use icedrv_arrays_column, only: alvdrn, alidrn, alvdfn, alidfn, apeffn, trcrn_sw, snowfracn - use icedrv_arrays_column, only: kaer_tab, waer_tab, gaer_tab, kaer_bc_tab, waer_bc_tab - use icedrv_arrays_column, only: gaer_bc_tab, bcenh, swgrid, igrid + use icedrv_arrays_column, only: kaer_3bd, waer_3bd, gaer_3bd, kaer_bc_3bd, waer_bc_3bd + use icedrv_arrays_column, only: gaer_bc_3bd, bcenh_3bd, swgrid, igrid use icedrv_calendar, only: calendar_type, days_per_year, nextsw_cday, yday, sec use icedrv_domain_size, only: ncat, n_aero, nilyr, nslyr, n_zaero, n_algae, nblyr, nx use icedrv_flux, only: swvdr, swvdf, swidr, swidf, coszen, fsnow @@ -1043,10 +1043,10 @@ subroutine step_radiation (dt) calendar_type=calendar_type, & days_per_year=days_per_year, sec=sec, & nextsw_cday=nextsw_cday, yday=yday, & - kaer_tab=kaer_tab, kaer_bc_tab=kaer_bc_tab(:,:), & - waer_tab=waer_tab, waer_bc_tab=waer_bc_tab(:,:), & - gaer_tab=gaer_tab, gaer_bc_tab=gaer_bc_tab(:,:), & - bcenh=bcenh(:,:,:), modal_aero=modal_aero, & + kaer_3bd=kaer_3bd, kaer_bc_3bd=kaer_bc_3bd(:,:), & + waer_3bd=waer_3bd, waer_bc_3bd=waer_bc_3bd(:,:), & + gaer_3bd=gaer_3bd, gaer_bc_3bd=gaer_bc_3bd(:,:), & + bcenh_3bd=bcenh_3bd(:,:,:), modal_aero=modal_aero, & swvdr=swvdr(i), swvdf=swvdf(i), & swidr=swidr(i), swidf=swidf(i), & coszen=coszen(i), fsnow=fsnow(i), & From 60fc58d3e7b8951330c07063361369b2b0ee4f48 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Thu, 4 Aug 2022 16:46:21 -0600 Subject: [PATCH 02/64] adding use_snicar flag (true if shortwave=dEdd_snicar) --- columnphysics/icepack_parameters.F90 | 38 ++++++++++--------- columnphysics/icepack_shortwave.F90 | 56 +++++++++++++--------------- 2 files changed, 47 insertions(+), 47 deletions(-) diff --git a/columnphysics/icepack_parameters.F90 b/columnphysics/icepack_parameters.F90 index ceb2e604d..96a574b4c 100644 --- a/columnphysics/icepack_parameters.F90 +++ b/columnphysics/icepack_parameters.F90 @@ -171,9 +171,12 @@ module icepack_parameters ! Parameters for radiation !----------------------------------------------------------------------- + logical (kind=log_kind), public :: & + use_snicar = .false. ! .true. use 5-band SNICAR-AD approach + integer (kind=int_kind), parameter, public :: & nspint_3bd = 3, & ! number of solar spectral bands - nspint_5bd = 5 ! number of solar spectral bands + nspint_5bd = 5 ! number of solar spectral bands (snicar snow) real (kind=dbl_kind), public :: & ! (Briegleb JGR 97 11475-11485 July 1992) @@ -215,6 +218,14 @@ module icepack_parameters albedo_type = 'ccsm3' ! albedo parameterization, 'ccsm3' or 'constant' ! shortwave='dEdd' overrides this parameter + ! Parameters for shortwave redistribution + logical (kind=log_kind), public :: & + sw_redist = .false. + + real (kind=dbl_kind), public :: & + sw_frac = 0.9_dbl_kind , & ! Fraction of internal shortwave moved to surface + sw_dtemp = 0.02_dbl_kind ! temperature difference from melting + !----------------------------------------------------------------------- ! Parameters for dynamics, including ridging and strength !----------------------------------------------------------------------- @@ -413,18 +424,6 @@ module icepack_parameters t_sk_conv = 3.0_dbl_kind , & ! Stefels conversion time (d) t_sk_ox = 10.0_dbl_kind ! DMS oxidation time (d) - -!----------------------------------------------------------------------- -! Parameters for shortwave redistribution -!----------------------------------------------------------------------- - - logical (kind=log_kind), public :: & - sw_redist = .false. - - real (kind=dbl_kind), public :: & - sw_frac = 0.9_dbl_kind , & ! Fraction of internal shortwave moved to surface - sw_dtemp = 0.02_dbl_kind ! temperature difference from melting - !======================================================================= contains @@ -457,7 +456,7 @@ subroutine icepack_init_parameters( & update_ocn_f_in, ustar_min_in, a_rapid_mode_in, & Rac_rapid_mode_in, aspect_rapid_mode_in, & dSdt_slow_mode_in, phi_c_slow_mode_in, & - phi_i_mushy_in, shortwave_in, albedo_type_in, albsnowi_in, & + phi_i_mushy_in, shortwave_in, use_snicar_in, albedo_type_in, albsnowi_in, & albicev_in, albicei_in, albsnowv_in, & ahmax_in, R_ice_in, R_pnd_in, R_snw_in, dT_mlt_in, rsnw_mlt_in, & kalg_in, kstrength_in, krdg_partic_in, krdg_redist_in, mu_rdg_in, & @@ -600,7 +599,7 @@ subroutine icepack_init_parameters( & awtidf_in ! near IR, diffuse character (len=*), intent(in), optional :: & - shortwave_in, & ! shortwave method, 'ccsm3' or 'dEdd' + shortwave_in, & ! shortwave method, 'ccsm3' or 'dEdd' or 'dEdd_snicar' albedo_type_in ! albedo parameterization, 'ccsm3' or 'constant' ! shortwave='dEdd' overrides this parameter @@ -623,6 +622,7 @@ subroutine icepack_init_parameters( & kalg_in ! algae absorption coefficient for 0.5 m thick layer logical (kind=log_kind), intent(in), optional :: & + use_snicar_in,& ! snicar adjustments to dEdd radiation for snow sw_redist_in ! redistribute shortwave real (kind=dbl_kind), intent(in), optional :: & @@ -916,6 +916,7 @@ subroutine icepack_init_parameters( & if (present(phi_c_slow_mode_in) ) phi_c_slow_mode = phi_c_slow_mode_in if (present(phi_i_mushy_in) ) phi_i_mushy = phi_i_mushy_in if (present(shortwave_in) ) shortwave = shortwave_in + if (present(use_snicar_in) ) use_snicar = use_snicar_in if (present(albedo_type_in) ) albedo_type = albedo_type_in if (present(albicev_in) ) albicev = albicev_in if (present(albicei_in) ) albicei = albicei_in @@ -1147,7 +1148,7 @@ subroutine icepack_query_parameters( & Lfresh_out, cprho_out, Cp_out, ustar_min_out, a_rapid_mode_out, & ktherm_out, conduct_out, fbot_xfer_type_out, calc_Tsfc_out, dts_b_out, & Rac_rapid_mode_out, aspect_rapid_mode_out, dSdt_slow_mode_out, & - phi_c_slow_mode_out, phi_i_mushy_out, shortwave_out, & + phi_c_slow_mode_out, phi_i_mushy_out, shortwave_out, use_snicar_out, & albedo_type_out, albicev_out, albicei_out, albsnowv_out, & albsnowi_out, ahmax_out, R_ice_out, R_pnd_out, R_snw_out, dT_mlt_out, & rsnw_mlt_out, dEdd_algae_out, & @@ -1300,7 +1301,7 @@ subroutine icepack_query_parameters( & awtidf_out ! near IR, diffuse character (len=*), intent(out), optional :: & - shortwave_out, & ! shortwave method, 'ccsm3' or 'dEdd' + shortwave_out, & ! shortwave method, 'ccsm3' or 'dEdd' or 'dEdd_snicar' albedo_type_out ! albedo parameterization, 'ccsm3' or 'constant' ! shortwave='dEdd' overrides this parameter @@ -1323,6 +1324,7 @@ subroutine icepack_query_parameters( & kalg_out ! algae absorption coefficient for 0.5 m thick layer logical (kind=log_kind), intent(out), optional :: & + use_snicar_out,& ! snicar adjustments to dEdd radiation for snow sw_redist_out ! redistribute shortwave real (kind=dbl_kind), intent(out), optional :: & @@ -1656,6 +1658,7 @@ subroutine icepack_query_parameters( & if (present(phi_c_slow_mode_out) ) phi_c_slow_mode_out = phi_c_slow_mode if (present(phi_i_mushy_out) ) phi_i_mushy_out = phi_i_mushy if (present(shortwave_out) ) shortwave_out = shortwave + if (present(use_snicar_out) ) use_snicar_out = use_snicar if (present(albedo_type_out) ) albedo_type_out = albedo_type if (present(albicev_out) ) albicev_out = albicev if (present(albicei_out) ) albicei_out = albicei @@ -1864,6 +1867,7 @@ subroutine icepack_write_parameters(iounit) write(iounit,*) " phi_c_slow_mode = ", phi_c_slow_mode write(iounit,*) " phi_i_mushy = ", phi_i_mushy write(iounit,*) " shortwave = ", shortwave + write(iounit,*) " use_snicar = ", use_snicar write(iounit,*) " albedo_type = ", albedo_type write(iounit,*) " albicev = ", albicev write(iounit,*) " albicei = ", albicei diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 043dca25e..9294cb17b 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -50,7 +50,7 @@ module icepack_shortwave #ifdef UNDEPRECATE_0LAYER use icepack_parameters, only: z_tracers, skl_bgc, calc_tsfc, shortwave, kalg, heat_capacity #else - use icepack_parameters, only: z_tracers, skl_bgc, calc_tsfc, shortwave, kalg + use icepack_parameters, only: z_tracers, skl_bgc, calc_tsfc, shortwave, kalg, use_snicar #endif use icepack_parameters, only: r_ice, r_pnd, r_snw, dt_mlt, rsnw_mlt, hs0, hs1, hp1 use icepack_parameters, only: pndaspect, albedo_type, albicev, albicei, albsnowv, albsnowi, ahmax @@ -71,7 +71,6 @@ module icepack_shortwave use icepack_zbgc_shared,only: remap_zbgc use icepack_orbital, only: compute_coszen - implicit none private @@ -830,6 +829,7 @@ subroutine run_dEdd(dt, ncat, & dhsn, ffracn, & rsnow, & l_print_point, & + l_use_snicar, & initonly) integer (kind=int_kind), intent(in) :: & @@ -868,11 +868,10 @@ subroutine run_dEdd(dt, ncat, & gaer_bc_3bd ! aerosol asymmetry parameter (cos(theta)) real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment - bcenh_3bd ! BC absorption enhancement factor + bcenh_3bd ! BC absorption enhancement factor -!echmod logical (kind=log_kind), intent(in), optional :: & - logical (kind=log_kind) :: & - use_snicar ! .true. use 5-band SNICAR-AD approach + logical (kind=log_kind), intent(in) :: & + l_use_snicar ! .true. use 5-band SNICAR-AD approach !echmod real (kind=dbl_kind), dimension(:,:), intent(in) :: & real (kind=dbl_kind), dimension(nspint_5bd,1471) :: & @@ -1023,8 +1022,8 @@ subroutine run_dEdd(dt, ncat, & character(len=*),parameter :: subname='(run_dEdd)' !echmod - temporary, for testing - use_snicar = .false. -! use_snicar = .true. +! l_use_snicar = .false. +! l_use_snicar = .true. asm_prm_ice_drc = 0.90 ! snow asymmetry factor (cos(theta)) asm_prm_ice_dfs = 0.89 ! snow asymmetry factor (cos(theta)) ss_alb_ice_drc = 0.95 ! snow single scatter albedo (fraction) @@ -1033,7 +1032,6 @@ subroutine run_dEdd(dt, ncat, & ext_cff_mss_ice_dfs = 1.50 ! snow mass extinction cross section (m2/kg) !echmod end - allocate(l_fswthrun_vdr(ncat)) allocate(l_fswthrun_vdf(ncat)) allocate(l_fswthrun_idr(ncat)) @@ -1253,7 +1251,7 @@ subroutine run_dEdd(dt, ncat, & albpnd=albpndn(n), & fswpenl=fswpenln(:,n), & zbio=trcrn_bgcsw(:,n), & - use_snicar=use_snicar, & + l_use_snicar=l_use_snicar, & !echmod add _5bd l_print_point=l_print_point) @@ -1344,7 +1342,7 @@ subroutine shortwave_dEdd (dEdd_algae, & albsno, albpnd, & fswpenl, zbio, & l_print_point, & - use_snicar, & + l_use_snicar, & asm_prm_ice_drc, & asm_prm_ice_dfs, & ss_alb_ice_drc, & @@ -1384,12 +1382,11 @@ subroutine shortwave_dEdd (dEdd_algae, & bcenh_3bd ! BC absorption enhancement factor logical (kind=log_kind), intent(in), optional :: & - use_snicar ! .true. use 5-band SNICAR-AD approach + l_use_snicar ! .true. use 5-band SNICAR-AD approach ! SNICAR snow grain single-scattering properties (SSP) for ! direct (drc) and diffuse (dfs) shortwave incidents real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & -! real (kind=dbl_kind), dimension(5,1471) :: & asm_prm_ice_drc , & ! snow asymmetry factor (cos(theta)) asm_prm_ice_dfs , & ! snow asymmetry factor (cos(theta)) ss_alb_ice_drc , & ! snow single scatter albedo (fraction) @@ -1600,7 +1597,8 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl) + Iswabs, fswpenl, & + l_use_snicar) if (icepack_warnings_aborted(subname)) return alvdr = alvdr + avdrl *fi @@ -1623,7 +1621,7 @@ subroutine shortwave_dEdd (dEdd_algae, & ! calculate snow covered sea ice srftyp = 1 - if (use_snicar) then + if (l_use_snicar) then nspint = nspint_5bd call compute_dEdd(nilyr, nslyr, nspint, & klev, klevp, zbio, dEdd_algae, & @@ -1647,7 +1645,8 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl) + Iswabs, fswpenl, & + l_use_snicar) else nspint = nspint_3bd call compute_dEdd(nilyr, nslyr, nspint, & @@ -1672,7 +1671,8 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl) + Iswabs, fswpenl, & + l_use_snicar) endif if (icepack_warnings_aborted(subname)) return @@ -1724,7 +1724,8 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl) + Iswabs, fswpenl, & + l_use_snicar) if (icepack_warnings_aborted(subname)) return alvdr = alvdr + avdrl *fp @@ -1864,7 +1865,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & fswthru_idf, & Sswabs, & Iswabs, fswpenl, & - use_snicar, & + l_use_snicar, & asm_prm_ice_drc, asm_prm_ice_dfs, & ss_alb_ice_drc, ss_alb_ice_dfs, & ext_cff_mss_ice_drc, ext_cff_mss_ice_dfs) @@ -1948,8 +1949,8 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & Sswabs , & ! SW absorbed in snow layer (W m-2) Iswabs ! SW absorbed in ice layer (W m-2) - logical (kind=log_kind), intent(in), optional :: & - use_snicar ! .true. use 5-band SNICAR-AD approach + logical (kind=log_kind), intent(in) :: & + l_use_snicar ! .true. use 5-band SNICAR-AD approach ! SNICAR snow grain single-scattering properties (SSP) for ! direct (drc) and diffuse (dfs) shortwave incidents @@ -2417,9 +2418,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & !chlorophyll mass extinction cross section (m^2/mg chla) ! SNICAR inputs - logical (kind=log_kind) :: & - l_use_snicar ! local value for use_snicar - integer (kind=int_kind), parameter :: & nmbrad_snicar = 1471, & ! number of snow grain radii in SNICAR snow iops table rsnw_snicar_max = 1500, & @@ -2488,9 +2486,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & character(len=*),parameter :: subname='(compute_dEdd)' - l_use_snicar = .false. - if (present(use_snicar)) l_use_snicar = .true. - !----------------------------------------------------------------------- ! Initialize and tune bare ice/ponded ice iops @@ -4719,7 +4714,7 @@ subroutine icepack_step_radiation (dt, ncat, & endif if (calc_Tsfc) then - if (trim(shortwave) == 'dEdd') then ! delta Eddington + if (trim(shortwave(1:4)) == 'dEdd') then ! delta Eddington call run_dEdd(dt, ncat, & dEdd_algae, & @@ -4769,12 +4764,13 @@ subroutine icepack_step_radiation (dt, ncat, & snowfracn=snowfracn, & dhsn=dhsn, & ffracn=ffracn, & - rsnow=l_rsnow, & + rsnow=l_rsnow, & l_print_point=l_print_point, & + l_use_snicar=use_snicar, & initonly=linitonly) if (icepack_warnings_aborted(subname)) return - elseif (trim(shortwave) == 'ccsm3') then + elseif (trim(shortwave(1:4)) == 'ccsm') then call shortwave_ccsm3(aicen, vicen, & vsnon, & From e264065cdbfb92175831eb76e0a0d32976ee3b51 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Thu, 4 Aug 2022 17:26:27 -0600 Subject: [PATCH 03/64] initializing use_snicar based on shortwave namelist value --- columnphysics/icepack_shortwave.F90 | 1 + configuration/driver/icedrv_init.F90 | 8 ++++---- configuration/driver/icedrv_init_column.F90 | 20 +++++++++++++++----- 3 files changed, 20 insertions(+), 9 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 9294cb17b..79c8d4684 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -4766,6 +4766,7 @@ subroutine icepack_step_radiation (dt, ncat, & ffracn=ffracn, & rsnow=l_rsnow, & l_print_point=l_print_point, & +!echmod: all routines have access to module data above so maybe use_snicar need not be passed through l_use_snicar=use_snicar, & initonly=linitonly) if (icepack_warnings_aborted(subname)) return diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90 index 7aa71361b..ff4f63cbd 100644 --- a/configuration/driver/icedrv_init.F90 +++ b/configuration/driver/icedrv_init.F90 @@ -522,7 +522,7 @@ subroutine input_data endif #endif - if (trim(shortwave) /= 'dEdd' .and. tr_pond .and. calc_tsfc) then + if (trim(shortwave(1:4)) /= 'dEdd' .and. tr_pond .and. calc_tsfc) then write (nu_diag,*) 'WARNING: Must use dEdd shortwave' write (nu_diag,*) 'WARNING: with tr_pond and calc_tsfc=T.' write (nu_diag,*) 'WARNING: Setting shortwave = dEdd' @@ -575,14 +575,14 @@ subroutine input_data call icedrv_system_abort(file=__FILE__,line=__LINE__) endif - if (tr_aero .and. trim(shortwave) /= 'dEdd') then + if (tr_aero .and. trim(shortwave(1:4)) /= 'dEdd') then write (nu_diag,*) 'WARNING: aerosols activated but dEdd' write (nu_diag,*) 'WARNING: shortwave is not.' write (nu_diag,*) 'WARNING: Setting shortwave = dEdd' shortwave = 'dEdd' endif - if (tr_snow .and. trim(shortwave) /= 'dEdd') then + if (tr_snow .and. trim(shortwave(1:4)) /= 'dEdd') then write (nu_diag,*) 'WARNING: snow grain radius activated but' write (nu_diag,*) 'WARNING: dEdd shortwave is not.' endif @@ -699,7 +699,7 @@ subroutine input_data write(nu_diag,1000) ' BGC coupling is switched OFF' endif - if (trim(shortwave) == 'dEdd') then + if (trim(shortwave(1:4)) == 'dEdd') then write(nu_diag,1000) ' R_ice = ', R_ice write(nu_diag,1000) ' R_pnd = ', R_pnd write(nu_diag,1000) ' R_snw = ', R_snw diff --git a/configuration/driver/icedrv_init_column.F90 b/configuration/driver/icedrv_init_column.F90 index 1df5e9157..895548d4e 100644 --- a/configuration/driver/icedrv_init_column.F90 +++ b/configuration/driver/icedrv_init_column.F90 @@ -124,6 +124,7 @@ subroutine init_shortwave logical (kind=log_kind) :: & l_print_point, & ! flag to print designated grid point diagnostics + use_snicar, & ! use 5-band SNICAR radiation scheme for snow dEdd_algae, & ! BGC - radiation interactions modal_aero, & ! modal aerosol optical properties snwgrain ! use variable snow grain size @@ -219,7 +220,7 @@ subroutine init_shortwave do i = 1, nx - if (trim(shortwave) == 'dEdd') then ! delta Eddington + if (trim(shortwave(1:4)) == 'dEdd') then ! delta Eddington ! initialize orbital parameters ! These come from the driver in the coupled model. @@ -228,7 +229,16 @@ subroutine init_shortwave call icepack_warnings_flush(nu_diag) if (icepack_warnings_aborted()) & call icedrv_system_abort(i, istep1, subname, __FILE__, __LINE__) - endif + + if (trim(shortwave) == 'dEdd_snicar') then + use_snicar = .true. ! 5-band SNICAR scheme for snow cover + call icepack_init_parameters(use_snicar_in=use_snicar) + call icepack_warnings_flush(nu_diag) + if (icepack_warnings_aborted()) call icedrv_system_abort(string=subname, & + file=__FILE__,line= __LINE__) + endif + + endif ! dEdd fbri (:) = c0 rsnow (:,:) = c0 @@ -1108,13 +1118,13 @@ subroutine init_zbgc tr_zaero = .false. endif - if (dEdd_algae .AND. trim(shortwave) /= 'dEdd') then + if (dEdd_algae .AND. trim(shortwave(1:4)) /= 'dEdd') then write(nu_diag,*) 'WARNING: dEdd_algae = T but shortwave /= dEdd' write(nu_diag,*) 'WARNING: setting dEdd_algae = F' dEdd_algae = .false. endif - if (dEdd_algae .AND. (.NOT. tr_bgc_N) .AND. (.NOT. tr_zaero)) then + if (dEdd_algae .AND. (.NOT. tr_bgc_N) .AND. (.NOT. tr_zaero)) then write(nu_diag,*) 'WARNING: need tr_bgc_N or tr_zaero for dEdd_algae' write(nu_diag,*) 'WARNING: setting dEdd_algae = F' dEdd_algae = .false. @@ -1124,7 +1134,7 @@ subroutine init_zbgc modal_aero = .false. endif - if (modal_aero .AND. trim(shortwave) /= 'dEdd') then + if (modal_aero .AND. trim(shortwave(1:4)) /= 'dEdd') then write(nu_diag,*) 'WARNING: modal_aero = T but shortwave /= dEdd' write(nu_diag,*) 'WARNING: setting modal_aero = F' modal_aero = .false. From 8109ebfe42fa5fb78a40345782d50b2cf9ccb65e Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Thu, 4 Aug 2022 18:18:50 -0600 Subject: [PATCH 04/64] adding a few more arguments to the calling tree --- columnphysics/icepack_shortwave.F90 | 21 ++++++++++++++++++--- 1 file changed, 18 insertions(+), 3 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 79c8d4684..c50368230 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -886,7 +886,7 @@ subroutine run_dEdd(dt, ncat, & gaer_bc_5bd ! aerosol asymmetry parameter (cos(theta)) !echmod real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment - real (kind=dbl_kind), dimension(nspint_5bd,1471) :: & + real (kind=dbl_kind), dimension(nspint_5bd,10,8) :: & bcenh_5bd ! BC absorption enhancement factor ! SNICAR snow grain single-scattering properties (SSP) for @@ -1252,7 +1252,19 @@ subroutine run_dEdd(dt, ncat, & fswpenl=fswpenln(:,n), & zbio=trcrn_bgcsw(:,n), & l_use_snicar=l_use_snicar, & -!echmod add _5bd + asm_prm_ice_drc=asm_prm_ice_drc, & + asm_prm_ice_dfs=asm_prm_ice_dfs, & + ss_alb_ice_drc=ss_alb_ice_drc, & + ss_alb_ice_dfs=ss_alb_ice_dfs, & + ext_cff_mss_ice_drc=ext_cff_mss_ice_drc, & + ext_cff_mss_ice_dfs=ext_cff_mss_ice_dfs, & + kaer_5bd=kaer_5bd, & + waer_5bd=waer_5bd, & + gaer_5bd=gaer_5bd, & + kaer_bc_5bd=kaer_bc_5bd, & + waer_bc_5bd=waer_bc_5bd, & + gaer_bc_5bd=gaer_bc_5bd, & + bcenh_5bd=bcenh_5bd, & l_print_point=l_print_point) if (icepack_warnings_aborted(subname)) return @@ -1646,7 +1658,10 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idf, & Sswabs, & Iswabs, fswpenl, & - l_use_snicar) + l_use_snicar, & + asm_prm_ice_drc, asm_prm_ice_dfs, & + ss_alb_ice_drc, ss_alb_ice_dfs, & + ext_cff_mss_ice_drc, ext_cff_mss_ice_dfs) else nspint = nspint_3bd call compute_dEdd(nilyr, nslyr, nspint, & From 3c653766d123a0582f8351fae93553bd6ee6309c Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Mon, 22 Aug 2022 11:02:15 -0600 Subject: [PATCH 05/64] remove repeat ridging warnings for niter=1 --- columnphysics/icepack_mechred.F90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/columnphysics/icepack_mechred.F90 b/columnphysics/icepack_mechred.F90 index 67138aca3..7b9258faa 100644 --- a/columnphysics/icepack_mechred.F90 +++ b/columnphysics/icepack_mechred.F90 @@ -433,8 +433,10 @@ subroutine ridge_ice (dt, ndtd, & !----------------------------------------------------------------- if (iterate_ridging) then - write(warnstr,*) subname, 'Repeat ridging, niter =', niter - call icepack_warnings_add(warnstr) + if (niter > 1) then + write(warnstr,*) subname, 'Repeat ridging, niter =', niter + call icepack_warnings_add(warnstr) + endif else exit rdg_iteration endif From 2bd3504b7749098c7a0dfdf1ffa3037bfeea5d04 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Mon, 22 Aug 2022 14:52:26 -0600 Subject: [PATCH 06/64] use 5-band wghtns for snicar --- columnphysics/icepack_shortwave.F90 | 85 ++++++++++++++++++++++------- 1 file changed, 65 insertions(+), 20 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index c50368230..f58cc27ca 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -871,7 +871,7 @@ subroutine run_dEdd(dt, ncat, & bcenh_3bd ! BC absorption enhancement factor logical (kind=log_kind), intent(in) :: & - l_use_snicar ! .true. use 5-band SNICAR-AD approach + l_use_snicar ! .true. use 5-band SNICAR-AD approach for snow !echmod real (kind=dbl_kind), dimension(:,:), intent(in) :: & real (kind=dbl_kind), dimension(nspint_5bd,1471) :: & @@ -1394,7 +1394,7 @@ subroutine shortwave_dEdd (dEdd_algae, & bcenh_3bd ! BC absorption enhancement factor logical (kind=log_kind), intent(in), optional :: & - l_use_snicar ! .true. use 5-band SNICAR-AD approach + l_use_snicar ! .true. use 5-band SNICAR-AD approach for snow ! SNICAR snow grain single-scattering properties (SSP) for ! direct (drc) and diffuse (dfs) shortwave incidents @@ -2670,6 +2670,8 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & enddo endif ! adjust ice iops + if (nspint == nspint_3bd) then + ! adjust ponded ice iops with tuning parameters if( R_pnd >= c0 ) then do ns = 1, nspint @@ -2699,13 +2701,19 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & enddo endif ! adjust ponded ice iops + endif ! nspint + ! use srftyp to determine interface index of surface absorption if (srftyp == 1) then ! snow covered sea ice ksrf = 1 else ! bare sea ice or ponded ice - ksrf = nslyr + 2 + ksrf = nslyr + 2 + if (l_use_snicar .and. nspint == nspint_5bd) then + call icepack_warnings_add(subname//' ERROR: snicar used for srftyp /= snow') + call icepack_warnings_setabort(.true.,__FILE__,__LINE__) + endif endif if (tr_bgc_N .and. dEdd_algae) then ! compute kabs_chl for chlorophyll @@ -3130,7 +3138,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! of kalg*0.50m, independent of actual layer thickness kabs = kabs + kabs_chl(ns,k) endif - sig = ki_int(ns)*wi_int(ns) + sig = ki_int(ns)*wi_int(ns) tau(k) = (kabs+sig)*dzk(k) w0(k) = (sig/(sig+kabs)) g(k) = gi_int(ns) @@ -3422,7 +3430,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & - (dfdir(kp)*swdr + dfdif(kp)*swdf) enddo ! k endif - + ! complex indexing to insure proper absorptions for sea ice ki = 0 do k=nslyr+2,nslyr+1+nilyr @@ -3468,9 +3476,49 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & tmp_ks = tmp_ks * wghtns(ns) tmp_kl = tmp_kl * wghtns(ns) + fsfc = fsfc + tmp_0 - tmp_ks + fint = fint + tmp_ks - tmp_kl + fthru = fthru + tmp_kl fthruidr = fthruidr + dfdir(klevp)*swdr*wghtns(ns) fthruidf = fthruidf + dfdif(klevp)*swdf*wghtns(ns) + ! if snow covered ice, set snow internal absorption; else, Sabs=0 + if( srftyp == 1 ) then + ki = 0 + do k=1,nslyr + ! skip snow SSL, since SSL absorption included in the surface + ! absorption fsfc above + km = k + kp = km + 1 + ki = ki + 1 + Sabs(ki) = Sabs(ki) & + + (dfdir(km)*swdr + dfdif(km)*swdf & + - (dfdir(kp)*swdr + dfdif(kp)*swdf)) & + * wghtns(ns) + enddo ! k + endif + + ! complex indexing to insure proper absorptions for sea ice + ki = 0 + do k=nslyr+2,nslyr+1+nilyr + ! for bare ice, DL absorption for sea ice layer 1 + km = k + kp = km + 1 + ! modify for top sea ice layer for snow over sea ice + if( srftyp == 1 ) then + ! must add SSL and DL absorption for sea ice layer 1 + if( k == nslyr+2 ) then + km = k - 1 + kp = km + 2 + endif + endif + ki = ki + 1 + Iabs(ki) = Iabs(ki) & + + (dfdir(km)*swdr + dfdif(km)*swdf & + - (dfdir(kp)*swdr + dfdif(kp)*swdf)) & + * wghtns(ns) + enddo ! k + elseif (l_use_snicar .and. nspint == nspint_5bd) then ! let fr2(3,4,5) = alb_2(3,4,5)*swd*wght2(3,4,5) @@ -3493,17 +3541,14 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & tmp_kl = dfdir(klevp)*swdr*wghtns_5bd_drc(ns) & + dfdif(klevp)*swdf*wghtns_5bd_dfs(ns) + fsfc = fsfc + tmp_0 - tmp_ks + fint = fint + tmp_ks - tmp_kl + fthru = fthru + tmp_kl fthruidr = fthruidr & + dfdir(klevp)*swdr*wghtns_5bd_drc(ns) fthruidf = fthruidf & + dfdif(klevp)*swdf*wghtns_5bd_dfs(ns) - endif ! nspint - - fsfc = fsfc + tmp_0 - tmp_ks - fint = fint + tmp_ks - tmp_kl - fthru = fthru + tmp_kl - ! if snow covered ice, set snow internal absorption; else, Sabs=0 if( srftyp == 1 ) then ki = 0 @@ -3514,9 +3559,8 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & kp = km + 1 ki = ki + 1 Sabs(ki) = Sabs(ki) & - + (dfdir(km)*swdr + dfdif(km)*swdf & - - (dfdir(kp)*swdr + dfdif(kp)*swdf)) & - * wghtns(ns) + + (dfdir(km)-dfdir(kp))*swdr*wghtns_5bd_drc(ns) & + + (dfdif(km)-dfdir(kp))*swdf*wghtns_5bd_dfs(ns) enddo ! k endif @@ -3524,7 +3568,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ki = 0 do k=nslyr+2,nslyr+1+nilyr ! for bare ice, DL absorption for sea ice layer 1 - km = k + km = k kp = km + 1 ! modify for top sea ice layer for snow over sea ice if( srftyp == 1 ) then @@ -3536,11 +3580,12 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & endif ki = ki + 1 Iabs(ki) = Iabs(ki) & - + (dfdir(km)*swdr + dfdif(km)*swdf & - - (dfdir(kp)*swdr + dfdif(kp)*swdf)) & - * wghtns(ns) + + (dfdir(km)-dfdir(kp))*swdr*wghtns_5bd_drc(ns) & + + (dfdif(km)-dfdir(kp))*swdf*wghtns_5bd_dfs(ns) enddo ! k - + + endif ! nspint + endif ! ns = 1, ns > 1 enddo ! end spectral loop ns @@ -3548,7 +3593,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! solar zenith angle parameterization ! calculate the scaling factor for NIR direct albedo if SZA>75 degree sza_factor = c1 - if (srftyp == 1 .and. l_use_snicar .and. nspint == nspint_5bd) then + if (l_use_snicar .and. nspint == nspint_5bd) then mu0 = max(coszen,p01) if (mu0 < mu_75) then sza_c1 = sza_a0 + sza_a1 * mu0 + sza_a2 * mu0**2 From 56a2ccd2362edf381dae8aff70176e6adc78335f Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Mon, 22 Aug 2022 18:10:08 -0600 Subject: [PATCH 07/64] basic initialization for snicar tables --- columnphysics/icepack_parameters.F90 | 15 ++++ columnphysics/icepack_shortwave.F90 | 118 +++++++++++++++++++++++++++ 2 files changed, 133 insertions(+) diff --git a/columnphysics/icepack_parameters.F90 b/columnphysics/icepack_parameters.F90 index 8f18f1857..cd63ba78f 100644 --- a/columnphysics/icepack_parameters.F90 +++ b/columnphysics/icepack_parameters.F90 @@ -233,6 +233,21 @@ module icepack_parameters sw_frac = 0.9_dbl_kind , & ! Fraction of internal shortwave moved to surface sw_dtemp = 0.02_dbl_kind ! temperature difference from melting + ! Parameters for dEdd_snicar + character (len=char_len), public :: & + snw_ssp_table = 'test' ! lookup table: 'snicar' or 'test' or 'file' + + integer (kind=int_kind), public :: & + nsnw_radius ! maximum snow radius index + + real (kind=dbl_kind), allocatable, public :: & + ssp_snwextdr(:,:), & ! snow mass extinction cross section (m2/kg), direct + ssp_snwextdf(:,:), & ! snow mass extinction cross section (m2/kg), diffuse + ssp_snwalbdr(:,:), & ! snow single scatter albedo (fraction), direct + ssp_snwalbdf(:,:), & ! snow single scatter albedo (fraction), diffuse + ssp_sasymmdr(:,:), & ! snow asymmetry factor (cos(theta)), direct + ssp_sasymmdf(:,:) ! snow asymmetry factor (cos(theta)), diffuse + !----------------------------------------------------------------------- ! Parameters for dynamics, including ridging and strength !----------------------------------------------------------------------- diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index f58cc27ca..0dd424304 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -54,6 +54,10 @@ module icepack_shortwave #endif use icepack_parameters, only: r_ice, r_pnd, r_snw, dt_mlt, rsnw_mlt, hs0, hs1, hp1 use icepack_parameters, only: pndaspect, albedo_type, albicev, albicei, albsnowv, albsnowi, ahmax + use icepack_parameters, only: ssp_snwextdr, ssp_snwalbdr, ssp_sasymmdr + use icepack_parameters, only: ssp_snwextdf, ssp_snwalbdf, ssp_sasymmdf + use icepack_parameters, only: snw_ssp_table, nsnw_radius + use icepack_tracers, only: ntrcr, nbtrcr_sw #ifdef UNDEPRECATE_CESMPONDS use icepack_tracers, only: tr_pond_cesm, tr_pond_lvl, tr_pond_topo @@ -77,6 +81,7 @@ module icepack_shortwave public :: run_dEdd, & shortwave_ccsm3, & compute_shortwave_trcr, & + icepack_init_radiation, & icepack_prep_radiation, & icepack_step_radiation @@ -91,6 +96,119 @@ module icepack_shortwave contains +!======================================================================= +!autodocument_start icepack_init_snow +! Initialize data needed for shortwave radiation calculations + + subroutine icepack_init_radiation + +!autodocument_end + + ! local variables + + integer (kind=int_kind) :: n + + character (len=*),parameter :: subname='(icepack_init_radiation)' + + !----------------------------------------------------------------- + ! Snow single-scattering properties + !----------------------------------------------------------------- + + ! if snw_ssp_table = 'snicar' + ! best-fit parameters are read from a table (netcdf) + ! 1471 snow grain radii + ! 5 spectral intervals + + ! if snw_ssp_table = 'test' + ! for testing Icepack without netcdf, + ! use a subsampled, hard-coded table + ! 5 snow grain radii + ! 5 spectral intervals + + ! if snw_aging_table = 'file' + ! all data has to be passed into icepack_parameters + + if (use_snicar) then + if (trim(snw_ssp_table) == 'snicar') then ! read netcdf file + nsnw_radius = 1471 ! maximum snow grain radius index + + allocate(ssp_snwextdr(nspint_5bd,nsnw_radius)) ! extinction coefficient, direct + allocate(ssp_snwextdf(nspint_5bd,nsnw_radius)) ! extinction coefficient, diffuse + allocate(ssp_snwalbdr(nspint_5bd,nsnw_radius)) ! single-scattering albedo, direct + allocate(ssp_snwalbdf(nspint_5bd,nsnw_radius)) ! single-scattering albedo, diffuse + allocate(ssp_sasymmdr(nspint_5bd,nsnw_radius)) ! snow asymmetry factor, direct + allocate(ssp_sasymmdf(nspint_5bd,nsnw_radius)) ! snow asymmetry factor, diffuse + + elseif (trim(snw_ssp_table) == 'file') then + nsnw_radius = -1 ! maximum snow grain radius index + + elseif (trim(snw_ssp_table) == 'test') then ! 5x5 table + nsnw_radius = 5 ! maximum snow grain radius index + + allocate(ssp_snwextdr(nspint_5bd,nsnw_radius)) ! extinction coefficient, direct + allocate(ssp_snwextdf(nspint_5bd,nsnw_radius)) ! extinction coefficient, diffuse + allocate(ssp_snwalbdr(nspint_5bd,nsnw_radius)) ! single-scattering albedo, direct + allocate(ssp_snwalbdf(nspint_5bd,nsnw_radius)) ! single-scattering albedo, diffuse + allocate(ssp_sasymmdr(nspint_5bd,nsnw_radius)) ! snow asymmetry factor, direct + allocate(ssp_sasymmdf(nspint_5bd,nsnw_radius)) ! snow asymmetry factor, diffuse + + ssp_snwextdr = reshape((/ & + 46.27374983, 24.70286257, 6.54918455, 2.6035624, 1.196168, & + 46.56827715, 24.81790668, 6.56181227, 2.60604155, 1.19682614, & + 46.76114033, 24.90468677, 6.56950323, 2.60780948, 1.19737512, & + 46.9753992, 24.9495155, 6.57687695, 2.60937383, 1.19774008, & + 47.48598349, 25.14100194, 6.59708024, 2.61372576, 1.19897351 /), & + (/nspint_5bd,nsnw_radius/)) + + ssp_snwextdf = reshape((/ & + 46.26936158, 24.70165487, 6.54903637, 2.60353051, 1.19615825, & + 46.56628244, 24.81707286, 6.56164279, 2.60601584, 1.1968169, & + 46.75501968, 24.90175807, 6.5693214, 2.60775795, 1.19736237, & + 46.95368476, 24.94497414, 6.57612007, 2.60924059, 1.19770981, & + 47.29620774, 25.0713585, 6.5891698, 2.61198929, 1.19850197 /), & + (/nspint_5bd,nsnw_radius/)) + + ssp_snwalbdr = reshape((/ & + 0.99999581, 0.99999231, 0.99997215, 0.99993093, 0.99985157, & + 0.99987892, 0.99978212, 0.99923115, 0.99817946, 0.99628374, & + 0.99909682, 0.99835523, 0.99418008, 0.98592085, 0.97062632, & + 0.99308867, 0.98972448, 0.97261528, 0.93947995, 0.88207117, & + 0.93322249, 0.89645776, 0.75765643, 0.6272883, 0.55435033 /), & + (/nspint_5bd,nsnw_radius/)) + + ssp_snwalbdf = reshape((/ & + 0.99999586, 0.9999924, 0.99997249, 0.99993178, 0.9998534, & + 0.99988441, 0.99979202, 0.99926745, 0.99826865, 0.99647135, & + 0.99910997, 0.99837683, 0.99426171, 0.98610431, 0.97097643, & + 0.99476731, 0.9916114, 0.97441209, 0.94127464, 0.88440735, & + 0.9419837, 0.90613207, 0.77042376, 0.63887161, 0.5566098 /), & + (/nspint_5bd,nsnw_radius/)) + + ssp_sasymmdr = reshape((/ & + 0.88503036, 0.88778473, 0.89049023, 0.89112501, 0.89136157, & + 0.88495225, 0.88905367, 0.89315385, 0.89433673, 0.8950027, & + 0.88440201, 0.88928256, 0.89503166, 0.89762648, 0.90045378, & + 0.88590371, 0.89350221, 0.90525156, 0.91314567, 0.92157748, & + 0.9033537, 0.91778261, 0.94615574, 0.96323447, 0.97167644 /), & + (/nspint_5bd,nsnw_radius/)) + + ssp_sasymmdf = reshape((/ & + 0.88500571, 0.88773868, 0.89042496, 0.8910553, 0.89128949, & + 0.88495225, 0.88905367, 0.89315385, 0.89433673, 0.8950027 , & + 0.88441433, 0.88929133, 0.89500611, 0.89756091, 0.90035504, & + 0.88495554, 0.89201556, 0.90204619, 0.90914885, 0.91769988, & + 0.89620237, 0.90998944, 0.94126152, 0.96209938, 0.9726631 /), & + (/nspint_5bd,nsnw_radius/)) + + else + call icepack_warnings_setabort(.true.,__FILE__,__LINE__) + call icepack_warnings_add(subname//'ERROR: snw_ssp_table value') + return + endif + endif + + end subroutine icepack_init_radiation + !======================================================================= ! ! Driver for basic solar radiation from CCSM3. Albedos and absorbed solar. From d2f38709bdd62660ab47f13b2b6b25cfb083e649 Mon Sep 17 00:00:00 2001 From: apcraig Date: Wed, 24 Aug 2022 14:08:24 -0600 Subject: [PATCH 08/64] clean up trailing blanks --- columnphysics/icepack_shortwave.F90 | 550 ++++++++++++++-------------- 1 file changed, 275 insertions(+), 275 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 0dd424304..737e5b01e 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -4,26 +4,26 @@ ! snow over ice, bare ice and ponded ice. ! ! Presently, two methods are included: -! (1) CCSM3 -! (2) Delta-Eddington +! (1) CCSM3 +! (2) Delta-Eddington ! as two distinct routines. ! Either can be called from the ice driver. ! ! The Delta-Eddington method is described here: ! -! Briegleb, B. P., and B. Light (2007): A Delta-Eddington Multiple -! Scattering Parameterization for Solar Radiation in the Sea Ice -! Component of the Community Climate System Model, NCAR Technical +! Briegleb, B. P., and B. Light (2007): A Delta-Eddington Multiple +! Scattering Parameterization for Solar Radiation in the Sea Ice +! Component of the Community Climate System Model, NCAR Technical ! Note NCAR/TN-472+STR February 2007 ! ! name: originally ice_albedo ! ! authors: Bruce P. Briegleb, NCAR ! Elizabeth C. Hunke and William H. Lipscomb, LANL -! 2005, WHL: Moved absorbed_solar from icepack_therm_vertical to this +! 2005, WHL: Moved absorbed_solar from icepack_therm_vertical to this ! module and changed name from ice_albedo ! 2006, WHL: Added Delta Eddington routines from Bruce Briegleb -! 2006, ECH: Changed data statements in Delta Eddington routines (no +! 2006, ECH: Changed data statements in Delta Eddington routines (no ! longer hardwired) ! Converted to free source form (F90) ! 2007, BPB: Completely updated Delta-Eddington code, so that: @@ -89,7 +89,7 @@ module icepack_shortwave hpmin = 0.005_dbl_kind, & ! minimum allowed melt pond depth (m) hp0 = 0.200_dbl_kind ! pond depth below which transition to bare ice - real (kind=dbl_kind), parameter :: & + real (kind=dbl_kind), parameter :: & exp_argmax = c10 ! maximum argument of exponential !======================================================================= @@ -339,19 +339,19 @@ subroutine shortwave_ccsm3 (aicen, vicen, & alidrni = albocn alvdfni = albocn alidfni = albocn - + alvdrns = albocn alidrns = albocn alvdfns = albocn alidfns = albocn - + alvdrn(n) = albocn alidrn(n) = albocn alvdfn(n) = albocn alidfn(n) = albocn - + albin(n) = c0 - albsn(n) = c0 + albsn(n) = c0 fswsfc(n) = c0 fswint(n) = c0 @@ -502,13 +502,13 @@ subroutine compute_albedos (aicen, vicen, & alidrn , & ! near-ir, direct, avg (fraction) alvdfn , & ! visible, diffuse, avg (fraction) alidfn , & ! near-ir, diffuse, avg (fraction) - albin , & ! bare ice - albsn ! snow + albin , & ! bare ice + albsn ! snow ! local variables real (kind=dbl_kind), parameter :: & - dT_melt = c1 , & ! change in temp to give dalb_mlt + dT_melt = c1 , & ! change in temp to give dalb_mlt ! albedo change dalb_mlt = -0.075_dbl_kind, & ! albedo change per dT_melt change ! in temp for ice @@ -536,7 +536,7 @@ subroutine compute_albedos (aicen, vicen, & !----------------------------------------------------------------- hi = vicen / aicen - hs = vsnon / aicen + hs = vsnon / aicen ! bare ice, thickness dependence fh = min(atan(hi*c4)/fhtan,c1) @@ -590,9 +590,9 @@ subroutine compute_albedos (aicen, vicen, & ! save ice and snow albedos (for history) albin = awtvdr*alvdrni + awtidr*alidrni & - + awtvdf*alvdfni + awtidf*alidfni + + awtvdf*alvdfni + awtidf*alidfni albsn = awtvdr*alvdrns + awtidr*alidrns & - + awtvdf*alvdfns + awtidf*alidfns + + awtvdf*alvdfns + awtidf*alidfns end subroutine compute_albedos @@ -628,8 +628,8 @@ subroutine constant_albedos (aicen, & alidrn , & ! near-ir, direct, avg (fraction) alvdfn , & ! visible, diffuse, avg (fraction) alidfn , & ! near-ir, diffuse, avg (fraction) - albin , & ! bare ice - albsn ! snow + albin , & ! bare ice + albsn ! snow ! local variables @@ -685,9 +685,9 @@ subroutine constant_albedos (aicen, & ! save ice and snow albedos (for history) albin = awtvdr*alvdrni + awtidr*alidrni & - + awtvdf*alvdfni + awtidf*alidfni + + awtvdf*alvdfni + awtidf*alidfni albsn = awtvdr*alvdrns + awtidr*alidrns & - + awtvdf*alvdfns + awtidf*alidfns + + awtvdf*alvdfns + awtidf*alidfns end subroutine constant_albedos @@ -724,7 +724,7 @@ subroutine absorbed_solar (nilyr, aicen, & logical(kind=log_kind), intent(in) :: & heat_capacity ! if true, ice has nonzero heat capacity #endif - integer (kind=int_kind), intent(in) :: & + integer (kind=int_kind), intent(in) :: & nilyr ! number of ice layers real (kind=dbl_kind), intent(in) :: & @@ -828,10 +828,10 @@ subroutine absorbed_solar (nilyr, aicen, & ! no penetrating radiation in near IR ! fswpenidr = swidr * (c1-alidrni) * (c1-asnow) * i0nir -! fswpenidf = swidf * (c1-alidfni) * (c1-asnow) * i0nir +! fswpenidf = swidf * (c1-alidfni) * (c1-asnow) * i0nir fswpen = fswpenvdr + fswpenvdf - + fswsfc = swabs - fswpen trantop = c1 ! transmittance at top of ice @@ -875,7 +875,7 @@ subroutine absorbed_solar (nilyr, aicen, & ! if zero-layer model (no heat capacity), no SW is absorbed in ice ! interior, so add to surface absorption !---------------------------------------------------------------- - + if (.not. heat_capacity) then ! SW absorbed at snow/ice surface @@ -893,7 +893,7 @@ end subroutine absorbed_solar !======================================================================= ! Begin Delta-Eddington shortwave method -! Compute initial data for Delta-Eddington method, specifically, +! Compute initial data for Delta-Eddington method, specifically, ! the approximate exponential look-up table. ! ! author: Bruce P. Briegleb, NCAR @@ -912,7 +912,7 @@ subroutine run_dEdd(dt, ncat, & #ifdef UNDEPRECATE_0LAYER heat_capacity, & #endif - tlat, tlon, & + tlat, tlon, & calendar_type, & days_per_year, & nextsw_cday, yday, & @@ -979,12 +979,12 @@ subroutine run_dEdd(dt, ncat, & kaer_3bd, & ! aerosol mass extinction cross section (m2/kg) waer_3bd, & ! aerosol single scatter albedo (fraction) gaer_3bd ! aerosol asymmetry parameter (cos(theta)) - + real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Modal aerosol treatment kaer_bc_3bd, & ! aerosol mass extinction cross section (m2/kg) waer_bc_3bd, & ! aerosol single scatter albedo (fraction) gaer_bc_3bd ! aerosol asymmetry parameter (cos(theta)) - + real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment bcenh_3bd ! BC absorption enhancement factor @@ -1058,7 +1058,7 @@ subroutine run_dEdd(dt, ncat, & dhsn ! depth difference for snow on sea ice and pond ice real(kind=dbl_kind), intent(inout) :: & - coszen ! cosine solar zenith angle, < 0 for sun below horizon + coszen ! cosine solar zenith angle, < 0 for sun below horizon real(kind=dbl_kind), dimension(:), intent(inout) :: & alvdrn, & ! visible direct albedo (fraction) @@ -1067,23 +1067,23 @@ subroutine run_dEdd(dt, ncat, & alidfn, & ! near-ir diffuse albedo (fraction) fswsfcn, & ! SW absorbed at ice/snow surface (W m-2) fswintn, & ! SW absorbed in ice interior, below surface (W m-2) - fswthrun, & ! SW through ice to ocean (W/m^2) - albicen, & ! albedo bare ice - albsnon, & ! albedo snow - albpndn, & ! albedo pond + fswthrun, & ! SW through ice to ocean (W/m^2) + albicen, & ! albedo bare ice + albsnon, & ! albedo snow + albpndn, & ! albedo pond apeffn, & ! effective pond area used for radiation calculation snowfracn ! snow fraction on each category used for radiation real(kind=dbl_kind), dimension(:), intent(out), optional :: & - fswthrun_vdr, & ! vis dir SW through ice to ocean (W/m^2) - fswthrun_vdf, & ! vis dif SW through ice to ocean (W/m^2) - fswthrun_idr, & ! nir dir SW through ice to ocean (W/m^2) - fswthrun_idf ! nir dif SW through ice to ocean (W/m^2) + fswthrun_vdr, & ! vis dir SW through ice to ocean (W/m^2) + fswthrun_vdf, & ! vis dif SW through ice to ocean (W/m^2) + fswthrun_idr, & ! nir dir SW through ice to ocean (W/m^2) + fswthrun_idf ! nir dif SW through ice to ocean (W/m^2) real(kind=dbl_kind), dimension(:,:), intent(inout) :: & rsnow , & ! snow grain radius tracer (10^-6 m) Sswabsn , & ! SW radiation absorbed in snow layers (W m-2) - Iswabsn , & ! SW radiation absorbed in ice layers (W m-2) + Iswabsn , & ! SW radiation absorbed in ice layers (W m-2) fswpenln ! visible SW entering ice layers (W m-2) logical (kind=log_kind), intent(in) :: & @@ -1200,7 +1200,7 @@ subroutine run_dEdd(dt, ncat, & if (tr_pond_cesm) then ! fraction of ice area fpn = apndn(n) - ! pond depth over fraction fpn + ! pond depth over fraction fpn hpn = hpndn(n) ! snow infiltration if (hsn >= hs_min .and. hs0 > puny) then @@ -1250,25 +1250,25 @@ subroutine run_dEdd(dt, ncat, & spn = hsnlvl - dhs ! snow depth on pond ice if (.not. linitonly .and. ipn*spn < puny) dhs = c0 dhsn(n) = dhs ! save: constant until reset to 0 - + ! not using ipn assumes that lid ice is perfectly clear ! if (ipn <= 0.3_dbl_kind) then - + ! fraction of ice area - fpn = apndn(n) * alvln(n) + fpn = apndn(n) * alvln(n) ! pond depth over fraction fpn hpn = hpndn(n) - + ! reduce effective pond area absorbing surface heat flux ! due to flux already having been used to melt pond ice fpn = (c1 - ffracn(n)) * fpn - + ! taper pond area with snow on pond ice if (dhs > puny .and. spn >= puny .and. hs1 > puny) then asnow = min(spn/hs1, c1) fpn = (c1 - asnow) * fpn endif - + ! infiltrate snow hp = hpn if (hp > puny) then @@ -1303,7 +1303,7 @@ subroutine run_dEdd(dt, ncat, & fpn = c0 endif if (apndn(n) > puny) then - hpn = hpndn(n) + hpn = hpndn(n) else fpn = c0 hpn = c0 @@ -1313,7 +1313,7 @@ subroutine run_dEdd(dt, ncat, & if (hpn < hpmin) fpn = c0 ! If ponds are present snow fraction reduced to - ! non-ponded part dEdd scheme + ! non-ponded part dEdd scheme fsn = min(fsn, c1-fpn) apeffn(n) = fpn @@ -1324,12 +1324,12 @@ subroutine run_dEdd(dt, ncat, & fsn, fpn, & hpn) if (icepack_warnings_aborted(subname)) return - + apeffn(n) = fpn ! for history fpn = c0 hpn = c0 endif ! pond type - + snowfracn(n) = fsn ! for history call shortwave_dEdd(dEdd_algae, & @@ -1408,33 +1408,33 @@ subroutine run_dEdd(dt, ncat, & deallocate(l_fswthrun_idf) end subroutine run_dEdd - + !======================================================================= ! -! Compute snow/bare ice/ponded ice shortwave albedos, absorbed and transmitted +! Compute snow/bare ice/ponded ice shortwave albedos, absorbed and transmitted ! flux using the Delta-Eddington solar radiation method as described in: ! ! A Delta-Eddington Multiple Scattering Parameterization for Solar Radiation ! in the Sea Ice Component of the Community Climate System Model ! B.P.Briegleb and B.Light NCAR/TN-472+STR February 2007 ! -! Compute shortwave albedos and fluxes for three surface types: -! snow over ice, bare ice and ponded ice. -! -! Albedos and fluxes are output for later use by thermodynamic routines. -! Invokes three calls to compute_dEdd, which sets inherent optical properties -! appropriate for the surface type. Within compute_dEdd, a call to solution_dEdd +! Compute shortwave albedos and fluxes for three surface types: +! snow over ice, bare ice and ponded ice. +! +! Albedos and fluxes are output for later use by thermodynamic routines. +! Invokes three calls to compute_dEdd, which sets inherent optical properties +! appropriate for the surface type. Within compute_dEdd, a call to solution_dEdd ! evaluates the Delta-Eddington solution. The final albedos and fluxes are then -! evaluated in compute_dEdd. Albedos and fluxes are transferred to output in +! evaluated in compute_dEdd. Albedos and fluxes are transferred to output in ! this routine. ! ! NOTE regarding albedo diagnostics: This method yields zero albedo values ! if there is no incoming solar and thus the albedo diagnostics are masked -! out when the sun is below the horizon. To estimate albedo from the history +! out when the sun is below the horizon. To estimate albedo from the history ! output (post-processing), compute ice albedo using ! (1 - albedo)*swdn = swabs. -ECH ! -! author: Bruce P. Briegleb, NCAR +! author: Bruce P. Briegleb, NCAR ! 2013: E Hunke merged with NCAR version ! subroutine shortwave_dEdd (dEdd_algae, & @@ -1445,7 +1445,7 @@ subroutine shortwave_dEdd (dEdd_algae, & coszen, & #endif aice, vice, & - hs, fs, & + hs, fs, & rhosnw, rsnw, & fp, hp, & aero, & @@ -1497,7 +1497,7 @@ subroutine shortwave_dEdd (dEdd_algae, & #endif dEdd_algae, & ! .true. use prognostic chla in dEdd modal_aero ! .true. use modal aerosol treatment - + real (kind=dbl_kind), dimension(:,:), intent(in) :: & kaer_3bd, & ! aerosol mass extinction cross section (m2/kg) waer_3bd, & ! aerosol single scatter albedo (fraction) @@ -1507,7 +1507,7 @@ subroutine shortwave_dEdd (dEdd_algae, & kaer_bc_3bd, & ! aerosol mass extinction cross section (m2/kg) waer_bc_3bd, & ! aerosol single scatter albedo (fraction) gaer_bc_3bd ! aerosol asymmetry parameter (cos(theta)) - + real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment bcenh_3bd ! BC absorption enhancement factor @@ -1541,8 +1541,8 @@ subroutine shortwave_dEdd (dEdd_algae, & kalg , & ! algae absorption coefficient R_ice , & ! sea ice tuning parameter; +1 > 1sig increase in albedo R_pnd , & ! ponded ice tuning parameter; +1 > 1sig increase in albedo - aice , & ! concentration of ice - vice , & ! volume of ice + aice , & ! concentration of ice + vice , & ! volume of ice hs , & ! snow depth fs ! horizontal coverage of snow @@ -1553,19 +1553,19 @@ subroutine shortwave_dEdd (dEdd_algae, & zbio ! shortwave tracers (zaero+chla) real (kind=dbl_kind), intent(in) :: & - fp , & ! pond fractional coverage (0 to 1) - hp , & ! pond depth (m) + fp , & ! pond fractional coverage (0 to 1) + hp , & ! pond depth (m) swvdr , & ! sw down, visible, direct (W/m^2) swvdf , & ! sw down, visible, diffuse (W/m^2) swidr , & ! sw down, near IR, direct (W/m^2) swidf ! sw down, near IR, diffuse (W/m^2) real (kind=dbl_kind), intent(inout) :: & - coszen , & ! cosine of solar zenith angle - alvdr , & ! visible, direct, albedo (fraction) - alvdf , & ! visible, diffuse, albedo (fraction) - alidr , & ! near-ir, direct, albedo (fraction) - alidf , & ! near-ir, diffuse, albedo (fraction) + coszen , & ! cosine of solar zenith angle + alvdr , & ! visible, direct, albedo (fraction) + alvdf , & ! visible, diffuse, albedo (fraction) + alidr , & ! near-ir, direct, albedo (fraction) + alidf , & ! near-ir, diffuse, albedo (fraction) fswsfc , & ! SW absorbed at snow/bare ice/pondedi ice surface (W m-2) fswint , & ! SW interior absorption (below surface, above ocean,W m-2) fswthru ! SW through snow/bare ice/ponded ice into ocean (W m-2) @@ -1575,16 +1575,16 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_vdf , & ! vis dif SW through snow/bare ice/ponded ice into ocean (W m-2) fswthru_idr , & ! nir dir SW through snow/bare ice/ponded ice into ocean (W m-2) fswthru_idf ! nir dif SW through snow/bare ice/ponded ice into ocean (W m-2) - + real (kind=dbl_kind), dimension (:), intent(inout) :: & fswpenl , & ! visible SW entering ice layers (W m-2) Sswabs , & ! SW absorbed in snow layer (W m-2) Iswabs ! SW absorbed in ice layer (W m-2) real (kind=dbl_kind), intent(out) :: & - albice , & ! bare ice albedo, for history - albsno , & ! snow albedo, for history - albpnd ! pond albedo, for history + albice , & ! bare ice albedo, for history + albsno , & ! snow albedo, for history + albpnd ! pond albedo, for history logical (kind=log_kind) , intent(in) :: & l_print_point @@ -1604,7 +1604,7 @@ subroutine shortwave_dEdd (dEdd_algae, & integer (kind=int_kind) :: & nspint , & ! number of solar spectral bands srftyp ! surface type over ice: (0=air, 1=snow, 2=pond) - + integer (kind=int_kind) :: & k , & ! level index na , & ! aerosol index @@ -1613,7 +1613,7 @@ subroutine shortwave_dEdd (dEdd_algae, & ! (0 layer is included also) real (kind=dbl_kind) :: & - vsno ! volume of snow + vsno ! volume of snow real (kind=dbl_kind) :: & swdn , & ! swvdr(i,j)+swvdf(i,j)+swidr(i,j)+swidf(i,j) @@ -1622,10 +1622,10 @@ subroutine shortwave_dEdd (dEdd_algae, & ! for history real (kind=dbl_kind) :: & - avdrl , & ! visible, direct, albedo (fraction) - avdfl , & ! visible, diffuse, albedo (fraction) - aidrl , & ! near-ir, direct, albedo (fraction) - aidfl ! near-ir, diffuse, albedo (fraction) + avdrl , & ! visible, direct, albedo (fraction) + avdfl , & ! visible, diffuse, albedo (fraction) + aidrl , & ! near-ir, direct, albedo (fraction) + aidfl ! near-ir, diffuse, albedo (fraction) character(len=*),parameter :: subname='(shortwave_dEdd)' @@ -1667,7 +1667,7 @@ subroutine shortwave_dEdd (dEdd_algae, & Iswabs(:) = c0 ! compute aerosol mass path - + aero_mp(:) = c0 if( tr_aero ) then ! check 4 layers for each aerosol, a snow SSL, snow below SSL, @@ -1689,9 +1689,9 @@ subroutine shortwave_dEdd (dEdd_algae, & enddo ! na endif ! if aerosols - ! compute shortwave radiation accounting for snow/ice (both snow over + ! compute shortwave radiation accounting for snow/ice (both snow over ! ice and bare ice) and ponded ice (if any): - + ! sea ice points with sun above horizon netsw = swvdr + swidr + swvdf + swidf if (netsw > puny) then ! sun above horizon @@ -1730,7 +1730,7 @@ subroutine shortwave_dEdd (dEdd_algae, & Iswabs, fswpenl, & l_use_snicar) if (icepack_warnings_aborted(subname)) return - + alvdr = alvdr + avdrl *fi alvdf = alvdf + avdfl *fi alidr = alidr + aidrl *fi @@ -1738,10 +1738,10 @@ subroutine shortwave_dEdd (dEdd_algae, & ! for history albice = albice & + awtvdr*avdrl + awtidr*aidrl & - + awtvdf*avdfl + awtidf*aidfl + + awtvdf*avdfl + awtidf*aidfl endif endif - + ! sea ice points with sun above horizon netsw = swvdr + swidr + swvdf + swidf if (netsw > puny) then ! sun above horizon @@ -1808,7 +1808,7 @@ subroutine shortwave_dEdd (dEdd_algae, & l_use_snicar) endif if (icepack_warnings_aborted(subname)) return - + alvdr = alvdr + avdrl *fs alvdf = alvdf + avdfl *fs alidr = alidr + aidrl *fs @@ -1816,7 +1816,7 @@ subroutine shortwave_dEdd (dEdd_algae, & ! for history albsno = albsno & + awtvdr*avdrl + awtidr*aidrl & - + awtvdf*avdfl + awtidf*aidfl + + awtvdf*avdfl + awtidf*aidfl endif endif @@ -1830,7 +1830,7 @@ subroutine shortwave_dEdd (dEdd_algae, & ! if nonzero pond fraction and sufficient pond depth ! if( fp > puny .and. hp > hpmin ) then if (fp > puny) then - + ! calculate ponded ice srftyp = 2 @@ -1846,7 +1846,7 @@ subroutine shortwave_dEdd (dEdd_algae, & kaer_3bd, waer_3bd, gaer_3bd, & kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd, & bcenh_3bd, modal_aero, kalg, & - swvdr, swvdf, swidr, swidf, srftyp, & + swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fp, aero_mp, avdrl, avdfl, & aidrl, aidfl, & @@ -1860,7 +1860,7 @@ subroutine shortwave_dEdd (dEdd_algae, & Iswabs, fswpenl, & l_use_snicar) if (icepack_warnings_aborted(subname)) return - + alvdr = alvdr + avdrl *fp alvdf = alvdf + avdfl *fp alidr = alidr + aidrl *fp @@ -1868,7 +1868,7 @@ subroutine shortwave_dEdd (dEdd_algae, & ! for history albpnd = albpnd & + awtvdr*avdrl + awtidr*aidrl & - + awtvdf*avdfl + awtidf*aidfl + + awtvdf*avdfl + awtidf*aidfl endif endif @@ -1928,7 +1928,7 @@ subroutine shortwave_dEdd (dEdd_algae, & swab = fswsfc+fswint+fswthru swalb = (1.-swab/(swdn+.0001)) write(warnstr,*) subname, ' swdn swab swalb = ',swdn,swab,swalb - do k = 1, nslyr + do k = 1, nslyr write(warnstr,*) subname, ' snow layer k = ', k, & ' rhosnw = ', & rhosnw(k), & @@ -1936,12 +1936,12 @@ subroutine shortwave_dEdd (dEdd_algae, & rsnw(k) call icepack_warnings_add(warnstr) enddo - do k = 1, nslyr + do k = 1, nslyr write(warnstr,*) subname, ' snow layer k = ', k, & ' Sswabs(k) = ', Sswabs(k) call icepack_warnings_add(warnstr) enddo - do k = 1, nilyr + do k = 1, nilyr write(warnstr,*) subname, ' sea ice layer k = ', k, & ' Iswabs(k) = ', Iswabs(k) call icepack_warnings_add(warnstr) @@ -1953,10 +1953,10 @@ end subroutine shortwave_dEdd !======================================================================= ! -! Evaluate snow/ice/ponded ice inherent optical properties (IOPs), and +! Evaluate snow/ice/ponded ice inherent optical properties (IOPs), and ! then calculate the multiple scattering solution by calling solution_dEdd. ! -! author: Bruce P. Briegleb, NCAR +! author: Bruce P. Briegleb, NCAR ! 2013: E Hunke merged with NCAR version ! 2018: Cheng Dang merged with SNICAR 5-band snow and aersols IOPs, UC Irvine @@ -2009,7 +2009,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & klev , & ! number of radiation layers - 1 klevp ! number of radiation interfaces - 1 ! (0 layer is included also) - + logical (kind=log_kind), intent(in) :: & #ifdef UNDEPRECATE_0LAYER heat_capacity,& ! if true, ice has nonzero heat capacity @@ -2021,7 +2021,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & kaer_bc_tab, & ! aerosol mass extinction cross section (m2/kg) waer_bc_tab, & ! aerosol single scatter albedo (fraction) gaer_bc_tab ! aerosol asymmetry parameter (cos(theta)) - + real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment bcenh ! BC absorption enhancement factor @@ -2030,11 +2030,11 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & R_ice , & ! sea ice tuning parameter; +1 > 1sig increase in albedo R_pnd ! ponded ice tuning parameter; +1 > 1sig increase in albedo - real (kind=dbl_kind), dimension(:,:), intent(in) :: & + real (kind=dbl_kind), dimension(:,:), intent(in) :: & kaer_tab, & ! aerosol mass extinction cross section (m2/kg) waer_tab, & ! aerosol single scatter albedo (fraction) gaer_tab ! aerosol asymmetry parameter (cos(theta)) - + real (kind=dbl_kind), intent(in) :: & kalg , & ! algae absorption coefficient fnidr , & ! fraction of direct to total down flux in nir @@ -2043,11 +2043,11 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & swvdf , & ! shortwave down at surface, visible, diffuse (W/m^2) swidr , & ! shortwave down at surface, near IR, direct (W/m^2) swidf ! shortwave down at surface, near IR, diffuse (W/m^2) - + integer (kind=int_kind), intent(in) :: & nspint , & ! number of solar spectral bands srftyp ! surface type over ice: (0=air, 1=snow, 2=pond) - + real (kind=dbl_kind), intent(in) :: & hs ! snow thickness (m) @@ -2061,12 +2061,12 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & hi , & ! ice thickness (m) hp , & ! pond depth (m) fi ! snow/bare ice fractional coverage (0 to 1) - + real (kind=dbl_kind), intent(inout) :: & - alvdr , & ! visible, direct, albedo (fraction) - alvdf , & ! visible, diffuse, albedo (fraction) - alidr , & ! near-ir, direct, albedo (fraction) - alidf , & ! near-ir, diffuse, albedo (fraction) + alvdr , & ! visible, direct, albedo (fraction) + alvdf , & ! visible, diffuse, albedo (fraction) + alidr , & ! near-ir, direct, albedo (fraction) + alidf , & ! near-ir, diffuse, albedo (fraction) fswsfc , & ! SW absorbed at snow/bare ice/pondedi ice surface (W m-2) fswint , & ! SW interior absorption (below surface, above ocean,W m-2) fswthru ! SW through snow/bare ice/ponded ice into ocean (W m-2) @@ -2076,7 +2076,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & fswthru_vdf , & ! vis dif SW through snow/bare ice/ponded ice into ocean (W m-2) fswthru_idr , & ! nir dir SW through snow/bare ice/ponded ice into ocean (W m-2) fswthru_idf ! nir dif SW through snow/bare ice/ponded ice into ocean (W m-2) - + real (kind=dbl_kind), dimension (:), intent(inout) :: & fswpenl , & ! visible SW entering ice layers (W m-2) Sswabs , & ! SW absorbed in snow layer (W m-2) @@ -2097,12 +2097,12 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & !----------------------------------------------------------------------- ! -! Set up optical property profiles, based on snow, sea ice and ponded +! Set up optical property profiles, based on snow, sea ice and ponded ! ice IOPs from: ! -! Briegleb, B. P., and B. Light (2007): A Delta-Eddington Multiple -! Scattering Parameterization for Solar Radiation in the Sea Ice -! Component of the Community Climate System Model, NCAR Technical +! Briegleb, B. P., and B. Light (2007): A Delta-Eddington Multiple +! Scattering Parameterization for Solar Radiation in the Sea Ice +! Component of the Community Climate System Model, NCAR Technical ! Note NCAR/TN-472+STR February 2007 ! ! Computes column Delta-Eddington radiation solution for specific @@ -2111,7 +2111,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! Divides solar spectrum into 3 intervals: 0.2-0.7, 0.7-1.19, and ! 1.19-5.0 micro-meters. The latter two are added (using an assumed ! partition of incident shortwave in the 0.7-5.0 micro-meter band between -! the 0.7-1.19 and 1.19-5.0 micro-meter band) to give the final output +! the 0.7-1.19 and 1.19-5.0 micro-meter band) to give the final output ! of 0.2-0.7 visible and 0.7-5.0 near-infrared albedos and fluxes. ! ! Specifies vertical layer optical properties based on input snow depth, @@ -2126,14 +2126,14 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! Please read the following; otherwise, there is 99.9% chance you ! will be confused about indices at some point in time........ :) ! -! CICE4.0 snow treatment has one snow layer above the sea ice. This +! CICE4.0 snow treatment has one snow layer above the sea ice. This ! snow layer has finite heat capacity, so that surface absorption must ! be distinguished from internal. The Delta-Eddington solar radiation ! thus adds extra surface scattering layers to both snow and sea ice. ! Note that in the following, we assume a fixed vertical layer structure -! for the radiation calculation. In other words, we always have the -! structure shown below for one snow and four sea ice layers, but for -! ponded ice the pond fills "snow" layer 1 over the sea ice, and for +! for the radiation calculation. In other words, we always have the +! structure shown below for one snow and four sea ice layers, but for +! ponded ice the pond fills "snow" layer 1 over the sea ice, and for ! bare sea ice the top layers over sea ice are treated as transparent air. ! ! SSL = surface scattering layer for either snow or sea ice @@ -2187,7 +2187,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! for surface heating, and that absorbed in the sea ice DL is ! used for sea ice layer 1 heating. ! -! Basically, vertical profiles of the layer extinction optical depth (tau), +! Basically, vertical profiles of the layer extinction optical depth (tau), ! single scattering albedo (w0) and asymmetry parameter (g) are required over ! the klev+1 layers, where klev+1 = 2 + nslyr + nilyr. All of the surface type ! information and snow/ice iop properties are evaulated in this routine, so @@ -2210,16 +2210,16 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ksnow , & ! level index for snow density and grain size kii ! level starting index for sea ice (nslyr+1) - integer (kind=int_kind), parameter :: & + integer (kind=int_kind), parameter :: & nmbrad = 32 ! number of snow grain radii in tables - - real (kind=dbl_kind) :: & + + real (kind=dbl_kind) :: & avdr , & ! visible albedo, direct (fraction) avdf , & ! visible albedo, diffuse (fraction) aidr , & ! near-ir albedo, direct (fraction) aidf ! near-ir albedo, diffuse (fraction) - - real (kind=dbl_kind) :: & + + real (kind=dbl_kind) :: & fsfc , & ! shortwave absorbed at snow/bare ice/ponded ice surface (W m-2) fint , & ! shortwave absorbed in interior (W m-2) fthru , & ! shortwave through snow/bare ice/ponded ice to ocean (W/m^2) @@ -2228,28 +2228,28 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & fthruidr, & ! nir dir shortwave through snow/bare ice/ponded ice to ocean (W/m^2) fthruidf ! nir dif shortwave through snow/bare ice/ponded ice to ocean (W/m^2) - real (kind=dbl_kind), dimension(nslyr) :: & + real (kind=dbl_kind), dimension(nslyr) :: & Sabs ! shortwave absorbed in snow layer (W m-2) - real (kind=dbl_kind), dimension(nilyr) :: & + real (kind=dbl_kind), dimension(nilyr) :: & Iabs ! shortwave absorbed in ice layer (W m-2) - - real (kind=dbl_kind), dimension(nilyr+1) :: & + + real (kind=dbl_kind), dimension(nilyr+1) :: & fthrul ! shortwave through to ice layers (W m-2) real (kind=dbl_kind), dimension (nspint_3bd) :: & wghtns ! spectral weights - - real (kind=dbl_kind), parameter :: & + + real (kind=dbl_kind), parameter :: & cp67 = 0.67_dbl_kind , & ! nir band weight parameter cp78 = 0.78_dbl_kind , & ! nir band weight parameter cp01 = 0.01_dbl_kind ! for ocean visible albedo - + real (kind=dbl_kind), dimension (0:klev) :: & tau , & ! layer extinction optical depth w0 , & ! layer single scattering albedo g ! layer asymmetry parameter - + ! following arrays are defined at model interfaces; 0 is the top of the ! layer above the sea ice; klevp is the sea ice/ocean interface. real (kind=dbl_kind), dimension (0:klevp) :: & @@ -2259,7 +2259,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & rupdir , & ! reflectivity to direct radiation for layers below rupdif , & ! reflectivity to diffuse radiation for layers below rdndif ! reflectivity to diffuse radiation for layers above - + real (kind=dbl_kind), dimension (0:klevp) :: & dfdir , & ! down-up flux at interface due to direct beam at top surface dfdif ! down-up flux at interface due to diffuse beam at top surface @@ -2273,7 +2273,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ws , & ! Snow single scattering albedo gs ! Snow asymmetry parameter - real (kind=dbl_kind), dimension(nslyr) :: & + real (kind=dbl_kind), dimension(nslyr) :: & frsnw ! snow grain radius in snow layer * adjustment factor (m) ! ice and ponded ice IOPs, allowing for tuning @@ -2303,7 +2303,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & dz_ssl , & ! snow or sea ice surface scattering layer thickness fs ! scaling factor to reduce (nilyr<4) or increase (nilyr>4) DL ! extinction coefficient to maintain DL optical depth constant - ! with changing number of sea ice layers, to approximately + ! with changing number of sea ice layers, to approximately ! conserve computed albedo for constant physical depth of sea ! ice when the number of sea ice layers vary real (kind=dbl_kind) :: & @@ -2320,8 +2320,8 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & real (kind=dbl_kind) :: & albodr , & ! spectral ocean albedo to direct rad albodf ! spectral ocean albedo to diffuse rad - - ! for melt pond transition to bare sea ice for small pond depths + + ! for melt pond transition to bare sea ice for small pond depths real (kind=dbl_kind) :: & sig_i , & ! ice scattering coefficient (/m) sig_p , & ! pond scattering coefficient (/m) @@ -2631,7 +2631,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & kii = nslyr + 1 ! initialize albedos and fluxes to 0 - fthrul = c0 + fthrul = c0 Iabs = c0 kabs_chl(:,:) = c0 tzaer(:,:) = c0 @@ -2649,7 +2649,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & fthruvdf = c0 fthruidr = c0 fthruidf = c0 - + if (nspint == nspint_3bd) then ki_ssl_mn = ki_ssl_mn_3bd wi_ssl_mn = wi_ssl_mn_3bd @@ -2676,10 +2676,10 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! spectral weights if (nspint == nspint_3bd) then - ! weights 2 (0.7-1.19 micro-meters) and 3 (1.19-5.0 micro-meters) - ! are chosen based on 1D calculations using ratio of direct to total - ! near-infrared solar (0.7-5.0 micro-meter) which indicates clear/cloudy - ! conditions: more cloud, the less 1.19-5.0 relative to the + ! weights 2 (0.7-1.19 micro-meters) and 3 (1.19-5.0 micro-meters) + ! are chosen based on 1D calculations using ratio of direct to total + ! near-infrared solar (0.7-5.0 micro-meter) which indicates clear/cloudy + ! conditions: more cloud, the less 1.19-5.0 relative to the ! 0.7-1.19 micro-meter due to cloud absorption. wghtns(1) = c1 wghtns(2) = cp67 + (cp78-cp67)*(c1-fnidr) @@ -2723,7 +2723,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & dzk(k) = dz enddo endif - + ! ice dz = hi*rnilyr ! empirical reduction in sea ice ssl thickness for ice thinner than 1.5m; @@ -2735,7 +2735,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! set sea ice ssl thickness to half top layer if sea ice thin enough !ech: note this is highly resolution dependent! dz_ssl = min(dz_ssl, dz/c2) - + dzk(kii) = dz_ssl dzk(kii+1) = dz - dz_ssl if (kii+2 <= klev) then @@ -2840,12 +2840,12 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & enddo else k = klev - kabs_chl(1,k) = kalg*(0.50_dbl_kind/dzk(k)) + kabs_chl(1,k) = kalg*(0.50_dbl_kind/dzk(k)) endif ! kabs_chl ! aerosols if (modal_aero) then - do k=0,klev + do k=0,klev if (k < nslyr+1) then ! define indices for snow layer ! use top rsnw, rhosnw for snow ssl and rest of top layer ! Cheng: note that aerosol IOPs are related to snow grain radius. @@ -2857,7 +2857,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & elseif (l_use_snicar .and. nspint == nspint_5bd) then tmp_gs = rsnw(ksnow) endif - + ! grain size index: works for 25 < snw_rds < 1625 um: if (tmp_gs < 125._dbl_kind) then tmp1 = tmp_gs/50._dbl_kind @@ -2890,8 +2890,8 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! call icepack_warnings_add(warnstr) enddo ! k - if (tr_zaero .and. dEdd_algae) then ! compute kzaero for chlorophyll - do n = 1,n_zaero + if (tr_zaero .and. dEdd_algae) then ! compute kzaero for chlorophyll + do n = 1,n_zaero if (n == 1) then ! interstitial BC do k = 0, klev do ns = 1,nspint ! not weighted by aice @@ -2907,7 +2907,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & enddo elseif (n==2) then ! within-ice BC do k = 0, klev - do ns = 1,nspint + do ns = 1,nspint tzaer(ns,k) = tzaer(ns,k)+kaer_bc_tab(ns,k_bcins(k)) * & bcenh(ns,k_bcins(k),k_bcini(k))* & zbio(nlt_zaero_sw(n)+k)*dzk(k) @@ -2948,20 +2948,20 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & enddo ! nspint enddo enddo - endif !tr_zaero + endif !tr_zaero endif ! modal_aero !----------------------------------------------------------------------- - + ! begin spectral loop !echmod - split this loop for efficiency, if possible (move conditionals outside of the loop) do ns = 1, nspint - + ! set optical properties of air/snow/pond overlying sea ice ! air if( srftyp == 0 ) then - do k=0,nslyr + do k=0,nslyr tau(k) = c0 w0(k) = c0 g(k) = c0 @@ -3178,9 +3178,9 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & gaer = gaer + & (aero_mp(na+1)/rnslyr)*kaer_bc_tab(ns,k_bcins(k))* & waer_bc_tab(ns,k_bcins(k))*gaer_bc_tab(ns,k_bcins(k)) - + else ! other species (dust) - + taer = taer + & (aero_mp(na+1)/rnslyr)*kaer_tab(ns,(1+(na-1)/4)) waer = waer + & @@ -3222,9 +3222,9 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! no aerosol in pond enddo ! k endif ! srftyp - + ! set optical properties of sea ice - + ! bare or snow-covered sea ice layers if( srftyp <= 1 ) then ! ssl @@ -3254,7 +3254,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & if( ns == 1 ) then ! total layer absorption optical depth fixed at value ! of kalg*0.50m, independent of actual layer thickness - kabs = kabs + kabs_chl(ns,k) + kabs = kabs + kabs_chl(ns,k) endif sig = ki_int(ns)*wi_int(ns) tau(k) = (kabs+sig)*dzk(k) @@ -3262,7 +3262,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & g(k) = gi_int(ns) ! aerosol in sea ice if (tr_zaero .and. dEdd_algae) then - do k = kii, klev + do k = kii, klev gzaer(ns,k) = gzaer(ns,k)/(wzaer(ns,k)+puny) wzaer(ns,k) = wzaer(ns,k)/(tzaer(ns,k)+puny) g(k) = (g(k)*w0(k)*tau(k) + gzaer(ns,k)*wzaer(ns,k)*tzaer(ns,k)) & @@ -3271,7 +3271,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & / (tau(k) + tzaer(ns,k)) tau(k) = tau(k) + tzaer(ns,k) enddo - elseif (tr_aero) then + elseif (tr_aero) then k = kii ! sea ice SSL taer = c0 waer = c0 @@ -3296,7 +3296,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & waer_bc_tab(ns,k_bcins(k)) gaer = gaer + & aero_mp(na+2)*kaer_bc_tab(ns,k_bcins(k))* & - waer_bc_tab(ns,k_bcins(k))*gaer_bc_tab(ns,k_bcins(k)) + waer_bc_tab(ns,k_bcins(k))*gaer_bc_tab(ns,k_bcins(k)) else ! other species (dust) taer = taer + & aero_mp(na+2)*kaer_tab(ns,(1+(na-1)/4)) @@ -3431,40 +3431,40 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & enddo ! k endif endif ! small pond depth transition to bare sea ice - endif ! srftyp - + endif ! srftyp + ! set reflectivities for ocean underlying sea ice rns = real(ns-1, kind=dbl_kind) albodr = cp01 * (c1 - min(rns, c1)) albodf = cp01 * (c1 - min(rns, c1)) - + ! layer input properties now completely specified: tau, w0, g, - ! albodr, albodf; now compute the Delta-Eddington solution + ! albodr, albodf; now compute the Delta-Eddington solution ! reflectivities and transmissivities for each layer; then, ! combine the layers going downwards accounting for multiple - ! scattering between layers, and finally start from the + ! scattering between layers, and finally start from the ! underlying ocean and combine successive layers upwards to ! the surface; see comments in solution_dEdd for more details. - + call solution_dEdd & (coszen, srftyp, klev, klevp, nslyr, & tau, w0, g, albodr, albodf, & trndir, trntdr, trndif, rupdir, rupdif, & - rdndif) + rdndif) if (icepack_warnings_aborted(subname)) return ! the interface reflectivities and transmissivities required ! to evaluate interface fluxes are returned from solution_dEdd; - ! now compute up and down fluxes for each interface, using the + ! now compute up and down fluxes for each interface, using the ! combined layer properties at each interface: ! ! layers interface ! ! --------------------- k ! k - ! --------------------- - - do k = 0, klevp + ! --------------------- + + do k = 0, klevp ! interface scattering refk = c1/(c1 - rdndif(k)*rupdif(k)) ! dir tran ref from below times interface scattering, plus diff @@ -3473,7 +3473,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! (trntdr(k)-trndir(k)) & ! *rupdif(k))*refk ! dir tran plus total diff trans times interface scattering plus - ! dir tran with up dir ref and down dif ref times interface scattering + ! dir tran with up dir ref and down dif ref times interface scattering ! fdirdn(k) = trndir(k) + (trntdr(k) & ! - trndir(k) + trndir(k) & ! *rupdir(k)*rdndif(k))*refk @@ -3490,8 +3490,8 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! dfdif = fdifdn - fdifup dfdif(k) = trndif(k) * (c1 - rupdif(k)) * refk if (dfdif(k) < puny) dfdif(k) = c0 !echmod necessary? - enddo ! k - + enddo ! k + !echmod - is this necessary? ! ! note that because the snow IOPs for diffuse and direct incidents ! ! are different, the snow albedo needs to be calculated twice for @@ -3511,14 +3511,14 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! calculate final surface albedos and fluxes- ! all absorbed flux above ksrf is included in surface absorption - + if( ns == 1) then ! visible - + swdr = swvdr swdf = swvdf avdr = rupdir(0) avdf = rupdif(0) - + tmp_0 = dfdir(0 )*swdr + dfdif(0 )*swdf tmp_ks = dfdir(ksrf )*swdr + dfdif(ksrf )*swdf tmp_kl = dfdir(klevp)*swdr + dfdif(klevp)*swdf @@ -3527,13 +3527,13 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & do k = nslyr+2, klevp ! Start at DL layer of ice after SSL scattering fthrul(k-nslyr-1) = dfdir(k)*swdr + dfdif(k)*swdf enddo - + fsfc = fsfc + tmp_0 - tmp_ks fint = fint + tmp_ks - tmp_kl fthru = fthru + tmp_kl fthruvdr = fthruvdr + dfdir(klevp)*swdr fthruvdf = fthruvdf + dfdif(klevp)*swdf - + ! if snow covered ice, set snow internal absorption; else, Sabs=0 if( srftyp == 1 ) then ki = 0 @@ -3553,7 +3553,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ki = 0 do k=nslyr+2,nslyr+1+nilyr ! for bare ice, DL absorption for sea ice layer 1 - km = k + km = k kp = km + 1 ! modify for top sea ice layer for snow over sea ice if( srftyp == 1 ) then @@ -3568,9 +3568,9 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & + dfdir(km)*swdr + dfdif(km)*swdf & - (dfdir(kp)*swdr + dfdif(kp)*swdf) enddo ! k - + else ! ns > 1, near IR - + swdr = swidr swdf = swidf @@ -3681,7 +3681,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & + (dfdif(km)-dfdir(kp))*swdf*wghtns_5bd_dfs(ns) enddo ! k endif - + ! complex indexing to insure proper absorptions for sea ice ki = 0 do k=nslyr+2,nslyr+1+nilyr @@ -3705,7 +3705,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & endif ! nspint endif ! ns = 1, ns > 1 - + enddo ! end spectral loop ns ! solar zenith angle parameterization @@ -3746,29 +3746,29 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & do k = 1, nslyr Sswabs(k) = Sswabs(k) + Sabs(k)*fi enddo ! k - + do k = 1, nilyr Iswabs(k) = Iswabs(k) + Iabs(k)*fi - - ! bgc layer + + ! bgc layer fswpenl(k) = fswpenl(k) + fthrul(k)* fi if (k == nilyr) then fswpenl(k+1) = fswpenl(k+1) + fthrul(k+1)*fi endif enddo ! k - + #ifdef UNDEPRECATE_0LAYER !---------------------------------------------------------------- - ! if ice has zero heat capacity, no SW can be absorbed + ! if ice has zero heat capacity, no SW can be absorbed ! in the ice/snow interior, so add to surface absorption. ! Note: nilyr = nslyr = 1 for this case !---------------------------------------------------------------- if (.not. heat_capacity) then - + ! SW absorbed at snow/ice surface fswsfc = fswsfc + Iswabs(1) + Sswabs(1) - + ! SW absorbed in ice interior fswint = c0 Iswabs(1) = c0 @@ -3780,7 +3780,7 @@ end subroutine compute_dEdd !======================================================================= ! -! Given input vertical profiles of optical properties, evaluate the +! Given input vertical profiles of optical properties, evaluate the ! monochromatic Delta-Eddington solution. ! ! author: Bruce P. Briegleb, NCAR @@ -3800,16 +3800,16 @@ subroutine solution_dEdd & klevp , & ! number of radiation interfaces - 1 ! (0 layer is included also) nslyr ! number of snow layers - + real (kind=dbl_kind), dimension(0:klev), intent(in) :: & tau , & ! layer extinction optical depth w0 , & ! layer single scattering albedo g ! layer asymmetry parameter - + real (kind=dbl_kind), intent(in) :: & albodr , & ! ocean albedo to direct rad albodf ! ocean albedo to diffuse rad - + ! following arrays are defined at model interfaces; 0 is the top of the ! layer above the sea ice; klevp is the sea ice/ocean interface. real (kind=dbl_kind), dimension (0:klevp), intent(out) :: & @@ -3841,7 +3841,7 @@ subroutine solution_dEdd & ! Assumes monochromatic (spectrally uniform) properties across a band ! for the input optical parameters. ! -! If total transmission of the direct beam to the interface above a particular +! If total transmission of the direct beam to the interface above a particular ! layer is less than trmin, then no further Delta-Eddington solutions are ! evaluated for layers below. ! @@ -3849,16 +3849,16 @@ subroutine solution_dEdd & ! ! First, we assume that radiation is refracted when entering either ! sea ice at the base of the surface scattering layer, or water (i.e. melt -! pond); we assume that radiation does not refract when entering snow, nor -! upon entering sea ice from a melt pond, nor upon entering the underlying +! pond); we assume that radiation does not refract when entering snow, nor +! upon entering sea ice from a melt pond, nor upon entering the underlying ! ocean from sea ice. ! ! To handle refraction, we define a "fresnel" layer, which physically -! is of neglible thickness and is non-absorbing, which can be combined to -! any sea ice layer or top of melt pond. The fresnel layer accounts for +! is of neglible thickness and is non-absorbing, which can be combined to +! any sea ice layer or top of melt pond. The fresnel layer accounts for ! refraction of direct beam and associated reflection and transmission for -! solar radiation. A fresnel layer is combined with the top of a melt pond -! or to the surface scattering layer of sea ice if no melt pond lies over it. +! solar radiation. A fresnel layer is combined with the top of a melt pond +! or to the surface scattering layer of sea ice if no melt pond lies over it. ! ! Some caution must be exercised for the fresnel layer, because any layer ! to which it is combined is no longer a homogeneous layer, as are all other @@ -3875,11 +3875,11 @@ subroutine solution_dEdd & integer (kind=int_kind) :: & kfrsnl ! radiation interface index for fresnel layer - + ! following variables are defined for each layer; 0 refers to the top - ! layer. In general we must distinguish directions above and below in + ! layer. In general we must distinguish directions above and below in ! the diffuse reflectivity and transmissivity, as layers are not assumed - ! to be homogeneous (apart from the single layer Delta-Edd solutions); + ! to be homogeneous (apart from the single layer Delta-Edd solutions); ! the direct is always from above. real (kind=dbl_kind), dimension (0:klev) :: & rdir , & ! layer reflectivity to direct radiation @@ -3890,14 +3890,14 @@ subroutine solution_dEdd & tdif_b , & ! layer transmission to diffuse radiation from below trnlay ! solar beam transm for layer (direct beam only) - integer (kind=int_kind) :: & + integer (kind=int_kind) :: & k ! level index - + real (kind=dbl_kind), parameter :: & trmin = 0.001_dbl_kind ! minimum total transmission allowed ! total transmission is that due to the direct beam; i.e. it includes ! both the directly transmitted solar beam and the diffuse downwards - ! transmitted radiation resulting from scattering out of the direct beam + ! transmitted radiation resulting from scattering out of the direct beam real (kind=dbl_kind) :: & tautot , & ! layer optical depth wtot , & ! layer single scattering albedo @@ -3909,9 +3909,9 @@ subroutine solution_dEdd & rintfc , & ! reflection (multiple) at an interface refkp1 , & ! interface multiple scattering for k+1 refkm1 , & ! interface multiple scattering for k-1 - tdrrdir , & ! direct tran times layer direct ref + tdrrdir , & ! direct tran times layer direct ref tdndif ! total down diffuse = tot tran - direct tran - + ! perpendicular and parallel relative to plane of incidence and scattering real (kind=dbl_kind) :: & R1 , & ! perpendicular polarization reflection amplitude @@ -3924,21 +3924,21 @@ subroutine solution_dEdd & Rf_dif_b , & ! fresnel reflection to diff radiation from below Tf_dif_a , & ! fresnel transmission to diff radiation from above Tf_dif_b ! fresnel transmission to diff radiation from below - + ! refractive index for sea ice, water; pre-computed, band-independent, ! diffuse fresnel reflectivities - real (kind=dbl_kind), parameter :: & + real (kind=dbl_kind), parameter :: & refindx = 1.310_dbl_kind , & ! refractive index of sea ice (water also) cp063 = 0.063_dbl_kind , & ! diffuse fresnel reflectivity from above cp455 = 0.455_dbl_kind ! diffuse fresnel reflectivity from below - + real (kind=dbl_kind) :: & mu0 , & ! cosine solar zenith angle incident mu0nij ! cosine solar zenith angle in medium below fresnel level - + real (kind=dbl_kind) :: & mu0n ! cosine solar zenith angle in medium - + real (kind=dbl_kind) :: & alp , & ! temporary for alpha gam , & ! temporary for agamm @@ -3984,7 +3984,7 @@ subroutine solution_dEdd & !----------------------------------------------------------------------- - do k = 0, klevp + do k = 0, klevp trndir(k) = c0 trntdr(k) = c0 trndif(k) = c0 @@ -3993,20 +3993,20 @@ subroutine solution_dEdd & rdndif(k) = c0 enddo - ! initialize top interface of top layer + ! initialize top interface of top layer trndir(0) = c1 trntdr(0) = c1 trndif(0) = c1 rdndif(0) = c0 - ! mu0 is cosine solar zenith angle above the fresnel level; make + ! mu0 is cosine solar zenith angle above the fresnel level; make ! sure mu0 is large enough for stable and meaningful radiation ! solution: .01 is like sun just touching horizon with its lower edge mu0 = max(coszen,p01) ! mu0n is cosine solar zenith angle used to compute the layer ! Delta-Eddington solution; it is initially computed to be the - ! value below the fresnel level, i.e. the cosine solar zenith + ! value below the fresnel level, i.e. the cosine solar zenith ! angle below the fresnel level for the refracted solar beam: mu0nij = sqrt(c1-((c1-mu0**2)/(refindx*refindx))) @@ -4017,7 +4017,7 @@ subroutine solution_dEdd & ! at base of sea ice SSL (and top of the sea ice DL); the ! snow SSL counts for one, then the number of snow layers, ! then the sea ice SSL which also counts for one: - if( srftyp < 2 ) kfrsnl = nslyr + 2 + if( srftyp < 2 ) kfrsnl = nslyr + 2 ! proceed down one layer at a time; if the total transmission to ! the interface just above a given layer is less than trmin, then no @@ -4037,7 +4037,7 @@ subroutine solution_dEdd & ! compute next layer Delta-eddington solution only if total transmission ! of radiation to the interface just above the layer exceeds trmin. - + if (trntdr(k) > trmin ) then ! calculation over layers with penetrating radiation @@ -4076,7 +4076,7 @@ subroutine solution_dEdd & amg = alp - gam rdir(k) = apg*rdif_a(k) + amg*(tdif_a(k)*trnlay(k) - c1) tdir(k) = apg*tdif_a(k) + (amg* rdif_a(k)-apg+c1)*trnlay(k) - + ! recalculate rdif,tdif using direct angular integration over rdir,tdir, ! since Delta-Eddington rdif formula is not well-behaved (it is usually ! biased low and can even be negative); use ngmax angles and gaussian @@ -4103,20 +4103,20 @@ subroutine solution_dEdd & enddo ! ng rdif_a(k) = smr/swt tdif_a(k) = smt/swt - + ! homogeneous layer rdif_b(k) = rdif_a(k) tdif_b(k) = tdif_a(k) - ! add fresnel layer to top of desired layer if either - ! air or snow overlies ice; we ignore refraction in ice + ! add fresnel layer to top of desired layer if either + ! air or snow overlies ice; we ignore refraction in ice ! if a melt pond overlies it: if( k == kfrsnl ) then ! compute fresnel reflection and transmission amplitudes ! for two polarizations: 1=perpendicular and 2=parallel to ! the plane containing incident, reflected and refracted rays. - R1 = (mu0 - refindx*mu0n) / & + R1 = (mu0 - refindx*mu0n) / & (mu0 + refindx*mu0n) R2 = (refindx*mu0 - mu0n) / & (refindx*mu0 + mu0n) @@ -4142,7 +4142,7 @@ subroutine solution_dEdd & Rf_dif_b = cp455 Tf_dif_b = c1 - Rf_dif_b - ! the k = kfrsnl layer properties are updated to combined + ! the k = kfrsnl layer properties are updated to combined ! the fresnel (refractive) layer, always taken to be above ! the present layer k (i.e. be the top interface): @@ -4168,31 +4168,31 @@ subroutine solution_dEdd & endif ! k = kfrsnl endif ! trntdr(k) > trmin - + ! initialize current layer properties to zero; only if total ! transmission to the top interface of the current layer exceeds the ! minimum, will these values be computed below: ! Calculate the solar beam transmission, total transmission, and - ! reflectivity for diffuse radiation from below at interface k, + ! reflectivity for diffuse radiation from below at interface k, ! the top of the current layer k: ! ! layers interface - ! - ! --------------------- k-1 + ! + ! --------------------- k-1 ! k-1 ! --------------------- k ! k - ! --------------------- + ! --------------------- ! For k = klevp ! note that we ignore refraction between sea ice and underlying ocean: ! ! layers interface ! - ! --------------------- k-1 + ! --------------------- k-1 ! k-1 ! --------------------- k ! \\\\\\\ ocean \\\\\\\ - + trndir(k+1) = trndir(k)*trnlay(k) refkm1 = c1/(c1 - rdndif(k)*rdif_a(k)) tdrrdir = trndir(k)*rdir(k) @@ -4205,8 +4205,8 @@ subroutine solution_dEdd & enddo ! k end main level loop - ! compute reflectivity to direct and diffuse radiation for layers - ! below by adding succesive layers starting from the underlying + ! compute reflectivity to direct and diffuse radiation for layers + ! below by adding succesive layers starting from the underlying ! ocean and working upwards: ! ! layers interface @@ -4218,7 +4218,7 @@ subroutine solution_dEdd & ! --------------------- rupdir(klevp) = albodr - rupdif(klevp) = albodf + rupdif(klevp) = albodf do k=klev,0,-1 ! interface scattering @@ -4238,10 +4238,10 @@ end subroutine solution_dEdd !======================================================================= ! -! Set snow horizontal coverage, density and grain radius diagnostically +! Set snow horizontal coverage, density and grain radius diagnostically ! for the Delta-Eddington solar radiation method. ! -! author: Bruce P. Briegleb, NCAR +! author: Bruce P. Briegleb, NCAR ! 2013: E Hunke merged with NCAR version subroutine shortwave_dEdd_set_snow(nslyr, R_snw, & @@ -4252,7 +4252,7 @@ subroutine shortwave_dEdd_set_snow(nslyr, R_snw, & rhosnw, rsnw, & rsnow) - integer (kind=int_kind), intent(in) :: & + integer (kind=int_kind), intent(in) :: & nslyr ! number of snow layers real (kind=dbl_kind), intent(in) :: & @@ -4263,7 +4263,7 @@ subroutine shortwave_dEdd_set_snow(nslyr, R_snw, & real (kind=dbl_kind), intent(in) :: & aice , & ! concentration of ice vsno , & ! volume of snow - Tsfc , & ! surface temperature + Tsfc , & ! surface temperature hs0 ! snow depth for transition to bare sea ice (m) real (kind=dbl_kind), intent(inout) :: & @@ -4298,12 +4298,12 @@ subroutine shortwave_dEdd_set_snow(nslyr, R_snw, & ! set snow horizontal fraction hs = vsno / aice - + if (hs >= hs_min) then fs = c1 if (hs0 > puny) fs = min(hs/hs0, c1) endif - + if (snwgrain) then ! use snow grain tracer do ks = 1, nslyr @@ -4341,7 +4341,7 @@ end subroutine shortwave_dEdd_set_snow ! Set pond fraction and depth diagnostically for ! the Delta-Eddington solar radiation method. ! -! author: Bruce P. Briegleb, NCAR +! author: Bruce P. Briegleb, NCAR ! 2013: E Hunke merged with NCAR version subroutine shortwave_dEdd_set_pond(Tsfc, & @@ -4375,7 +4375,7 @@ subroutine shortwave_dEdd_set_pond(Tsfc, & ! pond fp = 0.3_dbl_kind*fT*(c1-fs) hp = 0.3_dbl_kind*fT*(c1-fs) - + end subroutine shortwave_dEdd_set_pond ! End Delta-Eddington shortwave method @@ -4392,13 +4392,13 @@ subroutine compute_shortwave_trcr(nslyr, & nilyr, nblyr, & i_grid, & skl_bgc, z_tracers ) - + integer (kind=int_kind), intent(in) :: & nslyr ! number of snow layers integer (kind=int_kind), intent(in) :: & nblyr , & ! number of bio layers - nilyr ! number of ice layers + nilyr ! number of ice layers real (kind=dbl_kind), dimension (:), intent(in) :: & bgcN , & ! Nit tracer @@ -4408,9 +4408,9 @@ subroutine compute_shortwave_trcr(nslyr, & trcrn_bgcsw ! ice on shortwave grid tracers real (kind=dbl_kind), dimension (:), intent(in) :: & - sw_grid , & ! + sw_grid , & ! i_grid ! CICE bio grid - + real(kind=dbl_kind), intent(in) :: & hin , & ! CICE ice thickness hbri ! brine height @@ -4431,7 +4431,7 @@ subroutine compute_shortwave_trcr(nslyr, & icegrid ! correct for large ice surface layers real (kind=dbl_kind):: & - top_conc ! 1% (min_bgc) of surface concentration + top_conc ! 1% (min_bgc) of surface concentration ! when hin > hbri: just used in sw calculation character(len=*),parameter :: subname='(compute_shortwave_trcr)' @@ -4446,7 +4446,7 @@ subroutine compute_shortwave_trcr(nslyr, & do k = 1,nilyr+1 icegrid(k) = sw_grid(k) - enddo + enddo if (sw_grid(1)*hin*c2 > hi_ssl) then icegrid(1) = hi_ssl/c2/hin endif @@ -4465,7 +4465,7 @@ subroutine compute_shortwave_trcr(nslyr, & R_chl2N(n)*F_abs_chl(n)*bgcN(nt_bgc_N(n)-nt_bgc_N(1)+1 + k-1) enddo ! n enddo ! k - + top_conc = trtmp0(nt_bgc_N(1))*min_bgc call remap_zbgc (nilyr+1, & nt_bgc_N(1), & @@ -4474,7 +4474,7 @@ subroutine compute_shortwave_trcr(nslyr, & 1, nblyr+1, & hin, hbri, & icegrid(1:nilyr+1), & - i_grid(1:nblyr+1), top_conc ) + i_grid(1:nblyr+1), top_conc ) if (icepack_warnings_aborted(subname)) return do k = 1, nilyr+1 @@ -4533,7 +4533,7 @@ subroutine compute_shortwave_trcr(nslyr, & + F_abs_chl(nn)*R_chl2N(nn) & * bgcN(nt_bgc_N(nn)-nt_bgc_N(1)+1)*sk_l/hin & * real(nilyr,kind=dbl_kind) - enddo + enddo endif end subroutine compute_shortwave_trcr @@ -4604,10 +4604,10 @@ subroutine icepack_prep_radiation (ncat, nilyr, nslyr, & ! local variables integer (kind=int_kind) :: & - k , & ! vertical index + k , & ! vertical index n ! thickness category index - real (kind=dbl_kind) :: netsw + real (kind=dbl_kind) :: netsw character(len=*),parameter :: subname='(icepack_prep_radiation)' @@ -4736,14 +4736,14 @@ subroutine icepack_step_radiation (dt, ncat, & yday ! day of the year real (kind=dbl_kind), intent(inout) :: & - coszen ! cosine solar zenith angle, < 0 for sun below horizon + coszen ! cosine solar zenith angle, < 0 for sun below horizon real (kind=dbl_kind), dimension (:), intent(in) :: & igrid ! biology vertical interface points - + real (kind=dbl_kind), dimension (:), intent(in) :: & swgrid ! grid for ice tracers used in dEdd scheme - + real (kind=dbl_kind), dimension(:,:), intent(in) :: & kaer_3bd, & ! aerosol mass extinction cross section (m2/kg) waer_3bd, & ! aerosol single scatter albedo (fraction) @@ -4766,7 +4766,7 @@ subroutine icepack_step_radiation (dt, ncat, & apndn , & ! pond area fraction hpndn , & ! pond depth (m) ipndn , & ! pond refrozen lid thickness (m) - fbri ! brine fraction + fbri ! brine fraction real(kind=dbl_kind), dimension(:,:), intent(in) :: & aeron , & ! aerosols (kg/m^3) @@ -4788,9 +4788,9 @@ subroutine icepack_step_radiation (dt, ncat, & dhsn , & ! depth difference for snow on sea ice and pond ice ffracn , & ! fraction of fsurfn used to melt ipond ! albedo components for history - albicen , & ! bare ice - albsnon , & ! snow - albpndn , & ! pond + albicen , & ! bare ice + albsnon , & ! snow + albpndn , & ! pond apeffn ! effective pond area used for radiation calculation real (kind=dbl_kind), dimension(:), intent(inout), optional :: & @@ -4893,7 +4893,7 @@ subroutine icepack_step_radiation (dt, ncat, & if (calc_Tsfc) then if (trim(shortwave(1:4)) == 'dEdd') then ! delta Eddington - + call run_dEdd(dt, ncat, & dEdd_algae, & nilyr, nslyr, & @@ -4948,7 +4948,7 @@ subroutine icepack_step_radiation (dt, ncat, & l_use_snicar=use_snicar, & initonly=linitonly) if (icepack_warnings_aborted(subname)) return - + elseif (trim(shortwave(1:4)) == 'ccsm') then call shortwave_ccsm3(aicen, vicen, & @@ -4995,7 +4995,7 @@ subroutine icepack_step_radiation (dt, ncat, & if (tr_pond_topo) then do n = 1, ncat - apeffn(n) = c0 + apeffn(n) = c0 if (aicen(n) > puny) then ! Lid effective if thicker than hp1 if (apndn(n)*aicen(n) > puny .and. ipndn(n) < hp1) then @@ -5006,7 +5006,7 @@ subroutine icepack_step_radiation (dt, ncat, & if (apndn(n) < puny) apeffn(n) = c0 endif enddo ! ncat - + endif ! tr_pond_topo ! Initialize for safety @@ -5120,7 +5120,7 @@ real(kind=dbl_kind) function asys(gg,f) asys = (gg - f)/(c1 - f) end function asys - + !======================================================================= end module icepack_shortwave From cd31ec2a8351d3c28ae7a9f6fc5d093d4b6ccc0f Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Wed, 24 Aug 2022 18:02:11 -0600 Subject: [PATCH 09/64] interim commit with some snicar initialization, unconnected and not tested --- columnphysics/icepack_shortwave.F90 | 147 ++++++++++++++++------------ 1 file changed, 85 insertions(+), 62 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 737e5b01e..c6a120ba6 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -92,12 +92,21 @@ module icepack_shortwave real (kind=dbl_kind), parameter :: & exp_argmax = c10 ! maximum argument of exponential +!echmod - temporary module data - change names later to icepack parameters - fix! + integer (kind=int_kind), dimension(:), allocatable :: & + rsnw_snicar_tab ! vector of snow grain radii values assumed in SNICAR snow iops table + + integer (kind=int_kind) :: & + nmbrad_snicar , & ! number of snow grain radii in SNICAR snow iops table + rsnw_snicar_max, & ! maximum snow radius - integer value used for indexing + rsnw_snicar_min ! minimum snow radius - integer value used for indexing + !======================================================================= contains !======================================================================= -!autodocument_start icepack_init_snow +!autodocument_start icepack_init_radiation ! Initialize data needed for shortwave radiation calculations subroutine icepack_init_radiation @@ -125,13 +134,20 @@ subroutine icepack_init_radiation ! 5 snow grain radii ! 5 spectral intervals - ! if snw_aging_table = 'file' + ! if snw_ssp_table = 'file' ! all data has to be passed into icepack_parameters if (use_snicar) then if (trim(snw_ssp_table) == 'snicar') then ! read netcdf file nsnw_radius = 1471 ! maximum snow grain radius index +!echmod - temporary module data - fix! + nmbrad_snicar = nsnw_radius ! number of snow grain radii in snow iops table +!echmod - these min/max values should be read in from the file, but they are not available there + rsnw_snicar_max = 1500 ! maximum snow radius - integer value used for indexing + rsnw_snicar_min = 30 ! minimum snow radius - integer value used for indexing + + allocate(rsnw_snicar_tab(nsnw_radius)) ! snow grain radii allocate(ssp_snwextdr(nspint_5bd,nsnw_radius)) ! extinction coefficient, direct allocate(ssp_snwextdf(nspint_5bd,nsnw_radius)) ! extinction coefficient, diffuse allocate(ssp_snwalbdr(nspint_5bd,nsnw_radius)) ! single-scattering albedo, direct @@ -139,12 +155,25 @@ subroutine icepack_init_radiation allocate(ssp_sasymmdr(nspint_5bd,nsnw_radius)) ! snow asymmetry factor, direct allocate(ssp_sasymmdf(nspint_5bd,nsnw_radius)) ! snow asymmetry factor, diffuse +!echmod - this might not be needed + rsnw_snicar_tab(1) = real(rsnw_snicar_min,dbl_kind) + do n = 1, nsnw_radius-1 + rsnw_snicar_tab(n+1) = rsnw_snicar_tab(n) + c1 + enddo + elseif (trim(snw_ssp_table) == 'file') then nsnw_radius = -1 ! maximum snow grain radius index elseif (trim(snw_ssp_table) == 'test') then ! 5x5 table nsnw_radius = 5 ! maximum snow grain radius index +!echmod - temporary module data - fix! + nmbrad_snicar = nsnw_radius ! number of snow grain radii in snow iops table +!echmod - these min/max values should be set from the data array + rsnw_snicar_max = 1340 ! maximum snow radius - integer value used for indexing + rsnw_snicar_min = 6 ! minimum snow radius - integer value used for indexing + + allocate(rsnw_snicar_tab(nsnw_radius)) ! snow grain radii allocate(ssp_snwextdr(nspint_5bd,nsnw_radius)) ! extinction coefficient, direct allocate(ssp_snwextdf(nspint_5bd,nsnw_radius)) ! extinction coefficient, diffuse allocate(ssp_snwalbdr(nspint_5bd,nsnw_radius)) ! single-scattering albedo, direct @@ -152,6 +181,9 @@ subroutine icepack_init_radiation allocate(ssp_sasymmdr(nspint_5bd,nsnw_radius)) ! snow asymmetry factor, direct allocate(ssp_sasymmdf(nspint_5bd,nsnw_radius)) ! snow asymmetry factor, diffuse + rsnw_snicar_tab = (/ & ! snow grain radius for each table entry (micro-meters) + 6._dbl_kind, 37._dbl_kind, 221._dbl_kind, 600._dbl_kind, 1340._dbl_kind/) + ssp_snwextdr = reshape((/ & 46.27374983, 24.70286257, 6.54918455, 2.6035624, 1.196168, & 46.56827715, 24.81790668, 6.56181227, 2.60604155, 1.19682614, & @@ -926,7 +958,7 @@ subroutine run_dEdd(dt, ncat, & kaer_bc_3bd, & waer_bc_3bd, & gaer_bc_3bd, & - bcenh_3bd, & + bcenh_3bd, & modal_aero, & swvdr, swvdf, & swidr, swidf, & @@ -1781,6 +1813,7 @@ subroutine shortwave_dEdd (dEdd_algae, & ss_alb_ice_drc, ss_alb_ice_dfs, & ext_cff_mss_ice_drc, ext_cff_mss_ice_dfs) else +!echmod - this can be combined with the 5bd call above, if we use module data nspint = nspint_3bd call compute_dEdd(nilyr, nslyr, nspint, & klev, klevp, zbio, dEdd_algae, & @@ -2532,7 +2565,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & gw = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /) real (kind=dbl_kind), parameter :: & - rhoi = 917.0_dbl_kind,& ! pure ice mass density (kg/m3) + rhoi = 917.0_dbl_kind,& ! pure ice mass density (kg/m3) - echmod HARDCODED! fix! fr_max = 1.00_dbl_kind, & ! snow grain adjustment factor max fr_min = 0.80_dbl_kind, & ! snow grain adjustment factor min ! tuning parameters @@ -2560,8 +2593,8 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & wghtns_5bd_dfs, & ! spectral weights for diffuse incident wghtns_5bd_drc ! spectral weights for direct incident - integer (kind=int_kind) :: & - nsky !sky = 1 (2) for direct (diffuse) downward SW incident +! integer (kind=int_kind) :: & +! nsky !sky = 1 (2) for direct (diffuse) downward SW incident real (kind=dbl_kind), parameter :: & ! solar zenith angle parameterizations sza_a0 = 0.085730_dbl_kind , & @@ -2584,6 +2617,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! assigned based on the 3 bands data after adjustment based on tuning parameter R_ice ! In the future, when 5-band sea ice IOPs are available, these data shall be updated ! and the sea ice layer IOPs shall be calculated based on updated 5band iops* +!echmod - the comment above says these are not needed but they are nevertheless used below ! ! The 5band data given in this section are based on CICE and SNICAR band choice: ! SNICAR band 1 = CICE band 1 @@ -3010,92 +3044,81 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & enddo ! k elseif (l_use_snicar .and. nspint == nspint_5bd) then ! SNICAR 5-band -! do nsky = 1,2 ! loop for both direct beam and diffuse beam -! if (nsky == 1) then ! direct incident - nsky = 1 ! for diagnostics + ! direct incident do k=0,nslyr ksnow = k - min(k-1,0) - if (rsnw(ksnow) <= rsnw_snicar_min) then + if (rsnw(ksnow) <= rsnw_snicar_min) then ! change to rsnw_snicar_tab(1) ks = ext_cff_mss_ice_drc(ns,1) - ws = ss_alb_ice_drc(ns,1) - gs = asm_prm_ice_drc(ns,1) - elseif (rsnw(ksnow) >= rsnw_snicar_max) then + ws = ss_alb_ice_drc (ns,1) + gs = asm_prm_ice_drc (ns,1) + elseif (rsnw(ksnow) >= rsnw_snicar_max) then ! change to rsnw_snicar_tab(nmbrad_snicar) ks = ext_cff_mss_ice_drc(ns,nmbrad_snicar) - ws = ss_alb_ice_drc(ns,nmbrad_snicar) - gs = asm_prm_ice_drc(ns,nmbrad_snicar) + ws = ss_alb_ice_drc (ns,nmbrad_snicar) + gs = asm_prm_ice_drc (ns,nmbrad_snicar) elseif (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then nr = ceiling(rsnw(ksnow)) - 30 + 1 ks = ext_cff_mss_ice_drc(ns,nr) - ws = ss_alb_ice_drc(ns,nr) - gs = asm_prm_ice_drc(ns,nr) + ws = ss_alb_ice_drc (ns,nr) + gs = asm_prm_ice_drc (ns,nr) else ! linear interpolation in rsnw ! radius = 30 --> nr = 1 in SNICAR table nr = ceiling(rsnw(ksnow)) - 30 + 1 delr = (rsnw(ksnow) - floor(rsnw(ksnow))) / & (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) - ks = ext_cff_mss_ice_drc(ns,nr-1)*(delr) + & - ext_cff_mss_ice_drc(ns,nr)*(c1-delr) - ws = ss_alb_ice_drc(ns,nr-1)*(delr) + & - ss_alb_ice_drc(ns,nr)*(c1-delr) - gs = asm_prm_ice_drc(ns,nr-1)*(delr) + & - asm_prm_ice_drc(ns,nr)*(c1-delr) + ks = ext_cff_mss_ice_drc(ns,nr-1)*( delr) & + + ext_cff_mss_ice_drc(ns,nr )*(c1-delr) + ws = ss_alb_ice_drc (ns,nr-1)*( delr) & + + ss_alb_ice_drc (ns,nr )*(c1-delr) + gs = asm_prm_ice_drc (ns,nr-1)*( delr) & + + asm_prm_ice_drc (ns,nr )*(c1-delr) endif - ! ks = Qs*((rhosnw(ksnow)/rhoi)*3._dbl_kind / & - ! (4._dbl_kind*rsnw(ksnow)*1.0e-6_dbl_kind)) tau(k) = (ks*rhosnw(ksnow) + kabs_chl(ns,k))*dzk(k) - !w0(k) = ks/(ks + kabs_chl(ns,k))*ws - w0(k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl(ns,k)) * ws - g(k) = gs + w0 (k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl(ns,k)) * ws + g (k) = gs - !write(warning, *) "sky, k, tau, w0, g =", nsky, k, tau(k), w0(k), g(k) + !write(warning, *) "rsnw(ksnow)", rsnw(ksnow) + !write(warning, *) "direct, k, tau, w0, g =", k, tau(k), w0(k), g(k) !write(warning, *) "ns, ks, kabs_chl(ns,k), ", ns, ks, kabs_chl(ns,k) !call add_warning(warning) - !print *, "rsnw(ksnow)", rsnw(ksnow) - !print *, "sky, k, tau, w0, g =", nsky, k, tau(k), w0(k), g(k) - !print *, "ns, ks, kabs_chl(ns,k), ",ns, ks, kabs_chl(ns,k) enddo ! k -! elseif (nsky == 2) then ! diffuse incident - nsky = 2 ! for diagnostics + ! diffuse incident do k=0,nslyr ! use top rsnw, rhosnw for snow ssl and rest of top layer ksnow = k - min(k-1,0) - if (rsnw(ksnow) < rsnw_snicar_min) then + if (rsnw(ksnow) <= rsnw_snicar_min) then ! change to rsnw_snicar_tab(1) ks = ext_cff_mss_ice_dfs(ns,1) - ws = ss_alb_ice_dfs(ns,1) - gs = asm_prm_ice_dfs(ns,1) - elseif (rsnw(ksnow) > rsnw_snicar_max) then + ws = ss_alb_ice_dfs (ns,1) + gs = asm_prm_ice_dfs (ns,1) + elseif (rsnw(ksnow) >= rsnw_snicar_max) then ! change to rsnw_snicar_tab(nmbrad_snicar) ks = ext_cff_mss_ice_dfs(ns,nmbrad_snicar) - ws = ss_alb_ice_dfs(ns,nmbrad_snicar) - gs = asm_prm_ice_dfs(ns,nmbrad_snicar) + ws = ss_alb_ice_dfs (ns,nmbrad_snicar) + gs = asm_prm_ice_dfs (ns,nmbrad_snicar) elseif (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then - nr = ceiling(rsnw(ksnow)) - 30 + 1 - ks = ext_cff_mss_ice_dfs(ns,nr) - ws = ss_alb_ice_dfs(ns,nr) - gs = asm_prm_ice_dfs(ns,nr) + nr = ceiling(rsnw(ksnow)) - 30 + 1 + ks = ext_cff_mss_ice_dfs(ns,nr) + ws = ss_alb_ice_dfs (ns,nr) + gs = asm_prm_ice_dfs (ns,nr) else ! linear interpolation in rsnw ! radius = 30 --> nr = 1 in SNICAR table - nr = ceiling(rsnw(ksnow)) - 30 + 1 + nr = ceiling(rsnw(ksnow)) - 30 + 1 delr = (rsnw(ksnow) - floor(rsnw(ksnow))) / & (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) - ks = ext_cff_mss_ice_dfs(ns,nr-1)*(c1-delr) + & - ext_cff_mss_ice_dfs(ns,nr)*delr - ws = ss_alb_ice_dfs(ns,nr-1)*(c1-delr) + & - ss_alb_ice_dfs(ns,nr)*delr - gs = asm_prm_ice_dfs(ns,nr-1)*(c1-delr) + & - asm_prm_ice_dfs(ns,nr)*delr + ks = ext_cff_mss_ice_dfs(ns,nr-1)*( delr) & + + ext_cff_mss_ice_dfs(ns,nr )*(c1-delr) + ws = ss_alb_ice_dfs (ns,nr-1)*( delr) & + + ss_alb_ice_dfs (ns,nr )*(c1-delr) + gs = asm_prm_ice_dfs (ns,nr-1)*( delr) & + + asm_prm_ice_dfs (ns,nr )*(c1-delr) endif - ! ks = Qs*((rhosnw(ksnow)/rhoi)*3._dbl_kind / & - ! (4._dbl_kind*rsnw(ksnow)*1.0e-6_dbl_kind)) tau(k) = (ks*rhosnw(ksnow) + kabs_chl(ns,k))*dzk(k) - !w0(k) = ks/(ks + kabs_chl(ns,k)) *ws - w0(k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl(ns,k)) * ws - g(k) = gs + w0 (k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl(ns,k)) * ws + g (k) = gs - !write(warning, *) "sky, k, tau, w0, g =", nsky, k, tau(k), w0(k), g(k) + !write(warning, *) "rsnw(ksnow)", rsnw(ksnow) + !write(warning, *) "diffuse, k, tau, w0, g =", k, tau(k), w0(k), g(k) !write(warning, *) "ns, ks, kabs_chl(ns,k), ", ns, ks, kabs_chl(ns,k) !call add_warning(warning) enddo ! k -! endif ! end if nsky for snow IOPs assignment endif ! nspint @@ -3104,10 +3127,10 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & do k = 0,nslyr gzaer(ns,k) = gzaer(ns,k)/(wzaer(ns,k)+puny) wzaer(ns,k) = wzaer(ns,k)/(tzaer(ns,k)+puny) - g(k) = (g(k)*w0(k)*tau(k) + gzaer(ns,k)*wzaer(ns,k)*tzaer(ns,k)) & - / (w0(k)*tau(k) + wzaer(ns,k)*tzaer(ns,k)) - w0(k) = (w0(k)*tau(k) + wzaer(ns,k)*tzaer(ns,k)) & - / (tau(k) + tzaer(ns,k)) + g (k) = (g (k)*w0(k)*tau(k) + gzaer(ns,k)*wzaer(ns,k)*tzaer(ns,k)) & + / (w0(k)*tau(k) + wzaer(ns,k)*tzaer(ns,k)) + w0 (k) = ( w0(k)*tau(k) + wzaer(ns,k)*tzaer(ns,k)) & + / ( tau(k) + tzaer(ns,k)) tau(k) = tau(k) + tzaer(ns,k) enddo elseif (tr_aero) then From a2bbd1d7f2099d28c2292243610583f87e0a7578 Mon Sep 17 00:00:00 2001 From: apcraig Date: Wed, 24 Aug 2022 16:07:42 -0600 Subject: [PATCH 10/64] Add data_dEdd_3band to icepack_init_radiation Add calls to icepack_init_radiation to icepack driver --- columnphysics/icepack_intfc.F90 | 1 + columnphysics/icepack_shortwave.F90 | 276 +++++++++++++----------- configuration/driver/icedrv_InitMod.F90 | 2 + 3 files changed, 153 insertions(+), 126 deletions(-) diff --git a/columnphysics/icepack_intfc.F90 b/columnphysics/icepack_intfc.F90 index 4344ad28f..d5d83ad2f 100644 --- a/columnphysics/icepack_intfc.F90 +++ b/columnphysics/icepack_intfc.F90 @@ -86,6 +86,7 @@ module icepack_intfc use icepack_snow, only: icepack_init_snow use icepack_snow, only: icepack_step_snow + use icepack_shortwave, only: icepack_init_radiation use icepack_shortwave, only: icepack_prep_radiation use icepack_shortwave, only: icepack_step_radiation diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index c6a120ba6..9e253c59b 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -101,6 +101,13 @@ module icepack_shortwave rsnw_snicar_max, & ! maximum snow radius - integer value used for indexing rsnw_snicar_min ! minimum snow radius - integer value used for indexing + ! Snow table data + integer (kind=int_kind) :: nmbrad ! number of snow grain radii in tables + real (kind=dbl_kind), dimension(:) , allocatable :: rsnw_tab ! snow grain radii (micro-meters) for table + real (kind=dbl_kind), dimension(:,:), allocatable :: Qs_tab ! snow extinction efficiency (unitless) + real (kind=dbl_kind), dimension(:,:), allocatable :: ws_tab ! snow single scattering albedo (unitless) + real (kind=dbl_kind), dimension(:,:), allocatable :: gs_tab ! snow asymmetry parameter (unitless) + !======================================================================= contains @@ -119,6 +126,12 @@ subroutine icepack_init_radiation character (len=*),parameter :: subname='(icepack_init_radiation)' + !----------------------------------------------------------------- + ! Snow table initialization + !----------------------------------------------------------------- + + call data_dEdd_3band() + !----------------------------------------------------------------- ! Snow single-scattering properties !----------------------------------------------------------------- @@ -922,6 +935,143 @@ subroutine absorbed_solar (nilyr, aicen, & end subroutine absorbed_solar ! End ccsm3 shortwave method +!======================================================================= + + subroutine data_dEdd_3band + + ! local variables + + integer (kind=int_kind) :: n + + character (len=*),parameter :: subname='(data_dEdd_3band)' + + nmbrad = 32 ! number of snow grain radii in tables + allocate(rsnw_tab(nmbrad)) + allocate(Qs_tab(nspint_3bd,nmbrad)) + allocate(ws_tab(nspint_3bd,nmbrad)) + allocate(gs_tab(nspint_3bd,nmbrad)) + + ! snow grain radii (micro-meters) for table + rsnw_tab = (/ & ! snow grain radius for each table entry (micro-meters) + 5._dbl_kind, 7._dbl_kind, 10._dbl_kind, 15._dbl_kind, & + 20._dbl_kind, 30._dbl_kind, 40._dbl_kind, 50._dbl_kind, & + 65._dbl_kind, 80._dbl_kind, 100._dbl_kind, 120._dbl_kind, & + 140._dbl_kind, 170._dbl_kind, 200._dbl_kind, 240._dbl_kind, & + 290._dbl_kind, 350._dbl_kind, 420._dbl_kind, 500._dbl_kind, & + 570._dbl_kind, 660._dbl_kind, 760._dbl_kind, 870._dbl_kind, & + 1000._dbl_kind, 1100._dbl_kind, 1250._dbl_kind, 1400._dbl_kind, & + 1600._dbl_kind, 1800._dbl_kind, 2000._dbl_kind, 2500._dbl_kind/) + + ! snow extinction efficiency (unitless) + Qs_tab = reshape((/ & + 2.131798_dbl_kind, 2.187756_dbl_kind, 2.267358_dbl_kind, & + 2.104499_dbl_kind, 2.148345_dbl_kind, 2.236078_dbl_kind, & + 2.081580_dbl_kind, 2.116885_dbl_kind, 2.175067_dbl_kind, & + 2.062595_dbl_kind, 2.088937_dbl_kind, 2.130242_dbl_kind, & + 2.051403_dbl_kind, 2.072422_dbl_kind, 2.106610_dbl_kind, & + 2.039223_dbl_kind, 2.055389_dbl_kind, 2.080586_dbl_kind, & + 2.032383_dbl_kind, 2.045751_dbl_kind, 2.066394_dbl_kind, & + 2.027920_dbl_kind, 2.039388_dbl_kind, 2.057224_dbl_kind, & + 2.023444_dbl_kind, 2.033137_dbl_kind, 2.048055_dbl_kind, & + 2.020412_dbl_kind, 2.028840_dbl_kind, 2.041874_dbl_kind, & + 2.017608_dbl_kind, 2.024863_dbl_kind, 2.036046_dbl_kind, & + 2.015592_dbl_kind, 2.022021_dbl_kind, 2.031954_dbl_kind, & + 2.014083_dbl_kind, 2.019887_dbl_kind, 2.028853_dbl_kind, & + 2.012368_dbl_kind, 2.017471_dbl_kind, 2.025353_dbl_kind, & + 2.011092_dbl_kind, 2.015675_dbl_kind, 2.022759_dbl_kind, & + 2.009837_dbl_kind, 2.013897_dbl_kind, 2.020168_dbl_kind, & + 2.008668_dbl_kind, 2.012252_dbl_kind, 2.017781_dbl_kind, & + 2.007627_dbl_kind, 2.010813_dbl_kind, 2.015678_dbl_kind, & + 2.006764_dbl_kind, 2.009577_dbl_kind, 2.013880_dbl_kind, & + 2.006037_dbl_kind, 2.008520_dbl_kind, 2.012382_dbl_kind, & + 2.005528_dbl_kind, 2.007807_dbl_kind, 2.011307_dbl_kind, & + 2.005025_dbl_kind, 2.007079_dbl_kind, 2.010280_dbl_kind, & + 2.004562_dbl_kind, 2.006440_dbl_kind, 2.009333_dbl_kind, & + 2.004155_dbl_kind, 2.005898_dbl_kind, 2.008523_dbl_kind, & + 2.003794_dbl_kind, 2.005379_dbl_kind, 2.007795_dbl_kind, & + 2.003555_dbl_kind, 2.005041_dbl_kind, 2.007329_dbl_kind, & + 2.003264_dbl_kind, 2.004624_dbl_kind, 2.006729_dbl_kind, & + 2.003037_dbl_kind, 2.004291_dbl_kind, 2.006230_dbl_kind, & + 2.002776_dbl_kind, 2.003929_dbl_kind, 2.005700_dbl_kind, & + 2.002590_dbl_kind, 2.003627_dbl_kind, 2.005276_dbl_kind, & + 2.002395_dbl_kind, 2.003391_dbl_kind, 2.004904_dbl_kind, & + 2.002071_dbl_kind, 2.002922_dbl_kind, 2.004241_dbl_kind/), & + (/nspint_3bd,nmbrad/)) + + ! snow single scattering albedo (unitless) + ws_tab = reshape((/ & + 0.9999994_dbl_kind, 0.9999673_dbl_kind, 0.9954589_dbl_kind, & + 0.9999992_dbl_kind, 0.9999547_dbl_kind, 0.9938576_dbl_kind, & + 0.9999990_dbl_kind, 0.9999382_dbl_kind, 0.9917989_dbl_kind, & + 0.9999985_dbl_kind, 0.9999123_dbl_kind, 0.9889724_dbl_kind, & + 0.9999979_dbl_kind, 0.9998844_dbl_kind, 0.9866190_dbl_kind, & + 0.9999970_dbl_kind, 0.9998317_dbl_kind, 0.9823021_dbl_kind, & + 0.9999960_dbl_kind, 0.9997800_dbl_kind, 0.9785269_dbl_kind, & + 0.9999951_dbl_kind, 0.9997288_dbl_kind, 0.9751601_dbl_kind, & + 0.9999936_dbl_kind, 0.9996531_dbl_kind, 0.9706974_dbl_kind, & + 0.9999922_dbl_kind, 0.9995783_dbl_kind, 0.9667577_dbl_kind, & + 0.9999903_dbl_kind, 0.9994798_dbl_kind, 0.9621007_dbl_kind, & + 0.9999885_dbl_kind, 0.9993825_dbl_kind, 0.9579541_dbl_kind, & + 0.9999866_dbl_kind, 0.9992862_dbl_kind, 0.9541924_dbl_kind, & + 0.9999838_dbl_kind, 0.9991434_dbl_kind, 0.9490959_dbl_kind, & + 0.9999810_dbl_kind, 0.9990025_dbl_kind, 0.9444940_dbl_kind, & + 0.9999772_dbl_kind, 0.9988171_dbl_kind, 0.9389141_dbl_kind, & + 0.9999726_dbl_kind, 0.9985890_dbl_kind, 0.9325819_dbl_kind, & + 0.9999670_dbl_kind, 0.9983199_dbl_kind, 0.9256405_dbl_kind, & + 0.9999605_dbl_kind, 0.9980117_dbl_kind, 0.9181533_dbl_kind, & + 0.9999530_dbl_kind, 0.9976663_dbl_kind, 0.9101540_dbl_kind, & + 0.9999465_dbl_kind, 0.9973693_dbl_kind, 0.9035031_dbl_kind, & + 0.9999382_dbl_kind, 0.9969939_dbl_kind, 0.8953134_dbl_kind, & + 0.9999289_dbl_kind, 0.9965848_dbl_kind, 0.8865789_dbl_kind, & + 0.9999188_dbl_kind, 0.9961434_dbl_kind, 0.8773350_dbl_kind, & + 0.9999068_dbl_kind, 0.9956323_dbl_kind, 0.8668233_dbl_kind, & + 0.9998975_dbl_kind, 0.9952464_dbl_kind, 0.8589990_dbl_kind, & + 0.9998837_dbl_kind, 0.9946782_dbl_kind, 0.8476493_dbl_kind, & + 0.9998699_dbl_kind, 0.9941218_dbl_kind, 0.8367318_dbl_kind, & + 0.9998515_dbl_kind, 0.9933966_dbl_kind, 0.8227881_dbl_kind, & + 0.9998332_dbl_kind, 0.9926888_dbl_kind, 0.8095131_dbl_kind, & + 0.9998148_dbl_kind, 0.9919968_dbl_kind, 0.7968620_dbl_kind, & + 0.9997691_dbl_kind, 0.9903277_dbl_kind, 0.7677887_dbl_kind/), & + (/nspint_3bd,nmbrad/)) + + ! snow asymmetry parameter (unitless) + gs_tab = reshape((/ & + 0.859913_dbl_kind, 0.848003_dbl_kind, 0.824415_dbl_kind, & + 0.867130_dbl_kind, 0.858150_dbl_kind, 0.848445_dbl_kind, & + 0.873381_dbl_kind, 0.867221_dbl_kind, 0.861714_dbl_kind, & + 0.878368_dbl_kind, 0.874879_dbl_kind, 0.874036_dbl_kind, & + 0.881462_dbl_kind, 0.879661_dbl_kind, 0.881299_dbl_kind, & + 0.884361_dbl_kind, 0.883903_dbl_kind, 0.890184_dbl_kind, & + 0.885937_dbl_kind, 0.886256_dbl_kind, 0.895393_dbl_kind, & + 0.886931_dbl_kind, 0.887769_dbl_kind, 0.899072_dbl_kind, & + 0.887894_dbl_kind, 0.889255_dbl_kind, 0.903285_dbl_kind, & + 0.888515_dbl_kind, 0.890236_dbl_kind, 0.906588_dbl_kind, & + 0.889073_dbl_kind, 0.891127_dbl_kind, 0.910152_dbl_kind, & + 0.889452_dbl_kind, 0.891750_dbl_kind, 0.913100_dbl_kind, & + 0.889730_dbl_kind, 0.892213_dbl_kind, 0.915621_dbl_kind, & + 0.890026_dbl_kind, 0.892723_dbl_kind, 0.918831_dbl_kind, & + 0.890238_dbl_kind, 0.893099_dbl_kind, 0.921540_dbl_kind, & + 0.890441_dbl_kind, 0.893474_dbl_kind, 0.924581_dbl_kind, & + 0.890618_dbl_kind, 0.893816_dbl_kind, 0.927701_dbl_kind, & + 0.890762_dbl_kind, 0.894123_dbl_kind, 0.930737_dbl_kind, & + 0.890881_dbl_kind, 0.894397_dbl_kind, 0.933568_dbl_kind, & + 0.890975_dbl_kind, 0.894645_dbl_kind, 0.936148_dbl_kind, & + 0.891035_dbl_kind, 0.894822_dbl_kind, 0.937989_dbl_kind, & + 0.891097_dbl_kind, 0.895020_dbl_kind, 0.939949_dbl_kind, & + 0.891147_dbl_kind, 0.895212_dbl_kind, 0.941727_dbl_kind, & + 0.891189_dbl_kind, 0.895399_dbl_kind, 0.943339_dbl_kind, & + 0.891225_dbl_kind, 0.895601_dbl_kind, 0.944915_dbl_kind, & + 0.891248_dbl_kind, 0.895745_dbl_kind, 0.945950_dbl_kind, & + 0.891277_dbl_kind, 0.895951_dbl_kind, 0.947288_dbl_kind, & + 0.891299_dbl_kind, 0.896142_dbl_kind, 0.948438_dbl_kind, & + 0.891323_dbl_kind, 0.896388_dbl_kind, 0.949762_dbl_kind, & + 0.891340_dbl_kind, 0.896623_dbl_kind, 0.950916_dbl_kind, & + 0.891356_dbl_kind, 0.896851_dbl_kind, 0.951945_dbl_kind, & + 0.891386_dbl_kind, 0.897399_dbl_kind, 0.954156_dbl_kind/), & + (/nspint_3bd,nmbrad/)) + + end subroutine data_dEdd_3band + !======================================================================= ! Begin Delta-Eddington shortwave method @@ -2243,9 +2393,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ksnow , & ! level index for snow density and grain size kii ! level starting index for sea ice (nslyr+1) - integer (kind=int_kind), parameter :: & - nmbrad = 32 ! number of snow grain radii in tables - real (kind=dbl_kind) :: & avdr , & ! visible albedo, direct (fraction) avdf , & ! visible albedo, diffuse (fraction) @@ -2390,129 +2537,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & real(kind=dbl_kind):: & tmp_gs, tmp1 ! temp variables - ! snow grain radii (micro-meters) for table - real (kind=dbl_kind), dimension(nmbrad), parameter :: & - rsnw_tab = (/ & ! snow grain radius for each table entry (micro-meters) - 5._dbl_kind, 7._dbl_kind, 10._dbl_kind, 15._dbl_kind, & - 20._dbl_kind, 30._dbl_kind, 40._dbl_kind, 50._dbl_kind, & - 65._dbl_kind, 80._dbl_kind, 100._dbl_kind, 120._dbl_kind, & - 140._dbl_kind, 170._dbl_kind, 200._dbl_kind, 240._dbl_kind, & - 290._dbl_kind, 350._dbl_kind, 420._dbl_kind, 500._dbl_kind, & - 570._dbl_kind, 660._dbl_kind, 760._dbl_kind, 870._dbl_kind, & - 1000._dbl_kind, 1100._dbl_kind, 1250._dbl_kind, 1400._dbl_kind, & - 1600._dbl_kind, 1800._dbl_kind, 2000._dbl_kind, 2500._dbl_kind/) - - ! snow extinction efficiency (unitless) - real (kind=dbl_kind), dimension (nspint_3bd,nmbrad), parameter :: & - Qs_tab = reshape((/ & - 2.131798_dbl_kind, 2.187756_dbl_kind, 2.267358_dbl_kind, & - 2.104499_dbl_kind, 2.148345_dbl_kind, 2.236078_dbl_kind, & - 2.081580_dbl_kind, 2.116885_dbl_kind, 2.175067_dbl_kind, & - 2.062595_dbl_kind, 2.088937_dbl_kind, 2.130242_dbl_kind, & - 2.051403_dbl_kind, 2.072422_dbl_kind, 2.106610_dbl_kind, & - 2.039223_dbl_kind, 2.055389_dbl_kind, 2.080586_dbl_kind, & - 2.032383_dbl_kind, 2.045751_dbl_kind, 2.066394_dbl_kind, & - 2.027920_dbl_kind, 2.039388_dbl_kind, 2.057224_dbl_kind, & - 2.023444_dbl_kind, 2.033137_dbl_kind, 2.048055_dbl_kind, & - 2.020412_dbl_kind, 2.028840_dbl_kind, 2.041874_dbl_kind, & - 2.017608_dbl_kind, 2.024863_dbl_kind, 2.036046_dbl_kind, & - 2.015592_dbl_kind, 2.022021_dbl_kind, 2.031954_dbl_kind, & - 2.014083_dbl_kind, 2.019887_dbl_kind, 2.028853_dbl_kind, & - 2.012368_dbl_kind, 2.017471_dbl_kind, 2.025353_dbl_kind, & - 2.011092_dbl_kind, 2.015675_dbl_kind, 2.022759_dbl_kind, & - 2.009837_dbl_kind, 2.013897_dbl_kind, 2.020168_dbl_kind, & - 2.008668_dbl_kind, 2.012252_dbl_kind, 2.017781_dbl_kind, & - 2.007627_dbl_kind, 2.010813_dbl_kind, 2.015678_dbl_kind, & - 2.006764_dbl_kind, 2.009577_dbl_kind, 2.013880_dbl_kind, & - 2.006037_dbl_kind, 2.008520_dbl_kind, 2.012382_dbl_kind, & - 2.005528_dbl_kind, 2.007807_dbl_kind, 2.011307_dbl_kind, & - 2.005025_dbl_kind, 2.007079_dbl_kind, 2.010280_dbl_kind, & - 2.004562_dbl_kind, 2.006440_dbl_kind, 2.009333_dbl_kind, & - 2.004155_dbl_kind, 2.005898_dbl_kind, 2.008523_dbl_kind, & - 2.003794_dbl_kind, 2.005379_dbl_kind, 2.007795_dbl_kind, & - 2.003555_dbl_kind, 2.005041_dbl_kind, 2.007329_dbl_kind, & - 2.003264_dbl_kind, 2.004624_dbl_kind, 2.006729_dbl_kind, & - 2.003037_dbl_kind, 2.004291_dbl_kind, 2.006230_dbl_kind, & - 2.002776_dbl_kind, 2.003929_dbl_kind, 2.005700_dbl_kind, & - 2.002590_dbl_kind, 2.003627_dbl_kind, 2.005276_dbl_kind, & - 2.002395_dbl_kind, 2.003391_dbl_kind, 2.004904_dbl_kind, & - 2.002071_dbl_kind, 2.002922_dbl_kind, 2.004241_dbl_kind/), & - (/nspint_3bd,nmbrad/)) - - ! snow single scattering albedo (unitless) - real (kind=dbl_kind), dimension (nspint_3bd,nmbrad), parameter :: & - ws_tab = reshape((/ & - 0.9999994_dbl_kind, 0.9999673_dbl_kind, 0.9954589_dbl_kind, & - 0.9999992_dbl_kind, 0.9999547_dbl_kind, 0.9938576_dbl_kind, & - 0.9999990_dbl_kind, 0.9999382_dbl_kind, 0.9917989_dbl_kind, & - 0.9999985_dbl_kind, 0.9999123_dbl_kind, 0.9889724_dbl_kind, & - 0.9999979_dbl_kind, 0.9998844_dbl_kind, 0.9866190_dbl_kind, & - 0.9999970_dbl_kind, 0.9998317_dbl_kind, 0.9823021_dbl_kind, & - 0.9999960_dbl_kind, 0.9997800_dbl_kind, 0.9785269_dbl_kind, & - 0.9999951_dbl_kind, 0.9997288_dbl_kind, 0.9751601_dbl_kind, & - 0.9999936_dbl_kind, 0.9996531_dbl_kind, 0.9706974_dbl_kind, & - 0.9999922_dbl_kind, 0.9995783_dbl_kind, 0.9667577_dbl_kind, & - 0.9999903_dbl_kind, 0.9994798_dbl_kind, 0.9621007_dbl_kind, & - 0.9999885_dbl_kind, 0.9993825_dbl_kind, 0.9579541_dbl_kind, & - 0.9999866_dbl_kind, 0.9992862_dbl_kind, 0.9541924_dbl_kind, & - 0.9999838_dbl_kind, 0.9991434_dbl_kind, 0.9490959_dbl_kind, & - 0.9999810_dbl_kind, 0.9990025_dbl_kind, 0.9444940_dbl_kind, & - 0.9999772_dbl_kind, 0.9988171_dbl_kind, 0.9389141_dbl_kind, & - 0.9999726_dbl_kind, 0.9985890_dbl_kind, 0.9325819_dbl_kind, & - 0.9999670_dbl_kind, 0.9983199_dbl_kind, 0.9256405_dbl_kind, & - 0.9999605_dbl_kind, 0.9980117_dbl_kind, 0.9181533_dbl_kind, & - 0.9999530_dbl_kind, 0.9976663_dbl_kind, 0.9101540_dbl_kind, & - 0.9999465_dbl_kind, 0.9973693_dbl_kind, 0.9035031_dbl_kind, & - 0.9999382_dbl_kind, 0.9969939_dbl_kind, 0.8953134_dbl_kind, & - 0.9999289_dbl_kind, 0.9965848_dbl_kind, 0.8865789_dbl_kind, & - 0.9999188_dbl_kind, 0.9961434_dbl_kind, 0.8773350_dbl_kind, & - 0.9999068_dbl_kind, 0.9956323_dbl_kind, 0.8668233_dbl_kind, & - 0.9998975_dbl_kind, 0.9952464_dbl_kind, 0.8589990_dbl_kind, & - 0.9998837_dbl_kind, 0.9946782_dbl_kind, 0.8476493_dbl_kind, & - 0.9998699_dbl_kind, 0.9941218_dbl_kind, 0.8367318_dbl_kind, & - 0.9998515_dbl_kind, 0.9933966_dbl_kind, 0.8227881_dbl_kind, & - 0.9998332_dbl_kind, 0.9926888_dbl_kind, 0.8095131_dbl_kind, & - 0.9998148_dbl_kind, 0.9919968_dbl_kind, 0.7968620_dbl_kind, & - 0.9997691_dbl_kind, 0.9903277_dbl_kind, 0.7677887_dbl_kind/), & - (/nspint_3bd,nmbrad/)) - - ! snow asymmetry parameter (unitless) - real (kind=dbl_kind), dimension (nspint_3bd,nmbrad), parameter :: & - gs_tab = reshape((/ & - 0.859913_dbl_kind, 0.848003_dbl_kind, 0.824415_dbl_kind, & - 0.867130_dbl_kind, 0.858150_dbl_kind, 0.848445_dbl_kind, & - 0.873381_dbl_kind, 0.867221_dbl_kind, 0.861714_dbl_kind, & - 0.878368_dbl_kind, 0.874879_dbl_kind, 0.874036_dbl_kind, & - 0.881462_dbl_kind, 0.879661_dbl_kind, 0.881299_dbl_kind, & - 0.884361_dbl_kind, 0.883903_dbl_kind, 0.890184_dbl_kind, & - 0.885937_dbl_kind, 0.886256_dbl_kind, 0.895393_dbl_kind, & - 0.886931_dbl_kind, 0.887769_dbl_kind, 0.899072_dbl_kind, & - 0.887894_dbl_kind, 0.889255_dbl_kind, 0.903285_dbl_kind, & - 0.888515_dbl_kind, 0.890236_dbl_kind, 0.906588_dbl_kind, & - 0.889073_dbl_kind, 0.891127_dbl_kind, 0.910152_dbl_kind, & - 0.889452_dbl_kind, 0.891750_dbl_kind, 0.913100_dbl_kind, & - 0.889730_dbl_kind, 0.892213_dbl_kind, 0.915621_dbl_kind, & - 0.890026_dbl_kind, 0.892723_dbl_kind, 0.918831_dbl_kind, & - 0.890238_dbl_kind, 0.893099_dbl_kind, 0.921540_dbl_kind, & - 0.890441_dbl_kind, 0.893474_dbl_kind, 0.924581_dbl_kind, & - 0.890618_dbl_kind, 0.893816_dbl_kind, 0.927701_dbl_kind, & - 0.890762_dbl_kind, 0.894123_dbl_kind, 0.930737_dbl_kind, & - 0.890881_dbl_kind, 0.894397_dbl_kind, 0.933568_dbl_kind, & - 0.890975_dbl_kind, 0.894645_dbl_kind, 0.936148_dbl_kind, & - 0.891035_dbl_kind, 0.894822_dbl_kind, 0.937989_dbl_kind, & - 0.891097_dbl_kind, 0.895020_dbl_kind, 0.939949_dbl_kind, & - 0.891147_dbl_kind, 0.895212_dbl_kind, 0.941727_dbl_kind, & - 0.891189_dbl_kind, 0.895399_dbl_kind, 0.943339_dbl_kind, & - 0.891225_dbl_kind, 0.895601_dbl_kind, 0.944915_dbl_kind, & - 0.891248_dbl_kind, 0.895745_dbl_kind, 0.945950_dbl_kind, & - 0.891277_dbl_kind, 0.895951_dbl_kind, 0.947288_dbl_kind, & - 0.891299_dbl_kind, 0.896142_dbl_kind, 0.948438_dbl_kind, & - 0.891323_dbl_kind, 0.896388_dbl_kind, 0.949762_dbl_kind, & - 0.891340_dbl_kind, 0.896623_dbl_kind, 0.950916_dbl_kind, & - 0.891356_dbl_kind, 0.896851_dbl_kind, 0.951945_dbl_kind, & - 0.891386_dbl_kind, 0.897399_dbl_kind, 0.954156_dbl_kind/), & - (/nspint_3bd,nmbrad/)) - ! inherent optical property (iop) arrays for ice and ponded ice ! mn = specified mean (or base) value ! ki = extinction coefficient (/m) diff --git a/configuration/driver/icedrv_InitMod.F90 b/configuration/driver/icedrv_InitMod.F90 index 52d2a7f66..da0207b17 100644 --- a/configuration/driver/icedrv_InitMod.F90 +++ b/configuration/driver/icedrv_InitMod.F90 @@ -38,6 +38,7 @@ subroutine icedrv_initialize use icepack_intfc, only: icepack_init_itd, icepack_init_itd_hist use icepack_intfc, only: icepack_init_fsd_bounds use icepack_intfc, only: icepack_init_snow + use icepack_intfc, only: icepack_init_radiation use icepack_intfc, only: icepack_warnings_flush use icedrv_domain_size, only: ncat, nfsd ! use icedrv_diagnostics, only: icedrv_diagnostics_debug @@ -143,6 +144,7 @@ subroutine icedrv_initialize if (tr_fsd .and. wave_spec) call get_wave_spec ! wave spectrum in ice call get_forcing(istep1) ! get forcing from data arrays + call icepack_init_radiation() ! radiation data if (tr_snow) call icepack_init_snow ! snow aging table if (tr_iso) call fiso_default ! default values ! aerosols From d2ea5ed8f9422984f9c4b6d45a11a9e029b3c13f Mon Sep 17 00:00:00 2001 From: apcraig Date: Wed, 24 Aug 2022 17:16:23 -0600 Subject: [PATCH 11/64] Add ability to set SNICAR SSP data via icepack_parameters Add some SNICAR SSP table checks, aborts, etc --- columnphysics/icepack_parameters.F90 | 120 ++++++++++++++++++++++-- columnphysics/icepack_shortwave.F90 | 88 +++++++++-------- configuration/driver/icedrv_InitMod.F90 | 14 ++- 3 files changed, 171 insertions(+), 51 deletions(-) diff --git a/columnphysics/icepack_parameters.F90 b/columnphysics/icepack_parameters.F90 index cd63ba78f..36664914d 100644 --- a/columnphysics/icepack_parameters.F90 +++ b/columnphysics/icepack_parameters.F90 @@ -237,9 +237,6 @@ module icepack_parameters character (len=char_len), public :: & snw_ssp_table = 'test' ! lookup table: 'snicar' or 'test' or 'file' - integer (kind=int_kind), public :: & - nsnw_radius ! maximum snow radius index - real (kind=dbl_kind), allocatable, public :: & ssp_snwextdr(:,:), & ! snow mass extinction cross section (m2/kg), direct ssp_snwextdf(:,:), & ! snow mass extinction cross section (m2/kg), diffuse @@ -506,7 +503,10 @@ subroutine icepack_init_parameters( & snwlvlfac_in, isnw_T_in, isnw_Tgrd_in, isnw_rhos_in, & snowage_rhos_in, snowage_Tgrd_in, snowage_T_in, & snowage_tau_in, snowage_kappa_in, snowage_drdt0_in, & - snw_aging_table_in) + snw_aging_table_in, snw_ssp_table_in, & + ssp_snwextdr_in, ssp_snwextdf_in, & + ssp_snwalbdr_in, ssp_snwalbdf_in, & + ssp_sasymmdr_in, ssp_sasymmdf_in ) !----------------------------------------------------------------- ! control settings @@ -860,8 +860,25 @@ subroutine icepack_init_parameters( & snowage_kappa_in, &! snowage_drdt0_in ! (10^-6 m/hr) + ! Parameters for dEdd_snicar + character (len=char_len), intent(in), optional :: & + snw_ssp_table_in ! lookup table: 'snicar' or 'test' or 'file' + + real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & + ssp_snwextdr_in, & ! snow mass extinction cross section (m2/kg), direct + ssp_snwextdf_in, & ! snow mass extinction cross section (m2/kg), diffuse + ssp_snwalbdr_in, & ! snow single scatter albedo (fraction), direct + ssp_snwalbdf_in, & ! snow single scatter albedo (fraction), diffuse + ssp_sasymmdr_in, & ! snow asymmetry factor (cos(theta)), direct + ssp_sasymmdf_in ! snow asymmetry factor (cos(theta)), diffuse + !autodocument_end + ! local data + + integer (kind=int_kind) :: & + dim1, dim2 ! array dimension sizes + character(len=*),parameter :: subname='(icepack_init_parameters)' if (present(argcheck_in) ) argcheck = argcheck_in @@ -997,6 +1014,10 @@ subroutine icepack_init_parameters( & if (present(windmin_in) ) windmin = windmin_in if (present(drhosdwind_in) ) drhosdwind = drhosdwind_in if (present(snwlvlfac_in) ) snwlvlfac = snwlvlfac_in + + !------------------- + ! SNOW table + !------------------- if (present(isnw_T_in) ) isnw_T = isnw_T_in if (present(isnw_Tgrd_in) ) isnw_Tgrd = isnw_Tgrd_in if (present(isnw_rhos_in) ) isnw_rhos = isnw_rhos_in @@ -1018,7 +1039,6 @@ subroutine icepack_init_parameters( & endif endif - ! check array sizes and re/allocate if necessary if (present(snowage_Tgrd_in) ) then if (size(snowage_Tgrd_in) /= isnw_Tgrd) then call icepack_warnings_add(subname//' incorrect size of snowage_Tgrd_in') @@ -1035,7 +1055,6 @@ subroutine icepack_init_parameters( & endif endif - ! check array sizes and re/allocate if necessary if (present(snowage_T_in) ) then if (size(snowage_T_in) /= isnw_T) then call icepack_warnings_add(subname//' incorrect size of snowage_T_in') @@ -1052,7 +1071,6 @@ subroutine icepack_init_parameters( & endif endif - ! check array sizes and re/allocate if necessary if (present(snowage_tau_in) ) then if (size(snowage_tau_in) /= isnw_T*isnw_Tgrd*isnw_rhos) then call icepack_warnings_add(subname//' incorrect size of snowage_tau_in') @@ -1069,7 +1087,6 @@ subroutine icepack_init_parameters( & endif endif - ! check array sizes and re/allocate if necessary if (present(snowage_kappa_in) ) then if (size(snowage_kappa_in) /= isnw_T*isnw_Tgrd*isnw_rhos) then call icepack_warnings_add(subname//' incorrect size of snowage_kappa_in') @@ -1086,7 +1103,6 @@ subroutine icepack_init_parameters( & endif endif - ! check array sizes and re/allocate if necessary if (present(snowage_drdt0_in) ) then if (size(snowage_drdt0_in) /= isnw_T*isnw_Tgrd*isnw_rhos) then call icepack_warnings_add(subname//' incorrect size of snowage_drdt0_in') @@ -1103,6 +1119,60 @@ subroutine icepack_init_parameters( & endif endif + !------------------- + ! SNICAR SSP table + !------------------- + if (present(snw_ssp_table_in) ) snw_ssp_table = snw_ssp_table_in + + ! allocate and copy SNICAR SSP table data + if (present(ssp_snwextdr_in) ) then + if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) + dim1 = size(ssp_snwextdr_in,dim=1) + dim2 = size(ssp_snwextdr_in,dim=2) + allocate(ssp_snwextdr(dim1,dim2)) + ssp_snwextdr = ssp_snwextdr_in + endif + + if (present(ssp_snwextdf_in) ) then + if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) + dim1 = size(ssp_snwextdf_in,dim=1) + dim2 = size(ssp_snwextdf_in,dim=2) + allocate(ssp_snwextdf(dim1,dim2)) + ssp_snwextdf = ssp_snwextdf_in + endif + + if (present(ssp_snwalbdr_in) ) then + if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) + dim1 = size(ssp_snwalbdr_in,dim=1) + dim2 = size(ssp_snwalbdr_in,dim=2) + allocate(ssp_snwalbdr(dim1,dim2)) + ssp_snwalbdr = ssp_snwalbdr_in + endif + + if (present(ssp_snwalbdf_in) ) then + if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) + dim1 = size(ssp_snwalbdf_in,dim=1) + dim2 = size(ssp_snwalbdf_in,dim=2) + allocate(ssp_snwalbdf(dim1,dim2)) + ssp_snwalbdf = ssp_snwalbdf_in + endif + + if (present(ssp_sasymmdr_in) ) then + if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) + dim1 = size(ssp_sasymmdr_in,dim=1) + dim2 = size(ssp_sasymmdr_in,dim=2) + allocate(ssp_sasymmdr(dim1,dim2)) + ssp_sasymmdr = ssp_sasymmdr_in + endif + + if (present(ssp_sasymmdf_in) ) then + if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) + dim1 = size(ssp_sasymmdf_in,dim=1) + dim2 = size(ssp_sasymmdf_in,dim=2) + allocate(ssp_sasymmdf(dim1,dim2)) + ssp_sasymmdf = ssp_sasymmdf_in + endif + if (present(bgc_flux_type_in) ) bgc_flux_type = bgc_flux_type_in if (present(z_tracers_in) ) z_tracers = z_tracers_in if (present(scale_bgc_in) ) scale_bgc = scale_bgc_in @@ -1215,7 +1285,10 @@ subroutine icepack_query_parameters( & snwlvlfac_out, isnw_T_out, isnw_Tgrd_out, isnw_rhos_out, & snowage_rhos_out, snowage_Tgrd_out, snowage_T_out, & snowage_tau_out, snowage_kappa_out, snowage_drdt0_out, & - snw_aging_table_out) + snw_aging_table_out, snw_ssp_table_out, & + ssp_snwextdr_out, ssp_snwextdf_out, & + ssp_snwalbdr_out, ssp_snwalbdf_out, & + ssp_sasymmdr_out, ssp_sasymmdf_out ) !----------------------------------------------------------------- ! control settings @@ -1577,6 +1650,19 @@ subroutine icepack_query_parameters( & snowage_tau_out, & ! (10^-6 m) snowage_kappa_out, &! snowage_drdt0_out ! (10^-6 m/hr) + + ! Parameters for dEdd_snicar + character (len=char_len), intent(out), optional :: & + snw_ssp_table_out ! lookup table: 'snicar' or 'test' or 'file' + + real (kind=dbl_kind), dimension(:,:), intent(out), optional :: & + ssp_snwextdr_out, & ! snow mass extinction cross section (m2/kg), direct + ssp_snwextdf_out, & ! snow mass extinction cross section (m2/kg), diffuse + ssp_snwalbdr_out, & ! snow single scatter albedo (fraction), direct + ssp_snwalbdf_out, & ! snow single scatter albedo (fraction), diffuse + ssp_sasymmdr_out, & ! snow asymmetry factor (cos(theta)), direct + ssp_sasymmdf_out ! snow asymmetry factor (cos(theta)), diffuse + !autodocument_end character(len=*),parameter :: subname='(icepack_query_parameters)' @@ -1760,6 +1846,13 @@ subroutine icepack_query_parameters( & if (present(snowage_tau_out) ) snowage_tau_out = snowage_tau if (present(snowage_kappa_out) ) snowage_kappa_out= snowage_kappa if (present(snowage_drdt0_out) ) snowage_drdt0_out= snowage_drdt0 + if (present(snw_ssp_table_out) ) snw_ssp_table_out= snw_ssp_table + if (present(ssp_snwextdr_out) ) ssp_snwextdr_out = ssp_snwextdr + if (present(ssp_snwextdf_out) ) ssp_snwextdf_out = ssp_snwextdf + if (present(ssp_snwalbdr_out) ) ssp_snwalbdr_out = ssp_snwalbdr + if (present(ssp_snwalbdf_out) ) ssp_snwalbdf_out = ssp_snwalbdf + if (present(ssp_sasymmdr_out) ) ssp_sasymmdr_out = ssp_sasymmdr + if (present(ssp_sasymmdf_out) ) ssp_sasymmdf_out = ssp_sasymmdf if (present(bgc_flux_type_out) ) bgc_flux_type_out= bgc_flux_type if (present(z_tracers_out) ) z_tracers_out = z_tracers if (present(scale_bgc_out) ) scale_bgc_out = scale_bgc @@ -1970,6 +2063,13 @@ subroutine icepack_write_parameters(iounit) write(iounit,*) " snowage_tau = ", snowage_tau(1,1,1) write(iounit,*) " snowage_kappa = ", snowage_kappa(1,1,1) write(iounit,*) " snowage_drdt0 = ", snowage_drdt0(1,1,1) + write(iounit,*) " snw_ssp_table = ", trim(snw_ssp_table) + write(iounit,*) " ssp_snwextdr = ", ssp_snwextdr(1,1) + write(iounit,*) " ssp_snwextdf = ", ssp_snwextdf(1,1) + write(iounit,*) " ssp_snwalbdr = ", ssp_snwalbdr(1,1) + write(iounit,*) " ssp_snwalbdf = ", ssp_snwalbdf(1,1) + write(iounit,*) " ssp_sasymmdr = ", ssp_sasymmdr(1,1) + write(iounit,*) " ssp_sasymmdf = ", ssp_sasymmdf(1,1) write(iounit,*) " bgc_flux_type = ", bgc_flux_type write(iounit,*) " z_tracers = ", z_tracers write(iounit,*) " scale_bgc = ", scale_bgc diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 9e253c59b..f00e9ae55 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -56,7 +56,7 @@ module icepack_shortwave use icepack_parameters, only: pndaspect, albedo_type, albicev, albicei, albsnowv, albsnowi, ahmax use icepack_parameters, only: ssp_snwextdr, ssp_snwalbdr, ssp_sasymmdr use icepack_parameters, only: ssp_snwextdf, ssp_snwalbdf, ssp_sasymmdf - use icepack_parameters, only: snw_ssp_table, nsnw_radius + use icepack_parameters, only: snw_ssp_table use icepack_tracers, only: ntrcr, nbtrcr_sw #ifdef UNDEPRECATE_CESMPONDS @@ -92,22 +92,24 @@ module icepack_shortwave real (kind=dbl_kind), parameter :: & exp_argmax = c10 ! maximum argument of exponential + !echmod - temporary module data - change names later to icepack parameters - fix! integer (kind=int_kind), dimension(:), allocatable :: & rsnw_snicar_tab ! vector of snow grain radii values assumed in SNICAR snow iops table - - integer (kind=int_kind) :: & nmbrad_snicar , & ! number of snow grain radii in SNICAR snow iops table - rsnw_snicar_max, & ! maximum snow radius - integer value used for indexing - rsnw_snicar_min ! minimum snow radius - integer value used for indexing ! Snow table data - integer (kind=int_kind) :: nmbrad ! number of snow grain radii in tables + integer (kind=int_kind) :: nmbrad_snicar ! number of snow grain radii in tables + integer (kind=int_kind) :: rsnw_snicar_max ! maximum snow radius - integer value used for indexing + integer (kind=int_kind) :: rsnw_snicar_min ! minimum snow radius - integer value used for indexing real (kind=dbl_kind), dimension(:) , allocatable :: rsnw_tab ! snow grain radii (micro-meters) for table real (kind=dbl_kind), dimension(:,:), allocatable :: Qs_tab ! snow extinction efficiency (unitless) real (kind=dbl_kind), dimension(:,:), allocatable :: ws_tab ! snow single scattering albedo (unitless) real (kind=dbl_kind), dimension(:,:), allocatable :: gs_tab ! snow asymmetry parameter (unitless) + ! SSP snicar + integer (kind=int_kind) :: nsnw_radius ! maximum snow radius index + !======================================================================= contains @@ -115,6 +117,7 @@ module icepack_shortwave !======================================================================= !autodocument_start icepack_init_radiation ! Initialize data needed for shortwave radiation calculations +! This should be called after values are set via icepack_init_parameters subroutine icepack_init_radiation @@ -131,6 +134,7 @@ subroutine icepack_init_radiation !----------------------------------------------------------------- call data_dEdd_3band() + if (icepack_warnings_aborted(subname)) return !----------------------------------------------------------------- ! Snow single-scattering properties @@ -151,23 +155,10 @@ subroutine icepack_init_radiation ! all data has to be passed into icepack_parameters if (use_snicar) then - if (trim(snw_ssp_table) == 'snicar') then ! read netcdf file + if (trim(snw_ssp_table) == 'snicar') then + ! table passed in, hardwired 1471 x 5 table nsnw_radius = 1471 ! maximum snow grain radius index -!echmod - temporary module data - fix! - nmbrad_snicar = nsnw_radius ! number of snow grain radii in snow iops table -!echmod - these min/max values should be read in from the file, but they are not available there - rsnw_snicar_max = 1500 ! maximum snow radius - integer value used for indexing - rsnw_snicar_min = 30 ! minimum snow radius - integer value used for indexing - - allocate(rsnw_snicar_tab(nsnw_radius)) ! snow grain radii - allocate(ssp_snwextdr(nspint_5bd,nsnw_radius)) ! extinction coefficient, direct - allocate(ssp_snwextdf(nspint_5bd,nsnw_radius)) ! extinction coefficient, diffuse - allocate(ssp_snwalbdr(nspint_5bd,nsnw_radius)) ! single-scattering albedo, direct - allocate(ssp_snwalbdf(nspint_5bd,nsnw_radius)) ! single-scattering albedo, diffuse - allocate(ssp_sasymmdr(nspint_5bd,nsnw_radius)) ! snow asymmetry factor, direct - allocate(ssp_sasymmdf(nspint_5bd,nsnw_radius)) ! snow asymmetry factor, diffuse - !echmod - this might not be needed rsnw_snicar_tab(1) = real(rsnw_snicar_min,dbl_kind) do n = 1, nsnw_radius-1 @@ -175,18 +166,20 @@ subroutine icepack_init_radiation enddo elseif (trim(snw_ssp_table) == 'file') then - nsnw_radius = -1 ! maximum snow grain radius index + ! table passed in, table lookup + interpolate, not yet supported + nsnw_radius = size(ssp_snwextdr,dim=2) ! maximum snow grain radius index + call icepack_warnings_setabort(.true.,__FILE__,__LINE__) + call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)//' not supported') + return elseif (trim(snw_ssp_table) == 'test') then ! 5x5 table nsnw_radius = 5 ! maximum snow grain radius index - !echmod - temporary module data - fix! nmbrad_snicar = nsnw_radius ! number of snow grain radii in snow iops table !echmod - these min/max values should be set from the data array rsnw_snicar_max = 1340 ! maximum snow radius - integer value used for indexing rsnw_snicar_min = 6 ! minimum snow radius - integer value used for indexing - allocate(rsnw_snicar_tab(nsnw_radius)) ! snow grain radii allocate(ssp_snwextdr(nspint_5bd,nsnw_radius)) ! extinction coefficient, direct allocate(ssp_snwextdf(nspint_5bd,nsnw_radius)) ! extinction coefficient, diffuse allocate(ssp_snwalbdr(nspint_5bd,nsnw_radius)) ! single-scattering albedo, direct @@ -194,9 +187,12 @@ subroutine icepack_init_radiation allocate(ssp_sasymmdr(nspint_5bd,nsnw_radius)) ! snow asymmetry factor, direct allocate(ssp_sasymmdf(nspint_5bd,nsnw_radius)) ! snow asymmetry factor, diffuse - rsnw_snicar_tab = (/ & ! snow grain radius for each table entry (micro-meters) - 6._dbl_kind, 37._dbl_kind, 221._dbl_kind, 600._dbl_kind, 1340._dbl_kind/) + allocate(rsnw_snicar_tab(nsnw_radius)) ! snow grain radii + rsnw_snicar_tab = (/ & ! snow grain radius for each table entry (micro-meters) + 6._dbl_kind, 37._dbl_kind, 221._dbl_kind, 600._dbl_kind, 1340._dbl_kind/) + +! tcx, should shift over 3 spaces for alignment ssp_snwextdr = reshape((/ & 46.27374983, 24.70286257, 6.54918455, 2.6035624, 1.196168, & 46.56827715, 24.81790668, 6.56181227, 2.60604155, 1.19682614, & @@ -247,7 +243,19 @@ subroutine icepack_init_radiation else call icepack_warnings_setabort(.true.,__FILE__,__LINE__) - call icepack_warnings_add(subname//'ERROR: snw_ssp_table value') + call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)//' not supported') + return + endif + + if ((size(ssp_snwextdr,dim=2) /= nsnw_radius) .or. & + (size(ssp_snwextdf,dim=2) /= nsnw_radius) .or. & + (size(ssp_snwalbdr,dim=2) /= nsnw_radius) .or. & + (size(ssp_snwalbdf,dim=2) /= nsnw_radius) .or. & + (size(ssp_sasymmdr,dim=2) /= nsnw_radius) .or. & + (size(ssp_sasymmdf,dim=2) /= nsnw_radius)) then + call icepack_warnings_setabort(.true.,__FILE__,__LINE__) + call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)) + call icepack_warnings_add(subname//'ERROR: snw_ssp_table array size error') return endif endif @@ -945,11 +953,11 @@ subroutine data_dEdd_3band character (len=*),parameter :: subname='(data_dEdd_3band)' - nmbrad = 32 ! number of snow grain radii in tables - allocate(rsnw_tab(nmbrad)) - allocate(Qs_tab(nspint_3bd,nmbrad)) - allocate(ws_tab(nspint_3bd,nmbrad)) - allocate(gs_tab(nspint_3bd,nmbrad)) + nmbrad_snicar = 32 ! number of snow grain radii in tables + allocate(rsnw_tab(nmbrad_snicar)) + allocate(Qs_tab(nspint_3bd,nmbrad_snicar)) + allocate(ws_tab(nspint_3bd,nmbrad_snicar)) + allocate(gs_tab(nspint_3bd,nmbrad_snicar)) ! snow grain radii (micro-meters) for table rsnw_tab = (/ & ! snow grain radius for each table entry (micro-meters) @@ -996,7 +1004,7 @@ subroutine data_dEdd_3band 2.002590_dbl_kind, 2.003627_dbl_kind, 2.005276_dbl_kind, & 2.002395_dbl_kind, 2.003391_dbl_kind, 2.004904_dbl_kind, & 2.002071_dbl_kind, 2.002922_dbl_kind, 2.004241_dbl_kind/), & - (/nspint_3bd,nmbrad/)) + (/nspint_3bd,nmbrad_snicar/)) ! snow single scattering albedo (unitless) ws_tab = reshape((/ & @@ -1032,7 +1040,7 @@ subroutine data_dEdd_3band 0.9998332_dbl_kind, 0.9926888_dbl_kind, 0.8095131_dbl_kind, & 0.9998148_dbl_kind, 0.9919968_dbl_kind, 0.7968620_dbl_kind, & 0.9997691_dbl_kind, 0.9903277_dbl_kind, 0.7677887_dbl_kind/), & - (/nspint_3bd,nmbrad/)) + (/nspint_3bd,nmbrad_snicar/)) ! snow asymmetry parameter (unitless) gs_tab = reshape((/ & @@ -1068,7 +1076,7 @@ subroutine data_dEdd_3band 0.891340_dbl_kind, 0.896623_dbl_kind, 0.950916_dbl_kind, & 0.891356_dbl_kind, 0.896851_dbl_kind, 0.951945_dbl_kind, & 0.891386_dbl_kind, 0.897399_dbl_kind, 0.954156_dbl_kind/), & - (/nspint_3bd,nmbrad/)) + (/nspint_3bd,nmbrad_snicar/)) end subroutine data_dEdd_3band @@ -3038,13 +3046,13 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & Qs = Qs_tab(ns,1) ws = ws_tab(ns,1) gs = gs_tab(ns,1) - else if( frsnw(ksnow) >= rsnw_tab(nmbrad) ) then - Qs = Qs_tab(ns,nmbrad) - ws = ws_tab(ns,nmbrad) - gs = gs_tab(ns,nmbrad) + else if( frsnw(ksnow) >= rsnw_tab(nmbrad_snicar) ) then + Qs = Qs_tab(ns,nmbrad_snicar) + ws = ws_tab(ns,nmbrad_snicar) + gs = gs_tab(ns,nmbrad_snicar) else ! linear interpolation in rsnw - do nr=2,nmbrad + do nr=2,nmbrad_snicar if( rsnw_tab(nr-1) <= frsnw(ksnow) .and. & frsnw(ksnow) < rsnw_tab(nr)) then delr = (frsnw(ksnow) - rsnw_tab(nr-1)) / & diff --git a/configuration/driver/icedrv_InitMod.F90 b/configuration/driver/icedrv_InitMod.F90 index da0207b17..86dfae481 100644 --- a/configuration/driver/icedrv_InitMod.F90 +++ b/configuration/driver/icedrv_InitMod.F90 @@ -145,7 +145,19 @@ subroutine icedrv_initialize call get_forcing(istep1) ! get forcing from data arrays call icepack_init_radiation() ! radiation data - if (tr_snow) call icepack_init_snow ! snow aging table + call icepack_warnings_flush(nu_diag) + if (icepack_warnings_aborted(subname)) then + call icedrv_system_abort(file=__FILE__,line=__LINE__) + endif + + if (tr_snow) then + call icepack_init_snow ! snow aging table + call icepack_warnings_flush(nu_diag) + if (icepack_warnings_aborted(subname)) then + call icedrv_system_abort(file=__FILE__,line=__LINE__) + endif + endif + if (tr_iso) call fiso_default ! default values ! aerosols ! if (tr_aero) call faero_data ! data file From 4bf19c6dec48270bfd5c79aa34b003b65c85d1df Mon Sep 17 00:00:00 2001 From: apcraig Date: Wed, 24 Aug 2022 19:55:48 -0600 Subject: [PATCH 12/64] Add reading of SNICAR SSP file in Icepack driver including new namelist variables and options. Add new namelist to icepack_in. Add snicar and snicartest options. Minor updates to namelist output --- columnphysics/icepack_shortwave.F90 | 19 ++ configuration/driver/icedrv_InitMod.F90 | 7 - configuration/driver/icedrv_forcing.F90 | 176 +++++++++++++++++- configuration/driver/icedrv_init.F90 | 108 ++++++----- configuration/driver/icedrv_init_column.F90 | 44 +++-- configuration/scripts/icepack_in | 10 + configuration/scripts/options/set_env.snicar | 1 + configuration/scripts/options/set_nml.snicar | 11 ++ .../scripts/options/set_nml.snicartest | 2 + 9 files changed, 305 insertions(+), 73 deletions(-) create mode 100644 configuration/scripts/options/set_env.snicar create mode 100644 configuration/scripts/options/set_nml.snicar create mode 100644 configuration/scripts/options/set_nml.snicartest diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index f00e9ae55..7b1116487 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -180,6 +180,12 @@ subroutine icepack_init_radiation rsnw_snicar_max = 1340 ! maximum snow radius - integer value used for indexing rsnw_snicar_min = 6 ! minimum snow radius - integer value used for indexing + if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) + if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) + if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) + if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) + if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) + if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) allocate(ssp_snwextdr(nspint_5bd,nsnw_radius)) ! extinction coefficient, direct allocate(ssp_snwextdf(nspint_5bd,nsnw_radius)) ! extinction coefficient, diffuse allocate(ssp_snwalbdr(nspint_5bd,nsnw_radius)) ! single-scattering albedo, direct @@ -258,6 +264,14 @@ subroutine icepack_init_radiation call icepack_warnings_add(subname//'ERROR: snw_ssp_table array size error') return endif + + write(warnstr,*) subname, ' nsnw_radius = ',nsnw_radius + call icepack_warnings_add(warnstr) + write(warnstr,*) subname, ' nspint = ',nspint_5bd + call icepack_warnings_add(warnstr) + write(warnstr,*) subname, ' ssp_snwextdr(1,1) = ',ssp_snwextdr(1,1) + call icepack_warnings_add(warnstr) + endif end subroutine icepack_init_radiation @@ -954,6 +968,11 @@ subroutine data_dEdd_3band character (len=*),parameter :: subname='(data_dEdd_3band)' nmbrad_snicar = 32 ! number of snow grain radii in tables + if (allocated(rsnw_tab)) deallocate(rsnw_tab) + if (allocated(Qs_tab) ) deallocate(Qs_tab) + if (allocated(ws_tab) ) deallocate(ws_tab) + if (allocated(gs_tab) ) deallocate(gs_tab) + allocate(rsnw_tab(nmbrad_snicar)) allocate(Qs_tab(nspint_3bd,nmbrad_snicar)) allocate(ws_tab(nspint_3bd,nmbrad_snicar)) diff --git a/configuration/driver/icedrv_InitMod.F90 b/configuration/driver/icedrv_InitMod.F90 index 86dfae481..dec4a843a 100644 --- a/configuration/driver/icedrv_InitMod.F90 +++ b/configuration/driver/icedrv_InitMod.F90 @@ -38,7 +38,6 @@ subroutine icedrv_initialize use icepack_intfc, only: icepack_init_itd, icepack_init_itd_hist use icepack_intfc, only: icepack_init_fsd_bounds use icepack_intfc, only: icepack_init_snow - use icepack_intfc, only: icepack_init_radiation use icepack_intfc, only: icepack_warnings_flush use icedrv_domain_size, only: ncat, nfsd ! use icedrv_diagnostics, only: icedrv_diagnostics_debug @@ -144,12 +143,6 @@ subroutine icedrv_initialize if (tr_fsd .and. wave_spec) call get_wave_spec ! wave spectrum in ice call get_forcing(istep1) ! get forcing from data arrays - call icepack_init_radiation() ! radiation data - call icepack_warnings_flush(nu_diag) - if (icepack_warnings_aborted(subname)) then - call icedrv_system_abort(file=__FILE__,line=__LINE__) - endif - if (tr_snow) then call icepack_init_snow ! snow aging table call icepack_warnings_flush(nu_diag) diff --git a/configuration/driver/icedrv_forcing.F90 b/configuration/driver/icedrv_forcing.F90 index bb488336b..2a9bdac31 100644 --- a/configuration/driver/icedrv_forcing.F90 +++ b/configuration/driver/icedrv_forcing.F90 @@ -13,7 +13,7 @@ module icedrv_forcing use icedrv_constants, only: nu_diag, nu_forcing, nu_open_clos use icedrv_constants, only: c0, c1, c2, c10, c100, p5, c4, c24 use icepack_intfc, only: icepack_warnings_flush, icepack_warnings_aborted - use icepack_intfc, only: icepack_query_parameters + use icepack_intfc, only: icepack_init_parameters, icepack_query_parameters use icepack_intfc, only: icepack_sea_freezing_temperature use icepack_intfc, only: icepack_init_wave use icedrv_system, only: icedrv_system_abort @@ -24,7 +24,8 @@ module icedrv_forcing implicit none private public :: init_forcing, get_forcing, interp_coeff, & - interp_coeff_monthly, get_wave_spec + interp_coeff_monthly, get_wave_spec, & + init_snicarssptable integer (kind=int_kind), parameter :: & ntime = 8760 ! number of data points in time @@ -100,6 +101,23 @@ module icedrv_forcing trest, & ! restoring time scale (sec) trestore ! restoring time scale (days) + ! SNICAR snow grain single-scattering properties (SSP) for + ! direct (drc) and diffuse (dfs) shortwave incidents + + character (len=char_len_long), public :: & + snw_ssp_table, & ! snow table type 'test', 'snicar', 'file' + ssp_filename ! filename for snicar snow and aerosol lookup table + + character (char_len), public :: & + ssp_nsrad_fname, & ! snow grain radius field name + ssp_nspint_fname, & ! spectral intervals field name + ssp_snwextdr_fname, & ! snow mass extinction cross section (m2/kg) field name + ssp_snwextdf_fname, & ! snow mass extinction cross section (m2/kg) field name + ssp_snwalbdr_fname, & ! snow single scatter albedo (fraction) field name + ssp_snwalbdf_fname, & ! snow single scatter albedo (fraction) field name + ssp_sasymmdr_fname, & ! snow asymmetry factor (cos(theta)) field name + ssp_sasymmdf_fname ! snow asymmetry factor (cos(theta)) field name + !======================================================================= contains @@ -1153,6 +1171,160 @@ subroutine get_wave_spec end subroutine get_wave_spec +!======================================================================= + +! snicar snow grain single-scattering properties lookup table +! +! + subroutine init_snicarssptable + +#ifdef USE_NETCDF + use netcdf +#endif + + integer (kind=int_kind) :: & + nsrad, & ! Table dimensions + nspint + real (kind=dbl_kind), allocatable :: & + ssp_snwextdr(:,:), & ! snow mass extinction cross section (m2/kg) + ssp_snwextdf(:,:), & ! snow mass extinction cross section (m2/kg) + ssp_snwalbdr(:,:), & ! snow single scatter albedo (fraction) + ssp_snwalbdf(:,:), & ! snow single scatter albedo (fraction) + ssp_sasymmdr(:,:), & ! snow asymmetry factor (cos(theta)) + ssp_sasymmdf(:,:) ! snow asymmetry factor (cos(theta)) + + ! local variables + + integer (kind=int_kind) :: & + fid, & ! file id for netCDF file + dimid, & ! dim id for netCDF file + varid, & ! var id for netCDF file + status ! status output for netCDF call + + character (char_len) :: & + fieldname ! field name in netcdf file + + character(len=*), parameter :: subname = '(init_snicarssptable)' + + !----------------------------------------------------------------- + ! read table of snicar SSP parameters + !----------------------------------------------------------------- + + write (nu_diag,*) ' ' + write (nu_diag,*) 'SNICAR SSP file:', trim(ssp_filename) + +#ifdef USE_NETCDF + ! read everything + + status = nf90_open(ssp_filename,NF90_NOWRITE,fid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_open ') + + fieldname = trim(ssp_nsrad_fname) + status=nf90_inq_dimid(fid,trim(fieldname),dimid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_inq_dimid '//trim(fieldname)) + status=nf90_inquire_dimension(fid, dimid, len=nsrad) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_dim '//trim(fieldname)) + + fieldname = trim(ssp_nspint_fname) + status=nf90_inq_dimid(fid,trim(fieldname),dimid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_inq_dimid '//trim(fieldname)) + status=nf90_inquire_dimension(fid, dimid, len=nspint) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_dim '//trim(fieldname)) + + if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) + if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) + if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) + if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) + if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) + if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) + + allocate(ssp_snwextdr(nspint,nsrad)) + allocate(ssp_snwextdf(nspint,nsrad)) + allocate(ssp_snwalbdr(nspint,nsrad)) + allocate(ssp_snwalbdf(nspint,nsrad)) + allocate(ssp_sasymmdr(nspint,nsrad)) + allocate(ssp_sasymmdf(nspint,nsrad)) + + fieldname = trim(ssp_snwextdr_fname) + status = nf90_inq_varid(fid, trim(fieldname), varid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) + status = nf90_get_var(fid, varid, ssp_snwextdr) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) + + fieldname = trim(ssp_snwextdf_fname) + status = nf90_inq_varid(fid, trim(fieldname), varid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) + status = nf90_get_var(fid, varid, ssp_snwextdf) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) + + fieldname = trim(ssp_snwalbdr_fname) + status = nf90_inq_varid(fid, trim(fieldname), varid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) + status = nf90_get_var(fid, varid, ssp_snwalbdr) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) + + fieldname = trim(ssp_snwalbdf_fname) + status = nf90_inq_varid(fid, trim(fieldname), varid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) + status = nf90_get_var(fid, varid, ssp_snwalbdf) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) + + fieldname = trim(ssp_sasymmdr_fname) + status = nf90_inq_varid(fid, trim(fieldname), varid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) + status = nf90_get_var(fid, varid, ssp_sasymmdr) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) + + fieldname = trim(ssp_sasymmdf_fname) + status = nf90_inq_varid(fid, trim(fieldname), varid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) + status = nf90_get_var(fid, varid, ssp_sasymmdf) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) + + status = nf90_close(fid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_close') + +#else + call icedrv_system_abort(string=subname//' ERROR: netcdf required', & + file=__FILE__,line= __LINE__) +#endif + + write(nu_diag,*) subname,' ' + write(nu_diag,*) subname,' Successfully initialized SNICAR SSP tables:' + write(nu_diag,*) subname,' ssp_filename = ',trim(ssp_filename) + write(nu_diag,*) subname,' SSP N spectral int = ',nspint + write(nu_diag,*) subname,' SSP N snow grain rad = ',nsrad + write(nu_diag,*) subname,' Data at first index ' + write(nu_diag,*) subname,' ssp_snwextdr(1,1) = ',ssp_snwextdr(1,1) + write(nu_diag,*) subname,' ssp_snwextdf(1,1) = ',ssp_snwextdf(1,1) + write(nu_diag,*) subname,' ssp_snwalbdr(1,1) = ',ssp_snwalbdr(1,1) + write(nu_diag,*) subname,' ssp_snwalbdf(1,1) = ',ssp_snwalbdf(1,1) + write(nu_diag,*) subname,' ssp_sasymmdr(1,1) = ',ssp_sasymmdr(1,1) + write(nu_diag,*) subname,' ssp_sasymmdf(1,1) = ',ssp_sasymmdf(1,1) + write(nu_diag,*) subname,' Data at final index ' + write(nu_diag,*) subname,' ssp_snwextdr(max,max) = ',ssp_snwextdr(nspint,nsrad) + write(nu_diag,*) subname,' ssp_snwextdf(max,max) = ',ssp_snwextdf(nspint,nsrad) + write(nu_diag,*) subname,' ssp_snwalbdr(max,max) = ',ssp_snwalbdr(nspint,nsrad) + write(nu_diag,*) subname,' ssp_snwalbdf(max,max) = ',ssp_snwalbdf(nspint,nsrad) + write(nu_diag,*) subname,' ssp_sasymmdr(max,max) = ',ssp_sasymmdr(nspint,nsrad) + write(nu_diag,*) subname,' ssp_sasymmdf(max,max) = ',ssp_sasymmdf(nspint,nsrad) + + call icepack_init_parameters( & + ssp_snwextdr_in = ssp_snwextdr, ssp_snwextdf_in = ssp_snwextdf, & + ssp_snwalbdr_in = ssp_snwalbdr, ssp_snwalbdf_in = ssp_snwalbdf, & + ssp_sasymmdr_in = ssp_sasymmdr, ssp_sasymmdf_in = ssp_sasymmdf ) + call icepack_warnings_flush(nu_diag) + if (icepack_warnings_aborted()) call icedrv_system_abort(string=subname, & + file=__FILE__,line= __LINE__) + + deallocate(ssp_snwextdr) + deallocate(ssp_snwextdf) + deallocate(ssp_snwalbdr) + deallocate(ssp_snwalbdf) + deallocate(ssp_sasymmdr) + deallocate(ssp_sasymmdf) + + end subroutine init_snicarssptable !======================================================================= diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90 index ff4f63cbd..3ec2a6752 100644 --- a/configuration/driver/icedrv_init.F90 +++ b/configuration/driver/icedrv_init.F90 @@ -73,6 +73,10 @@ subroutine input_data use icedrv_forcing, only: atm_data_format, ocn_data_format, bgc_data_format use icedrv_forcing, only: data_dir use icedrv_forcing, only: oceanmixed_ice, restore_ocn, trestore + use icedrv_forcing, only: snw_ssp_table, ssp_filename, ssp_nsrad_fname, ssp_nspint_fname + use icedrv_forcing, only: ssp_snwextdr_fname, ssp_snwextdf_fname + use icedrv_forcing, only: ssp_snwalbdr_fname, ssp_snwalbdf_fname + use icedrv_forcing, only: ssp_sasymmdr_fname, ssp_sasymmdf_fname ! local variables @@ -159,7 +163,11 @@ subroutine input_data albicev, albicei, albsnowv, albsnowi, & ahmax, R_ice, R_pnd, R_snw, & sw_redist, sw_frac, sw_dtemp, & - dT_mlt, rsnw_mlt, kalg + dT_mlt, rsnw_mlt, kalg, snw_ssp_table, & + ssp_filename, ssp_nsrad_fname, ssp_nspint_fname, & + ssp_snwextdr_fname, ssp_snwextdf_fname, & + ssp_snwalbdr_fname, ssp_snwalbdf_fname, & + ssp_sasymmdr_fname, ssp_sasymmdf_fname namelist /ponds_nml/ & hs0, dpscale, frzpnd, & @@ -287,6 +295,17 @@ subroutine input_data restore_ocn = .false. ! restore sst if true trestore = 90 ! restoring timescale, days (0 instantaneous) + snw_ssp_table = 'test' ! snow table type, test, snicar, file + ssp_filename = 'snicar_optics_5bnd_snow_and_aerosols.nc' ! snicar ssp filename + ssp_nsrad_fname = 'nSnowGrainRadiusSNICAR' ! snow grain radius fieldname + ssp_nspint_fname = 'nSpectralIntervalsSNICAR' ! spectral interval fieldname + ssp_snwextdr_fname = 'iceMassExtinctionCrossSectionDirect' ! snow mass extinction cross section (m2/kg) + ssp_snwextdf_fname = 'iceMassExtinctionCrossSectionDiffuse' ! snow mass extinction cross section (m2/kg) + ssp_snwalbdr_fname = 'iceSingleScatterAlbedoDirect' ! snow single scatter albedo (fraction) + ssp_snwalbdf_fname = 'iceSingleScatterAlbedoDiffuse' ! snow single scatter albedo (fraction) + ssp_sasymmdr_fname = 'iceAsymmetryParameterDirect' ! snow asymmetry factor (cos(theta)) + ssp_sasymmdf_fname = 'iceAsymmetryParameterDiffuse' ! snow asymmetry factor (cos(theta)) + ! extra tracers tr_iage = .false. ! ice age tr_FY = .false. ! ice age @@ -665,34 +684,26 @@ subroutine input_data write(nu_diag,1000) ' dt = ', dt write(nu_diag,1020) ' npt = ', npt write(nu_diag,1020) ' diagfreq = ', diagfreq - write(nu_diag,1030) ' dumpfreq = ', & - trim(dumpfreq) + write(nu_diag,1030) ' dumpfreq = ', trim(dumpfreq) write(nu_diag,1010) ' dump_last = ', dump_last write(nu_diag,1010) ' restart = ', restart - write(nu_diag,*) ' restart_dir = ', & - trim(restart_dir) - write(nu_diag,*) ' restart_file = ', & - trim(restart_file) + write(nu_diag,1030) ' restart_dir = ', trim(restart_dir) + write(nu_diag,1030) ' restart_file = ', trim(restart_file) write(nu_diag,1010) ' history_cdf = ', history_cdf - write(nu_diag,*) ' ice_ic = ', & - trim(ice_ic) + write(nu_diag,1030) ' ice_ic = ', trim(ice_ic) write(nu_diag,1010) ' conserv_check = ', conserv_check write(nu_diag,1020) ' kitd = ', kitd - write(nu_diag,1020) ' kcatbound = ', & - kcatbound + write(nu_diag,1020) ' kcatbound = ', kcatbound write(nu_diag,1020) ' ndtd = ', ndtd write(nu_diag,1020) ' kstrength = ', kstrength - write(nu_diag,1020) ' krdg_partic = ', & - krdg_partic - write(nu_diag,1020) ' krdg_redist = ', & - krdg_redist + write(nu_diag,1020) ' krdg_partic = ', krdg_partic + write(nu_diag,1020) ' krdg_redist = ', krdg_redist if (krdg_redist == 1) & write(nu_diag,1000) ' mu_rdg = ', mu_rdg if (kstrength == 1) & write(nu_diag,1000) ' Cf = ', Cf write(nu_diag,1000) ' ksno = ', ksno - write(nu_diag,1030) ' shortwave = ', & - trim(shortwave) + write(nu_diag,1030) ' shortwave = ', trim(shortwave) if (cpl_bgc) then write(nu_diag,1000) ' BGC coupling is switched ON' else @@ -709,14 +720,29 @@ subroutine input_data write(nu_diag,1000) ' hp1 = ', hp1 write(nu_diag,1000) ' hs0 = ', hs0 else - write(nu_diag,1030) ' albedo_type = ', & - trim(albedo_type) + write(nu_diag,1030) ' albedo_type = ', trim(albedo_type) write(nu_diag,1000) ' albicev = ', albicev write(nu_diag,1000) ' albicei = ', albicei write(nu_diag,1000) ' albsnowv = ', albsnowv write(nu_diag,1000) ' albsnowi = ', albsnowi write(nu_diag,1000) ' ahmax = ', ahmax endif + + if (trim(shortwave) == 'dEdd_snicar') then + write(nu_diag,1030) ' snw_ssp_table = ', trim(snw_ssp_table) + if (trim(snw_ssp_table) /= 'test') then + write(nu_diag,1030) ' ssp_filename = ', trim(ssp_filename) + write(nu_diag,1030) ' ssp_nsrad_fname = ', trim(ssp_nsrad_fname) + write(nu_diag,1030) ' ssp_nspint_fname = ', trim(ssp_nspint_fname) + write(nu_diag,1030) ' ssp_snwextdr_fname = ', trim(ssp_snwextdr_fname) + write(nu_diag,1030) ' ssp_snwextdf_fname = ', trim(ssp_snwextdf_fname) + write(nu_diag,1030) ' ssp_snwalbdr_fname = ', trim(ssp_snwalbdr_fname) + write(nu_diag,1030) ' ssp_snwalbdf_fname = ', trim(ssp_snwalbdf_fname) + write(nu_diag,1030) ' ssp_sasymmdr_fname = ', trim(ssp_sasymmdr_fname) + write(nu_diag,1030) ' ssp_sasymmdf_fname = ', trim(ssp_sasymmdf_fname) + endif + endif + write(nu_diag,1010) ' sw_redist = ', sw_redist write(nu_diag,1005) ' sw_frac = ', sw_frac write(nu_diag,1005) ' sw_dtemp = ', sw_dtemp @@ -732,10 +758,10 @@ subroutine input_data write(nu_diag,1000) ' pndaspect = ', pndaspect if (tr_snow) then - write(nu_diag,1030) ' snwredist = ', snwredist + write(nu_diag,1030) ' snwredist = ', trim(snwredist) write(nu_diag,1010) ' snwgrain = ', snwgrain write(nu_diag,1010) ' use_smliq_pnd = ', use_smliq_pnd - write(nu_diag,1030) ' snw_aging_table = ', snw_aging_table + write(nu_diag,1030) ' snw_aging_table = ', trim(snw_aging_table) write(nu_diag,1000) ' rsnw_fall = ', rsnw_fall write(nu_diag,1000) ' rsnw_tmax = ', rsnw_tmax write(nu_diag,1000) ' rhosnew = ', rhosnew @@ -748,7 +774,7 @@ subroutine input_data write(nu_diag,1020) ' ktherm = ', ktherm if (ktherm == 1) & - write(nu_diag,1030) ' conduct = ', conduct + write(nu_diag,1030) ' conduct = ', trim(conduct) write(nu_diag,1005) ' emissivity = ', emissivity if (ktherm == 2) then write(nu_diag,1005) ' a_rapid_mode = ', a_rapid_mode @@ -759,8 +785,7 @@ subroutine input_data write(nu_diag,1005) ' phi_i_mushy = ', phi_i_mushy endif - write(nu_diag,1030) ' atmbndy = ', & - trim(atmbndy) + write(nu_diag,1030) ' atmbndy = ', trim(atmbndy) write(nu_diag,1010) ' formdrag = ', formdrag write(nu_diag,1010) ' highfreq = ', highfreq write(nu_diag,1020) ' natmiter = ', natmiter @@ -771,36 +796,27 @@ subroutine input_data write(nu_diag,1005) ' floediam = ', floediam write(nu_diag,1005) ' hfrazilmin = ', hfrazilmin - write(nu_diag,*) ' atm_data_type = ', & - trim(atm_data_type) - write(nu_diag,*) ' ocn_data_type = ', & - trim(ocn_data_type) - write(nu_diag,*) ' bgc_data_type = ', & - trim(bgc_data_type) - - write(nu_diag,*) ' atm_data_file = ', & - trim(atm_data_file) - write(nu_diag,*) ' ocn_data_file = ', & - trim(ocn_data_file) - write(nu_diag,*) ' bgc_data_file = ', & - trim(bgc_data_file) - write(nu_diag,*) ' ice_data_file = ', & - trim(ice_data_file) + write(nu_diag,1030) ' atm_data_type = ', trim(atm_data_type) + write(nu_diag,1030) ' ocn_data_type = ', trim(ocn_data_type) + write(nu_diag,1030) ' bgc_data_type = ', trim(bgc_data_type) + + write(nu_diag,1030) ' atm_data_file = ', trim(atm_data_file) + write(nu_diag,1030) ' ocn_data_file = ', trim(ocn_data_file) + write(nu_diag,1030) ' bgc_data_file = ', trim(bgc_data_file) + write(nu_diag,1030) ' ice_data_file = ', trim(ice_data_file) if (trim(atm_data_type)=='default') & - write(nu_diag,*) ' default_season = ', trim(default_season) + write(nu_diag,1030) ' default_season = ', trim(default_season) write(nu_diag,1010) ' update_ocn_f = ', update_ocn_f write(nu_diag,1010) ' wave_spec = ', wave_spec if (wave_spec) & - write(nu_diag,*) ' wave_spec_type = ', wave_spec_type + write(nu_diag,1030) ' wave_spec_type = ', trim(wave_spec_type) write(nu_diag,1010) ' l_mpond_fresh = ', l_mpond_fresh write(nu_diag,1005) ' ustar_min = ', ustar_min - write(nu_diag,*) ' fbot_xfer_type = ', & - trim(fbot_xfer_type) + write(nu_diag,1030) ' fbot_xfer_type = ', trim(fbot_xfer_type) write(nu_diag,1010) ' oceanmixed_ice = ', oceanmixed_ice - write(nu_diag,*) ' tfrz_option = ', & - trim(tfrz_option) + write(nu_diag,1030) ' tfrz_option = ', trim(tfrz_option) write(nu_diag,1010) ' restore_ocn = ', restore_ocn if (restore_ocn) & write(nu_diag,1005) ' trestore = ', trestore @@ -934,7 +950,7 @@ subroutine input_data 1005 format (a30,2x,f10.6) ! float 1010 format (a30,2x,l6) ! logical 1020 format (a30,2x,i6) ! integer - 1030 format (a30, a8) ! character + 1030 format (a30, a) ! character 1040 format (a30,2x,6i6) ! integer 1050 format (a30,2x,6a6) ! character diff --git a/configuration/driver/icedrv_init_column.F90 b/configuration/driver/icedrv_init_column.F90 index 895548d4e..86c1cdf86 100644 --- a/configuration/driver/icedrv_init_column.F90 +++ b/configuration/driver/icedrv_init_column.F90 @@ -24,7 +24,7 @@ module icedrv_init_column use icepack_intfc, only: icepack_query_tracer_indices use icepack_intfc, only: icepack_query_parameters use icepack_intfc, only: icepack_init_zbgc - use icepack_intfc, only: icepack_init_thermo + use icepack_intfc, only: icepack_init_thermo, icepack_init_radiation use icepack_intfc, only: icepack_step_radiation, icepack_init_orbit use icepack_intfc, only: icepack_init_bgc, icepack_init_zsalinity use icepack_intfc, only: icepack_init_ocean_bio, icepack_load_ocean_bio_array @@ -107,6 +107,7 @@ subroutine init_shortwave use icedrv_calendar, only: istep1, dt, calendar_type use icedrv_calendar, only: days_per_year, nextsw_cday, yday, sec use icedrv_system, only: icedrv_system_abort + use icedrv_forcing, only: snw_ssp_table, init_snicarssptable use icedrv_flux, only: alvdf, alidf, alvdr, alidr use icedrv_flux, only: alvdr_ai, alidr_ai, alvdf_ai, alidf_ai use icedrv_flux, only: swvdr, swvdf, swidr, swidf, scale_factor, snowfrac @@ -218,27 +219,34 @@ subroutine init_shortwave enddo - do i = 1, nx - - if (trim(shortwave(1:4)) == 'dEdd') then ! delta Eddington + if (trim(shortwave(1:4)) == 'dEdd') then ! delta Eddington + ! initialize orbital parameters + ! These come from the driver in the coupled model. + call icepack_warnings_flush(nu_diag) + call icepack_init_orbit() + call icepack_warnings_flush(nu_diag) + if (icepack_warnings_aborted()) & + call icedrv_system_abort(i, istep1, subname, __FILE__, __LINE__) - ! initialize orbital parameters - ! These come from the driver in the coupled model. - call icepack_warnings_flush(nu_diag) - call icepack_init_orbit() + if (trim(shortwave) == 'dEdd_snicar') then + use_snicar = .true. ! 5-band SNICAR scheme for snow cover + call icepack_init_parameters(use_snicar_in=use_snicar, snw_ssp_table_in=snw_ssp_table) call icepack_warnings_flush(nu_diag) - if (icepack_warnings_aborted()) & - call icedrv_system_abort(i, istep1, subname, __FILE__, __LINE__) - - if (trim(shortwave) == 'dEdd_snicar') then - use_snicar = .true. ! 5-band SNICAR scheme for snow cover - call icepack_init_parameters(use_snicar_in=use_snicar) - call icepack_warnings_flush(nu_diag) - if (icepack_warnings_aborted()) call icedrv_system_abort(string=subname, & - file=__FILE__,line= __LINE__) + if (icepack_warnings_aborted()) call icedrv_system_abort(string=subname, & + file=__FILE__,line= __LINE__) + if (trim(snw_ssp_table) /= 'test') then + call init_snicarssptable() endif + endif + endif ! dEdd - endif ! dEdd + call icepack_init_radiation() + call icepack_warnings_flush(nu_diag) + if (icepack_warnings_aborted(subname)) then + call icedrv_system_abort(file=__FILE__,line=__LINE__) + endif + + do i = 1, nx fbri (:) = c0 rsnow (:,:) = c0 diff --git a/configuration/scripts/icepack_in b/configuration/scripts/icepack_in index ce345648f..ad4686411 100644 --- a/configuration/scripts/icepack_in +++ b/configuration/scripts/icepack_in @@ -66,6 +66,16 @@ sw_redist = .false. sw_frac = 0.9d0 sw_dtemp = 0.02d0 + snw_ssp_table = 'test' + ssp_filename = 'unknown' + ssp_nsrad_fname = 'unknown' + ssp_nspint_fname = 'unknown' + ssp_snwextdr_fname = 'unknown' + ssp_snwextdf_fname = 'unknown' + ssp_snwalbdr_fname = 'unknown' + ssp_snwalbdf_fname = 'unknown' + ssp_sasymmdr_fname = 'unknown' + ssp_sasymmdf_fname = 'unknown' / &ponds_nml diff --git a/configuration/scripts/options/set_env.snicar b/configuration/scripts/options/set_env.snicar new file mode 100644 index 000000000..1824dde94 --- /dev/null +++ b/configuration/scripts/options/set_env.snicar @@ -0,0 +1 @@ +setenv ICE_IOTYPE netcdf diff --git a/configuration/scripts/options/set_nml.snicar b/configuration/scripts/options/set_nml.snicar new file mode 100644 index 000000000..2ffff0cf3 --- /dev/null +++ b/configuration/scripts/options/set_nml.snicar @@ -0,0 +1,11 @@ + shortwave = 'dEdd_snicar' + snw_ssp_table = 'snicar' + ssp_filename = 'ICE_MACHINE_INPUTDATA/CICE_data/forcing/snicar_optics_5bnd_snow_and_aerosols.nc' + ssp_nsrad_fname = 'nSnowGrainRadiusSNICAR' + ssp_nspint_fname = 'nSpectralIntervalsSNICAR' + ssp_snwextdr_fname = 'iceMassExtinctionCrossSectionDirect' + ssp_snwextdf_fname = 'iceMassExtinctionCrossSectionDiffuse' + ssp_snwalbdr_fname = 'iceSingleScatterAlbedoDirect' + ssp_snwalbdf_fname = 'iceSingleScatterAlbedoDiffuse' + ssp_sasymmdr_fname = 'iceAsymmetryParameterDirect' + ssp_sasymmdf_fname = 'iceAsymmetryParameterDiffuse' diff --git a/configuration/scripts/options/set_nml.snicartest b/configuration/scripts/options/set_nml.snicartest new file mode 100644 index 000000000..5ece765c2 --- /dev/null +++ b/configuration/scripts/options/set_nml.snicartest @@ -0,0 +1,2 @@ + shortwave = 'dEdd_snicar' + snw_ssp_table = 'test' From 8cb547ad31205edfd9fd48eeb10688d6108ed927 Mon Sep 17 00:00:00 2001 From: apcraig Date: Thu, 25 Aug 2022 13:54:45 -0600 Subject: [PATCH 13/64] rebase, update, and test --- columnphysics/icepack_shortwave.F90 | 205 +++++++++++------------- configuration/driver/icedrv_forcing.F90 | 2 +- 2 files changed, 98 insertions(+), 109 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 7b1116487..4649d205a 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -92,24 +92,19 @@ module icepack_shortwave real (kind=dbl_kind), parameter :: & exp_argmax = c10 ! maximum argument of exponential - -!echmod - temporary module data - change names later to icepack parameters - fix! - integer (kind=int_kind), dimension(:), allocatable :: & - rsnw_snicar_tab ! vector of snow grain radii values assumed in SNICAR snow iops table - nmbrad_snicar , & ! number of snow grain radii in SNICAR snow iops table - - ! Snow table data - integer (kind=int_kind) :: nmbrad_snicar ! number of snow grain radii in tables + ! SNICAR SSP + integer (kind=int_kind) :: nmbrad_snicar ! number of snow grain radii in tables integer (kind=int_kind) :: rsnw_snicar_max ! maximum snow radius - integer value used for indexing integer (kind=int_kind) :: rsnw_snicar_min ! minimum snow radius - integer value used for indexing + real (kind=dbl_kind), dimension(:) , allocatable :: rsnw_snicar_tab ! snow grain radii (micro-meters) for table + + ! Snow table data + integer (kind=int_kind) :: nmbrad ! number of snow grain radii in tables real (kind=dbl_kind), dimension(:) , allocatable :: rsnw_tab ! snow grain radii (micro-meters) for table real (kind=dbl_kind), dimension(:,:), allocatable :: Qs_tab ! snow extinction efficiency (unitless) real (kind=dbl_kind), dimension(:,:), allocatable :: ws_tab ! snow single scattering albedo (unitless) real (kind=dbl_kind), dimension(:,:), allocatable :: gs_tab ! snow asymmetry parameter (unitless) - ! SSP snicar - integer (kind=int_kind) :: nsnw_radius ! maximum snow radius index - !======================================================================= contains @@ -133,8 +128,10 @@ subroutine icepack_init_radiation ! Snow table initialization !----------------------------------------------------------------- - call data_dEdd_3band() - if (icepack_warnings_aborted(subname)) return + if (shortwave(1:4) == 'dEdd') then + call data_dEdd_3band() + if (icepack_warnings_aborted(subname)) return + endif !----------------------------------------------------------------- ! Snow single-scattering properties @@ -157,28 +154,32 @@ subroutine icepack_init_radiation if (use_snicar) then if (trim(snw_ssp_table) == 'snicar') then ! table passed in, hardwired 1471 x 5 table - nsnw_radius = 1471 ! maximum snow grain radius index + nmbrad_snicar = 1471 ! maximum snow grain radius index + rsnw_snicar_min = 30 + rsnw_snicar_max = 1500 !echmod - this might not be needed + allocate(rsnw_snicar_tab(nmbrad_snicar)) ! snow grain radii rsnw_snicar_tab(1) = real(rsnw_snicar_min,dbl_kind) - do n = 1, nsnw_radius-1 + do n = 1, nmbrad_snicar-1 rsnw_snicar_tab(n+1) = rsnw_snicar_tab(n) + c1 enddo elseif (trim(snw_ssp_table) == 'file') then ! table passed in, table lookup + interpolate, not yet supported - nsnw_radius = size(ssp_snwextdr,dim=2) ! maximum snow grain radius index + nmbrad_snicar = size(ssp_snwextdr,dim=2) ! maximum snow grain radius index call icepack_warnings_setabort(.true.,__FILE__,__LINE__) call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)//' not supported') return elseif (trim(snw_ssp_table) == 'test') then ! 5x5 table - nsnw_radius = 5 ! maximum snow grain radius index -!echmod - temporary module data - fix! - nmbrad_snicar = nsnw_radius ! number of snow grain radii in snow iops table -!echmod - these min/max values should be set from the data array - rsnw_snicar_max = 1340 ! maximum snow radius - integer value used for indexing - rsnw_snicar_min = 6 ! minimum snow radius - integer value used for indexing + nmbrad_snicar = 5 ! maximum snow grain radius index + + allocate(rsnw_snicar_tab(nmbrad_snicar)) ! snow grain radii + rsnw_snicar_tab = (/ & ! snow grain radius for each table entry (micro-meters) + 6._dbl_kind, 37._dbl_kind, 221._dbl_kind, 600._dbl_kind, 1340._dbl_kind/) + rsnw_snicar_min = rsnw_snicar_tab(1) ! minimum snow radius - integer value used for indexing + rsnw_snicar_max = rsnw_snicar_tab(nmbrad_snicar) ! maximum snow radius - integer value used for indexing if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) @@ -186,66 +187,60 @@ subroutine icepack_init_radiation if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) - allocate(ssp_snwextdr(nspint_5bd,nsnw_radius)) ! extinction coefficient, direct - allocate(ssp_snwextdf(nspint_5bd,nsnw_radius)) ! extinction coefficient, diffuse - allocate(ssp_snwalbdr(nspint_5bd,nsnw_radius)) ! single-scattering albedo, direct - allocate(ssp_snwalbdf(nspint_5bd,nsnw_radius)) ! single-scattering albedo, diffuse - allocate(ssp_sasymmdr(nspint_5bd,nsnw_radius)) ! snow asymmetry factor, direct - allocate(ssp_sasymmdf(nspint_5bd,nsnw_radius)) ! snow asymmetry factor, diffuse - - allocate(rsnw_snicar_tab(nsnw_radius)) ! snow grain radii - rsnw_snicar_tab = (/ & ! snow grain radius for each table entry (micro-meters) - 6._dbl_kind, 37._dbl_kind, 221._dbl_kind, 600._dbl_kind, 1340._dbl_kind/) - - -! tcx, should shift over 3 spaces for alignment - ssp_snwextdr = reshape((/ & - 46.27374983, 24.70286257, 6.54918455, 2.6035624, 1.196168, & - 46.56827715, 24.81790668, 6.56181227, 2.60604155, 1.19682614, & - 46.76114033, 24.90468677, 6.56950323, 2.60780948, 1.19737512, & - 46.9753992, 24.9495155, 6.57687695, 2.60937383, 1.19774008, & - 47.48598349, 25.14100194, 6.59708024, 2.61372576, 1.19897351 /), & - (/nspint_5bd,nsnw_radius/)) - - ssp_snwextdf = reshape((/ & - 46.26936158, 24.70165487, 6.54903637, 2.60353051, 1.19615825, & - 46.56628244, 24.81707286, 6.56164279, 2.60601584, 1.1968169, & - 46.75501968, 24.90175807, 6.5693214, 2.60775795, 1.19736237, & - 46.95368476, 24.94497414, 6.57612007, 2.60924059, 1.19770981, & - 47.29620774, 25.0713585, 6.5891698, 2.61198929, 1.19850197 /), & - (/nspint_5bd,nsnw_radius/)) - - ssp_snwalbdr = reshape((/ & - 0.99999581, 0.99999231, 0.99997215, 0.99993093, 0.99985157, & - 0.99987892, 0.99978212, 0.99923115, 0.99817946, 0.99628374, & - 0.99909682, 0.99835523, 0.99418008, 0.98592085, 0.97062632, & - 0.99308867, 0.98972448, 0.97261528, 0.93947995, 0.88207117, & - 0.93322249, 0.89645776, 0.75765643, 0.6272883, 0.55435033 /), & - (/nspint_5bd,nsnw_radius/)) - - ssp_snwalbdf = reshape((/ & - 0.99999586, 0.9999924, 0.99997249, 0.99993178, 0.9998534, & - 0.99988441, 0.99979202, 0.99926745, 0.99826865, 0.99647135, & - 0.99910997, 0.99837683, 0.99426171, 0.98610431, 0.97097643, & - 0.99476731, 0.9916114, 0.97441209, 0.94127464, 0.88440735, & - 0.9419837, 0.90613207, 0.77042376, 0.63887161, 0.5566098 /), & - (/nspint_5bd,nsnw_radius/)) - - ssp_sasymmdr = reshape((/ & - 0.88503036, 0.88778473, 0.89049023, 0.89112501, 0.89136157, & - 0.88495225, 0.88905367, 0.89315385, 0.89433673, 0.8950027, & - 0.88440201, 0.88928256, 0.89503166, 0.89762648, 0.90045378, & - 0.88590371, 0.89350221, 0.90525156, 0.91314567, 0.92157748, & - 0.9033537, 0.91778261, 0.94615574, 0.96323447, 0.97167644 /), & - (/nspint_5bd,nsnw_radius/)) - - ssp_sasymmdf = reshape((/ & - 0.88500571, 0.88773868, 0.89042496, 0.8910553, 0.89128949, & - 0.88495225, 0.88905367, 0.89315385, 0.89433673, 0.8950027 , & - 0.88441433, 0.88929133, 0.89500611, 0.89756091, 0.90035504, & - 0.88495554, 0.89201556, 0.90204619, 0.90914885, 0.91769988, & - 0.89620237, 0.90998944, 0.94126152, 0.96209938, 0.9726631 /), & - (/nspint_5bd,nsnw_radius/)) + allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar)) ! extinction coefficient, direct + allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar)) ! extinction coefficient, diffuse + allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar)) ! single-scattering albedo, direct + allocate(ssp_snwalbdf(nspint_5bd,nmbrad_snicar)) ! single-scattering albedo, diffuse + allocate(ssp_sasymmdr(nspint_5bd,nmbrad_snicar)) ! snow asymmetry factor, direct + allocate(ssp_sasymmdf(nspint_5bd,nmbrad_snicar)) ! snow asymmetry factor, diffuse + + ssp_snwextdr = reshape((/ & + 46.27374983, 24.70286257, 6.54918455, 2.6035624, 1.196168, & + 46.56827715, 24.81790668, 6.56181227, 2.60604155, 1.19682614, & + 46.76114033, 24.90468677, 6.56950323, 2.60780948, 1.19737512, & + 46.9753992, 24.9495155, 6.57687695, 2.60937383, 1.19774008, & + 47.48598349, 25.14100194, 6.59708024, 2.61372576, 1.19897351 /), & + (/nspint_5bd,nmbrad_snicar/)) + + ssp_snwextdf = reshape((/ & + 46.26936158, 24.70165487, 6.54903637, 2.60353051, 1.19615825, & + 46.56628244, 24.81707286, 6.56164279, 2.60601584, 1.1968169, & + 46.75501968, 24.90175807, 6.5693214, 2.60775795, 1.19736237, & + 46.95368476, 24.94497414, 6.57612007, 2.60924059, 1.19770981, & + 47.29620774, 25.0713585, 6.5891698, 2.61198929, 1.19850197 /), & + (/nspint_5bd,nmbrad_snicar/)) + + ssp_snwalbdr = reshape((/ & + 0.99999581, 0.99999231, 0.99997215, 0.99993093, 0.99985157, & + 0.99987892, 0.99978212, 0.99923115, 0.99817946, 0.99628374, & + 0.99909682, 0.99835523, 0.99418008, 0.98592085, 0.97062632, & + 0.99308867, 0.98972448, 0.97261528, 0.93947995, 0.88207117, & + 0.93322249, 0.89645776, 0.75765643, 0.6272883, 0.55435033 /), & + (/nspint_5bd,nmbrad_snicar/)) + + ssp_snwalbdf = reshape((/ & + 0.99999586, 0.9999924, 0.99997249, 0.99993178, 0.9998534, & + 0.99988441, 0.99979202, 0.99926745, 0.99826865, 0.99647135, & + 0.99910997, 0.99837683, 0.99426171, 0.98610431, 0.97097643, & + 0.99476731, 0.9916114, 0.97441209, 0.94127464, 0.88440735, & + 0.9419837, 0.90613207, 0.77042376, 0.63887161, 0.5566098 /), & + (/nspint_5bd,nmbrad_snicar/)) + + ssp_sasymmdr = reshape((/ & + 0.88503036, 0.88778473, 0.89049023, 0.89112501, 0.89136157, & + 0.88495225, 0.88905367, 0.89315385, 0.89433673, 0.8950027, & + 0.88440201, 0.88928256, 0.89503166, 0.89762648, 0.90045378, & + 0.88590371, 0.89350221, 0.90525156, 0.91314567, 0.92157748, & + 0.9033537, 0.91778261, 0.94615574, 0.96323447, 0.97167644 /), & + (/nspint_5bd,nmbrad_snicar/)) + + ssp_sasymmdf = reshape((/ & + 0.88500571, 0.88773868, 0.89042496, 0.8910553, 0.89128949, & + 0.88495225, 0.88905367, 0.89315385, 0.89433673, 0.8950027 , & + 0.88441433, 0.88929133, 0.89500611, 0.89756091, 0.90035504, & + 0.88495554, 0.89201556, 0.90204619, 0.90914885, 0.91769988, & + 0.89620237, 0.90998944, 0.94126152, 0.96209938, 0.9726631 /), & + (/nspint_5bd,nmbrad_snicar/)) else call icepack_warnings_setabort(.true.,__FILE__,__LINE__) @@ -253,19 +248,19 @@ subroutine icepack_init_radiation return endif - if ((size(ssp_snwextdr,dim=2) /= nsnw_radius) .or. & - (size(ssp_snwextdf,dim=2) /= nsnw_radius) .or. & - (size(ssp_snwalbdr,dim=2) /= nsnw_radius) .or. & - (size(ssp_snwalbdf,dim=2) /= nsnw_radius) .or. & - (size(ssp_sasymmdr,dim=2) /= nsnw_radius) .or. & - (size(ssp_sasymmdf,dim=2) /= nsnw_radius)) then + if ((size(ssp_snwextdr,dim=2) /= nmbrad_snicar) .or. & + (size(ssp_snwextdf,dim=2) /= nmbrad_snicar) .or. & + (size(ssp_snwalbdr,dim=2) /= nmbrad_snicar) .or. & + (size(ssp_snwalbdf,dim=2) /= nmbrad_snicar) .or. & + (size(ssp_sasymmdr,dim=2) /= nmbrad_snicar) .or. & + (size(ssp_sasymmdf,dim=2) /= nmbrad_snicar)) then call icepack_warnings_setabort(.true.,__FILE__,__LINE__) call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)) call icepack_warnings_add(subname//'ERROR: snw_ssp_table array size error') return endif - write(warnstr,*) subname, ' nsnw_radius = ',nsnw_radius + write(warnstr,*) subname, ' nmbrad_snicar = ',nmbrad_snicar call icepack_warnings_add(warnstr) write(warnstr,*) subname, ' nspint = ',nspint_5bd call icepack_warnings_add(warnstr) @@ -967,16 +962,16 @@ subroutine data_dEdd_3band character (len=*),parameter :: subname='(data_dEdd_3band)' - nmbrad_snicar = 32 ! number of snow grain radii in tables + nmbrad = 32 ! number of snow grain radii in tables if (allocated(rsnw_tab)) deallocate(rsnw_tab) if (allocated(Qs_tab) ) deallocate(Qs_tab) if (allocated(ws_tab) ) deallocate(ws_tab) if (allocated(gs_tab) ) deallocate(gs_tab) - allocate(rsnw_tab(nmbrad_snicar)) - allocate(Qs_tab(nspint_3bd,nmbrad_snicar)) - allocate(ws_tab(nspint_3bd,nmbrad_snicar)) - allocate(gs_tab(nspint_3bd,nmbrad_snicar)) + allocate(rsnw_tab( nmbrad)) + allocate(Qs_tab (nspint_3bd,nmbrad)) + allocate(ws_tab (nspint_3bd,nmbrad)) + allocate(gs_tab (nspint_3bd,nmbrad)) ! snow grain radii (micro-meters) for table rsnw_tab = (/ & ! snow grain radius for each table entry (micro-meters) @@ -1023,7 +1018,7 @@ subroutine data_dEdd_3band 2.002590_dbl_kind, 2.003627_dbl_kind, 2.005276_dbl_kind, & 2.002395_dbl_kind, 2.003391_dbl_kind, 2.004904_dbl_kind, & 2.002071_dbl_kind, 2.002922_dbl_kind, 2.004241_dbl_kind/), & - (/nspint_3bd,nmbrad_snicar/)) + (/nspint_3bd,nmbrad/)) ! snow single scattering albedo (unitless) ws_tab = reshape((/ & @@ -1059,7 +1054,7 @@ subroutine data_dEdd_3band 0.9998332_dbl_kind, 0.9926888_dbl_kind, 0.8095131_dbl_kind, & 0.9998148_dbl_kind, 0.9919968_dbl_kind, 0.7968620_dbl_kind, & 0.9997691_dbl_kind, 0.9903277_dbl_kind, 0.7677887_dbl_kind/), & - (/nspint_3bd,nmbrad_snicar/)) + (/nspint_3bd,nmbrad/)) ! snow asymmetry parameter (unitless) gs_tab = reshape((/ & @@ -1095,7 +1090,7 @@ subroutine data_dEdd_3band 0.891340_dbl_kind, 0.896623_dbl_kind, 0.950916_dbl_kind, & 0.891356_dbl_kind, 0.896851_dbl_kind, 0.951945_dbl_kind, & 0.891386_dbl_kind, 0.897399_dbl_kind, 0.954156_dbl_kind/), & - (/nspint_3bd,nmbrad_snicar/)) + (/nspint_3bd,nmbrad/)) end subroutine data_dEdd_3band @@ -2634,12 +2629,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! Grenfell 1991 uses 0.004 (m^2/mg) which is (0.0078 * spectral weighting) !chlorophyll mass extinction cross section (m^2/mg chla) - ! SNICAR inputs - integer (kind=int_kind), parameter :: & - nmbrad_snicar = 1471, & ! number of snow grain radii in SNICAR snow iops table - rsnw_snicar_max = 1500, & - rsnw_snicar_min = 30 - real (kind=dbl_kind), dimension (5) :: & wghtns_5bd_dfs, & ! spectral weights for diffuse incident wghtns_5bd_drc ! spectral weights for direct incident @@ -3065,13 +3054,13 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & Qs = Qs_tab(ns,1) ws = ws_tab(ns,1) gs = gs_tab(ns,1) - else if( frsnw(ksnow) >= rsnw_tab(nmbrad_snicar) ) then - Qs = Qs_tab(ns,nmbrad_snicar) - ws = ws_tab(ns,nmbrad_snicar) - gs = gs_tab(ns,nmbrad_snicar) + else if( frsnw(ksnow) >= rsnw_tab(nmbrad) ) then + Qs = Qs_tab(ns,nmbrad) + ws = ws_tab(ns,nmbrad) + gs = gs_tab(ns,nmbrad) else ! linear interpolation in rsnw - do nr=2,nmbrad_snicar + do nr=2,nmbrad if( rsnw_tab(nr-1) <= frsnw(ksnow) .and. & frsnw(ksnow) < rsnw_tab(nr)) then delr = (frsnw(ksnow) - rsnw_tab(nr-1)) / & diff --git a/configuration/driver/icedrv_forcing.F90 b/configuration/driver/icedrv_forcing.F90 index 2a9bdac31..830949f7d 100644 --- a/configuration/driver/icedrv_forcing.F90 +++ b/configuration/driver/icedrv_forcing.F90 @@ -102,7 +102,7 @@ module icedrv_forcing trestore ! restoring time scale (days) ! SNICAR snow grain single-scattering properties (SSP) for - ! direct (drc) and diffuse (dfs) shortwave incidents + ! direct (dr) and diffuse (df) shortwave incidents character (len=char_len_long), public :: & snw_ssp_table, & ! snow table type 'test', 'snicar', 'file' From 4e2d90b5bf5d8f78d751f2e5f8e95fdf26f5dea8 Mon Sep 17 00:00:00 2001 From: apcraig Date: Thu, 25 Aug 2022 17:27:57 -0600 Subject: [PATCH 14/64] Update ssp output --- columnphysics/icepack_shortwave.F90 | 12 +++++-- configuration/driver/icedrv_forcing.F90 | 46 ++++++++++++++++--------- 2 files changed, 39 insertions(+), 19 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 4649d205a..dc3dc3029 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -260,11 +260,17 @@ subroutine icepack_init_radiation return endif - write(warnstr,*) subname, ' nmbrad_snicar = ',nmbrad_snicar + write(warnstr,'(2a,i8)') subname, ' nmbrad_snicar = ',nmbrad_snicar call icepack_warnings_add(warnstr) - write(warnstr,*) subname, ' nspint = ',nspint_5bd + write(warnstr,'(2a,i8)') subname, ' nspint = ',nspint_5bd call icepack_warnings_add(warnstr) - write(warnstr,*) subname, ' ssp_snwextdr(1,1) = ',ssp_snwextdr(1,1) + write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',1, ',',1, ') = ',ssp_snwextdr(1,1) + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',nspint_5bd,',',1, ') = ',ssp_snwextdr(nspint_5bd,1) + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',1, ',',nmbrad_snicar,') = ',ssp_snwextdr(1,nmbrad_snicar) + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',nspint_5bd,',',nmbrad_snicar,') = ',ssp_snwextdr(nspint_5bd,nmbrad_snicar) call icepack_warnings_add(warnstr) endif diff --git a/configuration/driver/icedrv_forcing.F90 b/configuration/driver/icedrv_forcing.F90 index 830949f7d..afcd2745c 100644 --- a/configuration/driver/icedrv_forcing.F90 +++ b/configuration/driver/icedrv_forcing.F90 @@ -1291,23 +1291,37 @@ subroutine init_snicarssptable write(nu_diag,*) subname,' ' write(nu_diag,*) subname,' Successfully initialized SNICAR SSP tables:' - write(nu_diag,*) subname,' ssp_filename = ',trim(ssp_filename) - write(nu_diag,*) subname,' SSP N spectral int = ',nspint - write(nu_diag,*) subname,' SSP N snow grain rad = ',nsrad + write(nu_diag,*) subname,' ssp_filename = ',trim(ssp_filename) + write(nu_diag,*) subname,' SSP N spectral int, m1 = ',nspint + write(nu_diag,*) subname,' SSP N snow grain rad, m2 = ',nsrad write(nu_diag,*) subname,' Data at first index ' - write(nu_diag,*) subname,' ssp_snwextdr(1,1) = ',ssp_snwextdr(1,1) - write(nu_diag,*) subname,' ssp_snwextdf(1,1) = ',ssp_snwextdf(1,1) - write(nu_diag,*) subname,' ssp_snwalbdr(1,1) = ',ssp_snwalbdr(1,1) - write(nu_diag,*) subname,' ssp_snwalbdf(1,1) = ',ssp_snwalbdf(1,1) - write(nu_diag,*) subname,' ssp_sasymmdr(1,1) = ',ssp_sasymmdr(1,1) - write(nu_diag,*) subname,' ssp_sasymmdf(1,1) = ',ssp_sasymmdf(1,1) - write(nu_diag,*) subname,' Data at final index ' - write(nu_diag,*) subname,' ssp_snwextdr(max,max) = ',ssp_snwextdr(nspint,nsrad) - write(nu_diag,*) subname,' ssp_snwextdf(max,max) = ',ssp_snwextdf(nspint,nsrad) - write(nu_diag,*) subname,' ssp_snwalbdr(max,max) = ',ssp_snwalbdr(nspint,nsrad) - write(nu_diag,*) subname,' ssp_snwalbdf(max,max) = ',ssp_snwalbdf(nspint,nsrad) - write(nu_diag,*) subname,' ssp_sasymmdr(max,max) = ',ssp_sasymmdr(nspint,nsrad) - write(nu_diag,*) subname,' ssp_sasymmdf(max,max) = ',ssp_sasymmdf(nspint,nsrad) + write(nu_diag,*) subname,' ssp_snwextdr(1,1) = ',ssp_snwextdr(1,1) + write(nu_diag,*) subname,' ssp_snwextdf(1,1) = ',ssp_snwextdf(1,1) + write(nu_diag,*) subname,' ssp_snwalbdr(1,1) = ',ssp_snwalbdr(1,1) + write(nu_diag,*) subname,' ssp_snwalbdf(1,1) = ',ssp_snwalbdf(1,1) + write(nu_diag,*) subname,' ssp_sasymmdr(1,1) = ',ssp_sasymmdr(1,1) + write(nu_diag,*) subname,' ssp_sasymmdf(1,1) = ',ssp_sasymmdf(1,1) + write(nu_diag,*) subname,' Data at ',nspint,',1 index ' + write(nu_diag,*) subname,' ssp_snwextdr(m1,1) = ',ssp_snwextdr(nspint,1) + write(nu_diag,*) subname,' ssp_snwextdf(m1,1) = ',ssp_snwextdf(nspint,1) + write(nu_diag,*) subname,' ssp_snwalbdr(m1,1) = ',ssp_snwalbdr(nspint,1) + write(nu_diag,*) subname,' ssp_snwalbdf(m1,1) = ',ssp_snwalbdf(nspint,1) + write(nu_diag,*) subname,' ssp_sasymmdr(m1,1) = ',ssp_sasymmdr(nspint,1) + write(nu_diag,*) subname,' ssp_sasymmdf(m1,1) = ',ssp_sasymmdf(nspint,1) + write(nu_diag,*) subname,' Data at 1,',nsrad,' index ' + write(nu_diag,*) subname,' ssp_snwextdr(1,m2) = ',ssp_snwextdr(1,nsrad) + write(nu_diag,*) subname,' ssp_snwextdf(1,m2) = ',ssp_snwextdf(1,nsrad) + write(nu_diag,*) subname,' ssp_snwalbdr(1,m2) = ',ssp_snwalbdr(1,nsrad) + write(nu_diag,*) subname,' ssp_snwalbdf(1,m2) = ',ssp_snwalbdf(1,nsrad) + write(nu_diag,*) subname,' ssp_sasymmdr(1,m2) = ',ssp_sasymmdr(1,nsrad) + write(nu_diag,*) subname,' ssp_sasymmdf(1,m2) = ',ssp_sasymmdf(1,nsrad) + write(nu_diag,*) subname,' Data at ',nspint,nsrad,' index ' + write(nu_diag,*) subname,' ssp_snwextdr(m1,m2) = ',ssp_snwextdr(nspint,nsrad) + write(nu_diag,*) subname,' ssp_snwextdf(m1,m2) = ',ssp_snwextdf(nspint,nsrad) + write(nu_diag,*) subname,' ssp_snwalbdr(m1,m2) = ',ssp_snwalbdr(nspint,nsrad) + write(nu_diag,*) subname,' ssp_snwalbdf(m1,m2) = ',ssp_snwalbdf(nspint,nsrad) + write(nu_diag,*) subname,' ssp_sasymmdr(m1,m2) = ',ssp_sasymmdr(nspint,nsrad) + write(nu_diag,*) subname,' ssp_sasymmdf(m1,m2) = ',ssp_sasymmdf(nspint,nsrad) call icepack_init_parameters( & ssp_snwextdr_in = ssp_snwextdr, ssp_snwextdf_in = ssp_snwextdf, & From e569c4cafc34d06cdf92c4db2d888120a081082c Mon Sep 17 00:00:00 2001 From: apcraig Date: Thu, 25 Aug 2022 18:24:12 -0600 Subject: [PATCH 15/64] Reorder SNICAR SSP test data arrays to be consistent with source code --- columnphysics/icepack_shortwave.F90 | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index dc3dc3029..4bf83be32 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -194,13 +194,16 @@ subroutine icepack_init_radiation allocate(ssp_sasymmdr(nspint_5bd,nmbrad_snicar)) ! snow asymmetry factor, direct allocate(ssp_sasymmdf(nspint_5bd,nmbrad_snicar)) ! snow asymmetry factor, diffuse + ! tcraig, these data statements are not consistent with the array index order + ! reshape from nmbrad,nspint to nspint,nmbrad with order = 2,1 + ssp_snwextdr = reshape((/ & 46.27374983, 24.70286257, 6.54918455, 2.6035624, 1.196168, & 46.56827715, 24.81790668, 6.56181227, 2.60604155, 1.19682614, & 46.76114033, 24.90468677, 6.56950323, 2.60780948, 1.19737512, & 46.9753992, 24.9495155, 6.57687695, 2.60937383, 1.19774008, & 47.48598349, 25.14100194, 6.59708024, 2.61372576, 1.19897351 /), & - (/nspint_5bd,nmbrad_snicar/)) + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) ssp_snwextdf = reshape((/ & 46.26936158, 24.70165487, 6.54903637, 2.60353051, 1.19615825, & @@ -208,7 +211,7 @@ subroutine icepack_init_radiation 46.75501968, 24.90175807, 6.5693214, 2.60775795, 1.19736237, & 46.95368476, 24.94497414, 6.57612007, 2.60924059, 1.19770981, & 47.29620774, 25.0713585, 6.5891698, 2.61198929, 1.19850197 /), & - (/nspint_5bd,nmbrad_snicar/)) + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) ssp_snwalbdr = reshape((/ & 0.99999581, 0.99999231, 0.99997215, 0.99993093, 0.99985157, & @@ -216,7 +219,7 @@ subroutine icepack_init_radiation 0.99909682, 0.99835523, 0.99418008, 0.98592085, 0.97062632, & 0.99308867, 0.98972448, 0.97261528, 0.93947995, 0.88207117, & 0.93322249, 0.89645776, 0.75765643, 0.6272883, 0.55435033 /), & - (/nspint_5bd,nmbrad_snicar/)) + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) ssp_snwalbdf = reshape((/ & 0.99999586, 0.9999924, 0.99997249, 0.99993178, 0.9998534, & @@ -224,7 +227,7 @@ subroutine icepack_init_radiation 0.99910997, 0.99837683, 0.99426171, 0.98610431, 0.97097643, & 0.99476731, 0.9916114, 0.97441209, 0.94127464, 0.88440735, & 0.9419837, 0.90613207, 0.77042376, 0.63887161, 0.5566098 /), & - (/nspint_5bd,nmbrad_snicar/)) + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) ssp_sasymmdr = reshape((/ & 0.88503036, 0.88778473, 0.89049023, 0.89112501, 0.89136157, & @@ -232,7 +235,7 @@ subroutine icepack_init_radiation 0.88440201, 0.88928256, 0.89503166, 0.89762648, 0.90045378, & 0.88590371, 0.89350221, 0.90525156, 0.91314567, 0.92157748, & 0.9033537, 0.91778261, 0.94615574, 0.96323447, 0.97167644 /), & - (/nspint_5bd,nmbrad_snicar/)) + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) ssp_sasymmdf = reshape((/ & 0.88500571, 0.88773868, 0.89042496, 0.8910553, 0.89128949, & @@ -240,7 +243,7 @@ subroutine icepack_init_radiation 0.88441433, 0.88929133, 0.89500611, 0.89756091, 0.90035504, & 0.88495554, 0.89201556, 0.90204619, 0.90914885, 0.91769988, & 0.89620237, 0.90998944, 0.94126152, 0.96209938, 0.9726631 /), & - (/nspint_5bd,nmbrad_snicar/)) + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) else call icepack_warnings_setabort(.true.,__FILE__,__LINE__) From f88b03ca065cea499eef9a0078f29368bf1e2de9 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Fri, 26 Aug 2022 14:27:01 -0600 Subject: [PATCH 16/64] move 5band data to subroutine; enable snicar testing on 1 no-ice grid cell --- columnphysics/icepack_shortwave.F90 | 521 +++++++++++-------- configuration/driver/icedrv_init.F90 | 18 +- configuration/scripts/options/set_env.snicar | 1 + 3 files changed, 322 insertions(+), 218 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 4bf83be32..882af2edd 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -133,148 +133,9 @@ subroutine icepack_init_radiation if (icepack_warnings_aborted(subname)) return endif - !----------------------------------------------------------------- - ! Snow single-scattering properties - !----------------------------------------------------------------- - - ! if snw_ssp_table = 'snicar' - ! best-fit parameters are read from a table (netcdf) - ! 1471 snow grain radii - ! 5 spectral intervals - - ! if snw_ssp_table = 'test' - ! for testing Icepack without netcdf, - ! use a subsampled, hard-coded table - ! 5 snow grain radii - ! 5 spectral intervals - - ! if snw_ssp_table = 'file' - ! all data has to be passed into icepack_parameters - if (use_snicar) then - if (trim(snw_ssp_table) == 'snicar') then - ! table passed in, hardwired 1471 x 5 table - nmbrad_snicar = 1471 ! maximum snow grain radius index - rsnw_snicar_min = 30 - rsnw_snicar_max = 1500 - -!echmod - this might not be needed - allocate(rsnw_snicar_tab(nmbrad_snicar)) ! snow grain radii - rsnw_snicar_tab(1) = real(rsnw_snicar_min,dbl_kind) - do n = 1, nmbrad_snicar-1 - rsnw_snicar_tab(n+1) = rsnw_snicar_tab(n) + c1 - enddo - - elseif (trim(snw_ssp_table) == 'file') then - ! table passed in, table lookup + interpolate, not yet supported - nmbrad_snicar = size(ssp_snwextdr,dim=2) ! maximum snow grain radius index - call icepack_warnings_setabort(.true.,__FILE__,__LINE__) - call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)//' not supported') - return - - elseif (trim(snw_ssp_table) == 'test') then ! 5x5 table - nmbrad_snicar = 5 ! maximum snow grain radius index - - allocate(rsnw_snicar_tab(nmbrad_snicar)) ! snow grain radii - rsnw_snicar_tab = (/ & ! snow grain radius for each table entry (micro-meters) - 6._dbl_kind, 37._dbl_kind, 221._dbl_kind, 600._dbl_kind, 1340._dbl_kind/) - rsnw_snicar_min = rsnw_snicar_tab(1) ! minimum snow radius - integer value used for indexing - rsnw_snicar_max = rsnw_snicar_tab(nmbrad_snicar) ! maximum snow radius - integer value used for indexing - - if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) - if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) - if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) - if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) - if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) - if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) - allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar)) ! extinction coefficient, direct - allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar)) ! extinction coefficient, diffuse - allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar)) ! single-scattering albedo, direct - allocate(ssp_snwalbdf(nspint_5bd,nmbrad_snicar)) ! single-scattering albedo, diffuse - allocate(ssp_sasymmdr(nspint_5bd,nmbrad_snicar)) ! snow asymmetry factor, direct - allocate(ssp_sasymmdf(nspint_5bd,nmbrad_snicar)) ! snow asymmetry factor, diffuse - - ! tcraig, these data statements are not consistent with the array index order - ! reshape from nmbrad,nspint to nspint,nmbrad with order = 2,1 - - ssp_snwextdr = reshape((/ & - 46.27374983, 24.70286257, 6.54918455, 2.6035624, 1.196168, & - 46.56827715, 24.81790668, 6.56181227, 2.60604155, 1.19682614, & - 46.76114033, 24.90468677, 6.56950323, 2.60780948, 1.19737512, & - 46.9753992, 24.9495155, 6.57687695, 2.60937383, 1.19774008, & - 47.48598349, 25.14100194, 6.59708024, 2.61372576, 1.19897351 /), & - (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) - - ssp_snwextdf = reshape((/ & - 46.26936158, 24.70165487, 6.54903637, 2.60353051, 1.19615825, & - 46.56628244, 24.81707286, 6.56164279, 2.60601584, 1.1968169, & - 46.75501968, 24.90175807, 6.5693214, 2.60775795, 1.19736237, & - 46.95368476, 24.94497414, 6.57612007, 2.60924059, 1.19770981, & - 47.29620774, 25.0713585, 6.5891698, 2.61198929, 1.19850197 /), & - (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) - - ssp_snwalbdr = reshape((/ & - 0.99999581, 0.99999231, 0.99997215, 0.99993093, 0.99985157, & - 0.99987892, 0.99978212, 0.99923115, 0.99817946, 0.99628374, & - 0.99909682, 0.99835523, 0.99418008, 0.98592085, 0.97062632, & - 0.99308867, 0.98972448, 0.97261528, 0.93947995, 0.88207117, & - 0.93322249, 0.89645776, 0.75765643, 0.6272883, 0.55435033 /), & - (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) - - ssp_snwalbdf = reshape((/ & - 0.99999586, 0.9999924, 0.99997249, 0.99993178, 0.9998534, & - 0.99988441, 0.99979202, 0.99926745, 0.99826865, 0.99647135, & - 0.99910997, 0.99837683, 0.99426171, 0.98610431, 0.97097643, & - 0.99476731, 0.9916114, 0.97441209, 0.94127464, 0.88440735, & - 0.9419837, 0.90613207, 0.77042376, 0.63887161, 0.5566098 /), & - (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) - - ssp_sasymmdr = reshape((/ & - 0.88503036, 0.88778473, 0.89049023, 0.89112501, 0.89136157, & - 0.88495225, 0.88905367, 0.89315385, 0.89433673, 0.8950027, & - 0.88440201, 0.88928256, 0.89503166, 0.89762648, 0.90045378, & - 0.88590371, 0.89350221, 0.90525156, 0.91314567, 0.92157748, & - 0.9033537, 0.91778261, 0.94615574, 0.96323447, 0.97167644 /), & - (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) - - ssp_sasymmdf = reshape((/ & - 0.88500571, 0.88773868, 0.89042496, 0.8910553, 0.89128949, & - 0.88495225, 0.88905367, 0.89315385, 0.89433673, 0.8950027 , & - 0.88441433, 0.88929133, 0.89500611, 0.89756091, 0.90035504, & - 0.88495554, 0.89201556, 0.90204619, 0.90914885, 0.91769988, & - 0.89620237, 0.90998944, 0.94126152, 0.96209938, 0.9726631 /), & - (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) - - else - call icepack_warnings_setabort(.true.,__FILE__,__LINE__) - call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)//' not supported') - return - endif - - if ((size(ssp_snwextdr,dim=2) /= nmbrad_snicar) .or. & - (size(ssp_snwextdf,dim=2) /= nmbrad_snicar) .or. & - (size(ssp_snwalbdr,dim=2) /= nmbrad_snicar) .or. & - (size(ssp_snwalbdf,dim=2) /= nmbrad_snicar) .or. & - (size(ssp_sasymmdr,dim=2) /= nmbrad_snicar) .or. & - (size(ssp_sasymmdf,dim=2) /= nmbrad_snicar)) then - call icepack_warnings_setabort(.true.,__FILE__,__LINE__) - call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)) - call icepack_warnings_add(subname//'ERROR: snw_ssp_table array size error') - return - endif - - write(warnstr,'(2a,i8)') subname, ' nmbrad_snicar = ',nmbrad_snicar - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i8)') subname, ' nspint = ',nspint_5bd - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',1, ',',1, ') = ',ssp_snwextdr(1,1) - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',nspint_5bd,',',1, ') = ',ssp_snwextdr(nspint_5bd,1) - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',1, ',',nmbrad_snicar,') = ',ssp_snwextdr(1,nmbrad_snicar) - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',nspint_5bd,',',nmbrad_snicar,') = ',ssp_snwextdr(nspint_5bd,nmbrad_snicar) - call icepack_warnings_add(warnstr) + call data_dEdd_5band() + if (icepack_warnings_aborted(subname)) return endif @@ -962,6 +823,7 @@ end subroutine absorbed_solar ! End ccsm3 shortwave method !======================================================================= + ! tabular data needed for the original dEdd scheme subroutine data_dEdd_3band @@ -1103,6 +965,157 @@ subroutine data_dEdd_3band end subroutine data_dEdd_3band +!======================================================================= +! Snow single-scattering properties for the 5-band dEdd_snicar option + + subroutine data_dEdd_5band + + ! local variables + + integer (kind=int_kind) :: n + + character (len=*),parameter :: subname='(data_dEdd_5band)' + + ! if snw_ssp_table = 'snicar' + ! best-fit parameters are read from a table (netcdf) + ! 1471 snow grain radii + ! 5 spectral intervals + + ! if snw_ssp_table = 'test' + ! for testing Icepack without netcdf, + ! use a subsampled, hard-coded table + ! 5 snow grain radii + ! 5 spectral intervals + + ! if snw_ssp_table = 'file' + ! all data has to be passed into icepack_parameters + + if (trim(snw_ssp_table) == 'snicar') then + ! table passed in, hardwired 1471 x 5 table + nmbrad_snicar = 1471 ! maximum snow grain radius index + rsnw_snicar_min = 30 + rsnw_snicar_max = 1500 + +!echmod - this might not be needed + allocate(rsnw_snicar_tab(nmbrad_snicar)) ! snow grain radii + rsnw_snicar_tab(1) = real(rsnw_snicar_min,dbl_kind) + do n = 1, nmbrad_snicar-1 + rsnw_snicar_tab(n+1) = rsnw_snicar_tab(n) + c1 + enddo + + elseif (trim(snw_ssp_table) == 'file') then + ! table passed in, table lookup + interpolate, not yet supported + nmbrad_snicar = size(ssp_snwextdr,dim=2) ! maximum snow grain radius index + call icepack_warnings_setabort(.true.,__FILE__,__LINE__) + call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)//' not supported') + return + + elseif (trim(snw_ssp_table) == 'test') then ! 5x5 table + nmbrad_snicar = 5 ! maximum snow grain radius index + + allocate(rsnw_snicar_tab(nmbrad_snicar)) ! snow grain radii + rsnw_snicar_tab = (/ & ! snow grain radius for each table entry (micro-meters) + 6._dbl_kind, 37._dbl_kind, 221._dbl_kind, 600._dbl_kind, 1340._dbl_kind/) + rsnw_snicar_min = rsnw_snicar_tab(1) ! minimum snow radius - integer value used for indexing + rsnw_snicar_max = rsnw_snicar_tab(nmbrad_snicar) ! maximum snow radius - integer value used for indexing + + if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) + if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) + if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) + if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) + if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) + if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) + allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar)) ! extinction coefficient, direct + allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar)) ! extinction coefficient, diffuse + allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar)) ! single-scattering albedo, direct + allocate(ssp_snwalbdf(nspint_5bd,nmbrad_snicar)) ! single-scattering albedo, diffuse + allocate(ssp_sasymmdr(nspint_5bd,nmbrad_snicar)) ! snow asymmetry factor, direct + allocate(ssp_sasymmdf(nspint_5bd,nmbrad_snicar)) ! snow asymmetry factor, diffuse + + ! tcraig, these data statements are not consistent with the array index order + ! reshape from nmbrad,nspint to nspint,nmbrad with order = 2,1 + + ssp_snwextdr = reshape((/ & + 46.27374983, 24.70286257, 6.54918455, 2.6035624, 1.196168, & + 46.56827715, 24.81790668, 6.56181227, 2.60604155, 1.19682614, & + 46.76114033, 24.90468677, 6.56950323, 2.60780948, 1.19737512, & + 46.9753992, 24.9495155, 6.57687695, 2.60937383, 1.19774008, & + 47.48598349, 25.14100194, 6.59708024, 2.61372576, 1.19897351 /), & + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) + + ssp_snwextdf = reshape((/ & + 46.26936158, 24.70165487, 6.54903637, 2.60353051, 1.19615825, & + 46.56628244, 24.81707286, 6.56164279, 2.60601584, 1.1968169, & + 46.75501968, 24.90175807, 6.5693214, 2.60775795, 1.19736237, & + 46.95368476, 24.94497414, 6.57612007, 2.60924059, 1.19770981, & + 47.29620774, 25.0713585, 6.5891698, 2.61198929, 1.19850197 /), & + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) + + ssp_snwalbdr = reshape((/ & + 0.99999581, 0.99999231, 0.99997215, 0.99993093, 0.99985157, & + 0.99987892, 0.99978212, 0.99923115, 0.99817946, 0.99628374, & + 0.99909682, 0.99835523, 0.99418008, 0.98592085, 0.97062632, & + 0.99308867, 0.98972448, 0.97261528, 0.93947995, 0.88207117, & + 0.93322249, 0.89645776, 0.75765643, 0.6272883, 0.55435033 /), & + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) + + ssp_snwalbdf = reshape((/ & + 0.99999586, 0.9999924, 0.99997249, 0.99993178, 0.9998534, & + 0.99988441, 0.99979202, 0.99926745, 0.99826865, 0.99647135, & + 0.99910997, 0.99837683, 0.99426171, 0.98610431, 0.97097643, & + 0.99476731, 0.9916114, 0.97441209, 0.94127464, 0.88440735, & + 0.9419837, 0.90613207, 0.77042376, 0.63887161, 0.5566098 /), & + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) + + ssp_sasymmdr = reshape((/ & + 0.88503036, 0.88778473, 0.89049023, 0.89112501, 0.89136157, & + 0.88495225, 0.88905367, 0.89315385, 0.89433673, 0.8950027, & + 0.88440201, 0.88928256, 0.89503166, 0.89762648, 0.90045378, & + 0.88590371, 0.89350221, 0.90525156, 0.91314567, 0.92157748, & + 0.9033537, 0.91778261, 0.94615574, 0.96323447, 0.97167644 /), & + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) + + ssp_sasymmdf = reshape((/ & + 0.88500571, 0.88773868, 0.89042496, 0.8910553, 0.89128949, & + 0.88495225, 0.88905367, 0.89315385, 0.89433673, 0.8950027 , & + 0.88441433, 0.88929133, 0.89500611, 0.89756091, 0.90035504, & + 0.88495554, 0.89201556, 0.90204619, 0.90914885, 0.91769988, & + 0.89620237, 0.90998944, 0.94126152, 0.96209938, 0.9726631 /), & + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) + + else + call icepack_warnings_setabort(.true.,__FILE__,__LINE__) + call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)//' not supported') + return + endif + + if ((size(ssp_snwextdr,dim=2) /= nmbrad_snicar) .or. & + (size(ssp_snwextdf,dim=2) /= nmbrad_snicar) .or. & + (size(ssp_snwalbdr,dim=2) /= nmbrad_snicar) .or. & + (size(ssp_snwalbdf,dim=2) /= nmbrad_snicar) .or. & + (size(ssp_sasymmdr,dim=2) /= nmbrad_snicar) .or. & + (size(ssp_sasymmdf,dim=2) /= nmbrad_snicar)) then + call icepack_warnings_setabort(.true.,__FILE__,__LINE__) + call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)) + call icepack_warnings_add(subname//'ERROR: snw_ssp_table array size error') + return + endif + + write(warnstr,'(2a,i8)') subname, ' nmbrad_snicar = ',nmbrad_snicar + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i8)') subname, ' nspint = ',nspint_5bd + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',1, ',',1, ') = ',ssp_snwextdr(1,1) + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',nspint_5bd,',',1, ') = ',ssp_snwextdr(nspint_5bd,1) + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',1, ',',nmbrad_snicar,') = ',ssp_snwextdr(1,nmbrad_snicar) + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',nspint_5bd,',',nmbrad_snicar,') = ',ssp_snwextdr(nspint_5bd,nmbrad_snicar) + call icepack_warnings_add(warnstr) + + end subroutine data_dEdd_5band + !======================================================================= ! Begin Delta-Eddington shortwave method @@ -1161,6 +1174,18 @@ subroutine run_dEdd(dt, ncat, & rsnow, & l_print_point, & l_use_snicar, & + ssp_snwextdr, & + ssp_snwextdf, & + ssp_snwalbdr, & + ssp_snwalbdf, & + ssp_sasymmdr, & + ssp_sasymmdf, & + kaer_5bd, waer_5bd, & + gaer_5bd, & + kaer_bc_5bd, & + waer_bc_5bd, & + gaer_bc_5bd, & + bcenh_5bd, & initonly) integer (kind=int_kind), intent(in) :: & @@ -1204,32 +1229,38 @@ subroutine run_dEdd(dt, ncat, & logical (kind=log_kind), intent(in) :: & l_use_snicar ! .true. use 5-band SNICAR-AD approach for snow -!echmod real (kind=dbl_kind), dimension(:,:), intent(in) :: & - real (kind=dbl_kind), dimension(nspint_5bd,1471) :: & + real (kind=dbl_kind), dimension(:,:), intent(in) :: & +! real (kind=dbl_kind), dimension(nspint_5bd,1471) :: & kaer_5bd, & ! aerosol mass extinction cross section (m2/kg) waer_5bd, & ! aerosol single scatter albedo (fraction) gaer_5bd ! aerosol asymmetry parameter (cos(theta)) -!echmod real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Modal aerosol treatment - real (kind=dbl_kind), dimension(nspint_5bd,1471) :: & + real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Modal aerosol treatment +! real (kind=dbl_kind), dimension(nspint_5bd,1471) :: & kaer_bc_5bd, & ! aerosol mass extinction cross section (m2/kg) waer_bc_5bd, & ! aerosol single scatter albedo (fraction) gaer_bc_5bd ! aerosol asymmetry parameter (cos(theta)) -!echmod real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment - real (kind=dbl_kind), dimension(nspint_5bd,10,8) :: & + real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment +! real (kind=dbl_kind), dimension(nspint_5bd,10,8) :: & bcenh_5bd ! BC absorption enhancement factor ! SNICAR snow grain single-scattering properties (SSP) for - ! direct (drc) and diffuse (dfs) shortwave incidents -! real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & - real (kind=dbl_kind), dimension(5,1471) :: & - asm_prm_ice_drc , & ! snow asymmetry factor (cos(theta)) - asm_prm_ice_dfs , & ! snow asymmetry factor (cos(theta)) - ss_alb_ice_drc , & ! snow single scatter albedo (fraction) - ss_alb_ice_dfs , & ! snow single scatter albedo (fraction) - ext_cff_mss_ice_drc , & ! snow mass extinction cross section (m2/kg) - ext_cff_mss_ice_dfs ! snow mass extinction cross section (m2/kg) + ! direct (dr) and diffuse (df) shortwave incidents + real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & + ssp_snwextdr , & ! snow mass extinction cross section, direct (m2/kg) + ssp_snwextdf , & ! snow mass extinction cross section, diffuse (m2/kg) + ssp_snwalbdr , & ! snow single scatter albedo, direct (fraction) + ssp_snwalbdf , & ! snow single scatter albedo, diffuse (fraction) + ssp_sasymmdr , & ! snow asymmetry factor, direct (cos(theta)) + ssp_sasymmdf ! snow asymmetry factor, diffuse (cos(theta)) +! real (kind=dbl_kind), dimension(5,1471) :: & +! asm_prm_ice_drc +! asm_prm_ice_dfs +! ss_alb_ice_drc +! ss_alb_ice_dfs , & ! snow single scatter albedo (fraction) +! ext_cff_mss_ice_drc +! ext_cff_mss_ice_dfs ! snow mass extinction cross section (m2/kg) character (len=char_len), intent(in) :: & calendar_type ! differentiates Gregorian from other calendars @@ -1352,17 +1383,6 @@ subroutine run_dEdd(dt, ncat, & character(len=*),parameter :: subname='(run_dEdd)' -!echmod - temporary, for testing -! l_use_snicar = .false. -! l_use_snicar = .true. - asm_prm_ice_drc = 0.90 ! snow asymmetry factor (cos(theta)) - asm_prm_ice_dfs = 0.89 ! snow asymmetry factor (cos(theta)) - ss_alb_ice_drc = 0.95 ! snow single scatter albedo (fraction) - ss_alb_ice_dfs = 0.99 ! snow single scatter albedo (fraction) - ext_cff_mss_ice_drc = 2.00 ! snow mass extinction cross section (m2/kg) - ext_cff_mss_ice_dfs = 1.50 ! snow mass extinction cross section (m2/kg) -!echmod end - allocate(l_fswthrun_vdr(ncat)) allocate(l_fswthrun_vdf(ncat)) allocate(l_fswthrun_idr(ncat)) @@ -1583,12 +1603,12 @@ subroutine run_dEdd(dt, ncat, & fswpenl=fswpenln(:,n), & zbio=trcrn_bgcsw(:,n), & l_use_snicar=l_use_snicar, & - asm_prm_ice_drc=asm_prm_ice_drc, & - asm_prm_ice_dfs=asm_prm_ice_dfs, & - ss_alb_ice_drc=ss_alb_ice_drc, & - ss_alb_ice_dfs=ss_alb_ice_dfs, & - ext_cff_mss_ice_drc=ext_cff_mss_ice_drc, & - ext_cff_mss_ice_dfs=ext_cff_mss_ice_dfs, & + asm_prm_ice_drc=ssp_sasymmdr, & ! echmod the name changes here - fix + asm_prm_ice_dfs=ssp_sasymmdf, & + ss_alb_ice_drc=ssp_snwalbdr, & + ss_alb_ice_dfs=ssp_snwalbdf, & + ext_cff_mss_ice_drc=ssp_snwextdr, & + ext_cff_mss_ice_dfs=ssp_snwextdf, & kaer_5bd=kaer_5bd, & waer_5bd=waer_5bd, & gaer_5bd=gaer_5bd, & @@ -1728,7 +1748,7 @@ subroutine shortwave_dEdd (dEdd_algae, & l_use_snicar ! .true. use 5-band SNICAR-AD approach for snow ! SNICAR snow grain single-scattering properties (SSP) for - ! direct (drc) and diffuse (dfs) shortwave incidents + ! direct (dr) and diffuse (df) shortwave incidents real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & asm_prm_ice_drc , & ! snow asymmetry factor (cos(theta)) asm_prm_ice_dfs , & ! snow asymmetry factor (cos(theta)) @@ -2300,7 +2320,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & l_use_snicar ! .true. use 5-band SNICAR-AD approach ! SNICAR snow grain single-scattering properties (SSP) for - ! direct (drc) and diffuse (dfs) shortwave incidents + ! direct (dr) and diffuse (df) shortwave incidents real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & asm_prm_ice_drc , & ! snow asymmetry factor (cos(theta)) asm_prm_ice_dfs , & ! snow asymmetry factor (cos(theta)) @@ -3104,26 +3124,43 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ks = ext_cff_mss_ice_drc(ns,nmbrad_snicar) ws = ss_alb_ice_drc (ns,nmbrad_snicar) gs = asm_prm_ice_drc (ns,nmbrad_snicar) - elseif (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then - nr = ceiling(rsnw(ksnow)) - 30 + 1 - ks = ext_cff_mss_ice_drc(ns,nr) - ws = ss_alb_ice_drc (ns,nr) - gs = asm_prm_ice_drc (ns,nr) - else ! linear interpolation in rsnw - ! radius = 30 --> nr = 1 in SNICAR table - nr = ceiling(rsnw(ksnow)) - 30 + 1 - delr = (rsnw(ksnow) - floor(rsnw(ksnow))) / & - (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) - ks = ext_cff_mss_ice_drc(ns,nr-1)*( delr) & - + ext_cff_mss_ice_drc(ns,nr )*(c1-delr) - ws = ss_alb_ice_drc (ns,nr-1)*( delr) & - + ss_alb_ice_drc (ns,nr )*(c1-delr) - gs = asm_prm_ice_drc (ns,nr-1)*( delr) & - + asm_prm_ice_drc (ns,nr )*(c1-delr) + elseif (trim(snw_ssp_table) == 'snicar') then ! assume index = int(snow grain radius) - 29 + if (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then + nr = ceiling(rsnw(ksnow)) - 30 + 1 + ks = ext_cff_mss_ice_drc(ns,nr) + ws = ss_alb_ice_drc (ns,nr) + gs = asm_prm_ice_drc (ns,nr) + else ! linear interpolation in rsnw + ! radius = 30 --> nr = 1 in SNICAR table + nr = ceiling(rsnw(ksnow)) - 30 + 1 + delr = (rsnw(ksnow) - floor(rsnw(ksnow))) / & + (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) + ks = ext_cff_mss_ice_drc(ns,nr-1)*( delr) & + + ext_cff_mss_ice_drc(ns,nr )*(c1-delr) + ws = ss_alb_ice_drc (ns,nr-1)*( delr) & + + ss_alb_ice_drc (ns,nr )*(c1-delr) + gs = asm_prm_ice_drc (ns,nr-1)*( delr) & + + asm_prm_ice_drc (ns,nr )*(c1-delr) + endif + else ! standard interpolation for nonuniform tabular values + do nr=2,nmbrad_snicar + if (rsnw_snicar_tab(nr-1) <= rsnw(ksnow) .and. & + rsnw(ksnow) < rsnw_snicar_tab(nr)) then + delr = (rsnw (ksnow) - rsnw_snicar_tab(nr-1)) / & + (rsnw_snicar_tab(nr) - rsnw_snicar_tab(nr-1)) + + ks = ext_cff_mss_ice_drc(ns,nr-1)*( delr) & + + ext_cff_mss_ice_drc(ns,nr )*(c1-delr) + ws = ss_alb_ice_drc (ns,nr-1)*( delr) & + + ss_alb_ice_drc (ns,nr )*(c1-delr) + gs = asm_prm_ice_drc (ns,nr-1)*( delr) & + + asm_prm_ice_drc (ns,nr )*(c1-delr) + endif + enddo ! nr endif - tau(k) = (ks*rhosnw(ksnow) + kabs_chl(ns,k))*dzk(k) - w0 (k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl(ns,k)) * ws - g (k) = gs + tau(k) = (ks*rhosnw(ksnow) + kabs_chl(ns,k))*dzk(k) + w0 (k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl(ns,k)) * ws + g (k) = gs !write(warning, *) "rsnw(ksnow)", rsnw(ksnow) !write(warning, *) "direct, k, tau, w0, g =", k, tau(k), w0(k), g(k) @@ -3142,26 +3179,43 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ks = ext_cff_mss_ice_dfs(ns,nmbrad_snicar) ws = ss_alb_ice_dfs (ns,nmbrad_snicar) gs = asm_prm_ice_dfs (ns,nmbrad_snicar) - elseif (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then - nr = ceiling(rsnw(ksnow)) - 30 + 1 - ks = ext_cff_mss_ice_dfs(ns,nr) - ws = ss_alb_ice_dfs (ns,nr) - gs = asm_prm_ice_dfs (ns,nr) - else ! linear interpolation in rsnw - ! radius = 30 --> nr = 1 in SNICAR table - nr = ceiling(rsnw(ksnow)) - 30 + 1 - delr = (rsnw(ksnow) - floor(rsnw(ksnow))) / & - (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) - ks = ext_cff_mss_ice_dfs(ns,nr-1)*( delr) & - + ext_cff_mss_ice_dfs(ns,nr )*(c1-delr) - ws = ss_alb_ice_dfs (ns,nr-1)*( delr) & - + ss_alb_ice_dfs (ns,nr )*(c1-delr) - gs = asm_prm_ice_dfs (ns,nr-1)*( delr) & - + asm_prm_ice_dfs (ns,nr )*(c1-delr) + elseif (trim(snw_ssp_table) == 'snicar') then ! assume index = int(snow grain radius) - 29 + if (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then + nr = ceiling(rsnw(ksnow)) - 30 + 1 + ks = ext_cff_mss_ice_dfs(ns,nr) + ws = ss_alb_ice_dfs (ns,nr) + gs = asm_prm_ice_dfs (ns,nr) + else ! linear interpolation in rsnw + ! radius = 30 --> nr = 1 in SNICAR table + nr = ceiling(rsnw(ksnow)) - 30 + 1 + delr = (rsnw(ksnow) - floor(rsnw(ksnow))) / & + (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) + ks = ext_cff_mss_ice_dfs(ns,nr-1)*( delr) & + + ext_cff_mss_ice_dfs(ns,nr )*(c1-delr) + ws = ss_alb_ice_dfs (ns,nr-1)*( delr) & + + ss_alb_ice_dfs (ns,nr )*(c1-delr) + gs = asm_prm_ice_dfs (ns,nr-1)*( delr) & + + asm_prm_ice_dfs (ns,nr )*(c1-delr) + endif + else ! standard interpolation for nonuniform tabular values + do nr=2,nmbrad_snicar + if (rsnw_snicar_tab(nr-1) <= rsnw(ksnow) .and. & + rsnw(ksnow) < rsnw_snicar_tab(nr)) then + delr = (rsnw (ksnow) - rsnw_snicar_tab(nr-1)) / & + (rsnw_snicar_tab(nr) - rsnw_snicar_tab(nr-1)) + + ks = ext_cff_mss_ice_dfs(ns,nr-1)*( delr) & + + ext_cff_mss_ice_dfs(ns,nr )*(c1-delr) + ws = ss_alb_ice_dfs (ns,nr-1)*( delr) & + + ss_alb_ice_dfs (ns,nr )*(c1-delr) + gs = asm_prm_ice_dfs (ns,nr-1)*( delr) & + + asm_prm_ice_dfs (ns,nr )*(c1-delr) + endif + enddo ! nr endif - tau(k) = (ks*rhosnw(ksnow) + kabs_chl(ns,k))*dzk(k) - w0 (k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl(ns,k)) * ws - g (k) = gs + tau(k) = (ks*rhosnw(ksnow) + kabs_chl(ns,k))*dzk(k) + w0 (k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl(ns,k)) * ws + g (k) = gs !write(warning, *) "rsnw(ksnow)", rsnw(ksnow) !write(warning, *) "diffuse, k, tau, w0, g =", k, tau(k), w0(k), g(k) @@ -4829,6 +4883,22 @@ subroutine icepack_step_radiation (dt, ncat, & real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & bcenh_3bd ! BC absorption enhancement factor +! real (kind=dbl_kind), dimension(:,:), intent(in) :: & + real (kind=dbl_kind), dimension(nspint_5bd,1471) :: & + kaer_5bd, & ! aerosol mass extinction cross section (m2/kg) + waer_5bd, & ! aerosol single scatter albedo (fraction) + gaer_5bd ! aerosol asymmetry parameter (cos(theta)) + +! real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Modal aerosol treatment + real (kind=dbl_kind), dimension(nspint_5bd,1471) :: & + kaer_bc_5bd, & ! aerosol mass extinction cross section (m2/kg) + waer_bc_5bd, & ! aerosol single scatter albedo (fraction) + gaer_bc_5bd ! aerosol asymmetry parameter (cos(theta)) + +! real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment + real (kind=dbl_kind), dimension(nspint_5bd,10,8) :: & + bcenh_5bd ! BC absorption enhancement factor + real (kind=dbl_kind), dimension(:), intent(in) :: & aicen , & ! ice area fraction in each category vicen , & ! ice volume in each category (m) @@ -4912,6 +4982,16 @@ subroutine icepack_step_radiation (dt, ncat, & character(len=*),parameter :: subname='(icepack_step_radiation)' +!echmod TEMPORARY + kaer_5bd=c0 + waer_5bd=c0 + gaer_5bd=c0 + kaer_bc_5bd=c0 + waer_bc_5bd=c0 + gaer_bc_5bd=c0 + bcenh_5bd=c0 +!echmod end + allocate(l_fswthrun_vdr(ncat)) allocate(l_fswthrun_vdf(ncat)) allocate(l_fswthrun_idr(ncat)) @@ -5016,8 +5096,21 @@ subroutine icepack_step_radiation (dt, ncat, & ffracn=ffracn, & rsnow=l_rsnow, & l_print_point=l_print_point, & -!echmod: all routines have access to module data above so maybe use_snicar need not be passed through +!echmod: all routines have access to module data above so maybe use_snicar etc need not be passed through l_use_snicar=use_snicar, & + ssp_snwextdr=ssp_snwextdr, & + ssp_snwextdf=ssp_snwextdf, & + ssp_snwalbdr=ssp_snwalbdr, & + ssp_snwalbdf=ssp_snwalbdf, & + ssp_sasymmdr=ssp_sasymmdr, & + ssp_sasymmdf=ssp_sasymmdf, & + kaer_5bd=kaer_5bd, & + waer_5bd=waer_5bd, & + gaer_5bd=gaer_5bd, & + kaer_bc_5bd=kaer_bc_5bd, & + waer_bc_5bd=waer_bc_5bd, & + gaer_bc_5bd=gaer_bc_5bd, & + bcenh_5bd=bcenh_5bd, & initonly=linitonly) if (icepack_warnings_aborted(subname)) return diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90 index 3ec2a6752..7e4d10dea 100644 --- a/configuration/driver/icedrv_init.F90 +++ b/configuration/driver/icedrv_init.F90 @@ -88,6 +88,7 @@ subroutine input_data n ! loop index character (len=char_len) :: diag_file_names + character (len=char_len), dimension(4) :: nx_names_default real (kind=dbl_kind) :: ustar_min, albicev, albicei, albsnowv, albsnowi, & ahmax, R_ice, R_pnd, R_snw, dT_mlt, rsnw_mlt, ksno, & @@ -463,10 +464,13 @@ subroutine input_data do n = 1,nx write(nx_names(n),'(a,i2.2)') 'point_',n enddo - nx_names(1) = 'icefree' - nx_names(2) = 'slab' - nx_names(3) = 'full_ITD' - nx_names(4) = 'land' + nx_names_default(1) = 'icefree' + nx_names_default(2) = 'slab' + nx_names_default(3) = 'full_ITD' + nx_names_default(4) = 'land' + do n = 1,nx + nx_names(n) = nx_names_default(n) + enddo do n = 1,nx diag_file_names=' ' @@ -1487,6 +1491,7 @@ subroutine set_state_var (nx, & !----------------------------------------------------------------- i = 2 ! 2-m slab, no snow + if (i <= nx) then if (3 <= ncat) then n = 3 ainit(n) = c1 ! assumes we are using the default ITD boundaries @@ -1540,10 +1545,12 @@ subroutine set_state_var (nx, & call icepack_warnings_flush(nu_diag) if (icepack_warnings_aborted()) call icedrv_system_abort(string=subname, & file=__FILE__, line=__LINE__) + endif !----------------------------------------------------------------- i = 3 ! full thickness distribution + if (i <= nx) then ! initial category areas in cells with ice hbar = c3 ! initial ice thickness with greatest area ! Note: the resulting average ice thickness @@ -1610,14 +1617,17 @@ subroutine set_state_var (nx, & call icepack_warnings_flush(nu_diag) if (icepack_warnings_aborted()) call icedrv_system_abort(string=subname, & file=__FILE__, line=__LINE__) + endif !----------------------------------------------------------------- ! land ! already initialized above (tmask = 0) i = 4 + if (i <= nx) then sst(i) = c0 Tf(i) = c0 + endif end subroutine set_state_var diff --git a/configuration/scripts/options/set_env.snicar b/configuration/scripts/options/set_env.snicar index 1824dde94..7ac74351d 100644 --- a/configuration/scripts/options/set_env.snicar +++ b/configuration/scripts/options/set_env.snicar @@ -1 +1,2 @@ setenv ICE_IOTYPE netcdf +setenv ICE_NXGLOB 1 From 6d68ee90dcb20824a0773e98f890548d460bbd04 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Fri, 26 Aug 2022 15:16:54 -0600 Subject: [PATCH 17/64] move more data to 3- and 5-band initialization routines, use module data for use_snicar --- columnphysics/icepack_shortwave.F90 | 290 ++++++++++++---------------- 1 file changed, 127 insertions(+), 163 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 882af2edd..0f9d45fb3 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -92,19 +92,36 @@ module icepack_shortwave real (kind=dbl_kind), parameter :: & exp_argmax = c10 ! maximum argument of exponential - ! SNICAR SSP - integer (kind=int_kind) :: nmbrad_snicar ! number of snow grain radii in tables - integer (kind=int_kind) :: rsnw_snicar_max ! maximum snow radius - integer value used for indexing - integer (kind=int_kind) :: rsnw_snicar_min ! minimum snow radius - integer value used for indexing - real (kind=dbl_kind), dimension(:) , allocatable :: rsnw_snicar_tab ! snow grain radii (micro-meters) for table + ! dEdd 3-band data + real (kind=dbl_kind), dimension (nspint_3bd) :: & + ! inherent optical properties (iop) + ! k = extinction coefficient (/m) + ! w = single scattering albedo + ! g = asymmetry parameter + ki_ssl_mn_3bd, wi_ssl_mn_3bd, gi_ssl_mn_3bd, & ! ice surface scattering layer (ssl) iops + ki_dl_mn_3bd, wi_dl_mn_3bd, gi_dl_mn_3bd , & ! ice drained layer (dl) iops + ki_int_mn_3bd, wi_int_mn_3bd, gi_int_mn_3bd, & ! ice interior layer (int) iops + ki_p_ssl_mn, wi_p_ssl_mn, gi_p_ssl_mn , & ! ponded ice surface scattering layer (ssl) iops + ki_p_int_mn, wi_p_int_mn, gi_p_int_mn , & ! ponded ice interior layer (int) iops + kw, ww, gw ! iops for pond water and underlying ocean - ! Snow table data integer (kind=int_kind) :: nmbrad ! number of snow grain radii in tables real (kind=dbl_kind), dimension(:) , allocatable :: rsnw_tab ! snow grain radii (micro-meters) for table real (kind=dbl_kind), dimension(:,:), allocatable :: Qs_tab ! snow extinction efficiency (unitless) real (kind=dbl_kind), dimension(:,:), allocatable :: ws_tab ! snow single scattering albedo (unitless) real (kind=dbl_kind), dimension(:,:), allocatable :: gs_tab ! snow asymmetry parameter (unitless) + ! dEdd 5-band data + real (kind=dbl_kind), dimension (nspint_5bd) :: & + ki_ssl_mn_5bd, wi_ssl_mn_5bd, gi_ssl_mn_5bd, & ! ice surface scattering layer (ssl) iops + ki_dl_mn_5bd, wi_dl_mn_5bd, gi_dl_mn_5bd , & ! ice drained layer (dl) iops + ki_int_mn_5bd, wi_int_mn_5bd, gi_int_mn_5bd ! ice interior layer (int) iops + + integer (kind=int_kind) :: nmbrad_snicar ! number of snow grain radii in tables + integer (kind=int_kind) :: rsnw_snicar_max ! maximum snow radius - integer value used for indexing + integer (kind=int_kind) :: rsnw_snicar_min ! minimum snow radius - integer value used for indexing + real (kind=dbl_kind), dimension(:), allocatable :: rsnw_snicar_tab ! snow grain radii (10^-6 m) + !======================================================================= contains @@ -963,6 +980,39 @@ subroutine data_dEdd_3band 0.891386_dbl_kind, 0.897399_dbl_kind, 0.954156_dbl_kind/), & (/nspint_3bd,nmbrad/)) + ! ice surface scattering layer (ssl) iops + ki_ssl_mn_3bd = (/ 1000.1_dbl_kind, 1003.7_dbl_kind, 7042._dbl_kind/) + wi_ssl_mn_3bd = (/ .9999_dbl_kind, .9963_dbl_kind, .9088_dbl_kind/) + gi_ssl_mn_3bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind/) + + ! ice drained layer (dl) iops + ki_dl_mn_3bd = (/ 100.2_dbl_kind, 107.7_dbl_kind, 1309._dbl_kind /) + wi_dl_mn_3bd = (/ .9980_dbl_kind, .9287_dbl_kind, .0305_dbl_kind /) + gi_dl_mn_3bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) + + ! ice interior layer (int) iops + ki_int_mn_3bd = (/ 20.2_dbl_kind, 27.7_dbl_kind, 1445._dbl_kind /) + wi_int_mn_3bd = (/ .9901_dbl_kind, .7223_dbl_kind, .0277_dbl_kind /) + gi_int_mn_3bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) + + ! ponded ice surface scattering layer (ssl) iops + ki_p_ssl_mn = (/ 70.2_dbl_kind, 77.7_dbl_kind, 1309._dbl_kind/) + wi_p_ssl_mn = (/ .9972_dbl_kind, .9009_dbl_kind, .0305_dbl_kind/) + gi_p_ssl_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) + + ! ponded ice interior layer (int) iops + ki_p_int_mn = (/ 20.2_dbl_kind, 27.7_dbl_kind, 1445._dbl_kind/) + wi_p_int_mn = (/ .9901_dbl_kind, .7223_dbl_kind, .0277_dbl_kind/) + gi_p_int_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) + + ! inherent optical property (iop) arrays for pond water and underlying ocean + ! kw = Pond water extinction coefficient (/m) + ! ww = Pond water single scattering albedo + ! gw = Pond water asymmetry parameter + kw = (/ 0.20_dbl_kind, 12.0_dbl_kind, 729._dbl_kind /) + ww = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /) + gw = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /) + end subroutine data_dEdd_3band !======================================================================= @@ -1114,6 +1164,43 @@ subroutine data_dEdd_5band write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',nspint_5bd,',',nmbrad_snicar,') = ',ssp_snwextdr(nspint_5bd,nmbrad_snicar) call icepack_warnings_add(warnstr) + ! 5-bands ice surface scattering layer (ssl) iops to match SNICAR calculations + ! note by Cheng Dang: + ! for now these data are not needed since the sea ice layer IOPs can be directly + ! assigned based on the 3 bands data after adjustment based on tuning parameter R_ice + ! In the future, when 5-band sea ice IOPs are available, these data shall be updated + ! and the sea ice layer IOPs shall be calculated based on updated 5band iops* +!echmod - the comment above says these are not needed but they are nevertheless used below + ! + ! The 5band data given in this section are based on CICE and SNICAR band choice: + ! SNICAR band 1 = CICE band 1 + ! SNICAR band 2 + SNICAR band 3 = CICE band 2 + ! SNICAR band 4 + SNICAR band 5 = CICE band 3 + + ! ice surface scattering layer (ssl) iops + ki_ssl_mn_5bd = (/ 1000.1_dbl_kind, 1003.7_dbl_kind, 1003.7_dbl_kind, & + 7042._dbl_kind, 7042._dbl_kind /) + wi_ssl_mn_5bd = (/ .9999_dbl_kind, .9963_dbl_kind, .9963_dbl_kind, & + .9088_dbl_kind, .9088_dbl_kind /) + gi_ssl_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & + .94_dbl_kind, .94_dbl_kind /) + + ! ice drained layer (dl) iops + ki_dl_mn_5bd = (/ 100.2_dbl_kind, 107.7_dbl_kind, 107.7_dbl_kind, & + 1309._dbl_kind, 1309._dbl_kind /) + wi_dl_mn_5bd = (/ .9980_dbl_kind, .9287_dbl_kind, .9287_dbl_kind, & + .0305_dbl_kind, .0305_dbl_kind /) + gi_dl_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & + .94_dbl_kind, .94_dbl_kind /) + + ! ice interior layer (int) iops + ki_int_mn_5bd = (/ 20.2_dbl_kind, 27.7_dbl_kind, 27.7_dbl_kind, & + 1445._dbl_kind, 1445._dbl_kind/) + wi_int_mn_5bd = (/ .9901_dbl_kind, .7223_dbl_kind, .7223_dbl_kind, & + .0277_dbl_kind, .0277_dbl_kind /) + gi_int_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & + .94_dbl_kind, .94_dbl_kind /) + end subroutine data_dEdd_5band !======================================================================= @@ -1173,13 +1260,6 @@ subroutine run_dEdd(dt, ncat, & dhsn, ffracn, & rsnow, & l_print_point, & - l_use_snicar, & - ssp_snwextdr, & - ssp_snwextdf, & - ssp_snwalbdr, & - ssp_snwalbdf, & - ssp_sasymmdr, & - ssp_sasymmdf, & kaer_5bd, waer_5bd, & gaer_5bd, & kaer_bc_5bd, & @@ -1226,41 +1306,18 @@ subroutine run_dEdd(dt, ncat, & real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment bcenh_3bd ! BC absorption enhancement factor - logical (kind=log_kind), intent(in) :: & - l_use_snicar ! .true. use 5-band SNICAR-AD approach for snow - real (kind=dbl_kind), dimension(:,:), intent(in) :: & -! real (kind=dbl_kind), dimension(nspint_5bd,1471) :: & kaer_5bd, & ! aerosol mass extinction cross section (m2/kg) waer_5bd, & ! aerosol single scatter albedo (fraction) gaer_5bd ! aerosol asymmetry parameter (cos(theta)) real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Modal aerosol treatment -! real (kind=dbl_kind), dimension(nspint_5bd,1471) :: & kaer_bc_5bd, & ! aerosol mass extinction cross section (m2/kg) waer_bc_5bd, & ! aerosol single scatter albedo (fraction) gaer_bc_5bd ! aerosol asymmetry parameter (cos(theta)) real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment -! real (kind=dbl_kind), dimension(nspint_5bd,10,8) :: & - bcenh_5bd ! BC absorption enhancement factor - - ! SNICAR snow grain single-scattering properties (SSP) for - ! direct (dr) and diffuse (df) shortwave incidents - real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & - ssp_snwextdr , & ! snow mass extinction cross section, direct (m2/kg) - ssp_snwextdf , & ! snow mass extinction cross section, diffuse (m2/kg) - ssp_snwalbdr , & ! snow single scatter albedo, direct (fraction) - ssp_snwalbdf , & ! snow single scatter albedo, diffuse (fraction) - ssp_sasymmdr , & ! snow asymmetry factor, direct (cos(theta)) - ssp_sasymmdf ! snow asymmetry factor, diffuse (cos(theta)) -! real (kind=dbl_kind), dimension(5,1471) :: & -! asm_prm_ice_drc -! asm_prm_ice_dfs -! ss_alb_ice_drc -! ss_alb_ice_dfs , & ! snow single scatter albedo (fraction) -! ext_cff_mss_ice_drc -! ext_cff_mss_ice_dfs ! snow mass extinction cross section (m2/kg) + bcenh_5bd ! BC absorption enhancement factor character (len=char_len), intent(in) :: & calendar_type ! differentiates Gregorian from other calendars @@ -1602,7 +1659,6 @@ subroutine run_dEdd(dt, ncat, & albpnd=albpndn(n), & fswpenl=fswpenln(:,n), & zbio=trcrn_bgcsw(:,n), & - l_use_snicar=l_use_snicar, & asm_prm_ice_drc=ssp_sasymmdr, & ! echmod the name changes here - fix asm_prm_ice_dfs=ssp_sasymmdf, & ss_alb_ice_drc=ssp_snwalbdr, & @@ -1705,7 +1761,6 @@ subroutine shortwave_dEdd (dEdd_algae, & albsno, albpnd, & fswpenl, zbio, & l_print_point, & - l_use_snicar, & asm_prm_ice_drc, & asm_prm_ice_dfs, & ss_alb_ice_drc, & @@ -1744,9 +1799,6 @@ subroutine shortwave_dEdd (dEdd_algae, & real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment bcenh_3bd ! BC absorption enhancement factor - logical (kind=log_kind), intent(in), optional :: & - l_use_snicar ! .true. use 5-band SNICAR-AD approach for snow - ! SNICAR snow grain single-scattering properties (SSP) for ! direct (dr) and diffuse (df) shortwave incidents real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & @@ -1960,8 +2012,7 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl, & - l_use_snicar) + Iswabs, fswpenl) if (icepack_warnings_aborted(subname)) return alvdr = alvdr + avdrl *fi @@ -1984,7 +2035,7 @@ subroutine shortwave_dEdd (dEdd_algae, & ! calculate snow covered sea ice srftyp = 1 - if (l_use_snicar) then + if (use_snicar) then nspint = nspint_5bd call compute_dEdd(nilyr, nslyr, nspint, & klev, klevp, zbio, dEdd_algae, & @@ -2009,7 +2060,6 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idf, & Sswabs, & Iswabs, fswpenl, & - l_use_snicar, & asm_prm_ice_drc, asm_prm_ice_dfs, & ss_alb_ice_drc, ss_alb_ice_dfs, & ext_cff_mss_ice_drc, ext_cff_mss_ice_dfs) @@ -2038,8 +2088,7 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl, & - l_use_snicar) + Iswabs, fswpenl) endif if (icepack_warnings_aborted(subname)) return @@ -2091,8 +2140,7 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl, & - l_use_snicar) + Iswabs, fswpenl) if (icepack_warnings_aborted(subname)) return alvdr = alvdr + avdrl *fp @@ -2193,6 +2241,7 @@ end subroutine shortwave_dEdd ! author: Bruce P. Briegleb, NCAR ! 2013: E Hunke merged with NCAR version ! 2018: Cheng Dang merged with SNICAR 5-band snow and aersols IOPs, UC Irvine +! 2022: E Hunke, T Craig moved data (now module data) ! Note regarding SNICAR 5-band scheme: ! 1. The shortwave radiative transfer properties of snow-covered sea ice are @@ -2232,7 +2281,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & fswthru_idf, & Sswabs, & Iswabs, fswpenl, & - l_use_snicar, & asm_prm_ice_drc, asm_prm_ice_dfs, & ss_alb_ice_drc, ss_alb_ice_dfs, & ext_cff_mss_ice_drc, ext_cff_mss_ice_dfs) @@ -2316,9 +2364,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & Sswabs , & ! SW absorbed in snow layer (W m-2) Iswabs ! SW absorbed in ice layer (W m-2) - logical (kind=log_kind), intent(in) :: & - l_use_snicar ! .true. use 5-band SNICAR-AD approach - ! SNICAR snow grain single-scattering properties (SSP) for ! direct (dr) and diffuse (df) shortwave incidents real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & @@ -2599,46 +2644,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ki_dl_mn, wi_dl_mn, gi_dl_mn , & ! ice drained layer (dl) iops ki_int_mn, wi_int_mn, gi_int_mn ! ice interior layer (int) iops - ! 3-band data values - ! ice surface scattering layer (ssl) iops - real (kind=dbl_kind), dimension (nspint_3bd), parameter :: & - ki_ssl_mn_3bd = (/ 1000.1_dbl_kind, 1003.7_dbl_kind, 7042._dbl_kind/), & - wi_ssl_mn_3bd = (/ .9999_dbl_kind, .9963_dbl_kind, .9088_dbl_kind/), & - gi_ssl_mn_3bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind/) - - ! ice drained layer (dl) iops - real (kind=dbl_kind), dimension (nspint_3bd), parameter :: & - ki_dl_mn_3bd = (/ 100.2_dbl_kind, 107.7_dbl_kind, 1309._dbl_kind /), & - wi_dl_mn_3bd = (/ .9980_dbl_kind, .9287_dbl_kind, .0305_dbl_kind /), & - gi_dl_mn_3bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) - - ! ice interior layer (int) iops - real (kind=dbl_kind), dimension (nspint_3bd), parameter :: & - ki_int_mn_3bd = (/ 20.2_dbl_kind, 27.7_dbl_kind, 1445._dbl_kind /), & - wi_int_mn_3bd = (/ .9901_dbl_kind, .7223_dbl_kind, .0277_dbl_kind /), & - gi_int_mn_3bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) - - ! ponded ice surface scattering layer (ssl) iops - real (kind=dbl_kind), dimension (nspint_3bd), parameter :: & - ki_p_ssl_mn = (/ 70.2_dbl_kind, 77.7_dbl_kind, 1309._dbl_kind/), & - wi_p_ssl_mn = (/ .9972_dbl_kind, .9009_dbl_kind, .0305_dbl_kind/), & - gi_p_ssl_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) - - ! ponded ice interior layer (int) iops - real (kind=dbl_kind), dimension (nspint_3bd), parameter :: & - ki_p_int_mn = (/ 20.2_dbl_kind, 27.7_dbl_kind, 1445._dbl_kind/), & - wi_p_int_mn = (/ .9901_dbl_kind, .7223_dbl_kind, .0277_dbl_kind/), & - gi_p_int_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) - - ! inherent optical property (iop) arrays for pond water and underlying ocean - ! kw = Pond water extinction coefficient (/m) - ! ww = Pond water single scattering albedo - ! gw = Pond water asymmetry parameter - real (kind=dbl_kind), dimension (nspint_3bd), parameter :: & - kw = (/ 0.20_dbl_kind, 12.0_dbl_kind, 729._dbl_kind /), & - ww = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /), & - gw = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /) - real (kind=dbl_kind), parameter :: & rhoi = 917.0_dbl_kind,& ! pure ice mass density (kg/m3) - echmod HARDCODED! fix! fr_max = 1.00_dbl_kind, & ! snow grain adjustment factor max @@ -2680,46 +2685,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & sza_factor , & ! parameter for high sza adjustment mu0 - ! 5-bands ice surface scattering layer (ssl) iops to match SNICAR calculations - ! note by Cheng Dang: - ! for now these data are not needed since the sea ice layer IOPs can be directly - ! assigned based on the 3 bands data after adjustment based on tuning parameter R_ice - ! In the future, when 5-band sea ice IOPs are available, these data shall be updated - ! and the sea ice layer IOPs shall be calculated based on updated 5band iops* -!echmod - the comment above says these are not needed but they are nevertheless used below - ! - ! The 5band data given in this section are based on CICE and SNICAR band choice: - ! SNICAR band 1 = CICE band 1 - ! SNICAR band 2 + SNICAR band 3 = CICE band 2 - ! SNICAR band 4 + SNICAR band 5 = CICE band 3 - - ! ice surface scattering layer (ssl) iops - real (kind=dbl_kind), dimension (nspint_5bd), parameter :: & - ki_ssl_mn_5bd = (/ 1000.1_dbl_kind, 1003.7_dbl_kind, 1003.7_dbl_kind, & - 7042._dbl_kind, 7042._dbl_kind /), & - wi_ssl_mn_5bd = (/ .9999_dbl_kind, .9963_dbl_kind, .9963_dbl_kind, & - .9088_dbl_kind, .9088_dbl_kind /), & - gi_ssl_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & - .94_dbl_kind, .94_dbl_kind /) - - ! ice drained layer (dl) iops - real (kind=dbl_kind), dimension (nspint_5bd), parameter :: & - ki_dl_mn_5bd = (/ 100.2_dbl_kind, 107.7_dbl_kind, 107.7_dbl_kind, & - 1309._dbl_kind, 1309._dbl_kind /), & - wi_dl_mn_5bd = (/ .9980_dbl_kind, .9287_dbl_kind, .9287_dbl_kind, & - .0305_dbl_kind, .0305_dbl_kind /), & - gi_dl_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & - .94_dbl_kind, .94_dbl_kind /) - - ! ice interior layer (int) iops - real (kind=dbl_kind), dimension (nspint_5bd), parameter :: & - ki_int_mn_5bd = (/ 20.2_dbl_kind, 27.7_dbl_kind, 27.7_dbl_kind, & - 1445._dbl_kind, 1445._dbl_kind/), & - wi_int_mn_5bd = (/ .9901_dbl_kind, .7223_dbl_kind, .7223_dbl_kind, & - .0277_dbl_kind, .0277_dbl_kind /), & - gi_int_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & - .94_dbl_kind, .94_dbl_kind /) - character(len=*),parameter :: subname='(compute_dEdd)' !----------------------------------------------------------------------- @@ -2763,7 +2728,27 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ki_int_mn = ki_int_mn_3bd wi_int_mn = wi_int_mn_3bd gi_int_mn = gi_int_mn_3bd - elseif (l_use_snicar .and. nspint == nspint_5bd) then + + ! spectral weights 2 (0.7-1.19 micro-meters) and 3 (1.19-5.0 micro-meters) + ! are chosen based on 1D calculations using ratio of direct to total + ! near-infrared solar (0.7-5.0 micro-meter) which indicates clear/cloudy + ! conditions: more cloud, the less 1.19-5.0 relative to the + ! 0.7-1.19 micro-meter due to cloud absorption. + wghtns(1) = c1 + wghtns(2) = cp67 + (cp78-cp67)*(c1-fnidr) + wghtns(3) = c1 - wghtns(2) + + ki_ssl_mn = ki_ssl_mn_3bd + wi_ssl_mn = wi_ssl_mn_3bd + gi_ssl_mn = gi_ssl_mn_3bd + ki_dl_mn = ki_dl_mn_3bd + wi_dl_mn = wi_dl_mn_3bd + gi_dl_mn = gi_dl_mn_3bd + ki_int_mn = ki_int_mn_3bd + wi_int_mn = wi_int_mn_3bd + gi_int_mn = gi_int_mn_3bd + + elseif (use_snicar .and. nspint == nspint_5bd) then ki_ssl_mn = ki_ssl_mn_5bd wi_ssl_mn = wi_ssl_mn_5bd gi_ssl_mn = gi_ssl_mn_5bd @@ -2773,22 +2758,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ki_int_mn = ki_int_mn_5bd wi_int_mn = wi_int_mn_5bd gi_int_mn = gi_int_mn_5bd - else - !echmod abort - endif - - ! spectral weights - if (nspint == nspint_3bd) then - ! weights 2 (0.7-1.19 micro-meters) and 3 (1.19-5.0 micro-meters) - ! are chosen based on 1D calculations using ratio of direct to total - ! near-infrared solar (0.7-5.0 micro-meter) which indicates clear/cloudy - ! conditions: more cloud, the less 1.19-5.0 relative to the - ! 0.7-1.19 micro-meter due to cloud absorption. - wghtns(1) = c1 - wghtns(2) = cp67 + (cp78-cp67)*(c1-fnidr) - wghtns(3) = c1 - wghtns(2) - elseif (l_use_snicar .and. nspint == nspint_5bd) then ! direct beam incident ! add-local-variable wghtns_5bd_drc(1) = 1._dbl_kind @@ -2803,6 +2773,8 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & wghtns_5bd_dfs(3) = 0.20156903770812_dbl_kind wghtns_5bd_dfs(4) = 0.10917889346386_dbl_kind wghtns_5bd_dfs(5) = c1-(wghtns_5bd_dfs(2)+wghtns_5bd_dfs(3)+wghtns_5bd_dfs(4)) + else + !echmod abort endif ! find snow grain adjustment factor, dependent upon clear/overcast sky @@ -2931,7 +2903,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & else ! bare sea ice or ponded ice ksrf = nslyr + 2 - if (l_use_snicar .and. nspint == nspint_5bd) then + if (use_snicar .and. nspint == nspint_5bd) then call icepack_warnings_add(subname//' ERROR: snicar used for srftyp /= snow') call icepack_warnings_setabort(.true.,__FILE__,__LINE__) endif @@ -2957,7 +2929,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ksnow = k - min(k-1,0) if (nspint == nspint_3bd) then tmp_gs = frsnw(ksnow) - elseif (l_use_snicar .and. nspint == nspint_5bd) then + elseif (use_snicar .and. nspint == nspint_5bd) then tmp_gs = rsnw(ksnow) endif @@ -3111,7 +3083,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & g(k) = gs enddo ! k - elseif (l_use_snicar .and. nspint == nspint_5bd) then + elseif (use_snicar .and. nspint == nspint_5bd) then ! SNICAR 5-band ! direct incident do k=0,nslyr @@ -3763,7 +3735,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & * wghtns(ns) enddo ! k - elseif (l_use_snicar .and. nspint == nspint_5bd) then + elseif (use_snicar .and. nspint == nspint_5bd) then ! let fr2(3,4,5) = alb_2(3,4,5)*swd*wght2(3,4,5) ! the ns=2(3,4,5) reflected fluxes respectively, @@ -3837,7 +3809,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! solar zenith angle parameterization ! calculate the scaling factor for NIR direct albedo if SZA>75 degree sza_factor = c1 - if (l_use_snicar .and. nspint == nspint_5bd) then + if (use_snicar .and. nspint == nspint_5bd) then mu0 = max(coszen,p01) if (mu0 < mu_75) then sza_c1 = sza_a0 + sza_a1 * mu0 + sza_a2 * mu0**2 @@ -5096,14 +5068,6 @@ subroutine icepack_step_radiation (dt, ncat, & ffracn=ffracn, & rsnow=l_rsnow, & l_print_point=l_print_point, & -!echmod: all routines have access to module data above so maybe use_snicar etc need not be passed through - l_use_snicar=use_snicar, & - ssp_snwextdr=ssp_snwextdr, & - ssp_snwextdf=ssp_snwextdf, & - ssp_snwalbdr=ssp_snwalbdr, & - ssp_snwalbdf=ssp_snwalbdf, & - ssp_sasymmdr=ssp_sasymmdr, & - ssp_sasymmdf=ssp_sasymmdf, & kaer_5bd=kaer_5bd, & waer_5bd=waer_5bd, & gaer_5bd=gaer_5bd, & From b3ca79c75ee3d40e8d3351a12e7f9dcdfe0041d1 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Fri, 26 Aug 2022 15:26:51 -0600 Subject: [PATCH 18/64] change snicar coefficient names and use module data for them --- columnphysics/icepack_shortwave.F90 | 128 ++++++++++------------------ 1 file changed, 44 insertions(+), 84 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 0f9d45fb3..8af9c6903 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -1659,12 +1659,6 @@ subroutine run_dEdd(dt, ncat, & albpnd=albpndn(n), & fswpenl=fswpenln(:,n), & zbio=trcrn_bgcsw(:,n), & - asm_prm_ice_drc=ssp_sasymmdr, & ! echmod the name changes here - fix - asm_prm_ice_dfs=ssp_sasymmdf, & - ss_alb_ice_drc=ssp_snwalbdr, & - ss_alb_ice_dfs=ssp_snwalbdf, & - ext_cff_mss_ice_drc=ssp_snwextdr, & - ext_cff_mss_ice_dfs=ssp_snwextdf, & kaer_5bd=kaer_5bd, & waer_5bd=waer_5bd, & gaer_5bd=gaer_5bd, & @@ -1761,12 +1755,6 @@ subroutine shortwave_dEdd (dEdd_algae, & albsno, albpnd, & fswpenl, zbio, & l_print_point, & - asm_prm_ice_drc, & - asm_prm_ice_dfs, & - ss_alb_ice_drc, & - ss_alb_ice_dfs, & - ext_cff_mss_ice_drc, & - ext_cff_mss_ice_dfs, & kaer_5bd, & waer_5bd, & gaer_5bd, & @@ -1799,16 +1787,6 @@ subroutine shortwave_dEdd (dEdd_algae, & real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment bcenh_3bd ! BC absorption enhancement factor - ! SNICAR snow grain single-scattering properties (SSP) for - ! direct (dr) and diffuse (df) shortwave incidents - real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & - asm_prm_ice_drc , & ! snow asymmetry factor (cos(theta)) - asm_prm_ice_dfs , & ! snow asymmetry factor (cos(theta)) - ss_alb_ice_drc , & ! snow single scatter albedo (fraction) - ss_alb_ice_dfs , & ! snow single scatter albedo (fraction) - ext_cff_mss_ice_drc , & ! snow mass extinction cross section (m2/kg) - ext_cff_mss_ice_dfs ! snow mass extinction cross section (m2/kg) - real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & kaer_5bd, & ! aerosol mass extinction cross section (m2/kg) waer_5bd, & ! aerosol single scatter albedo (fraction) @@ -2059,10 +2037,7 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl, & - asm_prm_ice_drc, asm_prm_ice_dfs, & - ss_alb_ice_drc, ss_alb_ice_dfs, & - ext_cff_mss_ice_drc, ext_cff_mss_ice_dfs) + Iswabs, fswpenl) else !echmod - this can be combined with the 5bd call above, if we use module data nspint = nspint_3bd @@ -2280,10 +2255,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl, & - asm_prm_ice_drc, asm_prm_ice_dfs, & - ss_alb_ice_drc, ss_alb_ice_dfs, & - ext_cff_mss_ice_drc, ext_cff_mss_ice_dfs) + Iswabs, fswpenl) integer (kind=int_kind), intent(in) :: & nilyr , & ! number of ice layers @@ -2364,16 +2336,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & Sswabs , & ! SW absorbed in snow layer (W m-2) Iswabs ! SW absorbed in ice layer (W m-2) - ! SNICAR snow grain single-scattering properties (SSP) for - ! direct (dr) and diffuse (df) shortwave incidents - real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & - asm_prm_ice_drc , & ! snow asymmetry factor (cos(theta)) - asm_prm_ice_dfs , & ! snow asymmetry factor (cos(theta)) - ss_alb_ice_drc , & ! snow single scatter albedo (fraction) - ss_alb_ice_dfs , & ! snow single scatter albedo (fraction) - ext_cff_mss_ice_drc , & ! snow mass extinction cross section (m2/kg) - ext_cff_mss_ice_dfs ! snow mass extinction cross section (m2/kg) - !----------------------------------------------------------------------- ! ! Set up optical property profiles, based on snow, sea ice and ponded @@ -3089,30 +3051,30 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & do k=0,nslyr ksnow = k - min(k-1,0) if (rsnw(ksnow) <= rsnw_snicar_min) then ! change to rsnw_snicar_tab(1) - ks = ext_cff_mss_ice_drc(ns,1) - ws = ss_alb_ice_drc (ns,1) - gs = asm_prm_ice_drc (ns,1) + ks = ssp_snwextdr(ns,1) + ws = ssp_snwalbdr(ns,1) + gs = ssp_sasymmdr(ns,1) elseif (rsnw(ksnow) >= rsnw_snicar_max) then ! change to rsnw_snicar_tab(nmbrad_snicar) - ks = ext_cff_mss_ice_drc(ns,nmbrad_snicar) - ws = ss_alb_ice_drc (ns,nmbrad_snicar) - gs = asm_prm_ice_drc (ns,nmbrad_snicar) + ks = ssp_snwextdr(ns,nmbrad_snicar) + ws = ssp_snwalbdr(ns,nmbrad_snicar) + gs = ssp_sasymmdr(ns,nmbrad_snicar) elseif (trim(snw_ssp_table) == 'snicar') then ! assume index = int(snow grain radius) - 29 if (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then nr = ceiling(rsnw(ksnow)) - 30 + 1 - ks = ext_cff_mss_ice_drc(ns,nr) - ws = ss_alb_ice_drc (ns,nr) - gs = asm_prm_ice_drc (ns,nr) + ks = ssp_snwextdr(ns,nr) + ws = ssp_snwalbdr(ns,nr) + gs = ssp_sasymmdr(ns,nr) else ! linear interpolation in rsnw ! radius = 30 --> nr = 1 in SNICAR table nr = ceiling(rsnw(ksnow)) - 30 + 1 delr = (rsnw(ksnow) - floor(rsnw(ksnow))) / & (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) - ks = ext_cff_mss_ice_drc(ns,nr-1)*( delr) & - + ext_cff_mss_ice_drc(ns,nr )*(c1-delr) - ws = ss_alb_ice_drc (ns,nr-1)*( delr) & - + ss_alb_ice_drc (ns,nr )*(c1-delr) - gs = asm_prm_ice_drc (ns,nr-1)*( delr) & - + asm_prm_ice_drc (ns,nr )*(c1-delr) + ks = ssp_snwextdr(ns,nr-1)*( delr) & + + ssp_snwextdr(ns,nr )*(c1-delr) + ws = ssp_snwalbdr(ns,nr-1)*( delr) & + + ssp_snwalbdr(ns,nr )*(c1-delr) + gs = ssp_sasymmdr(ns,nr-1)*( delr) & + + ssp_sasymmdr(ns,nr )*(c1-delr) endif else ! standard interpolation for nonuniform tabular values do nr=2,nmbrad_snicar @@ -3120,13 +3082,12 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & rsnw(ksnow) < rsnw_snicar_tab(nr)) then delr = (rsnw (ksnow) - rsnw_snicar_tab(nr-1)) / & (rsnw_snicar_tab(nr) - rsnw_snicar_tab(nr-1)) - - ks = ext_cff_mss_ice_drc(ns,nr-1)*( delr) & - + ext_cff_mss_ice_drc(ns,nr )*(c1-delr) - ws = ss_alb_ice_drc (ns,nr-1)*( delr) & - + ss_alb_ice_drc (ns,nr )*(c1-delr) - gs = asm_prm_ice_drc (ns,nr-1)*( delr) & - + asm_prm_ice_drc (ns,nr )*(c1-delr) + ks = ssp_snwextdr(ns,nr-1)*( delr) & + + ssp_snwextdr(ns,nr )*(c1-delr) + ws = ssp_snwalbdr(ns,nr-1)*( delr) & + + ssp_snwalbdr(ns,nr )*(c1-delr) + gs = ssp_sasymmdr(ns,nr-1)*( delr) & + + ssp_sasymmdr(ns,nr )*(c1-delr) endif enddo ! nr endif @@ -3144,30 +3105,30 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! use top rsnw, rhosnw for snow ssl and rest of top layer ksnow = k - min(k-1,0) if (rsnw(ksnow) <= rsnw_snicar_min) then ! change to rsnw_snicar_tab(1) - ks = ext_cff_mss_ice_dfs(ns,1) - ws = ss_alb_ice_dfs (ns,1) - gs = asm_prm_ice_dfs (ns,1) + ks = ssp_snwextdf(ns,1) + ws = ssp_snwalbdf(ns,1) + gs = ssp_sasymmdf(ns,1) elseif (rsnw(ksnow) >= rsnw_snicar_max) then ! change to rsnw_snicar_tab(nmbrad_snicar) - ks = ext_cff_mss_ice_dfs(ns,nmbrad_snicar) - ws = ss_alb_ice_dfs (ns,nmbrad_snicar) - gs = asm_prm_ice_dfs (ns,nmbrad_snicar) + ks = ssp_snwextdf(ns,nmbrad_snicar) + ws = ssp_snwalbdf(ns,nmbrad_snicar) + gs = ssp_sasymmdf(ns,nmbrad_snicar) elseif (trim(snw_ssp_table) == 'snicar') then ! assume index = int(snow grain radius) - 29 if (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then nr = ceiling(rsnw(ksnow)) - 30 + 1 - ks = ext_cff_mss_ice_dfs(ns,nr) - ws = ss_alb_ice_dfs (ns,nr) - gs = asm_prm_ice_dfs (ns,nr) + ks = ssp_snwextdf(ns,nr) + ws = ssp_snwalbdf(ns,nr) + gs = ssp_sasymmdf(ns,nr) else ! linear interpolation in rsnw ! radius = 30 --> nr = 1 in SNICAR table nr = ceiling(rsnw(ksnow)) - 30 + 1 delr = (rsnw(ksnow) - floor(rsnw(ksnow))) / & (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) - ks = ext_cff_mss_ice_dfs(ns,nr-1)*( delr) & - + ext_cff_mss_ice_dfs(ns,nr )*(c1-delr) - ws = ss_alb_ice_dfs (ns,nr-1)*( delr) & - + ss_alb_ice_dfs (ns,nr )*(c1-delr) - gs = asm_prm_ice_dfs (ns,nr-1)*( delr) & - + asm_prm_ice_dfs (ns,nr )*(c1-delr) + ks = ssp_snwextdf(ns,nr-1)*( delr) & + + ssp_snwextdf(ns,nr )*(c1-delr) + ws = ssp_snwalbdf(ns,nr-1)*( delr) & + + ssp_snwalbdf(ns,nr )*(c1-delr) + gs = ssp_sasymmdf(ns,nr-1)*( delr) & + + ssp_sasymmdf(ns,nr )*(c1-delr) endif else ! standard interpolation for nonuniform tabular values do nr=2,nmbrad_snicar @@ -3175,13 +3136,12 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & rsnw(ksnow) < rsnw_snicar_tab(nr)) then delr = (rsnw (ksnow) - rsnw_snicar_tab(nr-1)) / & (rsnw_snicar_tab(nr) - rsnw_snicar_tab(nr-1)) - - ks = ext_cff_mss_ice_dfs(ns,nr-1)*( delr) & - + ext_cff_mss_ice_dfs(ns,nr )*(c1-delr) - ws = ss_alb_ice_dfs (ns,nr-1)*( delr) & - + ss_alb_ice_dfs (ns,nr )*(c1-delr) - gs = asm_prm_ice_dfs (ns,nr-1)*( delr) & - + asm_prm_ice_dfs (ns,nr )*(c1-delr) + ks = ssp_snwextdf(ns,nr-1)*( delr) & + + ssp_snwextdf(ns,nr )*(c1-delr) + ws = ssp_snwalbdf(ns,nr-1)*( delr) & + + ssp_snwalbdf(ns,nr )*(c1-delr) + gs = ssp_sasymmdf(ns,nr-1)*( delr) & + + ssp_sasymmdf(ns,nr )*(c1-delr) endif enddo ! nr endif From 8ad73dd09315b5f987787245cc97aed4d0717d0b Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Fri, 26 Aug 2022 16:58:12 -0600 Subject: [PATCH 19/64] cleaning up argument lists --- columnphysics/icepack_shortwave.F90 | 81 ++++++++++------------------- 1 file changed, 27 insertions(+), 54 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 8af9c6903..1fc0fd116 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -52,7 +52,7 @@ module icepack_shortwave #else use icepack_parameters, only: z_tracers, skl_bgc, calc_tsfc, shortwave, kalg, use_snicar #endif - use icepack_parameters, only: r_ice, r_pnd, r_snw, dt_mlt, rsnw_mlt, hs0, hs1, hp1 + use icepack_parameters, only: R_ice, R_pnd, R_snw, dT_mlt, rsnw_mlt, hs0, hs1, hp1 use icepack_parameters, only: pndaspect, albedo_type, albicev, albicei, albsnowv, albsnowi, ahmax use icepack_parameters, only: ssp_snwextdr, ssp_snwalbdr, ssp_sasymmdr use icepack_parameters, only: ssp_snwextdf, ssp_snwalbdf, ssp_sasymmdf @@ -122,6 +122,18 @@ module icepack_shortwave integer (kind=int_kind) :: rsnw_snicar_min ! minimum snow radius - integer value used for indexing real (kind=dbl_kind), dimension(:), allocatable :: rsnw_snicar_tab ! snow grain radii (10^-6 m) + ! dEdd tuning parameters, set in namelist + ! R_ice ! sea ice tuning parameter; +1 > 1sig increase in albedo + ! R_pnd ! ponded ice tuning parameter; +1 > 1sig increase in albedo + ! R_snw ! snow tuning parameter; +1 > ~.01 change in broadband albedo + ! dT_mlt ! change in temp for non-melt to melt snow grain radius change (C) + ! rsnw_mlt ! maximum melting snow grain radius (10^-6 m) + ! pndaspect ! ratio of pond depth to pond fraction + ! hs0 ! snow depth for transition to bare sea ice (m) + ! hs1 ! tapering parameter for snow on pond ice + ! hp1 ! critical parameter for pond ice thickness + ! kalg ! algae absorption coefficient + !======================================================================= contains @@ -1220,7 +1232,7 @@ subroutine run_dEdd(dt, ncat, & vsnon, Tsfcn, & alvln, apndn, & hpndn, ipndn, & - aeron, kalg, & + aeron, & trcrn_bgcsw, & #ifdef UNDEPRECATE_0LAYER heat_capacity, & @@ -1229,11 +1241,7 @@ subroutine run_dEdd(dt, ncat, & calendar_type, & days_per_year, & nextsw_cday, yday, & - sec, R_ice, & - R_pnd, R_snw, & - dT_mlt, rsnw_mlt, & - hs0, hs1, hp1, & - pndaspect, & + sec, & kaer_3bd, waer_3bd, & gaer_3bd, & kaer_bc_3bd, & @@ -1280,19 +1288,6 @@ subroutine run_dEdd(dt, ncat, & dEdd_algae, & ! .true. use prognostic chla in dEdd modal_aero ! .true. use modal aerosol treatment - ! dEdd tuning parameters, set in namelist - real (kind=dbl_kind), intent(in) :: & - R_ice , & ! sea ice tuning parameter; +1 > 1sig increase in albedo - R_pnd , & ! ponded ice tuning parameter; +1 > 1sig increase in albedo - R_snw , & ! snow tuning parameter; +1 > ~.01 change in broadband albedo - dT_mlt, & ! change in temp for non-melt to melt snow grain radius change (C) - rsnw_mlt, & ! maximum melting snow grain radius (10^-6 m) - hs0 , & ! snow depth for transition to bare sea ice (m) - pndaspect, & ! ratio of pond depth to pond fraction - hs1 , & ! tapering parameter for snow on pond ice - hp1 , & ! critical parameter for pond ice thickness - kalg ! algae absorption coefficient - real (kind=dbl_kind), dimension(:,:), intent(in) :: & kaer_3bd, & ! aerosol mass extinction cross section (m2/kg) waer_3bd, & ! aerosol single scatter albedo (fraction) @@ -1452,12 +1447,10 @@ subroutine run_dEdd(dt, ncat, & ! cosine of the zenith angle #ifdef CESMCOUPLED - call compute_coszen (tlat, tlon, & - yday, sec, coszen, & + call compute_coszen (tlat, tlon, yday, sec, coszen, & days_per_year, nextsw_cday, calendar_type) #else - call compute_coszen (tlat, tlon, & - yday, sec, coszen) + call compute_coszen (tlat, tlon, yday, sec, coszen) #endif if (icepack_warnings_aborted(subname)) return @@ -1634,14 +1627,12 @@ subroutine run_dEdd(dt, ncat, & rhosnwn, rsnwn, & fpn, hpn, & aeron(:,n), & - R_ice, R_pnd, & kaer_3bd, waer_3bd, & gaer_3bd, & kaer_bc_3bd, & waer_bc_3bd, & gaer_bc_3bd, & bcenh_3bd, modal_aero, & - kalg, & swvdr, swvdf, & swidr, swidf, & alvdrn(n), alvdfn(n), & @@ -1732,14 +1723,12 @@ subroutine shortwave_dEdd (dEdd_algae, & rhosnw, rsnw, & fp, hp, & aero, & - R_ice, R_pnd, & kaer_3bd, waer_3bd, & gaer_3bd, & kaer_bc_3bd, & waer_bc_3bd, & gaer_bc_3bd, & bcenh_3bd, modal_aero, & - kalg, & swvdr, swvdf, & swidr, swidf, & alvdr, alvdf, & @@ -1801,9 +1790,6 @@ subroutine shortwave_dEdd (dEdd_algae, & bcenh_5bd ! BC absorption enhancement factor real (kind=dbl_kind), intent(in) :: & - kalg , & ! algae absorption coefficient - R_ice , & ! sea ice tuning parameter; +1 > 1sig increase in albedo - R_pnd , & ! ponded ice tuning parameter; +1 > 1sig increase in albedo aice , & ! concentration of ice vice , & ! volume of ice hs , & ! snow depth @@ -1975,10 +1961,9 @@ subroutine shortwave_dEdd (dEdd_algae, & #else fnidr, coszen, & #endif - R_ice, R_pnd, & kaer_3bd, waer_3bd, gaer_3bd, & kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd, & - bcenh_3bd, modal_aero, kalg, & + bcenh_3bd, modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hstmp, rhosnw, rsnw, hi, hp, & fi, aero_mp, avdrl, avdfl, & @@ -2022,10 +2007,9 @@ subroutine shortwave_dEdd (dEdd_algae, & #else fnidr, coszen, & #endif - R_ice, R_pnd, & kaer_5bd, waer_5bd, gaer_5bd, & kaer_bc_5bd, waer_bc_5bd, gaer_bc_5bd, & - bcenh_5bd, modal_aero, kalg, & + bcenh_5bd, modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fs, aero_mp, avdrl, avdfl, & @@ -2048,10 +2032,9 @@ subroutine shortwave_dEdd (dEdd_algae, & #else fnidr, coszen, & #endif - R_ice, R_pnd, & kaer_3bd, waer_3bd, gaer_3bd, & kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd, & - bcenh_3bd, modal_aero, kalg, & + bcenh_3bd, modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fs, aero_mp, avdrl, avdfl, & @@ -2100,10 +2083,9 @@ subroutine shortwave_dEdd (dEdd_algae, & #else fnidr, coszen, & #endif - R_ice, R_pnd, & kaer_3bd, waer_3bd, gaer_3bd, & kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd, & - bcenh_3bd, modal_aero, kalg, & + bcenh_3bd, modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fp, aero_mp, avdrl, avdfl, & @@ -2240,10 +2222,9 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & #else fnidr, coszen, & #endif - R_ice, R_pnd, & kaer_tab, waer_tab, gaer_tab, & kaer_bc_tab, waer_bc_tab, gaer_bc_tab, & - bcenh, modal_aero, kalg, & + bcenh, modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fi, aero_mp, alvdr, alvdf, & @@ -2279,18 +2260,12 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment bcenh ! BC absorption enhancement factor - ! dEdd tuning parameters, set in namelist - real (kind=dbl_kind), intent(in) :: & - R_ice , & ! sea ice tuning parameter; +1 > 1sig increase in albedo - R_pnd ! ponded ice tuning parameter; +1 > 1sig increase in albedo - real (kind=dbl_kind), dimension(:,:), intent(in) :: & kaer_tab, & ! aerosol mass extinction cross section (m2/kg) waer_tab, & ! aerosol single scatter albedo (fraction) gaer_tab ! aerosol asymmetry parameter (cos(theta)) real (kind=dbl_kind), intent(in) :: & - kalg , & ! algae absorption coefficient fnidr , & ! fraction of direct to total down flux in nir coszen , & ! cosine solar zenith angle swvdr , & ! shortwave down at surface, visible, direct (W/m^2) @@ -2736,7 +2711,9 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & wghtns_5bd_dfs(4) = 0.10917889346386_dbl_kind wghtns_5bd_dfs(5) = c1-(wghtns_5bd_dfs(2)+wghtns_5bd_dfs(3)+wghtns_5bd_dfs(4)) else - !echmod abort + call icepack_warnings_add(subname//' ERROR: mismatch in shortwave bands') + call icepack_warnings_setabort(.true.,__FILE__,__LINE__) + return endif ! find snow grain adjustment factor, dependent upon clear/overcast sky @@ -4985,7 +4962,7 @@ subroutine icepack_step_radiation (dt, ncat, & vsnon, Tsfcn, & alvln, apndn, & hpndn, ipndn, & - aeron, kalg, & + aeron, & trcrn_bgcsw, & #ifdef UNDEPRECATE_0LAYER heat_capacity, & @@ -4993,11 +4970,7 @@ subroutine icepack_step_radiation (dt, ncat, & TLAT, TLON, & calendar_type,days_per_year, & nextsw_cday, yday, & - sec, R_ice, & - R_pnd, R_snw, & - dT_mlt, rsnw_mlt, & - hs0, hs1, & - hp1, pndaspect, & + sec, & kaer_3bd, waer_3bd, & gaer_3bd, & kaer_bc_3bd, & From 89e0d9ac8ad2033827f4559d8061e791606edd1c Mon Sep 17 00:00:00 2001 From: apcraig Date: Sat, 27 Aug 2022 12:53:03 -0600 Subject: [PATCH 20/64] Add additional SNICAR SSP fields --- columnphysics/icepack_parameters.F90 | 153 +++++++++++++++++-- columnphysics/icepack_shortwave.F90 | 111 +++++++++++--- configuration/driver/icedrv_forcing.F90 | 152 ++++++++++++++++-- configuration/driver/icedrv_init.F90 | 38 ++++- configuration/scripts/icepack_in | 12 ++ configuration/scripts/options/set_nml.snicar | 12 ++ 6 files changed, 432 insertions(+), 46 deletions(-) diff --git a/columnphysics/icepack_parameters.F90 b/columnphysics/icepack_parameters.F90 index 36664914d..5ed34d29a 100644 --- a/columnphysics/icepack_parameters.F90 +++ b/columnphysics/icepack_parameters.F90 @@ -238,12 +238,21 @@ module icepack_parameters snw_ssp_table = 'test' ! lookup table: 'snicar' or 'test' or 'file' real (kind=dbl_kind), allocatable, public :: & - ssp_snwextdr(:,:), & ! snow mass extinction cross section (m2/kg), direct - ssp_snwextdf(:,:), & ! snow mass extinction cross section (m2/kg), diffuse - ssp_snwalbdr(:,:), & ! snow single scatter albedo (fraction), direct - ssp_snwalbdf(:,:), & ! snow single scatter albedo (fraction), diffuse - ssp_sasymmdr(:,:), & ! snow asymmetry factor (cos(theta)), direct - ssp_sasymmdf(:,:) ! snow asymmetry factor (cos(theta)), diffuse + ssp_bcerad (:), & ! ?, bcEffectiveRadius + ssp_bcgrerad(:), & ! ?, iceGrainEffectiveRadius + ssp_snwextdr(:,:), & ! snow mass extinction cross section (m2/kg), direct + ssp_snwextdf(:,:), & ! snow mass extinction cross section (m2/kg), diffuse + ssp_snwalbdr(:,:), & ! snow single scatter albedo (fraction), direct + ssp_snwalbdf(:,:), & ! snow single scatter albedo (fraction), diffuse + ssp_sasymmdr(:,:), & ! snow asymmetry factor (cos(theta)), direct + ssp_sasymmdf(:,:), & ! snow asymmetry factor (cos(theta)), diffuse + ssp_aasymmmd(:,:), & ! gaer_bc_5bd, modalAsymmetryParameter5band + ssp_aerextmd(:,:), & ! kaer_bc_5bd, modalMassExtinctionCrossSection5band + ssp_aeralbmd(:,:), & ! waer_bc_5bd, modalSingleScatterAlbedo5band + ssp_aasymm (:,:), & ! gaer_5bd, aerosolAsymmetryParameter5band + ssp_aerext (:,:), & ! kaer_5bd, aerosolMassExtinctionCrossSection5band + ssp_aeralb (:,:), & ! waer_5bd, aerosolSingleScatterAlbedo5band + ssp_abcenhmd(:,:,:) ! bcenh_5bd, modalBCabsorptionParameter5band !----------------------------------------------------------------------- ! Parameters for dynamics, including ridging and strength @@ -504,9 +513,11 @@ subroutine icepack_init_parameters( & snowage_rhos_in, snowage_Tgrd_in, snowage_T_in, & snowage_tau_in, snowage_kappa_in, snowage_drdt0_in, & snw_aging_table_in, snw_ssp_table_in, & - ssp_snwextdr_in, ssp_snwextdf_in, & - ssp_snwalbdr_in, ssp_snwalbdf_in, & - ssp_sasymmdr_in, ssp_sasymmdf_in ) + ssp_snwextdr_in, ssp_snwextdf_in, ssp_snwalbdr_in, ssp_snwalbdf_in, & + ssp_sasymmdr_in, ssp_sasymmdf_in, & + ssp_aasymmmd_in, ssp_aerextmd_in, ssp_aeralbmd_in, ssp_abcenhmd_in, & + ssp_aasymm_in, ssp_aerext_in, ssp_aeralb_in, & + ssp_bcerad_in, ssp_bcgrerad_in ) !----------------------------------------------------------------- ! control settings @@ -864,20 +875,32 @@ subroutine icepack_init_parameters( & character (len=char_len), intent(in), optional :: & snw_ssp_table_in ! lookup table: 'snicar' or 'test' or 'file' + real (kind=dbl_kind), dimension(:), intent(in), optional :: & + ssp_bcerad_in, & ! ?, bcEffectiveRadius + ssp_bcgrerad_in ! ?, iceGrainEffectiveRadius real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & ssp_snwextdr_in, & ! snow mass extinction cross section (m2/kg), direct ssp_snwextdf_in, & ! snow mass extinction cross section (m2/kg), diffuse ssp_snwalbdr_in, & ! snow single scatter albedo (fraction), direct ssp_snwalbdf_in, & ! snow single scatter albedo (fraction), diffuse ssp_sasymmdr_in, & ! snow asymmetry factor (cos(theta)), direct - ssp_sasymmdf_in ! snow asymmetry factor (cos(theta)), diffuse + ssp_sasymmdf_in, & ! snow asymmetry factor (cos(theta)), diffuse + ssp_aasymmmd_in, & ! gaer_bc_5bd, modalAsymmetryParameter5band + ssp_aerextmd_in, & ! kaer_bc_5bd, modalMassExtinctionCrossSection5band + ssp_aeralbmd_in, & ! waer_bc_5bd, modalSingleScatterAlbedo5band + ssp_aasymm_in, & ! gaer_5bd, aerosolAsymmetryParameter5band + ssp_aerext_in, & ! kaer_5bd, aerosolMassExtinctionCrossSection5band + ssp_aeralb_in ! waer_5bd, aerosolSingleScatterAlbedo5band + real (kind=dbl_kind), dimension(:,:,:), intent(in), optional :: & + ssp_abcenhmd_in ! bcenh_5bd, modalBCabsorptionParameter5band + !autodocument_end ! local data integer (kind=int_kind) :: & - dim1, dim2 ! array dimension sizes + dim1, dim2, dim3 ! array dimension sizes character(len=*),parameter :: subname='(icepack_init_parameters)' @@ -1125,6 +1148,21 @@ subroutine icepack_init_parameters( & if (present(snw_ssp_table_in) ) snw_ssp_table = snw_ssp_table_in ! allocate and copy SNICAR SSP table data + + if (present(ssp_bcerad_in) ) then + if (allocated(ssp_bcerad)) deallocate(ssp_bcerad) + dim1 = size(ssp_bcerad_in,dim=1) + allocate(ssp_bcerad(dim1)) + ssp_bcerad = ssp_bcerad_in + endif + + if (present(ssp_bcgrerad_in) ) then + if (allocated(ssp_bcgrerad)) deallocate(ssp_bcgrerad) + dim1 = size(ssp_bcgrerad_in,dim=1) + allocate(ssp_bcgrerad(dim1)) + ssp_bcgrerad = ssp_bcgrerad_in + endif + if (present(ssp_snwextdr_in) ) then if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) dim1 = size(ssp_snwextdr_in,dim=1) @@ -1173,6 +1211,63 @@ subroutine icepack_init_parameters( & ssp_sasymmdf = ssp_sasymmdf_in endif + if (present(ssp_aasymmmd_in) ) then + if (allocated(ssp_aasymmmd)) deallocate(ssp_aasymmmd) + dim1 = size(ssp_aasymmmd_in,dim=1) + dim2 = size(ssp_aasymmmd_in,dim=2) + allocate(ssp_aasymmmd(dim1,dim2)) + ssp_aasymmmd = ssp_aasymmmd_in + endif + + if (present(ssp_aerextmd_in) ) then + if (allocated(ssp_aerextmd)) deallocate(ssp_aerextmd) + dim1 = size(ssp_aerextmd_in,dim=1) + dim2 = size(ssp_aerextmd_in,dim=2) + allocate(ssp_aerextmd(dim1,dim2)) + ssp_aerextmd = ssp_aerextmd_in + endif + + if (present(ssp_aeralbmd_in) ) then + if (allocated(ssp_aeralbmd)) deallocate(ssp_aeralbmd) + dim1 = size(ssp_aeralbmd_in,dim=1) + dim2 = size(ssp_aeralbmd_in,dim=2) + allocate(ssp_aeralbmd(dim1,dim2)) + ssp_aeralbmd = ssp_aeralbmd_in + endif + + if (present(ssp_aasymm_in) ) then + if (allocated(ssp_aasymm)) deallocate(ssp_aasymm) + dim1 = size(ssp_aasymm_in,dim=1) + dim2 = size(ssp_aasymm_in,dim=2) + allocate(ssp_aasymm(dim1,dim2)) + ssp_aasymm = ssp_aasymm_in + endif + + if (present(ssp_aerext_in) ) then + if (allocated(ssp_aerext)) deallocate(ssp_aerext) + dim1 = size(ssp_aerext_in,dim=1) + dim2 = size(ssp_aerext_in,dim=2) + allocate(ssp_aerext(dim1,dim2)) + ssp_aerext = ssp_aerext_in + endif + + if (present(ssp_aeralb_in) ) then + if (allocated(ssp_aeralb)) deallocate(ssp_aeralb) + dim1 = size(ssp_aeralb_in,dim=1) + dim2 = size(ssp_aeralb_in,dim=2) + allocate(ssp_aeralb(dim1,dim2)) + ssp_aeralb = ssp_aeralb_in + endif + + if (present(ssp_abcenhmd_in) ) then + if (allocated(ssp_abcenhmd)) deallocate(ssp_abcenhmd) + dim1 = size(ssp_abcenhmd_in,dim=1) + dim2 = size(ssp_abcenhmd_in,dim=2) + dim3 = size(ssp_abcenhmd_in,dim=3) + allocate(ssp_abcenhmd(dim1,dim2,dim3)) + ssp_abcenhmd = ssp_abcenhmd_in + endif + if (present(bgc_flux_type_in) ) bgc_flux_type = bgc_flux_type_in if (present(z_tracers_in) ) z_tracers = z_tracers_in if (present(scale_bgc_in) ) scale_bgc = scale_bgc_in @@ -1288,7 +1383,10 @@ subroutine icepack_query_parameters( & snw_aging_table_out, snw_ssp_table_out, & ssp_snwextdr_out, ssp_snwextdf_out, & ssp_snwalbdr_out, ssp_snwalbdf_out, & - ssp_sasymmdr_out, ssp_sasymmdf_out ) + ssp_sasymmdr_out, ssp_sasymmdf_out, & + ssp_aasymmmd_out, ssp_aerextmd_out, ssp_aeralbmd_out, ssp_abcenhmd_out, & + ssp_aasymm_out, ssp_aerext_out, ssp_aeralb_out, & + ssp_bcerad_out, ssp_bcgrerad_out ) !----------------------------------------------------------------- ! control settings @@ -1655,13 +1753,24 @@ subroutine icepack_query_parameters( & character (len=char_len), intent(out), optional :: & snw_ssp_table_out ! lookup table: 'snicar' or 'test' or 'file' + real (kind=dbl_kind), dimension(:), intent(out), optional :: & + ssp_bcerad_out, & ! ?, bcEffectiveRadius + ssp_bcgrerad_out ! ?, iceGrainEffectiveRadius real (kind=dbl_kind), dimension(:,:), intent(out), optional :: & ssp_snwextdr_out, & ! snow mass extinction cross section (m2/kg), direct ssp_snwextdf_out, & ! snow mass extinction cross section (m2/kg), diffuse ssp_snwalbdr_out, & ! snow single scatter albedo (fraction), direct ssp_snwalbdf_out, & ! snow single scatter albedo (fraction), diffuse ssp_sasymmdr_out, & ! snow asymmetry factor (cos(theta)), direct - ssp_sasymmdf_out ! snow asymmetry factor (cos(theta)), diffuse + ssp_sasymmdf_out, & ! snow asymmetry factor (cos(theta)), diffuse + ssp_aasymmmd_out, & ! gaer_bc_5bd, modalAsymmetryParameter5band + ssp_aerextmd_out, & ! kaer_bc_5bd, modalMassExtinctionCrossSection5band + ssp_aeralbmd_out, & ! waer_bc_5bd, modalSingleScatterAlbedo5band + ssp_aasymm_out, & ! gaer_5bd, aerosolAsymmetryParameter5band + ssp_aerext_out, & ! kaer_5bd, aerosolMassExtinctionCrossSection5band + ssp_aeralb_out ! waer_5bd, aerosolSingleScatterAlbedo5band + real (kind=dbl_kind), dimension(:,:,:), intent(out), optional :: & + ssp_abcenhmd_out ! bcenh_5bd, modalBCabsorptionParameter5band !autodocument_end @@ -1853,6 +1962,15 @@ subroutine icepack_query_parameters( & if (present(ssp_snwalbdf_out) ) ssp_snwalbdf_out = ssp_snwalbdf if (present(ssp_sasymmdr_out) ) ssp_sasymmdr_out = ssp_sasymmdr if (present(ssp_sasymmdf_out) ) ssp_sasymmdf_out = ssp_sasymmdf + if (present(ssp_bcerad_out) ) ssp_bcerad_out = ssp_bcerad + if (present(ssp_bcgrerad_out) ) ssp_bcgrerad_out = ssp_bcgrerad + if (present(ssp_aasymmmd_out) ) ssp_aasymmmd_out = ssp_aasymmmd + if (present(ssp_aerextmd_out) ) ssp_aerextmd_out = ssp_aerextmd + if (present(ssp_aeralbmd_out) ) ssp_aeralbmd_out = ssp_aeralbmd + if (present(ssp_aasymm_out) ) ssp_aasymm_out = ssp_aasymm + if (present(ssp_aerext_out) ) ssp_aerext_out = ssp_aerext + if (present(ssp_aeralb_out) ) ssp_aeralb_out = ssp_aeralb + if (present(ssp_abcenhmd_out) ) ssp_abcenhmd_out = ssp_abcenhmd if (present(bgc_flux_type_out) ) bgc_flux_type_out= bgc_flux_type if (present(z_tracers_out) ) z_tracers_out = z_tracers if (present(scale_bgc_out) ) scale_bgc_out = scale_bgc @@ -2070,6 +2188,15 @@ subroutine icepack_write_parameters(iounit) write(iounit,*) " ssp_snwalbdf = ", ssp_snwalbdf(1,1) write(iounit,*) " ssp_sasymmdr = ", ssp_sasymmdr(1,1) write(iounit,*) " ssp_sasymmdf = ", ssp_sasymmdf(1,1) + write(iounit,*) " ssp_aasymmmd = ", ssp_aasymmmd(1,1) + write(iounit,*) " ssp_aerextmd = ", ssp_aerextmd(1,1) + write(iounit,*) " ssp_aeralbmd = ", ssp_aeralbmd(1,1) + write(iounit,*) " ssp_abcenhmd = ", ssp_abcenhmd(1,1,1) + write(iounit,*) " ssp_aasymm = ", ssp_aasymm (1,1) + write(iounit,*) " ssp_aerext = ", ssp_aerext (1,1) + write(iounit,*) " ssp_aeralb = ", ssp_aeralb (1,1) + write(iounit,*) " ssp_bcerad = ", ssp_bcerad (1) + write(iounit,*) " ssp_bcgrerad = ", ssp_bcgrerad(1) write(iounit,*) " bgc_flux_type = ", bgc_flux_type write(iounit,*) " z_tracers = ", z_tracers write(iounit,*) " scale_bgc = ", scale_bgc diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 8af9c6903..bee9232e3 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -56,6 +56,9 @@ module icepack_shortwave use icepack_parameters, only: pndaspect, albedo_type, albicev, albicei, albsnowv, albsnowi, ahmax use icepack_parameters, only: ssp_snwextdr, ssp_snwalbdr, ssp_sasymmdr use icepack_parameters, only: ssp_snwextdf, ssp_snwalbdf, ssp_sasymmdf + use icepack_parameters, only: ssp_aasymmmd, ssp_aerextmd, ssp_aeralbmd, ssp_abcenhmd + use icepack_parameters, only: ssp_aasymm, ssp_aerext, ssp_aeralb + use icepack_parameters, only: ssp_bcerad, ssp_bcgrerad use icepack_parameters, only: snw_ssp_table use icepack_tracers, only: ntrcr, nbtrcr_sw @@ -117,7 +120,10 @@ module icepack_shortwave ki_dl_mn_5bd, wi_dl_mn_5bd, gi_dl_mn_5bd , & ! ice drained layer (dl) iops ki_int_mn_5bd, wi_int_mn_5bd, gi_int_mn_5bd ! ice interior layer (int) iops - integer (kind=int_kind) :: nmbrad_snicar ! number of snow grain radii in tables + integer (kind=int_kind) :: nmbrad_snicar ! number of snow grain radii in SNICAR SSP tables + integer (kind=int_kind) :: nmodal1_snicar ! nModal1 in SNICAR SSP tables + integer (kind=int_kind) :: nmodal2_snicar ! nModal2 in SNICAR SSP tables + integer (kind=int_kind) :: nmaeros_snicar ! maxAerosolType in SNICAR SSP tables integer (kind=int_kind) :: rsnw_snicar_max ! maximum snow radius - integer value used for indexing integer (kind=int_kind) :: rsnw_snicar_min ! minimum snow radius - integer value used for indexing real (kind=dbl_kind), dimension(:), allocatable :: rsnw_snicar_tab ! snow grain radii (10^-6 m) @@ -1041,10 +1047,13 @@ subroutine data_dEdd_5band ! all data has to be passed into icepack_parameters if (trim(snw_ssp_table) == 'snicar') then - ! table passed in, hardwired 1471 x 5 table - nmbrad_snicar = 1471 ! maximum snow grain radius index - rsnw_snicar_min = 30 - rsnw_snicar_max = 1500 + ! table passed in, hardwired 1471 x 5 table with 10/8/6/30/1500 expected + nmbrad_snicar = 1471 ! snow grain radius number SNICAR SSP tables + nmodal1_snicar = 10 ! nModal1 in SNICAR SSP tables + nmodal2_snicar = 8 ! nModal2 in SNICAR SSP tables + nmaeros_snicar = 6 ! maxAerosolType in SNICAR SSP tables + rsnw_snicar_min = 30 ! minimum snow grain radius + rsnw_snicar_max = 1500 ! maximum snow grain radius !echmod - this might not be needed allocate(rsnw_snicar_tab(nmbrad_snicar)) ! snow grain radii @@ -1061,7 +1070,10 @@ subroutine data_dEdd_5band return elseif (trim(snw_ssp_table) == 'test') then ! 5x5 table - nmbrad_snicar = 5 ! maximum snow grain radius index + nmbrad_snicar = 5 ! snow grain radius number SNICAR SSP tables + nmodal1_snicar = 10 ! nModal1 in SNICAR SSP tables + nmodal2_snicar = 8 ! nModal2 in SNICAR SSP tables + nmaeros_snicar = 6 ! maxAerosolType in SNICAR SSP tables allocate(rsnw_snicar_tab(nmbrad_snicar)) ! snow grain radii rsnw_snicar_tab = (/ & ! snow grain radius for each table entry (micro-meters) @@ -1069,18 +1081,37 @@ subroutine data_dEdd_5band rsnw_snicar_min = rsnw_snicar_tab(1) ! minimum snow radius - integer value used for indexing rsnw_snicar_max = rsnw_snicar_tab(nmbrad_snicar) ! maximum snow radius - integer value used for indexing + if (allocated(ssp_bcerad )) deallocate(ssp_bcerad ) + if (allocated(ssp_bcgrerad)) deallocate(ssp_bcgrerad) if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) - allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar)) ! extinction coefficient, direct - allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar)) ! extinction coefficient, diffuse - allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar)) ! single-scattering albedo, direct - allocate(ssp_snwalbdf(nspint_5bd,nmbrad_snicar)) ! single-scattering albedo, diffuse - allocate(ssp_sasymmdr(nspint_5bd,nmbrad_snicar)) ! snow asymmetry factor, direct - allocate(ssp_sasymmdf(nspint_5bd,nmbrad_snicar)) ! snow asymmetry factor, diffuse + if (allocated(ssp_aasymmmd)) deallocate(ssp_aasymmmd) + if (allocated(ssp_aerextmd)) deallocate(ssp_aerextmd) + if (allocated(ssp_aeralbmd)) deallocate(ssp_aeralbmd) + if (allocated(ssp_aasymm )) deallocate(ssp_aasymm ) + if (allocated(ssp_aerext )) deallocate(ssp_aerext ) + if (allocated(ssp_aeralb )) deallocate(ssp_aeralb ) + if (allocated(ssp_abcenhmd)) deallocate(ssp_abcenhmd) + + allocate(ssp_bcerad (nmodal1_snicar)) ! ?, bcEffectiveRadius + allocate(ssp_bcgrerad(nmodal2_snicar)) ! ?, iceGrainEffectiveRadius + allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, direct + allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, diffuse + allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, direct + allocate(ssp_snwalbdf(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, diffuse + allocate(ssp_sasymmdr(nspint_5bd,nmbrad_snicar )) ! snow asymmetry factor, direct + allocate(ssp_sasymmdf(nspint_5bd,nmbrad_snicar )) ! snow asymmetry factor, diffuse + allocate(ssp_aasymmmd(nspint_5bd,nmodal1_snicar)) ! gaer_bc_5bd, modalAsymmetryParameter5band + allocate(ssp_aerextmd(nspint_5bd,nmodal1_snicar)) ! kaer_bc_5bd, modalMassExtinctionCrossSection5band + allocate(ssp_aeralbmd(nspint_5bd,nmodal1_snicar)) ! waer_bc_5bd, modalSingleScatterAlbedo5band + allocate(ssp_aasymm (nspint_5bd,nmaeros_snicar)) ! gaer_5bd, aerosolAsymmetryParameter5band + allocate(ssp_aerext (nspint_5bd,nmaeros_snicar)) ! kaer_5bd, aerosolMassExtinctionCrossSection5band + allocate(ssp_aeralb (nspint_5bd,nmaeros_snicar)) ! waer_5bd, aerosolSingleScatterAlbedo5band + allocate(ssp_abcenhmd(nspint_5bd,nmodal1_snicar,nmodal2_snicar)) ! bcenh_5bd, modalBCabsorptionParameter5band ! tcraig, these data statements are not consistent with the array index order ! reshape from nmbrad,nspint to nspint,nmbrad with order = 2,1 @@ -1133,27 +1164,67 @@ subroutine data_dEdd_5band 0.89620237, 0.90998944, 0.94126152, 0.96209938, 0.9726631 /), & (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) + ! tcraig, what should these be set to? TODO + ssp_bcerad = c0 + ssp_bcgrerad = c0 + ssp_aasymmmd = c0 + ssp_aerextmd = c0 + ssp_aeralbmd = c0 + ssp_aasymm = c0 + ssp_aerext = c0 + ssp_aeralb = c0 + ssp_abcenhmd = c0 + else call icepack_warnings_setabort(.true.,__FILE__,__LINE__) call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)//' not supported') return endif - if ((size(ssp_snwextdr,dim=2) /= nmbrad_snicar) .or. & - (size(ssp_snwextdf,dim=2) /= nmbrad_snicar) .or. & - (size(ssp_snwalbdr,dim=2) /= nmbrad_snicar) .or. & - (size(ssp_snwalbdf,dim=2) /= nmbrad_snicar) .or. & - (size(ssp_sasymmdr,dim=2) /= nmbrad_snicar) .or. & - (size(ssp_sasymmdf,dim=2) /= nmbrad_snicar)) then + if ((size(ssp_bcerad,dim=1) /= nmodal1_snicar) .or. & + (size(ssp_bcgrerad,dim=1) /= nmodal2_snicar) .or. & + (size(ssp_snwextdr,dim=1) /= nspint_5bd ) .or. & + (size(ssp_snwextdr,dim=2) /= nmbrad_snicar ) .or. & + (size(ssp_snwextdf,dim=1) /= nspint_5bd ) .or. & + (size(ssp_snwextdf,dim=2) /= nmbrad_snicar ) .or. & + (size(ssp_snwalbdr,dim=1) /= nspint_5bd ) .or. & + (size(ssp_snwalbdr,dim=2) /= nmbrad_snicar ) .or. & + (size(ssp_snwalbdf,dim=1) /= nspint_5bd ) .or. & + (size(ssp_snwalbdf,dim=2) /= nmbrad_snicar ) .or. & + (size(ssp_sasymmdr,dim=1) /= nspint_5bd ) .or. & + (size(ssp_sasymmdr,dim=2) /= nmbrad_snicar ) .or. & + (size(ssp_sasymmdf,dim=1) /= nspint_5bd ) .or. & + (size(ssp_sasymmdf,dim=2) /= nmbrad_snicar ) .or. & + (size(ssp_aasymmmd,dim=1) /= nspint_5bd ) .or. & + (size(ssp_aasymmmd,dim=2) /= nmodal1_snicar) .or. & + (size(ssp_aerextmd,dim=1) /= nspint_5bd ) .or. & + (size(ssp_aerextmd,dim=2) /= nmodal1_snicar) .or. & + (size(ssp_aeralbmd,dim=1) /= nspint_5bd ) .or. & + (size(ssp_aeralbmd,dim=2) /= nmodal1_snicar) .or. & + (size(ssp_aasymm ,dim=1) /= nspint_5bd ) .or. & + (size(ssp_aasymm ,dim=2) /= nmaeros_snicar) .or. & + (size(ssp_aerext ,dim=1) /= nspint_5bd ) .or. & + (size(ssp_aerext ,dim=2) /= nmaeros_snicar) .or. & + (size(ssp_aeralb ,dim=1) /= nspint_5bd ) .or. & + (size(ssp_aeralb ,dim=2) /= nmaeros_snicar) .or. & + (size(ssp_abcenhmd,dim=1) /= nspint_5bd ) .or. & + (size(ssp_abcenhmd,dim=2) /= nmodal1_snicar) .or. & + (size(ssp_abcenhmd,dim=3) /= nmodal2_snicar)) then call icepack_warnings_setabort(.true.,__FILE__,__LINE__) call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)) call icepack_warnings_add(subname//'ERROR: snw_ssp_table array size error') return endif - write(warnstr,'(2a,i8)') subname, ' nmbrad_snicar = ',nmbrad_snicar + write(warnstr,'(2a,i8)') subname, ' nmbrad_snicar = ',nmbrad_snicar + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i8)') subname, ' nspint = ',nspint_5bd + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i8)') subname, ' nmodal1_snicar = ',nmodal1_snicar + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i8)') subname, ' nmodal2_snicar = ',nmodal2_snicar call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i8)') subname, ' nspint = ',nspint_5bd + write(warnstr,'(2a,i8)') subname, ' nmaeros_snicar = ',nmaeros_snicar call icepack_warnings_add(warnstr) write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',1, ',',1, ') = ',ssp_snwextdr(1,1) call icepack_warnings_add(warnstr) diff --git a/configuration/driver/icedrv_forcing.F90 b/configuration/driver/icedrv_forcing.F90 index afcd2745c..f70c86549 100644 --- a/configuration/driver/icedrv_forcing.F90 +++ b/configuration/driver/icedrv_forcing.F90 @@ -109,14 +109,26 @@ module icedrv_forcing ssp_filename ! filename for snicar snow and aerosol lookup table character (char_len), public :: & - ssp_nsrad_fname, & ! snow grain radius field name - ssp_nspint_fname, & ! spectral intervals field name + ssp_nsrad_fname, & ! snow grain radius index field name + ssp_nspint_fname, & ! spectral intervals index field name + ssp_nmodal1_fname, & ! modal1 index field name + ssp_nmodal2_fname, & ! modal2 index field name + ssp_nmaeros_fname, & ! maxAerosolType index field name ssp_snwextdr_fname, & ! snow mass extinction cross section (m2/kg) field name ssp_snwextdf_fname, & ! snow mass extinction cross section (m2/kg) field name ssp_snwalbdr_fname, & ! snow single scatter albedo (fraction) field name ssp_snwalbdf_fname, & ! snow single scatter albedo (fraction) field name ssp_sasymmdr_fname, & ! snow asymmetry factor (cos(theta)) field name - ssp_sasymmdf_fname ! snow asymmetry factor (cos(theta)) field name + ssp_sasymmdf_fname, & ! snow asymmetry factor (cos(theta)) field name + ssp_bcerad_fname, & ! ?, bcEffectiveRadius + ssp_bcgrerad_fname, & ! ?, iceGrainEffectiveRadius + ssp_aasymmmd_fname, & ! gaer_bc_5bd, modalAsymmetryParameter5band + ssp_aerextmd_fname, & ! kaer_bc_5bd, modalMassExtinctionCrossSection5band + ssp_aeralbmd_fname, & ! waer_bc_5bd, modalSingleScatterAlbedo5band + ssp_aasymm_fname, & ! gaer_5bd, aerosolAsymmetryParameter5band + ssp_aerext_fname, & ! kaer_5bd, aerosolMassExtinctionCrossSection5band + ssp_aeralb_fname, & ! waer_5bd, aerosolSingleScatterAlbedo5band + ssp_abcenhmd_fname ! bcenh_5bd, modalBCabsorptionParameter5band !======================================================================= @@ -1184,14 +1196,23 @@ subroutine init_snicarssptable integer (kind=int_kind) :: & nsrad, & ! Table dimensions - nspint + nspint, nmodal1, nmodal2, nmaeros real (kind=dbl_kind), allocatable :: & - ssp_snwextdr(:,:), & ! snow mass extinction cross section (m2/kg) - ssp_snwextdf(:,:), & ! snow mass extinction cross section (m2/kg) - ssp_snwalbdr(:,:), & ! snow single scatter albedo (fraction) - ssp_snwalbdf(:,:), & ! snow single scatter albedo (fraction) - ssp_sasymmdr(:,:), & ! snow asymmetry factor (cos(theta)) - ssp_sasymmdf(:,:) ! snow asymmetry factor (cos(theta)) + ssp_bcerad (:), & ! ?, bcEffectiveRadius + ssp_bcgrerad(:), & ! ?, iceGrainEffectiveRadius + ssp_snwextdr(:,:), & ! snow mass extinction cross section (m2/kg), direct + ssp_snwextdf(:,:), & ! snow mass extinction cross section (m2/kg), diffuse + ssp_snwalbdr(:,:), & ! snow single scatter albedo (fraction), direct + ssp_snwalbdf(:,:), & ! snow single scatter albedo (fraction), diffuse + ssp_sasymmdr(:,:), & ! snow asymmetry factor (cos(theta)), direct + ssp_sasymmdf(:,:), & ! snow asymmetry factor (cos(theta)), diffuse + ssp_aasymmmd(:,:), & ! gaer_bc_5bd, modalAsymmetryParameter5band + ssp_aerextmd(:,:), & ! kaer_bc_5bd, modalMassExtinctionCrossSection5band + ssp_aeralbmd(:,:), & ! waer_bc_5bd, modalSingleScatterAlbedo5band + ssp_aasymm (:,:), & ! gaer_5bd, aerosolAsymmetryParameter5band + ssp_aerext (:,:), & ! kaer_5bd, aerosolMassExtinctionCrossSection5band + ssp_aeralb (:,:), & ! waer_5bd, aerosolSingleScatterAlbedo5band + ssp_abcenhmd(:,:,:) ! bcenh_5bd, modalBCabsorptionParameter5band ! local variables @@ -1231,19 +1252,67 @@ subroutine init_snicarssptable status=nf90_inquire_dimension(fid, dimid, len=nspint) if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_dim '//trim(fieldname)) + fieldname = trim(ssp_nmodal1_fname) + status=nf90_inq_dimid(fid,trim(fieldname),dimid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_inq_dimid '//trim(fieldname)) + status=nf90_inquire_dimension(fid, dimid, len=nmodal1) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_dim '//trim(fieldname)) + + fieldname = trim(ssp_nmodal2_fname) + status=nf90_inq_dimid(fid,trim(fieldname),dimid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_inq_dimid '//trim(fieldname)) + status=nf90_inquire_dimension(fid, dimid, len=nmodal2) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_dim '//trim(fieldname)) + + fieldname = trim(ssp_nmaeros_fname) + status=nf90_inq_dimid(fid,trim(fieldname),dimid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_inq_dimid '//trim(fieldname)) + status=nf90_inquire_dimension(fid, dimid, len=nmaeros) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_dim '//trim(fieldname)) + + if (allocated(ssp_bcerad) ) deallocate(ssp_bcerad) + if (allocated(ssp_bcgrerad)) deallocate(ssp_bcgrerad) if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) - + if (allocated(ssp_aasymmmd)) deallocate(ssp_aasymmmd) + if (allocated(ssp_aerextmd)) deallocate(ssp_aerextmd) + if (allocated(ssp_aeralbmd)) deallocate(ssp_aeralbmd) + if (allocated(ssp_aasymm) ) deallocate(ssp_aasymm) + if (allocated(ssp_aerext) ) deallocate(ssp_aerext) + if (allocated(ssp_aeralb) ) deallocate(ssp_aeralb) + if (allocated(ssp_abcenhmd)) deallocate(ssp_abcenhmd) + + allocate(ssp_bcerad(nmodal1)) + allocate(ssp_bcgrerad(nmodal2)) allocate(ssp_snwextdr(nspint,nsrad)) allocate(ssp_snwextdf(nspint,nsrad)) allocate(ssp_snwalbdr(nspint,nsrad)) allocate(ssp_snwalbdf(nspint,nsrad)) allocate(ssp_sasymmdr(nspint,nsrad)) allocate(ssp_sasymmdf(nspint,nsrad)) + allocate(ssp_aasymmmd(nspint,nmodal1)) + allocate(ssp_aerextmd(nspint,nmodal1)) + allocate(ssp_aeralbmd(nspint,nmodal1)) + allocate(ssp_aasymm (nspint,nmaeros)) + allocate(ssp_aerext (nspint,nmaeros)) + allocate(ssp_aeralb (nspint,nmaeros)) + allocate(ssp_abcenhmd(nspint,nmodal1,nmodal2)) + + fieldname = trim(ssp_bcerad_fname) + status = nf90_inq_varid(fid, trim(fieldname), varid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) + status = nf90_get_var(fid, varid, ssp_bcerad) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) + + fieldname = trim(ssp_bcgrerad_fname) + status = nf90_inq_varid(fid, trim(fieldname), varid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) + status = nf90_get_var(fid, varid, ssp_bcgrerad) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) fieldname = trim(ssp_snwextdr_fname) status = nf90_inq_varid(fid, trim(fieldname), varid) @@ -1281,6 +1350,48 @@ subroutine init_snicarssptable status = nf90_get_var(fid, varid, ssp_sasymmdf) if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) + fieldname = trim(ssp_aasymmmd_fname) + status = nf90_inq_varid(fid, trim(fieldname), varid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) + status = nf90_get_var(fid, varid, ssp_aasymmmd) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) + + fieldname = trim(ssp_aerextmd_fname) + status = nf90_inq_varid(fid, trim(fieldname), varid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) + status = nf90_get_var(fid, varid, ssp_aerextmd) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) + + fieldname = trim(ssp_aeralbmd_fname) + status = nf90_inq_varid(fid, trim(fieldname), varid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) + status = nf90_get_var(fid, varid, ssp_aeralbmd) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) + + fieldname = trim(ssp_aasymm_fname) + status = nf90_inq_varid(fid, trim(fieldname), varid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) + status = nf90_get_var(fid, varid, ssp_aasymm) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) + + fieldname = trim(ssp_aerext_fname) + status = nf90_inq_varid(fid, trim(fieldname), varid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) + status = nf90_get_var(fid, varid, ssp_aerext) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) + + fieldname = trim(ssp_aeralb_fname) + status = nf90_inq_varid(fid, trim(fieldname), varid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) + status = nf90_get_var(fid, varid, ssp_aeralb) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) + + fieldname = trim(ssp_abcenhmd_fname) + status = nf90_inq_varid(fid, trim(fieldname), varid) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) + status = nf90_get_var(fid, varid, ssp_abcenhmd) + if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) + status = nf90_close(fid) if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_close') @@ -1294,6 +1405,9 @@ subroutine init_snicarssptable write(nu_diag,*) subname,' ssp_filename = ',trim(ssp_filename) write(nu_diag,*) subname,' SSP N spectral int, m1 = ',nspint write(nu_diag,*) subname,' SSP N snow grain rad, m2 = ',nsrad + write(nu_diag,*) subname,' SSP N nModal1 = ',nmodal1 + write(nu_diag,*) subname,' SSP N nModal2 = ',nmodal2 + write(nu_diag,*) subname,' SSP N maxAerosolType = ',nmaeros write(nu_diag,*) subname,' Data at first index ' write(nu_diag,*) subname,' ssp_snwextdr(1,1) = ',ssp_snwextdr(1,1) write(nu_diag,*) subname,' ssp_snwextdf(1,1) = ',ssp_snwextdf(1,1) @@ -1324,19 +1438,33 @@ subroutine init_snicarssptable write(nu_diag,*) subname,' ssp_sasymmdf(m1,m2) = ',ssp_sasymmdf(nspint,nsrad) call icepack_init_parameters( & + ssp_bcerad_in = ssp_bcerad , ssp_bcgrerad_in = ssp_bcgrerad, & ssp_snwextdr_in = ssp_snwextdr, ssp_snwextdf_in = ssp_snwextdf, & ssp_snwalbdr_in = ssp_snwalbdr, ssp_snwalbdf_in = ssp_snwalbdf, & - ssp_sasymmdr_in = ssp_sasymmdr, ssp_sasymmdf_in = ssp_sasymmdf ) + ssp_sasymmdr_in = ssp_sasymmdr, ssp_sasymmdf_in = ssp_sasymmdf, & + ssp_aasymmmd_in = ssp_aasymmmd, ssp_aerextmd_in = ssp_aerextmd, & + ssp_aeralbmd_in = ssp_aeralbmd, ssp_aasymm_in = ssp_aasymm , & + ssp_aerext_in = ssp_aerext , ssp_aeralb_in = ssp_aeralb , & + ssp_abcenhmd_in = ssp_abcenhmd ) call icepack_warnings_flush(nu_diag) if (icepack_warnings_aborted()) call icedrv_system_abort(string=subname, & file=__FILE__,line= __LINE__) + deallocate(ssp_bcerad) + deallocate(ssp_bcgrerad) deallocate(ssp_snwextdr) deallocate(ssp_snwextdf) deallocate(ssp_snwalbdr) deallocate(ssp_snwalbdf) deallocate(ssp_sasymmdr) deallocate(ssp_sasymmdf) + deallocate(ssp_aasymmmd) + deallocate(ssp_aerextmd) + deallocate(ssp_aeralbmd) + deallocate(ssp_aasymm) + deallocate(ssp_aerext) + deallocate(ssp_aeralb) + deallocate(ssp_abcenhmd) end subroutine init_snicarssptable diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90 index 7e4d10dea..126d4abaf 100644 --- a/configuration/driver/icedrv_init.F90 +++ b/configuration/driver/icedrv_init.F90 @@ -74,9 +74,15 @@ subroutine input_data use icedrv_forcing, only: data_dir use icedrv_forcing, only: oceanmixed_ice, restore_ocn, trestore use icedrv_forcing, only: snw_ssp_table, ssp_filename, ssp_nsrad_fname, ssp_nspint_fname + use icedrv_forcing, only: ssp_nmodal1_fname, ssp_nmodal2_fname, ssp_nmaeros_fname use icedrv_forcing, only: ssp_snwextdr_fname, ssp_snwextdf_fname use icedrv_forcing, only: ssp_snwalbdr_fname, ssp_snwalbdf_fname use icedrv_forcing, only: ssp_sasymmdr_fname, ssp_sasymmdf_fname + use icedrv_forcing, only: ssp_bcerad_fname, ssp_bcgrerad_fname + use icedrv_forcing, only: ssp_aasymmmd_fname, ssp_aerextmd_fname + use icedrv_forcing, only: ssp_aeralbmd_fname, ssp_aasymm_fname + use icedrv_forcing, only: ssp_aerext_fname, ssp_aeralb_fname + use icedrv_forcing, only: ssp_abcenhmd_fname ! local variables @@ -166,9 +172,15 @@ subroutine input_data sw_redist, sw_frac, sw_dtemp, & dT_mlt, rsnw_mlt, kalg, snw_ssp_table, & ssp_filename, ssp_nsrad_fname, ssp_nspint_fname, & + ssp_nmodal1_fname, ssp_nmodal2_fname, ssp_nmaeros_fname, & ssp_snwextdr_fname, ssp_snwextdf_fname, & ssp_snwalbdr_fname, ssp_snwalbdf_fname, & - ssp_sasymmdr_fname, ssp_sasymmdf_fname + ssp_sasymmdr_fname, ssp_sasymmdf_fname, & + ssp_bcerad_fname, ssp_bcgrerad_fname, & + ssp_aasymmmd_fname, ssp_aerextmd_fname, & + ssp_aeralbmd_fname, ssp_aasymm_fname, & + ssp_aerext_fname, ssp_aeralb_fname, & + ssp_abcenhmd_fname namelist /ponds_nml/ & hs0, dpscale, frzpnd, & @@ -300,12 +312,24 @@ subroutine input_data ssp_filename = 'snicar_optics_5bnd_snow_and_aerosols.nc' ! snicar ssp filename ssp_nsrad_fname = 'nSnowGrainRadiusSNICAR' ! snow grain radius fieldname ssp_nspint_fname = 'nSpectralIntervalsSNICAR' ! spectral interval fieldname + ssp_nmodal1_fname = 'nModal1' ! nModal1 fieldname + ssp_nmodal2_fname = 'nModal2' ! nModal1 fieldname + ssp_nmaeros_fname = 'maxAerosolType' ! maxAerosolType fieldname ssp_snwextdr_fname = 'iceMassExtinctionCrossSectionDirect' ! snow mass extinction cross section (m2/kg) ssp_snwextdf_fname = 'iceMassExtinctionCrossSectionDiffuse' ! snow mass extinction cross section (m2/kg) ssp_snwalbdr_fname = 'iceSingleScatterAlbedoDirect' ! snow single scatter albedo (fraction) ssp_snwalbdf_fname = 'iceSingleScatterAlbedoDiffuse' ! snow single scatter albedo (fraction) ssp_sasymmdr_fname = 'iceAsymmetryParameterDirect' ! snow asymmetry factor (cos(theta)) ssp_sasymmdf_fname = 'iceAsymmetryParameterDiffuse' ! snow asymmetry factor (cos(theta)) + ssp_bcerad_fname = 'bcEffectiveRadius' + ssp_bcgrerad_fname = 'iceGrainEffectiveRadius' + ssp_aasymmmd_fname = 'modalAsymmetryParameter5band' + ssp_aerextmd_fname = 'modalMassExtinctionCrossSection5band' + ssp_aeralbmd_fname = 'modalSingleScatterAlbedo5band' + ssp_aasymm_fname = 'aerosolAsymmetryParameter5band' + ssp_aerext_fname = 'aerosolMassExtinctionCrossSection5band' + ssp_aeralb_fname = 'aerosolSingleScatterAlbedo5band' + ssp_abcenhmd_fname = 'modalBCabsorptionParameter5band' ! extra tracers tr_iage = .false. ! ice age @@ -738,12 +762,24 @@ subroutine input_data write(nu_diag,1030) ' ssp_filename = ', trim(ssp_filename) write(nu_diag,1030) ' ssp_nsrad_fname = ', trim(ssp_nsrad_fname) write(nu_diag,1030) ' ssp_nspint_fname = ', trim(ssp_nspint_fname) + write(nu_diag,1030) ' ssp_nmodal1_fname = ', trim(ssp_nmodal1_fname) + write(nu_diag,1030) ' ssp_nmodal2_fname = ', trim(ssp_nmodal2_fname) + write(nu_diag,1030) ' ssp_nmaeros_fname = ', trim(ssp_nmaeros_fname) write(nu_diag,1030) ' ssp_snwextdr_fname = ', trim(ssp_snwextdr_fname) write(nu_diag,1030) ' ssp_snwextdf_fname = ', trim(ssp_snwextdf_fname) write(nu_diag,1030) ' ssp_snwalbdr_fname = ', trim(ssp_snwalbdr_fname) write(nu_diag,1030) ' ssp_snwalbdf_fname = ', trim(ssp_snwalbdf_fname) write(nu_diag,1030) ' ssp_sasymmdr_fname = ', trim(ssp_sasymmdr_fname) write(nu_diag,1030) ' ssp_sasymmdf_fname = ', trim(ssp_sasymmdf_fname) + write(nu_diag,1030) ' ssp_bcerad_fname = ', trim(ssp_bcerad_fname) + write(nu_diag,1030) ' ssp_bcgrerad_fname = ', trim(ssp_bcgrerad_fname) + write(nu_diag,1030) ' ssp_aasymmmd_fname = ', trim(ssp_aasymmmd_fname) + write(nu_diag,1030) ' ssp_aerextmd_fname = ', trim(ssp_aerextmd_fname) + write(nu_diag,1030) ' ssp_aeralbmd_fname = ', trim(ssp_aeralbmd_fname) + write(nu_diag,1030) ' ssp_aasymm_fname = ', trim(ssp_aasymm_fname) + write(nu_diag,1030) ' ssp_aerext_fname = ', trim(ssp_aerext_fname) + write(nu_diag,1030) ' ssp_aeralb_fname = ', trim(ssp_aeralb_fname) + write(nu_diag,1030) ' ssp_abcenhmd_fname = ', trim(ssp_abcenhmd_fname) endif endif diff --git a/configuration/scripts/icepack_in b/configuration/scripts/icepack_in index ad4686411..17167e9b1 100644 --- a/configuration/scripts/icepack_in +++ b/configuration/scripts/icepack_in @@ -70,12 +70,24 @@ ssp_filename = 'unknown' ssp_nsrad_fname = 'unknown' ssp_nspint_fname = 'unknown' + ssp_nmodal1_fname = 'unknown' + ssp_nmodal2_fname = 'unknown' + ssp_nmaeros_fname = 'unknown' + ssp_bcerad_fname = 'unknown' + ssp_bcgrerad_fname = 'unknown' ssp_snwextdr_fname = 'unknown' ssp_snwextdf_fname = 'unknown' ssp_snwalbdr_fname = 'unknown' ssp_snwalbdf_fname = 'unknown' ssp_sasymmdr_fname = 'unknown' ssp_sasymmdf_fname = 'unknown' + ssp_aasymmmd_fname = 'unknown' + ssp_aerextmd_fname = 'unknown' + ssp_aeralbmd_fname = 'unknown' + ssp_aasymm_fname = 'unknown' + ssp_aerext_fname = 'unknown' + ssp_aeralb_fname = 'unknown' + ssp_abcenhmd_fname = 'unknown' / &ponds_nml diff --git a/configuration/scripts/options/set_nml.snicar b/configuration/scripts/options/set_nml.snicar index 2ffff0cf3..ce1521d04 100644 --- a/configuration/scripts/options/set_nml.snicar +++ b/configuration/scripts/options/set_nml.snicar @@ -3,9 +3,21 @@ ssp_filename = 'ICE_MACHINE_INPUTDATA/CICE_data/forcing/snicar_optics_5bnd_snow_and_aerosols.nc' ssp_nsrad_fname = 'nSnowGrainRadiusSNICAR' ssp_nspint_fname = 'nSpectralIntervalsSNICAR' + ssp_nmodal1_fname = 'nModal1' + ssp_nmodal2_fname = 'nModal2' + ssp_nmaeros_fname = 'maxAerosolType' + ssp_bcerad_fname = 'bcEffectiveRadius' + ssp_bcgrerad_fname = 'iceGrainEffectiveRadius' ssp_snwextdr_fname = 'iceMassExtinctionCrossSectionDirect' ssp_snwextdf_fname = 'iceMassExtinctionCrossSectionDiffuse' ssp_snwalbdr_fname = 'iceSingleScatterAlbedoDirect' ssp_snwalbdf_fname = 'iceSingleScatterAlbedoDiffuse' ssp_sasymmdr_fname = 'iceAsymmetryParameterDirect' ssp_sasymmdf_fname = 'iceAsymmetryParameterDiffuse' + ssp_aasymmmd_fname = 'modalAsymmetryParameter5band' + ssp_aerextmd_fname = 'modalMassExtinctionCrossSection5band' + ssp_aeralbmd_fname = 'modalSingleScatterAlbedo5band' + ssp_aasymm_fname = 'aerosolAsymmetryParameter5band' + ssp_aerext_fname = 'aerosolMassExtinctionCrossSection5band' + ssp_aeralb_fname = 'aerosolSingleScatterAlbedo5band' + ssp_abcenhmd_fname = 'modalBCabsorptionParameter5band' From ef3758565031a7acfaa140d8a83e5d1bd8ec25f2 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Wed, 31 Aug 2022 15:50:15 -0600 Subject: [PATCH 21/64] set tmask=0 only for land cell --- configuration/driver/icedrv_init.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90 index 126d4abaf..b5a66d7a7 100644 --- a/configuration/driver/icedrv_init.F90 +++ b/configuration/driver/icedrv_init.F90 @@ -1112,7 +1112,6 @@ subroutine init_grid2 enddo tmask(:) = .true. - tmask(nx) = .false. ! land in last grid cell !----------------------------------------------------------------- ! create hemisphere masks @@ -1661,8 +1660,9 @@ subroutine set_state_var (nx, & ! already initialized above (tmask = 0) i = 4 if (i <= nx) then - sst(i) = c0 - Tf(i) = c0 + tmask(i) = .false. + sst(i) = c0 + Tf(i) = c0 endif end subroutine set_state_var From 3e636b29b922c91f1df1b683bdb9b158f08877d4 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Thu, 1 Sep 2022 13:09:14 -0600 Subject: [PATCH 22/64] interim compute_dEdd_5bd subroutine (runs) --- columnphysics/icepack_shortwave.F90 | 1621 ++++++++++++++++++++++++++- 1 file changed, 1587 insertions(+), 34 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 83282b082..86d4bf608 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -58,7 +58,7 @@ module icepack_shortwave use icepack_parameters, only: ssp_snwextdf, ssp_snwalbdf, ssp_sasymmdf use icepack_parameters, only: ssp_aasymmmd, ssp_aerextmd, ssp_aeralbmd, ssp_abcenhmd use icepack_parameters, only: ssp_aasymm, ssp_aerext, ssp_aeralb - use icepack_parameters, only: ssp_bcerad, ssp_bcgrerad +!notused use icepack_parameters, only: ssp_bcerad, ssp_bcgrerad use icepack_parameters, only: snw_ssp_table use icepack_tracers, only: ntrcr, nbtrcr_sw @@ -1093,8 +1093,8 @@ subroutine data_dEdd_5band rsnw_snicar_min = rsnw_snicar_tab(1) ! minimum snow radius - integer value used for indexing rsnw_snicar_max = rsnw_snicar_tab(nmbrad_snicar) ! maximum snow radius - integer value used for indexing - if (allocated(ssp_bcerad )) deallocate(ssp_bcerad ) - if (allocated(ssp_bcgrerad)) deallocate(ssp_bcgrerad) +!notused if (allocated(ssp_bcerad )) deallocate(ssp_bcerad ) +!notused if (allocated(ssp_bcgrerad)) deallocate(ssp_bcgrerad) if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) @@ -1109,8 +1109,8 @@ subroutine data_dEdd_5band if (allocated(ssp_aeralb )) deallocate(ssp_aeralb ) if (allocated(ssp_abcenhmd)) deallocate(ssp_abcenhmd) - allocate(ssp_bcerad (nmodal1_snicar)) ! ?, bcEffectiveRadius - allocate(ssp_bcgrerad(nmodal2_snicar)) ! ?, iceGrainEffectiveRadius +!notused allocate(ssp_bcerad (nmodal1_snicar)) ! ?, bcEffectiveRadius +!notused allocate(ssp_bcgrerad(nmodal2_snicar)) ! ?, iceGrainEffectiveRadius allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, direct allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, diffuse allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, direct @@ -1177,8 +1177,9 @@ subroutine data_dEdd_5band (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) ! tcraig, what should these be set to? TODO - ssp_bcerad = c0 - ssp_bcgrerad = c0 +!3-band data is in cice ice_forcing_bgc.F90, 5-band is in snicar file +!notused ssp_bcerad = c0 +!notused ssp_bcgrerad = c0 ssp_aasymmmd = c0 ssp_aerextmd = c0 ssp_aeralbmd = c0 @@ -1193,8 +1194,8 @@ subroutine data_dEdd_5band return endif - if ((size(ssp_bcerad,dim=1) /= nmodal1_snicar) .or. & - (size(ssp_bcgrerad,dim=1) /= nmodal2_snicar) .or. & + if (&!notused(size(ssp_bcerad,dim=1) /= nmodal1_snicar) .or. & + !notused(size(ssp_bcgrerad,dim=1) /= nmodal2_snicar) .or. & (size(ssp_snwextdr,dim=1) /= nspint_5bd ) .or. & (size(ssp_snwextdr,dim=2) /= nmbrad_snicar ) .or. & (size(ssp_snwextdf,dim=1) /= nspint_5bd ) .or. & @@ -2032,9 +2033,10 @@ subroutine shortwave_dEdd (dEdd_algae, & #else fnidr, coszen, & #endif - kaer_3bd, waer_3bd, gaer_3bd, & - kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd, & - bcenh_3bd, modal_aero, & +! kaer_3bd, waer_3bd, gaer_3bd, & +! kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd, & +! bcenh_3bd, modal_aero, & + modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hstmp, rhosnw, rsnw, hi, hp, & fi, aero_mp, avdrl, avdfl, & @@ -2046,7 +2048,10 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl) + Iswabs, fswpenl, & + kaer_tab=kaer_3bd, waer_tab=waer_3bd, gaer_tab=gaer_3bd, & + kaer_bc_tab=kaer_bc_3bd, waer_bc_tab=waer_bc_3bd, gaer_bc_tab=gaer_bc_3bd, & + bcenh=bcenh_3bd) if (icepack_warnings_aborted(subname)) return alvdr = alvdr + avdrl *fi @@ -2071,6 +2076,7 @@ subroutine shortwave_dEdd (dEdd_algae, & srftyp = 1 if (use_snicar) then nspint = nspint_5bd +goto 998 call compute_dEdd(nilyr, nslyr, nspint, & klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER @@ -2078,9 +2084,10 @@ subroutine shortwave_dEdd (dEdd_algae, & #else fnidr, coszen, & #endif - kaer_5bd, waer_5bd, gaer_5bd, & - kaer_bc_5bd, waer_bc_5bd, gaer_bc_5bd, & - bcenh_5bd, modal_aero, & +! kaer_5bd, waer_5bd, gaer_5bd, & +! kaer_bc_5bd, waer_bc_5bd, gaer_bc_5bd, & +! bcenh_5bd, modal_aero, & + modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fs, aero_mp, avdrl, avdfl, & @@ -2092,7 +2099,55 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl) + Iswabs, fswpenl, & + kaer_tab=kaer_5bd, waer_tab=waer_5bd, gaer_tab=gaer_5bd, & + kaer_bc_tab=kaer_bc_5bd, waer_bc_tab=waer_bc_5bd, gaer_bc_tab=gaer_bc_5bd, & + bcenh=bcenh_5bd) +998 continue +!original +!goto 999 + call compute_dEdd_5bd(nilyr, nslyr, klev, klevp, & + n_zaero, zbio, dEdd_algae, & + nlt_chl_sw,nlt_zaero_sw, tr_bgc_N, & + tr_zaero, & +!!!!!! heat_capacity, fnidr, coszen, & + fnidr, coszen, & + n_aero, tr_aero, R_ice, R_pnd, & +!!!!!! kaer_tab_5bd, waer_tab_5bd, gaer_tab_5bd, & +!!!!!! kaer_bc_tab_5bd, waer_bc_tab_5bd, gaer_bc_tab_5bd,& +!!!!!! bcenh_5bd, modal_aero, kalg, & + kaer_5bd, waer_5bd, gaer_5bd, & + kaer_bc_5bd, waer_bc_5bd, gaer_bc_5bd,& + bcenh_5bd, modal_aero, kalg, & + swvdr, swvdf, swidr, swidf, srftyp, & + hs, rhosnw, rsnw, hi, hp, & + fs, aero_mp, avdrl, avdfl, & + aidrl, aidfl, & + fswsfc, fswint, & + fswthru, Sswabs, & + Iswabs, fswpenl, & + asm_prm_ice_drc=ssp_sasymmdr, asm_prm_ice_dfs=ssp_sasymmdf, & + ss_alb_ice_drc=ssp_snwalbdr, ss_alb_ice_dfs=ssp_snwalbdf, & + ext_cff_mss_ice_drc=ssp_snwextdr, ext_cff_mss_ice_dfs=ssp_snwextdf) + + ! snow grain single-scattering properties for + ! direct (drc) and diffuse (dfs) shortwave incidents +! real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Model SNICAR snow SSP +! asm_prm_ice_drc , & ! snow asymmetry factor (cos(theta)) +! asm_prm_ice_dfs , & ! snow asymmetry factor (cos(theta)) +! ss_alb_ice_drc , & ! snow single scatter albedo (fraction) +! ss_alb_ice_dfs , & ! snow single scatter albedo (fraction) +! ext_cff_mss_ice_drc , & ! snow mass extinction cross section (m2/kg) +! ext_cff_mss_ice_dfs ! snow mass extinction cross section (m2/kg) +!end original +! allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, direct +! allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, diffuse +! allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, direct +! allocate(ssp_snwalbdf(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, diffuse +! allocate(ssp_sasymmdr(nspint_5bd,nmbrad_snicar )) ! snow asymmetry factor, direct +! allocate(ssp_sasymmdf(nspint_5bd,nmbrad_snicar )) ! snow asymmetry factor, diffuse +999 continue + else !echmod - this can be combined with the 5bd call above, if we use module data nspint = nspint_3bd @@ -2103,12 +2158,13 @@ subroutine shortwave_dEdd (dEdd_algae, & #else fnidr, coszen, & #endif - kaer_3bd, waer_3bd, gaer_3bd, & - kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd, & - bcenh_3bd, modal_aero, & +! kaer_3bd, waer_3bd, gaer_3bd, & +! kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd, & +! bcenh_3bd, modal_aero, & + modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & - hs, rhosnw, rsnw, hi, hp, & - fs, aero_mp, avdrl, avdfl, & + hstmp, rhosnw, rsnw, hi, hp, & + fi, aero_mp, avdrl, avdfl, & aidrl, aidfl, & fswsfc, fswint, & fswthru, & @@ -2117,7 +2173,10 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl) + Iswabs, fswpenl, & + kaer_tab=kaer_3bd, waer_tab=waer_3bd, gaer_tab=gaer_3bd, & + kaer_bc_tab=kaer_bc_3bd, waer_bc_tab=waer_bc_3bd, gaer_bc_tab=gaer_bc_3bd, & + bcenh=bcenh_3bd) endif if (icepack_warnings_aborted(subname)) return @@ -2154,12 +2213,13 @@ subroutine shortwave_dEdd (dEdd_algae, & #else fnidr, coszen, & #endif - kaer_3bd, waer_3bd, gaer_3bd, & - kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd, & - bcenh_3bd, modal_aero, & +! kaer_3bd, waer_3bd, gaer_3bd, & +! kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd, & +! bcenh_3bd, modal_aero, & + modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & - hs, rhosnw, rsnw, hi, hp, & - fp, aero_mp, avdrl, avdfl, & + hstmp, rhosnw, rsnw, hi, hp, & + fi, aero_mp, avdrl, avdfl, & aidrl, aidfl, & fswsfc, fswint, & fswthru, & @@ -2168,7 +2228,10 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl) + Iswabs, fswpenl, & + kaer_tab=kaer_3bd, waer_tab=waer_3bd, gaer_tab=gaer_3bd, & + kaer_bc_tab=kaer_bc_3bd, waer_bc_tab=waer_bc_3bd, gaer_bc_tab=gaer_bc_3bd, & + bcenh=bcenh_3bd) if (icepack_warnings_aborted(subname)) return alvdr = alvdr + avdrl *fp @@ -2293,9 +2356,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & #else fnidr, coszen, & #endif - kaer_tab, waer_tab, gaer_tab, & - kaer_bc_tab, waer_bc_tab, gaer_bc_tab, & - bcenh, modal_aero, & + modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fi, aero_mp, alvdr, alvdf, & @@ -2307,7 +2368,10 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl) + Iswabs, fswpenl, & + kaer_tab, waer_tab, gaer_tab, & + kaer_bc_tab, waer_bc_tab, gaer_bc_tab, & + bcenh) integer (kind=int_kind), intent(in) :: & nilyr , & ! number of ice layers @@ -3091,7 +3155,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & tau(k) = (ks + kabs_chl(ns,k))*dzk(k) w0(k) = ks/(ks + kabs_chl(ns,k)) *ws g(k) = gs - enddo ! k elseif (use_snicar .and. nspint == nspint_5bd) then ! SNICAR 5-band @@ -5253,7 +5316,1497 @@ real(kind=dbl_kind) function asys(gg,f) asys = (gg - f)/(c1 - f) end function asys + +!======================================================================= +!======================================================================= +! --- Begin 5 band dEdd subroutine --- +! Evaluate snow/ice/ponded ice inherent optical properties (IOPs), and +! then calculate the multiple scattering solution by calling solution_dEdd. +! +! author: Bruce P. Briegleb, NCAR +! 2013: E Hunke merged with NCAR version +! 2018: Cheng Dang merged with SNICAR 5-band snow and aersols IOPs, UC Irvine +! +! Note by Cheng Dang 2018: +! This subroutine kept the existing delta-eddington adding-doubling +! method, snow and sea ice layer sturcture, and most of the code structures +! of subroutine compute_dEdd, with major changeds listed below to merge +! current snow treatments in SNICAR Model +! 1. The shortwave radiative transfer properties of snow-covered sea ice are +! calcualted for 5 bands (1 visible and 4 near-IR) defined in SNICAR +! 2. The reflection/absorption/transmission of direct and diffuse shortwave +! incidents are calculated seperately to remove the snow grain adjustment +! in subroutine compute_dEdd +! 3. The albedo and absorption of snow-covered sea ice are adjusted when solar +! zenith angle is above 75 degree +! 4. Comments given in subroutine compute_dEdd are all kepted in this subroutine +! with modifications at where above changes applies to. +! 5. This subroutine can be modified and merged with subroutine compute_dEdd +! to compute shortwave properties of bare and ponded sea ice if requested. +! For now, these two subroutines are seperated for testing new features. +! +! The justification and explaination for above changes can be find in paper: +! Dang, C., Zender, C. S., and Flanner, M. G.: Inter-comparison and improvement +! of 2-stream shortwave radiative transfer models for unified treatment of +! cryospheric surfaces in ESMs, The Cryosphere Discuss., +! https://doi.org/10.5194/tc-2019-22, in review, 2019 + + subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & + n_zaero, zbio, dEdd_algae, & + nlt_chl_sw,nlt_zaero_sw, tr_bgc_N, & + tr_zaero, & +! heat_capacity, fnidr, coszen, & + fnidr, coszen, & + n_aero, tr_aero, R_ice, R_pnd, & + kaer_tab_5bd, waer_tab_5bd, gaer_tab_5bd, & + kaer_bc_tab_5bd, waer_bc_tab_5bd, & + gaer_bc_tab_5bd, bcenh_5bd, modal_aero, kalg, & + swvdr, swvdf, swidr, swidf, srftyp, & + hs, rhosnw, rsnw, hi, hp, & + fi, aero_mp, alvdr, alvdf, & + alidr, alidf, & + fswsfc, fswint, & + fswthru, Sswabs, & + Iswabs, fswpenl, & + asm_prm_ice_drc, asm_prm_ice_dfs, & + ss_alb_ice_drc, ss_alb_ice_dfs, & + ext_cff_mss_ice_drc, ext_cff_mss_ice_dfs) + + integer (kind=int_kind), intent(in) :: & + nilyr , & ! number of ice layers + nslyr , & ! number of snow layers + n_aero , & ! number of aerosol tracers + n_zaero , & ! number of zaerosol tracers in use + nlt_chl_sw , & ! index for chla + klev , & ! number of radiation layers - 1 + klevp ! number of radiation interfaces - 1 + ! (0 layer is included also) + + integer (kind=int_kind), dimension(:), intent(in) :: & + nlt_zaero_sw ! index for zaerosols + + logical (kind=log_kind), intent(in) :: & +! heat_capacity , & ! if true, ice has nonzero heat capacity + tr_aero , & ! if .true., use aerosol tracers + dEdd_algae , & ! .true. use prognostic chla in dEdd + tr_bgc_N , & ! .true. active bgc (skl or z) + tr_zaero , & ! .true. use zaerosols + modal_aero ! .true. use modal aerosol treatment + + ! dEdd tuning parameters, set in namelist + real (kind=dbl_kind), intent(in) :: & + R_ice , & ! sea ice tuning parameter; +1 > 1sig increase in albedo + R_pnd ! ponded ice tuning parameter; +1 > 1sig increase in albedo + + real (kind=dbl_kind), intent(in) :: & + kalg , & ! algae absorption coefficient + fnidr , & ! fraction of direct to total down flux in nir + coszen , & ! cosine solar zenith angle + swvdr , & ! shortwave down at surface, visible, direct (W/m^2) + swvdf , & ! shortwave down at surface, visible, diffuse (W/m^2) + swidr , & ! shortwave down at surface, near IR, direct (W/m^2) + swidf ! shortwave down at surface, near IR, diffuse (W/m^2) + + integer (kind=int_kind), intent(in) :: & + srftyp ! surface type over ice: (0=air, 1=snow, 2=pond) + + real (kind=dbl_kind), intent(in) :: & + hs ! snow thickness (m) + + real (kind=dbl_kind), dimension (:), intent(in) :: & + rhosnw , & ! snow density in snow layer (kg/m3) + rsnw , & ! snow grain radius in snow layer (m) + zbio , & ! zaerosol + chla shortwave tracers kg/m^3 + aero_mp ! aerosol mass path in kg/m2 + + real (kind=dbl_kind), intent(in) :: & + hi , & ! ice thickness (m) + hp , & ! pond depth (m) + fi ! snow/bare ice fractional coverage (0 to 1) + + real (kind=dbl_kind), intent(inout) :: & + alvdr , & ! visible, direct, albedo (fraction) + alvdf , & ! visible, diffuse, albedo (fraction) + alidr , & ! near-ir, direct, albedo (fraction) + alidf , & ! near-ir, diffuse, albedo (fraction) + fswsfc , & ! SW absorbed at snow/bare ice/pondedi ice surface (W m-2) + fswint , & ! SW interior absorption (below surface, above ocean,W m-2) + fswthru ! SW through snow/bare ice/ponded ice into ocean (W m-2) + + real (kind=dbl_kind), dimension (:), intent(inout) :: & + fswpenl , & ! visible SW entering ice layers (W m-2) + Sswabs , & ! SW absorbed in snow layer (W m-2) + Iswabs ! SW absorbed in ice layer (W m-2) + + + ! snow grain single-scattering properties for + ! direct (drc) and diffuse (dfs) shortwave incidents + real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Model SNICAR snow SSP + asm_prm_ice_drc , & ! snow asymmetry factor (cos(theta)) + asm_prm_ice_dfs , & ! snow asymmetry factor (cos(theta)) + ss_alb_ice_drc , & ! snow single scatter albedo (fraction) + ss_alb_ice_dfs , & ! snow single scatter albedo (fraction) + ext_cff_mss_ice_drc , & ! snow mass extinction cross section (m2/kg) + ext_cff_mss_ice_dfs ! snow mass extinction cross section (m2/kg) + + real (kind=dbl_kind), dimension(:,:), intent(in) :: & + kaer_tab_5bd , & ! aerosol mass extinction cross section (m2/kg) + waer_tab_5bd , & ! aerosol single scatter albedo (fraction) + gaer_tab_5bd ! aerosol asymmetry parameter (cos(theta)) + + real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Modal aerosol treatment + kaer_bc_tab_5bd , & ! aerosol mass extinction cross section (m2/kg) + waer_bc_tab_5bd , & ! aerosol single scatter albedo (fraction) + gaer_bc_tab_5bd ! aerosol asymmetry parameter (cos(theta)) + + real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment + bcenh_5bd ! BC absorption enhancement factor + +!----------------------------------------------------------------------- +! Set up optical property profiles, based on snow, sea ice and ponded +! ice IOPs from: +! +! Briegleb, B. P., and B. Light (2007): A Delta-Eddington Multiple +! Scattering Parameterization for Solar Radiation in the Sea Ice +! Component of the Community Climate System Model, NCAR Technical +! Note NCAR/TN-472+STR February 2007 +! +! Computes column Delta-Eddington radiation solution for specific +! surface type: either snow over sea ice, bare sea ice, or ponded sea ice. +! +! Divides solar spectrum into 3 intervals: 0.2-0.7, 0.7-1.19, and +! 1.19-5.0 micro-meters. The latter two are added (using an assumed +! partition of incident shortwave in the 0.7-5.0 micro-meter band between +! the 0.7-1.19 and 1.19-5.0 micro-meter band) to give the final output +! of 0.2-0.7 visible and 0.7-5.0 near-infrared albedos and fluxes. +! +! Specifies vertical layer optical properties based on input snow depth, +! density and grain radius, along with ice and pond depths, then computes +! layer by layer Delta-Eddington reflectivity, transmissivity and combines +! layers (done by calling routine solution_dEdd). Finally, surface albedos +! and internal fluxes/flux divergences are evaluated. +! +! Description of the level and layer index conventions. This is +! for the standard case of one snow layer and four sea ice layers. +! +! Please read the following; otherwise, there is 99.9% chance you +! will be confused about indices at some point in time........ :) +! +! CICE4.0 snow treatment has one snow layer above the sea ice. This +! snow layer has finite heat capacity, so that surface absorption must +! be distinguished from internal. The Delta-Eddington solar radiation +! thus adds extra surface scattering layers to both snow and sea ice. +! Note that in the following, we assume a fixed vertical layer structure +! for the radiation calculation. In other words, we always have the +! structure shown below for one snow and four sea ice layers, but for +! ponded ice the pond fills "snow" layer 1 over the sea ice, and for +! bare sea ice the top layers over sea ice are treated as transparent air. +! +! SSL = surface scattering layer for either snow or sea ice +! DL = drained layer for sea ice immediately under sea ice SSL +! INT = interior layers for sea ice below the drained layer. +! +! Notice that the radiation level starts with 0 at the top. Thus, +! the total number radiation layers is klev+1, where klev is the +! sum of nslyr, the number of CCSM snow layers, and nilyr, the +! number of CCSM sea ice layers, plus the sea ice SSL: +! klev = 1 + nslyr + nilyr +! +! For the standard case illustrated below, nslyr=1, nilyr=4, +! and klev=6, with the number of layer interfaces klevp=klev+1. +! Layer interfaces are the surfaces on which reflectivities, +! transmissivities and fluxes are evaluated. +! +! CCSM3 Sea Ice Model Delta-Eddington Solar Radiation +! Layers and Interfaces +! Layer Index Interface Index +! --------------------- --------------------- 0 +! 0 \\\ snow SSL \\\ +! snow layer 1 --------------------- 1 +! 1 rest of snow layer +! +++++++++++++++++++++ +++++++++++++++++++++ 2 +! 2 \\\ sea ice SSL \\\ +! sea ice layer 1 --------------------- 3 +! 3 sea ice DL +! --------------------- --------------------- 4 +! +! sea ice layer 2 4 sea ice INT +! +! --------------------- --------------------- 5 +! +! sea ice layer 3 5 sea ice INT +! +! --------------------- --------------------- 6 +! +! sea ice layer 4 6 sea ice INT +! +! --------------------- --------------------- 7 +! +! When snow lies over sea ice, the radiation absorbed in the +! snow SSL is used for surface heating, and that in the rest +! of the snow layer for its internal heating. For sea ice in +! this case, all of the radiant heat absorbed in both the +! sea ice SSL and the DL are used for sea ice layer 1 heating. +! +! When pond lies over sea ice, and for bare sea ice, all of the +! radiant heat absorbed within and above the sea ice SSL is used +! for surface heating, and that absorbed in the sea ice DL is +! used for sea ice layer 1 heating. +! +! Basically, vertical profiles of the layer extinction optical depth (tau), +! single scattering albedo (w0) and asymmetry parameter (g) are required over +! the klev+1 layers, where klev+1 = 2 + nslyr + nilyr. All of the surface type +! information and snow/ice iop properties are evaulated in this routine, so +! the tau,w0,g profiles can be passed to solution_dEdd for multiple scattering +! evaluation. Snow, bare ice and ponded ice iops are contained in data arrays +! in this routine. +! +!----------------------------------------------------------------------- + + ! local variables + + integer (kind=int_kind) :: & + k , & ! level index + ns , & ! spectral index + nr , & ! index for grain radius tables + ki , & ! index for internal absorption + km , & ! k starting index for snow, sea ice internal absorption + kp , & ! k+1 or k+2 index for snow, sea ice internal absorption + ksrf , & ! level index for surface absorption + ksnow , & ! level index for snow density and grain size + kii ! level starting index for sea ice (nslyr+1) + + integer (kind=int_kind), parameter :: & + nmbrad = 32 ! number of snow grain radii in tables + + real (kind=dbl_kind) :: & + avdr , & ! visible albedo, direct (fraction) + avdf , & ! visible albedo, diffuse (fraction) + aidr , & ! near-ir albedo, direct (fraction) + aidf ! near-ir albedo, diffuse (fraction) + + real (kind=dbl_kind) :: & + fsfc , & ! shortwave absorbed at snow/bare ice/ponded ice surface (W m-2) + fint , & ! shortwave absorbed in interior (W m-2) + fthru ! shortwave through snow/bare ice/ponded ice to ocean (W/m^2) + + real (kind=dbl_kind), dimension(nslyr) :: & + Sabs ! shortwave absorbed in snow layer (W m-2) + + real (kind=dbl_kind), dimension(nilyr) :: & + Iabs ! shortwave absorbed in ice layer (W m-2) + + real (kind=dbl_kind), dimension(nilyr+1) :: & + fthrul ! shortwave through to ice layers (W m-2) + + real (kind=dbl_kind), dimension (nspint_3bd) :: & + wghtns ! spectral weights + + real (kind=dbl_kind), parameter :: & + cp67 = 0.67_dbl_kind , & ! nir band weight parameter + cp33 = 0.33_dbl_kind , & ! nir band weight parameter + cp78 = 0.78_dbl_kind , & ! nir band weight parameter + cp22 = 0.22_dbl_kind , & ! nir band weight parameter + cp01 = 0.01_dbl_kind ! for ocean visible albedo + + real (kind=dbl_kind), dimension (0:klev) :: & + tau , & ! layer extinction optical depth + w0 , & ! layer single scattering albedo + g ! layer asymmetry parameter + + ! following arrays are defined at model interfaces; 0 is the top of the + ! layer above the sea ice; klevp is the sea ice/ocean interface. + real (kind=dbl_kind), dimension (0:klevp) :: & + trndir , & ! solar beam down transmission from top + trntdr , & ! total transmission to direct beam for layers above + trndif , & ! diffuse transmission to diffuse beam for layers above + rupdir , & ! reflectivity to direct radiation for layers below + rupdif , & ! reflectivity to diffuse radiation for layers below + rdndif ! reflectivity to diffuse radiation for layers above + + real (kind=dbl_kind), dimension (0:klevp) :: & + dfdir , & ! down-up flux at interface due to direct beam at top surface + dfdif ! down-up flux at interface due to diffuse beam at top surface + + real (kind=dbl_kind) :: & + refk , & ! interface k multiple scattering term + delr , & ! snow grain radius interpolation parameter + ! inherent optical properties (iop) for snow + Qs , & ! Snow extinction efficiency + ks , & ! Snow mass extinction coefficient (m^2/kg) + ws , & ! Snow single scattering albedo + gs ! Snow asymmetry parameter + + real (kind=dbl_kind), dimension(nslyr) :: & + frsnw ! snow grain radius in snow layer * adjustment factor (m) + ! actual used ice and ponded ice IOPs, allowing for tuning + ! modifications of the above "_mn" value + real (kind=dbl_kind), dimension (nspint_3bd) :: & + ki_ssl , & ! Surface-scattering-layer ice extinction coefficient (/m) + wi_ssl , & ! Surface-scattering-layer ice single scattering albedo + gi_ssl , & ! Surface-scattering-layer ice asymmetry parameter + ki_dl , & ! Drained-layer ice extinction coefficient (/m) + wi_dl , & ! Drained-layer ice single scattering albedo + gi_dl , & ! Drained-layer ice asymmetry parameter + ki_int , & ! Interior-layer ice extinction coefficient (/m) + wi_int , & ! Interior-layer ice single scattering albedo + gi_int , & ! Interior-layer ice asymmetry parameter + ki_p_ssl , & ! Ice under pond srf scat layer extinction coefficient (/m) + wi_p_ssl , & ! Ice under pond srf scat layer single scattering albedo + gi_p_ssl , & ! Ice under pond srf scat layer asymmetry parameter + ki_p_int , & ! Ice under pond extinction coefficient (/m) + wi_p_int , & ! Ice under pond single scattering albedo + gi_p_int ! Ice under pond asymmetry parameter + + real (kind=dbl_kind), dimension(0:klev) :: & + dzk ! layer thickness + + real (kind=dbl_kind) :: & + dz , & ! snow, sea ice or pond water layer thickness + dz_ssl , & ! snow or sea ice surface scattering layer thickness + fs ! scaling factor to reduce (nilyr<4) or increase (nilyr>4) DL + ! extinction coefficient to maintain DL optical depth constant + ! with changing number of sea ice layers, to approximately + ! conserve computed albedo for constant physical depth of sea + ! ice when the number of sea ice layers vary + real (kind=dbl_kind) :: & + sig , & ! scattering coefficient for tuning + kabs , & ! absorption coefficient for tuning + sigp ! modified scattering coefficient for tuning + + + real (kind=dbl_kind) :: & + albodr , & ! spectral ocean albedo to direct rad + albodf ! spectral ocean albedo to diffuse rad + + ! for melt pond transition to bare sea ice for small pond depths + real (kind=dbl_kind) :: & + sig_i , & ! ice scattering coefficient (/m) + sig_p , & ! pond scattering coefficient (/m) + kext ! weighted extinction coefficient (/m) + + ! aerosol optical properties from Mark Flanner, 26 June 2008 + ! order assumed: hydrophobic black carbon, hydrophilic black carbon, + ! four dust aerosols by particle size range: + ! dust1(.05-0.5 micron), dust2(0.5-1.25 micron), + ! dust3(1.25-2.5 micron), dust4(2.5-5.0 micron) + ! spectral bands same as snow/sea ice: (0.3-0.7 micron, 0.7-1.19 micron + ! and 1.19-5.0 micron in wavelength) + + integer (kind=int_kind) :: & + na , n ! aerosol index + + real (kind=dbl_kind) :: & + taer , & ! total aerosol extinction optical depth + waer , & ! total aerosol single scatter albedo + gaer , & ! total aerosol asymmetry parameter + swdr , & ! shortwave down at surface, direct (W/m^2) + swdf , & ! shortwave down at surface, diffuse (W/m^2) + rnilyr , & ! real(nilyr) + rnslyr , & ! real(nslyr) + rns , & ! real(ns) + tmp_0, tmp_ks, tmp_kl ! temp variables + + integer(kind=int_kind), dimension(0:klev) :: & + k_bcini , & + k_bcins , & + k_bcexs + + real(kind=dbl_kind):: & + tmp_gs, tmp1 ! temp variables + + ! inherent optical property (iop) arrays for ice and ponded ice + ! mn = specified mean (or base) value + ! ki = extinction coefficient (/m) + ! wi = single scattering albedo + ! gi = asymmetry parameter + + ! ice surface scattering layer (ssl) iops +! real (kind=dbl_kind), dimension (nspint), parameter :: & +! ki_ssl_mn = (/ 1000.1_dbl_kind, 1003.7_dbl_kind, 7042._dbl_kind/), & +! wi_ssl_mn = (/ .9999_dbl_kind, .9963_dbl_kind, .9088_dbl_kind/), & +! gi_ssl_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind/) + + ! ice drained layer (dl) iops +! real (kind=dbl_kind), dimension (nspint), parameter :: & +! ki_dl_mn = (/ 100.2_dbl_kind, 107.7_dbl_kind, 1309._dbl_kind /), & +! wi_dl_mn = (/ .9980_dbl_kind, .9287_dbl_kind, .0305_dbl_kind /), & +! gi_dl_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) + + ! ice interior layer (int) iops +! real (kind=dbl_kind), dimension (nspint), parameter :: & +! ki_int_mn = (/ 20.2_dbl_kind, 27.7_dbl_kind, 1445._dbl_kind /), & +! wi_int_mn = (/ .9901_dbl_kind, .7223_dbl_kind, .0277_dbl_kind /), & +! gi_int_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) + + ! ponded ice surface scattering layer (ssl) iops +! real (kind=dbl_kind), dimension (nspint), parameter :: & +! ki_p_ssl_mn = (/ 70.2_dbl_kind, 77.7_dbl_kind, 1309._dbl_kind/), & +! wi_p_ssl_mn = (/ .9972_dbl_kind, .9009_dbl_kind, .0305_dbl_kind/), & +! gi_p_ssl_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) + + ! ponded ice interior layer (int) iops +! real (kind=dbl_kind), dimension (nspint), parameter :: & +! ki_p_int_mn = (/ 20.2_dbl_kind, 27.7_dbl_kind, 1445._dbl_kind/), & +! wi_p_int_mn = (/ .9901_dbl_kind, .7223_dbl_kind, .0277_dbl_kind/), & +! gi_p_int_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) + + ! inherent optical property (iop) arrays for pond water and underlying ocean + ! kw = Pond water extinction coefficient (/m) + ! ww = Pond water single scattering albedo + ! gw = Pond water asymmetry parameter +! real (kind=dbl_kind), dimension (nspint), parameter :: & +! kw = (/ 0.20_dbl_kind, 12.0_dbl_kind, 729._dbl_kind /), & +! ww = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /), & +! gw = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /) + + real (kind=dbl_kind), parameter :: & + rhoi = 917.0_dbl_kind, & ! pure ice mass density (kg/m3) + fr_max = 1.00_dbl_kind, & ! snow grain adjustment factor max + fr_min = 0.80_dbl_kind, & ! snow grain adjustment factor min + ! tuning parameters + ! ice and pond scat coeff fractional change for +- one-sigma in albedo + fp_ice = 0.15_dbl_kind, & ! ice fraction of scat coeff for + stn dev in alb + fm_ice = 0.15_dbl_kind, & ! ice fraction of scat coeff for - stn dev in alb + fp_pnd = 2.00_dbl_kind, & ! ponded ice fraction of scat coeff for + stn dev in alb + fm_pnd = 0.50_dbl_kind ! ponded ice fraction of scat coeff for - stn dev in alb + + real (kind=dbl_kind), parameter :: & !chla-specific absorption coefficient + kchl_tab = 0.01 !0.0023-0.0029 Perovich 1993, also 0.0067 m^2 (mg Chl)^-1 + ! found values of 0.006 to 0.023 m^2/ mg (676 nm) Neukermans 2014 + ! and averages over the 300-700nm of 0.0075 m^2/mg in ice Fritsen (2011) + ! at 440nm values as high as 0.2 m^2/mg in under ice bloom (Balch 2014) + ! Grenfell 1991 uses 0.004 (m^2/mg) which is (0.0078 * spectral weighting) + !chlorophyll mass extinction cross section (m^2/mg chla) + + character(len=char_len_long) :: & + warning ! warning message + + ! SNICAR + ! new inputs + integer (kind=int_kind), parameter :: & + nmbrad_snicar = 1471 , &! number of snow grain radii in SNICAR + ! snow iops table + rsnw_snicar_max = 1500 , & + rsnw_snicar_min = 30 + + real (kind=dbl_kind), dimension (nspint_5bd) :: & + wghtns_5bd_dfs, & ! spectral weights for diffuse incident + wghtns_5bd_drc ! spectral weights for direct incident + + ! FUTURE-WORK: update 5-band sea ice iops when avalible + real (kind=dbl_kind), dimension (nspint_5bd) :: & ! for ice only + ki_ssl_5bd , & ! Surface-scattering-layer ice extinction coefficient (/m) + wi_ssl_5bd , & ! Surface-scattering-layer ice single scattering albedo + gi_ssl_5bd , & ! Surface-scattering-layer ice asymmetry parameter + ki_dl_5bd , & ! Drained-layer ice extinction coefficient (/m) + wi_dl_5bd , & ! Drained-layer ice single scattering albedo + gi_dl_5bd , & ! Drained-layer ice asymmetry parameter + ki_int_5bd , & ! Interior-layer ice extinction coefficient (/m) + wi_int_5bd , & ! Interior-layer ice single scattering albedo + gi_int_5bd ! Interior-layer ice asymmetry parameter + + ! 5-band aersol data + real (kind=dbl_kind), dimension(nspint_5bd, 0:klev) :: & + kabs_chl_5bd , & ! absorption coefficient for chlorophyll (/m) + tzaer_5bd , & ! total aerosol extinction optical depth + wzaer_5bd , & ! total aerosol single scatter albedo + gzaer_5bd ! total aerosol asymmetry parameter + + ! index + integer (kind=int_kind) :: & + nsky !sky = 1 (2) for direct (diffuse) downward SW incident + + ! temporary variables used to assign variables for direct/diffuse incident + ! based on snicar 5 band IOPs + real (kind=dbl_kind), dimension (0:klevp) :: & + dfdir_snicar , & ! down-up flux at interface due to direct beam at top surface + dfdif_snicar , & ! down-up flux at interface due to diffuse beam at top surface + rupdir_snicar , & ! reflectivity to direct radiation for layers below + rupdif_snicar ! reflectivity to diffuse radiation for layers above + + ! solar zenith angle parameterizations + real (kind=dbl_kind), parameter :: & + sza_a0 = 0.085730_dbl_kind , & + sza_a1 = -0.630883_dbl_kind , & + sza_a2 = 1.303723_dbl_kind , & + sza_b0 = 1.467291_dbl_kind , & + sza_b1 = -3.338043_dbl_kind , & + sza_b2 = 6.807489_dbl_kind , & + mu_75 = 0.2588_dbl_kind ! cosine of 75 degree + + real (kind=dbl_kind) :: & + sza_c1 , & ! parameter for high sza adjustment + sza_c0 , & ! parameter for high sza adjustment + sza_factor , & ! parameter for high sza adjustment + mu0 + + ! 5-bands ice surface scattering layer (ssl) iops to match SNICAR calculations + ! note by Cheng Dang: + ! for now these data are not needed since the sea ice layer IOPs can be directly + ! assigned based on the 3 bands data after adjustment based on tuning parameter R_ice + ! In the future, when 5-band sea ice IOPs are available, these data shall be updated + ! and the sea ice layer IOPs shall be calculated based on updated 5band iops* + ! + ! The 5band data given in this section are based on CICE and SNICAR band choice: + ! SNICAR band 1 = CICE band 1 + ! SNICAR band 2 = SNICAR band 3 = CICE band 2 + ! SNICAR band 4 = SNICAR band 5 = CICE band 3 + + ! ice surface scattering layer (ssl) iops + real (kind=dbl_kind), dimension (nspint_5bd), parameter :: & + ki_ssl_mn_5bd = (/ 1000.1_dbl_kind, 1003.7_dbl_kind, 1003.7_dbl_kind, & + 7042._dbl_kind, 7042._dbl_kind /), & + wi_ssl_mn_5bd = (/ .9999_dbl_kind, .9963_dbl_kind, .9963_dbl_kind, & + .9088_dbl_kind, .9088_dbl_kind /), & + gi_ssl_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & + .94_dbl_kind, .94_dbl_kind /) + + ! ice drained layer (dl) iops + real (kind=dbl_kind), dimension (nspint_5bd), parameter :: & + ki_dl_mn_5bd = (/ 100.2_dbl_kind, 107.7_dbl_kind, 107.7_dbl_kind, & + 1309._dbl_kind, 1309._dbl_kind /), & + wi_dl_mn_5bd = (/ .9980_dbl_kind, .9287_dbl_kind, .9287_dbl_kind, & + .0305_dbl_kind, .0305_dbl_kind /), & + gi_dl_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & + .94_dbl_kind, .94_dbl_kind /) + + ! ice interior layer (int) iops + real (kind=dbl_kind), dimension (nspint_5bd), parameter :: & + ki_int_mn_5bd = (/ 20.2_dbl_kind, 27.7_dbl_kind, 27.7_dbl_kind, & + 1445._dbl_kind, 1445._dbl_kind/), & + wi_int_mn_5bd = (/ .9901_dbl_kind, .7223_dbl_kind, .7223_dbl_kind, & + .0277_dbl_kind, .0277_dbl_kind /), & + gi_int_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & + .94_dbl_kind, .94_dbl_kind /) + +!----------------------------------------------------------------------- +! Initialize and tune bare ice/ponded ice iops + + k_bcini(:) = c0 + k_bcins(:) = c0 + k_bcexs(:) = c0 + + rnilyr = c1/real(nilyr,kind=dbl_kind) + rnslyr = c1/real(nslyr,kind=dbl_kind) + kii = nslyr + 1 + + ! initialize albedos and fluxes to 0 + fthrul = c0 + Iabs = c0 + kabs_chl_5bd(:,:) = c0 + tzaer_5bd(:,:) = c0 + wzaer_5bd(:,:) = c0 + gzaer_5bd(:,:) = c0 + + avdr = c0 + avdf = c0 + aidr = c0 + aidf = c0 + fsfc = c0 + fint = c0 + fthru = c0 + + ! spectral weights - 3 bands + ! this section of code is kept for future mearge between 5band and 3 band + ! subroutines + ! weights 2 (0.7-1.19 micro-meters) and 3 (1.19-5.0 micro-meters) + ! are chosen based on 1D calculations using ratio of direct to total + ! near-infrared solar (0.7-5.0 micro-meter) which indicates clear/cloudy + ! conditions: more cloud, the less 1.19-5.0 relative to the + ! 0.7-1.19 micro-meter due to cloud absorption. + !wghtns(1) = c1 + !wghtns(2) = cp67 + (cp78-cp67)*(c1-fnidr) +! wghtns(3) = cp33 + (cp22-cp33)*(c1-fnidr) + !wghtns(3) = c1 - wghtns(2) + + ! spectral weights - 5 bands + ! direct beam incident + ! add-local-variable + wghtns_5bd_drc(1) = 1._dbl_kind + wghtns_5bd_drc(2) = 0.49352158521175_dbl_kind!0.49352_dbl_kind!0.50_dbl_kind + wghtns_5bd_drc(3) = 0.18099494230665_dbl_kind!0.18100_dbl_kind!0.18_dbl_kind + wghtns_5bd_drc(4) = 0.12094898498813_dbl_kind!0.12095_dbl_kind!0.12_dbl_kind ! + wghtns_5bd_drc(5) = c1-(wghtns_5bd_drc(2)+wghtns_5bd_drc(3)+wghtns_5bd_drc(4)) + !wghtns_5bd_drc(5) = 0.20453448749347_dbl_kind!0.20453_dbl_kind!0.20_dbl_kind ! + + ! diffuse incident + wghtns_5bd_dfs(1) = 1._dbl_kind + wghtns_5bd_dfs(2) = 0.58581507618433_dbl_kind!0.58582_dbl_kind!0.59_dbl_kind ! + wghtns_5bd_dfs(3) = 0.20156903770812_dbl_kind!0.20157_dbl_kind!0.20_dbl_kind ! + wghtns_5bd_dfs(4) = 0.10917889346386_dbl_kind!0.10918_dbl_kind!0.11_dbl_kind ! + wghtns_5bd_dfs(5) = c1-(wghtns_5bd_dfs(2)+wghtns_5bd_dfs(3)+wghtns_5bd_dfs(4)) + !wghtns_5bd_dfs(5) = 0.10343699264369_dbl_kind!0.10343_dbl_kind!0.10_dbl_kind ! + + + do k = 1, nslyr + !frsnw(k) = (fr_max*fnidr + fr_min*(c1-fnidr))*rsnw(k) + Sabs(k) = c0 + enddo + + ! layer thicknesses + ! snow + dz = hs*rnslyr + ! for small enough snow thickness, ssl thickness half of top snow layer +!ech: note this is highly resolution dependent! + dzk(0) = min(hs_ssl, dz/c2) + dzk(1) = dz - dzk(0) + if (nslyr > 1) then + do k = 2, nslyr + dzk(k) = dz + enddo + endif + + ! ice + dz = hi*rnilyr + ! empirical reduction in sea ice ssl thickness for ice thinner than 1.5m; + ! factor of 30 gives best albedo comparison with limited observations + dz_ssl = hi_ssl +!ech: note hardwired parameters +! if( hi < 1.5_dbl_kind ) dz_ssl = hi/30._dbl_kind + dz_ssl = min(hi_ssl, hi/30._dbl_kind) + ! set sea ice ssl thickness to half top layer if sea ice thin enough +!ech: note this is highly resolution dependent! + dz_ssl = min(dz_ssl, dz/c2) + + dzk(kii) = dz_ssl + dzk(kii+1) = dz - dz_ssl + if (kii+2 <= klev) then + do k = kii+2, klev + dzk(k) = dz + enddo + endif + + ! adjust sea ice iops with tuning parameters; tune only the + ! scattering coefficient by factors of R_ice, R_pnd, where + ! R values of +1 correspond approximately to +1 sigma changes in albedo, and + ! R values of -1 correspond approximately to -1 sigma changes in albedo + ! Note: the albedo change becomes non-linear for R values > +1 or < -1 + if( R_ice >= c0 ) then + do ns = 1, nspint_5bd + sigp = ki_ssl_mn_5bd(ns)*wi_ssl_mn_5bd(ns)*(c1+fp_ice*R_ice) + ki_ssl_5bd(ns) = sigp+ki_ssl_mn_5bd(ns)*(c1-wi_ssl_mn_5bd(ns)) + wi_ssl_5bd(ns) = sigp/ki_ssl_5bd(ns) + gi_ssl_5bd(ns) = gi_ssl_mn_5bd(ns) + + sigp = ki_dl_mn_5bd(ns)*wi_dl_mn_5bd(ns)*(c1+fp_ice*R_ice) + ki_dl_5bd(ns) = sigp+ki_dl_mn_5bd(ns)*(c1-wi_dl_mn_5bd(ns)) + wi_dl_5bd(ns) = sigp/ki_dl_5bd(ns) + gi_dl_5bd(ns) = gi_dl_mn_5bd(ns) + + sigp = ki_int_mn_5bd(ns)*wi_int_mn_5bd(ns)*(c1+fp_ice*R_ice) + ki_int_5bd(ns) = sigp+ki_int_mn_5bd(ns)*(c1-wi_int_mn_5bd(ns)) + wi_int_5bd(ns) = sigp/ki_int_5bd(ns) + gi_int_5bd(ns) = gi_int_mn_5bd(ns) + enddo + else !if( R_ice < c0 ) then + do ns = 1, nspint_5bd + sigp = ki_ssl_mn_5bd(ns)*wi_ssl_mn_5bd(ns)*(c1+fm_ice*R_ice) + sigp = max(sigp, c0) + ki_ssl_5bd(ns) = sigp+ki_ssl_mn_5bd(ns)*(c1-wi_ssl_mn_5bd(ns)) + wi_ssl_5bd(ns) = sigp/ki_ssl_5bd(ns) + gi_ssl_5bd(ns) = gi_ssl_mn_5bd(ns) + + sigp = ki_dl_mn_5bd(ns)*wi_dl_mn_5bd(ns)*(c1+fm_ice*R_ice) + sigp = max(sigp, c0) + ki_dl_5bd(ns) = sigp+ki_dl_mn_5bd(ns)*(c1-wi_dl_mn_5bd(ns)) + wi_dl_5bd(ns) = sigp/ki_dl_5bd(ns) + gi_dl_5bd(ns) = gi_dl_mn_5bd(ns) + + sigp = ki_int_mn_5bd(ns)*wi_int_mn_5bd(ns)*(c1+fm_ice*R_ice) + sigp = max(sigp, c0) + ki_int_5bd(ns) = sigp+ki_int_mn_5bd(ns)*(c1-wi_int_mn_5bd(ns)) + wi_int_5bd(ns) = sigp/ki_int_5bd(ns) + gi_int_5bd(ns) = gi_int_mn_5bd(ns) + enddo + endif ! adjust ice iops + + ! use srftyp to determine interface index of surface absorption + ksrf = 1 ! snow covered sea ice + + if (tr_bgc_N .and. dEdd_algae) then ! compute kabs_chl for chlorophyll + do k = 0, klev + kabs_chl_5bd(1,k) = kchl_tab*zbio(nlt_chl_sw+k) + enddo + else + k = klev + kabs_chl_5bd(1,k) = kalg*(0.50_dbl_kind/dzk(k)) + !print *, 'aerosol, k, kabs_chl_5bd(1,k)', k, kabs_chl_5bd(1,k) + endif + +!mgf++ + if (modal_aero) then + do k=0,klev + if (k < nslyr+1) then ! define indices for snow layer + ! use top rsnw, rhosnw for snow ssl and rest of top layer + ! Cheng: note that aerosol IOPs are related to snow grain radius. + ! CICE adjusted snow grain radius rsnw to frsnw, while for + ! SNICAR there is no need, the tmp_gs is therefore calculated + ! differently from code in subroutine compute_dEdd + ksnow = k - min(k-1,0) + tmp_gs = rsnw(ksnow) ! use rsnw not frsnw + + ! get grain size index: + ! works for 25 < snw_rds < 1625 um: + if (tmp_gs < 125) then + tmp1 = tmp_gs/50 + k_bcini(k) = nint(tmp1) + elseif (tmp_gs < 175) then + k_bcini(k) = 2 + else + tmp1 = (tmp_gs/250)+2 + k_bcini(k) = nint(tmp1) + endif + else ! use the largest snow grain size for ice + k_bcini(k) = 8 + endif + ! Set index corresponding to BC effective radius. Here, + ! asssume constant BC effective radius of 100nm + ! (corresponding to index 2) + k_bcins(k) = 2 + k_bcexs(k) = 2 + + ! check bounds: + if (k_bcini(k) < 1) k_bcini(k) = 1 + if (k_bcini(k) > 8) k_bcini(k) = 8 + if (k_bcins(k) < 1) k_bcins(k) = 1 + if (k_bcins(k) > 10) k_bcins(k) = 10 + if (k_bcexs(k) < 1) k_bcexs(k) = 1 + if (k_bcexs(k) > 10) k_bcexs(k) = 10 + + ! print ice radius index: + ! write(warning,*) "MGFICE2:k, ice index= ",k, k_bcini(k) + ! call add_warning(warning) + enddo ! k + ! assign the aerosol index + + if (tr_zaero .and. dEdd_algae) then ! compute kzaero for chlorophyll + do n = 1,n_zaero + if (n == 1) then ! interstitial BC + do k = 0, klev + do ns = 1,nspint_5bd ! not weighted by aice + tzaer_5bd(ns,k) = tzaer_5bd(ns,k)+kaer_bc_tab_5bd(ns,k_bcexs(k))* & + zbio(nlt_zaero_sw(n)+k)*dzk(k) + wzaer_5bd(ns,k) = wzaer_5bd(ns,k)+kaer_bc_tab_5bd(ns,k_bcexs(k))* & + waer_bc_tab_5bd(ns,k_bcexs(k))* & + zbio(nlt_zaero_sw(n)+k)*dzk(k) + gzaer_5bd(ns,k) = gzaer_5bd(ns,k)+kaer_bc_tab_5bd(ns,k_bcexs(k))* & + waer_bc_tab_5bd(ns,k_bcexs(k))* & + gaer_bc_tab_5bd(ns,k_bcexs(k))*zbio(nlt_zaero_sw(n)+k)*dzk(k) + enddo ! nspint + enddo + elseif (n==2) then ! within-ice BC + do k = 0, klev + do ns = 1,nspint_5bd + tzaer_5bd(ns,k) = tzaer_5bd(ns,k)+kaer_bc_tab_5bd(ns,k_bcins(k)) * & + bcenh_5bd(ns,k_bcins(k),k_bcini(k))* & + zbio(nlt_zaero_sw(n)+k)*dzk(k) + wzaer_5bd(ns,k) = wzaer_5bd(ns,k)+kaer_bc_tab_5bd(ns,k_bcins(k))* & + waer_bc_tab_5bd(ns,k_bcins(k))* & + zbio(nlt_zaero_sw(n)+k)*dzk(k) + gzaer_5bd(ns,k) = gzaer_5bd(ns,k)+kaer_bc_tab_5bd(ns,k_bcins(k))* & + waer_bc_tab_5bd(ns,k_bcins(k))* & + gaer_bc_tab_5bd(ns,k_bcins(k))*zbio(nlt_zaero_sw(n)+k)*dzk(k) + enddo ! nspint + enddo + else ! dust + do k = 0, klev + do ns = 1,nspint_5bd ! not weighted by aice + tzaer_5bd(ns,k) = tzaer_5bd(ns,k)+kaer_tab_5bd(ns,n)* & + zbio(nlt_zaero_sw(n)+k)*dzk(k) + wzaer_5bd(ns,k) = wzaer_5bd(ns,k)+kaer_tab_5bd(ns,n)*waer_tab_5bd(ns,n)* & + zbio(nlt_zaero_sw(n)+k)*dzk(k) + gzaer_5bd(ns,k) = gzaer_5bd(ns,k)+kaer_tab_5bd(ns,n)*waer_tab_5bd(ns,n)* & + gaer_tab_5bd(ns,n)*zbio(nlt_zaero_sw(n)+k)*dzk(k) + enddo ! nspint + enddo + endif !(n=1) + enddo ! n_zaero + endif ! tr_zaero and dEdd_algae + + else ! Bulk aerosol treatment + if (tr_zaero .and. dEdd_algae) then ! compute kzaero for chlorophyll + do n = 1,n_zaero ! multiply by aice? + do k = 0, klev + do ns = 1,nspint_5bd ! not weighted by aice + tzaer_5bd(ns,k) = tzaer_5bd(ns,k)+kaer_tab_5bd(ns,n)* & + zbio(nlt_zaero_sw(n)+k)*dzk(k) + wzaer_5bd(ns,k) = wzaer_5bd(ns,k)+kaer_tab_5bd(ns,n)*waer_tab_5bd(ns,n)* & + zbio(nlt_zaero_sw(n)+k)*dzk(k) + gzaer_5bd(ns,k) = gzaer_5bd(ns,k)+kaer_tab_5bd(ns,n)*waer_tab_5bd(ns,n)* & + gaer_tab_5bd(ns,n)*zbio(nlt_zaero_sw(n)+k)*dzk(k) + enddo ! nspint + enddo + enddo + endif !tr_zaero + + endif ! modal_aero + + +!----------------------------------------------------------------------- + ! begin spectral loop + do ns = 1, nspint_5bd + ! for snow-covered sea ice, comput 5 bands + !if( srftyp == 1 ) then + ! SNICAR-AD major changes + ! 1. loop through 5bands: do ns = 1, nspint_5bd based on nsky + ! 2. use snow grain size rsnow, not scaled frsnw + ! 3. replace $IOPs_tab with $IOPs_snicar + ! 4. replace wghtns with wghtns_5bd + do nsky = 1,2 ! loop for both direct beam and diffuse beam + if (nsky == 1) then ! direc incident + do k=0,nslyr + ! use top rsnw, rhosnw for snow ssl and rest of top layer + ksnow = k - min(k-1,0) + if (rsnw(ksnow) <= rsnw_snicar_min) then + ks = ext_cff_mss_ice_drc(ns,1) + ws = ss_alb_ice_drc(ns,1) + gs = asm_prm_ice_drc(ns,1) + elseif (rsnw(ksnow) >= rsnw_snicar_max) then + ks = ext_cff_mss_ice_drc(ns,nmbrad_snicar) + ws = ss_alb_ice_drc(ns,nmbrad_snicar) + gs = asm_prm_ice_drc(ns,nmbrad_snicar) + elseif (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then + nr = ceiling(rsnw(ksnow)) - 30 + 1 + ks = ext_cff_mss_ice_drc(ns,nr) + ws = ss_alb_ice_drc(ns,nr) + gs = asm_prm_ice_drc(ns,nr) + else ! linear interpolation in rsnw + ! radius = 30 --> nr = 1 in SNICAR table + nr = ceiling(rsnw(ksnow)) - 30 + 1 + delr = (rsnw(ksnow) - floor(rsnw(ksnow))) / & + (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) + ks = ext_cff_mss_ice_drc(ns,nr-1)*(delr) + & + ext_cff_mss_ice_drc(ns,nr)*(c1-delr) + ws = ss_alb_ice_drc(ns,nr-1)*(delr) + & + ss_alb_ice_drc(ns,nr)*(c1-delr) + gs = asm_prm_ice_drc(ns,nr-1)*(delr) + & + asm_prm_ice_drc(ns,nr)*(c1-delr) + endif + ! ks = Qs*((rhosnw(ksnow)/rhoi)*3._dbl_kind / & + ! (4._dbl_kind*rsnw(ksnow)*1.0e-6_dbl_kind)) + tau(k) = (ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k))*dzk(k) + !w0(k) = ks/(ks + kabs_chl_5bd(ns,k))*ws + w0(k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k)) * ws + g(k) = gs + + !write(warning, *) "sky, k, tau, w0, g =", nsky, k, tau(k), w0(k), g(k) + !write(warning, *) "ns, ks, kabs_chl_5bd(ns,k), ", ns, ks, kabs_chl_5bd(ns,k) + !call add_warning(warning) + !print *, "rsnw(ksnow)", rsnw(ksnow) + !print *, "sky, k, tau, w0, g =", nsky, k, tau(k), w0(k), g(k) + !print *, "ns, ks, kabs_chl_5bd(ns,k), ",ns, ks, kabs_chl_5bd(ns,k) + + enddo ! k + elseif (nsky == 2) then ! diffuse incident + do k=0,nslyr + ! use top rsnw, rhosnw for snow ssl and rest of top layer + ksnow = k - min(k-1,0) + if (rsnw(ksnow) < rsnw_snicar_min) then + ks = ext_cff_mss_ice_dfs(ns,1) + ws = ss_alb_ice_dfs(ns,1) + gs = asm_prm_ice_dfs(ns,1) + elseif (rsnw(ksnow) > rsnw_snicar_max) then + ks = ext_cff_mss_ice_dfs(ns,nmbrad_snicar) + ws = ss_alb_ice_dfs(ns,nmbrad_snicar) + gs = asm_prm_ice_dfs(ns,nmbrad_snicar) + elseif (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then + nr = ceiling(rsnw(ksnow)) - 30 + 1 + ks = ext_cff_mss_ice_dfs(ns,nr) + ws = ss_alb_ice_dfs(ns,nr) + gs = asm_prm_ice_dfs(ns,nr) + else ! linear interpolation in rsnw + ! radius = 30 --> nr = 1 in SNICAR table + nr = ceiling(rsnw(ksnow)) - 30 + 1 + delr = (rsnw(ksnow) - floor(rsnw(ksnow))) / & + (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) + ks = ext_cff_mss_ice_dfs(ns,nr-1)*(c1-delr) + & + ext_cff_mss_ice_dfs(ns,nr)*delr + ws = ss_alb_ice_dfs(ns,nr-1)*(c1-delr) + & + ss_alb_ice_dfs(ns,nr)*delr + gs = asm_prm_ice_dfs(ns,nr-1)*(c1-delr) + & + asm_prm_ice_dfs(ns,nr)*delr + endif + ! ks = Qs*((rhosnw(ksnow)/rhoi)*3._dbl_kind / & + ! (4._dbl_kind*rsnw(ksnow)*1.0e-6_dbl_kind)) + tau(k) = (ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k))*dzk(k) + !w0(k) = ks/(ks + kabs_chl_5bd(ns,k)) *ws + w0(k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k)) * ws + g(k) = gs + + !write(warning, *) "sky, k, tau, w0, g =", nsky, k, tau(k), w0(k), g(k) + !write(warning, *) "ns, ks, kabs_chl_5bd(ns,k), ", ns, ks, kabs_chl_5bd(ns,k) + !call add_warning(warning) + enddo ! k + endif ! end if nsky for snow IOPs assignment + !------------------------------------------------------------------------------ + + !aerosol in snow + if (tr_zaero .and. dEdd_algae) then + do k = 0,nslyr + g(k) = (g(k)*w0(k)*tau(k) + gzaer_5bd(ns,k)) / & + (w0(k)*tau(k) + wzaer_5bd(ns,k)) + w0(k) = (w0(k)*tau(k) + wzaer_5bd(ns,k)) / & + (tau(k) + tzaer_5bd(ns,k)) + tau(k) = tau(k) + tzaer_5bd(ns,k) + enddo + elseif (tr_aero) then + k = 0 ! snow SSL + taer = c0 + waer = c0 + gaer = c0 + + do na=1,4*n_aero,4 +! mgf++ + if (modal_aero) then + if (na == 1) then + !interstitial BC + taer = taer + & + aero_mp(na)*kaer_bc_tab_5bd(ns,k_bcexs(k)) + waer = waer + & + aero_mp(na)*kaer_bc_tab_5bd(ns,k_bcexs(k))* & + waer_bc_tab_5bd(ns,k_bcexs(k)) + gaer = gaer + & + aero_mp(na)*kaer_bc_tab_5bd(ns,k_bcexs(k))* & + waer_bc_tab_5bd(ns,k_bcexs(k))*gaer_bc_tab_5bd(ns,k_bcexs(k)) + elseif (na == 5)then + !within-ice BC + taer = taer + & + aero_mp(na)*kaer_bc_tab_5bd(ns,k_bcins(k))* & + bcenh_5bd(ns,k_bcins(k),k_bcini(k)) + waer = waer + & + aero_mp(na)*kaer_bc_tab_5bd(ns,k_bcins(k))* & + waer_bc_tab_5bd(ns,k_bcins(k)) + gaer = gaer + & + aero_mp(na)*kaer_bc_tab_5bd(ns,k_bcins(k))* & + waer_bc_tab_5bd(ns,k_bcins(k))*gaer_bc_tab_5bd(ns,k_bcins(k)) + else + ! other species (dust) + taer = taer + & + aero_mp(na)*kaer_tab_5bd(ns,(1+(na-1)/4)) + waer = waer + & + aero_mp(na)*kaer_tab_5bd(ns,(1+(na-1)/4))* & + waer_tab_5bd(ns,(1+(na-1)/4)) + gaer = gaer + & + aero_mp(na)*kaer_tab_5bd(ns,(1+(na-1)/4))* & + waer_tab_5bd(ns,(1+(na-1)/4))*gaer_tab_5bd(ns,(1+(na-1)/4)) + endif + else + taer = taer + & + aero_mp(na)*kaer_tab_5bd(ns,(1+(na-1)/4)) + waer = waer + & + aero_mp(na)*kaer_tab_5bd(ns,(1+(na-1)/4))* & + waer_tab_5bd(ns,(1+(na-1)/4)) + gaer = gaer + & + aero_mp(na)*kaer_tab_5bd(ns,(1+(na-1)/4))* & + waer_tab_5bd(ns,(1+(na-1)/4))*gaer_tab_5bd(ns,(1+(na-1)/4)) + endif !modal_aero +!mgf-- + enddo ! na + gaer = gaer/(waer+puny) + waer = waer/(taer+puny) + + do k=1,nslyr + taer = c0 + waer = c0 + gaer = c0 + do na=1,4*n_aero,4 + if (modal_aero) then +!mgf++ + if (na==1) then + ! interstitial BC + taer = taer + & + (aero_mp(na+1)/rnslyr)*kaer_bc_tab_5bd(ns,k_bcexs(k)) + waer = waer + & + (aero_mp(na+1)/rnslyr)*kaer_bc_tab_5bd(ns,k_bcexs(k))* & + waer_bc_tab_5bd(ns,k_bcexs(k)) + gaer = gaer + & + (aero_mp(na+1)/rnslyr)*kaer_bc_tab_5bd(ns,k_bcexs(k))* & + waer_bc_tab_5bd(ns,k_bcexs(k))*gaer_bc_tab_5bd(ns,k_bcexs(k)) + elseif (na==5) then + ! within-ice BC + taer = taer + & + (aero_mp(na+1)/rnslyr)*kaer_bc_tab_5bd(ns,k_bcins(k))*& + bcenh_5bd(ns,k_bcins(k),k_bcini(k)) + waer = waer + & + (aero_mp(na+1)/rnslyr)*kaer_bc_tab_5bd(ns,k_bcins(k))* & + waer_bc_tab_5bd(ns,k_bcins(k)) + gaer = gaer + & + (aero_mp(na+1)/rnslyr)*kaer_bc_tab_5bd(ns,k_bcins(k))* & + waer_bc_tab_5bd(ns,k_bcins(k))*gaer_bc_tab_5bd(ns,k_bcins(k)) + + else + ! other species (dust) + taer = taer + & + (aero_mp(na+1)/rnslyr)*kaer_tab_5bd(ns,(1+(na-1)/4)) + waer = waer + & + (aero_mp(na+1)/rnslyr)*kaer_tab_5bd(ns,(1+(na-1)/4))* & + waer_tab_5bd(ns,(1+(na-1)/4)) + gaer = gaer + & + (aero_mp(na+1)/rnslyr)*kaer_tab_5bd(ns,(1+(na-1)/4))* & + waer_tab_5bd(ns,(1+(na-1)/4))*gaer_tab_5bd(ns,(1+(na-1)/4)) + endif !(na==1) + + else + taer = taer + & + (aero_mp(na+1)*rnslyr)*kaer_tab_5bd(ns,(1+(na-1)/4)) + waer = waer + & + (aero_mp(na+1)*rnslyr)*kaer_tab_5bd(ns,(1+(na-1)/4))* & + waer_tab_5bd(ns,(1+(na-1)/4)) + gaer = gaer + & + (aero_mp(na+1)*rnslyr)*kaer_tab_5bd(ns,(1+(na-1)/4))* & + waer_tab_5bd(ns,(1+(na-1)/4))*gaer_tab_5bd(ns,(1+(na-1)/4)) + endif ! modal_aero +!mgf-- + enddo ! na + gaer = gaer/(waer+puny) + waer = waer/(taer+puny) + g(k) = (g(k)*w0(k)*tau(k) + gaer*waer*taer) / & + (w0(k)*tau(k) + waer*taer) + w0(k) = (w0(k)*tau(k) + waer*taer) / & + (tau(k) + taer) + tau(k) = tau(k) + taer + enddo ! k + endif ! tr_aero + + ! set optical properties of sea ice + + ! bare or snow-covered sea ice layers + !if( srftyp <= 1 ) then + ! ssl + k = kii + tau(k) = (ki_ssl_5bd(ns)+kabs_chl_5bd(ns,k))*dzk(k) + w0(k) = ki_ssl_5bd(ns)/(ki_ssl_5bd(ns) + kabs_chl_5bd(ns,k))*wi_ssl_5bd(ns) + g(k) = gi_ssl_5bd(ns) + ! dl + k = kii + 1 + ! scale dz for dl relative to 4 even-layer-thickness 1.5m case + fs = p25/rnilyr + tau(k) = (ki_dl_5bd(ns) + kabs_chl_5bd(ns,k)) *dzk(k)*fs + w0(k) = ki_dl_5bd(ns)/(ki_dl_5bd(ns) + kabs_chl_5bd(ns,k)) *wi_dl_5bd(ns) + g(k) = gi_dl_5bd(ns) + ! int above lowest layer + if (kii+2 <= klev-1) then + do k = kii+2, klev-1 + tau(k) = (ki_int_5bd(ns) + kabs_chl_5bd(ns,k))*dzk(k) + w0(k) = ki_int_5bd(ns)/(ki_int_5bd(ns) + kabs_chl_5bd(ns,k)) *wi_int_5bd(ns) + g(k) = gi_int_5bd(ns) + enddo + endif + ! lowest layer + k = klev + ! add algae to lowest sea ice layer, visible only: + kabs = ki_int_5bd(ns)*(c1-wi_int_5bd(ns)) + if( ns == 1 ) then + ! total layer absorption optical depth fixed at value + ! of kalg*0.50m, independent of actual layer thickness + kabs = kabs + kabs_chl_5bd(ns,k) + endif + sig = ki_int_5bd(ns)*wi_int_5bd(ns) + tau(k) = (kabs+sig)*dzk(k) + w0(k) = (sig/(sig+kabs)) + g(k) = gi_int_5bd(ns) + ! aerosol in sea ice + if (tr_zaero .and. dEdd_algae) then + do k = kii, klev + g(k) = (g(k)*w0(k)*tau(k) + gzaer_5bd(ns,k)) / & + (w0(k)*tau(k) + wzaer_5bd(ns,k)) + w0(k) = (w0(k)*tau(k) + wzaer_5bd(ns,k)) / & + (tau(k) + tzaer_5bd(ns,k)) + tau(k) = tau(k) + tzaer_5bd(ns,k) + enddo + elseif (tr_aero) then + k = kii ! sea ice SSL + taer = c0 + waer = c0 + gaer = c0 + do na=1,4*n_aero,4 + !mgf++ + if (modal_aero) then + if (na==1) then + ! interstitial BC + taer = taer + & + aero_mp(na+2)*kaer_bc_tab_5bd(ns,k_bcexs(k)) + waer = waer + & + aero_mp(na+2)*kaer_bc_tab_5bd(ns,k_bcexs(k))* & + waer_bc_tab_5bd(ns,k_bcexs(k)) + gaer = gaer + & + aero_mp(na+2)*kaer_bc_tab_5bd(ns,k_bcexs(k))* & + waer_bc_tab_5bd(ns,k_bcexs(k))*gaer_bc_tab_5bd(ns,k_bcexs(k)) + elseif (na==5) then + ! within-ice BC + taer = taer + & + aero_mp(na+2)*kaer_bc_tab_5bd(ns,k_bcins(k))* & + bcenh_5bd(ns,k_bcins(k),k_bcini(k)) + waer = waer + & + aero_mp(na+2)*kaer_bc_tab_5bd(ns,k_bcins(k))* & + waer_bc_tab_5bd(ns,k_bcins(k)) + gaer = gaer + & + aero_mp(na+2)*kaer_bc_tab_5bd(ns,k_bcins(k))* & + waer_bc_tab_5bd(ns,k_bcins(k))*gaer_bc_tab_5bd(ns,k_bcins(k)) + else + ! other species (dust) + taer = taer + & + aero_mp(na+2)*kaer_tab_5bd(ns,(1+(na-1)/4)) + waer = waer + & + aero_mp(na+2)*kaer_tab_5bd(ns,(1+(na-1)/4))* & + waer_tab_5bd(ns,(1+(na-1)/4)) + gaer = gaer + & + aero_mp(na+2)*kaer_tab_5bd(ns,(1+(na-1)/4))* & + waer_tab_5bd(ns,(1+(na-1)/4))*gaer_tab_5bd(ns,(1+(na-1)/4)) + endif + else !bulk + taer = taer + & + aero_mp(na+2)*kaer_tab_5bd(ns,(1+(na-1)/4)) + waer = waer + & + aero_mp(na+2)*kaer_tab_5bd(ns,(1+(na-1)/4))* & + waer_tab_5bd(ns,(1+(na-1)/4)) + gaer = gaer + & + aero_mp(na+2)*kaer_tab_5bd(ns,(1+(na-1)/4))* & + waer_tab_5bd(ns,(1+(na-1)/4))*gaer_tab_5bd(ns,(1+(na-1)/4)) + endif ! modal_aero + !mgf-- + enddo ! na + + gaer = gaer/(waer+puny) + waer = waer/(taer+puny) + g(k) = (g(k)*w0(k)*tau(k) + gaer*waer*taer) / & + (w0(k)*tau(k) + waer*taer) + w0(k) = (w0(k)*tau(k) + waer*taer) / & + (tau(k) + taer) + tau(k) = tau(k) + taer + do k = kii+1, klev + taer = c0 + waer = c0 + gaer = c0 + do na=1,4*n_aero,4 + !mgf++ + if (modal_aero) then + if (na==1) then + ! interstitial BC + taer = taer + & + (aero_mp(na+3)/rnilyr)*kaer_bc_tab_5bd(ns,k_bcexs(k)) + waer = waer + & + (aero_mp(na+3)/rnilyr)*kaer_bc_tab_5bd(ns,k_bcexs(k))* & + waer_bc_tab_5bd(ns,k_bcexs(k)) + gaer = gaer + & + (aero_mp(na+3)/rnilyr)*kaer_bc_tab_5bd(ns,k_bcexs(k))* & + waer_bc_tab_5bd(ns,k_bcexs(k))*gaer_bc_tab_5bd(ns,k_bcexs(k)) + elseif (na==5) then + ! within-ice BC + taer = taer + & + (aero_mp(na+3)/rnilyr)*kaer_bc_tab_5bd(ns,k_bcins(k))* & + bcenh_5bd(ns,k_bcins(k),k_bcini(k)) + waer = waer + & + (aero_mp(na+3)/rnilyr)*kaer_bc_tab_5bd(ns,k_bcins(k))* & + waer_bc_tab_5bd(ns,k_bcins(k)) + gaer = gaer + & + (aero_mp(na+3)/rnilyr)*kaer_bc_tab_5bd(ns,k_bcins(k))* & + waer_bc_tab_5bd(ns,k_bcins(k))*gaer_bc_tab_5bd(ns,k_bcins(k)) + + else + ! other species (dust) + taer = taer + & + (aero_mp(na+3)/rnilyr)*kaer_tab_5bd(ns,(1+(na-1)/4)) + waer = waer + & + (aero_mp(na+3)/rnilyr)*kaer_tab_5bd(ns,(1+(na-1)/4))* & + waer_tab_5bd(ns,(1+(na-1)/4)) + gaer = gaer + & + (aero_mp(na+3)/rnilyr)*kaer_tab_5bd(ns,(1+(na-1)/4))* & + waer_tab_5bd(ns,(1+(na-1)/4))*gaer_tab_5bd(ns,(1+(na-1)/4)) + endif + else !bulk + + taer = taer + & + (aero_mp(na+3)*rnilyr)*kaer_tab_5bd(ns,(1+(na-1)/4)) + waer = waer + & + (aero_mp(na+3)*rnilyr)*kaer_tab_5bd(ns,(1+(na-1)/4))* & + waer_tab_5bd(ns,(1+(na-1)/4)) + gaer = gaer + & + (aero_mp(na+3)*rnilyr)*kaer_tab_5bd(ns,(1+(na-1)/4))* & + waer_tab_5bd(ns,(1+(na-1)/4))*gaer_tab_5bd(ns,(1+(na-1)/4)) + endif ! modal_aero + !mgf-- + enddo ! na + gaer = gaer/(waer+puny) + waer = waer/(taer+puny) + g(k) = (g(k)*w0(k)*tau(k) + gaer*waer*taer) / & + (w0(k)*tau(k) + waer*taer) + w0(k) = (w0(k)*tau(k) + waer*taer) / & + (tau(k) + taer) + tau(k) = tau(k) + taer + enddo ! k + endif ! tr_aero +! --------------------------------------------------------------------------- + + ! set reflectivities for ocean underlying sea ice + ! if ns == 1 (visible), albedo is 0.1, else, albedo is zero + rns = real(ns-1, kind=dbl_kind) + albodr = cp01 * (c1 - min(rns, c1)) + albodf = cp01 * (c1 - min(rns, c1)) + + ! layer input properties now completely specified: tau, w0, g, + ! albodr, albodf; now compute the Delta-Eddington solution + ! reflectivities and transmissivities for each layer; then, + ! combine the layers going downwards accounting for multiple + ! scattering between layers, and finally start from the + ! underlying ocean and combine successive layers upwards to + ! the surface; see comments in solution_dEdd for more details. + call solution_dEdd & + (coszen, srftyp, klev, klevp, nslyr, & + tau, w0, g, albodr, albodf, & + trndir, trntdr, trndif, rupdir, rupdif, & + rdndif) + ! the interface reflectivities and transmissivities required + ! to evaluate interface fluxes are returned from solution_dEdd; + ! now compute up and down fluxes for each interface, using the + ! combined layer properties at each interface: + ! + ! layers interface + ! + ! --------------------- k + ! k + ! --------------------- + + do k = 0, klevp + ! interface scattering + refk = c1/(c1 - rdndif(k)*rupdif(k)) + ! dir tran ref from below times interface scattering, plus diff + ! tran and ref from below times interface scattering + ! fdirup(k) = (trndir(k)*rupdir(k) + & + ! (trntdr(k)-trndir(k)) & + ! *rupdif(k))*refk + ! dir tran plus total diff trans times interface scattering plus + ! dir tran with up dir ref and down dif ref times interface scattering + ! fdirdn(k) = trndir(k) + (trntdr(k) & + ! - trndir(k) + trndir(k) & + ! *rupdir(k)*rdndif(k))*refk + ! diffuse tran ref from below times interface scattering + ! fdifup(k) = trndif(k)*rupdif(k)*refk + ! diffuse tran times interface scattering + ! fdifdn(k) = trndif(k)*refk + + ! dfdir = fdirdn - fdirup + dfdir(k) = trndir(k) & + + (trntdr(k)-trndir(k)) * (c1 - rupdif(k)) * refk & + - trndir(k)*rupdir(k) * (c1 - rdndif(k)) * refk + if (dfdir(k) < puny) dfdir(k) = c0 !echmod necessary? + ! dfdif = fdifdn - fdifup + dfdif(k) = trndif(k) * (c1 - rupdif(k)) * refk + if (dfdif(k) < puny) dfdif(k) = c0 !echmod necessary? + enddo ! k + + ! note that because the snow IOPs for diffuse and direct incidents + ! are different, the snow albedo needs to be calculated twice for + ! direct incident and diffuse incident respectively + if (nsky == 1) then ! direc beam (keep the direct beam results) + do k = 0, klevp + dfdir_snicar(k) = dfdir(k) + rupdir_snicar(k) = rupdir(k) + enddo + elseif (nsky == 2) then ! diffuse (keep the diffuse incident results) + do k = 0, klevp + dfdif_snicar(k) = dfdif(k) + rupdif_snicar(k) = rupdif(k) + enddo + endif + enddo ! end direct/diffuse incident nsky + + ! calculate final surface albedos and fluxes- + ! all absorbed flux above ksrf is included in surface absorption + if( ns == 1) then ! visible + swdr = swvdr + swdf = swvdf + avdr = rupdir_snicar(0) + avdf = rupdif_snicar(0) + tmp_0 = dfdir_snicar(0 )*swdr + dfdif_snicar(0 )*swdf + tmp_ks = dfdir_snicar(ksrf )*swdr + dfdif_snicar(ksrf )*swdf + tmp_kl = dfdir_snicar(klevp)*swdr + dfdif_snicar(klevp)*swdf + + ! for layer biology: save visible only + do k = nslyr+2, klevp ! Start at DL layer of ice after SSL scattering + fthrul(k-nslyr-1) = dfdir_snicar(k)*swdr + dfdif_snicar(k)*swdf + enddo + + fsfc = fsfc + tmp_0 - tmp_ks + fint = fint + tmp_ks - tmp_kl + fthru = fthru + tmp_kl + + ! if snow covered ice, set snow internal absorption; else, Sabs=0 + if( srftyp == 1 ) then + ki = 0 + do k=1,nslyr + ! skip snow SSL, since SSL absorption included in the surface + ! absorption fsfc above + km = k + kp = km + 1 + ki = ki + 1 + Sabs(ki) = Sabs(ki) & + + dfdir_snicar(km)*swdr + dfdif_snicar(km)*swdf & + - (dfdir_snicar(kp)*swdr + dfdif_snicar(kp)*swdf) + enddo ! k + endif + + ! complex indexing to insure proper absorptions for sea ice + ki = 0 + do k=nslyr+2,nslyr+1+nilyr + ! for bare ice, DL absorption for sea ice layer 1 + km = k + kp = km + 1 + ! modify for top sea ice layer for snow over sea ice + if( srftyp == 1 ) then + ! must add SSL and DL absorption for sea ice layer 1 + if( k == nslyr+2 ) then + km = k - 1 + kp = km + 2 + endif + endif + ki = ki + 1 + Iabs(ki) = Iabs(ki) & + + dfdir_snicar(km)*swdr + dfdif_snicar(km)*swdf & + - (dfdir_snicar(kp)*swdr + dfdif_snicar(kp)*swdf) + enddo ! k + + else !if(ns > 1) then ! near IR + + swdr = swidr + swdf = swidf + + ! let fr2(3,4,5) = alb_2(3,4,5)*swd*wght2(3,4,5) + ! the ns=2(3,4,5) reflected fluxes respectively, + ! where alb_2(3,4,5) are the band + ! albedos, swd = nir incident shortwave flux, and wght2(3,4,5) are + ! the 2(3,4,5) band weights. thus, the total reflected flux is: + ! fr = fr2 + fr3 + fr4 + fr5 + ! = alb_2*swd*wght2 + alb_3*swd*wght3 + alb_4*swd*wght4 + alb_5*swd*wght5 + ! hence, the 2,3,4,5 nir band albedo is + ! alb = fr/swd = alb_2*wght2 + alb_3*wght3 + alb_4*wght4 + alb_5*wght5 + + aidr = aidr + rupdir_snicar(0)*wghtns_5bd_drc(ns) + aidf = aidf + rupdif_snicar(0)*wghtns_5bd_dfs(ns) + + tmp_0 = dfdir_snicar(0 )*swdr*wghtns_5bd_drc(ns) & + + dfdif_snicar(0 )*swdf*wghtns_5bd_dfs(ns) + tmp_ks = dfdir_snicar(ksrf )*swdr*wghtns_5bd_drc(ns) & + + dfdif_snicar(ksrf )*swdf*wghtns_5bd_dfs(ns) + tmp_kl = dfdir_snicar(klevp)*swdr*wghtns_5bd_drc(ns) & + + dfdif_snicar(klevp)*swdf*wghtns_5bd_dfs(ns) + + fsfc = fsfc + tmp_0 - tmp_ks + fint = fint + tmp_ks - tmp_kl + fthru = fthru + tmp_kl + + ! if snow covered ice, set snow internal absorption; else, Sabs=0 + if( srftyp == 1 ) then + ki = 0 + do k=1,nslyr + ! skip snow SSL, since SSL absorption included in the surface + ! absorption fsfc above + km = k + kp = km + 1 + ki = ki + 1 + Sabs(ki) = Sabs(ki) & + + dfdir_snicar(km)*swdr*wghtns_5bd_drc(ns) & + + dfdif_snicar(km)*swdf*wghtns_5bd_dfs(ns) & + -(dfdir_snicar(kp)*swdr*wghtns_5bd_drc(ns) & + + dfdif_snicar(kp)*swdf*wghtns_5bd_dfs(ns)) + + enddo ! k + endif + + ! complex indexing to insure proper absorptions for sea ice + ki = 0 + do k=nslyr+2,nslyr+1+nilyr + ! for bare ice, DL absorption for sea ice layer 1 + km = k + kp = km + 1 + ! modify for top sea ice layer for snow over sea ice + if( srftyp == 1 ) then + ! must add SSL and DL absorption for sea ice layer 1 + if( k == nslyr+2 ) then + km = k - 1 + kp = km + 2 + endif + endif + ki = ki + 1 + Iabs(ki) = Iabs(ki) & + + dfdir_snicar(km)*swdr*wghtns_5bd_drc(ns) & + + dfdif_snicar(km)*swdf*wghtns_5bd_dfs(ns) & + -(dfdir_snicar(kp)*swdr*wghtns_5bd_drc(ns) & + + dfdif_snicar(kp)*swdf*wghtns_5bd_dfs(ns)) + enddo ! k + endif ! ns = 1, ns > 1 + enddo ! end spectral loop ns + + + ! accumulate fluxes over bare sea ice + + ! solar zenith angle parameterization + ! calculate the scaling factor for NIR direct albedo if SZA>75 degree + sza_factor = c1 + if( srftyp == 1 ) then + mu0 = max(coszen,p01) + if (mu0 < mu_75) then + sza_c1 = sza_a0 + sza_a1 * mu0 + sza_a2 * mu0**2 + sza_c0 = sza_b0 + sza_b1 * mu0 + sza_b2 * mu0**2 + sza_factor = sza_c1 * (log10(rsnw(1)) - 6.0) + sza_c0 + endif + endif + + alvdr = avdr + alvdf = avdf + alidr = aidr * sza_factor !sza factor is always larger than or equal to 1 + alidf = aidf + + ! note that we assume the reduced NIR energy absorption by snow + ! due to corrected snow albedo is absorbed by the snow single + ! scattering layer only - this is generally true if snow SSL >= 2 cm + ! by the default model set up: + ! if snow_depth >= 8 cm, SSL = 4 cm, satisfy + ! esle if snow_depth >= 4 cm, SSL = snow_depth/2 >= 2 cm, satisfy + ! esle snow_depth < 4 cm, SSL = snow_depth/2, may overcool SSL layer + fswsfc = fswsfc + (fsfc- (sza_factor-c1)*aidr*swidr)*fi + fswint = fswint + fint *fi + fswthru = fswthru + fthru*fi + + + do k = 1, nslyr + Sswabs(k) = Sswabs(k) + Sabs(k)*fi + enddo ! k + + do k = 1, nilyr + Iswabs(k) = Iswabs(k) + Iabs(k)*fi + + ! bgc layer + fswpenl(k) = fswpenl(k) + fthrul(k)* fi + + if (k == nilyr) then + fswpenl(k+1) = fswpenl(k+1) + fthrul(k+1)*fi + endif + enddo ! k + + !---------------------------------------------------------------- + ! if ice has zero heat capacity, no SW can be absorbed + ! in the ice/snow interior, so add to surface absorption. + ! Note: nilyr = nslyr = 1 for this case + !---------------------------------------------------------------- + +! if (.not. heat_capacity) then + + ! SW absorbed at snow/ice surface +! fswsfc = fswsfc + Iswabs(1) + Sswabs(1) + + ! SW absorbed in ice interior +! fswint = c0 +! Iswabs(1) = c0 +! Sswabs(1) = c0 + +! endif ! heat_capacity + + end subroutine compute_dEdd_5bd + +!======================================================================= !======================================================================= end module icepack_shortwave From 914130bbd3c6d192386001d11a19068dffcca1d2 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Thu, 1 Sep 2022 16:17:00 -0600 Subject: [PATCH 23/64] separate 3-band and 5-band compute_dEdd routines --- columnphysics/icepack_shortwave.F90 | 318 ++-------------------------- 1 file changed, 16 insertions(+), 302 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 86d4bf608..1204cf3c1 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -2026,7 +2026,7 @@ subroutine shortwave_dEdd (dEdd_algae, & srftyp = 0 nspint = nspint_3bd - call compute_dEdd(nilyr, nslyr, nspint, & + call compute_dEdd_3bd(nilyr, nslyr, nspint, & klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER heat_capacity, fnidr, coszen, & @@ -2076,36 +2076,6 @@ subroutine shortwave_dEdd (dEdd_algae, & srftyp = 1 if (use_snicar) then nspint = nspint_5bd -goto 998 - call compute_dEdd(nilyr, nslyr, nspint, & - klev, klevp, zbio, dEdd_algae, & -#ifdef UNDEPRECATE_0LAYER - heat_capacity, fnidr, coszen, & -#else - fnidr, coszen, & -#endif -! kaer_5bd, waer_5bd, gaer_5bd, & -! kaer_bc_5bd, waer_bc_5bd, gaer_bc_5bd, & -! bcenh_5bd, modal_aero, & - modal_aero, & - swvdr, swvdf, swidr, swidf, srftyp, & - hs, rhosnw, rsnw, hi, hp, & - fs, aero_mp, avdrl, avdfl, & - aidrl, aidfl, & - fswsfc, fswint, & - fswthru, & - fswthru_vdr, & - fswthru_vdf, & - fswthru_idr, & - fswthru_idf, & - Sswabs, & - Iswabs, fswpenl, & - kaer_tab=kaer_5bd, waer_tab=waer_5bd, gaer_tab=gaer_5bd, & - kaer_bc_tab=kaer_bc_5bd, waer_bc_tab=waer_bc_5bd, gaer_bc_tab=gaer_bc_5bd, & - bcenh=bcenh_5bd) -998 continue -!original -!goto 999 call compute_dEdd_5bd(nilyr, nslyr, klev, klevp, & n_zaero, zbio, dEdd_algae, & nlt_chl_sw,nlt_zaero_sw, tr_bgc_N, & @@ -2130,28 +2100,10 @@ subroutine shortwave_dEdd (dEdd_algae, & ss_alb_ice_drc=ssp_snwalbdr, ss_alb_ice_dfs=ssp_snwalbdf, & ext_cff_mss_ice_drc=ssp_snwextdr, ext_cff_mss_ice_dfs=ssp_snwextdf) - ! snow grain single-scattering properties for - ! direct (drc) and diffuse (dfs) shortwave incidents -! real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Model SNICAR snow SSP -! asm_prm_ice_drc , & ! snow asymmetry factor (cos(theta)) -! asm_prm_ice_dfs , & ! snow asymmetry factor (cos(theta)) -! ss_alb_ice_drc , & ! snow single scatter albedo (fraction) -! ss_alb_ice_dfs , & ! snow single scatter albedo (fraction) -! ext_cff_mss_ice_drc , & ! snow mass extinction cross section (m2/kg) -! ext_cff_mss_ice_dfs ! snow mass extinction cross section (m2/kg) -!end original -! allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, direct -! allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, diffuse -! allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, direct -! allocate(ssp_snwalbdf(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, diffuse -! allocate(ssp_sasymmdr(nspint_5bd,nmbrad_snicar )) ! snow asymmetry factor, direct -! allocate(ssp_sasymmdf(nspint_5bd,nmbrad_snicar )) ! snow asymmetry factor, diffuse -999 continue - else !echmod - this can be combined with the 5bd call above, if we use module data nspint = nspint_3bd - call compute_dEdd(nilyr, nslyr, nspint, & + call compute_dEdd_3bd(nilyr, nslyr, nspint, & klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER heat_capacity, fnidr, coszen, & @@ -2206,7 +2158,7 @@ subroutine shortwave_dEdd (dEdd_algae, & srftyp = 2 nspint = nspint_3bd - call compute_dEdd(nilyr, nslyr, nspint, & + call compute_dEdd_3bd(nilyr, nslyr, nspint, & klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER heat_capacity, fnidr, coszen, & @@ -2349,7 +2301,7 @@ end subroutine shortwave_dEdd ! a unified treatment of cryospheric surfaces. The Cryosphere, 13, 2325-2343, ! 2019. https://doi.org/10.5194/tc-13-2325-2019 - subroutine compute_dEdd(nilyr, nslyr, nspint, & + subroutine compute_dEdd_3bd(nilyr, nslyr, nspint, & klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER heat_capacity, fnidr, coszen, & @@ -2626,7 +2578,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! ice and ponded ice IOPs, allowing for tuning ! modifications of the above "_mn" value - real (kind=dbl_kind), dimension (nspint) :: & + real (kind=dbl_kind), dimension (nspint_3bd) :: & ki_ssl , & ! Surface-scattering-layer ice extinction coefficient (/m) wi_ssl , & ! Surface-scattering-layer ice single scattering albedo gi_ssl , & ! Surface-scattering-layer ice asymmetry parameter @@ -2659,7 +2611,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & kabs , & ! absorption coefficient for tuning sigp ! modified scattering coefficient for tuning - real (kind=dbl_kind), dimension(nspint, 0:klev) :: & + real (kind=dbl_kind), dimension(nspint_3bd, 0:klev) :: & kabs_chl , & ! absorption coefficient for chlorophyll (/m) tzaer , & ! total aerosol extinction optical depth wzaer , & ! total aerosol single scatter albedo @@ -2711,7 +2663,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! wi = single scattering albedo ! gi = asymmetry parameter - real (kind=dbl_kind), dimension (nspint) :: & + real (kind=dbl_kind), dimension (nspint_3bd) :: & ki_ssl_mn, wi_ssl_mn, gi_ssl_mn, & ! ice surface scattering layer (ssl) iops ki_dl_mn, wi_dl_mn, gi_dl_mn , & ! ice drained layer (dl) iops ki_int_mn, wi_int_mn, gi_int_mn ! ice interior layer (int) iops @@ -2757,7 +2709,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & sza_factor , & ! parameter for high sza adjustment mu0 - character(len=*),parameter :: subname='(compute_dEdd)' + character(len=*),parameter :: subname='(compute_dEdd_3bd)' !----------------------------------------------------------------------- ! Initialize and tune bare ice/ponded ice iops @@ -2790,7 +2742,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & fthruidr = c0 fthruidf = c0 - if (nspint == nspint_3bd) then ki_ssl_mn = ki_ssl_mn_3bd wi_ssl_mn = wi_ssl_mn_3bd gi_ssl_mn = gi_ssl_mn_3bd @@ -2820,37 +2771,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & wi_int_mn = wi_int_mn_3bd gi_int_mn = gi_int_mn_3bd - elseif (use_snicar .and. nspint == nspint_5bd) then - ki_ssl_mn = ki_ssl_mn_5bd - wi_ssl_mn = wi_ssl_mn_5bd - gi_ssl_mn = gi_ssl_mn_5bd - ki_dl_mn = ki_dl_mn_5bd - wi_dl_mn = wi_dl_mn_5bd - gi_dl_mn = gi_dl_mn_5bd - ki_int_mn = ki_int_mn_5bd - wi_int_mn = wi_int_mn_5bd - gi_int_mn = gi_int_mn_5bd - - ! direct beam incident - ! add-local-variable - wghtns_5bd_drc(1) = 1._dbl_kind - wghtns_5bd_drc(2) = 0.49352158521175_dbl_kind - wghtns_5bd_drc(3) = 0.18099494230665_dbl_kind - wghtns_5bd_drc(4) = 0.12094898498813_dbl_kind - wghtns_5bd_drc(5) = c1-(wghtns_5bd_drc(2)+wghtns_5bd_drc(3)+wghtns_5bd_drc(4)) - - ! diffuse incident - wghtns_5bd_dfs(1) = 1._dbl_kind - wghtns_5bd_dfs(2) = 0.58581507618433_dbl_kind - wghtns_5bd_dfs(3) = 0.20156903770812_dbl_kind - wghtns_5bd_dfs(4) = 0.10917889346386_dbl_kind - wghtns_5bd_dfs(5) = c1-(wghtns_5bd_dfs(2)+wghtns_5bd_dfs(3)+wghtns_5bd_dfs(4)) - else - call icepack_warnings_add(subname//' ERROR: mismatch in shortwave bands') - call icepack_warnings_setabort(.true.,__FILE__,__LINE__) - return - endif - ! find snow grain adjustment factor, dependent upon clear/overcast sky ! estimate. comparisons with SNICAR show better agreement with DE when ! this factor is included (clear sky near 1 and overcast near 0.8 give @@ -2977,10 +2897,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & else ! bare sea ice or ponded ice ksrf = nslyr + 2 - if (use_snicar .and. nspint == nspint_5bd) then - call icepack_warnings_add(subname//' ERROR: snicar used for srftyp /= snow') - call icepack_warnings_setabort(.true.,__FILE__,__LINE__) - endif endif if (tr_bgc_N .and. dEdd_algae) then ! compute kabs_chl for chlorophyll @@ -3001,11 +2917,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! CICE adjusted snow grain radius rsnw to frsnw in the original 3-band ! scheme, while for SNICAR the snow grain radius is used directly. ksnow = k - min(k-1,0) - if (nspint == nspint_3bd) then tmp_gs = frsnw(ksnow) - elseif (use_snicar .and. nspint == nspint_5bd) then - tmp_gs = rsnw(ksnow) - endif ! grain size index: works for 25 < snw_rds < 1625 um: if (tmp_gs < 125._dbl_kind) then @@ -3105,7 +3017,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! begin spectral loop !echmod - split this loop for efficiency, if possible (move conditionals outside of the loop) - do ns = 1, nspint + do ns = 1, nspint_3bd ! set optical properties of air/snow/pond overlying sea ice ! air @@ -3120,7 +3032,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & ! interpolate snow iops using input snow grain radius, ! snow density and tabular data - if (nspint == nspint_3bd) then do k=0,nslyr ! use top rsnw, rhosnw for snow ssl and rest of top layer ksnow = k - min(k-1,0) @@ -3156,117 +3067,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & w0(k) = ks/(ks + kabs_chl(ns,k)) *ws g(k) = gs enddo ! k - elseif (use_snicar .and. nspint == nspint_5bd) then - ! SNICAR 5-band - ! direct incident - do k=0,nslyr - ksnow = k - min(k-1,0) - if (rsnw(ksnow) <= rsnw_snicar_min) then ! change to rsnw_snicar_tab(1) - ks = ssp_snwextdr(ns,1) - ws = ssp_snwalbdr(ns,1) - gs = ssp_sasymmdr(ns,1) - elseif (rsnw(ksnow) >= rsnw_snicar_max) then ! change to rsnw_snicar_tab(nmbrad_snicar) - ks = ssp_snwextdr(ns,nmbrad_snicar) - ws = ssp_snwalbdr(ns,nmbrad_snicar) - gs = ssp_sasymmdr(ns,nmbrad_snicar) - elseif (trim(snw_ssp_table) == 'snicar') then ! assume index = int(snow grain radius) - 29 - if (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then - nr = ceiling(rsnw(ksnow)) - 30 + 1 - ks = ssp_snwextdr(ns,nr) - ws = ssp_snwalbdr(ns,nr) - gs = ssp_sasymmdr(ns,nr) - else ! linear interpolation in rsnw - ! radius = 30 --> nr = 1 in SNICAR table - nr = ceiling(rsnw(ksnow)) - 30 + 1 - delr = (rsnw(ksnow) - floor(rsnw(ksnow))) / & - (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) - ks = ssp_snwextdr(ns,nr-1)*( delr) & - + ssp_snwextdr(ns,nr )*(c1-delr) - ws = ssp_snwalbdr(ns,nr-1)*( delr) & - + ssp_snwalbdr(ns,nr )*(c1-delr) - gs = ssp_sasymmdr(ns,nr-1)*( delr) & - + ssp_sasymmdr(ns,nr )*(c1-delr) - endif - else ! standard interpolation for nonuniform tabular values - do nr=2,nmbrad_snicar - if (rsnw_snicar_tab(nr-1) <= rsnw(ksnow) .and. & - rsnw(ksnow) < rsnw_snicar_tab(nr)) then - delr = (rsnw (ksnow) - rsnw_snicar_tab(nr-1)) / & - (rsnw_snicar_tab(nr) - rsnw_snicar_tab(nr-1)) - ks = ssp_snwextdr(ns,nr-1)*( delr) & - + ssp_snwextdr(ns,nr )*(c1-delr) - ws = ssp_snwalbdr(ns,nr-1)*( delr) & - + ssp_snwalbdr(ns,nr )*(c1-delr) - gs = ssp_sasymmdr(ns,nr-1)*( delr) & - + ssp_sasymmdr(ns,nr )*(c1-delr) - endif - enddo ! nr - endif - tau(k) = (ks*rhosnw(ksnow) + kabs_chl(ns,k))*dzk(k) - w0 (k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl(ns,k)) * ws - g (k) = gs - - !write(warning, *) "rsnw(ksnow)", rsnw(ksnow) - !write(warning, *) "direct, k, tau, w0, g =", k, tau(k), w0(k), g(k) - !write(warning, *) "ns, ks, kabs_chl(ns,k), ", ns, ks, kabs_chl(ns,k) - !call add_warning(warning) - enddo ! k - ! diffuse incident - do k=0,nslyr - ! use top rsnw, rhosnw for snow ssl and rest of top layer - ksnow = k - min(k-1,0) - if (rsnw(ksnow) <= rsnw_snicar_min) then ! change to rsnw_snicar_tab(1) - ks = ssp_snwextdf(ns,1) - ws = ssp_snwalbdf(ns,1) - gs = ssp_sasymmdf(ns,1) - elseif (rsnw(ksnow) >= rsnw_snicar_max) then ! change to rsnw_snicar_tab(nmbrad_snicar) - ks = ssp_snwextdf(ns,nmbrad_snicar) - ws = ssp_snwalbdf(ns,nmbrad_snicar) - gs = ssp_sasymmdf(ns,nmbrad_snicar) - elseif (trim(snw_ssp_table) == 'snicar') then ! assume index = int(snow grain radius) - 29 - if (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then - nr = ceiling(rsnw(ksnow)) - 30 + 1 - ks = ssp_snwextdf(ns,nr) - ws = ssp_snwalbdf(ns,nr) - gs = ssp_sasymmdf(ns,nr) - else ! linear interpolation in rsnw - ! radius = 30 --> nr = 1 in SNICAR table - nr = ceiling(rsnw(ksnow)) - 30 + 1 - delr = (rsnw(ksnow) - floor(rsnw(ksnow))) / & - (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) - ks = ssp_snwextdf(ns,nr-1)*( delr) & - + ssp_snwextdf(ns,nr )*(c1-delr) - ws = ssp_snwalbdf(ns,nr-1)*( delr) & - + ssp_snwalbdf(ns,nr )*(c1-delr) - gs = ssp_sasymmdf(ns,nr-1)*( delr) & - + ssp_sasymmdf(ns,nr )*(c1-delr) - endif - else ! standard interpolation for nonuniform tabular values - do nr=2,nmbrad_snicar - if (rsnw_snicar_tab(nr-1) <= rsnw(ksnow) .and. & - rsnw(ksnow) < rsnw_snicar_tab(nr)) then - delr = (rsnw (ksnow) - rsnw_snicar_tab(nr-1)) / & - (rsnw_snicar_tab(nr) - rsnw_snicar_tab(nr-1)) - ks = ssp_snwextdf(ns,nr-1)*( delr) & - + ssp_snwextdf(ns,nr )*(c1-delr) - ws = ssp_snwalbdf(ns,nr-1)*( delr) & - + ssp_snwalbdf(ns,nr )*(c1-delr) - gs = ssp_sasymmdf(ns,nr-1)*( delr) & - + ssp_sasymmdf(ns,nr )*(c1-delr) - endif - enddo ! nr - endif - tau(k) = (ks*rhosnw(ksnow) + kabs_chl(ns,k))*dzk(k) - w0 (k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl(ns,k)) * ws - g (k) = gs - - !write(warning, *) "rsnw(ksnow)", rsnw(ksnow) - !write(warning, *) "diffuse, k, tau, w0, g =", k, tau(k), w0(k), g(k) - !write(warning, *) "ns, ks, kabs_chl(ns,k), ", ns, ks, kabs_chl(ns,k) - !call add_warning(warning) - enddo ! k - - endif ! nspint ! aerosol in snow if (tr_zaero .and. dEdd_algae) then @@ -3661,23 +3461,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & if (dfdif(k) < puny) dfdif(k) = c0 !echmod necessary? enddo ! k -!echmod - is this necessary? -! ! note that because the snow IOPs for diffuse and direct incidents -! ! are different, the snow albedo needs to be calculated twice for -! ! direct incident and diffuse incident respectively -! if (nsky == 1) then ! direc beam (keep the direct beam results) -! do k = 0, klevp -! dfdir_snicar(k) = dfdir(k) -! rupdir_snicar(k) = rupdir(k) -! enddo -! elseif (nsky == 2) then ! diffuse (keep the diffuse incident results) -! do k = 0, klevp -! dfdif_snicar(k) = dfdif(k) -! rupdif_snicar(k) = rupdif(k) -! enddo -! endif -! enddo ! end direct/diffuse incident nsky - ! calculate final surface albedos and fluxes- ! all absorbed flux above ksrf is included in surface absorption @@ -3743,8 +3526,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & swdr = swidr swdf = swidf - if (nspint == nspint_3bd) then - ! let fr1 = alb_1*swd*wght1 and fr2 = alb_2*swd*wght2 be the ns=2,3 ! reflected fluxes respectively, where alb_1, alb_2 are the band ! albedos, swd = nir incident shortwave flux, and wght1, wght2 are @@ -3806,51 +3587,6 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & * wghtns(ns) enddo ! k - elseif (use_snicar .and. nspint == nspint_5bd) then - - ! let fr2(3,4,5) = alb_2(3,4,5)*swd*wght2(3,4,5) - ! the ns=2(3,4,5) reflected fluxes respectively, - ! where alb_2(3,4,5) are the band - ! albedos, swd = nir incident shortwave flux, and wght2(3,4,5) are - ! the 2(3,4,5) band weights. thus, the total reflected flux is: - ! fr = fr2 + fr3 + fr4 + fr5 - ! = alb_2*swd*wght2 + alb_3*swd*wght3 + alb_4*swd*wght4 + alb_5*swd*wght5 - ! hence, the 2,3,4,5 nir band albedo is - ! alb = fr/swd = alb_2*wght2 + alb_3*wght3 + alb_4*wght4 + alb_5*wght5 - - aidr = aidr + rupdir(0)*wghtns_5bd_drc(ns) - aidf = aidf + rupdif(0)*wghtns_5bd_dfs(ns) - - tmp_0 = dfdir(0 )*swdr*wghtns_5bd_drc(ns) & - + dfdif(0 )*swdf*wghtns_5bd_dfs(ns) - tmp_ks = dfdir(ksrf )*swdr*wghtns_5bd_drc(ns) & - + dfdif(ksrf )*swdf*wghtns_5bd_dfs(ns) - tmp_kl = dfdir(klevp)*swdr*wghtns_5bd_drc(ns) & - + dfdif(klevp)*swdf*wghtns_5bd_dfs(ns) - - fsfc = fsfc + tmp_0 - tmp_ks - fint = fint + tmp_ks - tmp_kl - fthru = fthru + tmp_kl - fthruidr = fthruidr & - + dfdir(klevp)*swdr*wghtns_5bd_drc(ns) - fthruidf = fthruidf & - + dfdif(klevp)*swdf*wghtns_5bd_dfs(ns) - - ! if snow covered ice, set snow internal absorption; else, Sabs=0 - if( srftyp == 1 ) then - ki = 0 - do k=1,nslyr - ! skip snow SSL, since SSL absorption included in the surface - ! absorption fsfc above - km = k - kp = km + 1 - ki = ki + 1 - Sabs(ki) = Sabs(ki) & - + (dfdir(km)-dfdir(kp))*swdr*wghtns_5bd_drc(ns) & - + (dfdif(km)-dfdir(kp))*swdf*wghtns_5bd_dfs(ns) - enddo ! k - endif - ! complex indexing to insure proper absorptions for sea ice ki = 0 do k=nslyr+2,nslyr+1+nilyr @@ -3871,34 +3607,13 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & + (dfdif(km)-dfdir(kp))*swdf*wghtns_5bd_dfs(ns) enddo ! k - endif ! nspint - endif ! ns = 1, ns > 1 - enddo ! end spectral loop ns + enddo ! ns: end spectral loop ! solar zenith angle parameterization - ! calculate the scaling factor for NIR direct albedo if SZA>75 degree - sza_factor = c1 - if (use_snicar .and. nspint == nspint_5bd) then - mu0 = max(coszen,p01) - if (mu0 < mu_75) then - sza_c1 = sza_a0 + sza_a1 * mu0 + sza_a2 * mu0**2 - sza_c0 = sza_b0 + sza_b1 * mu0 + sza_b2 * mu0**2 - sza_factor = sza_c1 * (log10(rsnw(1)) - 6.0) + sza_c0 - endif - ! assume the reduced NIR energy absorption by snow due to corrected - ! snow albedo is absorbed only by the snow single scattering layer - ! - this is generally true if snow SSL >= 2 cm. Default set up: - ! if snow_depth >= 8 cm, SSL = 4 cm, satisfy - ! else if snow_depth >= 4 cm, SSL = snow_depth/2 >= 2 cm, satisfy - ! else snow_depth < 4 cm, SSL = snow_depth/2, may overcool SSL layer - alidr = aidr * sza_factor ! sza_factor >= 1 - fswsfc = fswsfc + (fsfc - (sza_factor-c1)*aidr*swidr)*fi - else alidr = aidr fswsfc = fswsfc + fsfc*fi - endif alvdr = avdr alvdf = avdf @@ -3945,7 +3660,7 @@ subroutine compute_dEdd(nilyr, nslyr, nspint, & endif ! heat_capacity #endif - end subroutine compute_dEdd + end subroutine compute_dEdd_3bd !======================================================================= ! @@ -5317,7 +5032,6 @@ real(kind=dbl_kind) function asys(gg,f) end function asys -!======================================================================= !======================================================================= ! --- Begin 5 band dEdd subroutine --- ! Evaluate snow/ice/ponded ice inherent optical properties (IOPs), and @@ -5346,16 +5060,15 @@ end function asys ! For now, these two subroutines are seperated for testing new features. ! ! The justification and explaination for above changes can be find in paper: -! Dang, C., Zender, C. S., and Flanner, M. G.: Inter-comparison and improvement -! of 2-stream shortwave radiative transfer models for unified treatment of -! cryospheric surfaces in ESMs, The Cryosphere Discuss., +! Dang, C., Zender, C. S., and Flanner, M. G.: Inter-comparison and improvement +! of 2-stream shortwave radiative transfer models for unified treatment of +! cryospheric surfaces in ESMs, The Cryosphere Discuss., ! https://doi.org/10.5194/tc-2019-22, in review, 2019 subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & n_zaero, zbio, dEdd_algae, & nlt_chl_sw,nlt_zaero_sw, tr_bgc_N, & tr_zaero, & -! heat_capacity, fnidr, coszen, & fnidr, coszen, & n_aero, tr_aero, R_ice, R_pnd, & kaer_tab_5bd, waer_tab_5bd, gaer_tab_5bd, & @@ -5881,6 +5594,8 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & gi_int_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & .94_dbl_kind, .94_dbl_kind /) + character(len=*),parameter :: subname='(compute_dEdd_3bd)' + !----------------------------------------------------------------------- ! Initialize and tune bare ice/ponded ice iops @@ -6806,7 +6521,6 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & end subroutine compute_dEdd_5bd -!======================================================================= !======================================================================= end module icepack_shortwave From 0fabd24641a647bc9130b1edf0d7681364eca189 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Thu, 1 Sep 2022 16:53:09 -0600 Subject: [PATCH 24/64] Fix errors in calls to compute_dEdd. Some cleanup. --- columnphysics/icepack_parameters.F90 | 2 + columnphysics/icepack_shortwave.F90 | 71 +++++++++------------------- 2 files changed, 24 insertions(+), 49 deletions(-) diff --git a/columnphysics/icepack_parameters.F90 b/columnphysics/icepack_parameters.F90 index 5ed34d29a..8d361d428 100644 --- a/columnphysics/icepack_parameters.F90 +++ b/columnphysics/icepack_parameters.F90 @@ -237,6 +237,8 @@ module icepack_parameters character (len=char_len), public :: & snw_ssp_table = 'test' ! lookup table: 'snicar' or 'test' or 'file' +!echmod - remove ssp_bcerad*, ssp_bcgrerad*? they are not used in MPAS-SI + real (kind=dbl_kind), allocatable, public :: & ssp_bcerad (:), & ! ?, bcEffectiveRadius ssp_bcgrerad(:), & ! ?, iceGrainEffectiveRadius diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 1204cf3c1..992a6ee24 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -68,7 +68,7 @@ module icepack_shortwave use icepack_tracers, only: tr_pond_lvl, tr_pond_topo #endif use icepack_tracers, only: tr_bgc_N, tr_aero - use icepack_tracers, only: nt_bgc_N, nt_zaero, tr_bgc_N + use icepack_tracers, only: nt_bgc_N, nt_zaero use icepack_tracers, only: tr_zaero, nlt_chl_sw, nlt_zaero_sw use icepack_tracers, only: n_algae, n_aero, n_zaero use icepack_warnings, only: warnstr, icepack_warnings_add @@ -160,7 +160,7 @@ subroutine icepack_init_radiation character (len=*),parameter :: subname='(icepack_init_radiation)' !----------------------------------------------------------------- - ! Snow table initialization + ! Set dEdd parameter tables !----------------------------------------------------------------- if (shortwave(1:4) == 'dEdd') then @@ -2026,7 +2026,7 @@ subroutine shortwave_dEdd (dEdd_algae, & srftyp = 0 nspint = nspint_3bd - call compute_dEdd_3bd(nilyr, nslyr, nspint, & + call compute_dEdd_3bd(nilyr, nslyr, & klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER heat_capacity, fnidr, coszen, & @@ -2077,18 +2077,12 @@ subroutine shortwave_dEdd (dEdd_algae, & if (use_snicar) then nspint = nspint_5bd call compute_dEdd_5bd(nilyr, nslyr, klev, klevp, & - n_zaero, zbio, dEdd_algae, & - nlt_chl_sw,nlt_zaero_sw, tr_bgc_N, & - tr_zaero, & + zbio, dEdd_algae, & !!!!!! heat_capacity, fnidr, coszen, & fnidr, coszen, & - n_aero, tr_aero, R_ice, R_pnd, & -!!!!!! kaer_tab_5bd, waer_tab_5bd, gaer_tab_5bd, & -!!!!!! kaer_bc_tab_5bd, waer_bc_tab_5bd, gaer_bc_tab_5bd,& -!!!!!! bcenh_5bd, modal_aero, kalg, & kaer_5bd, waer_5bd, gaer_5bd, & kaer_bc_5bd, waer_bc_5bd, gaer_bc_5bd,& - bcenh_5bd, modal_aero, kalg, & + bcenh_5bd, modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fs, aero_mp, avdrl, avdfl, & @@ -2103,7 +2097,7 @@ subroutine shortwave_dEdd (dEdd_algae, & else !echmod - this can be combined with the 5bd call above, if we use module data nspint = nspint_3bd - call compute_dEdd_3bd(nilyr, nslyr, nspint, & + call compute_dEdd_3bd(nilyr, nslyr, & klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER heat_capacity, fnidr, coszen, & @@ -2115,8 +2109,8 @@ subroutine shortwave_dEdd (dEdd_algae, & ! bcenh_3bd, modal_aero, & modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & - hstmp, rhosnw, rsnw, hi, hp, & - fi, aero_mp, avdrl, avdfl, & + hs, rhosnw, rsnw, hi, hp, & + fs, aero_mp, avdrl, avdfl, & aidrl, aidfl, & fswsfc, fswint, & fswthru, & @@ -2158,7 +2152,7 @@ subroutine shortwave_dEdd (dEdd_algae, & srftyp = 2 nspint = nspint_3bd - call compute_dEdd_3bd(nilyr, nslyr, nspint, & + call compute_dEdd_3bd(nilyr, nslyr, & klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER heat_capacity, fnidr, coszen, & @@ -2170,8 +2164,8 @@ subroutine shortwave_dEdd (dEdd_algae, & ! bcenh_3bd, modal_aero, & modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & - hstmp, rhosnw, rsnw, hi, hp, & - fi, aero_mp, avdrl, avdfl, & + hs, rhosnw, rsnw, hi, hp, & + fp, aero_mp, avdrl, avdfl, & aidrl, aidfl, & fswsfc, fswint, & fswthru, & @@ -2301,7 +2295,7 @@ end subroutine shortwave_dEdd ! a unified treatment of cryospheric surfaces. The Cryosphere, 13, 2325-2343, ! 2019. https://doi.org/10.5194/tc-13-2325-2019 - subroutine compute_dEdd_3bd(nilyr, nslyr, nspint, & + subroutine compute_dEdd_3bd(nilyr, nslyr, & klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER heat_capacity, fnidr, coszen, & @@ -2361,7 +2355,6 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, nspint, & swidf ! shortwave down at surface, near IR, diffuse (W/m^2) integer (kind=int_kind), intent(in) :: & - nspint , & ! number of solar spectral bands srftyp ! surface type over ice: (0=air, 1=snow, 2=pond) real (kind=dbl_kind), intent(in) :: & @@ -2819,7 +2812,7 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, nspint, & ! R values of -1 correspond approximately to -1 sigma changes in albedo ! Note: the albedo change becomes non-linear for R values > +1 or < -1 if( R_ice >= c0 ) then - do ns = 1, nspint + do ns = 1, nspint_3bd sigp = ki_ssl_mn(ns)*wi_ssl_mn(ns)*(c1+fp_ice*R_ice) ki_ssl(ns) = sigp+ki_ssl_mn(ns)*(c1-wi_ssl_mn(ns)) wi_ssl(ns) = sigp/ki_ssl(ns) @@ -2836,7 +2829,7 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, nspint, & gi_int(ns) = gi_int_mn(ns) enddo else !if( R_ice < c0 ) then - do ns = 1, nspint + do ns = 1, nspint_3bd sigp = ki_ssl_mn(ns)*wi_ssl_mn(ns)*(c1+fm_ice*R_ice) sigp = max(sigp, c0) ki_ssl(ns) = sigp+ki_ssl_mn(ns)*(c1-wi_ssl_mn(ns)) @@ -2857,11 +2850,9 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, nspint, & enddo endif ! adjust ice iops - if (nspint == nspint_3bd) then - ! adjust ponded ice iops with tuning parameters if( R_pnd >= c0 ) then - do ns = 1, nspint + do ns = 1, nspint_3bd sigp = ki_p_ssl_mn(ns)*wi_p_ssl_mn(ns)*(c1+fp_pnd*R_pnd) ki_p_ssl(ns) = sigp+ki_p_ssl_mn(ns)*(c1-wi_p_ssl_mn(ns)) wi_p_ssl(ns) = sigp/ki_p_ssl(ns) @@ -2873,7 +2864,7 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, nspint, & gi_p_int(ns) = gi_p_int_mn(ns) enddo else !if( R_pnd < c0 ) then - do ns = 1, nspint + do ns = 1, nspint_3bd sigp = ki_p_ssl_mn(ns)*wi_p_ssl_mn(ns)*(c1+fm_pnd*R_pnd) sigp = max(sigp, c0) ki_p_ssl(ns) = sigp+ki_p_ssl_mn(ns)*(c1-wi_p_ssl_mn(ns)) @@ -2888,8 +2879,6 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, nspint, & enddo endif ! adjust ponded ice iops - endif ! nspint - ! use srftyp to determine interface index of surface absorption if (srftyp == 1) then ! snow covered sea ice @@ -2955,7 +2944,7 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, nspint, & do n = 1,n_zaero if (n == 1) then ! interstitial BC do k = 0, klev - do ns = 1,nspint ! not weighted by aice + do ns = 1,nspint_3bd ! not weighted by aice tzaer(ns,k) = tzaer(ns,k)+kaer_bc_tab(ns,k_bcexs(k))* & zbio(nlt_zaero_sw(n)+k)*dzk(k) wzaer(ns,k) = wzaer(ns,k)+kaer_bc_tab(ns,k_bcexs(k))* & @@ -2968,7 +2957,7 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, nspint, & enddo elseif (n==2) then ! within-ice BC do k = 0, klev - do ns = 1,nspint + do ns = 1,nspint_3bd tzaer(ns,k) = tzaer(ns,k)+kaer_bc_tab(ns,k_bcins(k)) * & bcenh(ns,k_bcins(k),k_bcini(k))* & zbio(nlt_zaero_sw(n)+k)*dzk(k) @@ -2982,7 +2971,7 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, nspint, & enddo else ! dust do k = 0, klev - do ns = 1,nspint ! not weighted by aice + do ns = 1,nspint_3bd ! not weighted by aice tzaer(ns,k) = tzaer(ns,k)+kaer_tab(ns,n)* & zbio(nlt_zaero_sw(n)+k)*dzk(k) wzaer(ns,k) = wzaer(ns,k)+kaer_tab(ns,n)*waer_tab(ns,n)* & @@ -2999,7 +2988,7 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, nspint, & if (tr_zaero .and. dEdd_algae) then ! compute kzaero for chlorophyll do n = 1,n_zaero ! multiply by aice? do k = 0, klev - do ns = 1,nspint ! not weighted by aice + do ns = 1,nspint_3bd ! not weighted by aice tzaer(ns,k) = tzaer(ns,k)+kaer_tab(ns,n)* & zbio(nlt_zaero_sw(n)+k)*dzk(k) wzaer(ns,k) = wzaer(ns,k)+kaer_tab(ns,n)*waer_tab(ns,n)* & @@ -5066,14 +5055,11 @@ end function asys ! https://doi.org/10.5194/tc-2019-22, in review, 2019 subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & - n_zaero, zbio, dEdd_algae, & - nlt_chl_sw,nlt_zaero_sw, tr_bgc_N, & - tr_zaero, & + zbio, dEdd_algae, & fnidr, coszen, & - n_aero, tr_aero, R_ice, R_pnd, & kaer_tab_5bd, waer_tab_5bd, gaer_tab_5bd, & kaer_bc_tab_5bd, waer_bc_tab_5bd, & - gaer_bc_tab_5bd, bcenh_5bd, modal_aero, kalg, & + gaer_bc_tab_5bd, bcenh_5bd, modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fi, aero_mp, alvdr, alvdf, & @@ -5088,31 +5074,18 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & integer (kind=int_kind), intent(in) :: & nilyr , & ! number of ice layers nslyr , & ! number of snow layers - n_aero , & ! number of aerosol tracers - n_zaero , & ! number of zaerosol tracers in use - nlt_chl_sw , & ! index for chla klev , & ! number of radiation layers - 1 klevp ! number of radiation interfaces - 1 ! (0 layer is included also) - integer (kind=int_kind), dimension(:), intent(in) :: & - nlt_zaero_sw ! index for zaerosols - logical (kind=log_kind), intent(in) :: & ! heat_capacity , & ! if true, ice has nonzero heat capacity - tr_aero , & ! if .true., use aerosol tracers dEdd_algae , & ! .true. use prognostic chla in dEdd - tr_bgc_N , & ! .true. active bgc (skl or z) - tr_zaero , & ! .true. use zaerosols modal_aero ! .true. use modal aerosol treatment ! dEdd tuning parameters, set in namelist - real (kind=dbl_kind), intent(in) :: & - R_ice , & ! sea ice tuning parameter; +1 > 1sig increase in albedo - R_pnd ! ponded ice tuning parameter; +1 > 1sig increase in albedo real (kind=dbl_kind), intent(in) :: & - kalg , & ! algae absorption coefficient fnidr , & ! fraction of direct to total down flux in nir coszen , & ! cosine solar zenith angle swvdr , & ! shortwave down at surface, visible, direct (W/m^2) From 20d7e03aeea39fa86dd51837b12e34ae9c93b5c7 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Thu, 1 Sep 2022 17:17:17 -0600 Subject: [PATCH 25/64] Remove duplicate Iabs calculation. More cleanup. --- columnphysics/icepack_shortwave.F90 | 92 ++--------------------------- 1 file changed, 4 insertions(+), 88 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 992a6ee24..e5f76c815 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -1923,7 +1923,6 @@ subroutine shortwave_dEdd (dEdd_algae, & aero_mp ! aerosol mass path in kg/m2 integer (kind=int_kind) :: & - nspint , & ! number of solar spectral bands srftyp ! surface type over ice: (0=air, 1=snow, 2=pond) integer (kind=int_kind) :: & @@ -2025,7 +2024,6 @@ subroutine shortwave_dEdd (dEdd_algae, & ! calculate bare sea ice srftyp = 0 - nspint = nspint_3bd call compute_dEdd_3bd(nilyr, nslyr, & klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER @@ -2033,9 +2031,6 @@ subroutine shortwave_dEdd (dEdd_algae, & #else fnidr, coszen, & #endif -! kaer_3bd, waer_3bd, gaer_3bd, & -! kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd, & -! bcenh_3bd, modal_aero, & modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hstmp, rhosnw, rsnw, hi, hp, & @@ -2075,7 +2070,6 @@ subroutine shortwave_dEdd (dEdd_algae, & srftyp = 1 if (use_snicar) then - nspint = nspint_5bd call compute_dEdd_5bd(nilyr, nslyr, klev, klevp, & zbio, dEdd_algae, & !!!!!! heat_capacity, fnidr, coszen, & @@ -2096,7 +2090,6 @@ subroutine shortwave_dEdd (dEdd_algae, & else !echmod - this can be combined with the 5bd call above, if we use module data - nspint = nspint_3bd call compute_dEdd_3bd(nilyr, nslyr, & klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER @@ -2104,9 +2097,6 @@ subroutine shortwave_dEdd (dEdd_algae, & #else fnidr, coszen, & #endif -! kaer_3bd, waer_3bd, gaer_3bd, & -! kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd, & -! bcenh_3bd, modal_aero, & modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & @@ -2151,7 +2141,6 @@ subroutine shortwave_dEdd (dEdd_algae, & ! calculate ponded ice srftyp = 2 - nspint = nspint_3bd call compute_dEdd_3bd(nilyr, nslyr, & klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER @@ -2159,9 +2148,6 @@ subroutine shortwave_dEdd (dEdd_algae, & #else fnidr, coszen, & #endif -! kaer_3bd, waer_3bd, gaer_3bd, & -! kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd, & -! bcenh_3bd, modal_aero, & modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & @@ -2277,24 +2263,8 @@ end subroutine shortwave_dEdd ! ! author: Bruce P. Briegleb, NCAR ! 2013: E Hunke merged with NCAR version -! 2018: Cheng Dang merged with SNICAR 5-band snow and aersols IOPs, UC Irvine ! 2022: E Hunke, T Craig moved data (now module data) -! Note regarding SNICAR 5-band scheme: -! 1. The shortwave radiative transfer properties of snow-covered sea ice are -! calculated for 5 bands (1 visible and 4 near-IR) defined in SNICAR -! 2. The reflection/absorption/transmission of direct and diffuse shortwave -! incidents are calculated seperately to remove the snow grain adjustment -! 3. The albedo and absorption of snow-covered sea ice are adjusted when the -! solar zenith angle is above 75 degrees -! 4. The original subroutine, compute_dEdd_5bd, has been merged with this -! compute_dEdd subroutine. -! For further information, see -! Dang, C., Zender, C. S., and Flanner, M. G.: Intercomparison and improvement -! of 2-stream shortwave radiative transfer schemes in Earth system models for -! a unified treatment of cryospheric surfaces. The Cryosphere, 13, 2325-2343, -! 2019. https://doi.org/10.5194/tc-13-2325-2019 - subroutine compute_dEdd_3bd(nilyr, nslyr, & klev, klevp, zbio, dEdd_algae, & #ifdef UNDEPRECATE_0LAYER @@ -2680,28 +2650,6 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & ! Grenfell 1991 uses 0.004 (m^2/mg) which is (0.0078 * spectral weighting) !chlorophyll mass extinction cross section (m^2/mg chla) - real (kind=dbl_kind), dimension (5) :: & - wghtns_5bd_dfs, & ! spectral weights for diffuse incident - wghtns_5bd_drc ! spectral weights for direct incident - -! integer (kind=int_kind) :: & -! nsky !sky = 1 (2) for direct (diffuse) downward SW incident - - real (kind=dbl_kind), parameter :: & ! solar zenith angle parameterizations - sza_a0 = 0.085730_dbl_kind , & - sza_a1 = -0.630883_dbl_kind , & - sza_a2 = 1.303723_dbl_kind , & - sza_b0 = 1.467291_dbl_kind , & - sza_b1 = -3.338043_dbl_kind , & - sza_b2 = 6.807489_dbl_kind , & - mu_75 = 0.2588_dbl_kind ! cosine(75 degrees) - - real (kind=dbl_kind) :: & - sza_c1 , & ! parameter for high sza adjustment - sza_c0 , & ! parameter for high sza adjustment - sza_factor , & ! parameter for high sza adjustment - mu0 - character(len=*),parameter :: subname='(compute_dEdd_3bd)' !----------------------------------------------------------------------- @@ -2735,16 +2683,6 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & fthruidr = c0 fthruidf = c0 - ki_ssl_mn = ki_ssl_mn_3bd - wi_ssl_mn = wi_ssl_mn_3bd - gi_ssl_mn = gi_ssl_mn_3bd - ki_dl_mn = ki_dl_mn_3bd - wi_dl_mn = wi_dl_mn_3bd - gi_dl_mn = gi_dl_mn_3bd - ki_int_mn = ki_int_mn_3bd - wi_int_mn = wi_int_mn_3bd - gi_int_mn = gi_int_mn_3bd - ! spectral weights 2 (0.7-1.19 micro-meters) and 3 (1.19-5.0 micro-meters) ! are chosen based on 1D calculations using ratio of direct to total ! near-infrared solar (0.7-5.0 micro-meter) which indicates clear/cloudy @@ -2906,9 +2844,9 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & ! CICE adjusted snow grain radius rsnw to frsnw in the original 3-band ! scheme, while for SNICAR the snow grain radius is used directly. ksnow = k - min(k-1,0) - tmp_gs = frsnw(ksnow) + tmp_gs = frsnw(ksnow) - ! grain size index: works for 25 < snw_rds < 1625 um: + ! grain size index if (tmp_gs < 125._dbl_kind) then tmp1 = tmp_gs/50._dbl_kind k_bcini(k) = nint(tmp1) @@ -3576,39 +3514,17 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & * wghtns(ns) enddo ! k - ! complex indexing to insure proper absorptions for sea ice - ki = 0 - do k=nslyr+2,nslyr+1+nilyr - ! for bare ice, DL absorption for sea ice layer 1 - km = k - kp = km + 1 - ! modify for top sea ice layer for snow over sea ice - if( srftyp == 1 ) then - ! must add SSL and DL absorption for sea ice layer 1 - if( k == nslyr+2 ) then - km = k - 1 - kp = km + 2 - endif - endif - ki = ki + 1 - Iabs(ki) = Iabs(ki) & - + (dfdir(km)-dfdir(kp))*swdr*wghtns_5bd_drc(ns) & - + (dfdif(km)-dfdir(kp))*swdf*wghtns_5bd_dfs(ns) - enddo ! k - endif ! ns = 1, ns > 1 enddo ! ns: end spectral loop - ! solar zenith angle parameterization - alidr = aidr - fswsfc = fswsfc + fsfc*fi - alvdr = avdr alvdf = avdf + alidr = aidr alidf = aidf ! accumulate fluxes over bare sea ice + fswsfc = fswsfc + fsfc *fi fswint = fswint + fint *fi fswthru = fswthru + fthru*fi fswthru_vdr = fswthru_vdr + fthruvdr*fi From fe21d1fd3303afde60ee89f65464168d34fa714c Mon Sep 17 00:00:00 2001 From: apcraig Date: Thu, 1 Sep 2022 17:15:41 -0600 Subject: [PATCH 26/64] - Add icepack_shortwave_data - Move shortwave data from icepack_parameters and icepack_shortwave to icepack_shortwave_data, icepack_shortwave_data is lower in file hierarchy than icepack_parameters. - Add 3band and 5band dEdd table initialization to icepack_shortwave_data - snw_ssp_table options now test, snicar, snicarfile, file. snicarfile should be identical to snicar, one reads file and passes data in, other hardcodes snicar table in icepack --- columnphysics/icepack_intfc.F90 | 7 +- columnphysics/icepack_parameters.F90 | 42 +- columnphysics/icepack_shortwave.F90 | 653 +- columnphysics/icepack_shortwave_data.F90 | 9541 +++++++++++++++++ configuration/driver/icedrv_init.F90 | 2 +- configuration/driver/icedrv_init_column.F90 | 2 +- .../scripts/options/set_env.snicarfile | 2 + .../scripts/options/set_env.snicartest | 2 + configuration/scripts/options/set_nml.snicar | 21 - .../scripts/options/set_nml.snicarfile | 23 + 10 files changed, 9767 insertions(+), 528 deletions(-) create mode 100644 columnphysics/icepack_shortwave_data.F90 create mode 100644 configuration/scripts/options/set_env.snicarfile create mode 100644 configuration/scripts/options/set_env.snicartest create mode 100644 configuration/scripts/options/set_nml.snicarfile diff --git a/columnphysics/icepack_intfc.F90 b/columnphysics/icepack_intfc.F90 index d5d83ad2f..d68d7b481 100644 --- a/columnphysics/icepack_intfc.F90 +++ b/columnphysics/icepack_intfc.F90 @@ -45,14 +45,15 @@ module icepack_intfc use icepack_tracers, only: icepack_max_iso => max_iso use icepack_tracers, only: icepack_nmodal1 => nmodal1 use icepack_tracers, only: icepack_nmodal2 => nmodal2 - use icepack_parameters, only: icepack_nspint_3bd => nspint_3bd - use icepack_parameters, only: icepack_nspint_5bd => nspint_5bd + + use icepack_shortwave_data, only: icepack_nspint_3bd => nspint_3bd + use icepack_shortwave_data, only: icepack_nspint_5bd => nspint_5bd use icepack_parameters, only: icepack_init_parameters use icepack_parameters, only: icepack_query_parameters use icepack_parameters, only: icepack_write_parameters use icepack_parameters, only: icepack_recompute_constants - use icepack_parameters, only: nspint_3bd, nspint_5bd, secday, spval_const + use icepack_parameters, only: secday, spval_const use icepack_parameters, only: c0, c1, c1p5, c2, c3, c4, c5, c6, c8 use icepack_parameters, only: c10, c15, c16, c20, c25, c100, c1000 use icepack_parameters, only: p001, p01, p1, p2, p4, p5, p6, p05 diff --git a/columnphysics/icepack_parameters.F90 b/columnphysics/icepack_parameters.F90 index 8d361d428..707a60ff4 100644 --- a/columnphysics/icepack_parameters.F90 +++ b/columnphysics/icepack_parameters.F90 @@ -9,6 +9,18 @@ module icepack_parameters use icepack_kinds use icepack_warnings, only: icepack_warnings_aborted, & icepack_warnings_add, icepack_warnings_setabort + use icepack_shortwave_data, only: & + use_snicar , & + nspint_3bd , nspint_5bd , & + snw_ssp_table, & + ssp_bcerad , ssp_bcgrerad, & + ssp_snwextdr , ssp_snwextdf, & + ssp_snwalbdr , ssp_snwalbdf, & + ssp_sasymmdr , ssp_sasymmdf, & + ssp_aasymmmd , ssp_aerextmd, & + ssp_aeralbmd , ssp_aasymm , & + ssp_aerext , ssp_aeralb , & + ssp_abcenhmd implicit none private @@ -178,13 +190,6 @@ module icepack_parameters ! Parameters for radiation !----------------------------------------------------------------------- - logical (kind=log_kind), public :: & - use_snicar = .false. ! .true. use 5-band SNICAR-AD approach - - integer (kind=int_kind), parameter, public :: & - nspint_3bd = 3, & ! number of solar spectral bands - nspint_5bd = 5 ! number of solar spectral bands (snicar snow) - real (kind=dbl_kind), public :: & ! (Briegleb JGR 97 11475-11485 July 1992) emissivity = 0.985_dbl_kind,&! emissivity of snow and ice @@ -233,29 +238,6 @@ module icepack_parameters sw_frac = 0.9_dbl_kind , & ! Fraction of internal shortwave moved to surface sw_dtemp = 0.02_dbl_kind ! temperature difference from melting - ! Parameters for dEdd_snicar - character (len=char_len), public :: & - snw_ssp_table = 'test' ! lookup table: 'snicar' or 'test' or 'file' - -!echmod - remove ssp_bcerad*, ssp_bcgrerad*? they are not used in MPAS-SI - - real (kind=dbl_kind), allocatable, public :: & - ssp_bcerad (:), & ! ?, bcEffectiveRadius - ssp_bcgrerad(:), & ! ?, iceGrainEffectiveRadius - ssp_snwextdr(:,:), & ! snow mass extinction cross section (m2/kg), direct - ssp_snwextdf(:,:), & ! snow mass extinction cross section (m2/kg), diffuse - ssp_snwalbdr(:,:), & ! snow single scatter albedo (fraction), direct - ssp_snwalbdf(:,:), & ! snow single scatter albedo (fraction), diffuse - ssp_sasymmdr(:,:), & ! snow asymmetry factor (cos(theta)), direct - ssp_sasymmdf(:,:), & ! snow asymmetry factor (cos(theta)), diffuse - ssp_aasymmmd(:,:), & ! gaer_bc_5bd, modalAsymmetryParameter5band - ssp_aerextmd(:,:), & ! kaer_bc_5bd, modalMassExtinctionCrossSection5band - ssp_aeralbmd(:,:), & ! waer_bc_5bd, modalSingleScatterAlbedo5band - ssp_aasymm (:,:), & ! gaer_5bd, aerosolAsymmetryParameter5band - ssp_aerext (:,:), & ! kaer_5bd, aerosolMassExtinctionCrossSection5band - ssp_aeralb (:,:), & ! waer_5bd, aerosolSingleScatterAlbedo5band - ssp_abcenhmd(:,:,:) ! bcenh_5bd, modalBCabsorptionParameter5band - !----------------------------------------------------------------------- ! Parameters for dynamics, including ridging and strength !----------------------------------------------------------------------- diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index e5f76c815..fb58630b7 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -44,22 +44,17 @@ module icepack_shortwave use icepack_parameters, only: c0, c1, c1p5, c2, c3, c4, c10 use icepack_parameters, only: p01, p1, p15, p25, p5, p75, puny use icepack_parameters, only: albocn, Timelt, snowpatch, awtvdr, awtidr, awtvdf, awtidf - use icepack_parameters, only: kappav, hs_min, rhofresh, rhos, nspint_3bd, nspint_5bd + use icepack_parameters, only: kappav, hs_min, rhofresh, rhos use icepack_parameters, only: rsnw_fall, snwredist, rsnw_tmax use icepack_parameters, only: hi_ssl, hs_ssl, min_bgc, sk_l, snwlvlfac, snwgrain #ifdef UNDEPRECATE_0LAYER use icepack_parameters, only: z_tracers, skl_bgc, calc_tsfc, shortwave, kalg, heat_capacity #else - use icepack_parameters, only: z_tracers, skl_bgc, calc_tsfc, shortwave, kalg, use_snicar + use icepack_parameters, only: z_tracers, skl_bgc, calc_tsfc, shortwave, kalg #endif use icepack_parameters, only: R_ice, R_pnd, R_snw, dT_mlt, rsnw_mlt, hs0, hs1, hp1 use icepack_parameters, only: pndaspect, albedo_type, albicev, albicei, albsnowv, albsnowi, ahmax - use icepack_parameters, only: ssp_snwextdr, ssp_snwalbdr, ssp_sasymmdr - use icepack_parameters, only: ssp_snwextdf, ssp_snwalbdf, ssp_sasymmdf - use icepack_parameters, only: ssp_aasymmmd, ssp_aerextmd, ssp_aeralbmd, ssp_abcenhmd - use icepack_parameters, only: ssp_aasymm, ssp_aerext, ssp_aeralb -!notused use icepack_parameters, only: ssp_bcerad, ssp_bcgrerad - use icepack_parameters, only: snw_ssp_table + use icepack_shortwave_data, only: nspint_3bd, nspint_5bd, use_snicar use icepack_tracers, only: ntrcr, nbtrcr_sw #ifdef UNDEPRECATE_CESMPONDS @@ -78,25 +73,23 @@ module icepack_shortwave use icepack_zbgc_shared,only: remap_zbgc use icepack_orbital, only: compute_coszen - implicit none - - private - public :: run_dEdd, & - shortwave_ccsm3, & - compute_shortwave_trcr, & - icepack_init_radiation, & - icepack_prep_radiation, & - icepack_step_radiation - - real (kind=dbl_kind), parameter :: & - hpmin = 0.005_dbl_kind, & ! minimum allowed melt pond depth (m) - hp0 = 0.200_dbl_kind ! pond depth below which transition to bare ice - - real (kind=dbl_kind), parameter :: & - exp_argmax = c10 ! maximum argument of exponential + ! SNICAR SSP data + use icepack_shortwave_data, only: & + nmbrad_snicar , & ! number of snow grain radii in SNICAR SSP tables + nmodal1_snicar , & ! nModal1 in SNICAR SSP tables + nmodal2_snicar , & ! nModal2 in SNICAR SSP tables + nmaeros_snicar , & ! maxAerosolType in SNICAR SSP tables + rsnw_snicar_min, & ! minimum snow radius - integer value used for indexing + rsnw_snicar_max ! maximum snow radius - integer value used for indexing + use icepack_shortwave_data, only: & + snw_ssp_table, ssp_snwextdr, ssp_snwalbdr, ssp_sasymmdr, & + ssp_snwextdf, ssp_snwalbdf, ssp_sasymmdf, ssp_aasymmmd, ssp_aerextmd, & + ssp_aeralbmd, ssp_abcenhmd, & + ssp_aasymm, ssp_aerext, ssp_aeralb, ssp_bcerad, ssp_bcgrerad, & + rsnw_snicar_tab ! dEdd 3-band data - real (kind=dbl_kind), dimension (nspint_3bd) :: & + use icepack_shortwave_data, only: & ! inherent optical properties (iop) ! k = extinction coefficient (/m) ! w = single scattering albedo @@ -107,26 +100,35 @@ module icepack_shortwave ki_p_ssl_mn, wi_p_ssl_mn, gi_p_ssl_mn , & ! ponded ice surface scattering layer (ssl) iops ki_p_int_mn, wi_p_int_mn, gi_p_int_mn , & ! ponded ice interior layer (int) iops kw, ww, gw ! iops for pond water and underlying ocean - - integer (kind=int_kind) :: nmbrad ! number of snow grain radii in tables - real (kind=dbl_kind), dimension(:) , allocatable :: rsnw_tab ! snow grain radii (micro-meters) for table - real (kind=dbl_kind), dimension(:,:), allocatable :: Qs_tab ! snow extinction efficiency (unitless) - real (kind=dbl_kind), dimension(:,:), allocatable :: ws_tab ! snow single scattering albedo (unitless) - real (kind=dbl_kind), dimension(:,:), allocatable :: gs_tab ! snow asymmetry parameter (unitless) + use icepack_shortwave_data, only: & + nmbrad, & ! number of snow grain radii in tables + rsnw_tab, & ! snow grain radii (micro-meters) for table + Qs_tab, & ! snow extinction efficiency (unitless) + ws_tab, & ! snow single scattering albedo (unitless) + gs_tab ! snow asymmetry parameter (unitless) ! dEdd 5-band data - real (kind=dbl_kind), dimension (nspint_5bd) :: & + use icepack_shortwave_data, only: & ki_ssl_mn_5bd, wi_ssl_mn_5bd, gi_ssl_mn_5bd, & ! ice surface scattering layer (ssl) iops ki_dl_mn_5bd, wi_dl_mn_5bd, gi_dl_mn_5bd , & ! ice drained layer (dl) iops ki_int_mn_5bd, wi_int_mn_5bd, gi_int_mn_5bd ! ice interior layer (int) iops - integer (kind=int_kind) :: nmbrad_snicar ! number of snow grain radii in SNICAR SSP tables - integer (kind=int_kind) :: nmodal1_snicar ! nModal1 in SNICAR SSP tables - integer (kind=int_kind) :: nmodal2_snicar ! nModal2 in SNICAR SSP tables - integer (kind=int_kind) :: nmaeros_snicar ! maxAerosolType in SNICAR SSP tables - integer (kind=int_kind) :: rsnw_snicar_max ! maximum snow radius - integer value used for indexing - integer (kind=int_kind) :: rsnw_snicar_min ! minimum snow radius - integer value used for indexing - real (kind=dbl_kind), dimension(:), allocatable :: rsnw_snicar_tab ! snow grain radii (10^-6 m) + implicit none + + private + public :: run_dEdd, & + shortwave_ccsm3, & + compute_shortwave_trcr, & + icepack_init_radiation, & + icepack_prep_radiation, & + icepack_step_radiation + + real (kind=dbl_kind), parameter :: & + hpmin = 0.005_dbl_kind, & ! minimum allowed melt pond depth (m) + hp0 = 0.200_dbl_kind ! pond depth below which transition to bare ice + + real (kind=dbl_kind), parameter :: & + exp_argmax = c10 ! maximum argument of exponential ! dEdd tuning parameters, set in namelist ! R_ice ! sea ice tuning parameter; +1 > 1sig increase in albedo @@ -149,9 +151,11 @@ module icepack_shortwave ! Initialize data needed for shortwave radiation calculations ! This should be called after values are set via icepack_init_parameters - subroutine icepack_init_radiation + subroutine icepack_init_radiation() !autodocument_end + use icepack_shortwave_data, only: icepack_shortwave_init_dEdd3band + use icepack_shortwave_data, only: icepack_shortwave_init_dEdd5band ! local variables @@ -164,18 +168,153 @@ subroutine icepack_init_radiation !----------------------------------------------------------------- if (shortwave(1:4) == 'dEdd') then - call data_dEdd_3band() + call icepack_shortwave_init_dEdd3band() if (icepack_warnings_aborted(subname)) return endif if (use_snicar) then - call data_dEdd_5band() + call icepack_shortwave_init_dEdd5band() + call data_dEdd_snicar() if (icepack_warnings_aborted(subname)) return endif end subroutine icepack_init_radiation +!======================================================================= +! Snow single-scattering properties for the 5-band dEdd_snicar option + + subroutine data_dEdd_snicar + + use icepack_shortwave_data, only: icepack_shortwave_init_snicar + use icepack_shortwave_data, only: icepack_shortwave_init_snicartest + + ! local variables + + integer (kind=int_kind) :: n + + character (len=*),parameter :: subname='(data_dEdd_snicar)' + + ! if snw_ssp_table = 'test' + ! for testing Icepack without netcdf, + ! use a subsampled, hard-coded table + ! 5 snow grain radii + ! 5 spectral intervals + + ! if snw_ssp_table = 'snicar' + ! best-fit parameters are hardcoded in icepack + ! 1471 snow grain radii + ! 5 spectral intervals + + ! if snw_ssp_table = 'snicarfile' + ! best-fit parameters are read from a file and passed to Icepack + ! 1471 snow grain radii + ! 5 spectral intervals + + ! if snw_ssp_table = 'file' + ! all data has to be passed into icepack_parameters + ! not yet supported + + if (trim(snw_ssp_table) == 'test') then ! 5x5 table + + call icepack_shortwave_init_snicartest() + if (icepack_warnings_aborted(subname)) return + + elseif (trim(snw_ssp_table) == 'snicar') then + + call icepack_shortwave_init_snicar() + if (icepack_warnings_aborted(subname)) return + + elseif (trim(snw_ssp_table) == 'snicarfile') then + ! table passed in, hardwired 1471 x 5 table with 10/8/6/30/1500 expected + ! set data NOT passed in + nmbrad_snicar = 1471 ! snow grain radius number SNICAR SSP tables + nmodal1_snicar = 10 ! nModal1 in SNICAR SSP tables + nmodal2_snicar = 8 ! nModal2 in SNICAR SSP tables + nmaeros_snicar = 6 ! maxAerosolType in SNICAR SSP tables + +!echmod - this might not be needed + rsnw_snicar_min = 30 ! minimum snow grain radius + rsnw_snicar_max = 1500 ! maximum snow grain radius + allocate(rsnw_snicar_tab(nmbrad_snicar)) ! snow grain radii + rsnw_snicar_tab(1) = real(rsnw_snicar_min,dbl_kind) + do n = 1, nmbrad_snicar-1 + rsnw_snicar_tab(n+1) = rsnw_snicar_tab(n) + c1 + enddo + + elseif (trim(snw_ssp_table) == 'file') then + ! table passed in, table lookup + interpolate, not yet supported + nmbrad_snicar = size(ssp_snwextdr,dim=2) ! maximum snow grain radius index + call icepack_warnings_setabort(.true.,__FILE__,__LINE__) + call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)//' not supported') + return + + else + call icepack_warnings_setabort(.true.,__FILE__,__LINE__) + call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)//' not supported') + return + endif + + !------------------------------ + ! Check SNICAR SSP data + !------------------------------ + + if ((size(ssp_bcerad,dim=1) /= nmodal1_snicar) .or. & + (size(ssp_bcgrerad,dim=1) /= nmodal2_snicar) .or. & + (size(ssp_snwextdr,dim=1) /= nspint_5bd ) .or. & + (size(ssp_snwextdr,dim=2) /= nmbrad_snicar ) .or. & + (size(ssp_snwextdf,dim=1) /= nspint_5bd ) .or. & + (size(ssp_snwextdf,dim=2) /= nmbrad_snicar ) .or. & + (size(ssp_snwalbdr,dim=1) /= nspint_5bd ) .or. & + (size(ssp_snwalbdr,dim=2) /= nmbrad_snicar ) .or. & + (size(ssp_snwalbdf,dim=1) /= nspint_5bd ) .or. & + (size(ssp_snwalbdf,dim=2) /= nmbrad_snicar ) .or. & + (size(ssp_sasymmdr,dim=1) /= nspint_5bd ) .or. & + (size(ssp_sasymmdr,dim=2) /= nmbrad_snicar ) .or. & + (size(ssp_sasymmdf,dim=1) /= nspint_5bd ) .or. & + (size(ssp_sasymmdf,dim=2) /= nmbrad_snicar ) .or. & + (size(ssp_aasymmmd,dim=1) /= nspint_5bd ) .or. & + (size(ssp_aasymmmd,dim=2) /= nmodal1_snicar) .or. & + (size(ssp_aerextmd,dim=1) /= nspint_5bd ) .or. & + (size(ssp_aerextmd,dim=2) /= nmodal1_snicar) .or. & + (size(ssp_aeralbmd,dim=1) /= nspint_5bd ) .or. & + (size(ssp_aeralbmd,dim=2) /= nmodal1_snicar) .or. & + (size(ssp_aasymm ,dim=1) /= nspint_5bd ) .or. & + (size(ssp_aasymm ,dim=2) /= nmaeros_snicar) .or. & + (size(ssp_aerext ,dim=1) /= nspint_5bd ) .or. & + (size(ssp_aerext ,dim=2) /= nmaeros_snicar) .or. & + (size(ssp_aeralb ,dim=1) /= nspint_5bd ) .or. & + (size(ssp_aeralb ,dim=2) /= nmaeros_snicar) .or. & + (size(ssp_abcenhmd,dim=1) /= nspint_5bd ) .or. & + (size(ssp_abcenhmd,dim=2) /= nmodal1_snicar) .or. & + (size(ssp_abcenhmd,dim=3) /= nmodal2_snicar)) then + call icepack_warnings_setabort(.true.,__FILE__,__LINE__) + call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)) + call icepack_warnings_add(subname//'ERROR: snw_ssp_table array size error') + return + endif + + write(warnstr,'(2a,i8)') subname, ' nmbrad_snicar = ',nmbrad_snicar + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i8)') subname, ' nspint = ',nspint_5bd + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i8)') subname, ' nmodal1_snicar = ',nmodal1_snicar + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i8)') subname, ' nmodal2_snicar = ',nmodal2_snicar + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i8)') subname, ' nmaeros_snicar = ',nmaeros_snicar + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i5,a,i5,a,g22.15)') subname, ' ssp_snwextdr(',1, ',',1, ') = ',ssp_snwextdr(1,1) + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i5,a,i5,a,g22.15)') subname, ' ssp_snwextdr(',nspint_5bd,',',1, ') = ',ssp_snwextdr(nspint_5bd,1) + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i5,a,i5,a,g22.15)') subname, ' ssp_snwextdr(',1, ',',nmbrad_snicar,') = ',ssp_snwextdr(1,nmbrad_snicar) + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i5,a,i5,a,g22.15)') subname, ' ssp_snwextdr(',nspint_5bd,',',nmbrad_snicar,') = ',ssp_snwextdr(nspint_5bd,nmbrad_snicar) + call icepack_warnings_add(warnstr) + + end subroutine data_dEdd_snicar + !======================================================================= ! ! Driver for basic solar radiation from CCSM3. Albedos and absorbed solar. @@ -857,436 +996,6 @@ subroutine absorbed_solar (nilyr, aicen, & end subroutine absorbed_solar ! End ccsm3 shortwave method -!======================================================================= - ! tabular data needed for the original dEdd scheme - - subroutine data_dEdd_3band - - ! local variables - - integer (kind=int_kind) :: n - - character (len=*),parameter :: subname='(data_dEdd_3band)' - - nmbrad = 32 ! number of snow grain radii in tables - if (allocated(rsnw_tab)) deallocate(rsnw_tab) - if (allocated(Qs_tab) ) deallocate(Qs_tab) - if (allocated(ws_tab) ) deallocate(ws_tab) - if (allocated(gs_tab) ) deallocate(gs_tab) - - allocate(rsnw_tab( nmbrad)) - allocate(Qs_tab (nspint_3bd,nmbrad)) - allocate(ws_tab (nspint_3bd,nmbrad)) - allocate(gs_tab (nspint_3bd,nmbrad)) - - ! snow grain radii (micro-meters) for table - rsnw_tab = (/ & ! snow grain radius for each table entry (micro-meters) - 5._dbl_kind, 7._dbl_kind, 10._dbl_kind, 15._dbl_kind, & - 20._dbl_kind, 30._dbl_kind, 40._dbl_kind, 50._dbl_kind, & - 65._dbl_kind, 80._dbl_kind, 100._dbl_kind, 120._dbl_kind, & - 140._dbl_kind, 170._dbl_kind, 200._dbl_kind, 240._dbl_kind, & - 290._dbl_kind, 350._dbl_kind, 420._dbl_kind, 500._dbl_kind, & - 570._dbl_kind, 660._dbl_kind, 760._dbl_kind, 870._dbl_kind, & - 1000._dbl_kind, 1100._dbl_kind, 1250._dbl_kind, 1400._dbl_kind, & - 1600._dbl_kind, 1800._dbl_kind, 2000._dbl_kind, 2500._dbl_kind/) - - ! snow extinction efficiency (unitless) - Qs_tab = reshape((/ & - 2.131798_dbl_kind, 2.187756_dbl_kind, 2.267358_dbl_kind, & - 2.104499_dbl_kind, 2.148345_dbl_kind, 2.236078_dbl_kind, & - 2.081580_dbl_kind, 2.116885_dbl_kind, 2.175067_dbl_kind, & - 2.062595_dbl_kind, 2.088937_dbl_kind, 2.130242_dbl_kind, & - 2.051403_dbl_kind, 2.072422_dbl_kind, 2.106610_dbl_kind, & - 2.039223_dbl_kind, 2.055389_dbl_kind, 2.080586_dbl_kind, & - 2.032383_dbl_kind, 2.045751_dbl_kind, 2.066394_dbl_kind, & - 2.027920_dbl_kind, 2.039388_dbl_kind, 2.057224_dbl_kind, & - 2.023444_dbl_kind, 2.033137_dbl_kind, 2.048055_dbl_kind, & - 2.020412_dbl_kind, 2.028840_dbl_kind, 2.041874_dbl_kind, & - 2.017608_dbl_kind, 2.024863_dbl_kind, 2.036046_dbl_kind, & - 2.015592_dbl_kind, 2.022021_dbl_kind, 2.031954_dbl_kind, & - 2.014083_dbl_kind, 2.019887_dbl_kind, 2.028853_dbl_kind, & - 2.012368_dbl_kind, 2.017471_dbl_kind, 2.025353_dbl_kind, & - 2.011092_dbl_kind, 2.015675_dbl_kind, 2.022759_dbl_kind, & - 2.009837_dbl_kind, 2.013897_dbl_kind, 2.020168_dbl_kind, & - 2.008668_dbl_kind, 2.012252_dbl_kind, 2.017781_dbl_kind, & - 2.007627_dbl_kind, 2.010813_dbl_kind, 2.015678_dbl_kind, & - 2.006764_dbl_kind, 2.009577_dbl_kind, 2.013880_dbl_kind, & - 2.006037_dbl_kind, 2.008520_dbl_kind, 2.012382_dbl_kind, & - 2.005528_dbl_kind, 2.007807_dbl_kind, 2.011307_dbl_kind, & - 2.005025_dbl_kind, 2.007079_dbl_kind, 2.010280_dbl_kind, & - 2.004562_dbl_kind, 2.006440_dbl_kind, 2.009333_dbl_kind, & - 2.004155_dbl_kind, 2.005898_dbl_kind, 2.008523_dbl_kind, & - 2.003794_dbl_kind, 2.005379_dbl_kind, 2.007795_dbl_kind, & - 2.003555_dbl_kind, 2.005041_dbl_kind, 2.007329_dbl_kind, & - 2.003264_dbl_kind, 2.004624_dbl_kind, 2.006729_dbl_kind, & - 2.003037_dbl_kind, 2.004291_dbl_kind, 2.006230_dbl_kind, & - 2.002776_dbl_kind, 2.003929_dbl_kind, 2.005700_dbl_kind, & - 2.002590_dbl_kind, 2.003627_dbl_kind, 2.005276_dbl_kind, & - 2.002395_dbl_kind, 2.003391_dbl_kind, 2.004904_dbl_kind, & - 2.002071_dbl_kind, 2.002922_dbl_kind, 2.004241_dbl_kind/), & - (/nspint_3bd,nmbrad/)) - - ! snow single scattering albedo (unitless) - ws_tab = reshape((/ & - 0.9999994_dbl_kind, 0.9999673_dbl_kind, 0.9954589_dbl_kind, & - 0.9999992_dbl_kind, 0.9999547_dbl_kind, 0.9938576_dbl_kind, & - 0.9999990_dbl_kind, 0.9999382_dbl_kind, 0.9917989_dbl_kind, & - 0.9999985_dbl_kind, 0.9999123_dbl_kind, 0.9889724_dbl_kind, & - 0.9999979_dbl_kind, 0.9998844_dbl_kind, 0.9866190_dbl_kind, & - 0.9999970_dbl_kind, 0.9998317_dbl_kind, 0.9823021_dbl_kind, & - 0.9999960_dbl_kind, 0.9997800_dbl_kind, 0.9785269_dbl_kind, & - 0.9999951_dbl_kind, 0.9997288_dbl_kind, 0.9751601_dbl_kind, & - 0.9999936_dbl_kind, 0.9996531_dbl_kind, 0.9706974_dbl_kind, & - 0.9999922_dbl_kind, 0.9995783_dbl_kind, 0.9667577_dbl_kind, & - 0.9999903_dbl_kind, 0.9994798_dbl_kind, 0.9621007_dbl_kind, & - 0.9999885_dbl_kind, 0.9993825_dbl_kind, 0.9579541_dbl_kind, & - 0.9999866_dbl_kind, 0.9992862_dbl_kind, 0.9541924_dbl_kind, & - 0.9999838_dbl_kind, 0.9991434_dbl_kind, 0.9490959_dbl_kind, & - 0.9999810_dbl_kind, 0.9990025_dbl_kind, 0.9444940_dbl_kind, & - 0.9999772_dbl_kind, 0.9988171_dbl_kind, 0.9389141_dbl_kind, & - 0.9999726_dbl_kind, 0.9985890_dbl_kind, 0.9325819_dbl_kind, & - 0.9999670_dbl_kind, 0.9983199_dbl_kind, 0.9256405_dbl_kind, & - 0.9999605_dbl_kind, 0.9980117_dbl_kind, 0.9181533_dbl_kind, & - 0.9999530_dbl_kind, 0.9976663_dbl_kind, 0.9101540_dbl_kind, & - 0.9999465_dbl_kind, 0.9973693_dbl_kind, 0.9035031_dbl_kind, & - 0.9999382_dbl_kind, 0.9969939_dbl_kind, 0.8953134_dbl_kind, & - 0.9999289_dbl_kind, 0.9965848_dbl_kind, 0.8865789_dbl_kind, & - 0.9999188_dbl_kind, 0.9961434_dbl_kind, 0.8773350_dbl_kind, & - 0.9999068_dbl_kind, 0.9956323_dbl_kind, 0.8668233_dbl_kind, & - 0.9998975_dbl_kind, 0.9952464_dbl_kind, 0.8589990_dbl_kind, & - 0.9998837_dbl_kind, 0.9946782_dbl_kind, 0.8476493_dbl_kind, & - 0.9998699_dbl_kind, 0.9941218_dbl_kind, 0.8367318_dbl_kind, & - 0.9998515_dbl_kind, 0.9933966_dbl_kind, 0.8227881_dbl_kind, & - 0.9998332_dbl_kind, 0.9926888_dbl_kind, 0.8095131_dbl_kind, & - 0.9998148_dbl_kind, 0.9919968_dbl_kind, 0.7968620_dbl_kind, & - 0.9997691_dbl_kind, 0.9903277_dbl_kind, 0.7677887_dbl_kind/), & - (/nspint_3bd,nmbrad/)) - - ! snow asymmetry parameter (unitless) - gs_tab = reshape((/ & - 0.859913_dbl_kind, 0.848003_dbl_kind, 0.824415_dbl_kind, & - 0.867130_dbl_kind, 0.858150_dbl_kind, 0.848445_dbl_kind, & - 0.873381_dbl_kind, 0.867221_dbl_kind, 0.861714_dbl_kind, & - 0.878368_dbl_kind, 0.874879_dbl_kind, 0.874036_dbl_kind, & - 0.881462_dbl_kind, 0.879661_dbl_kind, 0.881299_dbl_kind, & - 0.884361_dbl_kind, 0.883903_dbl_kind, 0.890184_dbl_kind, & - 0.885937_dbl_kind, 0.886256_dbl_kind, 0.895393_dbl_kind, & - 0.886931_dbl_kind, 0.887769_dbl_kind, 0.899072_dbl_kind, & - 0.887894_dbl_kind, 0.889255_dbl_kind, 0.903285_dbl_kind, & - 0.888515_dbl_kind, 0.890236_dbl_kind, 0.906588_dbl_kind, & - 0.889073_dbl_kind, 0.891127_dbl_kind, 0.910152_dbl_kind, & - 0.889452_dbl_kind, 0.891750_dbl_kind, 0.913100_dbl_kind, & - 0.889730_dbl_kind, 0.892213_dbl_kind, 0.915621_dbl_kind, & - 0.890026_dbl_kind, 0.892723_dbl_kind, 0.918831_dbl_kind, & - 0.890238_dbl_kind, 0.893099_dbl_kind, 0.921540_dbl_kind, & - 0.890441_dbl_kind, 0.893474_dbl_kind, 0.924581_dbl_kind, & - 0.890618_dbl_kind, 0.893816_dbl_kind, 0.927701_dbl_kind, & - 0.890762_dbl_kind, 0.894123_dbl_kind, 0.930737_dbl_kind, & - 0.890881_dbl_kind, 0.894397_dbl_kind, 0.933568_dbl_kind, & - 0.890975_dbl_kind, 0.894645_dbl_kind, 0.936148_dbl_kind, & - 0.891035_dbl_kind, 0.894822_dbl_kind, 0.937989_dbl_kind, & - 0.891097_dbl_kind, 0.895020_dbl_kind, 0.939949_dbl_kind, & - 0.891147_dbl_kind, 0.895212_dbl_kind, 0.941727_dbl_kind, & - 0.891189_dbl_kind, 0.895399_dbl_kind, 0.943339_dbl_kind, & - 0.891225_dbl_kind, 0.895601_dbl_kind, 0.944915_dbl_kind, & - 0.891248_dbl_kind, 0.895745_dbl_kind, 0.945950_dbl_kind, & - 0.891277_dbl_kind, 0.895951_dbl_kind, 0.947288_dbl_kind, & - 0.891299_dbl_kind, 0.896142_dbl_kind, 0.948438_dbl_kind, & - 0.891323_dbl_kind, 0.896388_dbl_kind, 0.949762_dbl_kind, & - 0.891340_dbl_kind, 0.896623_dbl_kind, 0.950916_dbl_kind, & - 0.891356_dbl_kind, 0.896851_dbl_kind, 0.951945_dbl_kind, & - 0.891386_dbl_kind, 0.897399_dbl_kind, 0.954156_dbl_kind/), & - (/nspint_3bd,nmbrad/)) - - ! ice surface scattering layer (ssl) iops - ki_ssl_mn_3bd = (/ 1000.1_dbl_kind, 1003.7_dbl_kind, 7042._dbl_kind/) - wi_ssl_mn_3bd = (/ .9999_dbl_kind, .9963_dbl_kind, .9088_dbl_kind/) - gi_ssl_mn_3bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind/) - - ! ice drained layer (dl) iops - ki_dl_mn_3bd = (/ 100.2_dbl_kind, 107.7_dbl_kind, 1309._dbl_kind /) - wi_dl_mn_3bd = (/ .9980_dbl_kind, .9287_dbl_kind, .0305_dbl_kind /) - gi_dl_mn_3bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) - - ! ice interior layer (int) iops - ki_int_mn_3bd = (/ 20.2_dbl_kind, 27.7_dbl_kind, 1445._dbl_kind /) - wi_int_mn_3bd = (/ .9901_dbl_kind, .7223_dbl_kind, .0277_dbl_kind /) - gi_int_mn_3bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) - - ! ponded ice surface scattering layer (ssl) iops - ki_p_ssl_mn = (/ 70.2_dbl_kind, 77.7_dbl_kind, 1309._dbl_kind/) - wi_p_ssl_mn = (/ .9972_dbl_kind, .9009_dbl_kind, .0305_dbl_kind/) - gi_p_ssl_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) - - ! ponded ice interior layer (int) iops - ki_p_int_mn = (/ 20.2_dbl_kind, 27.7_dbl_kind, 1445._dbl_kind/) - wi_p_int_mn = (/ .9901_dbl_kind, .7223_dbl_kind, .0277_dbl_kind/) - gi_p_int_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) - - ! inherent optical property (iop) arrays for pond water and underlying ocean - ! kw = Pond water extinction coefficient (/m) - ! ww = Pond water single scattering albedo - ! gw = Pond water asymmetry parameter - kw = (/ 0.20_dbl_kind, 12.0_dbl_kind, 729._dbl_kind /) - ww = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /) - gw = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /) - - end subroutine data_dEdd_3band - -!======================================================================= -! Snow single-scattering properties for the 5-band dEdd_snicar option - - subroutine data_dEdd_5band - - ! local variables - - integer (kind=int_kind) :: n - - character (len=*),parameter :: subname='(data_dEdd_5band)' - - ! if snw_ssp_table = 'snicar' - ! best-fit parameters are read from a table (netcdf) - ! 1471 snow grain radii - ! 5 spectral intervals - - ! if snw_ssp_table = 'test' - ! for testing Icepack without netcdf, - ! use a subsampled, hard-coded table - ! 5 snow grain radii - ! 5 spectral intervals - - ! if snw_ssp_table = 'file' - ! all data has to be passed into icepack_parameters - - if (trim(snw_ssp_table) == 'snicar') then - ! table passed in, hardwired 1471 x 5 table with 10/8/6/30/1500 expected - nmbrad_snicar = 1471 ! snow grain radius number SNICAR SSP tables - nmodal1_snicar = 10 ! nModal1 in SNICAR SSP tables - nmodal2_snicar = 8 ! nModal2 in SNICAR SSP tables - nmaeros_snicar = 6 ! maxAerosolType in SNICAR SSP tables - rsnw_snicar_min = 30 ! minimum snow grain radius - rsnw_snicar_max = 1500 ! maximum snow grain radius - -!echmod - this might not be needed - allocate(rsnw_snicar_tab(nmbrad_snicar)) ! snow grain radii - rsnw_snicar_tab(1) = real(rsnw_snicar_min,dbl_kind) - do n = 1, nmbrad_snicar-1 - rsnw_snicar_tab(n+1) = rsnw_snicar_tab(n) + c1 - enddo - - elseif (trim(snw_ssp_table) == 'file') then - ! table passed in, table lookup + interpolate, not yet supported - nmbrad_snicar = size(ssp_snwextdr,dim=2) ! maximum snow grain radius index - call icepack_warnings_setabort(.true.,__FILE__,__LINE__) - call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)//' not supported') - return - - elseif (trim(snw_ssp_table) == 'test') then ! 5x5 table - nmbrad_snicar = 5 ! snow grain radius number SNICAR SSP tables - nmodal1_snicar = 10 ! nModal1 in SNICAR SSP tables - nmodal2_snicar = 8 ! nModal2 in SNICAR SSP tables - nmaeros_snicar = 6 ! maxAerosolType in SNICAR SSP tables - - allocate(rsnw_snicar_tab(nmbrad_snicar)) ! snow grain radii - rsnw_snicar_tab = (/ & ! snow grain radius for each table entry (micro-meters) - 6._dbl_kind, 37._dbl_kind, 221._dbl_kind, 600._dbl_kind, 1340._dbl_kind/) - rsnw_snicar_min = rsnw_snicar_tab(1) ! minimum snow radius - integer value used for indexing - rsnw_snicar_max = rsnw_snicar_tab(nmbrad_snicar) ! maximum snow radius - integer value used for indexing - -!notused if (allocated(ssp_bcerad )) deallocate(ssp_bcerad ) -!notused if (allocated(ssp_bcgrerad)) deallocate(ssp_bcgrerad) - if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) - if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) - if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) - if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) - if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) - if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) - if (allocated(ssp_aasymmmd)) deallocate(ssp_aasymmmd) - if (allocated(ssp_aerextmd)) deallocate(ssp_aerextmd) - if (allocated(ssp_aeralbmd)) deallocate(ssp_aeralbmd) - if (allocated(ssp_aasymm )) deallocate(ssp_aasymm ) - if (allocated(ssp_aerext )) deallocate(ssp_aerext ) - if (allocated(ssp_aeralb )) deallocate(ssp_aeralb ) - if (allocated(ssp_abcenhmd)) deallocate(ssp_abcenhmd) - -!notused allocate(ssp_bcerad (nmodal1_snicar)) ! ?, bcEffectiveRadius -!notused allocate(ssp_bcgrerad(nmodal2_snicar)) ! ?, iceGrainEffectiveRadius - allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, direct - allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, diffuse - allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, direct - allocate(ssp_snwalbdf(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, diffuse - allocate(ssp_sasymmdr(nspint_5bd,nmbrad_snicar )) ! snow asymmetry factor, direct - allocate(ssp_sasymmdf(nspint_5bd,nmbrad_snicar )) ! snow asymmetry factor, diffuse - allocate(ssp_aasymmmd(nspint_5bd,nmodal1_snicar)) ! gaer_bc_5bd, modalAsymmetryParameter5band - allocate(ssp_aerextmd(nspint_5bd,nmodal1_snicar)) ! kaer_bc_5bd, modalMassExtinctionCrossSection5band - allocate(ssp_aeralbmd(nspint_5bd,nmodal1_snicar)) ! waer_bc_5bd, modalSingleScatterAlbedo5band - allocate(ssp_aasymm (nspint_5bd,nmaeros_snicar)) ! gaer_5bd, aerosolAsymmetryParameter5band - allocate(ssp_aerext (nspint_5bd,nmaeros_snicar)) ! kaer_5bd, aerosolMassExtinctionCrossSection5band - allocate(ssp_aeralb (nspint_5bd,nmaeros_snicar)) ! waer_5bd, aerosolSingleScatterAlbedo5band - allocate(ssp_abcenhmd(nspint_5bd,nmodal1_snicar,nmodal2_snicar)) ! bcenh_5bd, modalBCabsorptionParameter5band - - ! tcraig, these data statements are not consistent with the array index order - ! reshape from nmbrad,nspint to nspint,nmbrad with order = 2,1 - - ssp_snwextdr = reshape((/ & - 46.27374983, 24.70286257, 6.54918455, 2.6035624, 1.196168, & - 46.56827715, 24.81790668, 6.56181227, 2.60604155, 1.19682614, & - 46.76114033, 24.90468677, 6.56950323, 2.60780948, 1.19737512, & - 46.9753992, 24.9495155, 6.57687695, 2.60937383, 1.19774008, & - 47.48598349, 25.14100194, 6.59708024, 2.61372576, 1.19897351 /), & - (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) - - ssp_snwextdf = reshape((/ & - 46.26936158, 24.70165487, 6.54903637, 2.60353051, 1.19615825, & - 46.56628244, 24.81707286, 6.56164279, 2.60601584, 1.1968169, & - 46.75501968, 24.90175807, 6.5693214, 2.60775795, 1.19736237, & - 46.95368476, 24.94497414, 6.57612007, 2.60924059, 1.19770981, & - 47.29620774, 25.0713585, 6.5891698, 2.61198929, 1.19850197 /), & - (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) - - ssp_snwalbdr = reshape((/ & - 0.99999581, 0.99999231, 0.99997215, 0.99993093, 0.99985157, & - 0.99987892, 0.99978212, 0.99923115, 0.99817946, 0.99628374, & - 0.99909682, 0.99835523, 0.99418008, 0.98592085, 0.97062632, & - 0.99308867, 0.98972448, 0.97261528, 0.93947995, 0.88207117, & - 0.93322249, 0.89645776, 0.75765643, 0.6272883, 0.55435033 /), & - (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) - - ssp_snwalbdf = reshape((/ & - 0.99999586, 0.9999924, 0.99997249, 0.99993178, 0.9998534, & - 0.99988441, 0.99979202, 0.99926745, 0.99826865, 0.99647135, & - 0.99910997, 0.99837683, 0.99426171, 0.98610431, 0.97097643, & - 0.99476731, 0.9916114, 0.97441209, 0.94127464, 0.88440735, & - 0.9419837, 0.90613207, 0.77042376, 0.63887161, 0.5566098 /), & - (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) - - ssp_sasymmdr = reshape((/ & - 0.88503036, 0.88778473, 0.89049023, 0.89112501, 0.89136157, & - 0.88495225, 0.88905367, 0.89315385, 0.89433673, 0.8950027, & - 0.88440201, 0.88928256, 0.89503166, 0.89762648, 0.90045378, & - 0.88590371, 0.89350221, 0.90525156, 0.91314567, 0.92157748, & - 0.9033537, 0.91778261, 0.94615574, 0.96323447, 0.97167644 /), & - (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) - - ssp_sasymmdf = reshape((/ & - 0.88500571, 0.88773868, 0.89042496, 0.8910553, 0.89128949, & - 0.88495225, 0.88905367, 0.89315385, 0.89433673, 0.8950027 , & - 0.88441433, 0.88929133, 0.89500611, 0.89756091, 0.90035504, & - 0.88495554, 0.89201556, 0.90204619, 0.90914885, 0.91769988, & - 0.89620237, 0.90998944, 0.94126152, 0.96209938, 0.9726631 /), & - (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) - - ! tcraig, what should these be set to? TODO -!3-band data is in cice ice_forcing_bgc.F90, 5-band is in snicar file -!notused ssp_bcerad = c0 -!notused ssp_bcgrerad = c0 - ssp_aasymmmd = c0 - ssp_aerextmd = c0 - ssp_aeralbmd = c0 - ssp_aasymm = c0 - ssp_aerext = c0 - ssp_aeralb = c0 - ssp_abcenhmd = c0 - - else - call icepack_warnings_setabort(.true.,__FILE__,__LINE__) - call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)//' not supported') - return - endif - - if (&!notused(size(ssp_bcerad,dim=1) /= nmodal1_snicar) .or. & - !notused(size(ssp_bcgrerad,dim=1) /= nmodal2_snicar) .or. & - (size(ssp_snwextdr,dim=1) /= nspint_5bd ) .or. & - (size(ssp_snwextdr,dim=2) /= nmbrad_snicar ) .or. & - (size(ssp_snwextdf,dim=1) /= nspint_5bd ) .or. & - (size(ssp_snwextdf,dim=2) /= nmbrad_snicar ) .or. & - (size(ssp_snwalbdr,dim=1) /= nspint_5bd ) .or. & - (size(ssp_snwalbdr,dim=2) /= nmbrad_snicar ) .or. & - (size(ssp_snwalbdf,dim=1) /= nspint_5bd ) .or. & - (size(ssp_snwalbdf,dim=2) /= nmbrad_snicar ) .or. & - (size(ssp_sasymmdr,dim=1) /= nspint_5bd ) .or. & - (size(ssp_sasymmdr,dim=2) /= nmbrad_snicar ) .or. & - (size(ssp_sasymmdf,dim=1) /= nspint_5bd ) .or. & - (size(ssp_sasymmdf,dim=2) /= nmbrad_snicar ) .or. & - (size(ssp_aasymmmd,dim=1) /= nspint_5bd ) .or. & - (size(ssp_aasymmmd,dim=2) /= nmodal1_snicar) .or. & - (size(ssp_aerextmd,dim=1) /= nspint_5bd ) .or. & - (size(ssp_aerextmd,dim=2) /= nmodal1_snicar) .or. & - (size(ssp_aeralbmd,dim=1) /= nspint_5bd ) .or. & - (size(ssp_aeralbmd,dim=2) /= nmodal1_snicar) .or. & - (size(ssp_aasymm ,dim=1) /= nspint_5bd ) .or. & - (size(ssp_aasymm ,dim=2) /= nmaeros_snicar) .or. & - (size(ssp_aerext ,dim=1) /= nspint_5bd ) .or. & - (size(ssp_aerext ,dim=2) /= nmaeros_snicar) .or. & - (size(ssp_aeralb ,dim=1) /= nspint_5bd ) .or. & - (size(ssp_aeralb ,dim=2) /= nmaeros_snicar) .or. & - (size(ssp_abcenhmd,dim=1) /= nspint_5bd ) .or. & - (size(ssp_abcenhmd,dim=2) /= nmodal1_snicar) .or. & - (size(ssp_abcenhmd,dim=3) /= nmodal2_snicar)) then - call icepack_warnings_setabort(.true.,__FILE__,__LINE__) - call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)) - call icepack_warnings_add(subname//'ERROR: snw_ssp_table array size error') - return - endif - - write(warnstr,'(2a,i8)') subname, ' nmbrad_snicar = ',nmbrad_snicar - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i8)') subname, ' nspint = ',nspint_5bd - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i8)') subname, ' nmodal1_snicar = ',nmodal1_snicar - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i8)') subname, ' nmodal2_snicar = ',nmodal2_snicar - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i8)') subname, ' nmaeros_snicar = ',nmaeros_snicar - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',1, ',',1, ') = ',ssp_snwextdr(1,1) - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',nspint_5bd,',',1, ') = ',ssp_snwextdr(nspint_5bd,1) - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',1, ',',nmbrad_snicar,') = ',ssp_snwextdr(1,nmbrad_snicar) - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i5,a,i5,a,g14.7)') subname, ' ssp_snwextdr(',nspint_5bd,',',nmbrad_snicar,') = ',ssp_snwextdr(nspint_5bd,nmbrad_snicar) - call icepack_warnings_add(warnstr) - - ! 5-bands ice surface scattering layer (ssl) iops to match SNICAR calculations - ! note by Cheng Dang: - ! for now these data are not needed since the sea ice layer IOPs can be directly - ! assigned based on the 3 bands data after adjustment based on tuning parameter R_ice - ! In the future, when 5-band sea ice IOPs are available, these data shall be updated - ! and the sea ice layer IOPs shall be calculated based on updated 5band iops* -!echmod - the comment above says these are not needed but they are nevertheless used below - ! - ! The 5band data given in this section are based on CICE and SNICAR band choice: - ! SNICAR band 1 = CICE band 1 - ! SNICAR band 2 + SNICAR band 3 = CICE band 2 - ! SNICAR band 4 + SNICAR band 5 = CICE band 3 - - ! ice surface scattering layer (ssl) iops - ki_ssl_mn_5bd = (/ 1000.1_dbl_kind, 1003.7_dbl_kind, 1003.7_dbl_kind, & - 7042._dbl_kind, 7042._dbl_kind /) - wi_ssl_mn_5bd = (/ .9999_dbl_kind, .9963_dbl_kind, .9963_dbl_kind, & - .9088_dbl_kind, .9088_dbl_kind /) - gi_ssl_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & - .94_dbl_kind, .94_dbl_kind /) - - ! ice drained layer (dl) iops - ki_dl_mn_5bd = (/ 100.2_dbl_kind, 107.7_dbl_kind, 107.7_dbl_kind, & - 1309._dbl_kind, 1309._dbl_kind /) - wi_dl_mn_5bd = (/ .9980_dbl_kind, .9287_dbl_kind, .9287_dbl_kind, & - .0305_dbl_kind, .0305_dbl_kind /) - gi_dl_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & - .94_dbl_kind, .94_dbl_kind /) - - ! ice interior layer (int) iops - ki_int_mn_5bd = (/ 20.2_dbl_kind, 27.7_dbl_kind, 27.7_dbl_kind, & - 1445._dbl_kind, 1445._dbl_kind/) - wi_int_mn_5bd = (/ .9901_dbl_kind, .7223_dbl_kind, .7223_dbl_kind, & - .0277_dbl_kind, .0277_dbl_kind /) - gi_int_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & - .94_dbl_kind, .94_dbl_kind /) - - end subroutine data_dEdd_5band - !======================================================================= ! Begin Delta-Eddington shortwave method diff --git a/columnphysics/icepack_shortwave_data.F90 b/columnphysics/icepack_shortwave_data.F90 new file mode 100644 index 000000000..953fa0d00 --- /dev/null +++ b/columnphysics/icepack_shortwave_data.F90 @@ -0,0 +1,9541 @@ + + module icepack_shortwave_data + + use icepack_kinds + use icepack_warnings, only: warnstr, icepack_warnings_add + use icepack_warnings, only: icepack_warnings_setabort, icepack_warnings_aborted + + implicit none + + private + + ! Parameters for dEdd_snicar + logical (kind=log_kind), public :: & + use_snicar = .false. ! .true. use 5-band SNICAR-AD approach + + integer (kind=int_kind), parameter, public :: & + nspint_3bd = 3, & ! number of solar spectral bands + nspint_5bd = 5 ! number of solar spectral bands (snicar snow) + + ! dEdd 3-band data + real (kind=dbl_kind), dimension (nspint_3bd), public :: & + ! inherent optical properties (iop) + ! k = extinction coefficient (/m) + ! w = single scattering albedo + ! g = asymmetry parameter + ki_ssl_mn_3bd, wi_ssl_mn_3bd, gi_ssl_mn_3bd, & ! ice surface scattering layer (ssl) iops + ki_dl_mn_3bd, wi_dl_mn_3bd, gi_dl_mn_3bd , & ! ice drained layer (dl) iops + ki_int_mn_3bd, wi_int_mn_3bd, gi_int_mn_3bd, & ! ice interior layer (int) iops + ki_p_ssl_mn, wi_p_ssl_mn, gi_p_ssl_mn , & ! ponded ice surface scattering layer (ssl) iops + ki_p_int_mn, wi_p_int_mn, gi_p_int_mn , & ! ponded ice interior layer (int) iops + kw, ww, gw ! iops for pond water and underlying ocean + integer (kind=int_kind), public :: nmbrad ! number of snow grain radii in tables + real (kind=dbl_kind), allocatable, public :: & + rsnw_tab(:) , & ! snow grain radii (micro-meters) for table + Qs_tab (:,:), & ! snow extinction efficiency (unitless) + ws_tab (:,:), & ! snow single scattering albedo (unitless) + gs_tab (:,:) ! snow asymmetry parameter (unitless) + + ! dEdd 5-band data + real (kind=dbl_kind), dimension (nspint_5bd), public :: & + ki_ssl_mn_5bd, wi_ssl_mn_5bd, gi_ssl_mn_5bd, & ! ice surface scattering layer (ssl) iops + ki_dl_mn_5bd, wi_dl_mn_5bd, gi_dl_mn_5bd , & ! ice drained layer (dl) iops + ki_int_mn_5bd, wi_int_mn_5bd, gi_int_mn_5bd ! ice interior layer (int) iops + + ! dEdd SNICAR SSP data + character (len=char_len), public :: & + snw_ssp_table = 'test' ! lookup table: 'snicar' or 'test' or 'file' + + integer (kind=int_kind), public :: & + nmbrad_snicar , & ! number of snow grain radii in SNICAR SSP tables + nmodal1_snicar , & ! nModal1 in SNICAR SSP tables + nmodal2_snicar , & ! nModal2 in SNICAR SSP tables + nmaeros_snicar , & ! maxAerosolType in SNICAR SSP tables + rsnw_snicar_min, & ! minimum snow radius - integer value used for indexing + rsnw_snicar_max ! maximum snow radius - integer value used for indexing + + real (kind=dbl_kind), allocatable, public :: & + rsnw_snicar_tab(:), & ! snow grain radii (10^-6 m) + ssp_bcerad (:), & ! ?, bcEffectiveRadius + ssp_bcgrerad(:), & ! ?, iceGrainEffectiveRadius + ssp_snwextdr(:,:), & ! snow mass extinction cross section (m2/kg), direct + ssp_snwextdf(:,:), & ! snow mass extinction cross section (m2/kg), diffuse + ssp_snwalbdr(:,:), & ! snow single scatter albedo (fraction), direct + ssp_snwalbdf(:,:), & ! snow single scatter albedo (fraction), diffuse + ssp_sasymmdr(:,:), & ! snow asymmetry factor (cos(theta)), direct + ssp_sasymmdf(:,:), & ! snow asymmetry factor (cos(theta)), diffuse + ssp_aasymmmd(:,:), & ! gaer_bc_5bd, modalAsymmetryParameter5band + ssp_aerextmd(:,:), & ! kaer_bc_5bd, modalMassExtinctionCrossSection5band + ssp_aeralbmd(:,:), & ! waer_bc_5bd, modalSingleScatterAlbedo5band + ssp_aasymm (:,:), & ! gaer_5bd, aerosolAsymmetryParameter5band + ssp_aerext (:,:), & ! kaer_5bd, aerosolMassExtinctionCrossSection5band + ssp_aeralb (:,:), & ! waer_5bd, aerosolSingleScatterAlbedo5band + ssp_abcenhmd(:,:,:) ! bcenh_5bd, modalBCabsorptionParameter5band + + public :: icepack_shortwave_init_dEdd3band + public :: icepack_shortwave_init_dEdd5band + public :: icepack_shortwave_init_snicartest + public :: icepack_shortwave_init_snicar + +!======================================================================= + contains +!======================================================================= + ! tabular data needed for the original dEdd scheme + + subroutine icepack_shortwave_init_dEdd3band + + ! local variables + + integer (kind=int_kind) :: n + + character (len=*),parameter :: subname='(icepack_shortwave_init_dEdd3band)' + + nmbrad = 32 ! number of snow grain radii in tables + if (allocated(rsnw_tab)) deallocate(rsnw_tab) + if (allocated(Qs_tab) ) deallocate(Qs_tab) + if (allocated(ws_tab) ) deallocate(ws_tab) + if (allocated(gs_tab) ) deallocate(gs_tab) + + allocate(rsnw_tab( nmbrad)) + allocate(Qs_tab (nspint_3bd,nmbrad)) + allocate(ws_tab (nspint_3bd,nmbrad)) + allocate(gs_tab (nspint_3bd,nmbrad)) + + ! snow grain radii (micro-meters) for table + rsnw_tab = (/ & ! snow grain radius for each table entry (micro-meters) + 5._dbl_kind, 7._dbl_kind, 10._dbl_kind, 15._dbl_kind, & + 20._dbl_kind, 30._dbl_kind, 40._dbl_kind, 50._dbl_kind, & + 65._dbl_kind, 80._dbl_kind, 100._dbl_kind, 120._dbl_kind, & + 140._dbl_kind, 170._dbl_kind, 200._dbl_kind, 240._dbl_kind, & + 290._dbl_kind, 350._dbl_kind, 420._dbl_kind, 500._dbl_kind, & + 570._dbl_kind, 660._dbl_kind, 760._dbl_kind, 870._dbl_kind, & + 1000._dbl_kind, 1100._dbl_kind, 1250._dbl_kind, 1400._dbl_kind, & + 1600._dbl_kind, 1800._dbl_kind, 2000._dbl_kind, 2500._dbl_kind/) + + ! snow extinction efficiency (unitless) + Qs_tab = reshape((/ & + 2.131798_dbl_kind, 2.187756_dbl_kind, 2.267358_dbl_kind, & + 2.104499_dbl_kind, 2.148345_dbl_kind, 2.236078_dbl_kind, & + 2.081580_dbl_kind, 2.116885_dbl_kind, 2.175067_dbl_kind, & + 2.062595_dbl_kind, 2.088937_dbl_kind, 2.130242_dbl_kind, & + 2.051403_dbl_kind, 2.072422_dbl_kind, 2.106610_dbl_kind, & + 2.039223_dbl_kind, 2.055389_dbl_kind, 2.080586_dbl_kind, & + 2.032383_dbl_kind, 2.045751_dbl_kind, 2.066394_dbl_kind, & + 2.027920_dbl_kind, 2.039388_dbl_kind, 2.057224_dbl_kind, & + 2.023444_dbl_kind, 2.033137_dbl_kind, 2.048055_dbl_kind, & + 2.020412_dbl_kind, 2.028840_dbl_kind, 2.041874_dbl_kind, & + 2.017608_dbl_kind, 2.024863_dbl_kind, 2.036046_dbl_kind, & + 2.015592_dbl_kind, 2.022021_dbl_kind, 2.031954_dbl_kind, & + 2.014083_dbl_kind, 2.019887_dbl_kind, 2.028853_dbl_kind, & + 2.012368_dbl_kind, 2.017471_dbl_kind, 2.025353_dbl_kind, & + 2.011092_dbl_kind, 2.015675_dbl_kind, 2.022759_dbl_kind, & + 2.009837_dbl_kind, 2.013897_dbl_kind, 2.020168_dbl_kind, & + 2.008668_dbl_kind, 2.012252_dbl_kind, 2.017781_dbl_kind, & + 2.007627_dbl_kind, 2.010813_dbl_kind, 2.015678_dbl_kind, & + 2.006764_dbl_kind, 2.009577_dbl_kind, 2.013880_dbl_kind, & + 2.006037_dbl_kind, 2.008520_dbl_kind, 2.012382_dbl_kind, & + 2.005528_dbl_kind, 2.007807_dbl_kind, 2.011307_dbl_kind, & + 2.005025_dbl_kind, 2.007079_dbl_kind, 2.010280_dbl_kind, & + 2.004562_dbl_kind, 2.006440_dbl_kind, 2.009333_dbl_kind, & + 2.004155_dbl_kind, 2.005898_dbl_kind, 2.008523_dbl_kind, & + 2.003794_dbl_kind, 2.005379_dbl_kind, 2.007795_dbl_kind, & + 2.003555_dbl_kind, 2.005041_dbl_kind, 2.007329_dbl_kind, & + 2.003264_dbl_kind, 2.004624_dbl_kind, 2.006729_dbl_kind, & + 2.003037_dbl_kind, 2.004291_dbl_kind, 2.006230_dbl_kind, & + 2.002776_dbl_kind, 2.003929_dbl_kind, 2.005700_dbl_kind, & + 2.002590_dbl_kind, 2.003627_dbl_kind, 2.005276_dbl_kind, & + 2.002395_dbl_kind, 2.003391_dbl_kind, 2.004904_dbl_kind, & + 2.002071_dbl_kind, 2.002922_dbl_kind, 2.004241_dbl_kind/), & + (/nspint_3bd,nmbrad/)) + + ! snow single scattering albedo (unitless) + ws_tab = reshape((/ & + 0.9999994_dbl_kind, 0.9999673_dbl_kind, 0.9954589_dbl_kind, & + 0.9999992_dbl_kind, 0.9999547_dbl_kind, 0.9938576_dbl_kind, & + 0.9999990_dbl_kind, 0.9999382_dbl_kind, 0.9917989_dbl_kind, & + 0.9999985_dbl_kind, 0.9999123_dbl_kind, 0.9889724_dbl_kind, & + 0.9999979_dbl_kind, 0.9998844_dbl_kind, 0.9866190_dbl_kind, & + 0.9999970_dbl_kind, 0.9998317_dbl_kind, 0.9823021_dbl_kind, & + 0.9999960_dbl_kind, 0.9997800_dbl_kind, 0.9785269_dbl_kind, & + 0.9999951_dbl_kind, 0.9997288_dbl_kind, 0.9751601_dbl_kind, & + 0.9999936_dbl_kind, 0.9996531_dbl_kind, 0.9706974_dbl_kind, & + 0.9999922_dbl_kind, 0.9995783_dbl_kind, 0.9667577_dbl_kind, & + 0.9999903_dbl_kind, 0.9994798_dbl_kind, 0.9621007_dbl_kind, & + 0.9999885_dbl_kind, 0.9993825_dbl_kind, 0.9579541_dbl_kind, & + 0.9999866_dbl_kind, 0.9992862_dbl_kind, 0.9541924_dbl_kind, & + 0.9999838_dbl_kind, 0.9991434_dbl_kind, 0.9490959_dbl_kind, & + 0.9999810_dbl_kind, 0.9990025_dbl_kind, 0.9444940_dbl_kind, & + 0.9999772_dbl_kind, 0.9988171_dbl_kind, 0.9389141_dbl_kind, & + 0.9999726_dbl_kind, 0.9985890_dbl_kind, 0.9325819_dbl_kind, & + 0.9999670_dbl_kind, 0.9983199_dbl_kind, 0.9256405_dbl_kind, & + 0.9999605_dbl_kind, 0.9980117_dbl_kind, 0.9181533_dbl_kind, & + 0.9999530_dbl_kind, 0.9976663_dbl_kind, 0.9101540_dbl_kind, & + 0.9999465_dbl_kind, 0.9973693_dbl_kind, 0.9035031_dbl_kind, & + 0.9999382_dbl_kind, 0.9969939_dbl_kind, 0.8953134_dbl_kind, & + 0.9999289_dbl_kind, 0.9965848_dbl_kind, 0.8865789_dbl_kind, & + 0.9999188_dbl_kind, 0.9961434_dbl_kind, 0.8773350_dbl_kind, & + 0.9999068_dbl_kind, 0.9956323_dbl_kind, 0.8668233_dbl_kind, & + 0.9998975_dbl_kind, 0.9952464_dbl_kind, 0.8589990_dbl_kind, & + 0.9998837_dbl_kind, 0.9946782_dbl_kind, 0.8476493_dbl_kind, & + 0.9998699_dbl_kind, 0.9941218_dbl_kind, 0.8367318_dbl_kind, & + 0.9998515_dbl_kind, 0.9933966_dbl_kind, 0.8227881_dbl_kind, & + 0.9998332_dbl_kind, 0.9926888_dbl_kind, 0.8095131_dbl_kind, & + 0.9998148_dbl_kind, 0.9919968_dbl_kind, 0.7968620_dbl_kind, & + 0.9997691_dbl_kind, 0.9903277_dbl_kind, 0.7677887_dbl_kind/), & + (/nspint_3bd,nmbrad/)) + + ! snow asymmetry parameter (unitless) + gs_tab = reshape((/ & + 0.859913_dbl_kind, 0.848003_dbl_kind, 0.824415_dbl_kind, & + 0.867130_dbl_kind, 0.858150_dbl_kind, 0.848445_dbl_kind, & + 0.873381_dbl_kind, 0.867221_dbl_kind, 0.861714_dbl_kind, & + 0.878368_dbl_kind, 0.874879_dbl_kind, 0.874036_dbl_kind, & + 0.881462_dbl_kind, 0.879661_dbl_kind, 0.881299_dbl_kind, & + 0.884361_dbl_kind, 0.883903_dbl_kind, 0.890184_dbl_kind, & + 0.885937_dbl_kind, 0.886256_dbl_kind, 0.895393_dbl_kind, & + 0.886931_dbl_kind, 0.887769_dbl_kind, 0.899072_dbl_kind, & + 0.887894_dbl_kind, 0.889255_dbl_kind, 0.903285_dbl_kind, & + 0.888515_dbl_kind, 0.890236_dbl_kind, 0.906588_dbl_kind, & + 0.889073_dbl_kind, 0.891127_dbl_kind, 0.910152_dbl_kind, & + 0.889452_dbl_kind, 0.891750_dbl_kind, 0.913100_dbl_kind, & + 0.889730_dbl_kind, 0.892213_dbl_kind, 0.915621_dbl_kind, & + 0.890026_dbl_kind, 0.892723_dbl_kind, 0.918831_dbl_kind, & + 0.890238_dbl_kind, 0.893099_dbl_kind, 0.921540_dbl_kind, & + 0.890441_dbl_kind, 0.893474_dbl_kind, 0.924581_dbl_kind, & + 0.890618_dbl_kind, 0.893816_dbl_kind, 0.927701_dbl_kind, & + 0.890762_dbl_kind, 0.894123_dbl_kind, 0.930737_dbl_kind, & + 0.890881_dbl_kind, 0.894397_dbl_kind, 0.933568_dbl_kind, & + 0.890975_dbl_kind, 0.894645_dbl_kind, 0.936148_dbl_kind, & + 0.891035_dbl_kind, 0.894822_dbl_kind, 0.937989_dbl_kind, & + 0.891097_dbl_kind, 0.895020_dbl_kind, 0.939949_dbl_kind, & + 0.891147_dbl_kind, 0.895212_dbl_kind, 0.941727_dbl_kind, & + 0.891189_dbl_kind, 0.895399_dbl_kind, 0.943339_dbl_kind, & + 0.891225_dbl_kind, 0.895601_dbl_kind, 0.944915_dbl_kind, & + 0.891248_dbl_kind, 0.895745_dbl_kind, 0.945950_dbl_kind, & + 0.891277_dbl_kind, 0.895951_dbl_kind, 0.947288_dbl_kind, & + 0.891299_dbl_kind, 0.896142_dbl_kind, 0.948438_dbl_kind, & + 0.891323_dbl_kind, 0.896388_dbl_kind, 0.949762_dbl_kind, & + 0.891340_dbl_kind, 0.896623_dbl_kind, 0.950916_dbl_kind, & + 0.891356_dbl_kind, 0.896851_dbl_kind, 0.951945_dbl_kind, & + 0.891386_dbl_kind, 0.897399_dbl_kind, 0.954156_dbl_kind/), & + (/nspint_3bd,nmbrad/)) + + ! ice surface scattering layer (ssl) iops + ki_ssl_mn_3bd = (/ 1000.1_dbl_kind, 1003.7_dbl_kind, 7042._dbl_kind/) + wi_ssl_mn_3bd = (/ .9999_dbl_kind, .9963_dbl_kind, .9088_dbl_kind/) + gi_ssl_mn_3bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind/) + + ! ice drained layer (dl) iops + ki_dl_mn_3bd = (/ 100.2_dbl_kind, 107.7_dbl_kind, 1309._dbl_kind /) + wi_dl_mn_3bd = (/ .9980_dbl_kind, .9287_dbl_kind, .0305_dbl_kind /) + gi_dl_mn_3bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) + + ! ice interior layer (int) iops + ki_int_mn_3bd = (/ 20.2_dbl_kind, 27.7_dbl_kind, 1445._dbl_kind /) + wi_int_mn_3bd = (/ .9901_dbl_kind, .7223_dbl_kind, .0277_dbl_kind /) + gi_int_mn_3bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) + + ! ponded ice surface scattering layer (ssl) iops + ki_p_ssl_mn = (/ 70.2_dbl_kind, 77.7_dbl_kind, 1309._dbl_kind/) + wi_p_ssl_mn = (/ .9972_dbl_kind, .9009_dbl_kind, .0305_dbl_kind/) + gi_p_ssl_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) + + ! ponded ice interior layer (int) iops + ki_p_int_mn = (/ 20.2_dbl_kind, 27.7_dbl_kind, 1445._dbl_kind/) + wi_p_int_mn = (/ .9901_dbl_kind, .7223_dbl_kind, .0277_dbl_kind/) + gi_p_int_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) + + ! inherent optical property (iop) arrays for pond water and underlying ocean + ! kw = Pond water extinction coefficient (/m) + ! ww = Pond water single scattering albedo + ! gw = Pond water asymmetry parameter + kw = (/ 0.20_dbl_kind, 12.0_dbl_kind, 729._dbl_kind /) + ww = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /) + gw = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /) + + end subroutine icepack_shortwave_init_dEdd3band + +!======================================================================= + + subroutine icepack_shortwave_init_dEdd5band + + ! local variables + + integer (kind=int_kind) :: n + + character (len=*),parameter :: subname='(icepack_shortwave_init_dEdd5band)' + + ! 5-bands ice surface scattering layer (ssl) iops to match SNICAR calculations + ! note by Cheng Dang: + ! for now these data are not needed since the sea ice layer IOPs can be directly + ! assigned based on the 3 bands data after adjustment based on tuning parameter R_ice + ! In the future, when 5-band sea ice IOPs are available, these data shall be updated + ! and the sea ice layer IOPs shall be calculated based on updated 5band iops* +!echmod - the comment above says these are not needed but they are nevertheless used below + ! + ! The 5band data given in this section are based on CICE and SNICAR band choice: + ! SNICAR band 1 = CICE band 1 + ! SNICAR band 2 + SNICAR band 3 = CICE band 2 + ! SNICAR band 4 + SNICAR band 5 = CICE band 3 + + ! ice surface scattering layer (ssl) iops + ki_ssl_mn_5bd = (/ 1000.1_dbl_kind, 1003.7_dbl_kind, 1003.7_dbl_kind, & + 7042._dbl_kind, 7042._dbl_kind /) + wi_ssl_mn_5bd = (/ .9999_dbl_kind, .9963_dbl_kind, .9963_dbl_kind, & + .9088_dbl_kind, .9088_dbl_kind /) + gi_ssl_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & + .94_dbl_kind, .94_dbl_kind /) + + ! ice drained layer (dl) iops + ki_dl_mn_5bd = (/ 100.2_dbl_kind, 107.7_dbl_kind, 107.7_dbl_kind, & + 1309._dbl_kind, 1309._dbl_kind /) + wi_dl_mn_5bd = (/ .9980_dbl_kind, .9287_dbl_kind, .9287_dbl_kind, & + .0305_dbl_kind, .0305_dbl_kind /) + gi_dl_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & + .94_dbl_kind, .94_dbl_kind /) + + ! ice interior layer (int) iops + ki_int_mn_5bd = (/ 20.2_dbl_kind, 27.7_dbl_kind, 27.7_dbl_kind, & + 1445._dbl_kind, 1445._dbl_kind/) + wi_int_mn_5bd = (/ .9901_dbl_kind, .7223_dbl_kind, .7223_dbl_kind, & + .0277_dbl_kind, .0277_dbl_kind /) + gi_int_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & + .94_dbl_kind, .94_dbl_kind /) + + end subroutine icepack_shortwave_init_dEdd5band + +!======================================================================= + subroutine icepack_shortwave_init_snicartest() + + character (len=*),parameter :: subname='(icepack_shortwave_init_snicartest)' + + nmbrad_snicar = 5 ! snow grain radius number SNICAR SSP tables + nmodal1_snicar = 10 ! nModal1 in SNICAR SSP tables + nmodal2_snicar = 8 ! nModal2 in SNICAR SSP tables + nmaeros_snicar = 6 ! maxAerosolType in SNICAR SSP tables + + allocate(rsnw_snicar_tab(nmbrad_snicar)) ! snow grain radii + rsnw_snicar_tab = (/ & ! snow grain radius for each table entry (micro-meters) + 6._dbl_kind, 37._dbl_kind, 221._dbl_kind, 600._dbl_kind, 1340._dbl_kind/) + rsnw_snicar_min = rsnw_snicar_tab(1) ! minimum snow radius - integer value used for indexing + rsnw_snicar_max = rsnw_snicar_tab(nmbrad_snicar) ! maximum snow radius - integer value used for indexing + + if (allocated(ssp_bcerad )) deallocate(ssp_bcerad ) + if (allocated(ssp_bcgrerad)) deallocate(ssp_bcgrerad) + if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) + if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) + if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) + if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) + if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) + if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) + if (allocated(ssp_aasymmmd)) deallocate(ssp_aasymmmd) + if (allocated(ssp_aerextmd)) deallocate(ssp_aerextmd) + if (allocated(ssp_aeralbmd)) deallocate(ssp_aeralbmd) + if (allocated(ssp_aasymm )) deallocate(ssp_aasymm ) + if (allocated(ssp_aerext )) deallocate(ssp_aerext ) + if (allocated(ssp_aeralb )) deallocate(ssp_aeralb ) + if (allocated(ssp_abcenhmd)) deallocate(ssp_abcenhmd) + + allocate(ssp_bcerad (nmodal1_snicar)) ! ?, bcEffectiveRadius + allocate(ssp_bcgrerad(nmodal2_snicar)) ! ?, iceGrainEffectiveRadius + allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, direct + allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, diffuse + allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, direct + allocate(ssp_snwalbdf(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, diffuse + allocate(ssp_sasymmdr(nspint_5bd,nmbrad_snicar )) ! snow asymmetry factor, direct + allocate(ssp_sasymmdf(nspint_5bd,nmbrad_snicar )) ! snow asymmetry factor, diffuse + allocate(ssp_aasymmmd(nspint_5bd,nmodal1_snicar)) ! gaer_bc_5bd, modalAsymmetryParameter5band + allocate(ssp_aerextmd(nspint_5bd,nmodal1_snicar)) ! kaer_bc_5bd, modalMassExtinctionCrossSection5band + allocate(ssp_aeralbmd(nspint_5bd,nmodal1_snicar)) ! waer_bc_5bd, modalSingleScatterAlbedo5band + allocate(ssp_aasymm (nspint_5bd,nmaeros_snicar)) ! gaer_5bd, aerosolAsymmetryParameter5band + allocate(ssp_aerext (nspint_5bd,nmaeros_snicar)) ! kaer_5bd, aerosolMassExtinctionCrossSection5band + allocate(ssp_aeralb (nspint_5bd,nmaeros_snicar)) ! waer_5bd, aerosolSingleScatterAlbedo5band + allocate(ssp_abcenhmd(nspint_5bd,nmodal1_snicar,nmodal2_snicar)) ! bcenh_5bd, modalBCabsorptionParameter5band + + ! tcraig, these data statements are not consistent with the array index order + ! reshape from nmbrad,nspint to nspint,nmbrad with order = 2,1 + + ssp_snwextdr = reshape((/ & + 46.27374983, 24.70286257, 6.54918455, 2.6035624, 1.196168, & + 46.56827715, 24.81790668, 6.56181227, 2.60604155, 1.19682614, & + 46.76114033, 24.90468677, 6.56950323, 2.60780948, 1.19737512, & + 46.9753992, 24.9495155, 6.57687695, 2.60937383, 1.19774008, & + 47.48598349, 25.14100194, 6.59708024, 2.61372576, 1.19897351 /), & + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) + + ssp_snwextdf = reshape((/ & + 46.26936158, 24.70165487, 6.54903637, 2.60353051, 1.19615825, & + 46.56628244, 24.81707286, 6.56164279, 2.60601584, 1.1968169, & + 46.75501968, 24.90175807, 6.5693214, 2.60775795, 1.19736237, & + 46.95368476, 24.94497414, 6.57612007, 2.60924059, 1.19770981, & + 47.29620774, 25.0713585, 6.5891698, 2.61198929, 1.19850197 /), & + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) + + ssp_snwalbdr = reshape((/ & + 0.99999581, 0.99999231, 0.99997215, 0.99993093, 0.99985157, & + 0.99987892, 0.99978212, 0.99923115, 0.99817946, 0.99628374, & + 0.99909682, 0.99835523, 0.99418008, 0.98592085, 0.97062632, & + 0.99308867, 0.98972448, 0.97261528, 0.93947995, 0.88207117, & + 0.93322249, 0.89645776, 0.75765643, 0.6272883, 0.55435033 /), & + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) + + ssp_snwalbdf = reshape((/ & + 0.99999586, 0.9999924, 0.99997249, 0.99993178, 0.9998534, & + 0.99988441, 0.99979202, 0.99926745, 0.99826865, 0.99647135, & + 0.99910997, 0.99837683, 0.99426171, 0.98610431, 0.97097643, & + 0.99476731, 0.9916114, 0.97441209, 0.94127464, 0.88440735, & + 0.9419837, 0.90613207, 0.77042376, 0.63887161, 0.5566098 /), & + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) + + ssp_sasymmdr = reshape((/ & + 0.88503036, 0.88778473, 0.89049023, 0.89112501, 0.89136157, & + 0.88495225, 0.88905367, 0.89315385, 0.89433673, 0.8950027, & + 0.88440201, 0.88928256, 0.89503166, 0.89762648, 0.90045378, & + 0.88590371, 0.89350221, 0.90525156, 0.91314567, 0.92157748, & + 0.9033537, 0.91778261, 0.94615574, 0.96323447, 0.97167644 /), & + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) + + ssp_sasymmdf = reshape((/ & + 0.88500571, 0.88773868, 0.89042496, 0.8910553, 0.89128949, & + 0.88495225, 0.88905367, 0.89315385, 0.89433673, 0.8950027 , & + 0.88441433, 0.88929133, 0.89500611, 0.89756091, 0.90035504, & + 0.88495554, 0.89201556, 0.90204619, 0.90914885, 0.91769988, & + 0.89620237, 0.90998944, 0.94126152, 0.96209938, 0.9726631 /), & + (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) + + ! tcraig, what should these be set to? TODO + ssp_bcerad = 0._dbl_kind + ssp_bcgrerad = 0._dbl_kind + ssp_aasymmmd = 0._dbl_kind + ssp_aerextmd = 0._dbl_kind + ssp_aeralbmd = 0._dbl_kind + ssp_aasymm = 0._dbl_kind + ssp_aerext = 0._dbl_kind + ssp_aeralb = 0._dbl_kind + ssp_abcenhmd = 0._dbl_kind + + end subroutine icepack_shortwave_init_snicartest + +!======================================================================= + + subroutine icepack_shortwave_init_snicar() + + integer (kind=int_kind) :: & + n ! loop counter + + ! data in SNICAR SSP file + integer (kind=int_kind) :: & + nSpectralIntervalsSNICAR, & + nSnowGrainRadiusSNICAR, & + nModal1, & + nModal2, & + maxAerosolType + + ! data in SNICAR SSP file + real (kind=dbl_kind), allocatable :: iceAsymmetryParameterDirect(:,:) + real (kind=dbl_kind), allocatable :: iceAsymmetryParameterDiffuse(:,:) + real (kind=dbl_kind), allocatable :: iceSingleScatterAlbedoDirect(:,:) + real (kind=dbl_kind), allocatable :: iceSingleScatterAlbedoDiffuse(:,:) + real (kind=dbl_kind), allocatable :: iceMassExtinctionCrossSectionDirect(:,:) + real (kind=dbl_kind), allocatable :: iceMassExtinctionCrossSectionDiffuse(:,:) + real (kind=dbl_kind), allocatable :: modalAsymmetryParameter5band(:,:) + real (kind=dbl_kind), allocatable :: modalMassExtinctionCrossSection5band(:,:) + real (kind=dbl_kind), allocatable :: modalSingleScatterAlbedo5band(:,:) + real (kind=dbl_kind), allocatable :: modalBCabsorptionParameter5band(:,:,:) + real (kind=dbl_kind), allocatable :: bcEffectiveRadius(:) + real (kind=dbl_kind), allocatable :: iceGrainEffectiveRadius(:) + real (kind=dbl_kind), allocatable :: aerosolAsymmetryParameter5band(:,:) + real (kind=dbl_kind), allocatable :: aerosolMassExtinctionCrossSection5band(:,:) + real (kind=dbl_kind), allocatable :: aerosolSingleScatterAlbedo5band(:,:) + + character(len=*),parameter :: subname='(icepack_shortwave_init_snicar)' + + !--- extracted from netcdf file + !--- snicar_optics_5bnd_snow_and_aerosols.nc + + nSpectralIntervalsSNICAR = 5 + nSnowGrainRadiusSNICAR = 1471 + nModal1 = 10 + nModal2 = 8 + maxAerosolType = 6 + + allocate(iceAsymmetryParameterDirect(nSpectralIntervalsSNICAR, nSnowGrainRadiusSNICAR)) + allocate(iceAsymmetryParameterDiffuse(nSpectralIntervalsSNICAR, nSnowGrainRadiusSNICAR)) + allocate(iceSingleScatterAlbedoDirect(nSpectralIntervalsSNICAR, nSnowGrainRadiusSNICAR)) + allocate(iceSingleScatterAlbedoDiffuse(nSpectralIntervalsSNICAR, nSnowGrainRadiusSNICAR)) + allocate(iceMassExtinctionCrossSectionDirect(nSpectralIntervalsSNICAR, nSnowGrainRadiusSNICAR)) + allocate(iceMassExtinctionCrossSectionDiffuse(nSpectralIntervalsSNICAR, nSnowGrainRadiusSNICAR)) + allocate(modalAsymmetryParameter5band(nSpectralIntervalsSNICAR, nModal1)) + allocate(modalMassExtinctionCrossSection5band(nSpectralIntervalsSNICAR, nModal1)) + allocate(modalSingleScatterAlbedo5band(nSpectralIntervalsSNICAR, nModal1)) + allocate(modalBCabsorptionParameter5band(nSpectralIntervalsSNICAR, nModal1, nModal2)) + allocate(bcEffectiveRadius(nModal1)) + allocate(iceGrainEffectiveRadius(nModal2)) + allocate(aerosolAsymmetryParameter5band(nSpectralIntervalsSNICAR, maxAerosolType)) + allocate(aerosolMassExtinctionCrossSection5band(nSpectralIntervalsSNICAR, maxAerosolType)) + allocate(aerosolSingleScatterAlbedo5band(nSpectralIntervalsSNICAR, maxAerosolType)) + + iceAsymmetryParameterDirect(1:5 ,1) = (/ 0.883812826619966_dbl_kind, 0.883341999504413_dbl_kind, 0.882286247177836_dbl_kind, 0.883104831607199_dbl_kind, 0.898615034787299_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,2) = (/ 0.884045703655972_dbl_kind, 0.883651330111304_dbl_kind, 0.882694799122514_dbl_kind, 0.88363100888832_dbl_kind, 0.89949035376612_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,3) = (/ 0.884265594993862_dbl_kind, 0.883942205670049_dbl_kind, 0.88307926463881_dbl_kind, 0.884130950189708_dbl_kind, 0.900327839087815_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,4) = (/ 0.88447330083083_dbl_kind, 0.884216304103572_dbl_kind, 0.88344091213276_dbl_kind, 0.884606491166985_dbl_kind, 0.901130420272937_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,5) = (/ 0.884669552343808_dbl_kind, 0.884475131690979_dbl_kind, 0.883781038633209_dbl_kind, 0.885059383458455_dbl_kind, 0.901900722489371_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,6) = (/ 0.884855026960007_dbl_kind, 0.884720041157208_dbl_kind, 0.884100962450369_dbl_kind, 0.885491277499437_dbl_kind, 0.90264110549347_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,7) = (/ 0.885030359518704_dbl_kind, 0.884952247979408_dbl_kind, 0.884402009458808_dbl_kind, 0.885903711207814_dbl_kind, 0.903353696417132_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,8) = (/ 0.885196150263205_dbl_kind, 0.885172844911776_dbl_kind, 0.884685496767126_dbl_kind, 0.886298104374309_dbl_kind, 0.904040417746719_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,9) = (/ 0.885352970401633_dbl_kind, 0.885382814828977_dbl_kind, 0.884952716319368_dbl_kind, 0.886675757994174_dbl_kind, 0.904703011428127_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,10) = (/ 0.885501365822281_dbl_kind, 0.885583042041594_dbl_kind, 0.885204920022277_dbl_kind, 0.887037857517288_dbl_kind, 0.905343059764095_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,11) = (/ 0.885641859430929_dbl_kind, 0.885774322259615_dbl_kind, 0.88544330728219_dbl_kind, 0.887385478949465_dbl_kind, 0.905962003597254_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,12) = (/ 0.885774952484183_dbl_kind, 0.885957371382396_dbl_kind, 0.885669015328004_dbl_kind, 0.88771959682008_dbl_kind, 0.906561158161349_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,13) = (/ 0.885901125217878_dbl_kind, 0.886132833283754_dbl_kind, 0.885883112352245_dbl_kind, 0.888041093178004_dbl_kind, 0.907141726910893_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,14) = (/ 0.886020837008229_dbl_kind, 0.886301286744091_dbl_kind, 0.886086593283499_dbl_kind, 0.888350766948108_dbl_kind, 0.907704813590579_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,15) = (/ 0.886134526252419_dbl_kind, 0.886463251661636_dbl_kind, 0.886280377878174_dbl_kind, 0.888649343148456_dbl_kind, 0.908251432770758_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,16) = (/ 0.886242610112709_dbl_kind, 0.886619194654339_dbl_kind, 0.886465310761095_dbl_kind, 0.888937481619419_dbl_kind, 0.908782519047961_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,17) = (/ 0.886345484232351_dbl_kind, 0.886769534144212_dbl_kind, 0.886642163031875_dbl_kind, 0.889215785043267_dbl_kind, 0.909298935086562_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,18) = (/ 0.8864435225017_dbl_kind, 0.886914644998123_dbl_kind, 0.886811635071063_dbl_kind, 0.889484806134571_dbl_kind, 0.909801478657418_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,19) = (/ 0.886537076928103_dbl_kind, 0.887054862783442_dbl_kind, 0.886974360214836_dbl_kind, 0.889745053959067_dbl_kind, 0.910290888810795_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,20) = (/ 0.886626477642934_dbl_kind, 0.887190487683911_dbl_kind, 0.887130909010696_dbl_kind, 0.889996999394228_dbl_kind, 0.910767851303848_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,21) = (/ 0.886712033062894_dbl_kind, 0.887321788110551_dbl_kind, 0.887281793813395_dbl_kind, 0.8902410797823_dbl_kind, 0.911233003387176_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,22) = (/ 0.886794030210059_dbl_kind, 0.887449004034129_dbl_kind, 0.887427473525989_dbl_kind, 0.890477702849466_dbl_kind, 0.911686938040782_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,23) = (/ 0.886872735185552_dbl_kind, 0.887572350059476_dbl_kind, 0.887568358333269_dbl_kind, 0.890707249976559_dbl_kind, 0.912130207736829_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,24) = (/ 0.886948393784847_dbl_kind, 0.887692018257494_dbl_kind, 0.88770481431232_dbl_kind, 0.890930078910336_dbl_kind, 0.912563327795312_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,25) = (/ 0.887021232237997_dbl_kind, 0.887808180767587_dbl_kind, 0.887837167837215_dbl_kind, 0.891146526002195_dbl_kind, 0.912986779388719_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,26) = (/ 0.887091458055303_dbl_kind, 0.887920992181373_dbl_kind, 0.887965709721658_dbl_kind, 0.89135690805533_dbl_kind, 0.913401012243196_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,27) = (/ 0.887159260957581_dbl_kind, 0.888030591717439_dbl_kind, 0.888090699065235_dbl_kind, 0.891561523853312_dbl_kind, 0.913806447076307_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,28) = (/ 0.88722481387005_dbl_kind, 0.888137105196449_dbl_kind, 0.888212366786088_dbl_kind, 0.891760655433949_dbl_kind, 0.914203477805249_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,29) = (/ 0.887288273959547_dbl_kind, 0.888240646825891_dbl_kind, 0.888330918836063_dbl_kind, 0.891954569162996_dbl_kind, 0.914592473554032_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,30) = (/ 0.887349783696164_dbl_kind, 0.888341320803912_dbl_kind, 0.88844653910415_dbl_kind, 0.892143516653255_dbl_kind, 0.914973780483771_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,31) = (/ 0.887409471922131_dbl_kind, 0.888439222752064_dbl_kind, 0.888559392021019_dbl_kind, 0.8923277355663_dbl_kind, 0.915347723466474_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,32) = (/ 0.887467454912848_dbl_kind, 0.888534440987063_dbl_kind, 0.888669624882114_dbl_kind, 0.892507450326607_dbl_kind, 0.915714607619647_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,33) = (/ 0.88752383741706_dbl_kind, 0.888627057642028_dbl_kind, 0.888777369909652_dbl_kind, 0.892682872771361_dbl_kind, 0.916074719716489_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,34) = (/ 0.887578713665373_dbl_kind, 0.888717149647815_dbl_kind, 0.888882746075307_dbl_kind, 0.8928542027537_dbl_kind, 0.91642832948429_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,35) = (/ 0.887632168338369_dbl_kind, 0.888804789585207_dbl_kind, 0.888985860705803_dbl_kind, 0.893021628712539_dbl_kind, 0.916775690801912_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,36) = (/ 0.887684277487558_dbl_kind, 0.888890046418659_dbl_kind, 0.889086810893211_dbl_kind, 0.893185328218354_dbl_kind, 0.917117042805751_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,37) = (/ 0.887735109404193_dbl_kind, 0.888972986122176_dbl_kind, 0.889185684730915_dbl_kind, 0.893345468501316_dbl_kind, 0.91745261091235_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,38) = (/ 0.887784725432596_dbl_kind, 0.889053672207634_dbl_kind, 0.889282562394872_dbl_kind, 0.893502206965805_dbl_kind, 0.917782607764873_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,39) = (/ 0.887833180726068_dbl_kind, 0.889132166165486_dbl_kind, 0.889377517088377_dbl_kind, 0.893655691693575_dbl_kind, 0.918107234109712_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,40) = (/ 0.887880524944661_dbl_kind, 0.889208527827369_dbl_kind, 0.889470615866909_dbl_kind, 0.893806061936493_dbl_kind, 0.918426679608872_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,41) = (/ 0.887926802895125_dbl_kind, 0.889282815659608_dbl_kind, 0.889561920358066_dbl_kind, 0.893953448598883_dbl_kind, 0.918741123593164_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,42) = (/ 0.887972055114191_dbl_kind, 0.889355086996071_dbl_kind, 0.889651487389992_dbl_kind, 0.894097974708859_dbl_kind, 0.919050735760675_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,43) = (/ 0.888016318397028_dbl_kind, 0.889425398218217_dbl_kind, 0.889739369540202_dbl_kind, 0.894239755877666_dbl_kind, 0.919355676824658_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,44) = (/ 0.888059626273239_dbl_kind, 0.8894938048896_dbl_kind, 0.889825615615308_dbl_kind, 0.894378900745858_dbl_kind, 0.919656099114526_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,45) = (/ 0.888102009433131_dbl_kind, 0.889560361851463_dbl_kind, 0.889910271070832_dbl_kind, 0.894515511415094_dbl_kind, 0.919952147133357_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,46) = (/ 0.888143496107316_dbl_kind, 0.889625123285456_dbl_kind, 0.889993378379132_dbl_kind, 0.894649683864386_dbl_kind, 0.920243958075076_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,47) = (/ 0.888184112402814_dbl_kind, 0.889688142748925_dbl_kind, 0.890074977352411_dbl_kind, 0.894781508349754_dbl_kind, 0.920531662304148_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,48) = (/ 0.888223882598948_dbl_kind, 0.889749473187648_dbl_kind, 0.890155105426786_dbl_kind, 0.894911069786426_dbl_kind, 0.920815383800515_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,49) = (/ 0.888262829406337_dbl_kind, 0.88980916693036_dbl_kind, 0.890233797912649_dbl_kind, 0.895038448112892_dbl_kind, 0.921095240572238_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,50) = (/ 0.888300974192223_dbl_kind, 0.889867275668895_dbl_kind, 0.890311088215733_dbl_kind, 0.895163718636358_dbl_kind, 0.921371345038144_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,51) = (/ 0.888338337175304_dbl_kind, 0.889923850427301_dbl_kind, 0.890387008032717_dbl_kind, 0.895286952359318_dbl_kind, 0.921643804382689_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,52) = (/ 0.888374937593115_dbl_kind, 0.889978941522852_dbl_kind, 0.890461587524629_dbl_kind, 0.89540821628718_dbl_kind, 0.921912720884974_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,53) = (/ 0.888410793844827_dbl_kind, 0.890032598521469_dbl_kind, 0.890534855470855_dbl_kind, 0.895527573717057_dbl_kind, 0.922178192223876_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,54) = (/ 0.888445923612195_dbl_kind, 0.890084870189707_dbl_kind, 0.890606839406125_dbl_kind, 0.89564508450799_dbl_kind, 0.922440311760995_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,55) = (/ 0.88848034396117_dbl_kind, 0.890135804445115_dbl_kind, 0.890677565742526_dbl_kind, 0.895760805333015_dbl_kind, 0.922699168803066_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,56) = (/ 0.888514071426546_dbl_kind, 0.890185448306509_dbl_kind, 0.890747059878304_dbl_kind, 0.895874789913616_dbl_kind, 0.922954848845391_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,57) = (/ 0.888547122081761_dbl_kind, 0.890233847845397_dbl_kind, 0.890815346294935_dbl_kind, 0.895987089237189_dbl_kind, 0.923207433797687_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,58) = (/ 0.888579511595852_dbl_kind, 0.890281048139569_dbl_kind, 0.890882448643774_dbl_kind, 0.896097751758237_dbl_kind, 0.923457002193696_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,59) = (/ 0.888611255279319_dbl_kind, 0.890327093229695_dbl_kind, 0.890948389823394_dbl_kind, 0.89620682358406_dbl_kind, 0.923703629385799_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,60) = (/ 0.888642368120525_dbl_kind, 0.890372026079506_dbl_kind, 0.891013192048583_dbl_kind, 0.89631434864577_dbl_kind, 0.923947387725758_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,61) = (/ 0.888672864814057_dbl_kind, 0.89041588854007_dbl_kind, 0.891076876911846_dbl_kind, 0.896420368855462_dbl_kind, 0.92418834673268_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,62) = (/ 0.888702759782336_dbl_kind, 0.890458721318461_dbl_kind, 0.891139465438151_dbl_kind, 0.896524924250401_dbl_kind, 0.924426573249183_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,63) = (/ 0.888732067191594_dbl_kind, 0.890500563951055_dbl_kind, 0.891200978133579_dbl_kind, 0.896628053125094_dbl_kind, 0.924662131586672_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,64) = (/ 0.888760800963244_dbl_kind, 0.890541454781536_dbl_kind, 0.891261435028453_dbl_kind, 0.896729792152077_dbl_kind, 0.924895083660592_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,65) = (/ 0.888788974781478_dbl_kind, 0.890581430943656_dbl_kind, 0.891320855715475_dbl_kind, 0.896830176492261_dbl_kind, 0.925125489116406_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,66) = (/ 0.888816602097876_dbl_kind, 0.890620528348689_dbl_kind, 0.891379259383328_dbl_kind, 0.896929239895646_dbl_kind, 0.925353405447064_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,67) = (/ 0.888843696133657_dbl_kind, 0.890658781677486_dbl_kind, 0.891436664846189_dbl_kind, 0.897027014793168_dbl_kind, 0.925578888102588_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,68) = (/ 0.888870269880154_dbl_kind, 0.890696224376954_dbl_kind, 0.89149309056951_dbl_kind, 0.897123532380426_dbl_kind, 0.925801990592405_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,69) = (/ 0.888896336097955_dbl_kind, 0.890732888660789_dbl_kind, 0.891548554692451_dbl_kind, 0.897218822693995_dbl_kind, 0.926022764580998_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,70) = (/ 0.888921907315145_dbl_kind, 0.890768805514231_dbl_kind, 0.891603075047273_dbl_kind, 0.897312914680984_dbl_kind, 0.926241259977366_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,71) = (/ 0.888946995824941_dbl_kind, 0.890804004702586_dbl_kind, 0.891656669176004_dbl_kind, 0.897405836262464_dbl_kind, 0.926457525018792_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,72) = (/ 0.888971613683035_dbl_kind, 0.890838514783288_dbl_kind, 0.891709354344638_dbl_kind, 0.897497614391339_dbl_kind, 0.926671606349338_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,73) = (/ 0.888995772704832_dbl_kind, 0.890872363121181_dbl_kind, 0.891761147555155_dbl_kind, 0.89758827510521_dbl_kind, 0.926883549093492_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,74) = (/ 0.88901948446278_dbl_kind, 0.890905575906795_dbl_kind, 0.891812065555573_dbl_kind, 0.897677843574715_dbl_kind, 0.927093396925292_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,75) = (/ 0.88904276028393_dbl_kind, 0.8909381781773_dbl_kind, 0.891862124848268_dbl_kind, 0.897766344147812_dbl_kind, 0.9273011921333_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,76) = (/ 0.889065611247823_dbl_kind, 0.890970193839887_dbl_kind, 0.891911341696774_dbl_kind, 0.897853800390416_dbl_kind, 0.927506975681712_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,77) = (/ 0.889088048184792_dbl_kind, 0.891001645697287_dbl_kind, 0.891959732131233_dbl_kind, 0.897940235123779_dbl_kind, 0.927710787267906_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,78) = (/ 0.889110081674722_dbl_kind, 0.891032555475178_dbl_kind, 0.892007311952706_dbl_kind, 0.898025670458946_dbl_kind, 0.927912665376661_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,79) = (/ 0.889131722046316_dbl_kind, 0.891062943851212_dbl_kind, 0.892054096736468_dbl_kind, 0.898110127828608_dbl_kind, 0.928112647331301_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,80) = (/ 0.88915297937687_dbl_kind, 0.891092830485425_dbl_kind, 0.892100101834468_dbl_kind, 0.898193628016638_dbl_kind, 0.928310769341983_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,81) = (/ 0.889173863492567_dbl_kind, 0.891122234051793_dbl_kind, 0.892145342377078_dbl_kind, 0.898276191185543_dbl_kind, 0.928507066551312_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,82) = (/ 0.889194383969292_dbl_kind, 0.891151172270705_dbl_kind, 0.89218983327426_dbl_kind, 0.898357836902074_dbl_kind, 0.928701573077486_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,83) = (/ 0.889214550133932_dbl_kind, 0.89117966194216_dbl_kind, 0.892233589216265_dbl_kind, 0.898438584161196_dbl_kind, 0.928894322055124_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,84) = (/ 0.889234371066155_dbl_kind, 0.891207718979478_dbl_kind, 0.892276624673959_dbl_kind, 0.898518451408575_dbl_kind, 0.929085345673951_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,85) = (/ 0.889253855600639_dbl_kind, 0.891235358443346_dbl_kind, 0.892318953898884_dbl_kind, 0.898597456561759_dbl_kind, 0.929274675215449_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,86) = (/ 0.889273012329711_dbl_kind, 0.891262594576028_dbl_kind, 0.892360590923125_dbl_kind, 0.898675617030181_dbl_kind, 0.929462341087646_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,87) = (/ 0.889291849606374_dbl_kind, 0.891289440835594_dbl_kind, 0.892401549559063_dbl_kind, 0.898752949734104_dbl_kind, 0.929648372858128_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,88) = (/ 0.88931037554767_dbl_kind, 0.891315909930016_dbl_kind, 0.892441843399064_dbl_kind, 0.898829471122627_dbl_kind, 0.929832799285416_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,89) = (/ 0.889328598038372_dbl_kind, 0.891342013850997_dbl_kind, 0.892481485815188_dbl_kind, 0.898905197190808_dbl_kind, 0.930015648348784_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,90) = (/ 0.88934652473494_dbl_kind, 0.891367763907424_dbl_kind, 0.892520489958936_dbl_kind, 0.898980143496028_dbl_kind, 0.930196947276639_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,91) = (/ 0.889364163069721_dbl_kind, 0.891393170758348_dbl_kind, 0.892558868761093_dbl_kind, 0.899054325173636_dbl_kind, 0.930376722573528_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,92) = (/ 0.889381520255364_dbl_kind, 0.89141824444537_dbl_kind, 0.892596634931703_dbl_kind, 0.899127756951936_dbl_kind, 0.930555000045876_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,93) = (/ 0.889398603289403_dbl_kind, 0.891442994424384_dbl_kind, 0.892633800960189_dbl_kind, 0.899200453166574_dbl_kind, 0.93073180482651_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,94) = (/ 0.889415418958989_dbl_kind, 0.891467429596578_dbl_kind, 0.892670379115655_dbl_kind, 0.899272427774362_dbl_kind, 0.930907161398059_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,95) = (/ 0.889431973845748_dbl_kind, 0.891491558338644_dbl_kind, 0.892706381447383_dbl_kind, 0.899343694366579_dbl_kind, 0.931081093615284_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,96) = (/ 0.889448274330712_dbl_kind, 0.891515388532144_dbl_kind, 0.892741819785529_dbl_kind, 0.899414266181781_dbl_kind, 0.9312536247264_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,97) = (/ 0.889464326599331_dbl_kind, 0.891538927591983_dbl_kind, 0.892776705742045_dbl_kind, 0.899484156118131_dbl_kind, 0.931424777393451_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,98) = (/ 0.889480136646522_dbl_kind, 0.891562182493956_dbl_kind, 0.892811050711799_dbl_kind, 0.899553376745303_dbl_kind, 0.9315945737118_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,99) = (/ 0.889495710281738_dbl_kind, 0.891585159801335_dbl_kind, 0.892844865873934_dbl_kind, 0.899621940315948_dbl_kind, 0.931763035228747_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,100) = (/ 0.889511053134045_dbl_kind, 0.891607865690487_dbl_kind, 0.892878162193432_dbl_kind, 0.899689858776747_dbl_kind, 0.931930182961392_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,101) = (/ 0.889526170657182_dbl_kind, 0.891630305975495_dbl_kind, 0.892910950422888_dbl_kind, 0.899757143779079_dbl_kind, 0.932096037413687_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,102) = (/ 0.889541068134592_dbl_kind, 0.891652486131773_dbl_kind, 0.892943241104495_dbl_kind, 0.899823806689298_dbl_kind, 0.932260618592831_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,103) = (/ 0.889555750684416_dbl_kind, 0.891674411318688_dbl_kind, 0.89297504457222_dbl_kind, 0.899889858598637_dbl_kind, 0.93242394602494_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,104) = (/ 0.88957022326442_dbl_kind, 0.891696086401164_dbl_kind, 0.893006370954164_dbl_kind, 0.899955310332755_dbl_kind, 0.932586038770114_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,105) = (/ 0.889584490676875_dbl_kind, 0.891717515970294_dbl_kind, 0.893037230175099_dbl_kind, 0.900020172460922_dbl_kind, 0.932746915436868_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,106) = (/ 0.889598557573349_dbl_kind, 0.891738704362963_dbl_kind, 0.893067631959158_dbl_kind, 0.900084455304856_dbl_kind, 0.932906594196008_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,107) = (/ 0.889612428459424_dbl_kind, 0.891759655680491_dbl_kind, 0.893097585832683_dbl_kind, 0.900148168947233_dbl_kind, 0.933065092793949_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,108) = (/ 0.889626107699325_dbl_kind, 0.891780373806316_dbl_kind, 0.893127101127191_dbl_kind, 0.90021132323985_dbl_kind, 0.933222428565522_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,109) = (/ 0.889639599520457_dbl_kind, 0.891800862422733_dbl_kind, 0.893156186982477_dbl_kind, 0.900273927811472_dbl_kind, 0.933378618446283_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,110) = (/ 0.889652908017841_dbl_kind, 0.891821125026716_dbl_kind, 0.893184852349796_dbl_kind, 0.900335992075362_dbl_kind, 0.933533678984354_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,111) = (/ 0.889666037158456_dbl_kind, 0.891841164944837_dbl_kind, 0.893213105995161_dbl_kind, 0.900397525236498_dbl_kind, 0.93368762635183_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,112) = (/ 0.889678990785469_dbl_kind, 0.891860985347313_dbl_kind, 0.893240956502698_dbl_kind, 0.900458536298484_dbl_kind, 0.933840476355749_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,113) = (/ 0.889691772622367_dbl_kind, 0.891880589261207_dbl_kind, 0.89326841227807_dbl_kind, 0.900519034070173_dbl_kind, 0.933992244448662_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,114) = (/ 0.889704386276983_dbl_kind, 0.891899979582808_dbl_kind, 0.893295481551944_dbl_kind, 0.900579027171998_dbl_kind, 0.934142945738833_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,115) = (/ 0.889716835245406_dbl_kind, 0.891919159089218_dbl_kind, 0.893322172383498_dbl_kind, 0.900638524042021_dbl_kind, 0.934292595000051_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,116) = (/ 0.889729122915796_dbl_kind, 0.891938130449177_dbl_kind, 0.893348492663946_dbl_kind, 0.900697532941712_dbl_kind, 0.934441206681117_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,117) = (/ 0.889741252572081_dbl_kind, 0.891956896233159_dbl_kind, 0.893374450120073_dbl_kind, 0.900756061961465_dbl_kind, 0.934588794914984_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,118) = (/ 0.889753227397555_dbl_kind, 0.891975458922756_dbl_kind, 0.893400052317773_dbl_kind, 0.900814119025858_dbl_kind, 0.934735373527575_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,119) = (/ 0.889765050478368_dbl_kind, 0.891993820919397_dbl_kind, 0.893425306665571_dbl_kind, 0.900871711898663_dbl_kind, 0.934880956046323_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,120) = (/ 0.889776724806911_dbl_kind, 0.89201198455242_dbl_kind, 0.893450220418122_dbl_kind, 0.900928848187619_dbl_kind, 0.935025555708392_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,121) = (/ 0.889788253285097_dbl_kind, 0.892029952086527_dbl_kind, 0.893474800679693_dbl_kind, 0.900985535348982_dbl_kind, 0.935169185468642_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,122) = (/ 0.88979963872755_dbl_kind, 0.89204772572866_dbl_kind, 0.893499054407582_dbl_kind, 0.901041780691841_dbl_kind, 0.935311858007322_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,123) = (/ 0.889810883864676_dbl_kind, 0.892065307634319_dbl_kind, 0.893522988415516_dbl_kind, 0.901097591382232_dbl_kind, 0.935453585737501_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,124) = (/ 0.889821991345661_dbl_kind, 0.892082699913359_dbl_kind, 0.893546609376982_dbl_kind, 0.901152974447049_dbl_kind, 0.935594380812278_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,125) = (/ 0.889832963741352_dbl_kind, 0.892099904635271_dbl_kind, 0.893569923828501_dbl_kind, 0.901207936777753_dbl_kind, 0.935734255131741_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,126) = (/ 0.889843803547056_dbl_kind, 0.892116923834021_dbl_kind, 0.893592938172838_dbl_kind, 0.901262485133906_dbl_kind, 0.935873220349706_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,127) = (/ 0.889854513185248_dbl_kind, 0.892133759512413_dbl_kind, 0.893615658682148_dbl_kind, 0.90131662614652_dbl_kind, 0.936011287880251_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,128) = (/ 0.889865095008185_dbl_kind, 0.892150413646063_dbl_kind, 0.893638091501042_dbl_kind, 0.901370366321242_dbl_kind, 0.936148468904038_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,129) = (/ 0.88987555130044_dbl_kind, 0.892166888186953_dbl_kind, 0.893660242649585_dbl_kind, 0.901423712041384_dbl_kind, 0.936284774374435_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,130) = (/ 0.889885884281343_dbl_kind, 0.89218318506664_dbl_kind, 0.893682118026204_dbl_kind, 0.901476669570793_dbl_kind, 0.93642021502346_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,131) = (/ 0.889896096107353_dbl_kind, 0.892199306199101_dbl_kind, 0.89370372341053_dbl_kind, 0.901529245056586_dbl_kind, 0.936554801367527_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,132) = (/ 0.889906188874331_dbl_kind, 0.892215253483271_dbl_kind, 0.893725064466145_dbl_kind, 0.90158144453175_dbl_kind, 0.936688543713033_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,133) = (/ 0.88991616461976_dbl_kind, 0.892231028805268_dbl_kind, 0.893746146743251_dbl_kind, 0.901633273917611_dbl_kind, 0.936821452161768_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,134) = (/ 0.889926025324862_dbl_kind, 0.892246634040347_dbl_kind, 0.893766975681261_dbl_kind, 0.901684739026194_dbl_kind, 0.936953536616166_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,135) = (/ 0.889935772916667_dbl_kind, 0.892262071054592_dbl_kind, 0.893787556611294_dbl_kind, 0.901735845562456_dbl_kind, 0.93708480678439_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,136) = (/ 0.889945409269996_dbl_kind, 0.892277341706361_dbl_kind, 0.893807894758593_dbl_kind, 0.901786599126435_dbl_kind, 0.937215272185281_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,137) = (/ 0.889954936209373_dbl_kind, 0.892292447847522_dbl_kind, 0.893827995244867_dbl_kind, 0.901837005215285_dbl_kind, 0.937344942153155_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,138) = (/ 0.889964355510884_dbl_kind, 0.892307391324473_dbl_kind, 0.893847863090537_dbl_kind, 0.901887069225227_dbl_kind, 0.937473825842461_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,139) = (/ 0.889973668903956_dbl_kind, 0.892322173978979_dbl_kind, 0.893867503216914_dbl_kind, 0.901936796453422_dbl_kind, 0.937601932232299_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,140) = (/ 0.889982878073081_dbl_kind, 0.892336797648837_dbl_kind, 0.893886920448292_dbl_kind, 0.901986192099754_dbl_kind, 0.937729270130816_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,141) = (/ 0.889991984659472_dbl_kind, 0.892351264168377_dbl_kind, 0.893906119513959_dbl_kind, 0.902035261268552_dbl_kind, 0.937855848179466_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,142) = (/ 0.890000990262672_dbl_kind, 0.892365575368832_dbl_kind, 0.893925105050154_dbl_kind, 0.902084008970236_dbl_kind, 0.937981674857158_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,143) = (/ 0.890009896442088_dbl_kind, 0.892379733078562_dbl_kind, 0.893943881601921_dbl_kind, 0.90213244012291_dbl_kind, 0.938106758484284_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,144) = (/ 0.890018704718483_dbl_kind, 0.892393739123175_dbl_kind, 0.893962453624917_dbl_kind, 0.902180559553897_dbl_kind, 0.938231107226625_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,145) = (/ 0.890027416575406_dbl_kind, 0.892407595325534_dbl_kind, 0.893980825487141_dbl_kind, 0.902228372001216_dbl_kind, 0.938354729099155_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,146) = (/ 0.890036033460573_dbl_kind, 0.892421303505667_dbl_kind, 0.893999001470602_dbl_kind, 0.902275882115018_dbl_kind, 0.93847763196974_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,147) = (/ 0.890044556787193_dbl_kind, 0.892434865480602_dbl_kind, 0.894016985772921_dbl_kind, 0.902323094458982_dbl_kind, 0.938599823562726_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,148) = (/ 0.89005298793525_dbl_kind, 0.892448283064117_dbl_kind, 0.894034782508872_dbl_kind, 0.902370013511659_dbl_kind, 0.938721311462439_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,149) = (/ 0.890061328252731_dbl_kind, 0.892461558066431_dbl_kind, 0.894052395711877_dbl_kind, 0.902416643667796_dbl_kind, 0.938842103116563_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,150) = (/ 0.890069579056809_dbl_kind, 0.892474692293834_dbl_kind, 0.894069829335429_dbl_kind, 0.90246298923962_dbl_kind, 0.938962205839464_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,151) = (/ 0.890077741634987_dbl_kind, 0.89248768754827_dbl_kind, 0.894087087254481_dbl_kind, 0.902509054458088_dbl_kind, 0.93908162681539_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,152) = (/ 0.890085817246188_dbl_kind, 0.892500545626875_dbl_kind, 0.894104173266771_dbl_kind, 0.902554843474122_dbl_kind, 0.939200373101591_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,153) = (/ 0.890093807121806_dbl_kind, 0.892513268321485_dbl_kind, 0.894121091094114_dbl_kind, 0.902600360359815_dbl_kind, 0.939318451631365_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,154) = (/ 0.890101712466724_dbl_kind, 0.892525857418106_dbl_kind, 0.894137844383644_dbl_kind, 0.90264560910961_dbl_kind, 0.939435869217003_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,155) = (/ 0.890109534460279_dbl_kind, 0.892538314696369_dbl_kind, 0.894154436709015_dbl_kind, 0.902690593641473_dbl_kind, 0.939552632552679_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,156) = (/ 0.890117274257199_dbl_kind, 0.892550641928962_dbl_kind, 0.894170871571565_dbl_kind, 0.902735317798036_dbl_kind, 0.939668748217231_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,157) = (/ 0.890124932988498_dbl_kind, 0.892562840881054_dbl_kind, 0.894187152401448_dbl_kind, 0.902779785347736_dbl_kind, 0.939784222676889_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,158) = (/ 0.890132511762329_dbl_kind, 0.892574913309701_dbl_kind, 0.894203282558726_dbl_kind, 0.902823999985931_dbl_kind, 0.939899062287924_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,159) = (/ 0.890140011664821_dbl_kind, 0.892586860963255_dbl_kind, 0.894219265334438_dbl_kind, 0.902867965336011_dbl_kind, 0.940013273299224_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,160) = (/ 0.890147433760857_dbl_kind, 0.89259868558077_dbl_kind, 0.894235103951636_dbl_kind, 0.902911684950495_dbl_kind, 0.9401268618548_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,161) = (/ 0.890154779094839_dbl_kind, 0.892610388891411_dbl_kind, 0.894250801566393_dbl_kind, 0.90295516231212_dbl_kind, 0.940239833996224_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,162) = (/ 0.890162048691411_dbl_kind, 0.892621972613864_dbl_kind, 0.894266361268792_dbl_kind, 0.902998400834917_dbl_kind, 0.940352195665015_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,163) = (/ 0.890169243556154_dbl_kind, 0.89263343845576_dbl_kind, 0.894281786083894_dbl_kind, 0.903041403865289_dbl_kind, 0.940463952704933_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,164) = (/ 0.890176364676258_dbl_kind, 0.892644788113103_dbl_kind, 0.894297078972673_dbl_kind, 0.903084174683071_dbl_kind, 0.940575110864248_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,165) = (/ 0.890183413021149_dbl_kind, 0.892656023269718_dbl_kind, 0.89431224283295_dbl_kind, 0.90312671650259_dbl_kind, 0.940685675797919_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,166) = (/ 0.890190389543108_dbl_kind, 0.892667145596705_dbl_kind, 0.894327280500298_dbl_kind, 0.903169032473719_dbl_kind, 0.940795653069726_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,167) = (/ 0.890197295177848_dbl_kind, 0.892678156751916_dbl_kind, 0.894342194748938_dbl_kind, 0.903211125682924_dbl_kind, 0.940905048154354_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,168) = (/ 0.890204130845076_dbl_kind, 0.892689058379446_dbl_kind, 0.894356988292616_dbl_kind, 0.903252999154304_dbl_kind, 0.941013866439407_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,169) = (/ 0.890210897449021_dbl_kind, 0.892699852109146_dbl_kind, 0.894371663785475_dbl_kind, 0.903294655850631_dbl_kind, 0.941122113227381_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,170) = (/ 0.890217595878947_dbl_kind, 0.892710539556146_dbl_kind, 0.894386223822905_dbl_kind, 0.903336098674379_dbl_kind, 0.941229793737574_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,171) = (/ 0.890224227009638_dbl_kind, 0.892721122320416_dbl_kind, 0.894400670942399_dbl_kind, 0.903377330468759_dbl_kind, 0.941336913107958_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,172) = (/ 0.890230791701858_dbl_kind, 0.892731601986329_dbl_kind, 0.894415007624378_dbl_kind, 0.903418354018734_dbl_kind, 0.94144347639699_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,173) = (/ 0.890237290802799_dbl_kind, 0.892741980122261_dbl_kind, 0.894429236293035_dbl_kind, 0.903459172052042_dbl_kind, 0.941549488585386_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,174) = (/ 0.890243725146499_dbl_kind, 0.892752258280207_dbl_kind, 0.894443359317146_dbl_kind, 0.90349978724021_dbl_kind, 0.941654954577845_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,175) = (/ 0.890250095554245_dbl_kind, 0.892762437995419_dbl_kind, 0.894457379010895_dbl_kind, 0.903540202199558_dbl_kind, 0.941759879204716_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,176) = (/ 0.890256402834956_dbl_kind, 0.892772520786066_dbl_kind, 0.89447129763468_dbl_kind, 0.903580419492211_dbl_kind, 0.941864267223648_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,177) = (/ 0.890262647785552_dbl_kind, 0.892782508152925_dbl_kind, 0.894485117395924_dbl_kind, 0.90362044162709_dbl_kind, 0.941968123321168_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,178) = (/ 0.890268831191296_dbl_kind, 0.892792401579084_dbl_kind, 0.894498840449872_dbl_kind, 0.903660271060909_dbl_kind, 0.942071452114239_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,179) = (/ 0.890274953826125_dbl_kind, 0.892802202529674_dbl_kind, 0.894512468900394_dbl_kind, 0.903699910199155_dbl_kind, 0.942174258151766_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,180) = (/ 0.890281016452973_dbl_kind, 0.892811912451624_dbl_kind, 0.89452600480078_dbl_kind, 0.903739361397083_dbl_kind, 0.942276545916068_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,181) = (/ 0.89028701982406_dbl_kind, 0.892821532773436_dbl_kind, 0.894539450154529_dbl_kind, 0.903778626960671_dbl_kind, 0.942378319824318_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,182) = (/ 0.890292964681184_dbl_kind, 0.892831064904983_dbl_kind, 0.894552806916142_dbl_kind, 0.903817709147606_dbl_kind, 0.942479584229921_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,183) = (/ 0.890298851755988_dbl_kind, 0.892840510237329_dbl_kind, 0.894566076991908_dbl_kind, 0.903856610168232_dbl_kind, 0.942580343423893_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,184) = (/ 0.890304681770221_dbl_kind, 0.892849870142572_dbl_kind, 0.894579262240688_dbl_kind, 0.903895332186508_dbl_kind, 0.942680601636176_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,185) = (/ 0.890310455435979_dbl_kind, 0.892859145973705_dbl_kind, 0.894592364474701_dbl_kind, 0.90393387732095_dbl_kind, 0.942780363036926_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,186) = (/ 0.890316173455936_dbl_kind, 0.892868339064495_dbl_kind, 0.894605385460302_dbl_kind, 0.903972247645572_dbl_kind, 0.942879631737776_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,187) = (/ 0.890321836523572_dbl_kind, 0.892877450729394_dbl_kind, 0.89461832691876_dbl_kind, 0.904010445190813_dbl_kind, 0.942978411793066_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,188) = (/ 0.890327445323374_dbl_kind, 0.892886482263455_dbl_kind, 0.894631190527038_dbl_kind, 0.904048471944454_dbl_kind, 0.943076707201024_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,189) = (/ 0.890333000531039_dbl_kind, 0.892895434942271_dbl_kind, 0.894643977918568_dbl_kind, 0.904086329852532_dbl_kind, 0.94317452190494_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,190) = (/ 0.890338502813661_dbl_kind, 0.892904310021941_dbl_kind, 0.894656690684018_dbl_kind, 0.904124020820239_dbl_kind, 0.943271859794294_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,191) = (/ 0.890343952829913_dbl_kind, 0.892913108739043_dbl_kind, 0.89466933037207_dbl_kind, 0.904161546712814_dbl_kind, 0.943368724705867_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,192) = (/ 0.890349351230213_dbl_kind, 0.892921832310624_dbl_kind, 0.894681898490184_dbl_kind, 0.904198909356424_dbl_kind, 0.943465120424809_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,193) = (/ 0.890354698656887_dbl_kind, 0.892930481934216_dbl_kind, 0.894694396505362_dbl_kind, 0.904236110539033_dbl_kind, 0.943561050685701_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,194) = (/ 0.890359995744324_dbl_kind, 0.892939058787859_dbl_kind, 0.894706825844915_dbl_kind, 0.904273152011265_dbl_kind, 0.943656519173563_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,195) = (/ 0.890365243119116_dbl_kind, 0.892947564030143_dbl_kind, 0.894719187897221_dbl_kind, 0.904310035487251_dbl_kind, 0.943751529524865_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,196) = (/ 0.890370441400203_dbl_kind, 0.892955998800262_dbl_kind, 0.894731484012482_dbl_kind, 0.904346762645468_dbl_kind, 0.94384608532849_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,197) = (/ 0.890375591198999_dbl_kind, 0.892964364218084_dbl_kind, 0.894743715503474_dbl_kind, 0.904383335129562_dbl_kind, 0.94394019012669_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,198) = (/ 0.890380693119516_dbl_kind, 0.892972661384232_dbl_kind, 0.894755883646305_dbl_kind, 0.904419754549168_dbl_kind, 0.944033847415996_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,199) = (/ 0.890385747758485_dbl_kind, 0.892980891380182_dbl_kind, 0.894767989681153_dbl_kind, 0.904456022480708_dbl_kind, 0.944127060648135_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,200) = (/ 0.890390755705467_dbl_kind, 0.892989055268367_dbl_kind, 0.89478003481301_dbl_kind, 0.904492140468185_dbl_kind, 0.9442198332309_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,201) = (/ 0.89039571754296_dbl_kind, 0.892997154092297_dbl_kind, 0.894792020212421_dbl_kind, 0.90452811002396_dbl_kind, 0.944312168529002_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,202) = (/ 0.890400633846501_dbl_kind, 0.893005188876689_dbl_kind, 0.894803947016219_dbl_kind, 0.904563932629516_dbl_kind, 0.944404069864913_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,203) = (/ 0.89040550518476_dbl_kind, 0.8930131606276_dbl_kind, 0.894815816328244_dbl_kind, 0.904599609736216_dbl_kind, 0.94449554051968_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,204) = (/ 0.890410332119637_dbl_kind, 0.893021070332585_dbl_kind, 0.894827629220075_dbl_kind, 0.90463514276604_dbl_kind, 0.944586583733713_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,205) = (/ 0.890415115206346_dbl_kind, 0.893028918960848_dbl_kind, 0.894839386731741_dbl_kind, 0.904670533112314_dbl_kind, 0.944677202707563_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,206) = (/ 0.890419854993499_dbl_kind, 0.89303670746341_dbl_kind, 0.894851089872438_dbl_kind, 0.904705782140428_dbl_kind, 0.944767400602674_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,207) = (/ 0.890424552023191_dbl_kind, 0.893044436773286_dbl_kind, 0.894862739621225_dbl_kind, 0.90474089118853_dbl_kind, 0.94485718054213_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,208) = (/ 0.890429206831069_dbl_kind, 0.89305210780566_dbl_kind, 0.894874336927732_dbl_kind, 0.904775861568227_dbl_kind, 0.944946545611362_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,209) = (/ 0.890433819946412_dbl_kind, 0.89305972145808_dbl_kind, 0.894885882712848_dbl_kind, 0.904810694565251_dbl_kind, 0.945035498858857_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,210) = (/ 0.890438391892199_dbl_kind, 0.893067278610647_dbl_kind, 0.894897377869406_dbl_kind, 0.904845391440127_dbl_kind, 0.945124043296831_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,211) = (/ 0.890442923185176_dbl_kind, 0.893074780126221_dbl_kind, 0.894908823262861_dbl_kind, 0.90487995342882_dbl_kind, 0.945212181901913_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,212) = (/ 0.890447414335921_dbl_kind, 0.893082226850622_dbl_kind, 0.894920219731962_dbl_kind, 0.904914381743377_dbl_kind, 0.945299917615786_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,213) = (/ 0.890451865848909_dbl_kind, 0.893089619612844_dbl_kind, 0.894931568089419_dbl_kind, 0.904948677572543_dbl_kind, 0.945387253345819_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,214) = (/ 0.890456278222571_dbl_kind, 0.893096959225268_dbl_kind, 0.89494286912255_dbl_kind, 0.904982842082378_dbl_kind, 0.945474191965697_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,215) = (/ 0.89046065194935_dbl_kind, 0.893104246483884_dbl_kind, 0.894954123593934_dbl_kind, 0.905016876416853_dbl_kind, 0.945560736316016_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,216) = (/ 0.890464987515763_dbl_kind, 0.893111482168512_dbl_kind, 0.894965332242052_dbl_kind, 0.905050781698433_dbl_kind, 0.945646889204888_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,217) = (/ 0.89046928540245_dbl_kind, 0.893118667043029_dbl_kind, 0.894976495781913_dbl_kind, 0.90508455902865_dbl_kind, 0.945732653408498_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,218) = (/ 0.890473546084232_dbl_kind, 0.893125801855597_dbl_kind, 0.894987614905679_dbl_kind, 0.905118209488663_dbl_kind, 0.945818031671683_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,219) = (/ 0.89047777003016_dbl_kind, 0.893132887338899_dbl_kind, 0.894998690283278_dbl_kind, 0.905151734139801_dbl_kind, 0.945903026708477_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,220) = (/ 0.890481957703569_dbl_kind, 0.893139924210366_dbl_kind, 0.895009722563011_dbl_kind, 0.9051851340241_dbl_kind, 0.945987641202643_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,221) = (/ 0.890486109562121_dbl_kind, 0.893146913172419_dbl_kind, 0.895020712372143_dbl_kind, 0.905218410164824_dbl_kind, 0.946071877808206_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,222) = (/ 0.890490226057859_dbl_kind, 0.893153854912704_dbl_kind, 0.895031660317492_dbl_kind, 0.905251563566971_dbl_kind, 0.946155739149948_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,223) = (/ 0.890494307637257_dbl_kind, 0.893160750104329_dbl_kind, 0.895042566986007_dbl_kind, 0.905284595217769_dbl_kind, 0.946239227823929_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,224) = (/ 0.890498354741257_dbl_kind, 0.893167599406106_dbl_kind, 0.895053432945334_dbl_kind, 0.905317506087168_dbl_kind, 0.946322346397961_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,225) = (/ 0.890502367805325_dbl_kind, 0.893174403462789_dbl_kind, 0.895064258744375_dbl_kind, 0.905350297128298_dbl_kind, 0.946405097412085_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,226) = (/ 0.890506347259488_dbl_kind, 0.893181162905316_dbl_kind, 0.895075044913836_dbl_kind, 0.905382969277944_dbl_kind, 0.946487483379042_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,227) = (/ 0.890510293528387_dbl_kind, 0.89318787835105_dbl_kind, 0.895085791966765_dbl_kind, 0.905415523456985_dbl_kind, 0.946569506784724_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,228) = (/ 0.890514207031312_dbl_kind, 0.893194550404015_dbl_kind, 0.895096500399085_dbl_kind, 0.905447960570836_dbl_kind, 0.946651170088617_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,229) = (/ 0.890518088182255_dbl_kind, 0.893201179655143_dbl_kind, 0.895107170690107_dbl_kind, 0.90548028150987_dbl_kind, 0.946732475724245_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,230) = (/ 0.890521937389948_dbl_kind, 0.89320776668251_dbl_kind, 0.895117803303045_dbl_kind, 0.905512487149837_dbl_kind, 0.946813426099576_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,231) = (/ 0.890525755057904_dbl_kind, 0.893214312051572_dbl_kind, 0.895128398685513_dbl_kind, 0.905544578352263_dbl_kind, 0.946894023597459_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,232) = (/ 0.890529541584468_dbl_kind, 0.89322081631541_dbl_kind, 0.895138957270016_dbl_kind, 0.905576555964845_dbl_kind, 0.946974270576003_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,233) = (/ 0.890533297362853_dbl_kind, 0.893227280014958_dbl_kind, 0.895149479474426_dbl_kind, 0.905608420821832_dbl_kind, 0.947054169369002_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,234) = (/ 0.890537022781183_dbl_kind, 0.893233703679248_dbl_kind, 0.895159965702458_dbl_kind, 0.905640173744398_dbl_kind, 0.947133722286298_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,235) = (/ 0.890540718222539_dbl_kind, 0.893240087825636_dbl_kind, 0.895170416344125_dbl_kind, 0.905671815541_dbl_kind, 0.947212931614173_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,236) = (/ 0.890544384064999_dbl_kind, 0.893246432960038_dbl_kind, 0.89518083177619_dbl_kind, 0.905703347007733_dbl_kind, 0.947291799615714_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,237) = (/ 0.890548020681681_dbl_kind, 0.89325273957716_dbl_kind, 0.895191212362607_dbl_kind, 0.905734768928667_dbl_kind, 0.947370328531177_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,238) = (/ 0.890551628440784_dbl_kind, 0.893259008160728_dbl_kind, 0.895201558454949_dbl_kind, 0.905766082076183_dbl_kind, 0.947448520578338_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,239) = (/ 0.890555207705634_dbl_kind, 0.893265239183714_dbl_kind, 0.89521187039283_dbl_kind, 0.905797287211289_dbl_kind, 0.947526377952841_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,240) = (/ 0.890558758834722_dbl_kind, 0.893271433108558_dbl_kind, 0.895222148504316_dbl_kind, 0.905828385083938_dbl_kind, 0.947603902828547_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,241) = (/ 0.890562282181751_dbl_kind, 0.893277590387393_dbl_kind, 0.895232393106328_dbl_kind, 0.905859376433329_dbl_kind, 0.947681097357838_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,242) = (/ 0.890565778095674_dbl_kind, 0.893283711462267_dbl_kind, 0.89524260450503_dbl_kind, 0.9058902619882_dbl_kind, 0.94775796367197_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,243) = (/ 0.89056924692074_dbl_kind, 0.893289796765358_dbl_kind, 0.895252782996214_dbl_kind, 0.905921042467116_dbl_kind, 0.947834503881375_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,244) = (/ 0.890572688996536_dbl_kind, 0.893295846719186_dbl_kind, 0.895262928865668_dbl_kind, 0.905951718578747_dbl_kind, 0.947910720075973_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,245) = (/ 0.890576104658031_dbl_kind, 0.893301861736834_dbl_kind, 0.895273042389549_dbl_kind, 0.905982291022134_dbl_kind, 0.947986614325482_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,246) = (/ 0.890579494235617_dbl_kind, 0.893307842222149_dbl_kind, 0.895283123834725_dbl_kind, 0.906012760486949_dbl_kind, 0.948062188679704_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,247) = (/ 0.890582858055151_dbl_kind, 0.893313788569957_dbl_kind, 0.89529317345913_dbl_kind, 0.906043127653751_dbl_kind, 0.948137445168825_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,248) = (/ 0.890586196438006_dbl_kind, 0.893319701166259_dbl_kind, 0.895303191512094_dbl_kind, 0.906073393194232_dbl_kind, 0.9482123858037_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,249) = (/ 0.890589509701102_dbl_kind, 0.893325580388442_dbl_kind, 0.89531317823467_dbl_kind, 0.906103557771447_dbl_kind, 0.948287012576124_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,250) = (/ 0.890592798156964_dbl_kind, 0.893331426605472_dbl_kind, 0.895323133859957_dbl_kind, 0.906133622040054_dbl_kind, 0.948361327459115_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,251) = (/ 0.890596062113753_dbl_kind, 0.893337240178088_dbl_kind, 0.895333058613402_dbl_kind, 0.906163586646529_dbl_kind, 0.948435332407175_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,252) = (/ 0.890599301875317_dbl_kind, 0.893343021459001_dbl_kind, 0.895342952713108_dbl_kind, 0.906193452229384_dbl_kind, 0.94850902935655_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,253) = (/ 0.890602517741234_dbl_kind, 0.893348770793082_dbl_kind, 0.895352816370121_dbl_kind, 0.906223219419379_dbl_kind, 0.948582420225493_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,254) = (/ 0.890605710006854_dbl_kind, 0.893354488517543_dbl_kind, 0.895362649788713_dbl_kind, 0.906252888839719_dbl_kind, 0.948655506914516_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,255) = (/ 0.890608878963347_dbl_kind, 0.893360174962132_dbl_kind, 0.895372453166665_dbl_kind, 0.906282461106255_dbl_kind, 0.948728291306627_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,256) = (/ 0.890612024897743_dbl_kind, 0.893365830449303_dbl_kind, 0.895382226695527_dbl_kind, 0.906311936827671_dbl_kind, 0.94880077526758_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,257) = (/ 0.89061514809298_dbl_kind, 0.8933714552944_dbl_kind, 0.895391970560879_dbl_kind, 0.906341316605669_dbl_kind, 0.948872960646107_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,258) = (/ 0.890618248827944_dbl_kind, 0.893377049805833_dbl_kind, 0.895401684942586_dbl_kind, 0.906370601035144_dbl_kind, 0.948944849274153_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,259) = (/ 0.89062132737752_dbl_kind, 0.893382614285244_dbl_kind, 0.89541137001504_dbl_kind, 0.906399790704358_dbl_kind, 0.949016442967102_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,260) = (/ 0.890624384012631_dbl_kind, 0.893388149027681_dbl_kind, 0.895421025947395_dbl_kind, 0.906428886195106_dbl_kind, 0.949087743523997_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,261) = (/ 0.890627419000288_dbl_kind, 0.89339365432176_dbl_kind, 0.895430652903798_dbl_kind, 0.906457888082877_dbl_kind, 0.949158752727763_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,262) = (/ 0.890630432603627_dbl_kind, 0.893399130449832_dbl_kind, 0.89544025104361_dbl_kind, 0.906486796937009_dbl_kind, 0.949229472345416_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,263) = (/ 0.890633425081963_dbl_kind, 0.893404577688137_dbl_kind, 0.895449820521624_dbl_kind, 0.906515613320838_dbl_kind, 0.949299904128278_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,264) = (/ 0.890636396690826_dbl_kind, 0.893409996306965_dbl_kind, 0.895459361488266_dbl_kind, 0.906544337791848_dbl_kind, 0.94937004981218_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,265) = (/ 0.890639347682012_dbl_kind, 0.893415386570807_dbl_kind, 0.895468874089801_dbl_kind, 0.906572970901807_dbl_kind, 0.949439911117666_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,266) = (/ 0.890642278303628_dbl_kind, 0.893420748738507_dbl_kind, 0.895478358468526_dbl_kind, 0.906601513196904_dbl_kind, 0.949509489750189_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,267) = (/ 0.89064518880013_dbl_kind, 0.893426083063409_dbl_kind, 0.89548781476296_dbl_kind, 0.906629965217883_dbl_kind, 0.949578787400303_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,268) = (/ 0.890648079412375_dbl_kind, 0.893431389793501_dbl_kind, 0.895497243108019_dbl_kind, 0.906658327500169_dbl_kind, 0.949647805743865_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,269) = (/ 0.890650950377661_dbl_kind, 0.893436669171556_dbl_kind, 0.895506643635198_dbl_kind, 0.906686600573986_dbl_kind, 0.949716546442204_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,270) = (/ 0.890653801929776_dbl_kind, 0.893441921435271_dbl_kind, 0.895516016472736_dbl_kind, 0.906714784964487_dbl_kind, 0.949785011142327_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,271) = (/ 0.890656634299036_dbl_kind, 0.893447146817406_dbl_kind, 0.895525361745779_dbl_kind, 0.906742881191855_dbl_kind, 0.949853201477077_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,272) = (/ 0.890659447712336_dbl_kind, 0.893452345545912_dbl_kind, 0.89553467957654_dbl_kind, 0.906770889771425_dbl_kind, 0.949921119065326_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,273) = (/ 0.890662242393189_dbl_kind, 0.893457517844062_dbl_kind, 0.895543970084447_dbl_kind, 0.906798811213786_dbl_kind, 0.949988765512144_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,274) = (/ 0.890665018561774_dbl_kind, 0.893462663930581_dbl_kind, 0.895553233386291_dbl_kind, 0.906826646024887_dbl_kind, 0.950056142408963_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,275) = (/ 0.890667776434978_dbl_kind, 0.893467784019767_dbl_kind, 0.895562469596366_dbl_kind, 0.906854394706134_dbl_kind, 0.95012325133376_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,276) = (/ 0.89067051622644_dbl_kind, 0.893472878321614_dbl_kind, 0.895571678826604_dbl_kind, 0.906882057754493_dbl_kind, 0.950190093851205_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,277) = (/ 0.890673238146594_dbl_kind, 0.893477947041932_dbl_kind, 0.895580861186707_dbl_kind, 0.906909635662573_dbl_kind, 0.950256671512831_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,278) = (/ 0.890675942402715_dbl_kind, 0.89348299038246_dbl_kind, 0.895590016784269_dbl_kind, 0.906937128918729_dbl_kind, 0.950322985857199_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,279) = (/ 0.890678629198958_dbl_kind, 0.893488008540983_dbl_kind, 0.895599145724898_dbl_kind, 0.906964538007141_dbl_kind, 0.950389038410037_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,280) = (/ 0.890681298736405_dbl_kind, 0.89349300171144_dbl_kind, 0.895608248112332_dbl_kind, 0.906991863407902_dbl_kind, 0.950454830684409_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,281) = (/ 0.890683951213107_dbl_kind, 0.893497970084034_dbl_kind, 0.89561732404855_dbl_kind, 0.907019105597098_dbl_kind, 0.950520364180862_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,282) = (/ 0.890686586824124_dbl_kind, 0.893502913845336_dbl_kind, 0.895626373633877_dbl_kind, 0.907046265046888_dbl_kind, 0.950585640387567_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,283) = (/ 0.890689205761571_dbl_kind, 0.89350783317839_dbl_kind, 0.895635396967087_dbl_kind, 0.90707334222558_dbl_kind, 0.950650660780472_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,284) = (/ 0.890691808214656_dbl_kind, 0.893512728262813_dbl_kind, 0.895644394145503_dbl_kind, 0.907100337597706_dbl_kind, 0.950715426823444_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,285) = (/ 0.890694394369728_dbl_kind, 0.893517599274892_dbl_kind, 0.895653365265087_dbl_kind, 0.907127251624091_dbl_kind, 0.95077993996841_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,286) = (/ 0.89069696441031_dbl_kind, 0.893522446387682_dbl_kind, 0.895662310420533_dbl_kind, 0.907154084761925_dbl_kind, 0.950844201655489_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,287) = (/ 0.890699518517147_dbl_kind, 0.893527269771097_dbl_kind, 0.895671229705351_dbl_kind, 0.907180837464827_dbl_kind, 0.950908213313136_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,288) = (/ 0.890702056868247_dbl_kind, 0.893532069592002_dbl_kind, 0.895680123211953_dbl_kind, 0.907207510182909_dbl_kind, 0.950971976358275_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,289) = (/ 0.890704579638915_dbl_kind, 0.893536846014303_dbl_kind, 0.895688991031725_dbl_kind, 0.907234103362845_dbl_kind, 0.951035492196426_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,290) = (/ 0.890707087001801_dbl_kind, 0.893541599199031_dbl_kind, 0.89569783325511_dbl_kind, 0.907260617447922_dbl_kind, 0.951098762221836_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,291) = (/ 0.890709579126936_dbl_kind, 0.89354632930443_dbl_kind, 0.895706649971673_dbl_kind, 0.907287052878104_dbl_kind, 0.951161787817607_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,292) = (/ 0.890712056181773_dbl_kind, 0.893551036486034_dbl_kind, 0.895715441270175_dbl_kind, 0.90731341009009_dbl_kind, 0.951224570355825_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,293) = (/ 0.890714518331224_dbl_kind, 0.893555720896752_dbl_kind, 0.895724207238634_dbl_kind, 0.907339689517365_dbl_kind, 0.951287111197675_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,294) = (/ 0.890716965737701_dbl_kind, 0.893560382686943_dbl_kind, 0.895732947964389_dbl_kind, 0.907365891590251_dbl_kind, 0.95134941169357_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,295) = (/ 0.890719398561154_dbl_kind, 0.893565022004492_dbl_kind, 0.895741663534162_dbl_kind, 0.907392016735967_dbl_kind, 0.95141147318327_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,296) = (/ 0.890721816959114_dbl_kind, 0.893569638994883_dbl_kind, 0.895750354034107_dbl_kind, 0.907418065378669_dbl_kind, 0.951473296995985_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,297) = (/ 0.890724221086719_dbl_kind, 0.893574233801275_dbl_kind, 0.895759019549874_dbl_kind, 0.907444037939506_dbl_kind, 0.951534884450519_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,298) = (/ 0.890726611096764_dbl_kind, 0.893578806564567_dbl_kind, 0.895767660166648_dbl_kind, 0.907469934836658_dbl_kind, 0.951596236855355_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,299) = (/ 0.890728987139732_dbl_kind, 0.893583357423466_dbl_kind, 0.895776275969209_dbl_kind, 0.90749575648539_dbl_kind, 0.951657355508784_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,300) = (/ 0.890731349363831_dbl_kind, 0.893587886514558_dbl_kind, 0.895784867041969_dbl_kind, 0.907521503298091_dbl_kind, 0.951718241699009_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,301) = (/ 0.89073369791503_dbl_kind, 0.893592393972367_dbl_kind, 0.89579343346902_dbl_kind, 0.907547175684316_dbl_kind, 0.951778896704261_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,302) = (/ 0.890736032937098_dbl_kind, 0.893596879929419_dbl_kind, 0.895801975334173_dbl_kind, 0.907572774050828_dbl_kind, 0.951839321792894_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,303) = (/ 0.890738354571636_dbl_kind, 0.893601344516303_dbl_kind, 0.895810492720997_dbl_kind, 0.907598298801638_dbl_kind, 0.951899518223498_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,304) = (/ 0.890740662958114_dbl_kind, 0.893605787861732_dbl_kind, 0.895818985712859_dbl_kind, 0.907623750338047_dbl_kind, 0.951959487245005_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,305) = (/ 0.890742958233905_dbl_kind, 0.893610210092596_dbl_kind, 0.895827454392951_dbl_kind, 0.907649129058673_dbl_kind, 0.952019230096788_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,306) = (/ 0.890745240534321_dbl_kind, 0.893614611334018_dbl_kind, 0.895835898844331_dbl_kind, 0.907674435359502_dbl_kind, 0.952078748008758_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,307) = (/ 0.890747509992643_dbl_kind, 0.893618991709415_dbl_kind, 0.895844319149949_dbl_kind, 0.907699669633909_dbl_kind, 0.952138042201471_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,308) = (/ 0.890749766740158_dbl_kind, 0.89362335134054_dbl_kind, 0.895852715392676_dbl_kind, 0.907724832272704_dbl_kind, 0.952197113886219_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,309) = (/ 0.890752010906192_dbl_kind, 0.893627690347541_dbl_kind, 0.895861087655332_dbl_kind, 0.907749923664156_dbl_kind, 0.952255964265132_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,310) = (/ 0.890754242618139_dbl_kind, 0.893632008849004_dbl_kind, 0.895869436020708_dbl_kind, 0.907774944194034_dbl_kind, 0.952314594531271_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,311) = (/ 0.890756462001498_dbl_kind, 0.893636306962009_dbl_kind, 0.895877760571597_dbl_kind, 0.907799894245628_dbl_kind, 0.95237300586872_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,312) = (/ 0.890758669179901_dbl_kind, 0.893640584802167_dbl_kind, 0.895886061390807_dbl_kind, 0.907824774199791_dbl_kind, 0.952431199452679_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,313) = (/ 0.890760864275148_dbl_kind, 0.893644842483671_dbl_kind, 0.895894338561189_dbl_kind, 0.907849584434959_dbl_kind, 0.952489176449556_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,314) = (/ 0.890763047407233_dbl_kind, 0.89364908011934_dbl_kind, 0.895902592165651_dbl_kind, 0.907874325327185_dbl_kind, 0.952546938017058_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,315) = (/ 0.890765218694378_dbl_kind, 0.893653297820657_dbl_kind, 0.895910822287176_dbl_kind, 0.907898997250166_dbl_kind, 0.952604485304275_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,316) = (/ 0.890767378253065_dbl_kind, 0.893657495697814_dbl_kind, 0.895919029008843_dbl_kind, 0.907923600575269_dbl_kind, 0.952661819451771_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,317) = (/ 0.890769526198059_dbl_kind, 0.893661673859751_dbl_kind, 0.895927212413834_dbl_kind, 0.907948135671559_dbl_kind, 0.952718941591673_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,318) = (/ 0.890771662642443_dbl_kind, 0.893665832414191_dbl_kind, 0.895935372585457_dbl_kind, 0.907972602905825_dbl_kind, 0.95277585284775_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,319) = (/ 0.890773787697645_dbl_kind, 0.893669971467683_dbl_kind, 0.895943509607149_dbl_kind, 0.907997002642603_dbl_kind, 0.95283255433549_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,320) = (/ 0.890775901473467_dbl_kind, 0.893674091125633_dbl_kind, 0.895951623562495_dbl_kind, 0.908021335244203_dbl_kind, 0.952889047162205_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,321) = (/ 0.890778004078111_dbl_kind, 0.893678191492343_dbl_kind, 0.895959714535234_dbl_kind, 0.908045601070731_dbl_kind, 0.952945332427089_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,322) = (/ 0.890780095618208_dbl_kind, 0.893682272671041_dbl_kind, 0.895967782609272_dbl_kind, 0.908069800480115_dbl_kind, 0.953001411221312_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,323) = (/ 0.890782176198846_dbl_kind, 0.893686334763916_dbl_kind, 0.895975827868684_dbl_kind, 0.908093933828122_dbl_kind, 0.953057284628095_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,324) = (/ 0.890784245923595_dbl_kind, 0.893690377872151_dbl_kind, 0.895983850397729_dbl_kind, 0.908118001468386_dbl_kind, 0.953112953722786_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,325) = (/ 0.890786304894532_dbl_kind, 0.89369440209595_dbl_kind, 0.89599185028085_dbl_kind, 0.908142003752429_dbl_kind, 0.953168419572941_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,326) = (/ 0.890788353212271_dbl_kind, 0.893698407534569_dbl_kind, 0.895999827602683_dbl_kind, 0.908165941029678_dbl_kind, 0.953223683238401_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,327) = (/ 0.890790390975987_dbl_kind, 0.893702394286346_dbl_kind, 0.896007782448063_dbl_kind, 0.908189813647487_dbl_kind, 0.95327874577136_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,328) = (/ 0.890792418283437_dbl_kind, 0.893706362448728_dbl_kind, 0.896015714902023_dbl_kind, 0.908213621951161_dbl_kind, 0.953333608216449_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,329) = (/ 0.89079443523099_dbl_kind, 0.893710312118298_dbl_kind, 0.896023625049802_dbl_kind, 0.90823736628397_dbl_kind, 0.953388271610799_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,330) = (/ 0.890796441913649_dbl_kind, 0.893714243390797_dbl_kind, 0.896031512976845_dbl_kind, 0.908261046987171_dbl_kind, 0.953442736984121_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,331) = (/ 0.890798438425073_dbl_kind, 0.893718156361155_dbl_kind, 0.896039378768807_dbl_kind, 0.908284664400028_dbl_kind, 0.953497005358774_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,332) = (/ 0.890800424857606_dbl_kind, 0.893722051123511_dbl_kind, 0.896047222511551_dbl_kind, 0.908308218859826_dbl_kind, 0.953551077749837_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,333) = (/ 0.890802401302293_dbl_kind, 0.893725927771238_dbl_kind, 0.896055044291151_dbl_kind, 0.908331710701893_dbl_kind, 0.953604955165176_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,334) = (/ 0.890804367848906_dbl_kind, 0.893729786396966_dbl_kind, 0.896062844193893_dbl_kind, 0.908355140259615_dbl_kind, 0.953658638605515_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,335) = (/ 0.890806324585969_dbl_kind, 0.893733627092599_dbl_kind, 0.89607062230627_dbl_kind, 0.908378507864455_dbl_kind, 0.953712129064504_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,336) = (/ 0.890808271600774_dbl_kind, 0.893737449949343_dbl_kind, 0.896078378714986_dbl_kind, 0.908401813845968_dbl_kind, 0.953765427528779_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,337) = (/ 0.890810208979408_dbl_kind, 0.893741255057719_dbl_kind, 0.896086113506953_dbl_kind, 0.908425058531816_dbl_kind, 0.953818534978042_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,338) = (/ 0.890812136806771_dbl_kind, 0.893745042507589_dbl_kind, 0.896093826769286_dbl_kind, 0.90844824224779_dbl_kind, 0.953871452385111_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,339) = (/ 0.890814055166596_dbl_kind, 0.893748812388171_dbl_kind, 0.896101518589306_dbl_kind, 0.908471365317818_dbl_kind, 0.953924180715994_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,340) = (/ 0.890815964141473_dbl_kind, 0.893752564788056_dbl_kind, 0.896109189054532_dbl_kind, 0.908494428063985_dbl_kind, 0.953976720929953_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,341) = (/ 0.890817863812866_dbl_kind, 0.893756299795227_dbl_kind, 0.89611683825268_dbl_kind, 0.908517430806549_dbl_kind, 0.954029073979559_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,342) = (/ 0.890819754261132_dbl_kind, 0.893760017497078_dbl_kind, 0.896124466271661_dbl_kind, 0.908540373863951_dbl_kind, 0.954081240810759_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,343) = (/ 0.890821635565545_dbl_kind, 0.893763717980426_dbl_kind, 0.896132073199575_dbl_kind, 0.908563257552833_dbl_kind, 0.954133222362943_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,344) = (/ 0.890823507804309_dbl_kind, 0.893767401331528_dbl_kind, 0.896139659124706_dbl_kind, 0.908586082188052_dbl_kind, 0.954185019568989_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,345) = (/ 0.89082537105458_dbl_kind, 0.893771067636096_dbl_kind, 0.896147224135521_dbl_kind, 0.908608848082693_dbl_kind, 0.954236633355345_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,346) = (/ 0.890827225392486_dbl_kind, 0.893774716979314_dbl_kind, 0.89615476832066_dbl_kind, 0.908631555548083_dbl_kind, 0.954288064642065_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,347) = (/ 0.890829070893139_dbl_kind, 0.893778349445847_dbl_kind, 0.896162291768937_dbl_kind, 0.908654204893804_dbl_kind, 0.954339314342882_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,348) = (/ 0.890830907630657_dbl_kind, 0.893781965119856_dbl_kind, 0.89616979456933_dbl_kind, 0.908676796427707_dbl_kind, 0.954390383365264_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,349) = (/ 0.890832735678183_dbl_kind, 0.893785564085015_dbl_kind, 0.896177276810976_dbl_kind, 0.908699330455922_dbl_kind, 0.954441272610464_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,350) = (/ 0.890834555107896_dbl_kind, 0.893789146424516_dbl_kind, 0.89618473858317_dbl_kind, 0.908721807282878_dbl_kind, 0.954491982973588_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,351) = (/ 0.890836365991034_dbl_kind, 0.893792712221085_dbl_kind, 0.896192179975351_dbl_kind, 0.908744227211306_dbl_kind, 0.954542515343638_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,352) = (/ 0.890838168397903_dbl_kind, 0.893796261556996_dbl_kind, 0.896199601077102_dbl_kind, 0.908766590542255_dbl_kind, 0.954592870603572_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,353) = (/ 0.890839962397902_dbl_kind, 0.893799794514074_dbl_kind, 0.896207001978142_dbl_kind, 0.908788897575108_dbl_kind, 0.954643049630368_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,354) = (/ 0.890841748059531_dbl_kind, 0.893803311173712_dbl_kind, 0.896214382768321_dbl_kind, 0.908811148607589_dbl_kind, 0.95469305329506_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,355) = (/ 0.89084352545041_dbl_kind, 0.893806811616881_dbl_kind, 0.896221743537608_dbl_kind, 0.908833343935775_dbl_kind, 0.954742882462802_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,356) = (/ 0.890845294637294_dbl_kind, 0.893810295924135_dbl_kind, 0.896229084376092_dbl_kind, 0.908855483854109_dbl_kind, 0.954792537992923_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,357) = (/ 0.890847055686085_dbl_kind, 0.893813764175623_dbl_kind, 0.896236405373971_dbl_kind, 0.908877568655412_dbl_kind, 0.954842020738972_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,358) = (/ 0.890848808661852_dbl_kind, 0.8938172164511_dbl_kind, 0.896243706621541_dbl_kind, 0.908899598630891_dbl_kind, 0.954891331548773_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,359) = (/ 0.890850553628839_dbl_kind, 0.893820652829931_dbl_kind, 0.896250988209201_dbl_kind, 0.908921574070151_dbl_kind, 0.954940471264469_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,360) = (/ 0.890852290650483_dbl_kind, 0.893824073391102_dbl_kind, 0.896258250227431_dbl_kind, 0.908943495261208_dbl_kind, 0.95498944072259_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,361) = (/ 0.890854019789427_dbl_kind, 0.893827478213228_dbl_kind, 0.896265492766797_dbl_kind, 0.908965362490495_dbl_kind, 0.955038240754077_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,362) = (/ 0.890855741107532_dbl_kind, 0.893830867374557_dbl_kind, 0.896272715917938_dbl_kind, 0.908987176042878_dbl_kind, 0.955086872184355_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,363) = (/ 0.89085745466589_dbl_kind, 0.893834240952982_dbl_kind, 0.896279919771557_dbl_kind, 0.909008936201661_dbl_kind, 0.955135335833363_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,364) = (/ 0.890859160524842_dbl_kind, 0.893837599026044_dbl_kind, 0.89628710441842_dbl_kind, 0.909030643248597_dbl_kind, 0.955183632515618_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,365) = (/ 0.890860858743981_dbl_kind, 0.893840941670941_dbl_kind, 0.896294269949344_dbl_kind, 0.909052297463903_dbl_kind, 0.955231763040245_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,366) = (/ 0.890862549382174_dbl_kind, 0.893844268964533_dbl_kind, 0.896301416455189_dbl_kind, 0.909073899126263_dbl_kind, 0.95527972821104_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,367) = (/ 0.890864232497568_dbl_kind, 0.893847580983346_dbl_kind, 0.896308544026855_dbl_kind, 0.90909544851284_dbl_kind, 0.955327528826511_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,368) = (/ 0.890865908147604_dbl_kind, 0.893850877803583_dbl_kind, 0.896315652755269_dbl_kind, 0.909116945899286_dbl_kind, 0.955375165679916_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,369) = (/ 0.89086757638903_dbl_kind, 0.893854159501124_dbl_kind, 0.896322742731383_dbl_kind, 0.909138391559753_dbl_kind, 0.955422639559315_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,370) = (/ 0.890869237277909_dbl_kind, 0.893857426151535_dbl_kind, 0.896329814046162_dbl_kind, 0.909159785766897_dbl_kind, 0.955469951247623_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,371) = (/ 0.890870890869633_dbl_kind, 0.89386067783007_dbl_kind, 0.896336866790581_dbl_kind, 0.909181128791892_dbl_kind, 0.955517101522638_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,372) = (/ 0.890872537218933_dbl_kind, 0.893863914611678_dbl_kind, 0.896343901055613_dbl_kind, 0.909202420904438_dbl_kind, 0.955564091157094_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,373) = (/ 0.890874176379889_dbl_kind, 0.893867136571005_dbl_kind, 0.896350916932224_dbl_kind, 0.909223662372766_dbl_kind, 0.955610920918704_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,374) = (/ 0.890875808405942_dbl_kind, 0.893870343782402_dbl_kind, 0.896357914511367_dbl_kind, 0.909244853463653_dbl_kind, 0.955657591570203_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,375) = (/ 0.890877433349905_dbl_kind, 0.893873536319926_dbl_kind, 0.896364893883973_dbl_kind, 0.909265994442424_dbl_kind, 0.955704103869385_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,376) = (/ 0.890879051263969_dbl_kind, 0.893876714257345_dbl_kind, 0.896371855140943_dbl_kind, 0.909287085572966_dbl_kind, 0.955750458569156_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,377) = (/ 0.890880662199716_dbl_kind, 0.893879877668141_dbl_kind, 0.896378798373141_dbl_kind, 0.909308127117733_dbl_kind, 0.955796656417567_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,378) = (/ 0.89088226620813_dbl_kind, 0.893883026625515_dbl_kind, 0.896385723671391_dbl_kind, 0.909329119337754_dbl_kind, 0.955842698157851_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,379) = (/ 0.890883863339603_dbl_kind, 0.893886161202389_dbl_kind, 0.89639263112646_dbl_kind, 0.909350062492643_dbl_kind, 0.955888584528478_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,380) = (/ 0.890885453643947_dbl_kind, 0.89388928147141_dbl_kind, 0.896399520829063_dbl_kind, 0.909370956840607_dbl_kind, 0.955934316263182_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,381) = (/ 0.890887037170401_dbl_kind, 0.893892387504952_dbl_kind, 0.896406392869849_dbl_kind, 0.909391802638453_dbl_kind, 0.955979894091005_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,382) = (/ 0.890888613967643_dbl_kind, 0.89389547937512_dbl_kind, 0.896413247339391_dbl_kind, 0.909412600141593_dbl_kind, 0.956025318736338_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,383) = (/ 0.890890184083795_dbl_kind, 0.893898557153753_dbl_kind, 0.896420084328189_dbl_kind, 0.909433349604058_dbl_kind, 0.956070590918965_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,384) = (/ 0.890891747566435_dbl_kind, 0.893901620912426_dbl_kind, 0.896426903926652_dbl_kind, 0.909454051278501_dbl_kind, 0.956115711354084_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,385) = (/ 0.890893304462601_dbl_kind, 0.89390467072245_dbl_kind, 0.8964337062251_dbl_kind, 0.909474705416207_dbl_kind, 0.956160680752364_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,386) = (/ 0.890894854818805_dbl_kind, 0.893907706654879_dbl_kind, 0.896440491313751_dbl_kind, 0.909495312267095_dbl_kind, 0.956205499819975_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,387) = (/ 0.890896398681037_dbl_kind, 0.893910728780511_dbl_kind, 0.896447259282719_dbl_kind, 0.909515872079735_dbl_kind, 0.956250169258624_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,388) = (/ 0.890897936094773_dbl_kind, 0.893913737169885_dbl_kind, 0.896454010222005_dbl_kind, 0.909536385101346_dbl_kind, 0.956294689765591_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,389) = (/ 0.890899467104985_dbl_kind, 0.893916731893292_dbl_kind, 0.896460744221489_dbl_kind, 0.909556851577808_dbl_kind, 0.956339062033775_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,390) = (/ 0.890900991756147_dbl_kind, 0.893919713020768_dbl_kind, 0.896467461370926_dbl_kind, 0.909577271753669_dbl_kind, 0.956383286751714_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,391) = (/ 0.890902510092243_dbl_kind, 0.893922680622103_dbl_kind, 0.89647416175994_dbl_kind, 0.909597645872149_dbl_kind, 0.956427364603642_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,392) = (/ 0.890904022156773_dbl_kind, 0.893925634766835_dbl_kind, 0.896480845478015_dbl_kind, 0.909617974175151_dbl_kind, 0.956471296269497_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,393) = (/ 0.890905527992762_dbl_kind, 0.893928575524261_dbl_kind, 0.896487512614492_dbl_kind, 0.909638256903265_dbl_kind, 0.956515082424984_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,394) = (/ 0.890907027642765_dbl_kind, 0.89393150296343_dbl_kind, 0.896494163258557_dbl_kind, 0.909658494295776_dbl_kind, 0.956558723741594_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,395) = (/ 0.890908521148877_dbl_kind, 0.89393441715315_dbl_kind, 0.896500797499245_dbl_kind, 0.909678686590669_dbl_kind, 0.956602220886638_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,396) = (/ 0.890910008552735_dbl_kind, 0.893937318161986_dbl_kind, 0.896507415425424_dbl_kind, 0.90969883402464_dbl_kind, 0.956645574523288_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,397) = (/ 0.890911489895531_dbl_kind, 0.893940206058264_dbl_kind, 0.896514017125792_dbl_kind, 0.909718936833096_dbl_kind, 0.956688785310607_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,398) = (/ 0.890912965218012_dbl_kind, 0.893943080910068_dbl_kind, 0.896520602688876_dbl_kind, 0.909738995250167_dbl_kind, 0.956731853903579_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,399) = (/ 0.890914434560489_dbl_kind, 0.893945942785247_dbl_kind, 0.89652717220302_dbl_kind, 0.909759009508714_dbl_kind, 0.956774780953149_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,400) = (/ 0.890915897962846_dbl_kind, 0.89394879175141_dbl_kind, 0.896533725756382_dbl_kind, 0.909778979840324_dbl_kind, 0.95681756710625_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,401) = (/ 0.890917355464538_dbl_kind, 0.893951627875934_dbl_kind, 0.896540263436928_dbl_kind, 0.909798906475331_dbl_kind, 0.956860213005839_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,402) = (/ 0.89091880710461_dbl_kind, 0.893954451225956_dbl_kind, 0.896546785332427_dbl_kind, 0.909818789642814_dbl_kind, 0.956902719290926_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,403) = (/ 0.890920252921689_dbl_kind, 0.893957261868383_dbl_kind, 0.896553291530446_dbl_kind, 0.909838629570604_dbl_kind, 0.956945086596606_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,404) = (/ 0.890921692953997_dbl_kind, 0.893960059869885_dbl_kind, 0.896559782118342_dbl_kind, 0.90985842648529_dbl_kind, 0.956987315554091_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,405) = (/ 0.890923127239359_dbl_kind, 0.893962845296903_dbl_kind, 0.896566257183262_dbl_kind, 0.909878180612229_dbl_kind, 0.957029406790746_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,406) = (/ 0.890924555815203_dbl_kind, 0.893965618215642_dbl_kind, 0.89657271681213_dbl_kind, 0.909897892175547_dbl_kind, 0.957071360930106_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,407) = (/ 0.890925978718565_dbl_kind, 0.89396837869208_dbl_kind, 0.896579161091652_dbl_kind, 0.909917561398149_dbl_kind, 0.957113178591925_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,408) = (/ 0.890927395986101_dbl_kind, 0.893971126791962_dbl_kind, 0.8965855901083_dbl_kind, 0.909937188501719_dbl_kind, 0.957154860392189_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,409) = (/ 0.890928807654086_dbl_kind, 0.893973862580803_dbl_kind, 0.896592003948316_dbl_kind, 0.909956773706734_dbl_kind, 0.957196406943157_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,410) = (/ 0.890930213758422_dbl_kind, 0.89397658612389_dbl_kind, 0.896598402697703_dbl_kind, 0.909976317232464_dbl_kind, 0.957237818853385_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,411) = (/ 0.89093161433464_dbl_kind, 0.89397929748628_dbl_kind, 0.896604786442223_dbl_kind, 0.909995819296982_dbl_kind, 0.957279096727756_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,412) = (/ 0.890933009417912_dbl_kind, 0.893981996732802_dbl_kind, 0.896611155267386_dbl_kind, 0.910015280117163_dbl_kind, 0.957320241167512_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,413) = (/ 0.890934399043045_dbl_kind, 0.893984683928057_dbl_kind, 0.896617509258454_dbl_kind, 0.910034699908697_dbl_kind, 0.957361252770279_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,414) = (/ 0.890935783244496_dbl_kind, 0.893987359136419_dbl_kind, 0.896623848500433_dbl_kind, 0.910054078886091_dbl_kind, 0.957402132130096_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,415) = (/ 0.890937162056371_dbl_kind, 0.893990022422036_dbl_kind, 0.896630173078065_dbl_kind, 0.910073417262677_dbl_kind, 0.957442879837445_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,416) = (/ 0.890938535512431_dbl_kind, 0.893992673848826_dbl_kind, 0.896636483075829_dbl_kind, 0.910092715250613_dbl_kind, 0.957483496479276_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,417) = (/ 0.890939903646096_dbl_kind, 0.893995313480486_dbl_kind, 0.896642778577935_dbl_kind, 0.910111973060892_dbl_kind, 0.957523982639039_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,418) = (/ 0.890941266490451_dbl_kind, 0.893997941380481_dbl_kind, 0.896649059668318_dbl_kind, 0.91013119090335_dbl_kind, 0.957564338896703_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,419) = (/ 0.890942624078248_dbl_kind, 0.894000557612057_dbl_kind, 0.896655326430639_dbl_kind, 0.910150368986665_dbl_kind, 0.957604565828794_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,420) = (/ 0.890943976441913_dbl_kind, 0.894003162238229_dbl_kind, 0.896661578948275_dbl_kind, 0.910169507518367_dbl_kind, 0.957644664008414_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,421) = (/ 0.890945323613548_dbl_kind, 0.894005755321791_dbl_kind, 0.896667817304318_dbl_kind, 0.910188606704842_dbl_kind, 0.957684634005265_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,422) = (/ 0.890946665624935_dbl_kind, 0.894008336925311_dbl_kind, 0.896674041581575_dbl_kind, 0.910207666751338_dbl_kind, 0.957724476385684_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,423) = (/ 0.890948002507541_dbl_kind, 0.894010907111131_dbl_kind, 0.896680251862554_dbl_kind, 0.91022668786197_dbl_kind, 0.957764191712667_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,424) = (/ 0.890949334292523_dbl_kind, 0.894013465941372_dbl_kind, 0.896686448229474_dbl_kind, 0.910245670239725_dbl_kind, 0.957803780545883_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,425) = (/ 0.89095066101073_dbl_kind, 0.894016013477929_dbl_kind, 0.896692630764251_dbl_kind, 0.910264614086467_dbl_kind, 0.95784324344172_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,426) = (/ 0.890951982692707_dbl_kind, 0.894018549782474_dbl_kind, 0.896698799548497_dbl_kind, 0.910283519602942_dbl_kind, 0.957882580953291_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,427) = (/ 0.8909532993687_dbl_kind, 0.894021074916454_dbl_kind, 0.896704954663522_dbl_kind, 0.910302386988786_dbl_kind, 0.957921793630468_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,428) = (/ 0.890954611068659_dbl_kind, 0.894023588941097_dbl_kind, 0.896711096190322_dbl_kind, 0.910321216442527_dbl_kind, 0.957960882019909_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,429) = (/ 0.890955917822242_dbl_kind, 0.894026091917402_dbl_kind, 0.896717224209585_dbl_kind, 0.910340008161589_dbl_kind, 0.957999846665076_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,430) = (/ 0.890957219658817_dbl_kind, 0.89402858390615_dbl_kind, 0.896723338801681_dbl_kind, 0.910358762342302_dbl_kind, 0.958038688106262_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,431) = (/ 0.890958516607469_dbl_kind, 0.894031064967897_dbl_kind, 0.89672944004666_dbl_kind, 0.910377479179905_dbl_kind, 0.958077406880616_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,432) = (/ 0.890959808696999_dbl_kind, 0.894033535162977_dbl_kind, 0.896735528024254_dbl_kind, 0.910396158868547_dbl_kind, 0.958116003522167_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,433) = (/ 0.89096109595593_dbl_kind, 0.894035994551503_dbl_kind, 0.89674160281387_dbl_kind, 0.910414801601297_dbl_kind, 0.958154478561845_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,434) = (/ 0.890962378412512_dbl_kind, 0.894038443193362_dbl_kind, 0.896747664494586_dbl_kind, 0.910433407570148_dbl_kind, 0.958192832527505_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,435) = (/ 0.890963656094722_dbl_kind, 0.894040881148224_dbl_kind, 0.896753713145151_dbl_kind, 0.91045197696602_dbl_kind, 0.958231065943955_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,436) = (/ 0.890964929030268_dbl_kind, 0.894043308475533_dbl_kind, 0.896759748843983_dbl_kind, 0.910470509978768_dbl_kind, 0.95826917933297_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,437) = (/ 0.890966197246594_dbl_kind, 0.894045725234513_dbl_kind, 0.896765771669166_dbl_kind, 0.910489006797183_dbl_kind, 0.958307173213327_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,438) = (/ 0.890967460770881_dbl_kind, 0.894048131484167_dbl_kind, 0.896771781698444_dbl_kind, 0.910507467609002_dbl_kind, 0.958345048100811_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,439) = (/ 0.890968719630053_dbl_kind, 0.894050527283276_dbl_kind, 0.896777779009223_dbl_kind, 0.910525892600908_dbl_kind, 0.958382804508251_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,440) = (/ 0.890969973850776_dbl_kind, 0.8940529126904_dbl_kind, 0.896783763678568_dbl_kind, 0.910544281958536_dbl_kind, 0.958420442945538_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,441) = (/ 0.890971223459464_dbl_kind, 0.894055287763877_dbl_kind, 0.8967897357832_dbl_kind, 0.910562635866481_dbl_kind, 0.958457963919645_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,442) = (/ 0.890972468482282_dbl_kind, 0.894057652561827_dbl_kind, 0.896795695399492_dbl_kind, 0.910580954508299_dbl_kind, 0.95849536793465_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,443) = (/ 0.890973708945147_dbl_kind, 0.894060007142145_dbl_kind, 0.896801642603471_dbl_kind, 0.910599238066513_dbl_kind, 0.958532655491757_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,444) = (/ 0.890974944873733_dbl_kind, 0.894062351562508_dbl_kind, 0.896807577470813_dbl_kind, 0.91061748672262_dbl_kind, 0.958569827089319_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,445) = (/ 0.890976176293472_dbl_kind, 0.894064685880372_dbl_kind, 0.896813500076841_dbl_kind, 0.910635700657092_dbl_kind, 0.958606883222854_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,446) = (/ 0.890977403229557_dbl_kind, 0.894067010152973_dbl_kind, 0.896819410496527_dbl_kind, 0.910653880049384_dbl_kind, 0.958643824385075_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,447) = (/ 0.890978625706948_dbl_kind, 0.894069324437328_dbl_kind, 0.896825308804484_dbl_kind, 0.910672025077935_dbl_kind, 0.958680651065901_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,448) = (/ 0.890979843750369_dbl_kind, 0.894071628790231_dbl_kind, 0.896831195074971_dbl_kind, 0.910690135920177_dbl_kind, 0.95871736375248_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,449) = (/ 0.890981057384317_dbl_kind, 0.894073923268258_dbl_kind, 0.896837069381885_dbl_kind, 0.910708212752539_dbl_kind, 0.958753962929216_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,450) = (/ 0.890982266633059_dbl_kind, 0.894076207927766_dbl_kind, 0.896842931798763_dbl_kind, 0.910726255750447_dbl_kind, 0.958790449077779_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,451) = (/ 0.890983471520638_dbl_kind, 0.894078482824892_dbl_kind, 0.896848782398784_dbl_kind, 0.910744265088334_dbl_kind, 0.958826822677133_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,452) = (/ 0.890984672070875_dbl_kind, 0.894080748015553_dbl_kind, 0.896854621254758_dbl_kind, 0.910762240939642_dbl_kind, 0.958863084203552_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,453) = (/ 0.89098586830737_dbl_kind, 0.894083003555448_dbl_kind, 0.896860448439134_dbl_kind, 0.910780183476828_dbl_kind, 0.958899234130638_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,454) = (/ 0.890987060253509_dbl_kind, 0.894085249500056_dbl_kind, 0.896866264023993_dbl_kind, 0.910798092871368_dbl_kind, 0.958935272929344_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,455) = (/ 0.890988247932458_dbl_kind, 0.894087485904637_dbl_kind, 0.896872068081049_dbl_kind, 0.910815969293761_dbl_kind, 0.958971201067993_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,456) = (/ 0.890989431367177_dbl_kind, 0.894089712824235_dbl_kind, 0.89687786068165_dbl_kind, 0.910833812913534_dbl_kind, 0.95900701901229_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,457) = (/ 0.89099061058041_dbl_kind, 0.894091930313673_dbl_kind, 0.896883641896771_dbl_kind, 0.910851623899248_dbl_kind, 0.959042727225353_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,458) = (/ 0.890991785594698_dbl_kind, 0.894094138427556_dbl_kind, 0.896889411797018_dbl_kind, 0.910869402418499_dbl_kind, 0.959078326167723_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,459) = (/ 0.890992956432374_dbl_kind, 0.894096337220272_dbl_kind, 0.896895170452626_dbl_kind, 0.910887148637927_dbl_kind, 0.95911381629738_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,460) = (/ 0.89099412311557_dbl_kind, 0.894098526745991_dbl_kind, 0.896900917933457_dbl_kind, 0.910904862723217_dbl_kind, 0.959149198069774_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,461) = (/ 0.890995285666217_dbl_kind, 0.894100707058666_dbl_kind, 0.896906654308999_dbl_kind, 0.910922544839106_dbl_kind, 0.959184471937828_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,462) = (/ 0.890996444106047_dbl_kind, 0.89410287821203_dbl_kind, 0.896912379648368_dbl_kind, 0.910940195149385_dbl_kind, 0.959219638351965_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,463) = (/ 0.890997598456597_dbl_kind, 0.894105040259602_dbl_kind, 0.896918094020302_dbl_kind, 0.910957813816905_dbl_kind, 0.959254697760127_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,464) = (/ 0.890998748739209_dbl_kind, 0.894107193254683_dbl_kind, 0.896923797493166_dbl_kind, 0.910975401003582_dbl_kind, 0.959289650607785_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,465) = (/ 0.890999894975036_dbl_kind, 0.894109337250356_dbl_kind, 0.896929490134949_dbl_kind, 0.910992956870402_dbl_kind, 0.959324497337963_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,466) = (/ 0.891001037185038_dbl_kind, 0.894111472299489_dbl_kind, 0.896935172013262_dbl_kind, 0.911010481577422_dbl_kind, 0.959359238391253_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,467) = (/ 0.891002175389989_dbl_kind, 0.894113598454734_dbl_kind, 0.896940843195338_dbl_kind, 0.911027975283777_dbl_kind, 0.959393874205835_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,468) = (/ 0.89100330961048_dbl_kind, 0.894115715768525_dbl_kind, 0.896946503748035_dbl_kind, 0.911045438147686_dbl_kind, 0.959428405217489_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,469) = (/ 0.891004439866916_dbl_kind, 0.894117824293081_dbl_kind, 0.89695215373783_dbl_kind, 0.911062870326453_dbl_kind, 0.959462831859614_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,470) = (/ 0.891005566179522_dbl_kind, 0.894119924080408_dbl_kind, 0.896957793230826_dbl_kind, 0.911080271976474_dbl_kind, 0.959497154563246_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,471) = (/ 0.891006688568344_dbl_kind, 0.894122015182293_dbl_kind, 0.896963422292741_dbl_kind, 0.911097643253239_dbl_kind, 0.959531373757078_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,472) = (/ 0.891007807053251_dbl_kind, 0.89412409765031_dbl_kind, 0.896969040988919_dbl_kind, 0.91111498431134_dbl_kind, 0.959565489867462_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,473) = (/ 0.891008921653938_dbl_kind, 0.894126171535817_dbl_kind, 0.896974649384324_dbl_kind, 0.91113229530447_dbl_kind, 0.959599503318449_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,474) = (/ 0.891010032389924_dbl_kind, 0.894128236889959_dbl_kind, 0.896980247543539_dbl_kind, 0.911149576385435_dbl_kind, 0.95963341453178_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,475) = (/ 0.891011139280561_dbl_kind, 0.894130293763665_dbl_kind, 0.896985835530768_dbl_kind, 0.911166827706149_dbl_kind, 0.95966722392692_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,476) = (/ 0.891012242345028_dbl_kind, 0.894132342207651_dbl_kind, 0.896991413409838_dbl_kind, 0.911184049417649_dbl_kind, 0.959700931921068_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,477) = (/ 0.891013341602339_dbl_kind, 0.894134382272419_dbl_kind, 0.896996981244193_dbl_kind, 0.911201241670087_dbl_kind, 0.959734538929171_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,478) = (/ 0.891014437071342_dbl_kind, 0.894136414008258_dbl_kind, 0.897002539096901_dbl_kind, 0.911218404612748_dbl_kind, 0.95976804536394_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,479) = (/ 0.891015528770722_dbl_kind, 0.894138437465243_dbl_kind, 0.897008087030648_dbl_kind, 0.911235538394041_dbl_kind, 0.959801451635865_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,480) = (/ 0.891016616719002_dbl_kind, 0.894140452693236_dbl_kind, 0.897013625107743_dbl_kind, 0.911252643161514_dbl_kind, 0.959834758153237_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,481) = (/ 0.891017700934544_dbl_kind, 0.894142459741888_dbl_kind, 0.897019153390114_dbl_kind, 0.911269719061852_dbl_kind, 0.959867965322156_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,482) = (/ 0.891018781435554_dbl_kind, 0.894144458660634_dbl_kind, 0.897024671939311_dbl_kind, 0.911286766240884_dbl_kind, 0.959901073546544_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,483) = (/ 0.891019858240079_dbl_kind, 0.894146449498702_dbl_kind, 0.897030180816508_dbl_kind, 0.911303784843586_dbl_kind, 0.95993408322817_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,484) = (/ 0.891020931366015_dbl_kind, 0.894148432305104_dbl_kind, 0.897035680082496_dbl_kind, 0.911320775014087_dbl_kind, 0.959966994766654_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,485) = (/ 0.891022000831104_dbl_kind, 0.894150407128642_dbl_kind, 0.897041169797693_dbl_kind, 0.91133773689567_dbl_kind, 0.959999808559492_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,486) = (/ 0.891023066652933_dbl_kind, 0.894152374017907_dbl_kind, 0.897046650022137_dbl_kind, 0.911354670630781_dbl_kind, 0.960032525002059_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,487) = (/ 0.891024128848947_dbl_kind, 0.89415433302128_dbl_kind, 0.897052120815489_dbl_kind, 0.911371576361029_dbl_kind, 0.960065144487631_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,488) = (/ 0.891025187436437_dbl_kind, 0.894156284186929_dbl_kind, 0.897057582237035_dbl_kind, 0.911388454227191_dbl_kind, 0.960097667407401_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,489) = (/ 0.891026242432551_dbl_kind, 0.894158227562815_dbl_kind, 0.897063034345685_dbl_kind, 0.911405304369219_dbl_kind, 0.960130094150485_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,490) = (/ 0.891027293854293_dbl_kind, 0.894160163196686_dbl_kind, 0.89706847719997_dbl_kind, 0.911422126926242_dbl_kind, 0.960162425103946_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,491) = (/ 0.891028341718523_dbl_kind, 0.894162091136083_dbl_kind, 0.897073910858053_dbl_kind, 0.91143892203657_dbl_kind, 0.960194660652801_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,492) = (/ 0.891029386041961_dbl_kind, 0.894164011428334_dbl_kind, 0.897079335377716_dbl_kind, 0.911455689837699_dbl_kind, 0.960226801180034_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,493) = (/ 0.891030426841186_dbl_kind, 0.894165924120563_dbl_kind, 0.897084750816372_dbl_kind, 0.911472430466314_dbl_kind, 0.960258847066616_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,494) = (/ 0.891031464132642_dbl_kind, 0.894167829259681_dbl_kind, 0.89709015723106_dbl_kind, 0.911489144058296_dbl_kind, 0.960290798691514_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,495) = (/ 0.891032497932633_dbl_kind, 0.894169726892394_dbl_kind, 0.897095554678445_dbl_kind, 0.911505830748723_dbl_kind, 0.960322656431706_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,496) = (/ 0.891033528257331_dbl_kind, 0.894171617065198_dbl_kind, 0.897100943214824_dbl_kind, 0.911522490671876_dbl_kind, 0.960354420662189_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,497) = (/ 0.891034555122776_dbl_kind, 0.894173499824381_dbl_kind, 0.897106322896122_dbl_kind, 0.911539123961243_dbl_kind, 0.960386091756007_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,498) = (/ 0.891035578544871_dbl_kind, 0.894175375216025_dbl_kind, 0.897111693777893_dbl_kind, 0.911555730749521_dbl_kind, 0.960417670084243_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,499) = (/ 0.891036598539395_dbl_kind, 0.894177243286005_dbl_kind, 0.897117055915326_dbl_kind, 0.911572311168624_dbl_kind, 0.960449156016051_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,500) = (/ 0.891037615121995_dbl_kind, 0.89417910407999_dbl_kind, 0.897122409363237_dbl_kind, 0.911588865349685_dbl_kind, 0.960480549918658_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,501) = (/ 0.891038628308191_dbl_kind, 0.894180957643439_dbl_kind, 0.89712775417608_dbl_kind, 0.911605393423059_dbl_kind, 0.960511852157379_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,502) = (/ 0.891039638113379_dbl_kind, 0.89418280402161_dbl_kind, 0.89713309040794_dbl_kind, 0.911621895518329_dbl_kind, 0.960543063095633_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,503) = (/ 0.891040644552828_dbl_kind, 0.894184643259553_dbl_kind, 0.897138418112539_dbl_kind, 0.911638371764309_dbl_kind, 0.960574183094953_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,504) = (/ 0.891041647641688_dbl_kind, 0.894186475402112_dbl_kind, 0.897143737343232_dbl_kind, 0.911654822289049_dbl_kind, 0.960605212514998_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,505) = (/ 0.891042647394983_dbl_kind, 0.894188300493928_dbl_kind, 0.897149048153016_dbl_kind, 0.911671247219839_dbl_kind, 0.960636151713565_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,506) = (/ 0.891043643827621_dbl_kind, 0.894190118579436_dbl_kind, 0.897154350594521_dbl_kind, 0.911687646683211_dbl_kind, 0.960667001046601_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,507) = (/ 0.891044636954388_dbl_kind, 0.894191929702867_dbl_kind, 0.897159644720021_dbl_kind, 0.911704020804948_dbl_kind, 0.960697760868222_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,508) = (/ 0.891045626789957_dbl_kind, 0.894193733908251_dbl_kind, 0.897164930581427_dbl_kind, 0.91172036971008_dbl_kind, 0.960728431530714_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,509) = (/ 0.891046613348882_dbl_kind, 0.894195531239409_dbl_kind, 0.897170208230292_dbl_kind, 0.911736693522897_dbl_kind, 0.960759013384554_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,510) = (/ 0.891047596645602_dbl_kind, 0.894197321739965_dbl_kind, 0.897175477717815_dbl_kind, 0.911752992366947_dbl_kind, 0.960789506778415_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,511) = (/ 0.891048576694445_dbl_kind, 0.894199105453335_dbl_kind, 0.897180739094835_dbl_kind, 0.911769266365042_dbl_kind, 0.960819912059184_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,512) = (/ 0.891049553509626_dbl_kind, 0.894200882422737_dbl_kind, 0.897185992411838_dbl_kind, 0.911785515639263_dbl_kind, 0.96085022957197_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,513) = (/ 0.89105052710525_dbl_kind, 0.894202652691185_dbl_kind, 0.897191237718956_dbl_kind, 0.911801740310961_dbl_kind, 0.960880459660115_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,514) = (/ 0.891051497495313_dbl_kind, 0.894204416301491_dbl_kind, 0.89719647506597_dbl_kind, 0.911817940500765_dbl_kind, 0.96091060266521_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,515) = (/ 0.8910524646937_dbl_kind, 0.894206173296267_dbl_kind, 0.89720170450231_dbl_kind, 0.911834116328581_dbl_kind, 0.960940658927101_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,516) = (/ 0.891053428714195_dbl_kind, 0.894207923717922_dbl_kind, 0.897206926077053_dbl_kind, 0.911850267913603_dbl_kind, 0.960970628783902_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,517) = (/ 0.89105438957047_dbl_kind, 0.894209667608668_dbl_kind, 0.897212139838933_dbl_kind, 0.911866395374309_dbl_kind, 0.961000512572007_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,518) = (/ 0.8910553472761_dbl_kind, 0.894211405010515_dbl_kind, 0.897217345836334_dbl_kind, 0.911882498828471_dbl_kind, 0.961030310626103_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,519) = (/ 0.891056301844549_dbl_kind, 0.894213135965272_dbl_kind, 0.897222544117294_dbl_kind, 0.911898578393154_dbl_kind, 0.961060023279177_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,520) = (/ 0.891057253289186_dbl_kind, 0.894214860514551_dbl_kind, 0.897227734729508_dbl_kind, 0.911914634184727_dbl_kind, 0.961089650862527_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,521) = (/ 0.891058201623277_dbl_kind, 0.894216578699763_dbl_kind, 0.897232917720329_dbl_kind, 0.911930666318859_dbl_kind, 0.96111919370578_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,522) = (/ 0.891059146859987_dbl_kind, 0.894218290562124_dbl_kind, 0.897238093136768_dbl_kind, 0.911946674910526_dbl_kind, 0.961148652136893_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,523) = (/ 0.891060089012386_dbl_kind, 0.894219996142647_dbl_kind, 0.897243261025495_dbl_kind, 0.911962660074019_dbl_kind, 0.961178026482167_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,524) = (/ 0.891061028093444_dbl_kind, 0.894221695482151_dbl_kind, 0.897248421432844_dbl_kind, 0.91197862192294_dbl_kind, 0.961207317066265_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,525) = (/ 0.891061964116037_dbl_kind, 0.894223388621256_dbl_kind, 0.897253574404811_dbl_kind, 0.911994560570214_dbl_kind, 0.96123652421221_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,526) = (/ 0.891062897092945_dbl_kind, 0.894225075600386_dbl_kind, 0.897258719987057_dbl_kind, 0.912010476128084_dbl_kind, 0.961265648241405_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,527) = (/ 0.891063827036856_dbl_kind, 0.894226756459767_dbl_kind, 0.897263858224908_dbl_kind, 0.912026368708125_dbl_kind, 0.961294689473636_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,528) = (/ 0.891064753960366_dbl_kind, 0.89422843123943_dbl_kind, 0.897268989163359_dbl_kind, 0.91204223842124_dbl_kind, 0.961323648227092_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,529) = (/ 0.891065677875976_dbl_kind, 0.894230099979209_dbl_kind, 0.897274112847075_dbl_kind, 0.912058085377666_dbl_kind, 0.961352524818363_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,530) = (/ 0.8910665987961_dbl_kind, 0.894231762718745_dbl_kind, 0.89727922932039_dbl_kind, 0.912073909686978_dbl_kind, 0.961381319562461_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,531) = (/ 0.891067516733063_dbl_kind, 0.894233419497482_dbl_kind, 0.897284338627311_dbl_kind, 0.912089711458096_dbl_kind, 0.961410032772826_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,532) = (/ 0.8910684316991_dbl_kind, 0.894235070354669_dbl_kind, 0.897289440811522_dbl_kind, 0.912105490799281_dbl_kind, 0.961438664761331_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,533) = (/ 0.891069343706359_dbl_kind, 0.894236715329362_dbl_kind, 0.897294535916377_dbl_kind, 0.912121247818149_dbl_kind, 0.961467215838297_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,534) = (/ 0.891070252766904_dbl_kind, 0.894238354460424_dbl_kind, 0.897299623984913_dbl_kind, 0.912136982621664_dbl_kind, 0.961495686312506_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,535) = (/ 0.891071158892713_dbl_kind, 0.894239987786524_dbl_kind, 0.897304705059842_dbl_kind, 0.912152695316149_dbl_kind, 0.961524076491203_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,536) = (/ 0.89107206209568_dbl_kind, 0.894241615346135_dbl_kind, 0.897309779183559_dbl_kind, 0.912168386007292_dbl_kind, 0.96155238668011_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,537) = (/ 0.891072962387614_dbl_kind, 0.894243237177543_dbl_kind, 0.897314846398139_dbl_kind, 0.912184054800139_dbl_kind, 0.961580617183435_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,538) = (/ 0.891073859780247_dbl_kind, 0.894244853318837_dbl_kind, 0.897319906745343_dbl_kind, 0.912199701799107_dbl_kind, 0.961608768303883_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,539) = (/ 0.891074754285226_dbl_kind, 0.894246463807918_dbl_kind, 0.897324960266616_dbl_kind, 0.912215327107985_dbl_kind, 0.96163684034266_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,540) = (/ 0.891075645914119_dbl_kind, 0.894248068682493_dbl_kind, 0.897330007003091_dbl_kind, 0.912230930829938_dbl_kind, 0.961664833599489_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,541) = (/ 0.891076534678416_dbl_kind, 0.894249667980078_dbl_kind, 0.89733504699559_dbl_kind, 0.912246513067509_dbl_kind, 0.961692748372615_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,542) = (/ 0.891077420589527_dbl_kind, 0.894251261738002_dbl_kind, 0.897340080284626_dbl_kind, 0.912262073922626_dbl_kind, 0.961720584958818_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,543) = (/ 0.891078303658788_dbl_kind, 0.894252849993399_dbl_kind, 0.897345106910403_dbl_kind, 0.912277613496601_dbl_kind, 0.96174834365341_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,544) = (/ 0.891079183897456_dbl_kind, 0.894254432783218_dbl_kind, 0.897350126912819_dbl_kind, 0.912293131890137_dbl_kind, 0.961776024750266_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,545) = (/ 0.891080061316715_dbl_kind, 0.894256010144216_dbl_kind, 0.897355140331471_dbl_kind, 0.912308629203331_dbl_kind, 0.961803628541817_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,546) = (/ 0.891080935927673_dbl_kind, 0.894257582112962_dbl_kind, 0.89736014720565_dbl_kind, 0.912324105535678_dbl_kind, 0.961831155319055_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,547) = (/ 0.891081807741365_dbl_kind, 0.894259148725836_dbl_kind, 0.897365147574347_dbl_kind, 0.912339560986074_dbl_kind, 0.961858605371558_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,548) = (/ 0.891082676768754_dbl_kind, 0.89426071001903_dbl_kind, 0.897370141476254_dbl_kind, 0.912354995652817_dbl_kind, 0.961885978987486_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,549) = (/ 0.891083543020733_dbl_kind, 0.894262266028551_dbl_kind, 0.897375128949768_dbl_kind, 0.912370409633615_dbl_kind, 0.961913276453591_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,550) = (/ 0.89108440650812_dbl_kind, 0.894263816790215_dbl_kind, 0.897380110032987_dbl_kind, 0.91238580302559_dbl_kind, 0.961940498055237_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,551) = (/ 0.891085267241668_dbl_kind, 0.894265362339655_dbl_kind, 0.897385084763718_dbl_kind, 0.912401175925273_dbl_kind, 0.96196764407639_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,552) = (/ 0.891086125232058_dbl_kind, 0.894266902712314_dbl_kind, 0.897390053179474_dbl_kind, 0.912416528428621_dbl_kind, 0.961994714799642_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,553) = (/ 0.891086980489903_dbl_kind, 0.894268437943454_dbl_kind, 0.897395015317479_dbl_kind, 0.912431860631006_dbl_kind, 0.962021710506212_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,554) = (/ 0.891087833025749_dbl_kind, 0.894269968068146_dbl_kind, 0.897399971214669_dbl_kind, 0.912447172627231_dbl_kind, 0.962048631475957_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,555) = (/ 0.891088682850078_dbl_kind, 0.894271493121281_dbl_kind, 0.897404920907692_dbl_kind, 0.912462464511526_dbl_kind, 0.962075477987378_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,556) = (/ 0.891089529973302_dbl_kind, 0.894273013137562_dbl_kind, 0.897409864432912_dbl_kind, 0.912477736377553_dbl_kind, 0.96210225031763_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,557) = (/ 0.891090374405772_dbl_kind, 0.89427452815151_dbl_kind, 0.89741480182641_dbl_kind, 0.912492988318411_dbl_kind, 0.962128948742529_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,558) = (/ 0.891091216157772_dbl_kind, 0.894276038197462_dbl_kind, 0.897419733123985_dbl_kind, 0.912508220426638_dbl_kind, 0.962155573536564_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,559) = (/ 0.891092055239525_dbl_kind, 0.894277543309572_dbl_kind, 0.897424658361156_dbl_kind, 0.912523432794214_dbl_kind, 0.962182124972899_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,560) = (/ 0.89109289166119_dbl_kind, 0.89427904352181_dbl_kind, 0.897429577573167_dbl_kind, 0.912538625512568_dbl_kind, 0.962208603323385_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,561) = (/ 0.891093725432865_dbl_kind, 0.894280538867965_dbl_kind, 0.897434490794982_dbl_kind, 0.912553798672575_dbl_kind, 0.962235008858566_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,562) = (/ 0.891094556564587_dbl_kind, 0.894282029381643_dbl_kind, 0.897439398061294_dbl_kind, 0.912568952364564_dbl_kind, 0.962261341847687_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,563) = (/ 0.891095385066332_dbl_kind, 0.89428351509627_dbl_kind, 0.897444299406523_dbl_kind, 0.912584086678324_dbl_kind, 0.962287602558706_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,564) = (/ 0.891096210948018_dbl_kind, 0.89428499604509_dbl_kind, 0.897449194864818_dbl_kind, 0.912599201703097_dbl_kind, 0.962313791258297_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,565) = (/ 0.891097034219502_dbl_kind, 0.894286472261167_dbl_kind, 0.897454084470059_dbl_kind, 0.912614297527595_dbl_kind, 0.962339908211855_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,566) = (/ 0.891097854890587_dbl_kind, 0.894287943777384_dbl_kind, 0.897458968255859_dbl_kind, 0.91262937423999_dbl_kind, 0.962365953683513_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,567) = (/ 0.891098672971012_dbl_kind, 0.894289410626447_dbl_kind, 0.897463846255566_dbl_kind, 0.912644431927927_dbl_kind, 0.96239192793614_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,568) = (/ 0.891099488470467_dbl_kind, 0.894290872840879_dbl_kind, 0.897468718502265_dbl_kind, 0.912659470678524_dbl_kind, 0.962417831231356_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,569) = (/ 0.89110030139858_dbl_kind, 0.894292330453027_dbl_kind, 0.897473585028779_dbl_kind, 0.912674490578374_dbl_kind, 0.962443663829536_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,570) = (/ 0.891101111764928_dbl_kind, 0.89429378349506_dbl_kind, 0.897478445867671_dbl_kind, 0.912689491713549_dbl_kind, 0.962469425989809_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,571) = (/ 0.891101919579031_dbl_kind, 0.894295231998966_dbl_kind, 0.897483301051245_dbl_kind, 0.912704474169604_dbl_kind, 0.962495117970089_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,572) = (/ 0.891102724850355_dbl_kind, 0.894296675996561_dbl_kind, 0.897488150611552_dbl_kind, 0.912719438031582_dbl_kind, 0.962520740027057_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,573) = (/ 0.891103527588314_dbl_kind, 0.894298115519479_dbl_kind, 0.897492994580386_dbl_kind, 0.91273438338401_dbl_kind, 0.96254629241618_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,574) = (/ 0.89110432780227_dbl_kind, 0.894299550599181_dbl_kind, 0.897497832989287_dbl_kind, 0.912749310310913_dbl_kind, 0.962571775391717_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,575) = (/ 0.89110512550153_dbl_kind, 0.894300981266949_dbl_kind, 0.897502665869547_dbl_kind, 0.912764218895806_dbl_kind, 0.962597189206727_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,576) = (/ 0.891105920695354_dbl_kind, 0.894302407553893_dbl_kind, 0.897507493252208_dbl_kind, 0.912779109221705_dbl_kind, 0.962622534113075_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,577) = (/ 0.891106713392946_dbl_kind, 0.894303829490946_dbl_kind, 0.897512315168063_dbl_kind, 0.912793981371129_dbl_kind, 0.962647810361437_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,578) = (/ 0.891107503603466_dbl_kind, 0.894305247108866_dbl_kind, 0.897517131647662_dbl_kind, 0.9128088354261_dbl_kind, 0.962673018201309_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,579) = (/ 0.891108291336019_dbl_kind, 0.894306660438239_dbl_kind, 0.897521942721309_dbl_kind, 0.912823671468146_dbl_kind, 0.962698157881019_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,580) = (/ 0.891109076599664_dbl_kind, 0.894308069509475_dbl_kind, 0.897526748419067_dbl_kind, 0.91283848957831_dbl_kind, 0.962723229647719_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,581) = (/ 0.891109859403412_dbl_kind, 0.894309474352813_dbl_kind, 0.897531548770759_dbl_kind, 0.912853289837145_dbl_kind, 0.96274823374741_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,582) = (/ 0.891110639756226_dbl_kind, 0.894310874998318_dbl_kind, 0.897536343805968_dbl_kind, 0.912868072324724_dbl_kind, 0.96277317042494_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,583) = (/ 0.891111417667019_dbl_kind, 0.894312271475883_dbl_kind, 0.897541133554041_dbl_kind, 0.91288283712064_dbl_kind, 0.962798039924004_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,584) = (/ 0.891112193144663_dbl_kind, 0.89431366381523_dbl_kind, 0.897545918044091_dbl_kind, 0.912897584304006_dbl_kind, 0.962822842487164_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,585) = (/ 0.891112966197978_dbl_kind, 0.89431505204591_dbl_kind, 0.897550697304996_dbl_kind, 0.912912313953465_dbl_kind, 0.962847578355847_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,586) = (/ 0.891113736835742_dbl_kind, 0.894316436197302_dbl_kind, 0.897555471365404_dbl_kind, 0.912927026147185_dbl_kind, 0.962872247770356_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,587) = (/ 0.891114505066689_dbl_kind, 0.894317816298615_dbl_kind, 0.897560240253731_dbl_kind, 0.91294172096287_dbl_kind, 0.962896850969874_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,588) = (/ 0.891115270899507_dbl_kind, 0.894319192378891_dbl_kind, 0.897565003998167_dbl_kind, 0.912956398477758_dbl_kind, 0.962921388192469_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,589) = (/ 0.891116034342838_dbl_kind, 0.894320564466998_dbl_kind, 0.897569762626675_dbl_kind, 0.912971058768623_dbl_kind, 0.962945859675101_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,590) = (/ 0.891116795405285_dbl_kind, 0.89432193259164_dbl_kind, 0.897574516166993_dbl_kind, 0.912985701911782_dbl_kind, 0.962970265653639_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,591) = (/ 0.891117554095406_dbl_kind, 0.894323296781348_dbl_kind, 0.897579264646636_dbl_kind, 0.913000327983094_dbl_kind, 0.962994606362848_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,592) = (/ 0.891118310421716_dbl_kind, 0.894324657064489_dbl_kind, 0.897584008092898_dbl_kind, 0.913014937057967_dbl_kind, 0.963018882036411_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,593) = (/ 0.89111906439269_dbl_kind, 0.894326013469263_dbl_kind, 0.897588746532853_dbl_kind, 0.913029529211356_dbl_kind, 0.963043092906925_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,594) = (/ 0.891119816016759_dbl_kind, 0.894327366023699_dbl_kind, 0.897593479993357_dbl_kind, 0.913044104517772_dbl_kind, 0.963067239205919_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,595) = (/ 0.891120565302317_dbl_kind, 0.894328714755665_dbl_kind, 0.897598208501052_dbl_kind, 0.913058663051277_dbl_kind, 0.963091321163851_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,596) = (/ 0.891121312257714_dbl_kind, 0.894330059692858_dbl_kind, 0.897602932082362_dbl_kind, 0.913073204885495_dbl_kind, 0.96311533901011_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,597) = (/ 0.891122056891263_dbl_kind, 0.894331400862814_dbl_kind, 0.8976076507635_dbl_kind, 0.913087730093608_dbl_kind, 0.963139292973037_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,598) = (/ 0.891122799211234_dbl_kind, 0.894332738292903_dbl_kind, 0.897612364570469_dbl_kind, 0.913102238748365_dbl_kind, 0.96316318327992_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,599) = (/ 0.891123539225863_dbl_kind, 0.894334072010328_dbl_kind, 0.897617073529061_dbl_kind, 0.913116730922077_dbl_kind, 0.963187010156996_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,600) = (/ 0.891124276943343_dbl_kind, 0.894335402042134_dbl_kind, 0.897621777664859_dbl_kind, 0.913131206686628_dbl_kind, 0.963210773829475_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,601) = (/ 0.891125012371831_dbl_kind, 0.894336728415196_dbl_kind, 0.897626477003242_dbl_kind, 0.913145666113473_dbl_kind, 0.963234474521525_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,602) = (/ 0.891125745519447_dbl_kind, 0.894338051156232_dbl_kind, 0.897631171569384_dbl_kind, 0.913160109273643_dbl_kind, 0.963258112456292_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,603) = (/ 0.891126476394271_dbl_kind, 0.894339370291793_dbl_kind, 0.897635861388255_dbl_kind, 0.913174536237743_dbl_kind, 0.963281687855901_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,604) = (/ 0.891127205004348_dbl_kind, 0.894340685848273_dbl_kind, 0.897640546484625_dbl_kind, 0.913188947075963_dbl_kind, 0.963305200941456_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,605) = (/ 0.891127931357689_dbl_kind, 0.8943419978519_dbl_kind, 0.897645226883063_dbl_kind, 0.913203341858071_dbl_kind, 0.963328651933062_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,606) = (/ 0.891128655462265_dbl_kind, 0.894343306328746_dbl_kind, 0.89764990260794_dbl_kind, 0.913217720653426_dbl_kind, 0.96335204104981_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,607) = (/ 0.891129377326014_dbl_kind, 0.894344611304719_dbl_kind, 0.897654573683432_dbl_kind, 0.91323208353097_dbl_kind, 0.963375368509803_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,608) = (/ 0.891130096956837_dbl_kind, 0.894345912805568_dbl_kind, 0.897659240133518_dbl_kind, 0.913246430559239_dbl_kind, 0.963398634530144_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,609) = (/ 0.891130814362601_dbl_kind, 0.894347210856886_dbl_kind, 0.897663901981986_dbl_kind, 0.913260761806361_dbl_kind, 0.963421839326951_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,610) = (/ 0.89113152955114_dbl_kind, 0.894348505484104_dbl_kind, 0.897668559252431_dbl_kind, 0.913275077340063_dbl_kind, 0.963444983115361_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,611) = (/ 0.891132242530251_dbl_kind, 0.894349796712497_dbl_kind, 0.897673211968256_dbl_kind, 0.913289377227668_dbl_kind, 0.963468066109541_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,612) = (/ 0.891132953307701_dbl_kind, 0.894351084567179_dbl_kind, 0.897677860152679_dbl_kind, 0.9133036615361_dbl_kind, 0.963491088522678_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,613) = (/ 0.891133661891221_dbl_kind, 0.894352369073112_dbl_kind, 0.897682503828728_dbl_kind, 0.913317930331889_dbl_kind, 0.963514050567002_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,614) = (/ 0.89113436828851_dbl_kind, 0.894353650255098_dbl_kind, 0.897687143019247_dbl_kind, 0.91333218368117_dbl_kind, 0.963536952453781_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,615) = (/ 0.891135072507235_dbl_kind, 0.894354928137784_dbl_kind, 0.897691777746896_dbl_kind, 0.913346421649687_dbl_kind, 0.96355979439333_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,616) = (/ 0.891135774555029_dbl_kind, 0.894356202745662_dbl_kind, 0.897696408034152_dbl_kind, 0.913360644302797_dbl_kind, 0.963582576595011_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,617) = (/ 0.891136474439494_dbl_kind, 0.894357474103068_dbl_kind, 0.89770103390331_dbl_kind, 0.913374851705469_dbl_kind, 0.963605299267251_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,618) = (/ 0.891137172168203_dbl_kind, 0.894358742234185_dbl_kind, 0.897705655376487_dbl_kind, 0.913389043922289_dbl_kind, 0.963627962617533_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,619) = (/ 0.891137867748694_dbl_kind, 0.894360007163041_dbl_kind, 0.897710272475624_dbl_kind, 0.913403221017463_dbl_kind, 0.96365056685241_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,620) = (/ 0.891138561188475_dbl_kind, 0.894361268913511_dbl_kind, 0.89771488522248_dbl_kind, 0.913417383054818_dbl_kind, 0.963673112177504_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,621) = (/ 0.891139252495025_dbl_kind, 0.894362527509318_dbl_kind, 0.897719493638645_dbl_kind, 0.913431530097805_dbl_kind, 0.963695598797518_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,622) = (/ 0.891139941675792_dbl_kind, 0.894363782974032_dbl_kind, 0.897724097745531_dbl_kind, 0.913445662209499_dbl_kind, 0.963718026916236_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,623) = (/ 0.891140628738194_dbl_kind, 0.894365035331072_dbl_kind, 0.89772869756438_dbl_kind, 0.913459779452607_dbl_kind, 0.963740396736531_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,624) = (/ 0.891141313689619_dbl_kind, 0.894366284603705_dbl_kind, 0.897733293116264_dbl_kind, 0.913473881889466_dbl_kind, 0.963762708460369_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,625) = (/ 0.891141996537426_dbl_kind, 0.894367530815048_dbl_kind, 0.897737884422083_dbl_kind, 0.913487969582046_dbl_kind, 0.963784962288811_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,626) = (/ 0.891142677288945_dbl_kind, 0.894368773988068_dbl_kind, 0.897742471502574_dbl_kind, 0.913502042591953_dbl_kind, 0.963807158422025_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,627) = (/ 0.891143355951478_dbl_kind, 0.894370014145582_dbl_kind, 0.897747054378304_dbl_kind, 0.91351610098043_dbl_kind, 0.963829297059285_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,628) = (/ 0.891144032532295_dbl_kind, 0.894371251310261_dbl_kind, 0.897751633069676_dbl_kind, 0.913530144808364_dbl_kind, 0.963851378398975_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,629) = (/ 0.891144707038644_dbl_kind, 0.894372485504621_dbl_kind, 0.897756207596929_dbl_kind, 0.913544174136281_dbl_kind, 0.963873402638601_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,630) = (/ 0.89114537947774_dbl_kind, 0.894373716751038_dbl_kind, 0.897760777980142_dbl_kind, 0.913558189024355_dbl_kind, 0.96389536997479_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,631) = (/ 0.891146049856773_dbl_kind, 0.894374945071735_dbl_kind, 0.89776534423923_dbl_kind, 0.913572189532406_dbl_kind, 0.963917280603295_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,632) = (/ 0.891146718182903_dbl_kind, 0.894376170488792_dbl_kind, 0.897769906393952_dbl_kind, 0.913586175719903_dbl_kind, 0.963939134719003_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,633) = (/ 0.891147384463266_dbl_kind, 0.894377393024139_dbl_kind, 0.897774464463908_dbl_kind, 0.913600147645969_dbl_kind, 0.963960932515935_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,634) = (/ 0.891148048704968_dbl_kind, 0.894378612699565_dbl_kind, 0.897779018468541_dbl_kind, 0.91361410536938_dbl_kind, 0.963982674187258_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,635) = (/ 0.891148710915092_dbl_kind, 0.89437982953671_dbl_kind, 0.897783568427139_dbl_kind, 0.91362804894857_dbl_kind, 0.964004359925281_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,636) = (/ 0.891149371100692_dbl_kind, 0.894381043557072_dbl_kind, 0.897788114358836_dbl_kind, 0.913641978441629_dbl_kind, 0.964025989921464_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,637) = (/ 0.891150029268797_dbl_kind, 0.894382254782005_dbl_kind, 0.897792656282613_dbl_kind, 0.913655893906309_dbl_kind, 0.964047564366429_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,638) = (/ 0.891150685426409_dbl_kind, 0.894383463232717_dbl_kind, 0.897797194217301_dbl_kind, 0.913669795400027_dbl_kind, 0.964069083449949_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,639) = (/ 0.891151339580505_dbl_kind, 0.894384668930277_dbl_kind, 0.897801728181581_dbl_kind, 0.913683682979864_dbl_kind, 0.964090547360968_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,640) = (/ 0.891151991738037_dbl_kind, 0.89438587189561_dbl_kind, 0.897806258193984_dbl_kind, 0.913697556702567_dbl_kind, 0.964111956287597_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,641) = (/ 0.891152641905932_dbl_kind, 0.894387072149498_dbl_kind, 0.897810784272896_dbl_kind, 0.913711416624554_dbl_kind, 0.96413331041712_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,642) = (/ 0.89115329009109_dbl_kind, 0.894388269712584_dbl_kind, 0.897815306436554_dbl_kind, 0.913725262801916_dbl_kind, 0.964154609935999_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,643) = (/ 0.89115393630039_dbl_kind, 0.89438946460537_dbl_kind, 0.897819824703053_dbl_kind, 0.913739095290414_dbl_kind, 0.964175855029884_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,644) = (/ 0.891154580540682_dbl_kind, 0.894390656848218_dbl_kind, 0.897824339090343_dbl_kind, 0.91375291414549_dbl_kind, 0.964197045883605_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,645) = (/ 0.891155222818795_dbl_kind, 0.89439184646135_dbl_kind, 0.897828849616233_dbl_kind, 0.91376671942226_dbl_kind, 0.964218182681189_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,646) = (/ 0.891155863141534_dbl_kind, 0.894393033464851_dbl_kind, 0.89783335629839_dbl_kind, 0.913780511175521_dbl_kind, 0.964239265605854_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,647) = (/ 0.891156501515675_dbl_kind, 0.894394217878665_dbl_kind, 0.897837859154342_dbl_kind, 0.913794289459754_dbl_kind, 0.964260294840022_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,648) = (/ 0.891157137947978_dbl_kind, 0.8943953997226_dbl_kind, 0.897842358201477_dbl_kind, 0.913808054329123_dbl_kind, 0.964281270565317_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,649) = (/ 0.891157772445174_dbl_kind, 0.894396579016329_dbl_kind, 0.897846853457048_dbl_kind, 0.913821805837477_dbl_kind, 0.964302192962576_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,650) = (/ 0.891158405013972_dbl_kind, 0.894397755779383_dbl_kind, 0.897851344938171_dbl_kind, 0.913835544038356_dbl_kind, 0.964323062211843_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,651) = (/ 0.891159035661059_dbl_kind, 0.894398930031164_dbl_kind, 0.897855832661826_dbl_kind, 0.913849268984988_dbl_kind, 0.964343878492382_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,652) = (/ 0.891159664393097_dbl_kind, 0.894400101790933_dbl_kind, 0.897860316644861_dbl_kind, 0.913862980730294_dbl_kind, 0.964364641982681_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,653) = (/ 0.891160291216726_dbl_kind, 0.89440127107782_dbl_kind, 0.897864796903992_dbl_kind, 0.913876679326891_dbl_kind, 0.964385352860451_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,654) = (/ 0.891160916138564_dbl_kind, 0.894402437910817_dbl_kind, 0.897869273455801_dbl_kind, 0.913890364827089_dbl_kind, 0.964406011302632_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,655) = (/ 0.891161539165208_dbl_kind, 0.894403602308786_dbl_kind, 0.897873746316743_dbl_kind, 0.913904037282898_dbl_kind, 0.964426617485402_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,656) = (/ 0.891162160303228_dbl_kind, 0.894404764290456_dbl_kind, 0.897878215503141_dbl_kind, 0.91391769674603_dbl_kind, 0.96444717158417_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,657) = (/ 0.891162779559177_dbl_kind, 0.894405923874421_dbl_kind, 0.897882681031192_dbl_kind, 0.913931343267895_dbl_kind, 0.964467673773595_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,658) = (/ 0.891163396939583_dbl_kind, 0.894407081079144_dbl_kind, 0.897887142916966_dbl_kind, 0.913944976899611_dbl_kind, 0.964488124227574_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,659) = (/ 0.891164012450953_dbl_kind, 0.894408235922959_dbl_kind, 0.897891601176409_dbl_kind, 0.913958597691999_dbl_kind, 0.964508523119263_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,660) = (/ 0.891164626099773_dbl_kind, 0.894409388424066_dbl_kind, 0.89789605582534_dbl_kind, 0.913972205695589_dbl_kind, 0.964528870621065_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,661) = (/ 0.891165237892506_dbl_kind, 0.894410538600537_dbl_kind, 0.897900506879455_dbl_kind, 0.913985800960621_dbl_kind, 0.964549166904642_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,662) = (/ 0.891165847835595_dbl_kind, 0.894411686470314_dbl_kind, 0.897904954354329_dbl_kind, 0.913999383537047_dbl_kind, 0.964569412140923_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,663) = (/ 0.891166455935462_dbl_kind, 0.894412832051211_dbl_kind, 0.897909398265415_dbl_kind, 0.91401295347453_dbl_kind, 0.964589606500098_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,664) = (/ 0.891167062198506_dbl_kind, 0.894413975360911_dbl_kind, 0.897913838628048_dbl_kind, 0.914026510822451_dbl_kind, 0.964609750151625_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,665) = (/ 0.891167666631108_dbl_kind, 0.894415116416973_dbl_kind, 0.89791827545744_dbl_kind, 0.914040055629906_dbl_kind, 0.964629843264242_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,666) = (/ 0.891168269239625_dbl_kind, 0.894416255236825_dbl_kind, 0.897922708768689_dbl_kind, 0.914053587945711_dbl_kind, 0.964649886005964_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,667) = (/ 0.891168870030397_dbl_kind, 0.894417391837773_dbl_kind, 0.897927138576773_dbl_kind, 0.914067107818404_dbl_kind, 0.964669878544077_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,668) = (/ 0.89116946900974_dbl_kind, 0.894418526236993_dbl_kind, 0.897931564896556_dbl_kind, 0.914080615296242_dbl_kind, 0.964689821045165_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,669) = (/ 0.891170066183953_dbl_kind, 0.894419658451537_dbl_kind, 0.897935987742788_dbl_kind, 0.914094110427209_dbl_kind, 0.964709713675095_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,670) = (/ 0.89117066155931_dbl_kind, 0.894420788498332_dbl_kind, 0.897940407130103_dbl_kind, 0.914107593259014_dbl_kind, 0.964729556599023_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,671) = (/ 0.89117125514207_dbl_kind, 0.894421916394182_dbl_kind, 0.897944823073024_dbl_kind, 0.914121063839095_dbl_kind, 0.964749349981411_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,672) = (/ 0.89117184693847_dbl_kind, 0.894423042155767_dbl_kind, 0.897949235585961_dbl_kind, 0.914134522214616_dbl_kind, 0.96476909398601_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,673) = (/ 0.891172436954726_dbl_kind, 0.894424165799642_dbl_kind, 0.897953644683215_dbl_kind, 0.914147968432478_dbl_kind, 0.964788788775883_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,674) = (/ 0.891173025197036_dbl_kind, 0.894425287342242_dbl_kind, 0.897958050378976_dbl_kind, 0.91416140253931_dbl_kind, 0.964808434513396_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,675) = (/ 0.891173611671576_dbl_kind, 0.89442640679988_dbl_kind, 0.897962452687325_dbl_kind, 0.914174824581479_dbl_kind, 0.964828031360228_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,676) = (/ 0.891174196384506_dbl_kind, 0.894427524188747_dbl_kind, 0.897966851622235_dbl_kind, 0.914188234605084_dbl_kind, 0.964847579477369_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,677) = (/ 0.891174779341964_dbl_kind, 0.894428639524912_dbl_kind, 0.897971247197574_dbl_kind, 0.914201632655968_dbl_kind, 0.964867079025134_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,678) = (/ 0.891175360550069_dbl_kind, 0.894429752824327_dbl_kind, 0.897975639427103_dbl_kind, 0.914215018779709_dbl_kind, 0.964886530163148_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,679) = (/ 0.891175940014921_dbl_kind, 0.894430864102822_dbl_kind, 0.897980028324478_dbl_kind, 0.914228393021628_dbl_kind, 0.964905933050377_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,680) = (/ 0.891176517742601_dbl_kind, 0.894431973376109_dbl_kind, 0.897984413903251_dbl_kind, 0.914241755426789_dbl_kind, 0.964925287845101_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,681) = (/ 0.891177093739171_dbl_kind, 0.894433080659784_dbl_kind, 0.897988796176871_dbl_kind, 0.914255106040001_dbl_kind, 0.964944594704939_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,682) = (/ 0.891177668010675_dbl_kind, 0.894434185969321_dbl_kind, 0.897993175158686_dbl_kind, 0.91426844490582_dbl_kind, 0.964963853786848_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,683) = (/ 0.891178240563136_dbl_kind, 0.89443528932008_dbl_kind, 0.897997550861941_dbl_kind, 0.914281772068547_dbl_kind, 0.964983065247118_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,684) = (/ 0.891178811402559_dbl_kind, 0.894436390727302_dbl_kind, 0.898001923299783_dbl_kind, 0.914295087572235_dbl_kind, 0.965002229241386_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,685) = (/ 0.891179380534934_dbl_kind, 0.894437490206117_dbl_kind, 0.898006292485257_dbl_kind, 0.914308391460689_dbl_kind, 0.965021345924632_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,686) = (/ 0.891179947966226_dbl_kind, 0.894438587771534_dbl_kind, 0.898010658431312_dbl_kind, 0.914321683777463_dbl_kind, 0.965040415451188_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,687) = (/ 0.891180513702387_dbl_kind, 0.89443968343845_dbl_kind, 0.898015021150797_dbl_kind, 0.914334964565869_dbl_kind, 0.965059437974737_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,688) = (/ 0.891181077749348_dbl_kind, 0.894440777221648_dbl_kind, 0.898019380656467_dbl_kind, 0.914348233868973_dbl_kind, 0.965078413648318_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,689) = (/ 0.891181640113023_dbl_kind, 0.894441869135797_dbl_kind, 0.898023736960978_dbl_kind, 0.914361491729599_dbl_kind, 0.965097342624332_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,690) = (/ 0.891182200799305_dbl_kind, 0.894442959195454_dbl_kind, 0.898028090076895_dbl_kind, 0.914374738190329_dbl_kind, 0.965116225054536_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,691) = (/ 0.891182759814074_dbl_kind, 0.894444047415062_dbl_kind, 0.898032440016686_dbl_kind, 0.914387973293507_dbl_kind, 0.965135061090058_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,692) = (/ 0.891183317163187_dbl_kind, 0.894445133808953_dbl_kind, 0.898036786792725_dbl_kind, 0.914401197081237_dbl_kind, 0.965153850881397_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,693) = (/ 0.891183872852486_dbl_kind, 0.894446218391348_dbl_kind, 0.898041130417296_dbl_kind, 0.914414409595387_dbl_kind, 0.96517259457842_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,694) = (/ 0.891184426887794_dbl_kind, 0.894447301176358_dbl_kind, 0.89804547090259_dbl_kind, 0.914427610877591_dbl_kind, 0.965191292330372_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,695) = (/ 0.891184979274916_dbl_kind, 0.894448382177983_dbl_kind, 0.898049808260709_dbl_kind, 0.91444080096925_dbl_kind, 0.965209944285876_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,696) = (/ 0.891185530019641_dbl_kind, 0.894449461410114_dbl_kind, 0.898054142503661_dbl_kind, 0.91445397991153_dbl_kind, 0.965228550592936_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,697) = (/ 0.891186079127738_dbl_kind, 0.894450538886533_dbl_kind, 0.89805847364337_dbl_kind, 0.914467147745369_dbl_kind, 0.965247111398944_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,698) = (/ 0.891186626604959_dbl_kind, 0.894451614620914_dbl_kind, 0.898062801691668_dbl_kind, 0.914480304511475_dbl_kind, 0.965265626850677_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,699) = (/ 0.89118717245704_dbl_kind, 0.894452688626824_dbl_kind, 0.8980671266603_dbl_kind, 0.914493450250327_dbl_kind, 0.965284097094305_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,700) = (/ 0.891187716689699_dbl_kind, 0.894453760917723_dbl_kind, 0.898071448560926_dbl_kind, 0.914506585002181_dbl_kind, 0.965302522275393_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,701) = (/ 0.891188259308635_dbl_kind, 0.894454831506961_dbl_kind, 0.898075767405118_dbl_kind, 0.914519708807064_dbl_kind, 0.965320902538902_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,702) = (/ 0.891188800319531_dbl_kind, 0.894455900407788_dbl_kind, 0.898080083204362_dbl_kind, 0.914532821704784_dbl_kind, 0.965339238029198_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,703) = (/ 0.891189339728052_dbl_kind, 0.894456967633345_dbl_kind, 0.898084395970064_dbl_kind, 0.914545923734922_dbl_kind, 0.965357528890044_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,704) = (/ 0.891189877539848_dbl_kind, 0.89445803319667_dbl_kind, 0.898088705713541_dbl_kind, 0.914559014936843_dbl_kind, 0.965375775264613_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,705) = (/ 0.89119041376055_dbl_kind, 0.894459097110693_dbl_kind, 0.898093012446031_dbl_kind, 0.914572095349689_dbl_kind, 0.96539397729549_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,706) = (/ 0.891190948395771_dbl_kind, 0.894460159388247_dbl_kind, 0.898097316178686_dbl_kind, 0.914585165012388_dbl_kind, 0.965412135124669_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,707) = (/ 0.891191481451109_dbl_kind, 0.894461220042056_dbl_kind, 0.898101616922581_dbl_kind, 0.914598223963647_dbl_kind, 0.965430248893564_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,708) = (/ 0.891192012932144_dbl_kind, 0.894462279084746_dbl_kind, 0.898105914688706_dbl_kind, 0.914611272241961_dbl_kind, 0.965448318743001_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,709) = (/ 0.891192542844439_dbl_kind, 0.89446333652884_dbl_kind, 0.898110209487974_dbl_kind, 0.91462430988561_dbl_kind, 0.965466344813234_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,710) = (/ 0.891193071193542_dbl_kind, 0.894464392386757_dbl_kind, 0.898114501331217_dbl_kind, 0.914637336932663_dbl_kind, 0.965484327243939_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,711) = (/ 0.891193597984981_dbl_kind, 0.894465446670819_dbl_kind, 0.898118790229188_dbl_kind, 0.914650353420976_dbl_kind, 0.965502266174219_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,712) = (/ 0.891194123224269_dbl_kind, 0.894466499393247_dbl_kind, 0.898123076192565_dbl_kind, 0.914663359388195_dbl_kind, 0.965520161742608_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,713) = (/ 0.891194646916904_dbl_kind, 0.894467550566162_dbl_kind, 0.898127359231945_dbl_kind, 0.91467635487176_dbl_kind, 0.965538014087074_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,714) = (/ 0.891195169068364_dbl_kind, 0.894468600201586_dbl_kind, 0.898131639357851_dbl_kind, 0.9146893399089_dbl_kind, 0.965555823345019_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,715) = (/ 0.891195689684113_dbl_kind, 0.894469648311444_dbl_kind, 0.898135916580729_dbl_kind, 0.914702314536642_dbl_kind, 0.965573589653285_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,716) = (/ 0.891196208769597_dbl_kind, 0.894470694907562_dbl_kind, 0.89814019091095_dbl_kind, 0.914715278791807_dbl_kind, 0.965591313148157_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,717) = (/ 0.891196726330246_dbl_kind, 0.894471740001669_dbl_kind, 0.898144462358811_dbl_kind, 0.91472823271101_dbl_kind, 0.965608993965362_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,718) = (/ 0.891197242371473_dbl_kind, 0.894472783605398_dbl_kind, 0.898148730934535_dbl_kind, 0.914741176330668_dbl_kind, 0.965626632240074_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,719) = (/ 0.891197756898677_dbl_kind, 0.894473825730285_dbl_kind, 0.898152996648271_dbl_kind, 0.914754109686994_dbl_kind, 0.965644228106921_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,720) = (/ 0.891198269917236_dbl_kind, 0.894474866387773_dbl_kind, 0.898157259510097_dbl_kind, 0.914767032816004_dbl_kind, 0.965661781699979_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,721) = (/ 0.891198781432518_dbl_kind, 0.894475905589207_dbl_kind, 0.898161519530017_dbl_kind, 0.914779945753513_dbl_kind, 0.965679293152783_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,722) = (/ 0.891199291449868_dbl_kind, 0.89447694334584_dbl_kind, 0.898165776717966_dbl_kind, 0.914792848535141_dbl_kind, 0.965696762598325_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,723) = (/ 0.891199799974619_dbl_kind, 0.89447797966883_dbl_kind, 0.898170031083806_dbl_kind, 0.914805741196312_dbl_kind, 0.965714190169058_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,724) = (/ 0.891200307012088_dbl_kind, 0.894479014569244_dbl_kind, 0.898174282637332_dbl_kind, 0.914818623772254_dbl_kind, 0.965731575996896_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,725) = (/ 0.891200812567572_dbl_kind, 0.894480048058052_dbl_kind, 0.898178531388266_dbl_kind, 0.914831496298001_dbl_kind, 0.965748920213225_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,726) = (/ 0.891201316646358_dbl_kind, 0.894481080146137_dbl_kind, 0.898182777346264_dbl_kind, 0.914844358808398_dbl_kind, 0.965766222948894_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,727) = (/ 0.89120181925371_dbl_kind, 0.894482110844288_dbl_kind, 0.898187020520913_dbl_kind, 0.914857211338096_dbl_kind, 0.965783484334229_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,728) = (/ 0.891202320394882_dbl_kind, 0.894483140163204_dbl_kind, 0.898191260921733_dbl_kind, 0.914870053921557_dbl_kind, 0.965800704499026_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,729) = (/ 0.891202820075108_dbl_kind, 0.894484168113492_dbl_kind, 0.898195498558175_dbl_kind, 0.914882886593054_dbl_kind, 0.965817883572559_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,730) = (/ 0.891203318299608_dbl_kind, 0.894485194705671_dbl_kind, 0.898199733439626_dbl_kind, 0.914895709386673_dbl_kind, 0.965835021683585_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,731) = (/ 0.891203815073586_dbl_kind, 0.894486219950171_dbl_kind, 0.898203965575406_dbl_kind, 0.914908522336313_dbl_kind, 0.965852118960334_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,732) = (/ 0.891204310402227_dbl_kind, 0.894487243857332_dbl_kind, 0.89820819497477_dbl_kind, 0.914921325475689_dbl_kind, 0.96586917553053_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,733) = (/ 0.891204804290706_dbl_kind, 0.894488266437406_dbl_kind, 0.898212421646908_dbl_kind, 0.914934118838329_dbl_kind, 0.96588619152138_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,734) = (/ 0.891205296744178_dbl_kind, 0.89448928770056_dbl_kind, 0.898216645600947_dbl_kind, 0.914946902457583_dbl_kind, 0.96590316705958_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,735) = (/ 0.891205787767782_dbl_kind, 0.89449030765687_dbl_kind, 0.898220866845949_dbl_kind, 0.914959676366613_dbl_kind, 0.965920102271319_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,736) = (/ 0.891206277366643_dbl_kind, 0.894491326316329_dbl_kind, 0.898225085390915_dbl_kind, 0.914972440598405_dbl_kind, 0.965936997282282_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,737) = (/ 0.89120676554587_dbl_kind, 0.894492343688843_dbl_kind, 0.898229301244781_dbl_kind, 0.914985195185763_dbl_kind, 0.965953852217649_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,738) = (/ 0.891207252310557_dbl_kind, 0.894493359784231_dbl_kind, 0.898233514416423_dbl_kind, 0.914997940161314_dbl_kind, 0.9659706672021_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,739) = (/ 0.891207737665779_dbl_kind, 0.89449437461223_dbl_kind, 0.898237724914656_dbl_kind, 0.915010675557507_dbl_kind, 0.96598744235982_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,740) = (/ 0.891208221616599_dbl_kind, 0.894495388182492_dbl_kind, 0.898241932748232_dbl_kind, 0.915023401406615_dbl_kind, 0.966004177814493_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,741) = (/ 0.891208704168063_dbl_kind, 0.894496400504585_dbl_kind, 0.898246137925846_dbl_kind, 0.915036117740734_dbl_kind, 0.966020873689313_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,742) = (/ 0.891209185325201_dbl_kind, 0.894497411587992_dbl_kind, 0.898250340456131_dbl_kind, 0.915048824591788_dbl_kind, 0.966037530106985_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,743) = (/ 0.891209665093029_dbl_kind, 0.894498421442116_dbl_kind, 0.89825454034766_dbl_kind, 0.915061521991526_dbl_kind, 0.966054147189722_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,744) = (/ 0.891210143476546_dbl_kind, 0.894499430076279_dbl_kind, 0.89825873760895_dbl_kind, 0.915074209971528_dbl_kind, 0.966070725059255_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,745) = (/ 0.891210620480735_dbl_kind, 0.894500437499717_dbl_kind, 0.898262932248458_dbl_kind, 0.9150868885632_dbl_kind, 0.966087263836831_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,746) = (/ 0.891211096110566_dbl_kind, 0.894501443721589_dbl_kind, 0.898267124274583_dbl_kind, 0.915099557797778_dbl_kind, 0.966103763643211_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,747) = (/ 0.891211570370992_dbl_kind, 0.894502448750971_dbl_kind, 0.89827131369567_dbl_kind, 0.915112217706333_dbl_kind, 0.966120224598681_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,748) = (/ 0.89121204326695_dbl_kind, 0.894503452596863_dbl_kind, 0.898275500520002_dbl_kind, 0.915124868319763_dbl_kind, 0.966136646823055_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,749) = (/ 0.891212514803362_dbl_kind, 0.89450445526818_dbl_kind, 0.89827968475581_dbl_kind, 0.915137509668802_dbl_kind, 0.966153030435663_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,750) = (/ 0.891212984985136_dbl_kind, 0.894505456773763_dbl_kind, 0.898283866411269_dbl_kind, 0.915150141784019_dbl_kind, 0.966169375555372_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,751) = (/ 0.891213453817163_dbl_kind, 0.894506457122373_dbl_kind, 0.898288045494496_dbl_kind, 0.915162764695815_dbl_kind, 0.966185682300571_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,752) = (/ 0.89121392130432_dbl_kind, 0.894507456322692_dbl_kind, 0.898292222013556_dbl_kind, 0.915175378434431_dbl_kind, 0.966201950789192_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,753) = (/ 0.891214387451468_dbl_kind, 0.894508454383325_dbl_kind, 0.89829639597646_dbl_kind, 0.915187983029941_dbl_kind, 0.966218181138693_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,754) = (/ 0.891214852263452_dbl_kind, 0.894509451312804_dbl_kind, 0.898300567391162_dbl_kind, 0.915200578512262_dbl_kind, 0.966234373466077_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,755) = (/ 0.891215315745103_dbl_kind, 0.89451044711958_dbl_kind, 0.898304736265566_dbl_kind, 0.915213164911147_dbl_kind, 0.966250527887875_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,756) = (/ 0.891215777901238_dbl_kind, 0.89451144181203_dbl_kind, 0.898308902607522_dbl_kind, 0.915225742256188_dbl_kind, 0.966266644520175_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,757) = (/ 0.891216238736655_dbl_kind, 0.894512435398456_dbl_kind, 0.898313066424827_dbl_kind, 0.915238310576822_dbl_kind, 0.966282723478596_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,758) = (/ 0.891216698256141_dbl_kind, 0.894513427887086_dbl_kind, 0.898317227725226_dbl_kind, 0.915250869902326_dbl_kind, 0.966298764878308_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,759) = (/ 0.891217156464465_dbl_kind, 0.894514419286074_dbl_kind, 0.898321386516415_dbl_kind, 0.915263420261819_dbl_kind, 0.966314768834034_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,760) = (/ 0.891217613366383_dbl_kind, 0.894515409603498_dbl_kind, 0.898325542806035_dbl_kind, 0.915275961684266_dbl_kind, 0.96633073546004_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,761) = (/ 0.891218068966634_dbl_kind, 0.894516398847365_dbl_kind, 0.898329696601678_dbl_kind, 0.915288494198475_dbl_kind, 0.96634666487015_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,762) = (/ 0.891218523269943_dbl_kind, 0.89451738702561_dbl_kind, 0.898333847910889_dbl_kind, 0.915301017833102_dbl_kind, 0.966362557177736_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,763) = (/ 0.891218976281021_dbl_kind, 0.894518374146093_dbl_kind, 0.898337996741157_dbl_kind, 0.915313532616648_dbl_kind, 0.966378412495734_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,764) = (/ 0.891219428004561_dbl_kind, 0.894519360216606_dbl_kind, 0.898342143099927_dbl_kind, 0.915326038577464_dbl_kind, 0.966394230936641_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,765) = (/ 0.891219878445244_dbl_kind, 0.894520345244866_dbl_kind, 0.898346286994593_dbl_kind, 0.915338535743746_dbl_kind, 0.966410012612504_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,766) = (/ 0.891220327607735_dbl_kind, 0.894521329238524_dbl_kind, 0.898350428432501_dbl_kind, 0.915351024143544_dbl_kind, 0.966425757634944_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,767) = (/ 0.891220775496683_dbl_kind, 0.894522312205157_dbl_kind, 0.898354567420947_dbl_kind, 0.915363503804755_dbl_kind, 0.966441466115144_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,768) = (/ 0.891221222116725_dbl_kind, 0.894523294152274_dbl_kind, 0.898358703967182_dbl_kind, 0.915375974755128_dbl_kind, 0.966457138163851_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,769) = (/ 0.891221667472481_dbl_kind, 0.894524275087316_dbl_kind, 0.898362838078409_dbl_kind, 0.915388437022267_dbl_kind, 0.966472773891388_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,770) = (/ 0.891222111568555_dbl_kind, 0.894525255017652_dbl_kind, 0.898366969761783_dbl_kind, 0.915400890633625_dbl_kind, 0.966488373407646_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,771) = (/ 0.891222554409538_dbl_kind, 0.894526233950587_dbl_kind, 0.898371099024413_dbl_kind, 0.915413335616513_dbl_kind, 0.966503936822088_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,772) = (/ 0.891222996000006_dbl_kind, 0.894527211893355_dbl_kind, 0.898375225873365_dbl_kind, 0.915425771998094_dbl_kind, 0.966519464243757_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,773) = (/ 0.891223436344521_dbl_kind, 0.894528188853125_dbl_kind, 0.898379350315653_dbl_kind, 0.915438199805389_dbl_kind, 0.966534955781269_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,774) = (/ 0.891223875447627_dbl_kind, 0.894529164837_dbl_kind, 0.898383472358252_dbl_kind, 0.915450619065275_dbl_kind, 0.966550411542827_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,775) = (/ 0.891224313313858_dbl_kind, 0.894530139852014_dbl_kind, 0.898387592008088_dbl_kind, 0.915463029804485_dbl_kind, 0.966565831636205_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,776) = (/ 0.891224749947729_dbl_kind, 0.894531113905136_dbl_kind, 0.898391709272045_dbl_kind, 0.915475432049612_dbl_kind, 0.96658121616877_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,777) = (/ 0.891225185353743_dbl_kind, 0.894532087003274_dbl_kind, 0.898395824156962_dbl_kind, 0.915487825827109_dbl_kind, 0.966596565247473_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,778) = (/ 0.891225619536388_dbl_kind, 0.894533059153264_dbl_kind, 0.898399936669633_dbl_kind, 0.915500211163289_dbl_kind, 0.966611878978846_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,779) = (/ 0.891226052500135_dbl_kind, 0.894534030361885_dbl_kind, 0.89840404681681_dbl_kind, 0.915512588084323_dbl_kind, 0.96662715746902_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,780) = (/ 0.891226484249443_dbl_kind, 0.894535000635846_dbl_kind, 0.898408154605202_dbl_kind, 0.915524956616246_dbl_kind, 0.966642400823712_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,781) = (/ 0.891226914788757_dbl_kind, 0.894535969981798_dbl_kind, 0.898412260041475_dbl_kind, 0.915537316784957_dbl_kind, 0.966657609148232_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,782) = (/ 0.891227344122503_dbl_kind, 0.894536938406326_dbl_kind, 0.898416363132253_dbl_kind, 0.915549668616217_dbl_kind, 0.96667278254749_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,783) = (/ 0.891227772255099_dbl_kind, 0.894537905915953_dbl_kind, 0.898420463884118_dbl_kind, 0.915562012135651_dbl_kind, 0.966687921125989_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,784) = (/ 0.891228199190942_dbl_kind, 0.894538872517141_dbl_kind, 0.89842456230361_dbl_kind, 0.915574347368748_dbl_kind, 0.966703024987833_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,785) = (/ 0.891228624934419_dbl_kind, 0.89453983821629_dbl_kind, 0.898428658397228_dbl_kind, 0.915586674340866_dbl_kind, 0.966718094236727_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,786) = (/ 0.8912290494899_dbl_kind, 0.89454080301974_dbl_kind, 0.89843275217143_dbl_kind, 0.915598993077228_dbl_kind, 0.966733128975979_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,787) = (/ 0.891229472861741_dbl_kind, 0.894541766933768_dbl_kind, 0.898436843632635_dbl_kind, 0.915611303602924_dbl_kind, 0.9667481293085_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,788) = (/ 0.891229895054286_dbl_kind, 0.894542729964594_dbl_kind, 0.898440932787218_dbl_kind, 0.915623605942913_dbl_kind, 0.966763095336813_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,789) = (/ 0.891230316071861_dbl_kind, 0.894543692118376_dbl_kind, 0.89844501964152_dbl_kind, 0.915635900122023_dbl_kind, 0.966778027163043_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,790) = (/ 0.89123073591878_dbl_kind, 0.894544653401214_dbl_kind, 0.898449104201836_dbl_kind, 0.915648186164951_dbl_kind, 0.966792924888929_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,791) = (/ 0.89123115459934_dbl_kind, 0.89454561381915_dbl_kind, 0.898453186474427_dbl_kind, 0.915660464096267_dbl_kind, 0.966807788615824_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,792) = (/ 0.891231572117828_dbl_kind, 0.894546573378166_dbl_kind, 0.898457266465513_dbl_kind, 0.91567273394041_dbl_kind, 0.966822618444691_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,793) = (/ 0.891231988478513_dbl_kind, 0.894547532084186_dbl_kind, 0.898461344181274_dbl_kind, 0.915684995721693_dbl_kind, 0.96683741447611_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,794) = (/ 0.89123240368565_dbl_kind, 0.89454848994308_dbl_kind, 0.898465419627856_dbl_kind, 0.915697249464299_dbl_kind, 0.96685217681028_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,795) = (/ 0.891232817743483_dbl_kind, 0.894549446960657_dbl_kind, 0.898469492811363_dbl_kind, 0.915709495192288_dbl_kind, 0.966866905547019_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,796) = (/ 0.891233230656236_dbl_kind, 0.894550403142673_dbl_kind, 0.898473563737862_dbl_kind, 0.915721732929594_dbl_kind, 0.966881600785766_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,797) = (/ 0.891233642428124_dbl_kind, 0.894551358494824_dbl_kind, 0.898477632413387_dbl_kind, 0.915733962700025_dbl_kind, 0.966896262625584_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,798) = (/ 0.891234053063345_dbl_kind, 0.894552313022754_dbl_kind, 0.89848169884393_dbl_kind, 0.915746184527265_dbl_kind, 0.966910891165158_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,799) = (/ 0.891234462566085_dbl_kind, 0.894553266732051_dbl_kind, 0.898485763035447_dbl_kind, 0.915758398434875_dbl_kind, 0.966925486502804_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,800) = (/ 0.891234870940513_dbl_kind, 0.894554219628247_dbl_kind, 0.898489824993862_dbl_kind, 0.915770604446294_dbl_kind, 0.966940048736462_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,801) = (/ 0.891235278190786_dbl_kind, 0.894555171716819_dbl_kind, 0.898493884725058_dbl_kind, 0.915782802584839_dbl_kind, 0.966954577963702_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,802) = (/ 0.891235684321047_dbl_kind, 0.894556123003193_dbl_kind, 0.898497942234886_dbl_kind, 0.915794992873705_dbl_kind, 0.966969074281729_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,803) = (/ 0.891236089335423_dbl_kind, 0.894557073492741_dbl_kind, 0.898501997529158_dbl_kind, 0.915807175335969_dbl_kind, 0.96698353778738_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,804) = (/ 0.891236493238028_dbl_kind, 0.894558023190779_dbl_kind, 0.898506050613654_dbl_kind, 0.915819349994585_dbl_kind, 0.966997968577127_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,805) = (/ 0.891236896032962_dbl_kind, 0.894558972102573_dbl_kind, 0.898510101494118_dbl_kind, 0.91583151687239_dbl_kind, 0.967012366747077_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,806) = (/ 0.891237297724312_dbl_kind, 0.894559920233336_dbl_kind, 0.898514150176259_dbl_kind, 0.915843675992103_dbl_kind, 0.967026732392979_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,807) = (/ 0.891237698316149_dbl_kind, 0.89456086758823_dbl_kind, 0.898518196665754_dbl_kind, 0.915855827376324_dbl_kind, 0.967041065610219_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,808) = (/ 0.891238097812531_dbl_kind, 0.894561814172364_dbl_kind, 0.898522240968244_dbl_kind, 0.915867971047539_dbl_kind, 0.967055366493826_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,809) = (/ 0.891238496217503_dbl_kind, 0.894562759990798_dbl_kind, 0.898526283089336_dbl_kind, 0.915880107028114_dbl_kind, 0.967069635138476_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,810) = (/ 0.891238893535095_dbl_kind, 0.894563705048539_dbl_kind, 0.898530323034604_dbl_kind, 0.915892235340303_dbl_kind, 0.967083871638481_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,811) = (/ 0.891239289769322_dbl_kind, 0.894564649350546_dbl_kind, 0.898534360809592_dbl_kind, 0.915904356006242_dbl_kind, 0.96709807608781_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,812) = (/ 0.891239684924187_dbl_kind, 0.894565592901728_dbl_kind, 0.898538396419807_dbl_kind, 0.915916469047957_dbl_kind, 0.967112248580073_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,813) = (/ 0.891240079003679_dbl_kind, 0.894566535706944_dbl_kind, 0.898542429870724_dbl_kind, 0.915928574487357_dbl_kind, 0.967126389208535_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,814) = (/ 0.891240472011772_dbl_kind, 0.894567477771004_dbl_kind, 0.898546461167789_dbl_kind, 0.91594067234624_dbl_kind, 0.96714049806611_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,815) = (/ 0.891240863952428_dbl_kind, 0.894568419098669_dbl_kind, 0.898550490316414_dbl_kind, 0.915952762646291_dbl_kind, 0.967154575245366_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,816) = (/ 0.891241254829593_dbl_kind, 0.894569359694653_dbl_kind, 0.898554517321978_dbl_kind, 0.915964845409085_dbl_kind, 0.967168620838524_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,817) = (/ 0.8912416446472_dbl_kind, 0.894570299563621_dbl_kind, 0.89855854218983_dbl_kind, 0.915976920656085_dbl_kind, 0.967182634937465_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,818) = (/ 0.89124203340917_dbl_kind, 0.894571238710193_dbl_kind, 0.898562564925289_dbl_kind, 0.915988988408644_dbl_kind, 0.967196617633724_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,819) = (/ 0.891242421119408_dbl_kind, 0.894572177138938_dbl_kind, 0.89856658553364_dbl_kind, 0.916001048688007_dbl_kind, 0.967210569018498_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,820) = (/ 0.891242807781806_dbl_kind, 0.894573114854383_dbl_kind, 0.89857060402014_dbl_kind, 0.916013101515308_dbl_kind, 0.967224489182648_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,821) = (/ 0.891243193400243_dbl_kind, 0.894574051861005_dbl_kind, 0.898574620390015_dbl_kind, 0.916025146911575_dbl_kind, 0.96723837821669_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,822) = (/ 0.891243577978585_dbl_kind, 0.894574988163237_dbl_kind, 0.89857863464846_dbl_kind, 0.916037184897728_dbl_kind, 0.967252236210809_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,823) = (/ 0.891243961520681_dbl_kind, 0.894575923765466_dbl_kind, 0.898582646800641_dbl_kind, 0.916049215494578_dbl_kind, 0.967266063254858_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,824) = (/ 0.891244344030371_dbl_kind, 0.894576858672035_dbl_kind, 0.898586656851695_dbl_kind, 0.916061238722834_dbl_kind, 0.967279859438352_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,825) = (/ 0.891244725511478_dbl_kind, 0.89457779288724_dbl_kind, 0.898590664806728_dbl_kind, 0.916073254603095_dbl_kind, 0.967293624850477_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,826) = (/ 0.891245105967814_dbl_kind, 0.894578726415336_dbl_kind, 0.898594670670818_dbl_kind, 0.916085263155857_dbl_kind, 0.967307359580091_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,827) = (/ 0.891245485403175_dbl_kind, 0.89457965926053_dbl_kind, 0.898598674449014_dbl_kind, 0.916097264401513_dbl_kind, 0.967321063715723_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,828) = (/ 0.891245863821345_dbl_kind, 0.894580591426988_dbl_kind, 0.898602676146334_dbl_kind, 0.91610925836035_dbl_kind, 0.967334737345572_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,829) = (/ 0.891246241226094_dbl_kind, 0.894581522918833_dbl_kind, 0.898606675767773_dbl_kind, 0.916121245052554_dbl_kind, 0.967348380557515_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,830) = (/ 0.89124661762118_dbl_kind, 0.894582453740145_dbl_kind, 0.898610673318293_dbl_kind, 0.916133224498206_dbl_kind, 0.967361993439107_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,831) = (/ 0.891246993010346_dbl_kind, 0.894583383894959_dbl_kind, 0.898614668802829_dbl_kind, 0.916145196717288_dbl_kind, 0.967375576077576_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,832) = (/ 0.891247367397323_dbl_kind, 0.894584313387271_dbl_kind, 0.898618662226291_dbl_kind, 0.916157161729678_dbl_kind, 0.967389128559832_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,833) = (/ 0.891247740785825_dbl_kind, 0.894585242221033_dbl_kind, 0.898622653593558_dbl_kind, 0.916169119555155_dbl_kind, 0.967402650972465_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,834) = (/ 0.891248113179559_dbl_kind, 0.894586170400158_dbl_kind, 0.898626642909484_dbl_kind, 0.916181070213398_dbl_kind, 0.967416143401749_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,835) = (/ 0.891248484582214_dbl_kind, 0.894587097928515_dbl_kind, 0.898630630178895_dbl_kind, 0.916193013723986_dbl_kind, 0.967429605933636_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,836) = (/ 0.891248854997466_dbl_kind, 0.894588024809934_dbl_kind, 0.898634615406592_dbl_kind, 0.916204950106398_dbl_kind, 0.96744303865377_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,837) = (/ 0.891249224428981_dbl_kind, 0.894588951048205_dbl_kind, 0.898638598597347_dbl_kind, 0.916216879380017_dbl_kind, 0.967456441647477_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,838) = (/ 0.891249592880407_dbl_kind, 0.894589876647078_dbl_kind, 0.898642579755907_dbl_kind, 0.916228801564127_dbl_kind, 0.967469814999771_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,839) = (/ 0.891249960355383_dbl_kind, 0.89459080161026_dbl_kind, 0.898646558886994_dbl_kind, 0.916240716677914_dbl_kind, 0.967483158795355_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,840) = (/ 0.891250326857534_dbl_kind, 0.894591725941423_dbl_kind, 0.898650535995301_dbl_kind, 0.91625262474047_dbl_kind, 0.967496473118626_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,841) = (/ 0.891250692390469_dbl_kind, 0.894592649644199_dbl_kind, 0.898654511085498_dbl_kind, 0.916264525770788_dbl_kind, 0.96750975805367_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,842) = (/ 0.891251056957787_dbl_kind, 0.894593572722178_dbl_kind, 0.89865848416223_dbl_kind, 0.916276419787767_dbl_kind, 0.967523013684265_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,843) = (/ 0.891251420563075_dbl_kind, 0.894594495178917_dbl_kind, 0.898662455230116_dbl_kind, 0.916288306810211_dbl_kind, 0.967536240093887_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,844) = (/ 0.891251783209902_dbl_kind, 0.89459541701793_dbl_kind, 0.898666424293748_dbl_kind, 0.91630018685683_dbl_kind, 0.967549437365706_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,845) = (/ 0.89125214490183_dbl_kind, 0.894596338242697_dbl_kind, 0.898670391357697_dbl_kind, 0.91631205994624_dbl_kind, 0.967562605582593_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,846) = (/ 0.891252505642403_dbl_kind, 0.894597258856658_dbl_kind, 0.898674356426505_dbl_kind, 0.916323926096964_dbl_kind, 0.96757574482711_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,847) = (/ 0.891252865435154_dbl_kind, 0.894598178863219_dbl_kind, 0.898678319504695_dbl_kind, 0.916335785327432_dbl_kind, 0.96758885518153_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,848) = (/ 0.891253224283605_dbl_kind, 0.894599098265745_dbl_kind, 0.898682280596761_dbl_kind, 0.916347637655981_dbl_kind, 0.967601936727816_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,849) = (/ 0.891253582191262_dbl_kind, 0.894600017067569_dbl_kind, 0.898686239707176_dbl_kind, 0.916359483100859_dbl_kind, 0.967614989547641_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,850) = (/ 0.89125393916162_dbl_kind, 0.894600935271985_dbl_kind, 0.898690196840389_dbl_kind, 0.91637132168022_dbl_kind, 0.967628013722385_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,851) = (/ 0.891254295198161_dbl_kind, 0.894601852882253_dbl_kind, 0.898694152000823_dbl_kind, 0.91638315341213_dbl_kind, 0.967641009333123_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,852) = (/ 0.891254650304353_dbl_kind, 0.894602769901597_dbl_kind, 0.898698105192882_dbl_kind, 0.916394978314564_dbl_kind, 0.967653976460646_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,853) = (/ 0.891255004483653_dbl_kind, 0.894603686333205_dbl_kind, 0.898702056420942_dbl_kind, 0.916406796405406_dbl_kind, 0.967666915185451_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,854) = (/ 0.891255357739504_dbl_kind, 0.894604602180231_dbl_kind, 0.89870600568936_dbl_kind, 0.916418607702455_dbl_kind, 0.967679825587744_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,855) = (/ 0.891255710075338_dbl_kind, 0.894605517445796_dbl_kind, 0.898709953002469_dbl_kind, 0.916430412223417_dbl_kind, 0.967692707747436_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,856) = (/ 0.891256061494571_dbl_kind, 0.894606432132983_dbl_kind, 0.89871389836458_dbl_kind, 0.916442209985914_dbl_kind, 0.967705561744161_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,857) = (/ 0.891256412000609_dbl_kind, 0.894607346244845_dbl_kind, 0.898717841779979_dbl_kind, 0.916454001007479_dbl_kind, 0.96771838765726_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,858) = (/ 0.891256761596846_dbl_kind, 0.8946082597844_dbl_kind, 0.898721783252933_dbl_kind, 0.916465785305558_dbl_kind, 0.967731185565785_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,859) = (/ 0.891257110286661_dbl_kind, 0.894609172754632_dbl_kind, 0.898725722787686_dbl_kind, 0.916477562897511_dbl_kind, 0.967743955548511_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,860) = (/ 0.891257458073422_dbl_kind, 0.894610085158492_dbl_kind, 0.898729660388459_dbl_kind, 0.916489333800611_dbl_kind, 0.967756697683927_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,861) = (/ 0.891257804960485_dbl_kind, 0.894610996998901_dbl_kind, 0.898733596059455_dbl_kind, 0.916501098032049_dbl_kind, 0.96776941205024_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,862) = (/ 0.891258150951192_dbl_kind, 0.894611908278744_dbl_kind, 0.898737529804852_dbl_kind, 0.916512855608929_dbl_kind, 0.967782098725377_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,863) = (/ 0.891258496048873_dbl_kind, 0.894612819000876_dbl_kind, 0.898741461628809_dbl_kind, 0.91652460654827_dbl_kind, 0.967794757786982_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,864) = (/ 0.891258840256847_dbl_kind, 0.89461372916812_dbl_kind, 0.898745391535462_dbl_kind, 0.916536350867008_dbl_kind, 0.967807389312431_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,865) = (/ 0.891259183578417_dbl_kind, 0.894614638783266_dbl_kind, 0.898749319528927_dbl_kind, 0.916548088581996_dbl_kind, 0.967819993378813_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,866) = (/ 0.891259526016879_dbl_kind, 0.894615547849076_dbl_kind, 0.898753245613301_dbl_kind, 0.916559819710005_dbl_kind, 0.967832570062947_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,867) = (/ 0.891259867575512_dbl_kind, 0.894616456368278_dbl_kind, 0.898757169792659_dbl_kind, 0.916571544267721_dbl_kind, 0.967845119441373_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,868) = (/ 0.891260208257585_dbl_kind, 0.89461736434357_dbl_kind, 0.898761092071056_dbl_kind, 0.916583262271751_dbl_kind, 0.967857641590365_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,869) = (/ 0.891260548066354_dbl_kind, 0.894618271777621_dbl_kind, 0.898765012452526_dbl_kind, 0.91659497373862_dbl_kind, 0.967870136585919_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,870) = (/ 0.891260887005063_dbl_kind, 0.894619178673068_dbl_kind, 0.898768930941085_dbl_kind, 0.91660667868477_dbl_kind, 0.967882604503762_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,871) = (/ 0.891261225076943_dbl_kind, 0.894620085032519_dbl_kind, 0.898772847540727_dbl_kind, 0.916618377126566_dbl_kind, 0.967895045419355_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,872) = (/ 0.891261562285215_dbl_kind, 0.894620990858555_dbl_kind, 0.89877676225543_dbl_kind, 0.916630069080291_dbl_kind, 0.967907459407882_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,873) = (/ 0.891261898633086_dbl_kind, 0.894621896153723_dbl_kind, 0.898780675089148_dbl_kind, 0.916641754562147_dbl_kind, 0.967919846544272_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,874) = (/ 0.891262234123751_dbl_kind, 0.894622800920544_dbl_kind, 0.898784586045819_dbl_kind, 0.916653433588262_dbl_kind, 0.967932206903179_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,875) = (/ 0.891262568760393_dbl_kind, 0.894623705161509_dbl_kind, 0.898788495129361_dbl_kind, 0.91666510617468_dbl_kind, 0.967944540558992_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,876) = (/ 0.891262902546184_dbl_kind, 0.894624608879083_dbl_kind, 0.898792402343673_dbl_kind, 0.916676772337371_dbl_kind, 0.967956847585842_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,877) = (/ 0.891263235484283_dbl_kind, 0.8946255120757_dbl_kind, 0.898796307692636_dbl_kind, 0.916688432092225_dbl_kind, 0.967969128057593_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,878) = (/ 0.891263567577836_dbl_kind, 0.894626414753766_dbl_kind, 0.898800211180111_dbl_kind, 0.916700085455056_dbl_kind, 0.967981382047852_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,879) = (/ 0.89126389882998_dbl_kind, 0.894627316915662_dbl_kind, 0.898804112809942_dbl_kind, 0.916711732441601_dbl_kind, 0.967993609629958_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,880) = (/ 0.891264229243838_dbl_kind, 0.89462821856374_dbl_kind, 0.898808012585954_dbl_kind, 0.91672337306752_dbl_kind, 0.968005810877_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,881) = (/ 0.891264558822521_dbl_kind, 0.894629119700323_dbl_kind, 0.898811910511955_dbl_kind, 0.916735007348399_dbl_kind, 0.968017985861802_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,882) = (/ 0.891264887569129_dbl_kind, 0.894630020327711_dbl_kind, 0.898815806591734_dbl_kind, 0.916746635299747_dbl_kind, 0.968030134656937_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,883) = (/ 0.891265215486749_dbl_kind, 0.894630920448174_dbl_kind, 0.898819700829063_dbl_kind, 0.916758256936999_dbl_kind, 0.968042257334718_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,884) = (/ 0.891265542578458_dbl_kind, 0.894631820063957_dbl_kind, 0.898823593227695_dbl_kind, 0.916769872275516_dbl_kind, 0.968054353967203_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,885) = (/ 0.891265868847321_dbl_kind, 0.89463271917728_dbl_kind, 0.898827483791367_dbl_kind, 0.916781481330583_dbl_kind, 0.968066424626204_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,886) = (/ 0.891266194296389_dbl_kind, 0.894633617790334_dbl_kind, 0.8988313725238_dbl_kind, 0.916793084117414_dbl_kind, 0.968078469383265_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,887) = (/ 0.891266518928704_dbl_kind, 0.894634515905288_dbl_kind, 0.898835259428694_dbl_kind, 0.916804680651148_dbl_kind, 0.968090488309698_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,888) = (/ 0.891266842747294_dbl_kind, 0.894635413524283_dbl_kind, 0.898839144509735_dbl_kind, 0.916816270946852_dbl_kind, 0.968102481476552_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,889) = (/ 0.891267165755178_dbl_kind, 0.894636310649435_dbl_kind, 0.898843027770592_dbl_kind, 0.916827855019521_dbl_kind, 0.968114448954628_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,890) = (/ 0.891267487955362_dbl_kind, 0.894637207282836_dbl_kind, 0.898846909214918_dbl_kind, 0.916839432884077_dbl_kind, 0.968126390814484_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,891) = (/ 0.891267809350839_dbl_kind, 0.894638103426554_dbl_kind, 0.898850788846346_dbl_kind, 0.916851004555372_dbl_kind, 0.968138307126426_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,892) = (/ 0.891268129944594_dbl_kind, 0.894638999082631_dbl_kind, 0.898854666668497_dbl_kind, 0.916862570048185_dbl_kind, 0.968150197960516_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,893) = (/ 0.891268449739598_dbl_kind, 0.894639894253085_dbl_kind, 0.898858542684973_dbl_kind, 0.916874129377228_dbl_kind, 0.968162063386576_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,894) = (/ 0.89126876873881_dbl_kind, 0.894640788939911_dbl_kind, 0.898862416899362_dbl_kind, 0.916885682557139_dbl_kind, 0.968173903474175_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,895) = (/ 0.891269086945179_dbl_kind, 0.894641683145079_dbl_kind, 0.898866289315234_dbl_kind, 0.916897229602488_dbl_kind, 0.968185718292644_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,896) = (/ 0.891269404361644_dbl_kind, 0.894642576870537_dbl_kind, 0.898870159936144_dbl_kind, 0.916908770527776_dbl_kind, 0.968197507911073_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,897) = (/ 0.891269720991129_dbl_kind, 0.894643470118208_dbl_kind, 0.898874028765633_dbl_kind, 0.916920305347432_dbl_kind, 0.968209272398311_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,898) = (/ 0.891270036836549_dbl_kind, 0.894644362889992_dbl_kind, 0.898877895807224_dbl_kind, 0.916931834075822_dbl_kind, 0.968221011822966_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,899) = (/ 0.891270351900808_dbl_kind, 0.894645255187769_dbl_kind, 0.898881761064426_dbl_kind, 0.91694335672724_dbl_kind, 0.968232726253407_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,900) = (/ 0.891270666186797_dbl_kind, 0.894646147013393_dbl_kind, 0.898885624540733_dbl_kind, 0.916954873315913_dbl_kind, 0.968244415757771_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,901) = (/ 0.891270979697398_dbl_kind, 0.894647038368697_dbl_kind, 0.898889486239623_dbl_kind, 0.916966383855999_dbl_kind, 0.968256080403949_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,902) = (/ 0.89127129243548_dbl_kind, 0.894647929255493_dbl_kind, 0.898893346164561_dbl_kind, 0.916977888361593_dbl_kind, 0.968267720259603_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,903) = (/ 0.891271604403903_dbl_kind, 0.894648819675567_dbl_kind, 0.898897204318996_dbl_kind, 0.91698938684672_dbl_kind, 0.968279335392158_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,904) = (/ 0.891271915605512_dbl_kind, 0.894649709630689_dbl_kind, 0.898901060706362_dbl_kind, 0.91700087932534_dbl_kind, 0.968290925868811_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,905) = (/ 0.891272226043145_dbl_kind, 0.894650599122602_dbl_kind, 0.898904915330078_dbl_kind, 0.917012365811347_dbl_kind, 0.968302491756516_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,906) = (/ 0.891272535719628_dbl_kind, 0.894651488153032_dbl_kind, 0.898908768193551_dbl_kind, 0.917023846318572_dbl_kind, 0.968314033122006_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,907) = (/ 0.891272844637773_dbl_kind, 0.89465237672368_dbl_kind, 0.898912619300171_dbl_kind, 0.917035320860775_dbl_kind, 0.968325550031774_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,908) = (/ 0.891273152800385_dbl_kind, 0.894653264836231_dbl_kind, 0.898916468653317_dbl_kind, 0.917046789451659_dbl_kind, 0.968337042552091_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,909) = (/ 0.891273460210257_dbl_kind, 0.894654152492344_dbl_kind, 0.898920316256351_dbl_kind, 0.917058252104856_dbl_kind, 0.968348510748997_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,910) = (/ 0.89127376687017_dbl_kind, 0.89465503969366_dbl_kind, 0.898924162112624_dbl_kind, 0.917069708833938_dbl_kind, 0.968359954688303_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,911) = (/ 0.891274072782893_dbl_kind, 0.894655926441802_dbl_kind, 0.89892800622547_dbl_kind, 0.917081159652414_dbl_kind, 0.968371374435594_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,912) = (/ 0.891274377951188_dbl_kind, 0.894656812738368_dbl_kind, 0.898931848598212_dbl_kind, 0.917092604573727_dbl_kind, 0.96838277005623_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,913) = (/ 0.891274682377804_dbl_kind, 0.89465769858494_dbl_kind, 0.89893568923416_dbl_kind, 0.917104043611259_dbl_kind, 0.968394141615345_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,914) = (/ 0.891274986065477_dbl_kind, 0.894658583983078_dbl_kind, 0.898939528136608_dbl_kind, 0.91711547677833_dbl_kind, 0.96840548917785_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,915) = (/ 0.891275289016936_dbl_kind, 0.894659468934325_dbl_kind, 0.89894336530884_dbl_kind, 0.917126904088196_dbl_kind, 0.968416812808436_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,916) = (/ 0.891275591234898_dbl_kind, 0.894660353440202_dbl_kind, 0.898947200754124_dbl_kind, 0.917138325554053_dbl_kind, 0.968428112571565_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,917) = (/ 0.891275892722069_dbl_kind, 0.894661237502212_dbl_kind, 0.898951034475718_dbl_kind, 0.917149741189036_dbl_kind, 0.968439388531483_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,918) = (/ 0.891276193481145_dbl_kind, 0.89466212112184_dbl_kind, 0.898954866476864_dbl_kind, 0.917161151006219_dbl_kind, 0.968450640752217_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,919) = (/ 0.89127649351481_dbl_kind, 0.89466300430055_dbl_kind, 0.898958696760794_dbl_kind, 0.917172555018613_dbl_kind, 0.968461869297575_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,920) = (/ 0.891276792825738_dbl_kind, 0.894663887039791_dbl_kind, 0.898962525330726_dbl_kind, 0.917183953239172_dbl_kind, 0.96847307423114_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,921) = (/ 0.891277091416595_dbl_kind, 0.894664769340991_dbl_kind, 0.898966352189867_dbl_kind, 0.917195345680788_dbl_kind, 0.968484255616288_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,922) = (/ 0.891277389290031_dbl_kind, 0.89466565120556_dbl_kind, 0.89897017734141_dbl_kind, 0.917206732356294_dbl_kind, 0.968495413516169_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,923) = (/ 0.891277686448692_dbl_kind, 0.89466653263489_dbl_kind, 0.898974000788536_dbl_kind, 0.917218113278465_dbl_kind, 0.968506547993722_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,924) = (/ 0.89127798289521_dbl_kind, 0.894667413630356_dbl_kind, 0.898977822534415_dbl_kind, 0.917229488460016_dbl_kind, 0.968517659111676_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,925) = (/ 0.891278278632205_dbl_kind, 0.894668294193316_dbl_kind, 0.898981642582205_dbl_kind, 0.917240857913604_dbl_kind, 0.968528746932538_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,926) = (/ 0.89127857366229_dbl_kind, 0.894669174325108_dbl_kind, 0.898985460935052_dbl_kind, 0.917252221651826_dbl_kind, 0.968539811518605_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,927) = (/ 0.891278867988067_dbl_kind, 0.894670054027056_dbl_kind, 0.898989277596088_dbl_kind, 0.917263579687224_dbl_kind, 0.968550852931969_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,928) = (/ 0.891279161612127_dbl_kind, 0.894670933300464_dbl_kind, 0.898993092568437_dbl_kind, 0.917274932032281_dbl_kind, 0.968561871234499_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,929) = (/ 0.891279454537049_dbl_kind, 0.894671812146622_dbl_kind, 0.898996905855209_dbl_kind, 0.917286278699424_dbl_kind, 0.968572866487866_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,930) = (/ 0.891279746765407_dbl_kind, 0.894672690566801_dbl_kind, 0.899000717459504_dbl_kind, 0.917297619701022_dbl_kind, 0.968583838753518_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,931) = (/ 0.891280038299758_dbl_kind, 0.894673568562255_dbl_kind, 0.899004527384411_dbl_kind, 0.917308955049387_dbl_kind, 0.968594788092713_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,932) = (/ 0.891280329142655_dbl_kind, 0.894674446134224_dbl_kind, 0.899008335633005_dbl_kind, 0.917320284756777_dbl_kind, 0.968605714566484_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,933) = (/ 0.891280619296636_dbl_kind, 0.894675323283931_dbl_kind, 0.899012142208353_dbl_kind, 0.917331608835393_dbl_kind, 0.968616618235669_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,934) = (/ 0.891280908764233_dbl_kind, 0.894676200012581_dbl_kind, 0.899015947113512_dbl_kind, 0.91734292729738_dbl_kind, 0.968627499160892_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,935) = (/ 0.891281197547965_dbl_kind, 0.894677076321366_dbl_kind, 0.899019750351523_dbl_kind, 0.917354240154828_dbl_kind, 0.968638357402581_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,936) = (/ 0.891281485650343_dbl_kind, 0.89467795221146_dbl_kind, 0.899023551925421_dbl_kind, 0.917365547419773_dbl_kind, 0.968649193020952_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,937) = (/ 0.891281773073866_dbl_kind, 0.894678827684023_dbl_kind, 0.899027351838229_dbl_kind, 0.917376849104196_dbl_kind, 0.96866000607602_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,938) = (/ 0.891282059821025_dbl_kind, 0.894679702740199_dbl_kind, 0.899031150092959_dbl_kind, 0.917388145220023_dbl_kind, 0.968670796627604_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,939) = (/ 0.8912823458943_dbl_kind, 0.894680577381117_dbl_kind, 0.899034946692614_dbl_kind, 0.917399435779129_dbl_kind, 0.968681564735313_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,940) = (/ 0.891282631296161_dbl_kind, 0.89468145160789_dbl_kind, 0.899038741640184_dbl_kind, 0.917410720793331_dbl_kind, 0.968692310458559_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,941) = (/ 0.891282916029069_dbl_kind, 0.894682325421616_dbl_kind, 0.899042534938652_dbl_kind, 0.917422000274397_dbl_kind, 0.968703033856555_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,942) = (/ 0.891283200095475_dbl_kind, 0.894683198823382_dbl_kind, 0.899046326590989_dbl_kind, 0.917433274234039_dbl_kind, 0.968713734988311_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,943) = (/ 0.891283483497819_dbl_kind, 0.894684071814255_dbl_kind, 0.899050116600156_dbl_kind, 0.917444542683918_dbl_kind, 0.968724413912648_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,944) = (/ 0.891283766238533_dbl_kind, 0.894684944395291_dbl_kind, 0.899053904969105_dbl_kind, 0.917455805635643_dbl_kind, 0.968735070688177_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,945) = (/ 0.891284048320039_dbl_kind, 0.89468581656753_dbl_kind, 0.899057691700776_dbl_kind, 0.917467063100768_dbl_kind, 0.968745705373322_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,946) = (/ 0.891284329744748_dbl_kind, 0.894686688332_dbl_kind, 0.899061476798104_dbl_kind, 0.9174783150908_dbl_kind, 0.968756318026311_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,947) = (/ 0.891284610515062_dbl_kind, 0.894687559689712_dbl_kind, 0.89906526026401_dbl_kind, 0.91748956161719_dbl_kind, 0.968766908705172_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,948) = (/ 0.891284890633375_dbl_kind, 0.894688430641666_dbl_kind, 0.899069042101406_dbl_kind, 0.917500802691341_dbl_kind, 0.96877747746774_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,949) = (/ 0.891285170102068_dbl_kind, 0.894689301188846_dbl_kind, 0.899072822313197_dbl_kind, 0.917512038324603_dbl_kind, 0.968788024371661_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,950) = (/ 0.891285448923517_dbl_kind, 0.894690171332225_dbl_kind, 0.899076600902276_dbl_kind, 0.917523268528278_dbl_kind, 0.968798549474384_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,951) = (/ 0.891285727100085_dbl_kind, 0.89469104107276_dbl_kind, 0.89908037787153_dbl_kind, 0.917534493313616_dbl_kind, 0.96880905283317_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,952) = (/ 0.891286004634126_dbl_kind, 0.894691910411397_dbl_kind, 0.899084153223833_dbl_kind, 0.917545712691816_dbl_kind, 0.968819534505084_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,953) = (/ 0.891286281527985_dbl_kind, 0.894692779349067_dbl_kind, 0.899087926962052_dbl_kind, 0.91755692667403_dbl_kind, 0.968829994547008_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,954) = (/ 0.891286557783999_dbl_kind, 0.894693647886688_dbl_kind, 0.899091699089046_dbl_kind, 0.917568135271359_dbl_kind, 0.968840433015628_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,955) = (/ 0.891286833404495_dbl_kind, 0.894694516025168_dbl_kind, 0.899095469607663_dbl_kind, 0.917579338494855_dbl_kind, 0.968850849967445_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,956) = (/ 0.891287108391787_dbl_kind, 0.894695383765399_dbl_kind, 0.899099238520745_dbl_kind, 0.917590536355522_dbl_kind, 0.968861245458773_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,957) = (/ 0.891287382748187_dbl_kind, 0.894696251108263_dbl_kind, 0.899103005831123_dbl_kind, 0.917601728864314_dbl_kind, 0.968871619545735_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,958) = (/ 0.891287656475989_dbl_kind, 0.894697118054627_dbl_kind, 0.899106771541619_dbl_kind, 0.917612916032139_dbl_kind, 0.968881972284273_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,959) = (/ 0.891287929577486_dbl_kind, 0.894697984605347_dbl_kind, 0.89911053565505_dbl_kind, 0.917624097869854_dbl_kind, 0.968892303730138_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,960) = (/ 0.891288202054956_dbl_kind, 0.894698850761268_dbl_kind, 0.89911429817422_dbl_kind, 0.917635274388271_dbl_kind, 0.968902613938899_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,961) = (/ 0.891288473910671_dbl_kind, 0.894699716523222_dbl_kind, 0.899118059101929_dbl_kind, 0.917646445598154_dbl_kind, 0.968912902965944_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,962) = (/ 0.891288745146893_dbl_kind, 0.894700581892028_dbl_kind, 0.899121818440965_dbl_kind, 0.917657611510219_dbl_kind, 0.968923170866473_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,963) = (/ 0.891289015765874_dbl_kind, 0.894701446868495_dbl_kind, 0.899125576194111_dbl_kind, 0.917668772135135_dbl_kind, 0.968933417695506_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,964) = (/ 0.891289285769858_dbl_kind, 0.894702311453418_dbl_kind, 0.89912933236414_dbl_kind, 0.917679927483527_dbl_kind, 0.968943643507879_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,965) = (/ 0.89128955516108_dbl_kind, 0.894703175647585_dbl_kind, 0.899133086953818_dbl_kind, 0.917691077565969_dbl_kind, 0.96895384835825_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,966) = (/ 0.891289823941765_dbl_kind, 0.894704039451768_dbl_kind, 0.899136839965904_dbl_kind, 0.917702222392994_dbl_kind, 0.968964032301097_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,967) = (/ 0.891290092114131_dbl_kind, 0.89470490286673_dbl_kind, 0.899140591403146_dbl_kind, 0.917713361975085_dbl_kind, 0.968974195390714_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,968) = (/ 0.891290359680385_dbl_kind, 0.894705765893223_dbl_kind, 0.899144341268288_dbl_kind, 0.917724496322684_dbl_kind, 0.96898433768122_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,969) = (/ 0.891290626642725_dbl_kind, 0.894706628531985_dbl_kind, 0.899148089564063_dbl_kind, 0.917735625446182_dbl_kind, 0.968994459226556_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,970) = (/ 0.891290893003342_dbl_kind, 0.894707490783748_dbl_kind, 0.899151836293199_dbl_kind, 0.917746749355929_dbl_kind, 0.969004560080486_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,971) = (/ 0.891291158764418_dbl_kind, 0.894708352649231_dbl_kind, 0.899155581458416_dbl_kind, 0.91775786806223_dbl_kind, 0.969014640296593_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,972) = (/ 0.891291423928124_dbl_kind, 0.894709214129141_dbl_kind, 0.899159325062427_dbl_kind, 0.917768981575345_dbl_kind, 0.969024699928291_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,973) = (/ 0.891291688496625_dbl_kind, 0.894710075224175_dbl_kind, 0.899163067107935_dbl_kind, 0.917780089905488_dbl_kind, 0.969034739028811_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,974) = (/ 0.891291952472075_dbl_kind, 0.894710935935022_dbl_kind, 0.89916680759764_dbl_kind, 0.917791193062833_dbl_kind, 0.969044757651216_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,975) = (/ 0.891292215856621_dbl_kind, 0.894711796262358_dbl_kind, 0.899170546534231_dbl_kind, 0.917802291057506_dbl_kind, 0.969054755848393_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,976) = (/ 0.8912924786524_dbl_kind, 0.894712656206851_dbl_kind, 0.899174283920392_dbl_kind, 0.917813383899592_dbl_kind, 0.969064733673054_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,977) = (/ 0.891292740861542_dbl_kind, 0.894713515769155_dbl_kind, 0.8991780197588_dbl_kind, 0.917824471599132_dbl_kind, 0.969074691177741_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,978) = (/ 0.891293002486166_dbl_kind, 0.89471437494992_dbl_kind, 0.899181754052124_dbl_kind, 0.917835554166124_dbl_kind, 0.969084628414828_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,979) = (/ 0.891293263528385_dbl_kind, 0.894715233749781_dbl_kind, 0.899185486803027_dbl_kind, 0.917846631610524_dbl_kind, 0.969094545436507_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,980) = (/ 0.891293523990301_dbl_kind, 0.894716092169366_dbl_kind, 0.899189218014166_dbl_kind, 0.917857703942245_dbl_kind, 0.969104442294809_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,981) = (/ 0.891293783874011_dbl_kind, 0.894716950209293_dbl_kind, 0.899192947688188_dbl_kind, 0.917868771171157_dbl_kind, 0.969114319041596_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,982) = (/ 0.8912940431816_dbl_kind, 0.89471780787017_dbl_kind, 0.899196675827738_dbl_kind, 0.917879833307089_dbl_kind, 0.969124175728554_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,983) = (/ 0.891294301915145_dbl_kind, 0.894718665152595_dbl_kind, 0.899200402435451_dbl_kind, 0.917890890359828_dbl_kind, 0.969134012407205_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,984) = (/ 0.891294560076718_dbl_kind, 0.894719522057159_dbl_kind, 0.899204127513957_dbl_kind, 0.917901942339119_dbl_kind, 0.969143829128904_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,985) = (/ 0.891294817668378_dbl_kind, 0.894720378584442_dbl_kind, 0.899207851065879_dbl_kind, 0.917912989254667_dbl_kind, 0.969153625944837_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,986) = (/ 0.891295074692179_dbl_kind, 0.894721234735014_dbl_kind, 0.899211573093834_dbl_kind, 0.917924031116135_dbl_kind, 0.969163402906029_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,987) = (/ 0.891295331150165_dbl_kind, 0.894722090509439_dbl_kind, 0.899215293600432_dbl_kind, 0.917935067933143_dbl_kind, 0.96917316006333_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,988) = (/ 0.891295587044373_dbl_kind, 0.89472294590827_dbl_kind, 0.899219012588278_dbl_kind, 0.917946099715275_dbl_kind, 0.969182897467433_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,989) = (/ 0.89129584237683_dbl_kind, 0.894723800932052_dbl_kind, 0.899222730059971_dbl_kind, 0.917957126472072_dbl_kind, 0.969192615168866_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,990) = (/ 0.891296097149557_dbl_kind, 0.89472465558132_dbl_kind, 0.899226446018101_dbl_kind, 0.917968148213034_dbl_kind, 0.969202313217987_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,991) = (/ 0.891296351364564_dbl_kind, 0.894725509856602_dbl_kind, 0.899230160465255_dbl_kind, 0.917979164947623_dbl_kind, 0.969211991665_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,992) = (/ 0.891296605023856_dbl_kind, 0.894726363758419_dbl_kind, 0.899233873404014_dbl_kind, 0.91799017668526_dbl_kind, 0.969221650559939_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,993) = (/ 0.891296858129429_dbl_kind, 0.894727217287279_dbl_kind, 0.899237584836952_dbl_kind, 0.918001183435327_dbl_kind, 0.969231289952681_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,994) = (/ 0.891297110683268_dbl_kind, 0.894728070443687_dbl_kind, 0.899241294766637_dbl_kind, 0.918012185207167_dbl_kind, 0.969240909892942_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,995) = (/ 0.891297362687354_dbl_kind, 0.894728923228135_dbl_kind, 0.899245003195632_dbl_kind, 0.918023182010084_dbl_kind, 0.969250510430276_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,996) = (/ 0.891297614143658_dbl_kind, 0.89472977564111_dbl_kind, 0.899248710126493_dbl_kind, 0.918034173853343_dbl_kind, 0.969260091614076_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,997) = (/ 0.891297865054144_dbl_kind, 0.894730627683092_dbl_kind, 0.899252415561773_dbl_kind, 0.91804516074617_dbl_kind, 0.969269653493577_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,998) = (/ 0.891298115420766_dbl_kind, 0.89473147935455_dbl_kind, 0.899256119504017_dbl_kind, 0.918056142697753_dbl_kind, 0.969279196117858_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,999) = (/ 0.891298365245472_dbl_kind, 0.894732330655946_dbl_kind, 0.899259821955766_dbl_kind, 0.918067119717242_dbl_kind, 0.96928871953584_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1000) = (/ 0.891298614530201_dbl_kind, 0.894733181587737_dbl_kind, 0.899263522919554_dbl_kind, 0.918078091813749_dbl_kind, 0.96929822379628_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1001) = (/ 0.891298863276887_dbl_kind, 0.894734032150368_dbl_kind, 0.89926722239791_dbl_kind, 0.918089058996348_dbl_kind, 0.969307708947787_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1002) = (/ 0.89129911148745_dbl_kind, 0.894734882344282_dbl_kind, 0.89927092039336_dbl_kind, 0.918100021274076_dbl_kind, 0.969317175038811_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1003) = (/ 0.891299359163809_dbl_kind, 0.894735732169908_dbl_kind, 0.899274616908421_dbl_kind, 0.918110978655933_dbl_kind, 0.969326622117643_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1004) = (/ 0.891299606307872_dbl_kind, 0.894736581627674_dbl_kind, 0.899278311945608_dbl_kind, 0.91812193115088_dbl_kind, 0.969336050232424_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1005) = (/ 0.891299852921538_dbl_kind, 0.894737430717996_dbl_kind, 0.899282005507428_dbl_kind, 0.918132878767844_dbl_kind, 0.969345459431143_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1006) = (/ 0.891300099006701_dbl_kind, 0.894738279441287_dbl_kind, 0.899285697596386_dbl_kind, 0.918143821515713_dbl_kind, 0.969354849761626_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1007) = (/ 0.891300344565247_dbl_kind, 0.894739127797948_dbl_kind, 0.899289388214979_dbl_kind, 0.918154759403339_dbl_kind, 0.969364221271555_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1008) = (/ 0.891300589599052_dbl_kind, 0.894739975788377_dbl_kind, 0.899293077365701_dbl_kind, 0.918165692439538_dbl_kind, 0.969373574008455_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1009) = (/ 0.891300834109986_dbl_kind, 0.894740823412965_dbl_kind, 0.899296765051041_dbl_kind, 0.918176620633091_dbl_kind, 0.969382908019702_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1010) = (/ 0.891301078099912_dbl_kind, 0.894741670672093_dbl_kind, 0.899300451273482_dbl_kind, 0.918187543992741_dbl_kind, 0.96939222335252_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1011) = (/ 0.891301321570685_dbl_kind, 0.894742517566139_dbl_kind, 0.899304136035501_dbl_kind, 0.918198462527198_dbl_kind, 0.96940152005398_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1012) = (/ 0.891301564524152_dbl_kind, 0.894743364095472_dbl_kind, 0.899307819339575_dbl_kind, 0.918209376245133_dbl_kind, 0.969410798171008_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1013) = (/ 0.891301806962152_dbl_kind, 0.894744210260454_dbl_kind, 0.899311501188171_dbl_kind, 0.918220285155184_dbl_kind, 0.969420057750377_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1014) = (/ 0.891302048886519_dbl_kind, 0.894745056061444_dbl_kind, 0.899315181583754_dbl_kind, 0.918231189265955_dbl_kind, 0.969429298838713_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1015) = (/ 0.891302290299076_dbl_kind, 0.89474590149879_dbl_kind, 0.899318860528784_dbl_kind, 0.918242088586013_dbl_kind, 0.969438521482491_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1016) = (/ 0.891302531201641_dbl_kind, 0.894746746572838_dbl_kind, 0.899322538025717_dbl_kind, 0.918252983123891_dbl_kind, 0.969447725728041_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1017) = (/ 0.891302771596026_dbl_kind, 0.894747591283924_dbl_kind, 0.899326214077002_dbl_kind, 0.918263872888087_dbl_kind, 0.969456911621549_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1018) = (/ 0.891303011484031_dbl_kind, 0.894748435632381_dbl_kind, 0.899329888685088_dbl_kind, 0.918274757887067_dbl_kind, 0.969466079209046_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1019) = (/ 0.891303250867453_dbl_kind, 0.894749279618533_dbl_kind, 0.899333561852415_dbl_kind, 0.918285638129259_dbl_kind, 0.969475228536426_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1020) = (/ 0.89130348974808_dbl_kind, 0.894750123242699_dbl_kind, 0.89933723358142_dbl_kind, 0.918296513623061_dbl_kind, 0.96948435964943_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1021) = (/ 0.891303728127693_dbl_kind, 0.894750966505195_dbl_kind, 0.899340903874537_dbl_kind, 0.918307384376834_dbl_kind, 0.969493472593661_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1022) = (/ 0.891303966008066_dbl_kind, 0.894751809406327_dbl_kind, 0.899344572734195_dbl_kind, 0.918318250398909_dbl_kind, 0.969502567414575_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1023) = (/ 0.891304203390964_dbl_kind, 0.894752651946397_dbl_kind, 0.89934824016282_dbl_kind, 0.918329111697578_dbl_kind, 0.969511644157481_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1024) = (/ 0.891304440278148_dbl_kind, 0.8947534941257_dbl_kind, 0.899351906162829_dbl_kind, 0.918339968281107_dbl_kind, 0.969520702867554_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1025) = (/ 0.89130467667137_dbl_kind, 0.894754335944529_dbl_kind, 0.899355570736641_dbl_kind, 0.918350820157723_dbl_kind, 0.969529743589817_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1026) = (/ 0.891304912572373_dbl_kind, 0.894755177403167_dbl_kind, 0.899359233886668_dbl_kind, 0.918361667335624_dbl_kind, 0.969538766369155_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1027) = (/ 0.891305147982898_dbl_kind, 0.894756018501895_dbl_kind, 0.899362895615317_dbl_kind, 0.918372509822972_dbl_kind, 0.969547771250312_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1028) = (/ 0.891305382904674_dbl_kind, 0.894756859240985_dbl_kind, 0.899366555924992_dbl_kind, 0.9183833476279_dbl_kind, 0.969556758277889_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1029) = (/ 0.891305617339426_dbl_kind, 0.894757699620707_dbl_kind, 0.899370214818095_dbl_kind, 0.918394180758506_dbl_kind, 0.969565727496353_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1030) = (/ 0.89130585128887_dbl_kind, 0.894758539641324_dbl_kind, 0.899373872297021_dbl_kind, 0.918405009222858_dbl_kind, 0.969574678950022_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1031) = (/ 0.891306084754718_dbl_kind, 0.894759379303095_dbl_kind, 0.899377528364162_dbl_kind, 0.91841583302899_dbl_kind, 0.969583612683082_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1032) = (/ 0.89130631773867_dbl_kind, 0.894760218606272_dbl_kind, 0.899381183021906_dbl_kind, 0.918426652184905_dbl_kind, 0.969592528739576_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1033) = (/ 0.891306550242423_dbl_kind, 0.894761057551103_dbl_kind, 0.899384836272639_dbl_kind, 0.918437466698575_dbl_kind, 0.969601427163411_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1034) = (/ 0.891306782267669_dbl_kind, 0.894761896137831_dbl_kind, 0.899388488118742_dbl_kind, 0.91844827657794_dbl_kind, 0.969610307998356_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1035) = (/ 0.891307013816087_dbl_kind, 0.894762734366694_dbl_kind, 0.899392138562591_dbl_kind, 0.91845908183091_dbl_kind, 0.969619171288044_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1036) = (/ 0.891307244889354_dbl_kind, 0.894763572237926_dbl_kind, 0.899395787606559_dbl_kind, 0.918469882465361_dbl_kind, 0.969628017075969_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1037) = (/ 0.891307475489139_dbl_kind, 0.894764409751753_dbl_kind, 0.899399435253017_dbl_kind, 0.918480678489141_dbl_kind, 0.969636845405492_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1038) = (/ 0.891307705617104_dbl_kind, 0.894765246908401_dbl_kind, 0.899403081504331_dbl_kind, 0.918491469910065_dbl_kind, 0.969645656319835_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1039) = (/ 0.891307935274903_dbl_kind, 0.894766083708088_dbl_kind, 0.899406726362864_dbl_kind, 0.91850225673592_dbl_kind, 0.969654449862087_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1040) = (/ 0.891308164464187_dbl_kind, 0.894766920151027_dbl_kind, 0.899410369830973_dbl_kind, 0.91851303897446_dbl_kind, 0.969663226075204_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1041) = (/ 0.891308393186595_dbl_kind, 0.894767756237429_dbl_kind, 0.899414011911015_dbl_kind, 0.91852381663341_dbl_kind, 0.969671985002004_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1042) = (/ 0.891308621443765_dbl_kind, 0.894768591967499_dbl_kind, 0.899417652605343_dbl_kind, 0.918534589720465_dbl_kind, 0.969680726685176_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1043) = (/ 0.891308849237324_dbl_kind, 0.894769427341437_dbl_kind, 0.899421291916304_dbl_kind, 0.918545358243288_dbl_kind, 0.969689451167275_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1044) = (/ 0.891309076568893_dbl_kind, 0.89477026235944_dbl_kind, 0.899424929846243_dbl_kind, 0.918556122209516_dbl_kind, 0.96969815849072_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1045) = (/ 0.89130930344009_dbl_kind, 0.894771097021699_dbl_kind, 0.899428566397503_dbl_kind, 0.918566881626754_dbl_kind, 0.969706848697803_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1046) = (/ 0.891309529852522_dbl_kind, 0.894771931328403_dbl_kind, 0.899432201572423_dbl_kind, 0.918577636502576_dbl_kind, 0.969715521830681_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1047) = (/ 0.891309755807793_dbl_kind, 0.894772765279734_dbl_kind, 0.899435835373336_dbl_kind, 0.91858838684453_dbl_kind, 0.969724177931383_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1048) = (/ 0.891309981307496_dbl_kind, 0.894773598875873_dbl_kind, 0.899439467802576_dbl_kind, 0.918599132660133_dbl_kind, 0.969732817041804_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1049) = (/ 0.891310206353223_dbl_kind, 0.894774432116993_dbl_kind, 0.89944309886247_dbl_kind, 0.918609873956873_dbl_kind, 0.969741439203714_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1050) = (/ 0.891310430946556_dbl_kind, 0.894775265003268_dbl_kind, 0.899446728555345_dbl_kind, 0.918620610742209_dbl_kind, 0.969750044458751_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1051) = (/ 0.891310655089072_dbl_kind, 0.894776097534863_dbl_kind, 0.899450356883521_dbl_kind, 0.918631343023572_dbl_kind, 0.969758632848421_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1052) = (/ 0.89131087878234_dbl_kind, 0.894776929711942_dbl_kind, 0.89945398384932_dbl_kind, 0.918642070808365_dbl_kind, 0.969767204414107_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1053) = (/ 0.891311102027925_dbl_kind, 0.894777761534664_dbl_kind, 0.899457609455057_dbl_kind, 0.91865279410396_dbl_kind, 0.969775759197058_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1054) = (/ 0.891311324827384_dbl_kind, 0.894778593003186_dbl_kind, 0.899461233703043_dbl_kind, 0.918663512917704_dbl_kind, 0.969784297238405_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1055) = (/ 0.891311547182268_dbl_kind, 0.894779424117659_dbl_kind, 0.899464856595591_dbl_kind, 0.918674227256913_dbl_kind, 0.969792818579143_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1056) = (/ 0.891311769094121_dbl_kind, 0.894780254878231_dbl_kind, 0.899468478135005_dbl_kind, 0.918684937128877_dbl_kind, 0.969801323260142_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1057) = (/ 0.891311990564484_dbl_kind, 0.894781085285046_dbl_kind, 0.899472098323591_dbl_kind, 0.918695642540857_dbl_kind, 0.96980981132215_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1058) = (/ 0.891312211594887_dbl_kind, 0.894781915338246_dbl_kind, 0.899475717163648_dbl_kind, 0.918706343500088_dbl_kind, 0.969818282805787_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1059) = (/ 0.891312432186858_dbl_kind, 0.894782745037968_dbl_kind, 0.899479334657475_dbl_kind, 0.918717040013775_dbl_kind, 0.969826737751549_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1060) = (/ 0.891312652341915_dbl_kind, 0.894783574384346_dbl_kind, 0.899482950807367_dbl_kind, 0.918727732089097_dbl_kind, 0.969835176199804_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1061) = (/ 0.891312872061573_dbl_kind, 0.89478440337751_dbl_kind, 0.899486565615616_dbl_kind, 0.918738419733206_dbl_kind, 0.969843598190802_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1062) = (/ 0.89131309134734_dbl_kind, 0.894785232017587_dbl_kind, 0.89949017908451_dbl_kind, 0.918749102953226_dbl_kind, 0.969852003764662_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1063) = (/ 0.891313310200717_dbl_kind, 0.894786060304701_dbl_kind, 0.899493791216338_dbl_kind, 0.918759781756256_dbl_kind, 0.969860392961387_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1064) = (/ 0.8913135286232_dbl_kind, 0.894786888238972_dbl_kind, 0.89949740201338_dbl_kind, 0.918770456149365_dbl_kind, 0.969868765820853_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1065) = (/ 0.891313746616278_dbl_kind, 0.894787715820518_dbl_kind, 0.899501011477919_dbl_kind, 0.918781126139597_dbl_kind, 0.969877122382816_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1066) = (/ 0.891313964181434_dbl_kind, 0.894788543049452_dbl_kind, 0.899504619612233_dbl_kind, 0.91879179173397_dbl_kind, 0.969885462686905_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1067) = (/ 0.891314181320146_dbl_kind, 0.894789369925885_dbl_kind, 0.899508226418597_dbl_kind, 0.918802452939474_dbl_kind, 0.969893786772635_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1068) = (/ 0.891314398033886_dbl_kind, 0.894790196449925_dbl_kind, 0.899511831899282_dbl_kind, 0.918813109763076_dbl_kind, 0.969902094679396_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1069) = (/ 0.891314614324119_dbl_kind, 0.894791022621676_dbl_kind, 0.89951543605656_dbl_kind, 0.918823762211712_dbl_kind, 0.96991038644646_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1070) = (/ 0.891314830192305_dbl_kind, 0.89479184844124_dbl_kind, 0.899519038892696_dbl_kind, 0.918834410292296_dbl_kind, 0.969918662112975_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1071) = (/ 0.891315045639896_dbl_kind, 0.894792673908716_dbl_kind, 0.899522640409955_dbl_kind, 0.918845054011713_dbl_kind, 0.969926921717975_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1072) = (/ 0.891315260668342_dbl_kind, 0.894793499024199_dbl_kind, 0.8995262406106_dbl_kind, 0.918855693376824_dbl_kind, 0.969935165300367_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1073) = (/ 0.891315475279083_dbl_kind, 0.894794323787782_dbl_kind, 0.899529839496888_dbl_kind, 0.918866328394466_dbl_kind, 0.96994339289895_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1074) = (/ 0.891315689473557_dbl_kind, 0.894795148199555_dbl_kind, 0.899533437071078_dbl_kind, 0.918876959071447_dbl_kind, 0.969951604552394_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1075) = (/ 0.891315903253193_dbl_kind, 0.894795972259606_dbl_kind, 0.899537033335422_dbl_kind, 0.918887585414551_dbl_kind, 0.969959800299262_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1076) = (/ 0.891316116619416_dbl_kind, 0.894796795968019_dbl_kind, 0.899540628292172_dbl_kind, 0.918898207430539_dbl_kind, 0.969967980177988_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1077) = (/ 0.891316329573645_dbl_kind, 0.894797619324875_dbl_kind, 0.899544221943576_dbl_kind, 0.918908825126142_dbl_kind, 0.969976144226898_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1078) = (/ 0.891316542117293_dbl_kind, 0.894798442330254_dbl_kind, 0.899547814291881_dbl_kind, 0.91891943850807_dbl_kind, 0.969984292484202_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1079) = (/ 0.891316754251767_dbl_kind, 0.894799264984233_dbl_kind, 0.899551405339332_dbl_kind, 0.918930047583008_dbl_kind, 0.969992424987985_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1080) = (/ 0.891316965978468_dbl_kind, 0.894800087286885_dbl_kind, 0.899554995088168_dbl_kind, 0.918940652357613_dbl_kind, 0.970000541776229_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1081) = (/ 0.891317177298794_dbl_kind, 0.894800909238281_dbl_kind, 0.89955858354063_dbl_kind, 0.918951252838521_dbl_kind, 0.970008642886788_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1082) = (/ 0.891317388214133_dbl_kind, 0.894801730838491_dbl_kind, 0.899562170698952_dbl_kind, 0.918961849032342_dbl_kind, 0.970016728357409_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1083) = (/ 0.891317598725872_dbl_kind, 0.894802552087581_dbl_kind, 0.89956575656537_dbl_kind, 0.918972440945661_dbl_kind, 0.970024798225726_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1084) = (/ 0.891317808835388_dbl_kind, 0.894803372985616_dbl_kind, 0.899569341142114_dbl_kind, 0.91898302858504_dbl_kind, 0.970032852529255_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1085) = (/ 0.891318018544056_dbl_kind, 0.894804193532656_dbl_kind, 0.899572924431413_dbl_kind, 0.918993611957014_dbl_kind, 0.9700408913054_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1086) = (/ 0.891318227853244_dbl_kind, 0.894805013728762_dbl_kind, 0.899576506435495_dbl_kind, 0.919004191068099_dbl_kind, 0.970048914591452_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1087) = (/ 0.891318436764314_dbl_kind, 0.89480583357399_dbl_kind, 0.899580087156583_dbl_kind, 0.919014765924783_dbl_kind, 0.970056922424589_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1088) = (/ 0.891318645278623_dbl_kind, 0.894806653068395_dbl_kind, 0.8995836665969_dbl_kind, 0.91902533653353_dbl_kind, 0.970064914841877_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1089) = (/ 0.891318853397523_dbl_kind, 0.89480747221203_dbl_kind, 0.899587244758664_dbl_kind, 0.919035902900783_dbl_kind, 0.970072891880273_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1090) = (/ 0.891319061122359_dbl_kind, 0.894808291004946_dbl_kind, 0.899590821644094_dbl_kind, 0.91904646503296_dbl_kind, 0.970080853576616_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1091) = (/ 0.891319268454473_dbl_kind, 0.894809109447189_dbl_kind, 0.899594397255404_dbl_kind, 0.919057022936456_dbl_kind, 0.970088799967643_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1092) = (/ 0.891319475395201_dbl_kind, 0.894809927538808_dbl_kind, 0.899597971594806_dbl_kind, 0.91906757661764_dbl_kind, 0.970096731089974_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1093) = (/ 0.891319681945871_dbl_kind, 0.894810745279846_dbl_kind, 0.899601544664511_dbl_kind, 0.919078126082862_dbl_kind, 0.970104646980119_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1094) = (/ 0.891319888107807_dbl_kind, 0.894811562670344_dbl_kind, 0.899605116466726_dbl_kind, 0.919088671338447_dbl_kind, 0.970112547674482_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1095) = (/ 0.891320093882331_dbl_kind, 0.894812379710344_dbl_kind, 0.899608687003658_dbl_kind, 0.919099212390695_dbl_kind, 0.970120433209357_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1096) = (/ 0.891320299270755_dbl_kind, 0.894813196399883_dbl_kind, 0.899612256277509_dbl_kind, 0.919109749245887_dbl_kind, 0.970128303620923_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1097) = (/ 0.891320504274388_dbl_kind, 0.894814012738999_dbl_kind, 0.899615824290481_dbl_kind, 0.919120281910277_dbl_kind, 0.970136158945261_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1098) = (/ 0.891320708894533_dbl_kind, 0.894814828727723_dbl_kind, 0.899619391044774_dbl_kind, 0.9191308103901_dbl_kind, 0.970143999218333_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1099) = (/ 0.891320913132488_dbl_kind, 0.894815644366091_dbl_kind, 0.899622956542582_dbl_kind, 0.919141334691565_dbl_kind, 0.970151824476005_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1100) = (/ 0.891321116989546_dbl_kind, 0.894816459654132_dbl_kind, 0.8996265207861_dbl_kind, 0.919151854820862_dbl_kind, 0.970159634754022_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1101) = (/ 0.891321320466996_dbl_kind, 0.894817274591875_dbl_kind, 0.899630083777522_dbl_kind, 0.919162370784156_dbl_kind, 0.970167430088035_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1102) = (/ 0.891321523566118_dbl_kind, 0.894818089179347_dbl_kind, 0.899633645519037_dbl_kind, 0.91917288258759_dbl_kind, 0.97017521051358_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1103) = (/ 0.89132172628819_dbl_kind, 0.894818903416574_dbl_kind, 0.899637206012832_dbl_kind, 0.919183390237286_dbl_kind, 0.970182976066092_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1104) = (/ 0.891321928634486_dbl_kind, 0.894819717303579_dbl_kind, 0.899640765261094_dbl_kind, 0.919193893739344_dbl_kind, 0.970190726780897_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1105) = (/ 0.891322130606271_dbl_kind, 0.894820530840385_dbl_kind, 0.899644323266005_dbl_kind, 0.91920439309984_dbl_kind, 0.970198462693213_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1106) = (/ 0.891322332204807_dbl_kind, 0.894821344027013_dbl_kind, 0.899647880029746_dbl_kind, 0.919214888324831_dbl_kind, 0.970206183838161_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1107) = (/ 0.891322533431352_dbl_kind, 0.89482215686348_dbl_kind, 0.899651435554498_dbl_kind, 0.919225379420349_dbl_kind, 0.970213890250754_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1108) = (/ 0.891322734287157_dbl_kind, 0.894822969349805_dbl_kind, 0.899654989842435_dbl_kind, 0.919235866392408_dbl_kind, 0.970221581965898_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1109) = (/ 0.89132293477347_dbl_kind, 0.894823781486003_dbl_kind, 0.899658542895734_dbl_kind, 0.919246349246996_dbl_kind, 0.970229259018399_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1110) = (/ 0.891323134891531_dbl_kind, 0.894824593272089_dbl_kind, 0.899662094716567_dbl_kind, 0.919256827990083_dbl_kind, 0.970236921442953_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1111) = (/ 0.891323334642577_dbl_kind, 0.894825404708075_dbl_kind, 0.899665645307103_dbl_kind, 0.919267302627618_dbl_kind, 0.970244569274162_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1112) = (/ 0.891323534027841_dbl_kind, 0.894826215793973_dbl_kind, 0.899669194669512_dbl_kind, 0.919277773165525_dbl_kind, 0.97025220254652_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1113) = (/ 0.891323733048549_dbl_kind, 0.894827026529793_dbl_kind, 0.89967274280596_dbl_kind, 0.919288239609711_dbl_kind, 0.970259821294419_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1114) = (/ 0.891323931705924_dbl_kind, 0.894827836915544_dbl_kind, 0.899676289718609_dbl_kind, 0.919298701966058_dbl_kind, 0.97026742555215_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1115) = (/ 0.891324130001181_dbl_kind, 0.894828646951232_dbl_kind, 0.899679835409623_dbl_kind, 0.919309160240431_dbl_kind, 0.970275015353903_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1116) = (/ 0.891324327935533_dbl_kind, 0.894829456636864_dbl_kind, 0.899683379881161_dbl_kind, 0.919319614438671_dbl_kind, 0.970282590733764_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1117) = (/ 0.891324525510189_dbl_kind, 0.894830265972445_dbl_kind, 0.899686923135379_dbl_kind, 0.9193300645666_dbl_kind, 0.970290151725722_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1118) = (/ 0.891324722726349_dbl_kind, 0.894831074957978_dbl_kind, 0.899690465174435_dbl_kind, 0.919340510630018_dbl_kind, 0.970297698363663_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1119) = (/ 0.891324919585211_dbl_kind, 0.894831883593465_dbl_kind, 0.899694006000481_dbl_kind, 0.919350952634704_dbl_kind, 0.970305230681373_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1120) = (/ 0.891325116087969_dbl_kind, 0.894832691878908_dbl_kind, 0.899697545615668_dbl_kind, 0.919361390586419_dbl_kind, 0.97031274871254_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1121) = (/ 0.89132531223581_dbl_kind, 0.894833499814306_dbl_kind, 0.899701084022145_dbl_kind, 0.919371824490902_dbl_kind, 0.97032025249075_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1122) = (/ 0.891325508029918_dbl_kind, 0.894834307399657_dbl_kind, 0.89970462122206_dbl_kind, 0.91938225435387_dbl_kind, 0.970327742049491_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1123) = (/ 0.89132570347147_dbl_kind, 0.89483511463496_dbl_kind, 0.899708157217557_dbl_kind, 0.919392680181023_dbl_kind, 0.970335217422156_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1124) = (/ 0.891325898561642_dbl_kind, 0.89483592152021_dbl_kind, 0.899711692010778_dbl_kind, 0.919403101978038_dbl_kind, 0.970342678642034_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1125) = (/ 0.891326093301601_dbl_kind, 0.894836728055404_dbl_kind, 0.899715225603866_dbl_kind, 0.919413519750573_dbl_kind, 0.970350125742316_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1126) = (/ 0.891326287692512_dbl_kind, 0.894837534240536_dbl_kind, 0.899718757998958_dbl_kind, 0.919423933504266_dbl_kind, 0.970357558756103_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1127) = (/ 0.891326481735536_dbl_kind, 0.894838340075598_dbl_kind, 0.89972228919819_dbl_kind, 0.919434343244736_dbl_kind, 0.970364977716392_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1128) = (/ 0.891326675431826_dbl_kind, 0.894839145560583_dbl_kind, 0.899725819203697_dbl_kind, 0.919444748977581_dbl_kind, 0.970372382656082_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1129) = (/ 0.891326868782534_dbl_kind, 0.894839950695483_dbl_kind, 0.899729348017612_dbl_kind, 0.919455150708379_dbl_kind, 0.970379773607978_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1130) = (/ 0.891327061788805_dbl_kind, 0.894840755480289_dbl_kind, 0.899732875642064_dbl_kind, 0.919465548442689_dbl_kind, 0.970387150604794_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1131) = (/ 0.89132725445178_dbl_kind, 0.894841559914988_dbl_kind, 0.89973640207918_dbl_kind, 0.91947594218605_dbl_kind, 0.970394513679139_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1132) = (/ 0.891327446772596_dbl_kind, 0.894842363999571_dbl_kind, 0.899739927331089_dbl_kind, 0.919486331943982_dbl_kind, 0.970401862863531_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1133) = (/ 0.891327638752386_dbl_kind, 0.894843167734025_dbl_kind, 0.899743451399912_dbl_kind, 0.919496717721986_dbl_kind, 0.970409198190392_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1134) = (/ 0.891327830392276_dbl_kind, 0.894843971118337_dbl_kind, 0.899746974287773_dbl_kind, 0.919507099525542_dbl_kind, 0.970416519692052_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1135) = (/ 0.89132802169339_dbl_kind, 0.894844774152492_dbl_kind, 0.899750495996789_dbl_kind, 0.919517477360111_dbl_kind, 0.970423827400742_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1136) = (/ 0.891328212656847_dbl_kind, 0.894845576836477_dbl_kind, 0.899754016529079_dbl_kind, 0.919527851231138_dbl_kind, 0.9704311213486_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1137) = (/ 0.89132840328376_dbl_kind, 0.894846379170275_dbl_kind, 0.89975753588676_dbl_kind, 0.919538221144044_dbl_kind, 0.970438401567673_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1138) = (/ 0.891328593575239_dbl_kind, 0.894847181153871_dbl_kind, 0.899761054071942_dbl_kind, 0.919548587104235_dbl_kind, 0.970445668089911_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1139) = (/ 0.891328783532389_dbl_kind, 0.894847982787247_dbl_kind, 0.899764571086738_dbl_kind, 0.919558949117095_dbl_kind, 0.970452920947174_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1140) = (/ 0.891328973156312_dbl_kind, 0.894848784070386_dbl_kind, 0.899768086933256_dbl_kind, 0.919569307187992_dbl_kind, 0.970460160171226_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1141) = (/ 0.891329162448103_dbl_kind, 0.894849585003269_dbl_kind, 0.899771601613604_dbl_kind, 0.919579661322274_dbl_kind, 0.970467385793743_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1142) = (/ 0.891329351408855_dbl_kind, 0.894850385585877_dbl_kind, 0.899775115129887_dbl_kind, 0.919590011525268_dbl_kind, 0.970474597846302_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1143) = (/ 0.891329540039655_dbl_kind, 0.894851185818192_dbl_kind, 0.899778627484206_dbl_kind, 0.919600357802286_dbl_kind, 0.970481796360395_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1144) = (/ 0.891329728341585_dbl_kind, 0.894851985700191_dbl_kind, 0.899782138678663_dbl_kind, 0.919610700158619_dbl_kind, 0.970488981367416_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1145) = (/ 0.891329916315727_dbl_kind, 0.894852785231854_dbl_kind, 0.899785648715355_dbl_kind, 0.919621038599542_dbl_kind, 0.970496152898676_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1146) = (/ 0.891330103963153_dbl_kind, 0.894853584413161_dbl_kind, 0.89978915759638_dbl_kind, 0.91963137313031_dbl_kind, 0.970503310985387_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1147) = (/ 0.891330291284936_dbl_kind, 0.894854383244089_dbl_kind, 0.89979266532383_dbl_kind, 0.919641703756157_dbl_kind, 0.970510455658677_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1148) = (/ 0.891330478282139_dbl_kind, 0.894855181724614_dbl_kind, 0.899796171899799_dbl_kind, 0.919652030482303_dbl_kind, 0.970517586949578_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1149) = (/ 0.891330664955826_dbl_kind, 0.894855979854715_dbl_kind, 0.899799677326375_dbl_kind, 0.919662353313949_dbl_kind, 0.970524704889036_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1150) = (/ 0.891330851307053_dbl_kind, 0.894856777634367_dbl_kind, 0.899803181605646_dbl_kind, 0.919672672256275_dbl_kind, 0.970531809507907_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1151) = (/ 0.891331037336875_dbl_kind, 0.894857575063547_dbl_kind, 0.899806684739698_dbl_kind, 0.919682987314447_dbl_kind, 0.970538900836955_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1152) = (/ 0.89133122304634_dbl_kind, 0.894858372142229_dbl_kind, 0.899810186730614_dbl_kind, 0.919693298493611_dbl_kind, 0.97054597890686_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1153) = (/ 0.891331408436494_dbl_kind, 0.894859168870389_dbl_kind, 0.899813687580475_dbl_kind, 0.919703605798893_dbl_kind, 0.970553043748209_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1154) = (/ 0.891331593508377_dbl_kind, 0.894859965248002_dbl_kind, 0.89981718729136_dbl_kind, 0.919713909235405_dbl_kind, 0.9705600953915_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1155) = (/ 0.891331778263026_dbl_kind, 0.894860761275041_dbl_kind, 0.899820685865345_dbl_kind, 0.919724208808239_dbl_kind, 0.970567133867149_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1156) = (/ 0.891331962701473_dbl_kind, 0.894861556951481_dbl_kind, 0.899824183304505_dbl_kind, 0.91973450452247_dbl_kind, 0.970574159205478_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1157) = (/ 0.891332146824747_dbl_kind, 0.894862352277295_dbl_kind, 0.899827679610913_dbl_kind, 0.919744796383154_dbl_kind, 0.970581171436723_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1158) = (/ 0.891332330633872_dbl_kind, 0.894863147252456_dbl_kind, 0.899831174786638_dbl_kind, 0.919755084395333_dbl_kind, 0.970588170591038_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1159) = (/ 0.891332514129869_dbl_kind, 0.894863941876936_dbl_kind, 0.899834668833748_dbl_kind, 0.919765368564026_dbl_kind, 0.970595156698483_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1160) = (/ 0.891332697313753_dbl_kind, 0.894864736150709_dbl_kind, 0.899838161754308_dbl_kind, 0.919775648894239_dbl_kind, 0.970602129789035_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1161) = (/ 0.891332880186537_dbl_kind, 0.894865530073745_dbl_kind, 0.899841653550383_dbl_kind, 0.91978592539096_dbl_kind, 0.970609089892584_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1162) = (/ 0.891333062749228_dbl_kind, 0.894866323646018_dbl_kind, 0.899845144224032_dbl_kind, 0.919796198059157_dbl_kind, 0.970616037038936_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1163) = (/ 0.891333245002831_dbl_kind, 0.8948671168675_dbl_kind, 0.899848633777316_dbl_kind, 0.919806466903785_dbl_kind, 0.970622971257811_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1164) = (/ 0.891333426948347_dbl_kind, 0.89486790973816_dbl_kind, 0.89985212221229_dbl_kind, 0.919816731929778_dbl_kind, 0.970629892578838_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1165) = (/ 0.89133360858677_dbl_kind, 0.89486870225797_dbl_kind, 0.89985560953101_dbl_kind, 0.919826993142055_dbl_kind, 0.970636801031573_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1166) = (/ 0.891333789919093_dbl_kind, 0.894869494426902_dbl_kind, 0.899859095735526_dbl_kind, 0.919837250545516_dbl_kind, 0.970643696645475_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1167) = (/ 0.891333970946304_dbl_kind, 0.894870286244927_dbl_kind, 0.899862580827889_dbl_kind, 0.919847504145046_dbl_kind, 0.970650579449925_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1168) = (/ 0.891334151669388_dbl_kind, 0.894871077712013_dbl_kind, 0.899866064810146_dbl_kind, 0.919857753945513_dbl_kind, 0.970657449474219_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1169) = (/ 0.891334332089325_dbl_kind, 0.894871868828133_dbl_kind, 0.899869547684342_dbl_kind, 0.919867999951767_dbl_kind, 0.970664306747569_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1170) = (/ 0.891334512207091_dbl_kind, 0.894872659593256_dbl_kind, 0.899873029452521_dbl_kind, 0.919878242168642_dbl_kind, 0.970671151299104_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1171) = (/ 0.891334692023659_dbl_kind, 0.894873450007353_dbl_kind, 0.899876510116722_dbl_kind, 0.919888480600954_dbl_kind, 0.970677983157867_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1172) = (/ 0.891334871539997_dbl_kind, 0.894874240070393_dbl_kind, 0.899879989678984_dbl_kind, 0.919898715253504_dbl_kind, 0.970684802352823_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1173) = (/ 0.891335050757071_dbl_kind, 0.894875029782346_dbl_kind, 0.899883468141343_dbl_kind, 0.919908946131076_dbl_kind, 0.970691608912852_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1174) = (/ 0.891335229675841_dbl_kind, 0.894875819143184_dbl_kind, 0.899886945505832_dbl_kind, 0.919919173238436_dbl_kind, 0.970698402866747_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1175) = (/ 0.891335408297264_dbl_kind, 0.894876608152873_dbl_kind, 0.899890421774482_dbl_kind, 0.919929396580335_dbl_kind, 0.970705184243228_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1176) = (/ 0.891335586622295_dbl_kind, 0.894877396811387_dbl_kind, 0.899893896949323_dbl_kind, 0.919939616161507_dbl_kind, 0.970711953070926_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1177) = (/ 0.891335764651881_dbl_kind, 0.894878185118693_dbl_kind, 0.899897371032379_dbl_kind, 0.919949831986669_dbl_kind, 0.970718709378394_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1178) = (/ 0.89133594238697_dbl_kind, 0.89487897307476_dbl_kind, 0.899900844025675_dbl_kind, 0.919960044060524_dbl_kind, 0.970725453194104_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1179) = (/ 0.891336119828503_dbl_kind, 0.894879760679561_dbl_kind, 0.899904315931234_dbl_kind, 0.919970252387756_dbl_kind, 0.970732184546444_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1180) = (/ 0.891336296977419_dbl_kind, 0.894880547933062_dbl_kind, 0.899907786751073_dbl_kind, 0.919980456973033_dbl_kind, 0.970738903463724_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1181) = (/ 0.891336473834652_dbl_kind, 0.894881334835235_dbl_kind, 0.89991125648721_dbl_kind, 0.919990657821009_dbl_kind, 0.970745609974172_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1182) = (/ 0.891336650401133_dbl_kind, 0.89488212138605_dbl_kind, 0.899914725141659_dbl_kind, 0.920000854936319_dbl_kind, 0.97075230410594_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1183) = (/ 0.891336826677789_dbl_kind, 0.894882907585475_dbl_kind, 0.899918192716431_dbl_kind, 0.920011048323584_dbl_kind, 0.970758985887093_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1184) = (/ 0.891337002665544_dbl_kind, 0.894883693433481_dbl_kind, 0.899921659213536_dbl_kind, 0.92002123798741_dbl_kind, 0.970765655345623_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1185) = (/ 0.891337178365317_dbl_kind, 0.894884478930037_dbl_kind, 0.899925124634981_dbl_kind, 0.920031423932383_dbl_kind, 0.97077231250944_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1186) = (/ 0.891337353778025_dbl_kind, 0.894885264075114_dbl_kind, 0.899928588982769_dbl_kind, 0.920041606163077_dbl_kind, 0.970778957406372_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1187) = (/ 0.89133752890458_dbl_kind, 0.894886048868682_dbl_kind, 0.899932052258904_dbl_kind, 0.920051784684048_dbl_kind, 0.970785590064178_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1188) = (/ 0.891337703745891_dbl_kind, 0.894886833310712_dbl_kind, 0.899935514465384_dbl_kind, 0.920061959499838_dbl_kind, 0.970792210510529_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1189) = (/ 0.891337878302864_dbl_kind, 0.894887617401172_dbl_kind, 0.899938975604207_dbl_kind, 0.92007213061497_dbl_kind, 0.970798818773018_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1190) = (/ 0.8913380525764_dbl_kind, 0.894888401140035_dbl_kind, 0.899942435677365_dbl_kind, 0.920082298033955_dbl_kind, 0.970805414879168_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1191) = (/ 0.891338226567397_dbl_kind, 0.89488918452727_dbl_kind, 0.899945894686851_dbl_kind, 0.920092461761287_dbl_kind, 0.970811998856415_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1192) = (/ 0.89133840027675_dbl_kind, 0.894889967562848_dbl_kind, 0.899949352634655_dbl_kind, 0.920102621801444_dbl_kind, 0.970818570732125_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1193) = (/ 0.89133857370535_dbl_kind, 0.894890750246741_dbl_kind, 0.899952809522762_dbl_kind, 0.920112778158887_dbl_kind, 0.970825130533583_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1194) = (/ 0.891338746854085_dbl_kind, 0.894891532578919_dbl_kind, 0.899956265353157_dbl_kind, 0.920122930838066_dbl_kind, 0.970831678287999_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1195) = (/ 0.891338919723838_dbl_kind, 0.894892314559354_dbl_kind, 0.899959720127821_dbl_kind, 0.92013307984341_dbl_kind, 0.970838214022505_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1196) = (/ 0.89133909231549_dbl_kind, 0.894893096188017_dbl_kind, 0.899963173848733_dbl_kind, 0.920143225179337_dbl_kind, 0.970844737764155_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1197) = (/ 0.891339264629918_dbl_kind, 0.894893877464881_dbl_kind, 0.899966626517868_dbl_kind, 0.920153366850247_dbl_kind, 0.970851249539934_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1198) = (/ 0.891339436667996_dbl_kind, 0.894894658389917_dbl_kind, 0.899970078137201_dbl_kind, 0.920163504860526_dbl_kind, 0.970857749376741_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1199) = (/ 0.891339608430593_dbl_kind, 0.894895438963098_dbl_kind, 0.899973528708703_dbl_kind, 0.920173639214544_dbl_kind, 0.970864237301409_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1200) = (/ 0.891339779918577_dbl_kind, 0.894896219184396_dbl_kind, 0.89997697823434_dbl_kind, 0.920183769916657_dbl_kind, 0.970870713340692_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1201) = (/ 0.891339951132809_dbl_kind, 0.894896999053784_dbl_kind, 0.89998042671608_dbl_kind, 0.920193896971204_dbl_kind, 0.970877177521265_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1202) = (/ 0.891340122074152_dbl_kind, 0.894897778571235_dbl_kind, 0.899983874155884_dbl_kind, 0.920204020382511_dbl_kind, 0.970883629869733_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1203) = (/ 0.891340292743459_dbl_kind, 0.894898557736722_dbl_kind, 0.899987320555712_dbl_kind, 0.920214140154887_dbl_kind, 0.970890070412626_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1204) = (/ 0.891340463141585_dbl_kind, 0.894899336550219_dbl_kind, 0.899990765917522_dbl_kind, 0.920224256292627_dbl_kind, 0.9708964991764_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1205) = (/ 0.89134063326938_dbl_kind, 0.894900115011701_dbl_kind, 0.899994210243269_dbl_kind, 0.920234368800011_dbl_kind, 0.970902916187435_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1206) = (/ 0.891340803127688_dbl_kind, 0.894900893121141_dbl_kind, 0.899997653534904_dbl_kind, 0.920244477681303_dbl_kind, 0.97090932147204_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1207) = (/ 0.891340972717354_dbl_kind, 0.894901670878514_dbl_kind, 0.900001095794376_dbl_kind, 0.920254582940754_dbl_kind, 0.970915715056445_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1208) = (/ 0.891341142039217_dbl_kind, 0.894902448283795_dbl_kind, 0.900004537023631_dbl_kind, 0.920264684582599_dbl_kind, 0.970922096966813_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1209) = (/ 0.891341311094113_dbl_kind, 0.894903225336959_dbl_kind, 0.900007977224614_dbl_kind, 0.920274782611058_dbl_kind, 0.970928467229232_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1210) = (/ 0.891341479882875_dbl_kind, 0.894904002037982_dbl_kind, 0.900011416399264_dbl_kind, 0.920284877030338_dbl_kind, 0.970934825869718_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1211) = (/ 0.891341648406332_dbl_kind, 0.894904778386841_dbl_kind, 0.90001485454952_dbl_kind, 0.920294967844627_dbl_kind, 0.970941172914209_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1212) = (/ 0.891341816665312_dbl_kind, 0.894905554383511_dbl_kind, 0.900018291677315_dbl_kind, 0.920305055058103_dbl_kind, 0.97094750838858_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1213) = (/ 0.891341984660637_dbl_kind, 0.894906330027969_dbl_kind, 0.900021727784584_dbl_kind, 0.920315138674928_dbl_kind, 0.970953832318627_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1214) = (/ 0.891342152393127_dbl_kind, 0.894907105320193_dbl_kind, 0.900025162873253_dbl_kind, 0.920325218699249_dbl_kind, 0.970960144730075_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1215) = (/ 0.891342319863598_dbl_kind, 0.894907880260161_dbl_kind, 0.90002859694525_dbl_kind, 0.920335295135196_dbl_kind, 0.97096644564858_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1216) = (/ 0.891342487072864_dbl_kind, 0.894908654847849_dbl_kind, 0.900032030002499_dbl_kind, 0.92034536798689_dbl_kind, 0.970972735099726_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1217) = (/ 0.891342654021736_dbl_kind, 0.894909429083238_dbl_kind, 0.900035462046919_dbl_kind, 0.920355437258433_dbl_kind, 0.970979013109024_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1218) = (/ 0.891342820711019_dbl_kind, 0.894910202966305_dbl_kind, 0.900038893080429_dbl_kind, 0.920365502953915_dbl_kind, 0.970985279701918_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1219) = (/ 0.891342987141518_dbl_kind, 0.89491097649703_dbl_kind, 0.900042323104941_dbl_kind, 0.920375565077408_dbl_kind, 0.970991534903778_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1220) = (/ 0.891343153314034_dbl_kind, 0.894911749675393_dbl_kind, 0.90004575212237_dbl_kind, 0.920385623632976_dbl_kind, 0.970997778739902_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1221) = (/ 0.891343319229363_dbl_kind, 0.894912522501374_dbl_kind, 0.900049180134623_dbl_kind, 0.920395678624662_dbl_kind, 0.971004011235523_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1222) = (/ 0.891343484888301_dbl_kind, 0.894913294974954_dbl_kind, 0.900052607143605_dbl_kind, 0.9204057300565_dbl_kind, 0.971010232415805_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1223) = (/ 0.891343650291638_dbl_kind, 0.894914067096114_dbl_kind, 0.900056033151219_dbl_kind, 0.920415777932505_dbl_kind, 0.971016442305834_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1224) = (/ 0.891343815440162_dbl_kind, 0.894914838864836_dbl_kind, 0.900059458159365_dbl_kind, 0.920425822256683_dbl_kind, 0.971022640930633_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1225) = (/ 0.891343980334659_dbl_kind, 0.894915610281101_dbl_kind, 0.90006288216994_dbl_kind, 0.920435863033021_dbl_kind, 0.971028828315157_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1226) = (/ 0.891344144975909_dbl_kind, 0.894916381344893_dbl_kind, 0.900066305184836_dbl_kind, 0.920445900265495_dbl_kind, 0.971035004484288_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1227) = (/ 0.891344309364692_dbl_kind, 0.894917152056195_dbl_kind, 0.900069727205944_dbl_kind, 0.920455933958066_dbl_kind, 0.971041169462839_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1228) = (/ 0.891344473501784_dbl_kind, 0.89491792241499_dbl_kind, 0.900073148235151_dbl_kind, 0.920465964114681_dbl_kind, 0.971047323275561_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1229) = (/ 0.891344637387957_dbl_kind, 0.894918692421264_dbl_kind, 0.900076568274342_dbl_kind, 0.920475990739272_dbl_kind, 0.97105346594713_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1230) = (/ 0.89134480102398_dbl_kind, 0.894919462074999_dbl_kind, 0.900079987325398_dbl_kind, 0.92048601383576_dbl_kind, 0.971059597502154_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1231) = (/ 0.89134496441062_dbl_kind, 0.894920231376183_dbl_kind, 0.900083405390195_dbl_kind, 0.920496033408048_dbl_kind, 0.97106571796518_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1232) = (/ 0.891345127548641_dbl_kind, 0.894921000324799_dbl_kind, 0.90008682247061_dbl_kind, 0.920506049460028_dbl_kind, 0.97107182736068_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1233) = (/ 0.891345290438803_dbl_kind, 0.894921768920836_dbl_kind, 0.900090238568513_dbl_kind, 0.920516061995577_dbl_kind, 0.971077925713063_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1234) = (/ 0.891345453081863_dbl_kind, 0.89492253716428_dbl_kind, 0.900093653685773_dbl_kind, 0.920526071018558_dbl_kind, 0.971084013046669_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1235) = (/ 0.891345615478576_dbl_kind, 0.894923305055118_dbl_kind, 0.900097067824255_dbl_kind, 0.920536076532822_dbl_kind, 0.971090089385772_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1236) = (/ 0.891345777629693_dbl_kind, 0.894924072593339_dbl_kind, 0.900100480985821_dbl_kind, 0.920546078542204_dbl_kind, 0.971096154754577_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1237) = (/ 0.891345939535965_dbl_kind, 0.89492483977893_dbl_kind, 0.900103893172329_dbl_kind, 0.920556077050527_dbl_kind, 0.97110220917723_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1238) = (/ 0.891346101198134_dbl_kind, 0.894925606611883_dbl_kind, 0.900107304385635_dbl_kind, 0.920566072061598_dbl_kind, 0.971108252677798_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1239) = (/ 0.891346262616944_dbl_kind, 0.894926373092185_dbl_kind, 0.900110714627591_dbl_kind, 0.920576063579213_dbl_kind, 0.971114285280296_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1240) = (/ 0.891346423793136_dbl_kind, 0.894927139219828_dbl_kind, 0.900114123900046_dbl_kind, 0.920586051607153_dbl_kind, 0.971120307008661_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1241) = (/ 0.891346584727445_dbl_kind, 0.894927904994803_dbl_kind, 0.900117532204844_dbl_kind, 0.920596036149185_dbl_kind, 0.971126317886776_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1242) = (/ 0.891346745420607_dbl_kind, 0.894928670417101_dbl_kind, 0.900120939543829_dbl_kind, 0.920606017209065_dbl_kind, 0.971132317938449_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1243) = (/ 0.891346905873351_dbl_kind, 0.894929435486714_dbl_kind, 0.900124345918838_dbl_kind, 0.920615994790531_dbl_kind, 0.971138307187425_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1244) = (/ 0.891347066086405_dbl_kind, 0.894930200203637_dbl_kind, 0.900127751331708_dbl_kind, 0.920625968897312_dbl_kind, 0.97114428565739_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1245) = (/ 0.891347226060496_dbl_kind, 0.894930964567861_dbl_kind, 0.900131155784271_dbl_kind, 0.920635939533121_dbl_kind, 0.971150253371959_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1246) = (/ 0.891347385796346_dbl_kind, 0.894931728579381_dbl_kind, 0.900134559278354_dbl_kind, 0.920645906701658_dbl_kind, 0.971156210354684_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1247) = (/ 0.891347545294673_dbl_kind, 0.894932492238193_dbl_kind, 0.900137961815784_dbl_kind, 0.92065587040661_dbl_kind, 0.971162156629055_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1248) = (/ 0.891347704556196_dbl_kind, 0.89493325554429_dbl_kind, 0.900141363398381_dbl_kind, 0.92066583065165_dbl_kind, 0.971168092218495_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1249) = (/ 0.891347863581627_dbl_kind, 0.89493401849767_dbl_kind, 0.900144764027965_dbl_kind, 0.920675787440439_dbl_kind, 0.971174017146364_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1250) = (/ 0.891348022371678_dbl_kind, 0.89493478109833_dbl_kind, 0.90014816370635_dbl_kind, 0.920685740776624_dbl_kind, 0.971179931435959_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1251) = (/ 0.891348180927057_dbl_kind, 0.894935543346266_dbl_kind, 0.900151562435348_dbl_kind, 0.920695690663838_dbl_kind, 0.971185835110515_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1252) = (/ 0.89134833924847_dbl_kind, 0.894936305241476_dbl_kind, 0.900154960216766_dbl_kind, 0.9207056371057_dbl_kind, 0.9711917281932_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1253) = (/ 0.891348497336619_dbl_kind, 0.89493706678396_dbl_kind, 0.900158357052408_dbl_kind, 0.920715580105819_dbl_kind, 0.97119761070712_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1254) = (/ 0.891348655192204_dbl_kind, 0.894937827973717_dbl_kind, 0.900161752944077_dbl_kind, 0.920725519667789_dbl_kind, 0.971203482675326_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1255) = (/ 0.891348812815923_dbl_kind, 0.894938588810747_dbl_kind, 0.900165147893568_dbl_kind, 0.920735455795189_dbl_kind, 0.971209344120794_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1256) = (/ 0.89134897020847_dbl_kind, 0.894939349295051_dbl_kind, 0.900168541902675_dbl_kind, 0.920745388491589_dbl_kind, 0.971215195066444_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1257) = (/ 0.891349127370537_dbl_kind, 0.894940109426629_dbl_kind, 0.90017193497319_dbl_kind, 0.920755317760542_dbl_kind, 0.971221035535134_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1258) = (/ 0.891349284302812_dbl_kind, 0.894940869205485_dbl_kind, 0.900175327106897_dbl_kind, 0.920765243605589_dbl_kind, 0.971226865549659_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1259) = (/ 0.891349441005982_dbl_kind, 0.894941628631621_dbl_kind, 0.900178718305579_dbl_kind, 0.92077516603026_dbl_kind, 0.971232685132755_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1260) = (/ 0.891349597480731_dbl_kind, 0.894942387705041_dbl_kind, 0.900182108571017_dbl_kind, 0.92078508503807_dbl_kind, 0.971238494307089_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1261) = (/ 0.89134975372774_dbl_kind, 0.894943146425749_dbl_kind, 0.900185497904986_dbl_kind, 0.920795000632521_dbl_kind, 0.971244293095275_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1262) = (/ 0.891349909747685_dbl_kind, 0.89494390479375_dbl_kind, 0.900188886309257_dbl_kind, 0.920804912817103_dbl_kind, 0.971250081519864_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1263) = (/ 0.891350065541245_dbl_kind, 0.894944662809049_dbl_kind, 0.900192273785599_dbl_kind, 0.920814821595292_dbl_kind, 0.97125585960334_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1264) = (/ 0.89135022110909_dbl_kind, 0.894945420471654_dbl_kind, 0.900195660335776_dbl_kind, 0.920824726970553_dbl_kind, 0.971261627368133_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1265) = (/ 0.891350376451892_dbl_kind, 0.894946177781571_dbl_kind, 0.900199045961549_dbl_kind, 0.920834628946334_dbl_kind, 0.971267384836611_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1266) = (/ 0.891350531570317_dbl_kind, 0.894946934738809_dbl_kind, 0.900202430664675_dbl_kind, 0.920844527526077_dbl_kind, 0.97127313203108_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1267) = (/ 0.891350686465032_dbl_kind, 0.894947691343375_dbl_kind, 0.900205814446907_dbl_kind, 0.920854422713204_dbl_kind, 0.971278868973787_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1268) = (/ 0.891350841136698_dbl_kind, 0.89494844759528_dbl_kind, 0.900209197309994_dbl_kind, 0.920864314511129_dbl_kind, 0.971284595686918_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1269) = (/ 0.891350995585975_dbl_kind, 0.894949203494533_dbl_kind, 0.900212579255683_dbl_kind, 0.920874202923251_dbl_kind, 0.971290312192601_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1270) = (/ 0.89135114981352_dbl_kind, 0.894949959041145_dbl_kind, 0.900215960285715_dbl_kind, 0.920884087952957_dbl_kind, 0.9712960185129_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1271) = (/ 0.891351303819988_dbl_kind, 0.894950714235128_dbl_kind, 0.900219340401828_dbl_kind, 0.920893969603621_dbl_kind, 0.971301714669828_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1272) = (/ 0.89135145760603_dbl_kind, 0.894951469076494_dbl_kind, 0.900222719605757_dbl_kind, 0.920903847878605_dbl_kind, 0.971307400685329_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1273) = (/ 0.891351611172298_dbl_kind, 0.894952223565257_dbl_kind, 0.900226097899231_dbl_kind, 0.920913722781257_dbl_kind, 0.971313076581296_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1274) = (/ 0.891351764519436_dbl_kind, 0.894952977701429_dbl_kind, 0.900229475283977_dbl_kind, 0.920923594314914_dbl_kind, 0.971318742379558_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1275) = (/ 0.891351917648089_dbl_kind, 0.894953731485026_dbl_kind, 0.900232851761718_dbl_kind, 0.9209334624829_dbl_kind, 0.971324398101889_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1276) = (/ 0.8913520705589_dbl_kind, 0.894954484916063_dbl_kind, 0.900236227334172_dbl_kind, 0.920943327288524_dbl_kind, 0.971330043770001_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1277) = (/ 0.891352223252508_dbl_kind, 0.894955237994557_dbl_kind, 0.900239602003053_dbl_kind, 0.920953188735087_dbl_kind, 0.971335679405553_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1278) = (/ 0.891352375729548_dbl_kind, 0.894955990720524_dbl_kind, 0.900242975770073_dbl_kind, 0.920963046825873_dbl_kind, 0.971341305030137_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1279) = (/ 0.891352527990657_dbl_kind, 0.894956743093982_dbl_kind, 0.900246348636939_dbl_kind, 0.920972901564156_dbl_kind, 0.971346920665297_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1280) = (/ 0.891352680036464_dbl_kind, 0.894957495114949_dbl_kind, 0.900249720605352_dbl_kind, 0.920982752953196_dbl_kind, 0.971352526332514_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1281) = (/ 0.891352831867601_dbl_kind, 0.894958246783445_dbl_kind, 0.900253091677012_dbl_kind, 0.920992600996244_dbl_kind, 0.971358122053212_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1282) = (/ 0.891352983484692_dbl_kind, 0.89495899809949_dbl_kind, 0.900256461853614_dbl_kind, 0.921002445696532_dbl_kind, 0.971363707848758_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1283) = (/ 0.891353134888364_dbl_kind, 0.894959749063104_dbl_kind, 0.900259831136847_dbl_kind, 0.921012287057287_dbl_kind, 0.971369283740466_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1284) = (/ 0.891353286079237_dbl_kind, 0.89496049967431_dbl_kind, 0.9002631995284_dbl_kind, 0.92102212508172_dbl_kind, 0.971374849749585_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1285) = (/ 0.891353437057932_dbl_kind, 0.89496124993313_dbl_kind, 0.900266567029954_dbl_kind, 0.921031959773027_dbl_kind, 0.971380405897312_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1286) = (/ 0.891353587825064_dbl_kind, 0.894961999839585_dbl_kind, 0.900269933643188_dbl_kind, 0.921041791134396_dbl_kind, 0.971385952204789_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1287) = (/ 0.89135373838125_dbl_kind, 0.894962749393702_dbl_kind, 0.900273299369776_dbl_kind, 0.921051619169003_dbl_kind, 0.971391488693096_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1288) = (/ 0.8913538887271_dbl_kind, 0.894963498595505_dbl_kind, 0.900276664211388_dbl_kind, 0.921061443880006_dbl_kind, 0.971397015383263_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1289) = (/ 0.891354038863225_dbl_kind, 0.894964247445019_dbl_kind, 0.900280028169692_dbl_kind, 0.921071265270557_dbl_kind, 0.971402532296261_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1290) = (/ 0.891354188790232_dbl_kind, 0.894964995942271_dbl_kind, 0.900283391246347_dbl_kind, 0.921081083343793_dbl_kind, 0.971408039453005_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1291) = (/ 0.891354338508726_dbl_kind, 0.894965744087288_dbl_kind, 0.900286753443012_dbl_kind, 0.921090898102839_dbl_kind, 0.971413536874356_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1292) = (/ 0.89135448801931_dbl_kind, 0.894966491880098_dbl_kind, 0.900290114761343_dbl_kind, 0.921100709550808_dbl_kind, 0.971419024581117_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1293) = (/ 0.891354637322583_dbl_kind, 0.894967239320729_dbl_kind, 0.900293475202985_dbl_kind, 0.921110517690799_dbl_kind, 0.971424502594038_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1294) = (/ 0.891354786419145_dbl_kind, 0.894967986409212_dbl_kind, 0.900296834769587_dbl_kind, 0.921120322525901_dbl_kind, 0.971429970933811_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1295) = (/ 0.89135493530959_dbl_kind, 0.894968733145577_dbl_kind, 0.900300193462788_dbl_kind, 0.921130124059191_dbl_kind, 0.971435429621079_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1296) = (/ 0.891355083994511_dbl_kind, 0.894969479529856_dbl_kind, 0.900303551284224_dbl_kind, 0.921139922293733_dbl_kind, 0.971440878676421_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1297) = (/ 0.891355232474499_dbl_kind, 0.894970225562079_dbl_kind, 0.900306908235529_dbl_kind, 0.921149717232578_dbl_kind, 0.971446318120371_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1298) = (/ 0.891355380750144_dbl_kind, 0.894970971242281_dbl_kind, 0.90031026431833_dbl_kind, 0.921159508878768_dbl_kind, 0.971451747973401_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1299) = (/ 0.89135552882203_dbl_kind, 0.894971716570495_dbl_kind, 0.900313619534252_dbl_kind, 0.921169297235328_dbl_kind, 0.971457168255933_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1300) = (/ 0.891355676690743_dbl_kind, 0.894972461546755_dbl_kind, 0.900316973884913_dbl_kind, 0.921179082305276_dbl_kind, 0.971462578988336_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1301) = (/ 0.891355824356863_dbl_kind, 0.894973206171097_dbl_kind, 0.90032032737193_dbl_kind, 0.921188864091614_dbl_kind, 0.97146798019092_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1302) = (/ 0.891355971820971_dbl_kind, 0.894973950443558_dbl_kind, 0.900323679996911_dbl_kind, 0.921198642597335_dbl_kind, 0.971473371883946_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1303) = (/ 0.891356119083642_dbl_kind, 0.894974694364174_dbl_kind, 0.900327031761465_dbl_kind, 0.921208417825418_dbl_kind, 0.971478754087618_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1304) = (/ 0.891356266145452_dbl_kind, 0.894975437932983_dbl_kind, 0.900330382667192_dbl_kind, 0.921218189778832_dbl_kind, 0.971484126822091_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1305) = (/ 0.891356413006974_dbl_kind, 0.894976181150023_dbl_kind, 0.900333732715691_dbl_kind, 0.921227958460531_dbl_kind, 0.971489490107461_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1306) = (/ 0.891356559668777_dbl_kind, 0.894976924015335_dbl_kind, 0.900337081908555_dbl_kind, 0.921237723873459_dbl_kind, 0.971494843963777_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1307) = (/ 0.89135670613143_dbl_kind, 0.894977666528958_dbl_kind, 0.900340430247371_dbl_kind, 0.921247486020549_dbl_kind, 0.971500188411031_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1308) = (/ 0.891356852395499_dbl_kind, 0.894978408690935_dbl_kind, 0.900343777733726_dbl_kind, 0.92125724490472_dbl_kind, 0.97150552346916_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1309) = (/ 0.891356998461547_dbl_kind, 0.894979150501306_dbl_kind, 0.900347124369198_dbl_kind, 0.921267000528882_dbl_kind, 0.971510849158058_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1310) = (/ 0.891357144330135_dbl_kind, 0.894979891960115_dbl_kind, 0.900350470155362_dbl_kind, 0.921276752895929_dbl_kind, 0.971516165497559_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1311) = (/ 0.891357290001823_dbl_kind, 0.894980633067405_dbl_kind, 0.900353815093791_dbl_kind, 0.921286502008746_dbl_kind, 0.971521472507443_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1312) = (/ 0.891357435477168_dbl_kind, 0.894981373823221_dbl_kind, 0.900357159186049_dbl_kind, 0.921296247870206_dbl_kind, 0.971526770207445_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1313) = (/ 0.891357580756724_dbl_kind, 0.894982114227609_dbl_kind, 0.900360502433698_dbl_kind, 0.92130599048317_dbl_kind, 0.97153205861724_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1314) = (/ 0.891357725841045_dbl_kind, 0.894982854280615_dbl_kind, 0.900363844838296_dbl_kind, 0.921315729850487_dbl_kind, 0.97153733775646_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1315) = (/ 0.89135787073068_dbl_kind, 0.894983593982284_dbl_kind, 0.900367186401396_dbl_kind, 0.921325465974994_dbl_kind, 0.971542607644678_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1316) = (/ 0.891358015426177_dbl_kind, 0.894984333332667_dbl_kind, 0.900370527124546_dbl_kind, 0.921335198859516_dbl_kind, 0.971547868301423_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1317) = (/ 0.891358159928084_dbl_kind, 0.894985072331811_dbl_kind, 0.900373867009288_dbl_kind, 0.921344928506867_dbl_kind, 0.971553119746164_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1318) = (/ 0.891358304236944_dbl_kind, 0.894985810979765_dbl_kind, 0.900377206057162_dbl_kind, 0.92135465491985_dbl_kind, 0.971558361998327_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1319) = (/ 0.891358448353298_dbl_kind, 0.894986549276581_dbl_kind, 0.900380544269702_dbl_kind, 0.921364378101254_dbl_kind, 0.971563595077282_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1320) = (/ 0.891358592277686_dbl_kind, 0.894987287222309_dbl_kind, 0.900383881648438_dbl_kind, 0.921374098053859_dbl_kind, 0.97156881900235_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1321) = (/ 0.891358736010647_dbl_kind, 0.894988024817002_dbl_kind, 0.900387218194894_dbl_kind, 0.921383814780431_dbl_kind, 0.971574033792799_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1322) = (/ 0.891358879552715_dbl_kind, 0.894988762060713_dbl_kind, 0.90039055391059_dbl_kind, 0.921393528283725_dbl_kind, 0.971579239467854_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1323) = (/ 0.891359022904425_dbl_kind, 0.894989498953494_dbl_kind, 0.900393888797043_dbl_kind, 0.921403238566485_dbl_kind, 0.97158443604668_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1324) = (/ 0.891359166066306_dbl_kind, 0.894990235495403_dbl_kind, 0.900397222855763_dbl_kind, 0.921412945631444_dbl_kind, 0.971589623548399_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1325) = (/ 0.891359309038888_dbl_kind, 0.894990971686492_dbl_kind, 0.900400556088256_dbl_kind, 0.921422649481322_dbl_kind, 0.97159480199208_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1326) = (/ 0.8913594518227_dbl_kind, 0.894991707526819_dbl_kind, 0.900403888496023_dbl_kind, 0.921432350118827_dbl_kind, 0.971599971396743_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1327) = (/ 0.891359594418264_dbl_kind, 0.894992443016442_dbl_kind, 0.900407220080562_dbl_kind, 0.921442047546657_dbl_kind, 0.971605131781357_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1328) = (/ 0.891359736826106_dbl_kind, 0.894993178155417_dbl_kind, 0.900410550843363_dbl_kind, 0.921451741767498_dbl_kind, 0.971610283164844_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1329) = (/ 0.891359879046744_dbl_kind, 0.894993912943804_dbl_kind, 0.900413880785915_dbl_kind, 0.921461432784025_dbl_kind, 0.971615425566076_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1330) = (/ 0.891360021080699_dbl_kind, 0.894994647381663_dbl_kind, 0.900417209909699_dbl_kind, 0.921471120598899_dbl_kind, 0.971620559003872_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1331) = (/ 0.891360162928487_dbl_kind, 0.894995381469053_dbl_kind, 0.900420538216193_dbl_kind, 0.921480805214772_dbl_kind, 0.971625683497007_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1332) = (/ 0.891360304590623_dbl_kind, 0.894996115206038_dbl_kind, 0.900423865706869_dbl_kind, 0.921490486634284_dbl_kind, 0.971630799064208_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1333) = (/ 0.89136044606762_dbl_kind, 0.894996848592678_dbl_kind, 0.900427192383195_dbl_kind, 0.921500164860063_dbl_kind, 0.971635905724147_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1334) = (/ 0.891360587359987_dbl_kind, 0.894997581629037_dbl_kind, 0.900430518246635_dbl_kind, 0.921509839894727_dbl_kind, 0.971641003495451_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1335) = (/ 0.891360728468236_dbl_kind, 0.894998314315179_dbl_kind, 0.900433843298646_dbl_kind, 0.921519511740879_dbl_kind, 0.971646092396703_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1336) = (/ 0.891360869392872_dbl_kind, 0.894999046651168_dbl_kind, 0.900437167540681_dbl_kind, 0.921529180401115_dbl_kind, 0.97165117244643_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1337) = (/ 0.891361010134398_dbl_kind, 0.894999778637071_dbl_kind, 0.900440490974189_dbl_kind, 0.921538845878017_dbl_kind, 0.971656243663115_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1338) = (/ 0.89136115069332_dbl_kind, 0.895000510272953_dbl_kind, 0.900443813600613_dbl_kind, 0.921548508174156_dbl_kind, 0.971661306065192_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1339) = (/ 0.891361291070137_dbl_kind, 0.895001241558882_dbl_kind, 0.900447135421391_dbl_kind, 0.921558167292092_dbl_kind, 0.971666359671049_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1340) = (/ 0.891361431265349_dbl_kind, 0.895001972494926_dbl_kind, 0.900450456437958_dbl_kind, 0.921567823234373_dbl_kind, 0.971671404499024_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1341) = (/ 0.891361571279451_dbl_kind, 0.895002703081154_dbl_kind, 0.900453776651741_dbl_kind, 0.921577476003537_dbl_kind, 0.971676440567408_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1342) = (/ 0.89136171111294_dbl_kind, 0.895003433317636_dbl_kind, 0.900457096064164_dbl_kind, 0.921587125602108_dbl_kind, 0.971681467894447_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1343) = (/ 0.891361850766307_dbl_kind, 0.895004163204442_dbl_kind, 0.900460414676645_dbl_kind, 0.921596772032602_dbl_kind, 0.971686486498335_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1344) = (/ 0.891361990240045_dbl_kind, 0.895004892741645_dbl_kind, 0.9004637324906_dbl_kind, 0.921606415297522_dbl_kind, 0.971691496397226_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1345) = (/ 0.891362129534642_dbl_kind, 0.895005621929316_dbl_kind, 0.900467049507435_dbl_kind, 0.92161605539936_dbl_kind, 0.971696497609219_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1346) = (/ 0.891362268650585_dbl_kind, 0.895006350767528_dbl_kind, 0.900470365728554_dbl_kind, 0.921625692340596_dbl_kind, 0.971701490152372_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1347) = (/ 0.89136240758836_dbl_kind, 0.895007079256356_dbl_kind, 0.900473681155356_dbl_kind, 0.9216353261237_dbl_kind, 0.971706474044696_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1348) = (/ 0.891362546348449_dbl_kind, 0.895007807395874_dbl_kind, 0.900476995789235_dbl_kind, 0.921644956751129_dbl_kind, 0.971711449304153_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1349) = (/ 0.891362684931336_dbl_kind, 0.895008535186159_dbl_kind, 0.900480309631578_dbl_kind, 0.92165458422533_dbl_kind, 0.971716415948659_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1350) = (/ 0.891362823337498_dbl_kind, 0.895009262627286_dbl_kind, 0.90048362268377_dbl_kind, 0.92166420854874_dbl_kind, 0.971721373996084_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1351) = (/ 0.891362961567415_dbl_kind, 0.895009989719333_dbl_kind, 0.900486934947187_dbl_kind, 0.921673829723782_dbl_kind, 0.971726323464257_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1352) = (/ 0.891363099621561_dbl_kind, 0.895010716462379_dbl_kind, 0.900490246423205_dbl_kind, 0.921683447752869_dbl_kind, 0.971731264370952_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1353) = (/ 0.89136323750041_dbl_kind, 0.895011442856501_dbl_kind, 0.90049355711319_dbl_kind, 0.921693062638406_dbl_kind, 0.971736196733904_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1354) = (/ 0.891363375204435_dbl_kind, 0.895012168901781_dbl_kind, 0.900496867018505_dbl_kind, 0.92170267438278_dbl_kind, 0.9717411205708_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1355) = (/ 0.891363512734106_dbl_kind, 0.895012894598298_dbl_kind, 0.900500176140508_dbl_kind, 0.921712282988373_dbl_kind, 0.97174603589928_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1356) = (/ 0.891363650089891_dbl_kind, 0.895013619946135_dbl_kind, 0.900503484480552_dbl_kind, 0.921721888457553_dbl_kind, 0.971750942736947_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1357) = (/ 0.891363787272257_dbl_kind, 0.895014344945373_dbl_kind, 0.900506792039984_dbl_kind, 0.921731490792677_dbl_kind, 0.971755841101346_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1358) = (/ 0.891363924281669_dbl_kind, 0.895015069596096_dbl_kind, 0.900510098820146_dbl_kind, 0.921741089996093_dbl_kind, 0.971760731009985_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1359) = (/ 0.891364061118588_dbl_kind, 0.895015793898388_dbl_kind, 0.900513404822375_dbl_kind, 0.921750686070135_dbl_kind, 0.971765612480325_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1360) = (/ 0.891364197783477_dbl_kind, 0.895016517852333_dbl_kind, 0.900516710048003_dbl_kind, 0.921760279017128_dbl_kind, 0.971770485529788_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1361) = (/ 0.891364334276795_dbl_kind, 0.895017241458017_dbl_kind, 0.900520014498357_dbl_kind, 0.921769868839384_dbl_kind, 0.971775350175737_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1362) = (/ 0.891364470598999_dbl_kind, 0.895017964715528_dbl_kind, 0.900523318174758_dbl_kind, 0.921779455539207_dbl_kind, 0.971780206435506_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1363) = (/ 0.891364606750545_dbl_kind, 0.895018687624951_dbl_kind, 0.900526621078522_dbl_kind, 0.921789039118886_dbl_kind, 0.971785054326376_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1364) = (/ 0.891364742731885_dbl_kind, 0.895019410186375_dbl_kind, 0.90052992321096_dbl_kind, 0.921798619580702_dbl_kind, 0.971789893865588_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1365) = (/ 0.891364878543474_dbl_kind, 0.895020132399889_dbl_kind, 0.900533224573377_dbl_kind, 0.921808196926925_dbl_kind, 0.971794725070332_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1366) = (/ 0.891365014185761_dbl_kind, 0.895020854265582_dbl_kind, 0.900536525167074_dbl_kind, 0.921817771159811_dbl_kind, 0.971799547957764_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1367) = (/ 0.891365149659194_dbl_kind, 0.895021575783547_dbl_kind, 0.900539824993346_dbl_kind, 0.921827342281609_dbl_kind, 0.971804362544989_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1368) = (/ 0.891365284964221_dbl_kind, 0.895022296953872_dbl_kind, 0.900543124053482_dbl_kind, 0.921836910294554_dbl_kind, 0.971809168849072_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1369) = (/ 0.891365420101285_dbl_kind, 0.895023017776651_dbl_kind, 0.900546422348768_dbl_kind, 0.921846475200871_dbl_kind, 0.971813966887031_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1370) = (/ 0.891365555070831_dbl_kind, 0.895023738251977_dbl_kind, 0.900549719880481_dbl_kind, 0.921856037002774_dbl_kind, 0.971818756675843_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1371) = (/ 0.8913656898733_dbl_kind, 0.895024458379944_dbl_kind, 0.900553016649896_dbl_kind, 0.921865595702468_dbl_kind, 0.971823538232442_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1372) = (/ 0.891365824509131_dbl_kind, 0.895025178160645_dbl_kind, 0.90055631265828_dbl_kind, 0.921875151302143_dbl_kind, 0.971828311573717_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1373) = (/ 0.891365958978763_dbl_kind, 0.895025897594177_dbl_kind, 0.900559607906898_dbl_kind, 0.921884703803982_dbl_kind, 0.971833076716515_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1374) = (/ 0.891366093282632_dbl_kind, 0.895026616680636_dbl_kind, 0.900562902397006_dbl_kind, 0.921894253210156_dbl_kind, 0.971837833677643_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1375) = (/ 0.891366227421173_dbl_kind, 0.895027335420117_dbl_kind, 0.900566196129857_dbl_kind, 0.921903799522822_dbl_kind, 0.971842582473859_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1376) = (/ 0.891366361394818_dbl_kind, 0.895028053812721_dbl_kind, 0.900569489106697_dbl_kind, 0.921913342744131_dbl_kind, 0.971847323121882_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1377) = (/ 0.891366495203998_dbl_kind, 0.895028771858544_dbl_kind, 0.900572781328769_dbl_kind, 0.92192288287622_dbl_kind, 0.971852055638391_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1378) = (/ 0.891366628849144_dbl_kind, 0.895029489557687_dbl_kind, 0.900576072797307_dbl_kind, 0.921932419921217_dbl_kind, 0.971856780040018_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1379) = (/ 0.891366762330682_dbl_kind, 0.89503020691025_dbl_kind, 0.900579363513544_dbl_kind, 0.921941953881237_dbl_kind, 0.971861496343354_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1380) = (/ 0.89136689564904_dbl_kind, 0.895030923916333_dbl_kind, 0.900582653478702_dbl_kind, 0.921951484758386_dbl_kind, 0.971866204564953_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1381) = (/ 0.891367028804641_dbl_kind, 0.895031640576037_dbl_kind, 0.900585942694003_dbl_kind, 0.921961012554757_dbl_kind, 0.971870904721318_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1382) = (/ 0.891367161797908_dbl_kind, 0.895032356889468_dbl_kind, 0.900589231160661_dbl_kind, 0.921970537272437_dbl_kind, 0.971875596828916_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1383) = (/ 0.891367294629263_dbl_kind, 0.895033072856725_dbl_kind, 0.900592518879884_dbl_kind, 0.921980058913497_dbl_kind, 0.971880280904172_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1384) = (/ 0.891367427299124_dbl_kind, 0.895033788477916_dbl_kind, 0.900595805852876_dbl_kind, 0.921989577479998_dbl_kind, 0.971884956963467_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1385) = (/ 0.891367559807909_dbl_kind, 0.895034503753143_dbl_kind, 0.900599092080834_dbl_kind, 0.921999092973994_dbl_kind, 0.971889625023145_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1386) = (/ 0.891367692156035_dbl_kind, 0.895035218682513_dbl_kind, 0.90060237756495_dbl_kind, 0.922008605397524_dbl_kind, 0.971894285099503_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1387) = (/ 0.891367824343917_dbl_kind, 0.895035933266132_dbl_kind, 0.900605662306412_dbl_kind, 0.922018114752618_dbl_kind, 0.9718989372088_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1388) = (/ 0.891367956371965_dbl_kind, 0.895036647504107_dbl_kind, 0.900608946306401_dbl_kind, 0.922027621041296_dbl_kind, 0.971903581367255_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1389) = (/ 0.891368088240594_dbl_kind, 0.895037361396547_dbl_kind, 0.900612229566091_dbl_kind, 0.922037124265567_dbl_kind, 0.971908217591045_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1390) = (/ 0.891368219950211_dbl_kind, 0.89503807494356_dbl_kind, 0.900615512086654_dbl_kind, 0.922046624427427_dbl_kind, 0.971912845896302_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1391) = (/ 0.891368351501225_dbl_kind, 0.895038788145255_dbl_kind, 0.900618793869255_dbl_kind, 0.922056121528864_dbl_kind, 0.971917466299125_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1392) = (/ 0.891368482894042_dbl_kind, 0.895039501001744_dbl_kind, 0.90062207491505_dbl_kind, 0.922065615571854_dbl_kind, 0.971922078815565_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1393) = (/ 0.891368614129068_dbl_kind, 0.895040213513136_dbl_kind, 0.900625355225196_dbl_kind, 0.922075106558364_dbl_kind, 0.971926683461638_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1394) = (/ 0.891368745206704_dbl_kind, 0.895040925679544_dbl_kind, 0.900628634800839_dbl_kind, 0.922084594490348_dbl_kind, 0.971931280253318_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1395) = (/ 0.891368876127353_dbl_kind, 0.89504163750108_dbl_kind, 0.900631913643121_dbl_kind, 0.922094079369751_dbl_kind, 0.971935869206538_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1396) = (/ 0.891369006891416_dbl_kind, 0.895042348977858_dbl_kind, 0.900635191753179_dbl_kind, 0.922103561198506_dbl_kind, 0.971940450337188_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1397) = (/ 0.891369137499289_dbl_kind, 0.895043060109992_dbl_kind, 0.900638469132145_dbl_kind, 0.922113039978537_dbl_kind, 0.971945023661125_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1398) = (/ 0.891369267951371_dbl_kind, 0.895043770897596_dbl_kind, 0.900641745781144_dbl_kind, 0.922122515711757_dbl_kind, 0.971949589194163_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1399) = (/ 0.891369398248056_dbl_kind, 0.895044481340786_dbl_kind, 0.900645021701296_dbl_kind, 0.922131988400066_dbl_kind, 0.971954146952073_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1400) = (/ 0.891369528389739_dbl_kind, 0.895045191439679_dbl_kind, 0.900648296893714_dbl_kind, 0.922141458045357_dbl_kind, 0.971958696950591_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1401) = (/ 0.891369658376811_dbl_kind, 0.895045901194391_dbl_kind, 0.900651571359507_dbl_kind, 0.922150924649511_dbl_kind, 0.971963239205411_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1402) = (/ 0.891369788209664_dbl_kind, 0.89504661060504_dbl_kind, 0.900654845099779_dbl_kind, 0.922160388214397_dbl_kind, 0.971967773732188_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1403) = (/ 0.891369917888685_dbl_kind, 0.895047319671745_dbl_kind, 0.900658118115626_dbl_kind, 0.922169848741876_dbl_kind, 0.971972300546538_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1404) = (/ 0.891370047414264_dbl_kind, 0.895048028394624_dbl_kind, 0.90066139040814_dbl_kind, 0.922179306233797_dbl_kind, 0.971976819664039_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1405) = (/ 0.891370176786785_dbl_kind, 0.895048736773799_dbl_kind, 0.900664661978407_dbl_kind, 0.922188760691998_dbl_kind, 0.971981331100227_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1406) = (/ 0.891370306006635_dbl_kind, 0.89504944480939_dbl_kind, 0.900667932827507_dbl_kind, 0.922198212118307_dbl_kind, 0.971985834870602_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1407) = (/ 0.891370435074195_dbl_kind, 0.895050152501517_dbl_kind, 0.900671202956515_dbl_kind, 0.922207660514541_dbl_kind, 0.971990330990623_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1408) = (/ 0.891370563989846_dbl_kind, 0.895050859850304_dbl_kind, 0.900674472366498_dbl_kind, 0.922217105882509_dbl_kind, 0.971994819475714_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1409) = (/ 0.89137069275397_dbl_kind, 0.895051566855873_dbl_kind, 0.900677741058522_dbl_kind, 0.922226548224006_dbl_kind, 0.971999300341255_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1410) = (/ 0.891370821366945_dbl_kind, 0.895052273518348_dbl_kind, 0.900681009033642_dbl_kind, 0.922235987540819_dbl_kind, 0.972003773602593_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1411) = (/ 0.891370949829147_dbl_kind, 0.895052979837853_dbl_kind, 0.90068427629291_dbl_kind, 0.922245423834723_dbl_kind, 0.972008239275032_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1412) = (/ 0.891371078140953_dbl_kind, 0.895053685814514_dbl_kind, 0.900687542837373_dbl_kind, 0.922254857107483_dbl_kind, 0.972012697373843_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1413) = (/ 0.891371206302735_dbl_kind, 0.895054391448455_dbl_kind, 0.90069080866807_dbl_kind, 0.922264287360855_dbl_kind, 0.972017147914253_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1414) = (/ 0.891371334314868_dbl_kind, 0.895055096739804_dbl_kind, 0.900694073786036_dbl_kind, 0.922273714596582_dbl_kind, 0.972021590911455_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1415) = (/ 0.891371462177721_dbl_kind, 0.895055801688687_dbl_kind, 0.900697338192299_dbl_kind, 0.922283138816399_dbl_kind, 0.972026026380603_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1416) = (/ 0.891371589891666_dbl_kind, 0.895056506295233_dbl_kind, 0.900700601887883_dbl_kind, 0.922292560022028_dbl_kind, 0.972030454336813_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1417) = (/ 0.891371717457068_dbl_kind, 0.89505721055957_dbl_kind, 0.900703864873804_dbl_kind, 0.922301978215185_dbl_kind, 0.972034874795164_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1418) = (/ 0.891371844874297_dbl_kind, 0.895057914481827_dbl_kind, 0.900707127151075_dbl_kind, 0.922311393397569_dbl_kind, 0.972039287770697_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1419) = (/ 0.891371972143716_dbl_kind, 0.895058618062134_dbl_kind, 0.900710388720699_dbl_kind, 0.922320805570875_dbl_kind, 0.972043693278416_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1420) = (/ 0.89137209926569_dbl_kind, 0.895059321300623_dbl_kind, 0.900713649583678_dbl_kind, 0.922330214736784_dbl_kind, 0.972048091333287_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1421) = (/ 0.891372226240581_dbl_kind, 0.895060024197423_dbl_kind, 0.900716909741004_dbl_kind, 0.922339620896968_dbl_kind, 0.972052481950241_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1422) = (/ 0.89137235306875_dbl_kind, 0.895060726752667_dbl_kind, 0.900720169193667_dbl_kind, 0.922349024053087_dbl_kind, 0.972056865144167_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1423) = (/ 0.891372479750556_dbl_kind, 0.895061428966489_dbl_kind, 0.900723427942649_dbl_kind, 0.922358424206793_dbl_kind, 0.972061240929924_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1424) = (/ 0.891372606286359_dbl_kind, 0.89506213083902_dbl_kind, 0.900726685988925_dbl_kind, 0.922367821359727_dbl_kind, 0.972065609322327_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1425) = (/ 0.891372732676514_dbl_kind, 0.895062832370396_dbl_kind, 0.900729943333468_dbl_kind, 0.922377215513518_dbl_kind, 0.97206997033616_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1426) = (/ 0.891372858921376_dbl_kind, 0.895063533560751_dbl_kind, 0.900733199977241_dbl_kind, 0.922386606669788_dbl_kind, 0.972074323986165_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1427) = (/ 0.8913729850213_dbl_kind, 0.89506423441022_dbl_kind, 0.900736455921203_dbl_kind, 0.922395994830145_dbl_kind, 0.972078670287055_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1428) = (/ 0.891373110976639_dbl_kind, 0.89506493491894_dbl_kind, 0.900739711166309_dbl_kind, 0.922405379996189_dbl_kind, 0.9720830092535_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1429) = (/ 0.891373236787743_dbl_kind, 0.895065635087047_dbl_kind, 0.900742965713505_dbl_kind, 0.922414762169509_dbl_kind, 0.972087340900133_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1430) = (/ 0.891373362454962_dbl_kind, 0.895066334914678_dbl_kind, 0.900746219563732_dbl_kind, 0.922424141351684_dbl_kind, 0.972091665241558_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1431) = (/ 0.891373487978645_dbl_kind, 0.895067034401971_dbl_kind, 0.900749472717927_dbl_kind, 0.922433517544284_dbl_kind, 0.972095982292336_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1432) = (/ 0.891373613359138_dbl_kind, 0.895067733549066_dbl_kind, 0.900752725177019_dbl_kind, 0.922442890748865_dbl_kind, 0.972100292066994_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1433) = (/ 0.891373738596787_dbl_kind, 0.895068432356102_dbl_kind, 0.900755976941932_dbl_kind, 0.922452260966976_dbl_kind, 0.972104594580028_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1434) = (/ 0.891373863691936_dbl_kind, 0.895069130823218_dbl_kind, 0.900759228013584_dbl_kind, 0.922461628200156_dbl_kind, 0.972108889845887_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1435) = (/ 0.891373988644929_dbl_kind, 0.895069828950555_dbl_kind, 0.900762478392887_dbl_kind, 0.922470992449932_dbl_kind, 0.972113177878996_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1436) = (/ 0.891374113456106_dbl_kind, 0.895070526738254_dbl_kind, 0.900765728080748_dbl_kind, 0.922480353717823_dbl_kind, 0.972117458693738_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1437) = (/ 0.891374238125809_dbl_kind, 0.895071224186458_dbl_kind, 0.900768977078066_dbl_kind, 0.922489712005334_dbl_kind, 0.972121732304463_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1438) = (/ 0.891374362654374_dbl_kind, 0.895071921295308_dbl_kind, 0.900772225385736_dbl_kind, 0.922499067313964_dbl_kind, 0.972125998725485_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1439) = (/ 0.891374487042142_dbl_kind, 0.895072618064948_dbl_kind, 0.900775473004647_dbl_kind, 0.922508419645199_dbl_kind, 0.97213025797108_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1440) = (/ 0.891374611289446_dbl_kind, 0.895073314495522_dbl_kind, 0.900778719935682_dbl_kind, 0.922517769000517_dbl_kind, 0.972134510055496_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1441) = (/ 0.891374735396623_dbl_kind, 0.895074010587174_dbl_kind, 0.900781966179717_dbl_kind, 0.922527115381384_dbl_kind, 0.972138754992937_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1442) = (/ 0.891374859364006_dbl_kind, 0.895074706340049_dbl_kind, 0.900785211737622_dbl_kind, 0.922536458789258_dbl_kind, 0.972142992797579_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1443) = (/ 0.891374983191927_dbl_kind, 0.895075401754293_dbl_kind, 0.900788456610264_dbl_kind, 0.922545799225584_dbl_kind, 0.972147223483561_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1444) = (/ 0.891375106880717_dbl_kind, 0.895076096830051_dbl_kind, 0.9007917007985_dbl_kind, 0.9225551366918_dbl_kind, 0.972151447064986_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1445) = (/ 0.891375230430705_dbl_kind, 0.895076791567471_dbl_kind, 0.900794944303184_dbl_kind, 0.922564471189331_dbl_kind, 0.972155663555923_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1446) = (/ 0.89137535384222_dbl_kind, 0.895077485966701_dbl_kind, 0.900798187125163_dbl_kind, 0.922573802719594_dbl_kind, 0.972159872970406_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1447) = (/ 0.891375477115588_dbl_kind, 0.895078180027888_dbl_kind, 0.900801429265278_dbl_kind, 0.922583131283995_dbl_kind, 0.972164075322439_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1448) = (/ 0.891375600251136_dbl_kind, 0.895078873751182_dbl_kind, 0.900804670724365_dbl_kind, 0.92259245688393_dbl_kind, 0.972168270625984_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1449) = (/ 0.891375723249188_dbl_kind, 0.89507956713673_dbl_kind, 0.900807911503253_dbl_kind, 0.922601779520786_dbl_kind, 0.972172458894975_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1450) = (/ 0.891375846110066_dbl_kind, 0.895080260184683_dbl_kind, 0.900811151602764_dbl_kind, 0.922611099195938_dbl_kind, 0.972176640143311_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1451) = (/ 0.891375968834094_dbl_kind, 0.895080952895192_dbl_kind, 0.900814391023717_dbl_kind, 0.922620415910753_dbl_kind, 0.972180814384854_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1452) = (/ 0.891376091421591_dbl_kind, 0.895081645268407_dbl_kind, 0.900817629766923_dbl_kind, 0.922629729666587_dbl_kind, 0.972184981633431_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1453) = (/ 0.891376213872876_dbl_kind, 0.895082337304481_dbl_kind, 0.900820867833187_dbl_kind, 0.922639040464785_dbl_kind, 0.972189141902845_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1454) = (/ 0.891376336188268_dbl_kind, 0.895083029003565_dbl_kind, 0.900824105223309_dbl_kind, 0.922648348306685_dbl_kind, 0.972193295206854_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1455) = (/ 0.891376458368084_dbl_kind, 0.895083720365812_dbl_kind, 0.900827341938082_dbl_kind, 0.922657653193611_dbl_kind, 0.972197441559186_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1456) = (/ 0.891376580412638_dbl_kind, 0.895084411391376_dbl_kind, 0.900830577978295_dbl_kind, 0.92266695512688_dbl_kind, 0.972201580973539_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1457) = (/ 0.891376702322246_dbl_kind, 0.895085102080409_dbl_kind, 0.900833813344728_dbl_kind, 0.922676254107798_dbl_kind, 0.972205713463571_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1458) = (/ 0.89137682409722_dbl_kind, 0.895085792433068_dbl_kind, 0.900837048038157_dbl_kind, 0.922685550137662_dbl_kind, 0.972209839042916_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1459) = (/ 0.891376945737871_dbl_kind, 0.895086482449506_dbl_kind, 0.900840282059352_dbl_kind, 0.922694843217757_dbl_kind, 0.972213957725165_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1460) = (/ 0.891377067244512_dbl_kind, 0.89508717212988_dbl_kind, 0.900843515409077_dbl_kind, 0.92270413334936_dbl_kind, 0.972218069523879_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1461) = (/ 0.891377188617451_dbl_kind, 0.895087861474345_dbl_kind, 0.900846748088089_dbl_kind, 0.922713420533738_dbl_kind, 0.97222217445259_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1462) = (/ 0.891377309856996_dbl_kind, 0.895088550483058_dbl_kind, 0.90084998009714_dbl_kind, 0.922722704772146_dbl_kind, 0.972226272524794_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1463) = (/ 0.891377430963453_dbl_kind, 0.895089239156178_dbl_kind, 0.900853211436976_dbl_kind, 0.922731986065832_dbl_kind, 0.972230363753956_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1464) = (/ 0.891377551937129_dbl_kind, 0.895089927493859_dbl_kind, 0.900856442108336_dbl_kind, 0.922741264416032_dbl_kind, 0.972234448153503_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1465) = (/ 0.891377672778328_dbl_kind, 0.895090615496263_dbl_kind, 0.900859672111955_dbl_kind, 0.922750539823973_dbl_kind, 0.972238525736836_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1466) = (/ 0.891377793487354_dbl_kind, 0.895091303163547_dbl_kind, 0.900862901448559_dbl_kind, 0.922759812290872_dbl_kind, 0.972242596517318_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1467) = (/ 0.891377914064508_dbl_kind, 0.89509199049587_dbl_kind, 0.900866130118871_dbl_kind, 0.922769081817937_dbl_kind, 0.972246660508282_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1468) = (/ 0.891378034510091_dbl_kind, 0.895092677493393_dbl_kind, 0.900869358123606_dbl_kind, 0.922778348406364_dbl_kind, 0.972250717723031_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1469) = (/ 0.891378154824403_dbl_kind, 0.895093364156276_dbl_kind, 0.900872585463475_dbl_kind, 0.922787612057341_dbl_kind, 0.972254768174833_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1470) = (/ 0.891378275007743_dbl_kind, 0.89509405048468_dbl_kind, 0.900875812139181_dbl_kind, 0.922796872772046_dbl_kind, 0.972258811876922_dbl_kind /) + iceAsymmetryParameterDirect(1:5 ,1471) = (/ 0.891378395060407_dbl_kind, 0.895094736478766_dbl_kind, 0.900879038151421_dbl_kind, 0.922806130551648_dbl_kind, 0.972262848842506_dbl_kind /) + + iceAsymmetryParameterDiffuse(1:5 ,1) = (/ 0.883796988056542_dbl_kind, 0.883342090644533_dbl_kind, 0.882303225047584_dbl_kind, 0.882254720448352_dbl_kind, 0.891906690982411_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,2) = (/ 0.884028281638843_dbl_kind, 0.883650540642183_dbl_kind, 0.882710900566814_dbl_kind, 0.882764613086411_dbl_kind, 0.892694276417957_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,3) = (/ 0.88424663334592_dbl_kind, 0.883940569462334_dbl_kind, 0.883094503579836_dbl_kind, 0.883248326043141_dbl_kind, 0.893450073209044_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,4) = (/ 0.884452844861344_dbl_kind, 0.884213851534574_dbl_kind, 0.883455324541469_dbl_kind, 0.883707612999668_dbl_kind, 0.894176631663937_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,5) = (/ 0.884647649374281_dbl_kind, 0.884471892549507_dbl_kind, 0.883794679592248_dbl_kind, 0.884144176622858_dbl_kind, 0.894876220141942_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,6) = (/ 0.884831726410077_dbl_kind, 0.884716046213931_dbl_kind, 0.884113902083967_dbl_kind, 0.884559641943785_dbl_kind, 0.895550861780034_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,7) = (/ 0.885005712686694_dbl_kind, 0.884947529649023_dbl_kind, 0.884414328395376_dbl_kind, 0.884955537372027_dbl_kind, 0.89620236592712_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,8) = (/ 0.885170209913341_dbl_kind, 0.885167437327416_dbl_kind, 0.88469728162147_dbl_kind, 0.885333283129094_dbl_kind, 0.896832355262637_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,9) = (/ 0.885325790246527_dbl_kind, 0.885376753562385_dbl_kind, 0.884964055525829_dbl_kind, 0.885694186171259_dbl_kind, 0.897442289306865_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,10) = (/ 0.885472999967418_dbl_kind, 0.885576363634085_dbl_kind, 0.885215900222602_dbl_kind, 0.886039440351782_dbl_kind, 0.898033484848693_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,11) = (/ 0.885612361828784_dbl_kind, 0.88576706367635_dbl_kind, 0.885454010372427_dbl_kind, 0.88637013050785_dbl_kind, 0.898607133697787_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,12) = (/ 0.885744376429824_dbl_kind, 0.885949569463488_dbl_kind, 0.885679516194706_dbl_kind, 0.886687239246645_dbl_kind, 0.899164318091874_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,13) = (/ 0.885869522905364_dbl_kind, 0.886124524237356_dbl_kind, 0.885893477276041_dbl_kind, 0.886991655375074_dbl_kind, 0.899706024040709_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,14) = (/ 0.885988259157575_dbl_kind, 0.886292505706632_dbl_kind, 0.886096878953615_dbl_kind, 0.887284183119532_dbl_kind, 0.900233152855044_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,15) = (/ 0.886101021809947_dbl_kind, 0.886454032336609_dbl_kind, 0.886290630941009_dbl_kind, 0.887565551484452_dbl_kind, 0.9007465310844_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,16) = (/ 0.886208226022785_dbl_kind, 0.886609569031906_dbl_kind, 0.886475567816117_dbl_kind, 0.88783642328275_dbl_kind, 0.901246919067011_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,17) = (/ 0.886310265275357_dbl_kind, 0.886759532298146_dbl_kind, 0.886652450985984_dbl_kind, 0.888097403528819_dbl_kind, 0.901735018276774_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,18) = (/ 0.886407511191253_dbl_kind, 0.886904294953166_dbl_kind, 0.886821971765953_dbl_kind, 0.888349047012215_dbl_kind, 0.902211477633972_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,19) = (/ 0.886500313459644_dbl_kind, 0.887044190444398_dbl_kind, 0.886984755248813_dbl_kind, 0.888591864968568_dbl_kind, 0.902676898928897_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,20) = (/ 0.886588999885604_dbl_kind, 0.887179516817139_dbl_kind, 0.887141364685484_dbl_kind, 0.888826330836459_dbl_kind, 0.903131841490282_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,21) = (/ 0.886673876586886_dbl_kind, 0.887310540368572_dbl_kind, 0.887292306146555_dbl_kind, 0.889052885138958_dbl_kind, 0.903576826213942_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,22) = (/ 0.886755228342161_dbl_kind, 0.88743749901457_dbl_kind, 0.887438033279919_dbl_kind, 0.889271939560447_dbl_kind, 0.904012339051525_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,23) = (/ 0.886833319086356_dbl_kind, 0.887560605390382_dbl_kind, 0.887578952021718_dbl_kind, 0.889483880307311_dbl_kind, 0.90443883404501_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,24) = (/ 0.886908392541867_dbl_kind, 0.887680049701907_dbl_kind, 0.887715425154613_dbl_kind, 0.889689070848517_dbl_kind, 0.904856735979786_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,25) = (/ 0.886980672969772_dbl_kind, 0.887796002341302_dbl_kind, 0.887847776638672_dbl_kind, 0.889887854132129_dbl_kind, 0.905266442717668_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,26) = (/ 0.887050366022347_dbl_kind, 0.887908616278673_dbl_kind, 0.887976295665916_dbl_kind, 0.890080554368865_dbl_kind, 0.905668327261321_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,27) = (/ 0.887117659676757_dbl_kind, 0.888018029240549_dbl_kind, 0.888101240410255_dbl_kind, 0.890267478465699_dbl_kind, 0.906062739592946_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,28) = (/ 0.887182725229628_dbl_kind, 0.888124365685244_dbl_kind, 0.888222841460672_dbl_kind, 0.890448917182832_dbl_kind, 0.906450008322743_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,29) = (/ 0.887245718332769_dbl_kind, 0.888227738585142_dbl_kind, 0.888341304937679_dbl_kind, 0.890625146077036_dbl_kind, 0.906830442176463_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,30) = (/ 0.887306780051657_dbl_kind, 0.88832825102602_dbl_kind, 0.888456815301928_dbl_kind, 0.890796426284211_dbl_kind, 0.907204331346206_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,31) = (/ 0.887366037929941_dbl_kind, 0.888425997633761_dbl_kind, 0.888569537870031_dbl_kind, 0.890963005184391_dbl_kind, 0.907571948724267_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,32) = (/ 0.887423607045217_dbl_kind, 0.888521065839075_dbl_kind, 0.888679621056604_dbl_kind, 0.891125116983819_dbl_kind, 0.907933551036209_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,33) = (/ 0.887479591043387_dbl_kind, 0.888613536991061_dbl_kind, 0.888787198363803_dbl_kind, 0.891282983241_dbl_kind, 0.908289379886484_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,34) = (/ 0.88753408314102_dbl_kind, 0.888703487330578_dbl_kind, 0.888892390140641_dbl_kind, 0.891436813357139_dbl_kind, 0.90863966272739_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,35) = (/ 0.887587167087193_dbl_kind, 0.888790988834415_dbl_kind, 0.88899530513433_dbl_kind, 0.891586805045823_dbl_kind, 0.908984613760256_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,36) = (/ 0.887638918078174_dbl_kind, 0.888876109941195_dbl_kind, 0.889096041855276_dbl_kind, 0.891733144792322_dbl_kind, 0.909324434776124_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,37) = (/ 0.887689403620121_dbl_kind, 0.888958916169717_dbl_kind, 0.889194689776193_dbl_kind, 0.891876008309212_dbl_kind, 0.909659315941875_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,38) = (/ 0.887738684336504_dbl_kind, 0.889039470640159_dbl_kind, 0.889291330384397_dbl_kind, 0.892015560992235_dbl_kind, 0.909989436536712_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,39) = (/ 0.887786814718402_dbl_kind, 0.889117834508164_dbl_kind, 0.889386038104745_dbl_kind, 0.892151958378099_dbl_kind, 0.910314965643127_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,40) = (/ 0.887833843816991_dbl_kind, 0.889194067321354_dbl_kind, 0.88947888110906_dbl_kind, 0.892285346604339_dbl_kind, 0.910636062795733_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,41) = (/ 0.887879815878559_dbl_kind, 0.8892682273073_dbl_kind, 0.889569922026239_dbl_kind, 0.892415862870263_dbl_kind, 0.910952878590902_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,42) = (/ 0.887924770923229_dbl_kind, 0.889340371601377_dbl_kind, 0.889659218565671_dbl_kind, 0.892543635897201_dbl_kind, 0.911265555259685_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,43) = (/ 0.887968745269213_dbl_kind, 0.889410556422354_dbl_kind, 0.889746824065113_dbl_kind, 0.892668786385915_dbl_kind, 0.911574227206191_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,44) = (/ 0.888011772004978_dbl_kind, 0.88947883720293_dbl_kind, 0.889832787972822_dbl_kind, 0.892791427468755_dbl_kind, 0.911879021513383_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,45) = (/ 0.888053881412039_dbl_kind, 0.889545268681829_dbl_kind, 0.889917156272457_dbl_kind, 0.892911665154172_dbl_kind, 0.912180058418001_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,46) = (/ 0.888095101341409_dbl_kind, 0.889609904963444_dbl_kind, 0.889999971858194_dbl_kind, 0.893029598761265_dbl_kind, 0.912477451756221_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,47) = (/ 0.888135457546868_dbl_kind, 0.889672799550429_dbl_kind, 0.890081274866456_dbl_kind, 0.893145321342271_dbl_kind, 0.912771309381574_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,48) = (/ 0.888174973978335_dbl_kind, 0.889734005354067_dbl_kind, 0.890161102969814_dbl_kind, 0.893258920091117_dbl_kind, 0.913061733556469_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,49) = (/ 0.888213673038585_dbl_kind, 0.889793574686733_dbl_kind, 0.890239491637826_dbl_kind, 0.893370476736499_dbl_kind, 0.913348821318716_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,50) = (/ 0.888251575806578_dbl_kind, 0.889851559240207_dbl_kind, 0.890316474368906_dbl_kind, 0.893480067918188_dbl_kind, 0.913632664824293_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,51) = (/ 0.888288702230505_dbl_kind, 0.88990801005319_dbl_kind, 0.890392082896773_dbl_kind, 0.893587765545606_dbl_kind, 0.913913351667631_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,52) = (/ 0.888325071293592_dbl_kind, 0.889962977470874_dbl_kind, 0.890466347374466_dbl_kind, 0.893693637138017_dbl_kind, 0.914190965180586_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,53) = (/ 0.888360701155516_dbl_kind, 0.890016511099083_dbl_kind, 0.890539296538565_dbl_kind, 0.89379774614589_dbl_kind, 0.914465584711298_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,54) = (/ 0.88839560927213_dbl_kind, 0.890068659755085_dbl_kind, 0.890610957855826_dbl_kind, 0.893900152253291_dbl_kind, 0.914737285884037_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,55) = (/ 0.888429812496003_dbl_kind, 0.890119471416878_dbl_kind, 0.890681357654177_dbl_kind, 0.894000911661363_dbl_kind, 0.915006140841175_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,56) = (/ 0.888463327160124_dbl_kind, 0.890168993172454_dbl_kind, 0.890750521239729_dbl_kind, 0.894100077353134_dbl_kind, 0.915272218468297_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,57) = (/ 0.888496169146878_dbl_kind, 0.890217271170279_dbl_kind, 0.890818473001267_dbl_kind, 0.894197699340066_dbl_kind, 0.915535584603522_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,58) = (/ 0.888528353944274_dbl_kind, 0.890264350571979_dbl_kind, 0.890885236503478_dbl_kind, 0.894293824890895_dbl_kind, 0.915796302232_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,59) = (/ 0.888559896691174_dbl_kind, 0.890310275508056_dbl_kind, 0.890950834570019_dbl_kind, 0.894388498743404_dbl_kind, 0.916054431666545_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,60) = (/ 0.88859081221313_dbl_kind, 0.89035508903723_dbl_kind, 0.891015289357418_dbl_kind, 0.894481763299879_dbl_kind, 0.9163100307153_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,61) = (/ 0.888621115050245_dbl_kind, 0.890398833109884_dbl_kind, 0.891078622420656_dbl_kind, 0.894573658807056_dbl_kind, 0.916563154837322_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,62) = (/ 0.888650819478345_dbl_kind, 0.89044154853592_dbl_kind, 0.89114085477123_dbl_kind, 0.894664223521376_dbl_kind, 0.916813857286906_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,63) = (/ 0.888679939524565_dbl_kind, 0.890483274957257_dbl_kind, 0.891202006928368_dbl_kind, 0.894753493860463_dbl_kind, 0.917062189247434_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,64) = (/ 0.888708488978359_dbl_kind, 0.890524050825058_dbl_kind, 0.891262098964049_dbl_kind, 0.894841504541665_dbl_kind, 0.917308199955472_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,65) = (/ 0.888736481398781_dbl_kind, 0.890563913381718_dbl_kind, 0.891321150542374_dbl_kind, 0.894928288708573_dbl_kind, 0.91755193681586_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,66) = (/ 0.888763930118802_dbl_kind, 0.89060289864758_dbl_kind, 0.89137918095385_dbl_kind, 0.895013878046367_dbl_kind, 0.917793445508402_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,67) = (/ 0.888790848247292_dbl_kind, 0.890641041412248_dbl_kind, 0.891436209145022_dbl_kind, 0.895098302886845_dbl_kind, 0.91803277008682_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,68) = (/ 0.888817248669241_dbl_kind, 0.890678375230371_dbl_kind, 0.891492253743939_dbl_kind, 0.895181592303958_dbl_kind, 0.918269953070515_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,69) = (/ 0.888843144044675_dbl_kind, 0.890714932421694_dbl_kind, 0.891547333081832_dbl_kind, 0.895263774200623_dbl_kind, 0.9185050355297_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,70) = (/ 0.888868546806661_dbl_kind, 0.890750744075159_dbl_kind, 0.891601465211407_dbl_kind, 0.895344875387595_dbl_kind, 0.9187380571644_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,71) = (/ 0.888893469158747_dbl_kind, 0.890785840056822_dbl_kind, 0.891654667922093_dbl_kind, 0.895424921655057_dbl_kind, 0.918969056377788_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,72) = (/ 0.888917923072088_dbl_kind, 0.890820249021316_dbl_kind, 0.891706958752572_dbl_kind, 0.895503937837647_dbl_kind, 0.919198070344288_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,73) = (/ 0.888941920282494_dbl_kind, 0.890853998426608_dbl_kind, 0.891758355000908_dbl_kind, 0.895581947873499_dbl_kind, 0.91942513507287_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,74) = (/ 0.88896547228757_dbl_kind, 0.890887114551756_dbl_kind, 0.89180887373255_dbl_kind, 0.895658974857909_dbl_kind, 0.91965028546588_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,75) = (/ 0.888988590344082_dbl_kind, 0.890919622517414_dbl_kind, 0.891858531786464_dbl_kind, 0.895735041092142_dbl_kind, 0.919873555373783_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,76) = (/ 0.889011285465668_dbl_kind, 0.890951546308795_dbl_kind, 0.891907345779658_dbl_kind, 0.895810168127874_dbl_kind, 0.920094977646107_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,77) = (/ 0.889033568420953_dbl_kind, 0.890982908800816_dbl_kind, 0.891955332110304_dbl_kind, 0.895884376807738_dbl_kind, 0.920314584178915_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,78) = (/ 0.889055449732138_dbl_kind, 0.891013731785184_dbl_kind, 0.892002506959671_dbl_kind, 0.895957687302357_dbl_kind, 0.920532405959048_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,79) = (/ 0.889076939674086_dbl_kind, 0.891044035999144_dbl_kind, 0.892048886293071_dbl_kind, 0.896030119144265_dbl_kind, 0.920748473105413_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,80) = (/ 0.889098048273922_dbl_kind, 0.89107384115566_dbl_kind, 0.89209448585997_dbl_kind, 0.896101691259039_dbl_kind, 0.920962814907536_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,81) = (/ 0.889118785311168_dbl_kind, 0.891103165974784_dbl_kind, 0.892139321193441_dbl_kind, 0.896172421993956_dbl_kind, 0.921175459861586_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,82) = (/ 0.889139160318374_dbl_kind, 0.89113202821599_dbl_kind, 0.892183407609094_dbl_kind, 0.896242329144436_dbl_kind, 0.921386435704079_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,83) = (/ 0.889159182582262_dbl_kind, 0.891160444711281_dbl_kind, 0.892226760203618_dbl_kind, 0.896311429978535_dbl_kind, 0.921595769443438_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,84) = (/ 0.889178861145343_dbl_kind, 0.891188431398837_dbl_kind, 0.89226939385304_dbl_kind, 0.896379741259696_dbl_kind, 0.921803487389562_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,85) = (/ 0.889198204807981_dbl_kind, 0.891216003357059_dbl_kind, 0.892311323210821_dbl_kind, 0.896447279267942_dbl_kind, 0.922009615181575_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,86) = (/ 0.889217222130878_dbl_kind, 0.891243174838803_dbl_kind, 0.892352562705864_dbl_kind, 0.896514059819706_dbl_kind, 0.922214177813886_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,87) = (/ 0.88923592143794_dbl_kind, 0.891269959305676_dbl_kind, 0.89239312654053_dbl_kind, 0.896580098286422_dbl_kind, 0.92241719966067_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,88) = (/ 0.889254310819507_dbl_kind, 0.891296369462232_dbl_kind, 0.892433028688715_dbl_kind, 0.896645409612034_dbl_kind, 0.922618704498939_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,89) = (/ 0.889272398135877_dbl_kind, 0.891322417289928_dbl_kind, 0.892472282894062_dbl_kind, 0.896710008329519_dbl_kind, 0.922818715530237_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,90) = (/ 0.889290191021132_dbl_kind, 0.891348114080751_dbl_kind, 0.892510902668348_dbl_kind, 0.896773908576533_dbl_kind, 0.923017255401135_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,91) = (/ 0.889307696887197_dbl_kind, 0.891373470470375_dbl_kind, 0.892548901290091_dbl_kind, 0.896837124110269_dbl_kind, 0.923214346222563_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,92) = (/ 0.889324922928117_dbl_kind, 0.891398496470771_dbl_kind, 0.892586291803415_dbl_kind, 0.896899668321597_dbl_kind, 0.923410009588088_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,93) = (/ 0.889341876124513_dbl_kind, 0.89142320150218_dbl_kind, 0.892623087017193_dbl_kind, 0.896961554248552_dbl_kind, 0.923604266591208_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,94) = (/ 0.889358563248189_dbl_kind, 0.891447594424376_dbl_kind, 0.89265929950449_dbl_kind, 0.897022794589233_dbl_kind, 0.923797137841743_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,95) = (/ 0.889374990866859_dbl_kind, 0.891471683567148_dbl_kind, 0.892694941602318_dbl_kind, 0.897083401714142_dbl_kind, 0.923988643481367_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,96) = (/ 0.889391165348976_dbl_kind, 0.891495476759951_dbl_kind, 0.892730025411724_dbl_kind, 0.897143387678026_dbl_kind, 0.924178803198377_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,97) = (/ 0.88940709286862_dbl_kind, 0.89151898136068_dbl_kind, 0.892764562798188_dbl_kind, 0.897202764231238_dbl_kind, 0.924367636241708_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,98) = (/ 0.889422779410445_dbl_kind, 0.89154220428353_dbl_kind, 0.89279856539236_dbl_kind, 0.897261542830655_dbl_kind, 0.924555161434289_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,99) = (/ 0.889438230774645_dbl_kind, 0.891565152025896_dbl_kind, 0.892832044591116_dbl_kind, 0.897319734650179_dbl_kind, 0.92474139718577_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,100) = (/ 0.889453452581931_dbl_kind, 0.891587830694315_dbl_kind, 0.892865011558921_dbl_kind, 0.897377350590835_dbl_kind, 0.924926361504649_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,101) = (/ 0.8894684502785_dbl_kind, 0.891610246029412_dbl_kind, 0.892897477229501_dbl_kind, 0.897434401290483_dbl_kind, 0.925110072009855_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,102) = (/ 0.889483229140977_dbl_kind, 0.891632403429845_dbl_kind, 0.89292945230781_dbl_kind, 0.897490897133172_dbl_kind, 0.92529254594184_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,103) = (/ 0.889497794281325_dbl_kind, 0.891654307975246_dbl_kind, 0.892960947272257_dbl_kind, 0.897546848258136_dbl_kind, 0.925473800173167_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,104) = (/ 0.889512150651693_dbl_kind, 0.891675964448158_dbl_kind, 0.892991972377214_dbl_kind, 0.897602264568443_dbl_kind, 0.925653851218676_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,105) = (/ 0.889526303049222_dbl_kind, 0.891697377354962_dbl_kind, 0.893022537655749_dbl_kind, 0.897657155739317_dbl_kind, 0.925832715245224_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,106) = (/ 0.889540256120764_dbl_kind, 0.891718550945817_dbl_kind, 0.893052652922592_dbl_kind, 0.897711531226132_dbl_kind, 0.926010408081041_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,107) = (/ 0.889554014367539_dbl_kind, 0.891739489233612_dbl_kind, 0.893082327777296_dbl_kind, 0.897765400272093_dbl_kind, 0.926186945224716_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,108) = (/ 0.889567582149695_dbl_kind, 0.891760196011949_dbl_kind, 0.893111571607599_dbl_kind, 0.897818771915606_dbl_kind, 0.926362341853852_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,109) = (/ 0.889580963690795_dbl_kind, 0.891780674872182_dbl_kind, 0.893140393592933_dbl_kind, 0.897871654997342_dbl_kind, 0.926536612833389_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,110) = (/ 0.889594163082194_dbl_kind, 0.891800929219512_dbl_kind, 0.893168802708094_dbl_kind, 0.897924058167015_dbl_kind, 0.926709772723631_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,111) = (/ 0.889607184287334_dbl_kind, 0.891820962288188_dbl_kind, 0.893196807727023_dbl_kind, 0.897975989889868_dbl_kind, 0.926881835787992_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,112) = (/ 0.889620031145927_dbl_kind, 0.891840777155813_dbl_kind, 0.893224417226713_dbl_kind, 0.898027458452871_dbl_kind, 0.927052816000474_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,113) = (/ 0.889632707378049_dbl_kind, 0.891860376756798_dbl_kind, 0.893251639591186_dbl_kind, 0.89807847197065_dbl_kind, 0.927222727052889_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,114) = (/ 0.889645216588119_dbl_kind, 0.891879763894978_dbl_kind, 0.893278483015553_dbl_kind, 0.898129038391152_dbl_kind, 0.927391582361845_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,115) = (/ 0.889657562268782_dbl_kind, 0.891898941255431_dbl_kind, 0.893304955510124_dbl_kind, 0.898179165501033_dbl_kind, 0.927559395075515_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,116) = (/ 0.889669747804685_dbl_kind, 0.891917911415517_dbl_kind, 0.89333106490455_dbl_kind, 0.898228860930815_dbl_kind, 0.927726178080177_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,117) = (/ 0.889681776476153_dbl_kind, 0.891936676855171_dbl_kind, 0.893356818851999_dbl_kind, 0.89827813215977_dbl_kind, 0.927891944006573_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,118) = (/ 0.889693651462752_dbl_kind, 0.891955239966484_dbl_kind, 0.893382224833324_dbl_kind, 0.898326986520589_dbl_kind, 0.928056705236054_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,119) = (/ 0.889705375846762_dbl_kind, 0.891973603062593_dbl_kind, 0.893407290161237_dbl_kind, 0.898375431203798_dbl_kind, 0.928220473906561_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,120) = (/ 0.889716952616536_dbl_kind, 0.891991768385917_dbl_kind, 0.893432021984454_dbl_kind, 0.898423473261967_dbl_kind, 0.928383261918425_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,121) = (/ 0.889728384669772_dbl_kind, 0.892009738115769_dbl_kind, 0.893456427291817_dbl_kind, 0.89847111961369_dbl_kind, 0.928545080939997_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,122) = (/ 0.889739674816671_dbl_kind, 0.892027514375368_dbl_kind, 0.893480512916363_dbl_kind, 0.898518377047369_dbl_kind, 0.928705942413132_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,123) = (/ 0.889750825783011_dbl_kind, 0.89204509923828_dbl_kind, 0.893504285539359_dbl_kind, 0.898565252224786_dbl_kind, 0.928865857558508_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,124) = (/ 0.889761840213119_dbl_kind, 0.892062494734333_dbl_kind, 0.893527751694255_dbl_kind, 0.898611751684493_dbl_kind, 0.929024837380814_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,125) = (/ 0.889772720672754_dbl_kind, 0.892079702855005_dbl_kind, 0.893550917770585_dbl_kind, 0.898657881845016_dbl_kind, 0.929182892673788_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,126) = (/ 0.889783469651891_dbl_kind, 0.892096725558345_dbl_kind, 0.893573790017786_dbl_kind, 0.898703649007882_dbl_kind, 0.929340034025132_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,127) = (/ 0.889794089567424_dbl_kind, 0.89211356477343_dbl_kind, 0.893596374548932_dbl_kind, 0.898749059360483_dbl_kind, 0.929496271821287_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,128) = (/ 0.88980458276578_dbl_kind, 0.892130222404395_dbl_kind, 0.893618677344391_dbl_kind, 0.898794118978777_dbl_kind, 0.929651616252099_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,129) = (/ 0.889814951525444_dbl_kind, 0.89214670033406_dbl_kind, 0.893640704255381_dbl_kind, 0.898838833829849_dbl_kind, 0.929806077315359_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,130) = (/ 0.889825198059403_dbl_kind, 0.892163000427178_dbl_kind, 0.893662461007437_dbl_kind, 0.898883209774316_dbl_kind, 0.929959664821222_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,131) = (/ 0.889835324517515_dbl_kind, 0.892179124533331_dbl_kind, 0.893683953203773_dbl_kind, 0.898927252568607_dbl_kind, 0.930112388396531_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,132) = (/ 0.889845332988786_dbl_kind, 0.892195074489491_dbl_kind, 0.893705186328558_dbl_kind, 0.898970967867124_dbl_kind, 0.930264257489025_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,133) = (/ 0.889855225503586_dbl_kind, 0.892210852122277_dbl_kind, 0.893726165750073_dbl_kind, 0.899014361224263_dbl_kind, 0.930415281371442_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,134) = (/ 0.889865004035781_dbl_kind, 0.892226459249918_dbl_kind, 0.893746896723777_dbl_kind, 0.89905743809635_dbl_kind, 0.930565469145523_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,135) = (/ 0.889874670504792_dbl_kind, 0.892241897683955_dbl_kind, 0.893767384395265_dbl_kind, 0.899100203843452_dbl_kind, 0.930714829745929_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,136) = (/ 0.889884226777591_dbl_kind, 0.892257169230691_dbl_kind, 0.893787633803127_dbl_kind, 0.899142663731108_dbl_kind, 0.930863371944046_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,137) = (/ 0.88989367467062_dbl_kind, 0.892272275692416_dbl_kind, 0.893807649881699_dbl_kind, 0.899184822931961_dbl_kind, 0.931011104351718_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,138) = (/ 0.889903015951649_dbl_kind, 0.892287218868419_dbl_kind, 0.893827437463713_dbl_kind, 0.899226686527304_dbl_kind, 0.931158035424871_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,139) = (/ 0.889912252341568_dbl_kind, 0.892302000555806_dbl_kind, 0.893847001282854_dbl_kind, 0.899268259508566_dbl_kind, 0.93130417346707_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,140) = (/ 0.889921385516117_dbl_kind, 0.892316622550138_dbl_kind, 0.89386634597621_dbl_kind, 0.899309546778707_dbl_kind, 0.93144952663298_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,141) = (/ 0.88993041710755_dbl_kind, 0.892331086645918_dbl_kind, 0.893885476086627_dbl_kind, 0.899350553153564_dbl_kind, 0.931594102931748_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,142) = (/ 0.88993934870625_dbl_kind, 0.892345394636909_dbl_kind, 0.893904396064976_dbl_kind, 0.89939128336313_dbl_kind, 0.931737910230305_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,143) = (/ 0.889948181862275_dbl_kind, 0.892359548316342_dbl_kind, 0.893923110272318_dbl_kind, 0.899431742052778_dbl_kind, 0.931880956256597_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,144) = (/ 0.889956918086858_dbl_kind, 0.892373549476983_dbl_kind, 0.893941622981989_dbl_kind, 0.899471933784446_dbl_kind, 0.932023248602722_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,145) = (/ 0.889965558853845_dbl_kind, 0.8923873999111_dbl_kind, 0.893959938381592_dbl_kind, 0.899511863037769_dbl_kind, 0.932164794728016_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,146) = (/ 0.889974105601087_dbl_kind, 0.892401101410333_dbl_kind, 0.893978060574913_dbl_kind, 0.899551534211174_dbl_kind, 0.932305601962053_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,147) = (/ 0.889982559731775_dbl_kind, 0.892414655765474_dbl_kind, 0.893995993583749_dbl_kind, 0.899590951622938_dbl_kind, 0.932445677507579_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,148) = (/ 0.889990922615729_dbl_kind, 0.892428064766164_dbl_kind, 0.89401374134966_dbl_kind, 0.899630119512222_dbl_kind, 0.932585028443373_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,149) = (/ 0.889999195590644_dbl_kind, 0.892441330200542_dbl_kind, 0.894031307735658_dbl_kind, 0.899669042040067_dbl_kind, 0.932723661727045_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,150) = (/ 0.890007379963272_dbl_kind, 0.892454453854806_dbl_kind, 0.894048696527809_dbl_kind, 0.899707723290373_dbl_kind, 0.93286158419777_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,151) = (/ 0.890015477010583_dbl_kind, 0.89246743751275_dbl_kind, 0.894065911436783_dbl_kind, 0.899746167270855_dbl_kind, 0.93299880257895_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,152) = (/ 0.890023487980864_dbl_kind, 0.892480282955243_dbl_kind, 0.894082956099329_dbl_kind, 0.89978437791398_dbl_kind, 0.933135323480825_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,153) = (/ 0.89003141409478_dbl_kind, 0.892492991959673_dbl_kind, 0.894099834079695_dbl_kind, 0.89982235907789_dbl_kind, 0.933271153403011_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,154) = (/ 0.890039256546397_dbl_kind, 0.892505566299365_dbl_kind, 0.894116548870995_dbl_kind, 0.89986011454731_dbl_kind, 0.933406298736986_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,155) = (/ 0.890047016504164_dbl_kind, 0.892518007742974_dbl_kind, 0.894133103896507_dbl_kind, 0.899897648034447_dbl_kind, 0.933540765768519_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,156) = (/ 0.890054695111852_dbl_kind, 0.892530318053858_dbl_kind, 0.894149502510941_dbl_kind, 0.89993496317988_dbl_kind, 0.933674560680028_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,157) = (/ 0.890062293489465_dbl_kind, 0.892542498989439_dbl_kind, 0.894165748001639_dbl_kind, 0.899972063553443_dbl_kind, 0.933807689552898_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,158) = (/ 0.890069812734101_dbl_kind, 0.892554552300554_dbl_kind, 0.894181843589748_dbl_kind, 0.900008952655102_dbl_kind, 0.933940158369741_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,159) = (/ 0.89007725392079_dbl_kind, 0.892566479730804_dbl_kind, 0.894197792431336_dbl_kind, 0.90004563391583_dbl_kind, 0.934071973016593_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,160) = (/ 0.890084618103295_dbl_kind, 0.892578283015897_dbl_kind, 0.894213597618481_dbl_kind, 0.900082110698477_dbl_kind, 0.934203139285071_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,161) = (/ 0.890091906314871_dbl_kind, 0.892589963883005_dbl_kind, 0.894229262180314_dbl_kind, 0.900118386298642_dbl_kind, 0.93433366287447_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,162) = (/ 0.890099119569008_dbl_kind, 0.892601524050109_dbl_kind, 0.894244789084037_dbl_kind, 0.90015446394554_dbl_kind, 0.934463549393815_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,163) = (/ 0.890106258860131_dbl_kind, 0.892612965225373_dbl_kind, 0.894260181235903_dbl_kind, 0.900190346802877_dbl_kind, 0.934592804363861_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,164) = (/ 0.890113325164272_dbl_kind, 0.892624289106512_dbl_kind, 0.894275441482172_dbl_kind, 0.900226037969713_dbl_kind, 0.934721433219048_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,165) = (/ 0.890120319439716_dbl_kind, 0.892635497380186_dbl_kind, 0.894290572610038_dbl_kind, 0.900261540481343_dbl_kind, 0.934849441309407_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,166) = (/ 0.890127242627623_dbl_kind, 0.8926465917214_dbl_kind, 0.894305577348532_dbl_kind, 0.90029685731017_dbl_kind, 0.934976833902422_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,167) = (/ 0.89013409565261_dbl_kind, 0.89265757379293_dbl_kind, 0.894320458369401_dbl_kind, 0.900331991366577_dbl_kind, 0.935103616184845_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,168) = (/ 0.890140879423323_dbl_kind, 0.892668445244759_dbl_kind, 0.894335218287973_dbl_kind, 0.900366945499816_dbl_kind, 0.935229793264468_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,169) = (/ 0.890147594832972_dbl_kind, 0.892679207713537_dbl_kind, 0.894349859663997_dbl_kind, 0.900401722498884_dbl_kind, 0.935355370171856_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,170) = (/ 0.890154242759848_dbl_kind, 0.892689862822069_dbl_kind, 0.894364385002467_dbl_kind, 0.900436325093411_dbl_kind, 0.935480351862039_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,171) = (/ 0.890160824067813_dbl_kind, 0.892700412178809_dbl_kind, 0.894378796754433_dbl_kind, 0.900470755954549_dbl_kind, 0.935604743216145_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,172) = (/ 0.890167339606775_dbl_kind, 0.892710857377391_dbl_kind, 0.8943930973178_dbl_kind, 0.900505017695863_dbl_kind, 0.935728549043026_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,173) = (/ 0.890173790213129_dbl_kind, 0.892721199996178_dbl_kind, 0.894407289038108_dbl_kind, 0.900539112874225_dbl_kind, 0.935851774080815_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,174) = (/ 0.890180176710189_dbl_kind, 0.892731441597832_dbl_kind, 0.894421374209307_dbl_kind, 0.90057304399071_dbl_kind, 0.93597442299846_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,175) = (/ 0.890186499908594_dbl_kind, 0.892741583728918_dbl_kind, 0.894435355074518_dbl_kind, 0.900606813491491_dbl_kind, 0.936096500397221_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,176) = (/ 0.890192760606695_dbl_kind, 0.892751627919514_dbl_kind, 0.894449233826792_dbl_kind, 0.900640423768745_dbl_kind, 0.936218010812117_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,177) = (/ 0.890198959590929_dbl_kind, 0.892761575682869_dbl_kind, 0.894463012609848_dbl_kind, 0.90067387716155_dbl_kind, 0.936338958713361_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,178) = (/ 0.890205097636167_dbl_kind, 0.892771428515064_dbl_kind, 0.894476693518821_dbl_kind, 0.900707175956787_dbl_kind, 0.936459348507738_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,179) = (/ 0.890211175506047_dbl_kind, 0.892781187894709_dbl_kind, 0.894490278600985_dbl_kind, 0.900740322390046_dbl_kind, 0.936579184539964_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,180) = (/ 0.890217193953302_dbl_kind, 0.892790855282665_dbl_kind, 0.894503769856489_dbl_kind, 0.900773318646522_dbl_kind, 0.936698471093999_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,181) = (/ 0.890223153720052_dbl_kind, 0.892800432121781_dbl_kind, 0.894517169239074_dbl_kind, 0.900806166861925_dbl_kind, 0.936817212394342_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,182) = (/ 0.890229055538101_dbl_kind, 0.892809919836661_dbl_kind, 0.894530478656791_dbl_kind, 0.900838869123377_dbl_kind, 0.936935412607287_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,183) = (/ 0.890234900129204_dbl_kind, 0.892819319833457_dbl_kind, 0.894543699972717_dbl_kind, 0.900871427470311_dbl_kind, 0.937053075842141_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,184) = (/ 0.890240688205337_dbl_kind, 0.892828633499672_dbl_kind, 0.894556835005664_dbl_kind, 0.900903843895372_dbl_kind, 0.937170206152427_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,185) = (/ 0.890246420468931_dbl_kind, 0.892837862204005_dbl_kind, 0.894569885530885_dbl_kind, 0.900936120345312_dbl_kind, 0.937286807537053_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,186) = (/ 0.890252097613118_dbl_kind, 0.892847007296195_dbl_kind, 0.894582853280778_dbl_kind, 0.900968258721879_dbl_kind, 0.937402883941437_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,187) = (/ 0.890257720321949_dbl_kind, 0.892856070106906_dbl_kind, 0.89459573994559_dbl_kind, 0.901000260882711_dbl_kind, 0.937518439258629_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,188) = (/ 0.890263289270606_dbl_kind, 0.89286505194762_dbl_kind, 0.894608547174113_dbl_kind, 0.901032128642219_dbl_kind, 0.93763347733039_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,189) = (/ 0.890268805125602_dbl_kind, 0.892873954110557_dbl_kind, 0.894621276574383_dbl_kind, 0.901063863772464_dbl_kind, 0.937748001948244_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,190) = (/ 0.890274268544973_dbl_kind, 0.892882777868608_dbl_kind, 0.89463392971437_dbl_kind, 0.901095468004041_dbl_kind, 0.937862016854509_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,191) = (/ 0.890279680178459_dbl_kind, 0.892891524475292_dbl_kind, 0.894646508122675_dbl_kind, 0.90112694302694_dbl_kind, 0.937975525743309_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,192) = (/ 0.890285040667673_dbl_kind, 0.892900195164733_dbl_kind, 0.894659013289215_dbl_kind, 0.901158290491414_dbl_kind, 0.938088532261543_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,193) = (/ 0.890290350646263_dbl_kind, 0.892908791151641_dbl_kind, 0.894671446665914_dbl_kind, 0.90118951200884_dbl_kind, 0.938201040009846_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,194) = (/ 0.890295610740071_dbl_kind, 0.892917313631333_dbl_kind, 0.894683809667384_dbl_kind, 0.901220609152562_dbl_kind, 0.938313052543525_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,195) = (/ 0.890300821567272_dbl_kind, 0.892925763779745_dbl_kind, 0.894696103671609_dbl_kind, 0.901251583458742_dbl_kind, 0.938424573373459_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,196) = (/ 0.890305983738519_dbl_kind, 0.892934142753477_dbl_kind, 0.894708330020626_dbl_kind, 0.901282436427189_dbl_kind, 0.938535605966993_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,197) = (/ 0.890311097857072_dbl_kind, 0.892942451689843_dbl_kind, 0.894720490021202_dbl_kind, 0.90131316952219_dbl_kind, 0.938646153748803_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,198) = (/ 0.89031616451892_dbl_kind, 0.892950691706944_dbl_kind, 0.894732584945503_dbl_kind, 0.901343784173329_dbl_kind, 0.938756220101732_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,199) = (/ 0.890321184312904_dbl_kind, 0.892958863903745_dbl_kind, 0.894744616031772_dbl_kind, 0.901374281776295_dbl_kind, 0.938865808367626_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,200) = (/ 0.890326157820826_dbl_kind, 0.892966969360168_dbl_kind, 0.894756584484991_dbl_kind, 0.901404663693682_dbl_kind, 0.938974921848123_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,201) = (/ 0.890331085617559_dbl_kind, 0.892975009137204_dbl_kind, 0.894768491477549_dbl_kind, 0.901434931255784_dbl_kind, 0.939083563805445_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,202) = (/ 0.890335968271143_dbl_kind, 0.892982984277024_dbl_kind, 0.894780338149899_dbl_kind, 0.901465085761369_dbl_kind, 0.939191737463164_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,203) = (/ 0.890340806342889_dbl_kind, 0.892990895803112_dbl_kind, 0.894792125611219_dbl_kind, 0.901495128478456_dbl_kind, 0.93929944600694_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,204) = (/ 0.890345600387466_dbl_kind, 0.892998744720399_dbl_kind, 0.89480385494006_dbl_kind, 0.901525060645072_dbl_kind, 0.939406692585242_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,205) = (/ 0.890350350952986_dbl_kind, 0.893006532015415_dbl_kind, 0.894815527184995_dbl_kind, 0.901554883470003_dbl_kind, 0.93951348031008_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,206) = (/ 0.890355058581094_dbl_kind, 0.893014258656449_dbl_kind, 0.894827143365265_dbl_kind, 0.901584598133529_dbl_kind, 0.939619812257674_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,207) = (/ 0.890359723807043_dbl_kind, 0.893021925593706_dbl_kind, 0.894838704471412_dbl_kind, 0.901614205788157_dbl_kind, 0.939725691469137_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,208) = (/ 0.890364347159771_dbl_kind, 0.893029533759487_dbl_kind, 0.894850211465919_dbl_kind, 0.901643707559329_dbl_kind, 0.939831120951139_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,209) = (/ 0.890368929161974_dbl_kind, 0.893037084068371_dbl_kind, 0.894861665283834_dbl_kind, 0.901673104546136_dbl_kind, 0.939936103676537_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,210) = (/ 0.890373470330174_dbl_kind, 0.893044577417399_dbl_kind, 0.89487306683339_dbl_kind, 0.901702397822_dbl_kind, 0.940040642585012_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,211) = (/ 0.890377971174789_dbl_kind, 0.893052014686269_dbl_kind, 0.894884416996629_dbl_kind, 0.901731588435364_dbl_kind, 0.940144740583677_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,212) = (/ 0.890382432200192_dbl_kind, 0.893059396737539_dbl_kind, 0.894895716630005_dbl_kind, 0.901760677410354_dbl_kind, 0.940248400547673_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,213) = (/ 0.890386853904778_dbl_kind, 0.893066724416829_dbl_kind, 0.894906966564992_dbl_kind, 0.901789665747438_dbl_kind, 0.940351625320754_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,214) = (/ 0.890391236781017_dbl_kind, 0.893073998553031_dbl_kind, 0.894918167608682_dbl_kind, 0.901818554424072_dbl_kind, 0.940454417715846_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,215) = (/ 0.89039558131552_dbl_kind, 0.89308121995853_dbl_kind, 0.894929320544375_dbl_kind, 0.901847344395331_dbl_kind, 0.940556780515612_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,216) = (/ 0.890399887989083_dbl_kind, 0.893088389429413_dbl_kind, 0.894940426132164_dbl_kind, 0.901876036594527_dbl_kind, 0.940658716472989_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,217) = (/ 0.890404157276751_dbl_kind, 0.893095507745699_dbl_kind, 0.894951485109509_dbl_kind, 0.901904631933822_dbl_kind, 0.940760228311716_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,218) = (/ 0.890408389647863_dbl_kind, 0.893102575671562_dbl_kind, 0.894962498191815_dbl_kind, 0.901933131304815_dbl_kind, 0.940861318726845_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,219) = (/ 0.890412585566105_dbl_kind, 0.893109593955558_dbl_kind, 0.894973466072985_dbl_kind, 0.901961535579134_dbl_kind, 0.94096199038525_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,220) = (/ 0.89041674548956_dbl_kind, 0.893116563330856_dbl_kind, 0.894984389425981_dbl_kind, 0.901989845609002_dbl_kind, 0.941062245926115_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,221) = (/ 0.890420869870753_dbl_kind, 0.893123484515476_dbl_kind, 0.894995268903368_dbl_kind, 0.902018062227796_dbl_kind, 0.941162087961412_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,222) = (/ 0.890424959156701_dbl_kind, 0.893130358212517_dbl_kind, 0.895006105137859_dbl_kind, 0.902046186250595_dbl_kind, 0.941261519076372_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,223) = (/ 0.890429013788957_dbl_kind, 0.893137185110393_dbl_kind, 0.895016898742837_dbl_kind, 0.90207421847471_dbl_kind, 0.941360541829935_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,224) = (/ 0.890433034203655_dbl_kind, 0.893143965883078_dbl_kind, 0.895027650312887_dbl_kind, 0.902102159680212_dbl_kind, 0.941459158755206_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,225) = (/ 0.890437020831557_dbl_kind, 0.893150701190335_dbl_kind, 0.895038360424307_dbl_kind, 0.902130010630436_dbl_kind, 0.941557372359877_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,226) = (/ 0.890440974098092_dbl_kind, 0.893157391677959_dbl_kind, 0.895049029635615_dbl_kind, 0.902157772072483_dbl_kind, 0.941655185126665_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,227) = (/ 0.890444894423402_dbl_kind, 0.893164037978018_dbl_kind, 0.895059658488047_dbl_kind, 0.902185444737706_dbl_kind, 0.941752599513719_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,228) = (/ 0.890448782222384_dbl_kind, 0.893170640709085_dbl_kind, 0.895070247506048_dbl_kind, 0.90221302934218_dbl_kind, 0.941849617955025_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,229) = (/ 0.890452637904733_dbl_kind, 0.893177200476486_dbl_kind, 0.895080797197752_dbl_kind, 0.90224052658717_dbl_kind, 0.941946242860804_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,230) = (/ 0.890456461874981_dbl_kind, 0.893183717872529_dbl_kind, 0.895091308055457_dbl_kind, 0.902267937159579_dbl_kind, 0.9420424766179_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,231) = (/ 0.890460254532541_dbl_kind, 0.893190193476748_dbl_kind, 0.895101780556084_dbl_kind, 0.90229526173239_dbl_kind, 0.942138321590155_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,232) = (/ 0.890464016271748_dbl_kind, 0.893196627856137_dbl_kind, 0.895112215161639_dbl_kind, 0.90232250096509_dbl_kind, 0.942233780118777_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,233) = (/ 0.890467747481897_dbl_kind, 0.893203021565388_dbl_kind, 0.895122612319652_dbl_kind, 0.902349655504094_dbl_kind, 0.9423288545227_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,234) = (/ 0.890471448547291_dbl_kind, 0.893209375147124_dbl_kind, 0.895132972463622_dbl_kind, 0.902376725983144_dbl_kind, 0.942423547098941_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,235) = (/ 0.89047511984727_dbl_kind, 0.89321568913213_dbl_kind, 0.895143296013439_dbl_kind, 0.902403713023711_dbl_kind, 0.942517860122935_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,236) = (/ 0.890478761756264_dbl_kind, 0.893221964039592_dbl_kind, 0.895153583375812_dbl_kind, 0.902430617235375_dbl_kind, 0.942611795848882_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,237) = (/ 0.890482374643827_dbl_kind, 0.893228200377318_dbl_kind, 0.895163834944673_dbl_kind, 0.902457439216201_dbl_kind, 0.942705356510065_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,238) = (/ 0.890485958874678_dbl_kind, 0.893234398641973_dbl_kind, 0.895174051101583_dbl_kind, 0.902484179553104_dbl_kind, 0.942798544319174_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,239) = (/ 0.890489514808742_dbl_kind, 0.893240559319301_dbl_kind, 0.895184232216127_dbl_kind, 0.902510838822203_dbl_kind, 0.942891361468627_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,240) = (/ 0.890493042801193_dbl_kind, 0.893246682884354_dbl_kind, 0.895194378646298_dbl_kind, 0.90253741758916_dbl_kind, 0.942983810130863_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,241) = (/ 0.890496543202492_dbl_kind, 0.893252769801706_dbl_kind, 0.895204490738872_dbl_kind, 0.902563916409519_dbl_kind, 0.943075892458654_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,242) = (/ 0.89050001635843_dbl_kind, 0.893258820525683_dbl_kind, 0.89521456882978_dbl_kind, 0.90259033582903_dbl_kind, 0.943167610585391_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,243) = (/ 0.890503462610168_dbl_kind, 0.893264835500571_dbl_kind, 0.895224613244465_dbl_kind, 0.902616676383961_dbl_kind, 0.94325896662537_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,244) = (/ 0.890506882294278_dbl_kind, 0.893270815160839_dbl_kind, 0.895234624298231_dbl_kind, 0.902642938601404_dbl_kind, 0.943349962674082_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,245) = (/ 0.890510275742783_dbl_kind, 0.893276759931343_dbl_kind, 0.895244602296592_dbl_kind, 0.902669122999574_dbl_kind, 0.943440600808471_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,246) = (/ 0.890513643283203_dbl_kind, 0.893282670227544_dbl_kind, 0.895254547535598_dbl_kind, 0.902695230088093_dbl_kind, 0.943530883087214_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,247) = (/ 0.890516985238593_dbl_kind, 0.89328854645571_dbl_kind, 0.895264460302168_dbl_kind, 0.902721260368271_dbl_kind, 0.943620811550982_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,248) = (/ 0.890520301927583_dbl_kind, 0.89329438901312_dbl_kind, 0.895274340874405_dbl_kind, 0.902747214333375_dbl_kind, 0.943710388222692_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,249) = (/ 0.890523593664424_dbl_kind, 0.893300198288269_dbl_kind, 0.895284189521903_dbl_kind, 0.902773092468891_dbl_kind, 0.943799615107758_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,250) = (/ 0.89052686075903_dbl_kind, 0.893305974661065_dbl_kind, 0.895294006506055_dbl_kind, 0.902798895252778_dbl_kind, 0.943888494194338_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,251) = (/ 0.890530103517015_dbl_kind, 0.893311718503024_dbl_kind, 0.89530379208034_dbl_kind, 0.902824623155714_dbl_kind, 0.943977027453582_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,252) = (/ 0.890533322239742_dbl_kind, 0.893317430177464_dbl_kind, 0.895313546490614_dbl_kind, 0.90285027664133_dbl_kind, 0.944065216839851_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,253) = (/ 0.890536517224361_dbl_kind, 0.893323110039694_dbl_kind, 0.895323269975387_dbl_kind, 0.902875856166446_dbl_kind, 0.94415306429096_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,254) = (/ 0.890539688763852_dbl_kind, 0.893328758437203_dbl_kind, 0.895332962766091_dbl_kind, 0.902901362181291_dbl_kind, 0.944240571728397_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,255) = (/ 0.89054283714707_dbl_kind, 0.893334375709842_dbl_kind, 0.895342625087346_dbl_kind, 0.902926795129716_dbl_kind, 0.944327741057547_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,256) = (/ 0.890545962658789_dbl_kind, 0.893339962190006_dbl_kind, 0.895352257157217_dbl_kind, 0.902952155449404_dbl_kind, 0.944414574167906_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,257) = (/ 0.890549065579738_dbl_kind, 0.893345518202811_dbl_kind, 0.895361859187458_dbl_kind, 0.902977443572076_dbl_kind, 0.944501072933293_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,258) = (/ 0.890552146186652_dbl_kind, 0.89335104406627_dbl_kind, 0.895371431383759_dbl_kind, 0.903002659923676_dbl_kind, 0.944587239212056_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,259) = (/ 0.890555204752312_dbl_kind, 0.893356540091464_dbl_kind, 0.895380973945975_dbl_kind, 0.903027804924568_dbl_kind, 0.94467307484728_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,260) = (/ 0.890558241545586_dbl_kind, 0.893362006582714_dbl_kind, 0.895390487068356_dbl_kind, 0.903052878989715_dbl_kind, 0.944758581666974_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,261) = (/ 0.890561256831479_dbl_kind, 0.89336744383774_dbl_kind, 0.895399970939771_dbl_kind, 0.90307788252885_dbl_kind, 0.94484376148428_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,262) = (/ 0.890564250871169_dbl_kind, 0.893372852147832_dbl_kind, 0.895409425743915_dbl_kind, 0.903102815946653_dbl_kind, 0.944928616097656_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,263) = (/ 0.890567223922053_dbl_kind, 0.893378231798002_dbl_kind, 0.895418851659524_dbl_kind, 0.90312767964291_dbl_kind, 0.94501314729106_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,264) = (/ 0.890570176237793_dbl_kind, 0.893383583067148_dbl_kind, 0.895428248860569_dbl_kind, 0.903152474012669_dbl_kind, 0.945097356834142_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,265) = (/ 0.890573108068358_dbl_kind, 0.893388906228202_dbl_kind, 0.895437617516459_dbl_kind, 0.9031771994464_dbl_kind, 0.945181246482415_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,266) = (/ 0.890576019660067_dbl_kind, 0.893394201548282_dbl_kind, 0.895446957792221_dbl_kind, 0.903201856330132_dbl_kind, 0.945264817977436_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,267) = (/ 0.890578911255631_dbl_kind, 0.893399469288844_dbl_kind, 0.89545626984869_dbl_kind, 0.903226445045602_dbl_kind, 0.945348073046979_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,268) = (/ 0.8905817830942_dbl_kind, 0.893404709705821_dbl_kind, 0.895465553842682_dbl_kind, 0.903250965970389_dbl_kind, 0.945431013405204_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,269) = (/ 0.890584635411406_dbl_kind, 0.893409923049766_dbl_kind, 0.895474809927167_dbl_kind, 0.903275419478046_dbl_kind, 0.945513640752813_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,270) = (/ 0.890587468439402_dbl_kind, 0.893415109565995_dbl_kind, 0.895484038251432_dbl_kind, 0.903299805938226_dbl_kind, 0.945595956777235_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,271) = (/ 0.890590282406912_dbl_kind, 0.893420269494718_dbl_kind, 0.895493238961243_dbl_kind, 0.903324125716805_dbl_kind, 0.94567796315276_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,272) = (/ 0.890593077539268_dbl_kind, 0.893425403071177_dbl_kind, 0.895502412199003_dbl_kind, 0.903348379176001_dbl_kind, 0.945759661540713_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,273) = (/ 0.890595854058458_dbl_kind, 0.893430510525769_dbl_kind, 0.895511558103893_dbl_kind, 0.903372566674482_dbl_kind, 0.945841053589605_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,274) = (/ 0.890598612183167_dbl_kind, 0.893435592084184_dbl_kind, 0.895520676812023_dbl_kind, 0.903396688567483_dbl_kind, 0.945922140935279_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,275) = (/ 0.89060135212882_dbl_kind, 0.893440647967518_dbl_kind, 0.895529768456569_dbl_kind, 0.903420745206905_dbl_kind, 0.946002925201057_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,276) = (/ 0.890604074107625_dbl_kind, 0.893445678392407_dbl_kind, 0.895538833167909_dbl_kind, 0.903444736941421_dbl_kind, 0.946083407997899_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,277) = (/ 0.890606778328615_dbl_kind, 0.893450683571135_dbl_kind, 0.895547871073749_dbl_kind, 0.903468664116564_dbl_kind, 0.946163590924526_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,278) = (/ 0.890609464997693_dbl_kind, 0.893455663711758_dbl_kind, 0.895556882299253_dbl_kind, 0.903492527074833_dbl_kind, 0.946243475567573_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,279) = (/ 0.89061213431767_dbl_kind, 0.893460619018216_dbl_kind, 0.895565866967161_dbl_kind, 0.903516326155773_dbl_kind, 0.946323063501727_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,280) = (/ 0.890614786488313_dbl_kind, 0.893465549690444_dbl_kind, 0.895574825197902_dbl_kind, 0.903540061696068_dbl_kind, 0.946402356289853_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,281) = (/ 0.890617421706381_dbl_kind, 0.89347045592448_dbl_kind, 0.895583757109712_dbl_kind, 0.903563734029617_dbl_kind, 0.946481355483134_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,282) = (/ 0.890620040165671_dbl_kind, 0.893475337912574_dbl_kind, 0.895592662818739_dbl_kind, 0.903587343487623_dbl_kind, 0.946560062621202_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,283) = (/ 0.890622642057059_dbl_kind, 0.893480195843288_dbl_kind, 0.895601542439144_dbl_kind, 0.903610890398659_dbl_kind, 0.946638479232261_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,284) = (/ 0.890625227568537_dbl_kind, 0.893485029901599_dbl_kind, 0.895610396083206_dbl_kind, 0.903634375088752_dbl_kind, 0.946716606833219_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,285) = (/ 0.89062779688526_dbl_kind, 0.893489840268999_dbl_kind, 0.895619223861414_dbl_kind, 0.903657797881446_dbl_kind, 0.946794446929803_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,286) = (/ 0.890630350189585_dbl_kind, 0.89349462712359_dbl_kind, 0.895628025882561_dbl_kind, 0.903681159097874_dbl_kind, 0.946872001016691_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,287) = (/ 0.890632887661107_dbl_kind, 0.893499390640179_dbl_kind, 0.89563680225383_dbl_kind, 0.903704459056823_dbl_kind, 0.946949270577626_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,288) = (/ 0.890635409476708_dbl_kind, 0.893504130990368_dbl_kind, 0.895645553080884_dbl_kind, 0.903727698074793_dbl_kind, 0.94702625708553_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,289) = (/ 0.890637915810587_dbl_kind, 0.893508848342646_dbl_kind, 0.895654278467945_dbl_kind, 0.903750876466061_dbl_kind, 0.947102962002626_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,290) = (/ 0.890640406834309_dbl_kind, 0.893513542862474_dbl_kind, 0.895662978517871_dbl_kind, 0.903773994542738_dbl_kind, 0.94717938678055_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,291) = (/ 0.890642882716836_dbl_kind, 0.893518214712372_dbl_kind, 0.895671653332234_dbl_kind, 0.903797052614822_dbl_kind, 0.947255532860463_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,292) = (/ 0.890645343624572_dbl_kind, 0.893522864052_dbl_kind, 0.895680303011391_dbl_kind, 0.903820050990251_dbl_kind, 0.947331401673153_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,293) = (/ 0.890647789721401_dbl_kind, 0.893527491038242_dbl_kind, 0.895688927654552_dbl_kind, 0.903842989974958_dbl_kind, 0.947406994639158_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,294) = (/ 0.890650221168721_dbl_kind, 0.893532095825279_dbl_kind, 0.895697527359848_dbl_kind, 0.903865869872914_dbl_kind, 0.947482313168859_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,295) = (/ 0.890652638125486_dbl_kind, 0.893536678564673_dbl_kind, 0.895706102224396_dbl_kind, 0.903888690986177_dbl_kind, 0.947557358662593_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,296) = (/ 0.890655040748246_dbl_kind, 0.893541239405435_dbl_kind, 0.895714652344355_dbl_kind, 0.903911453614939_dbl_kind, 0.94763213251075_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,297) = (/ 0.890657429191175_dbl_kind, 0.893545778494104_dbl_kind, 0.89572317781499_dbl_kind, 0.903934158057563_dbl_kind, 0.947706636093878_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,298) = (/ 0.89065980360612_dbl_kind, 0.89355029597481_dbl_kind, 0.895731678730721_dbl_kind, 0.90395680461063_dbl_kind, 0.947780870782784_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,299) = (/ 0.890662164142628_dbl_kind, 0.89355479198935_dbl_kind, 0.895740155185182_dbl_kind, 0.903979393568975_dbl_kind, 0.94785483793863_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,300) = (/ 0.890664510947988_dbl_kind, 0.893559266677254_dbl_kind, 0.895748607271269_dbl_kind, 0.904001925225723_dbl_kind, 0.947928538913026_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,301) = (/ 0.890666844167263_dbl_kind, 0.893563720175846_dbl_kind, 0.895757035081189_dbl_kind, 0.904024399872328_dbl_kind, 0.948001975048135_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,302) = (/ 0.890669163943329_dbl_kind, 0.89356815262031_dbl_kind, 0.895765438706507_dbl_kind, 0.904046817798608_dbl_kind, 0.948075147676756_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,303) = (/ 0.890671470416907_dbl_kind, 0.893572564143755_dbl_kind, 0.895773818238184_dbl_kind, 0.904069179292773_dbl_kind, 0.948148058122426_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,304) = (/ 0.890673763726599_dbl_kind, 0.893576954877268_dbl_kind, 0.895782173766632_dbl_kind, 0.904091484641461_dbl_kind, 0.948220707699503_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,305) = (/ 0.890676044008924_dbl_kind, 0.893581324949981_dbl_kind, 0.89579050538174_dbl_kind, 0.904113734129765_dbl_kind, 0.94829309771326_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,306) = (/ 0.890678311398349_dbl_kind, 0.893585674489117_dbl_kind, 0.895798813172922_dbl_kind, 0.904135928041265_dbl_kind, 0.948365229459975_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,307) = (/ 0.890680566027323_dbl_kind, 0.893590003620057_dbl_kind, 0.895807097229146_dbl_kind, 0.904158066658051_dbl_kind, 0.94843710422701_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,308) = (/ 0.890682808026313_dbl_kind, 0.893594312466386_dbl_kind, 0.895815357638973_dbl_kind, 0.904180150260754_dbl_kind, 0.948508723292908_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,309) = (/ 0.890685037523831_dbl_kind, 0.893598601149946_dbl_kind, 0.895823594490591_dbl_kind, 0.904202179128567_dbl_kind, 0.948580087927469_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,310) = (/ 0.890687254646475_dbl_kind, 0.893602869790888_dbl_kind, 0.89583180787184_dbl_kind, 0.904224153539272_dbl_kind, 0.948651199391836_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,311) = (/ 0.89068945951895_dbl_kind, 0.893607118507721_dbl_kind, 0.895839997870247_dbl_kind, 0.904246073769259_dbl_kind, 0.948722058938578_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,312) = (/ 0.89069165226411_dbl_kind, 0.893611347417361_dbl_kind, 0.895848164573048_dbl_kind, 0.904267940093552_dbl_kind, 0.948792667811767_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,313) = (/ 0.890693833002981_dbl_kind, 0.893615556635173_dbl_kind, 0.895856308067224_dbl_kind, 0.904289752785828_dbl_kind, 0.94886302724707_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,314) = (/ 0.890696001854796_dbl_kind, 0.893619746275021_dbl_kind, 0.895864428439515_dbl_kind, 0.904311512118437_dbl_kind, 0.94893313847181_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,315) = (/ 0.890698158937023_dbl_kind, 0.893623916449308_dbl_kind, 0.89587252577645_dbl_kind, 0.904333218362419_dbl_kind, 0.949003002705056_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,316) = (/ 0.890700304365399_dbl_kind, 0.893628067269021_dbl_kind, 0.895880600164368_dbl_kind, 0.904354871787526_dbl_kind, 0.949072621157696_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,317) = (/ 0.890702438253952_dbl_kind, 0.893632198843771_dbl_kind, 0.895888651689437_dbl_kind, 0.904376472662236_dbl_kind, 0.949141995032512_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,318) = (/ 0.890704560715037_dbl_kind, 0.893636311281832_dbl_kind, 0.895896680437677_dbl_kind, 0.904398021253769_dbl_kind, 0.949211125524257_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,319) = (/ 0.89070667185936_dbl_kind, 0.893640404690182_dbl_kind, 0.895904686494977_dbl_kind, 0.904419517828107_dbl_kind, 0.949280013819725_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,320) = (/ 0.890708771796011_dbl_kind, 0.893644479174539_dbl_kind, 0.89591266994711_dbl_kind, 0.904440962650005_dbl_kind, 0.949348661097827_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,321) = (/ 0.890710860632484_dbl_kind, 0.893648534839396_dbl_kind, 0.895920630879752_dbl_kind, 0.904462355983005_dbl_kind, 0.94941706852966_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,322) = (/ 0.890712938474712_dbl_kind, 0.893652571788059_dbl_kind, 0.895928569378498_dbl_kind, 0.904483698089453_dbl_kind, 0.949485237278577_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,323) = (/ 0.890715005427091_dbl_kind, 0.89365659012268_dbl_kind, 0.895936485528873_dbl_kind, 0.904504989230507_dbl_kind, 0.949553168500265_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,324) = (/ 0.890717061592505_dbl_kind, 0.893660589944291_dbl_kind, 0.895944379416349_dbl_kind, 0.904526229666154_dbl_kind, 0.949620863342799_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,325) = (/ 0.890719107072354_dbl_kind, 0.893664571352833_dbl_kind, 0.895952251126352_dbl_kind, 0.904547419655221_dbl_kind, 0.949688322946724_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,326) = (/ 0.890721141966578_dbl_kind, 0.893668534447192_dbl_kind, 0.895960100744283_dbl_kind, 0.904568559455382_dbl_kind, 0.949755548445114_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,327) = (/ 0.890723166373687_dbl_kind, 0.893672479325226_dbl_kind, 0.895967928355515_dbl_kind, 0.904589649323173_dbl_kind, 0.949822540963639_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,328) = (/ 0.890725180390778_dbl_kind, 0.893676406083793_dbl_kind, 0.895975734045416_dbl_kind, 0.904610689514001_dbl_kind, 0.949889301620638_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,329) = (/ 0.890727184113566_dbl_kind, 0.893680314818784_dbl_kind, 0.89598351789935_dbl_kind, 0.904631680282152_dbl_kind, 0.94995583152717_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,330) = (/ 0.890729177636404_dbl_kind, 0.893684205625145_dbl_kind, 0.895991280002688_dbl_kind, 0.904652621880803_dbl_kind, 0.950022131787091_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,331) = (/ 0.890731161052312_dbl_kind, 0.893688078596907_dbl_kind, 0.895999020440814_dbl_kind, 0.904673514562028_dbl_kind, 0.950088203497112_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,332) = (/ 0.890733134452994_dbl_kind, 0.893691933827211_dbl_kind, 0.896006739299135_dbl_kind, 0.904694358576808_dbl_kind, 0.950154047746855_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,333) = (/ 0.890735097928863_dbl_kind, 0.893695771408333_dbl_kind, 0.896014436663085_dbl_kind, 0.904715154175037_dbl_kind, 0.950219665618927_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,334) = (/ 0.890737051569067_dbl_kind, 0.893699591431706_dbl_kind, 0.896022112618128_dbl_kind, 0.904735901605532_dbl_kind, 0.950285058188969_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,335) = (/ 0.890738995461507_dbl_kind, 0.893703393987945_dbl_kind, 0.896029767249769_dbl_kind, 0.904756601116038_dbl_kind, 0.950350226525722_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,336) = (/ 0.89074092969286_dbl_kind, 0.89370717916687_dbl_kind, 0.896037400643554_dbl_kind, 0.904777252953238_dbl_kind, 0.950415171691088_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,337) = (/ 0.890742854348601_dbl_kind, 0.893710947057527_dbl_kind, 0.896045012885075_dbl_kind, 0.904797857362753_dbl_kind, 0.950479894740183_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,338) = (/ 0.890744769513023_dbl_kind, 0.893714697748209_dbl_kind, 0.896052604059973_dbl_kind, 0.904818414589156_dbl_kind, 0.950544396721397_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,339) = (/ 0.890746675269259_dbl_kind, 0.893718431326476_dbl_kind, 0.896060174253943_dbl_kind, 0.904838924875972_dbl_kind, 0.950608678676456_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,340) = (/ 0.890748571699301_dbl_kind, 0.893722147879176_dbl_kind, 0.896067723552733_dbl_kind, 0.904859388465686_dbl_kind, 0.950672741640472_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,341) = (/ 0.890750458884021_dbl_kind, 0.893725847492461_dbl_kind, 0.896075252042149_dbl_kind, 0.904879805599747_dbl_kind, 0.950736586642002_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,342) = (/ 0.89075233690319_dbl_kind, 0.893729530251809_dbl_kind, 0.896082759808054_dbl_kind, 0.904900176518576_dbl_kind, 0.950800214703099_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,343) = (/ 0.890754205835497_dbl_kind, 0.893733196242042_dbl_kind, 0.896090246936371_dbl_kind, 0.904920501461565_dbl_kind, 0.950863626839376_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,344) = (/ 0.890756065758568_dbl_kind, 0.893736845547337_dbl_kind, 0.896097713513084_dbl_kind, 0.904940780667089_dbl_kind, 0.950926824060051_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,345) = (/ 0.890757916748985_dbl_kind, 0.89374047825125_dbl_kind, 0.896105159624234_dbl_kind, 0.904961014372503_dbl_kind, 0.950989807368005_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,346) = (/ 0.890759758882305_dbl_kind, 0.893744094436729_dbl_kind, 0.896112585355927_dbl_kind, 0.904981202814152_dbl_kind, 0.951052577759832_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,347) = (/ 0.890761592233074_dbl_kind, 0.893747694186127_dbl_kind, 0.896119990794325_dbl_kind, 0.905001346227371_dbl_kind, 0.951115136225895_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,348) = (/ 0.890763416874849_dbl_kind, 0.893751277581222_dbl_kind, 0.896127376025653_dbl_kind, 0.90502144484649_dbl_kind, 0.951177483750372_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,349) = (/ 0.890765232880216_dbl_kind, 0.893754844703226_dbl_kind, 0.89613474113619_dbl_kind, 0.905041498904837_dbl_kind, 0.951239621311313_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,350) = (/ 0.890767040320799_dbl_kind, 0.893758395632805_dbl_kind, 0.896142086212277_dbl_kind, 0.905061508634744_dbl_kind, 0.951301549880687_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,351) = (/ 0.890768839267288_dbl_kind, 0.893761930450085_dbl_kind, 0.896149411340308_dbl_kind, 0.905081474267545_dbl_kind, 0.951363270424429_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,352) = (/ 0.890770629789444_dbl_kind, 0.893765449234672_dbl_kind, 0.896156716606732_dbl_kind, 0.905101396033585_dbl_kind, 0.951424783902502_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,353) = (/ 0.890772411956123_dbl_kind, 0.893768952065659_dbl_kind, 0.896164002098047_dbl_kind, 0.905121274162218_dbl_kind, 0.951486091268927_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,354) = (/ 0.89077418583529_dbl_kind, 0.893772439021644_dbl_kind, 0.896171267900807_dbl_kind, 0.905141108881813_dbl_kind, 0.951547193471846_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,355) = (/ 0.890775951494029_dbl_kind, 0.893775910180735_dbl_kind, 0.896178514101606_dbl_kind, 0.905160900419754_dbl_kind, 0.951608091453564_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,356) = (/ 0.890777708998566_dbl_kind, 0.893779365620565_dbl_kind, 0.896185740787088_dbl_kind, 0.905180649002446_dbl_kind, 0.951668786150597_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,357) = (/ 0.89077945841428_dbl_kind, 0.893782805418303_dbl_kind, 0.896192948043937_dbl_kind, 0.905200354855312_dbl_kind, 0.951729278493722_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,358) = (/ 0.890781199805715_dbl_kind, 0.893786229650663_dbl_kind, 0.896200135958875_dbl_kind, 0.905220018202802_dbl_kind, 0.951789569408015_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,359) = (/ 0.890782933236598_dbl_kind, 0.893789638393914_dbl_kind, 0.896207304618661_dbl_kind, 0.905239639268389_dbl_kind, 0.951849659812906_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,360) = (/ 0.890784658769853_dbl_kind, 0.893793031723891_dbl_kind, 0.896214454110085_dbl_kind, 0.905259218274577_dbl_kind, 0.951909550622219_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,361) = (/ 0.890786376467611_dbl_kind, 0.893796409716005_dbl_kind, 0.896221584519967_dbl_kind, 0.905278755442895_dbl_kind, 0.951969242744217_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,362) = (/ 0.890788086391227_dbl_kind, 0.893799772445248_dbl_kind, 0.896228695935151_dbl_kind, 0.905298250993909_dbl_kind, 0.952028737081647_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,363) = (/ 0.890789788601292_dbl_kind, 0.893803119986207_dbl_kind, 0.896235788442503_dbl_kind, 0.905317705147216_dbl_kind, 0.952088034531788_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,364) = (/ 0.890791483157644_dbl_kind, 0.893806452413067_dbl_kind, 0.896242862128907_dbl_kind, 0.905337118121449_dbl_kind, 0.952147135986491_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,365) = (/ 0.890793170119385_dbl_kind, 0.893809769799623_dbl_kind, 0.896249917081262_dbl_kind, 0.905356490134278_dbl_kind, 0.952206042332215_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,366) = (/ 0.890794849544888_dbl_kind, 0.893813072219288_dbl_kind, 0.896256953386471_dbl_kind, 0.905375821402412_dbl_kind, 0.952264754450083_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,367) = (/ 0.890796521491812_dbl_kind, 0.893816359745097_dbl_kind, 0.896263971131448_dbl_kind, 0.905395112141599_dbl_kind, 0.952323273215913_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,368) = (/ 0.890798186017116_dbl_kind, 0.893819632449717_dbl_kind, 0.896270970403106_dbl_kind, 0.905414362566632_dbl_kind, 0.95238159950027_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,369) = (/ 0.890799843177065_dbl_kind, 0.893822890405452_dbl_kind, 0.896277951288353_dbl_kind, 0.905433572891346_dbl_kind, 0.952439734168496_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,370) = (/ 0.890801493027247_dbl_kind, 0.893826133684253_dbl_kind, 0.896284913874091_dbl_kind, 0.905452743328619_dbl_kind, 0.952497678080756_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,371) = (/ 0.890803135622581_dbl_kind, 0.89382936235772_dbl_kind, 0.89629185824721_dbl_kind, 0.905471874090379_dbl_kind, 0.952555432092086_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,372) = (/ 0.890804771017329_dbl_kind, 0.893832576497111_dbl_kind, 0.896298784494582_dbl_kind, 0.905490965387599_dbl_kind, 0.952612997052416_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,373) = (/ 0.890806399265105_dbl_kind, 0.893835776173348_dbl_kind, 0.896305692703057_dbl_kind, 0.905510017430303_dbl_kind, 0.952670373806625_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,374) = (/ 0.890808020418889_dbl_kind, 0.893838961457022_dbl_kind, 0.896312582959462_dbl_kind, 0.905529030427564_dbl_kind, 0.952727563194574_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,375) = (/ 0.890809634531035_dbl_kind, 0.893842132418397_dbl_kind, 0.896319455350588_dbl_kind, 0.905548004587507_dbl_kind, 0.952784566051144_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,376) = (/ 0.890811241653279_dbl_kind, 0.893845289127419_dbl_kind, 0.896326309963195_dbl_kind, 0.905566940117311_dbl_kind, 0.952841383206277_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,377) = (/ 0.890812841836755_dbl_kind, 0.893848431653718_dbl_kind, 0.896333146883999_dbl_kind, 0.905585837223208_dbl_kind, 0.952898015485015_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,378) = (/ 0.890814435131998_dbl_kind, 0.893851560066613_dbl_kind, 0.896339966199675_dbl_kind, 0.905604696110486_dbl_kind, 0.952954463707528_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,379) = (/ 0.890816021588957_dbl_kind, 0.89385467443512_dbl_kind, 0.896346767996843_dbl_kind, 0.905623516983492_dbl_kind, 0.95301072868917_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,380) = (/ 0.890817601257006_dbl_kind, 0.893857774827951_dbl_kind, 0.89635355236207_dbl_kind, 0.905642300045627_dbl_kind, 0.953066811240496_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,381) = (/ 0.890819174184947_dbl_kind, 0.893860861313524_dbl_kind, 0.896360319381864_dbl_kind, 0.905661045499353_dbl_kind, 0.953122712167312_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,382) = (/ 0.890820740421026_dbl_kind, 0.893863933959963_dbl_kind, 0.896367069142668_dbl_kind, 0.905679753546193_dbl_kind, 0.953178432270706_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,383) = (/ 0.890822300012937_dbl_kind, 0.893866992835106_dbl_kind, 0.896373801730854_dbl_kind, 0.905698424386732_dbl_kind, 0.953233972347082_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,384) = (/ 0.890823853007833_dbl_kind, 0.893870038006504_dbl_kind, 0.896380517232721_dbl_kind, 0.905717058220615_dbl_kind, 0.953289333188205_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,385) = (/ 0.890825399452333_dbl_kind, 0.89387306954143_dbl_kind, 0.896387215734487_dbl_kind, 0.905735655246554_dbl_kind, 0.953344515581222_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,386) = (/ 0.89082693939253_dbl_kind, 0.893876087506877_dbl_kind, 0.896393897322285_dbl_kind, 0.905754215662325_dbl_kind, 0.953399520308711_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,387) = (/ 0.890828472874001_dbl_kind, 0.893879091969567_dbl_kind, 0.896400562082161_dbl_kind, 0.905772739664768_dbl_kind, 0.953454348148701_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,388) = (/ 0.890829999941814_dbl_kind, 0.893882082995952_dbl_kind, 0.896407210100066_dbl_kind, 0.905791227449795_dbl_kind, 0.953508999874722_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,389) = (/ 0.890831520640535_dbl_kind, 0.893885060652214_dbl_kind, 0.89641384146185_dbl_kind, 0.905809679212383_dbl_kind, 0.953563476255827_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,390) = (/ 0.890833035014234_dbl_kind, 0.893888025004274_dbl_kind, 0.89642045625326_dbl_kind, 0.90582809514658_dbl_kind, 0.953617778056632_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,391) = (/ 0.890834543106498_dbl_kind, 0.893890976117792_dbl_kind, 0.896427054559935_dbl_kind, 0.905846475445506_dbl_kind, 0.953671906037343_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,392) = (/ 0.890836044960433_dbl_kind, 0.893893914058167_dbl_kind, 0.896433636467399_dbl_kind, 0.905864820301353_dbl_kind, 0.953725860953796_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,393) = (/ 0.890837540618672_dbl_kind, 0.893896838890546_dbl_kind, 0.896440202061059_dbl_kind, 0.905883129905385_dbl_kind, 0.953779643557485_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,394) = (/ 0.890839030123385_dbl_kind, 0.893899750679822_dbl_kind, 0.896446751426195_dbl_kind, 0.905901404447942_dbl_kind, 0.953833254595596_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,395) = (/ 0.890840513516282_dbl_kind, 0.893902649490636_dbl_kind, 0.896453284647963_dbl_kind, 0.90591964411844_dbl_kind, 0.953886694811042_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,396) = (/ 0.890841990838623_dbl_kind, 0.893905535387385_dbl_kind, 0.896459801811383_dbl_kind, 0.905937849105374_dbl_kind, 0.953939964942486_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,397) = (/ 0.890843462131222_dbl_kind, 0.893908408434217_dbl_kind, 0.89646630300134_dbl_kind, 0.905956019596314_dbl_kind, 0.953993065724381_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,398) = (/ 0.890844927434455_dbl_kind, 0.893911268695039_dbl_kind, 0.896472788302574_dbl_kind, 0.905974155777912_dbl_kind, 0.954045997886996_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,399) = (/ 0.890846386788265_dbl_kind, 0.893914116233516_dbl_kind, 0.896479257799679_dbl_kind, 0.905992257835902_dbl_kind, 0.954098762156453_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,400) = (/ 0.890847840232171_dbl_kind, 0.893916951113075_dbl_kind, 0.896485711577098_dbl_kind, 0.9060103259551_dbl_kind, 0.954151359254748_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,401) = (/ 0.89084928780527_dbl_kind, 0.893919773396905_dbl_kind, 0.896492149719116_dbl_kind, 0.906028360319405_dbl_kind, 0.954203789899791_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,402) = (/ 0.890850729546248_dbl_kind, 0.89392258314796_dbl_kind, 0.89649857230986_dbl_kind, 0.906046361111802_dbl_kind, 0.95425605480543_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,403) = (/ 0.89085216549338_dbl_kind, 0.893925380428964_dbl_kind, 0.896504979433289_dbl_kind, 0.906064328514364_dbl_kind, 0.954308154681482_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,404) = (/ 0.890853595684541_dbl_kind, 0.893928165302404_dbl_kind, 0.896511371173193_dbl_kind, 0.906082262708249_dbl_kind, 0.954360090233764_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,405) = (/ 0.890855020157207_dbl_kind, 0.893930937830543_dbl_kind, 0.896517747613189_dbl_kind, 0.906100163873708_dbl_kind, 0.954411862164119_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,406) = (/ 0.890856438948465_dbl_kind, 0.893933698075412_dbl_kind, 0.896524108836714_dbl_kind, 0.906118032190082_dbl_kind, 0.954463471170449_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,407) = (/ 0.890857852095016_dbl_kind, 0.893936446098819_dbl_kind, 0.896530454927021_dbl_kind, 0.906135867835804_dbl_kind, 0.954514917946743_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,408) = (/ 0.890859259633181_dbl_kind, 0.893939181962346_dbl_kind, 0.896536785967179_dbl_kind, 0.906153670988401_dbl_kind, 0.954566203183099_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,409) = (/ 0.890860661598905_dbl_kind, 0.89394190572735_dbl_kind, 0.896543102040063_dbl_kind, 0.906171441824496_dbl_kind, 0.954617327565762_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,410) = (/ 0.890862058027762_dbl_kind, 0.893944617454968_dbl_kind, 0.896549403228353_dbl_kind, 0.90618918051981_dbl_kind, 0.95466829177714_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,411) = (/ 0.890863448954963_dbl_kind, 0.893947317206117_dbl_kind, 0.896555689614529_dbl_kind, 0.906206887249162_dbl_kind, 0.954719096495851_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,412) = (/ 0.890864834415359_dbl_kind, 0.893950005041494_dbl_kind, 0.896561961280867_dbl_kind, 0.906224562186471_dbl_kind, 0.954769742396724_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,413) = (/ 0.890866214443444_dbl_kind, 0.893952681021577_dbl_kind, 0.896568218309434_dbl_kind, 0.906242205504759_dbl_kind, 0.95482023015085_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,414) = (/ 0.890867589073362_dbl_kind, 0.89395534520663_dbl_kind, 0.896574460782089_dbl_kind, 0.906259817376152_dbl_kind, 0.954870560425593_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,415) = (/ 0.890868958338913_dbl_kind, 0.8939579976567_dbl_kind, 0.896580688780469_dbl_kind, 0.90627739797188_dbl_kind, 0.954920733884629_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,416) = (/ 0.890870322273553_dbl_kind, 0.89396063843162_dbl_kind, 0.896586902385996_dbl_kind, 0.906294947462282_dbl_kind, 0.954970751187955_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,417) = (/ 0.890871680910404_dbl_kind, 0.893963267591009_dbl_kind, 0.896593101679866_dbl_kind, 0.906312466016805_dbl_kind, 0.95502061299194_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,418) = (/ 0.890873034282253_dbl_kind, 0.893965885194276_dbl_kind, 0.896599286743048_dbl_kind, 0.906329953804006_dbl_kind, 0.955070319949327_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,419) = (/ 0.890874382421561_dbl_kind, 0.893968491300618_dbl_kind, 0.896605457656279_dbl_kind, 0.906347410991556_dbl_kind, 0.955119872709271_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,420) = (/ 0.890875725360464_dbl_kind, 0.89397108596902_dbl_kind, 0.896611614500063_dbl_kind, 0.90636483774624_dbl_kind, 0.955169271917366_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,421) = (/ 0.890877063130779_dbl_kind, 0.893973669258263_dbl_kind, 0.896617757354664_dbl_kind, 0.906382234233957_dbl_kind, 0.955218518215662_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,422) = (/ 0.890878395764007_dbl_kind, 0.893976241226914_dbl_kind, 0.896623886300103_dbl_kind, 0.906399600619728_dbl_kind, 0.955267612242694_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,423) = (/ 0.890879723291338_dbl_kind, 0.893978801933337_dbl_kind, 0.896630001416157_dbl_kind, 0.906416937067692_dbl_kind, 0.955316554633513_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,424) = (/ 0.890881045743655_dbl_kind, 0.893981351435687_dbl_kind, 0.896636102782354_dbl_kind, 0.906434243741109_dbl_kind, 0.9553653460197_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,425) = (/ 0.890882363151536_dbl_kind, 0.893983889791916_dbl_kind, 0.896642190477968_dbl_kind, 0.906451520802366_dbl_kind, 0.955413987029395_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,426) = (/ 0.890883675545261_dbl_kind, 0.89398641705977_dbl_kind, 0.896648264582019_dbl_kind, 0.906468768412973_dbl_kind, 0.955462478287324_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,427) = (/ 0.890884982954811_dbl_kind, 0.893988933296792_dbl_kind, 0.896654325173265_dbl_kind, 0.906485986733568_dbl_kind, 0.955510820414819_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,428) = (/ 0.890886285409879_dbl_kind, 0.893991438560319_dbl_kind, 0.896660372330204_dbl_kind, 0.906503175923923_dbl_kind, 0.955559014029845_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,429) = (/ 0.890887582939866_dbl_kind, 0.893993932907492_dbl_kind, 0.89666640613107_dbl_kind, 0.906520336142936_dbl_kind, 0.955607059747016_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,430) = (/ 0.890888875573888_dbl_kind, 0.893996416395243_dbl_kind, 0.896672426653824_dbl_kind, 0.906537467548646_dbl_kind, 0.955654958177632_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,431) = (/ 0.890890163340783_dbl_kind, 0.893998889080308_dbl_kind, 0.896678433976159_dbl_kind, 0.906554570298225_dbl_kind, 0.955702709929685_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,432) = (/ 0.890891446269105_dbl_kind, 0.894001351019222_dbl_kind, 0.896684428175491_dbl_kind, 0.906571644547981_dbl_kind, 0.955750315607899_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,433) = (/ 0.890892724387139_dbl_kind, 0.89400380226832_dbl_kind, 0.89669040932896_dbl_kind, 0.906588690453368_dbl_kind, 0.95579777581374_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,434) = (/ 0.890893997722894_dbl_kind, 0.894006242883737_dbl_kind, 0.896696377513425_dbl_kind, 0.906605708168981_dbl_kind, 0.955845091145443_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,435) = (/ 0.890895266304116_dbl_kind, 0.894008672921413_dbl_kind, 0.89670233280546_dbl_kind, 0.906622697848559_dbl_kind, 0.955892262198036_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,436) = (/ 0.89089653015828_dbl_kind, 0.894011092437086_dbl_kind, 0.896708275281356_dbl_kind, 0.906639659644991_dbl_kind, 0.955939289563361_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,437) = (/ 0.890897789312605_dbl_kind, 0.894013501486301_dbl_kind, 0.896714205017113_dbl_kind, 0.906656593710313_dbl_kind, 0.955986173830094_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,438) = (/ 0.890899043794048_dbl_kind, 0.894015900124405_dbl_kind, 0.89672012208844_dbl_kind, 0.906673500195717_dbl_kind, 0.95603291558377_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,439) = (/ 0.890900293629313_dbl_kind, 0.894018288406549_dbl_kind, 0.896726026570754_dbl_kind, 0.906690379251546_dbl_kind, 0.956079515406797_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,440) = (/ 0.890901538844849_dbl_kind, 0.894020666387689_dbl_kind, 0.896731918539172_dbl_kind, 0.906707231027303_dbl_kind, 0.956125973878493_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,441) = (/ 0.890902779466858_dbl_kind, 0.894023034122585_dbl_kind, 0.896737798068515_dbl_kind, 0.906724055671648_dbl_kind, 0.956172291575088_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,442) = (/ 0.890904015521294_dbl_kind, 0.894025391665806_dbl_kind, 0.8967436652333_dbl_kind, 0.906740853332405_dbl_kind, 0.95621846906976_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,443) = (/ 0.890905247033869_dbl_kind, 0.894027739071723_dbl_kind, 0.896749520107744_dbl_kind, 0.906757624156561_dbl_kind, 0.956264506932649_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,444) = (/ 0.890906474030054_dbl_kind, 0.894030076394517_dbl_kind, 0.896755362765754_dbl_kind, 0.906774368290271_dbl_kind, 0.956310405730875_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,445) = (/ 0.890907696535082_dbl_kind, 0.894032403688176_dbl_kind, 0.896761193280931_dbl_kind, 0.906791085878858_dbl_kind, 0.956356166028567_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,446) = (/ 0.890908914573948_dbl_kind, 0.894034721006493_dbl_kind, 0.896767011726566_dbl_kind, 0.906807777066819_dbl_kind, 0.956401788386877_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,447) = (/ 0.890910128171422_dbl_kind, 0.894037028403073_dbl_kind, 0.896772818175637_dbl_kind, 0.906824441997823_dbl_kind, 0.956447273363999_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,448) = (/ 0.890911337352038_dbl_kind, 0.894039325931327_dbl_kind, 0.896778612700806_dbl_kind, 0.906841080814719_dbl_kind, 0.956492621515199_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,449) = (/ 0.890912542140106_dbl_kind, 0.894041613644477_dbl_kind, 0.89678439537442_dbl_kind, 0.906857693659533_dbl_kind, 0.956537833392817_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,450) = (/ 0.89091374255971_dbl_kind, 0.894043891595553_dbl_kind, 0.896790166268508_dbl_kind, 0.906874280673477_dbl_kind, 0.956582909546304_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,451) = (/ 0.890914938634714_dbl_kind, 0.894046159837395_dbl_kind, 0.896795925454777_dbl_kind, 0.906890841996943_dbl_kind, 0.956627850522235_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,452) = (/ 0.890916130388763_dbl_kind, 0.894048418422655_dbl_kind, 0.896801673004614_dbl_kind, 0.906907377769517_dbl_kind, 0.956672656864322_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,453) = (/ 0.890917317845284_dbl_kind, 0.894050667403795_dbl_kind, 0.896807408989081_dbl_kind, 0.906923888129969_dbl_kind, 0.956717329113443_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,454) = (/ 0.890918501027492_dbl_kind, 0.894052906833087_dbl_kind, 0.896813133478912_dbl_kind, 0.906940373216269_dbl_kind, 0.956761867807656_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,455) = (/ 0.890919679958389_dbl_kind, 0.894055136762617_dbl_kind, 0.896818846544519_dbl_kind, 0.906956833165578_dbl_kind, 0.95680627348222_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,456) = (/ 0.890920854660768_dbl_kind, 0.894057357244281_dbl_kind, 0.89682454825598_dbl_kind, 0.906973268114257_dbl_kind, 0.95685054666961_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,457) = (/ 0.890922025157215_dbl_kind, 0.894059568329788_dbl_kind, 0.896830238683046_dbl_kind, 0.90698967819787_dbl_kind, 0.956894687899537_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,458) = (/ 0.890923191470111_dbl_kind, 0.89406177007066_dbl_kind, 0.896835917895135_dbl_kind, 0.907006063551185_dbl_kind, 0.956938697698968_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,459) = (/ 0.890924353621638_dbl_kind, 0.894063962518232_dbl_kind, 0.896841585961331_dbl_kind, 0.907022424308177_dbl_kind, 0.956982576592148_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,460) = (/ 0.890925511633775_dbl_kind, 0.894066145723653_dbl_kind, 0.896847242950385_dbl_kind, 0.90703876060203_dbl_kind, 0.957026325100604_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,461) = (/ 0.890926665528304_dbl_kind, 0.894068319737884_dbl_kind, 0.89685288893071_dbl_kind, 0.907055072565145_dbl_kind, 0.95706994374318_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,462) = (/ 0.890927815326813_dbl_kind, 0.894070484611704_dbl_kind, 0.896858523970384_dbl_kind, 0.907071360329134_dbl_kind, 0.957113433036041_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,463) = (/ 0.890928961050696_dbl_kind, 0.894072640395702_dbl_kind, 0.896864148137145_dbl_kind, 0.907087624024832_dbl_kind, 0.957156793492699_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,464) = (/ 0.890930102721157_dbl_kind, 0.894074787140285_dbl_kind, 0.896869761498391_dbl_kind, 0.907103863782294_dbl_kind, 0.957200025624032_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,465) = (/ 0.890931240359211_dbl_kind, 0.894076924895674_dbl_kind, 0.896875364121182_dbl_kind, 0.9071200797308_dbl_kind, 0.957243129938289_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,466) = (/ 0.890932373985684_dbl_kind, 0.894079053711906_dbl_kind, 0.896880956072232_dbl_kind, 0.907136271998859_dbl_kind, 0.957286106941121_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,467) = (/ 0.890933503621222_dbl_kind, 0.894081173638833_dbl_kind, 0.896886537417918_dbl_kind, 0.907152440714209_dbl_kind, 0.957328957135593_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,468) = (/ 0.890934629286286_dbl_kind, 0.894083284726125_dbl_kind, 0.896892108224267_dbl_kind, 0.907168586003824_dbl_kind, 0.957371681022191_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,469) = (/ 0.890935751001157_dbl_kind, 0.894085387023265_dbl_kind, 0.896897668556968_dbl_kind, 0.907184707993914_dbl_kind, 0.95741427909886_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,470) = (/ 0.890936868785937_dbl_kind, 0.894087480579557_dbl_kind, 0.896903218481358_dbl_kind, 0.907200806809929_dbl_kind, 0.957456751861001_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,471) = (/ 0.890937982660553_dbl_kind, 0.89408956544412_dbl_kind, 0.896908758062432_dbl_kind, 0.907216882576563_dbl_kind, 0.957499099801499_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,472) = (/ 0.890939092644758_dbl_kind, 0.894091641665891_dbl_kind, 0.896914287364839_dbl_kind, 0.907232935417753_dbl_kind, 0.957541323410728_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,473) = (/ 0.89094019875813_dbl_kind, 0.894093709293622_dbl_kind, 0.896919806452876_dbl_kind, 0.90724896545669_dbl_kind, 0.957583423176586_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,474) = (/ 0.890941301020081_dbl_kind, 0.894095768375887_dbl_kind, 0.896925315390496_dbl_kind, 0.907264972815816_dbl_kind, 0.957625399584487_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,475) = (/ 0.890942399449852_dbl_kind, 0.894097818961077_dbl_kind, 0.896930814241301_dbl_kind, 0.907280957616825_dbl_kind, 0.957667253117397_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,476) = (/ 0.890943494066516_dbl_kind, 0.8940998610974_dbl_kind, 0.896936303068544_dbl_kind, 0.907296919980676_dbl_kind, 0.957708984255844_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,477) = (/ 0.890944584888984_dbl_kind, 0.894101894832884_dbl_kind, 0.896941781935128_dbl_kind, 0.907312860027583_dbl_kind, 0.957750593477922_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,478) = (/ 0.890945671936003_dbl_kind, 0.894103920215375_dbl_kind, 0.896947250903607_dbl_kind, 0.907328777877031_dbl_kind, 0.957792081259326_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,479) = (/ 0.890946755226159_dbl_kind, 0.894105937292541_dbl_kind, 0.896952710036183_dbl_kind, 0.907344673647771_dbl_kind, 0.957833448073355_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,480) = (/ 0.890947834777879_dbl_kind, 0.894107946111867_dbl_kind, 0.896958159394708_dbl_kind, 0.907360547457824_dbl_kind, 0.957874694390925_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,481) = (/ 0.890948910609433_dbl_kind, 0.894109946720659_dbl_kind, 0.89696359904068_dbl_kind, 0.907376399424488_dbl_kind, 0.957915820680597_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,482) = (/ 0.890949982738935_dbl_kind, 0.894111939166043_dbl_kind, 0.896969029035249_dbl_kind, 0.907392229664338_dbl_kind, 0.957956827408581_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,483) = (/ 0.890951051184345_dbl_kind, 0.894113923494966_dbl_kind, 0.896974449439211_dbl_kind, 0.90740803829323_dbl_kind, 0.957997715038749_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,484) = (/ 0.890952115963472_dbl_kind, 0.894115899754194_dbl_kind, 0.896979860313011_dbl_kind, 0.907423825426305_dbl_kind, 0.958038484032665_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,485) = (/ 0.890953177093972_dbl_kind, 0.894117867990314_dbl_kind, 0.896985261716741_dbl_kind, 0.907439591177993_dbl_kind, 0.958079134849583_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,486) = (/ 0.890954234593356_dbl_kind, 0.894119828249738_dbl_kind, 0.89699065371014_dbl_kind, 0.90745533566201_dbl_kind, 0.958119667946467_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,487) = (/ 0.890955288478985_dbl_kind, 0.894121780578694_dbl_kind, 0.896996036352597_dbl_kind, 0.907471058991372_dbl_kind, 0.95816008377801_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,488) = (/ 0.890956338768075_dbl_kind, 0.894123725023236_dbl_kind, 0.897001409703149_dbl_kind, 0.907486761278389_dbl_kind, 0.958200382796645_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,489) = (/ 0.890957385477701_dbl_kind, 0.894125661629236_dbl_kind, 0.897006773820477_dbl_kind, 0.907502442634674_dbl_kind, 0.958240565452556_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,490) = (/ 0.890958428624792_dbl_kind, 0.894127590442392_dbl_kind, 0.897012128762914_dbl_kind, 0.907518103171144_dbl_kind, 0.958280632193702_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,491) = (/ 0.89095946822614_dbl_kind, 0.894129511508222_dbl_kind, 0.897017474588439_dbl_kind, 0.907533742998021_dbl_kind, 0.958320583465815_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,492) = (/ 0.890960504298396_dbl_kind, 0.894131424872068_dbl_kind, 0.897022811354678_dbl_kind, 0.90754936222484_dbl_kind, 0.958360419712428_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,493) = (/ 0.890961536858074_dbl_kind, 0.894133330579092_dbl_kind, 0.897028139118909_dbl_kind, 0.907564960960451_dbl_kind, 0.958400141374887_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,494) = (/ 0.890962565921554_dbl_kind, 0.894135228674281_dbl_kind, 0.897033457938055_dbl_kind, 0.907580539313019_dbl_kind, 0.958439748892355_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,495) = (/ 0.890963591505078_dbl_kind, 0.894137119202448_dbl_kind, 0.89703876786869_dbl_kind, 0.907596097390031_dbl_kind, 0.958479242701837_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,496) = (/ 0.89096461362476_dbl_kind, 0.894139002208224_dbl_kind, 0.897044068967035_dbl_kind, 0.907611635298298_dbl_kind, 0.958518623238186_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,497) = (/ 0.890965632296581_dbl_kind, 0.894140877736067_dbl_kind, 0.897049361288964_dbl_kind, 0.907627153143958_dbl_kind, 0.958557890934119_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,498) = (/ 0.89096664753639_dbl_kind, 0.89414274583026_dbl_kind, 0.897054644889997_dbl_kind, 0.907642651032483_dbl_kind, 0.958597046220233_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,499) = (/ 0.890967659359911_dbl_kind, 0.894144606534907_dbl_kind, 0.897059919825308_dbl_kind, 0.907658129068676_dbl_kind, 0.958636089525012_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,500) = (/ 0.89096866778274_dbl_kind, 0.894146459893938_dbl_kind, 0.89706518614972_dbl_kind, 0.907673587356676_dbl_kind, 0.958675021274843_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,501) = (/ 0.890969672820348_dbl_kind, 0.894148305951107_dbl_kind, 0.897070443917707_dbl_kind, 0.907689025999969_dbl_kind, 0.958713841894034_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,502) = (/ 0.890970674488083_dbl_kind, 0.894150144749995_dbl_kind, 0.897075693183395_dbl_kind, 0.907704445101379_dbl_kind, 0.958752551804815_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,503) = (/ 0.890971672801168_dbl_kind, 0.894151976334005_dbl_kind, 0.897080934000563_dbl_kind, 0.907719844763082_dbl_kind, 0.958791151427364_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,504) = (/ 0.890972667774709_dbl_kind, 0.894153800746367_dbl_kind, 0.897086166422642_dbl_kind, 0.907735225086603_dbl_kind, 0.958829641179811_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,505) = (/ 0.890973659423687_dbl_kind, 0.894155618030135_dbl_kind, 0.897091390502719_dbl_kind, 0.907750586172823_dbl_kind, 0.958868021478251_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,506) = (/ 0.890974647762971_dbl_kind, 0.89415742822819_dbl_kind, 0.897096606293533_dbl_kind, 0.907765928121981_dbl_kind, 0.95890629273676_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,507) = (/ 0.890975632807309_dbl_kind, 0.894159231383238_dbl_kind, 0.897101813847479_dbl_kind, 0.907781251033674_dbl_kind, 0.958944455367407_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,508) = (/ 0.890976614571335_dbl_kind, 0.894161027537811_dbl_kind, 0.897107013216606_dbl_kind, 0.907796555006867_dbl_kind, 0.958982509780264_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,509) = (/ 0.890977593069567_dbl_kind, 0.894162816734268_dbl_kind, 0.897112204452623_dbl_kind, 0.907811840139894_dbl_kind, 0.959020456383418_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,510) = (/ 0.890978568316414_dbl_kind, 0.894164599014794_dbl_kind, 0.897117387606893_dbl_kind, 0.907827106530456_dbl_kind, 0.959058295582985_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,511) = (/ 0.890979540326169_dbl_kind, 0.8941663744214_dbl_kind, 0.897122562730439_dbl_kind, 0.907842354275634_dbl_kind, 0.959096027783121_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,512) = (/ 0.890980509113019_dbl_kind, 0.894168142995924_dbl_kind, 0.897127729873941_dbl_kind, 0.907857583471882_dbl_kind, 0.959133653386036_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,513) = (/ 0.890981474691037_dbl_kind, 0.894169904780032_dbl_kind, 0.897132889087742_dbl_kind, 0.907872794215041_dbl_kind, 0.959171172791996_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,514) = (/ 0.890982437074194_dbl_kind, 0.894171659815215_dbl_kind, 0.897138040421843_dbl_kind, 0.907887986600334_dbl_kind, 0.959208586399355_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,515) = (/ 0.89098339627635_dbl_kind, 0.894173408142794_dbl_kind, 0.897143183925907_dbl_kind, 0.907903160722371_dbl_kind, 0.959245894604544_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,516) = (/ 0.890984352311263_dbl_kind, 0.894175149803916_dbl_kind, 0.897148319649259_dbl_kind, 0.907918316675158_dbl_kind, 0.959283097802094_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,517) = (/ 0.890985305192585_dbl_kind, 0.894176884839556_dbl_kind, 0.897153447640891_dbl_kind, 0.907933454552093_dbl_kind, 0.959320196384651_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,518) = (/ 0.890986254933866_dbl_kind, 0.894178613290517_dbl_kind, 0.897158567949455_dbl_kind, 0.907948574445973_dbl_kind, 0.959357190742977_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,519) = (/ 0.890987201548554_dbl_kind, 0.894180335197431_dbl_kind, 0.897163680623272_dbl_kind, 0.907963676448998_dbl_kind, 0.959394081265968_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,520) = (/ 0.890988145049997_dbl_kind, 0.894182050600756_dbl_kind, 0.897168785710329_dbl_kind, 0.907978760652772_dbl_kind, 0.959430868340668_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,521) = (/ 0.890989085451446_dbl_kind, 0.89418375954078_dbl_kind, 0.897173883258278_dbl_kind, 0.907993827148308_dbl_kind, 0.959467552352267_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,522) = (/ 0.890990022766048_dbl_kind, 0.894185462057621_dbl_kind, 0.897178973314443_dbl_kind, 0.908008876026034_dbl_kind, 0.95950413368413_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,523) = (/ 0.89099095700686_dbl_kind, 0.894187158191224_dbl_kind, 0.897184055925817_dbl_kind, 0.908023907375788_dbl_kind, 0.95954061271779_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,524) = (/ 0.89099188818684_dbl_kind, 0.894188847981363_dbl_kind, 0.897189131139064_dbl_kind, 0.908038921286831_dbl_kind, 0.959576989832977_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,525) = (/ 0.890992816318851_dbl_kind, 0.894190531467642_dbl_kind, 0.89719419900052_dbl_kind, 0.908053917847844_dbl_kind, 0.959613265407609_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,526) = (/ 0.890993741415663_dbl_kind, 0.894192208689495_dbl_kind, 0.897199259556195_dbl_kind, 0.908068897146935_dbl_kind, 0.959649439817826_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,527) = (/ 0.890994663489955_dbl_kind, 0.894193879686185_dbl_kind, 0.897204312851772_dbl_kind, 0.908083859271639_dbl_kind, 0.959685513437973_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,528) = (/ 0.890995582554313_dbl_kind, 0.894195544496803_dbl_kind, 0.897209358932614_dbl_kind, 0.908098804308926_dbl_kind, 0.959721486640634_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,529) = (/ 0.890996498621233_dbl_kind, 0.894197203160273_dbl_kind, 0.897214397843756_dbl_kind, 0.908113732345199_dbl_kind, 0.959757359796631_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,530) = (/ 0.890997411703124_dbl_kind, 0.894198855715348_dbl_kind, 0.897219429629914_dbl_kind, 0.908128643466301_dbl_kind, 0.959793133275041_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,531) = (/ 0.890998321812304_dbl_kind, 0.89420050220061_dbl_kind, 0.897224454335485_dbl_kind, 0.908143537757515_dbl_kind, 0.959828807443192_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,532) = (/ 0.890999228961006_dbl_kind, 0.894202142654475_dbl_kind, 0.897229472004543_dbl_kind, 0.908158415303573_dbl_kind, 0.959864382666696_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,533) = (/ 0.891000133161375_dbl_kind, 0.894203777115185_dbl_kind, 0.897234482680849_dbl_kind, 0.908173276188654_dbl_kind, 0.959899859309437_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,534) = (/ 0.891001034425475_dbl_kind, 0.894205405620817_dbl_kind, 0.897239486407844_dbl_kind, 0.908188120496388_dbl_kind, 0.959935237733597_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,535) = (/ 0.891001932765283_dbl_kind, 0.894207028209277_dbl_kind, 0.897244483228656_dbl_kind, 0.908202948309862_dbl_kind, 0.959970518299652_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,536) = (/ 0.891002828192691_dbl_kind, 0.894208644918302_dbl_kind, 0.897249473186099_dbl_kind, 0.908217759711622_dbl_kind, 0.960005701366396_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,537) = (/ 0.891003720719516_dbl_kind, 0.894210255785463_dbl_kind, 0.897254456322674_dbl_kind, 0.908232554783674_dbl_kind, 0.960040787290943_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,538) = (/ 0.891004610357486_dbl_kind, 0.894211860848159_dbl_kind, 0.89725943268057_dbl_kind, 0.90824733360749_dbl_kind, 0.960075776428736_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,539) = (/ 0.891005497118254_dbl_kind, 0.894213460143625_dbl_kind, 0.897264402301672_dbl_kind, 0.908262096264012_dbl_kind, 0.960110669133562_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,540) = (/ 0.891006381013394_dbl_kind, 0.894215053708923_dbl_kind, 0.89726936522755_dbl_kind, 0.908276842833652_dbl_kind, 0.960145465757554_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,541) = (/ 0.8910072620544_dbl_kind, 0.894216641580952_dbl_kind, 0.897274321499471_dbl_kind, 0.908291573396297_dbl_kind, 0.960180166651207_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,542) = (/ 0.891008140252689_dbl_kind, 0.894218223796441_dbl_kind, 0.897279271158398_dbl_kind, 0.908306288031313_dbl_kind, 0.960214772163386_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,543) = (/ 0.891009015619603_dbl_kind, 0.894219800391952_dbl_kind, 0.897284214244987_dbl_kind, 0.908320986817547_dbl_kind, 0.960249282641336_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,544) = (/ 0.891009888166408_dbl_kind, 0.894221371403879_dbl_kind, 0.897289150799596_dbl_kind, 0.90833566983333_dbl_kind, 0.960283698430688_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,545) = (/ 0.891010757904296_dbl_kind, 0.89422293686845_dbl_kind, 0.897294080862278_dbl_kind, 0.908350337156483_dbl_kind, 0.960318019875468_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,546) = (/ 0.891011624844386_dbl_kind, 0.894224496821728_dbl_kind, 0.897299004472789_dbl_kind, 0.908364988864315_dbl_kind, 0.960352247318115_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,547) = (/ 0.891012488997722_dbl_kind, 0.894226051299604_dbl_kind, 0.897303921670589_dbl_kind, 0.908379625033631_dbl_kind, 0.960386381099478_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,548) = (/ 0.891013350375279_dbl_kind, 0.894227600337808_dbl_kind, 0.897308832494838_dbl_kind, 0.908394245740735_dbl_kind, 0.960420421558836_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,549) = (/ 0.89101420898796_dbl_kind, 0.894229143971902_dbl_kind, 0.897313736984404_dbl_kind, 0.908408851061427_dbl_kind, 0.960454369033896_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,550) = (/ 0.891015064846599_dbl_kind, 0.89423068223728_dbl_kind, 0.897318635177863_dbl_kind, 0.908423441071016_dbl_kind, 0.960488223860814_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,551) = (/ 0.891015917961959_dbl_kind, 0.894232215169173_dbl_kind, 0.897323527113495_dbl_kind, 0.908438015844313_dbl_kind, 0.960521986374191_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,552) = (/ 0.891016768344736_dbl_kind, 0.894233742802645_dbl_kind, 0.897328412829296_dbl_kind, 0.908452575455643_dbl_kind, 0.960555656907095_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,553) = (/ 0.891017616005558_dbl_kind, 0.894235265172594_dbl_kind, 0.897333292362968_dbl_kind, 0.908467119978841_dbl_kind, 0.96058923579106_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,554) = (/ 0.891018460954986_dbl_kind, 0.894236782313754_dbl_kind, 0.89733816575193_dbl_kind, 0.908481649487262_dbl_kind, 0.960622723356097_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,555) = (/ 0.891019303203518_dbl_kind, 0.894238294260693_dbl_kind, 0.897343033033315_dbl_kind, 0.908496164053776_dbl_kind, 0.960656119930707_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,556) = (/ 0.891020142761582_dbl_kind, 0.894239801047815_dbl_kind, 0.897347894243972_dbl_kind, 0.908510663750776_dbl_kind, 0.960689425841883_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,557) = (/ 0.891020979639546_dbl_kind, 0.894241302709359_dbl_kind, 0.897352749420467_dbl_kind, 0.908525148650186_dbl_kind, 0.960722641415123_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,558) = (/ 0.891021813847712_dbl_kind, 0.8942427992794_dbl_kind, 0.897357598599087_dbl_kind, 0.908539618823451_dbl_kind, 0.960755766974438_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,559) = (/ 0.891022645396321_dbl_kind, 0.894244290791847_dbl_kind, 0.89736244181584_dbl_kind, 0.908554074341552_dbl_kind, 0.96078880284236_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,560) = (/ 0.89102347429555_dbl_kind, 0.894245777280447_dbl_kind, 0.897367279106457_dbl_kind, 0.908568515275004_dbl_kind, 0.960821749339944_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,561) = (/ 0.891024300555517_dbl_kind, 0.894247258778784_dbl_kind, 0.897372110506391_dbl_kind, 0.908582941693858_dbl_kind, 0.960854606786791_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,562) = (/ 0.891025124186278_dbl_kind, 0.894248735320275_dbl_kind, 0.897376936050826_dbl_kind, 0.908597353667708_dbl_kind, 0.960887375501044_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,563) = (/ 0.891025945197829_dbl_kind, 0.894250206938178_dbl_kind, 0.897381755774668_dbl_kind, 0.90861175126569_dbl_kind, 0.960920055799397_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,564) = (/ 0.891026763600109_dbl_kind, 0.894251673665583_dbl_kind, 0.897386569712557_dbl_kind, 0.908626134556487_dbl_kind, 0.960952647997107_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,565) = (/ 0.891027579402996_dbl_kind, 0.894253135535421_dbl_kind, 0.897391377898861_dbl_kind, 0.908640503608333_dbl_kind, 0.960985152408002_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,566) = (/ 0.891028392616313_dbl_kind, 0.89425459258046_dbl_kind, 0.897396180367683_dbl_kind, 0.908654858489012_dbl_kind, 0.961017569344488_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,567) = (/ 0.891029203249823_dbl_kind, 0.894256044833303_dbl_kind, 0.897400977152857_dbl_kind, 0.908669199265866_dbl_kind, 0.961049899117554_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,568) = (/ 0.891030011313237_dbl_kind, 0.894257492326394_dbl_kind, 0.897405768287956_dbl_kind, 0.908683526005793_dbl_kind, 0.961082142036785_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,569) = (/ 0.891030816816206_dbl_kind, 0.894258935092013_dbl_kind, 0.897410553806291_dbl_kind, 0.908697838775255_dbl_kind, 0.961114298410366_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,570) = (/ 0.891031619768329_dbl_kind, 0.894260373162278_dbl_kind, 0.897415333740907_dbl_kind, 0.908712137640277_dbl_kind, 0.961146368545092_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,571) = (/ 0.89103242017915_dbl_kind, 0.894261806569146_dbl_kind, 0.897420108124596_dbl_kind, 0.90872642266645_dbl_kind, 0.961178352746376_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,572) = (/ 0.891033218058158_dbl_kind, 0.894263235344414_dbl_kind, 0.89742487698989_dbl_kind, 0.908740693918937_dbl_kind, 0.961210251318252_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,573) = (/ 0.891034013414792_dbl_kind, 0.894264659519717_dbl_kind, 0.897429640369065_dbl_kind, 0.908754951462473_dbl_kind, 0.96124206456339_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,574) = (/ 0.891034806258437_dbl_kind, 0.894266079126527_dbl_kind, 0.897434398294142_dbl_kind, 0.908769195361369_dbl_kind, 0.961273792783097_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,575) = (/ 0.891035596598426_dbl_kind, 0.894267494196161_dbl_kind, 0.897439150796892_dbl_kind, 0.908783425679515_dbl_kind, 0.961305436277327_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,576) = (/ 0.891036384444041_dbl_kind, 0.89426890475977_dbl_kind, 0.897443897908833_dbl_kind, 0.908797642480382_dbl_kind, 0.961336995344692_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,577) = (/ 0.891037169804515_dbl_kind, 0.894270310848348_dbl_kind, 0.897448639661234_dbl_kind, 0.908811845827022_dbl_kind, 0.961368470282463_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,578) = (/ 0.891037952689028_dbl_kind, 0.894271712492727_dbl_kind, 0.897453376085119_dbl_kind, 0.908826035782082_dbl_kind, 0.961399861386583_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,579) = (/ 0.891038733106715_dbl_kind, 0.894273109723583_dbl_kind, 0.897458107211262_dbl_kind, 0.908840212407791_dbl_kind, 0.961431168951668_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,580) = (/ 0.89103951106666_dbl_kind, 0.89427450257143_dbl_kind, 0.897462833070196_dbl_kind, 0.908854375765974_dbl_kind, 0.961462393271021_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,581) = (/ 0.891040286577898_dbl_kind, 0.894275891066624_dbl_kind, 0.897467553692211_dbl_kind, 0.908868525918052_dbl_kind, 0.961493534636637_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,582) = (/ 0.891041059649417_dbl_kind, 0.894277275239361_dbl_kind, 0.897472269107354_dbl_kind, 0.908882662925041_dbl_kind, 0.961524593339205_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,583) = (/ 0.891041830290161_dbl_kind, 0.89427865511968_dbl_kind, 0.897476979345435_dbl_kind, 0.908896786847561_dbl_kind, 0.961555569668124_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,584) = (/ 0.891042598509023_dbl_kind, 0.89428003073746_dbl_kind, 0.897481684436026_dbl_kind, 0.908910897745834_dbl_kind, 0.961586463911505_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,585) = (/ 0.891043364314854_dbl_kind, 0.894281402122425_dbl_kind, 0.897486384408464_dbl_kind, 0.908924995679688_dbl_kind, 0.961617276356178_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,586) = (/ 0.891044127716457_dbl_kind, 0.89428276930414_dbl_kind, 0.897491079291848_dbl_kind, 0.908939080708561_dbl_kind, 0.961648007287696_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,587) = (/ 0.891044888722592_dbl_kind, 0.89428413231201_dbl_kind, 0.89749576911505_dbl_kind, 0.9089531528915_dbl_kind, 0.961678656990351_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,588) = (/ 0.891045647341973_dbl_kind, 0.894285491175287_dbl_kind, 0.897500453906705_dbl_kind, 0.90896721228717_dbl_kind, 0.961709225747172_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,589) = (/ 0.891046403583272_dbl_kind, 0.894286845923063_dbl_kind, 0.897505133695223_dbl_kind, 0.908981258953849_dbl_kind, 0.961739713839938_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,590) = (/ 0.891047157455117_dbl_kind, 0.894288196584276_dbl_kind, 0.897509808508784_dbl_kind, 0.908995292949437_dbl_kind, 0.961770121549176_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,591) = (/ 0.891047908966093_dbl_kind, 0.894289543187705_dbl_kind, 0.897514478375344_dbl_kind, 0.909009314331454_dbl_kind, 0.961800449154183_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,592) = (/ 0.891048658124744_dbl_kind, 0.894290885761976_dbl_kind, 0.897519143322633_dbl_kind, 0.909023323157047_dbl_kind, 0.961830696933015_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,593) = (/ 0.891049404939569_dbl_kind, 0.894292224335557_dbl_kind, 0.897523803378158_dbl_kind, 0.909037319482988_dbl_kind, 0.961860865162508_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,594) = (/ 0.891050149419031_dbl_kind, 0.894293558936763_dbl_kind, 0.897528458569206_dbl_kind, 0.90905130336568_dbl_kind, 0.961890954118275_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,595) = (/ 0.891050891571548_dbl_kind, 0.894294889593749_dbl_kind, 0.897533108922843_dbl_kind, 0.909065274861157_dbl_kind, 0.961920964074718_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,596) = (/ 0.891051631405499_dbl_kind, 0.894296216334523_dbl_kind, 0.897537754465919_dbl_kind, 0.90907923402509_dbl_kind, 0.961950895305031_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,597) = (/ 0.891052368929221_dbl_kind, 0.894297539186932_dbl_kind, 0.897542395225065_dbl_kind, 0.909093180912784_dbl_kind, 0.96198074808121_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,598) = (/ 0.891053104151018_dbl_kind, 0.894298858178671_dbl_kind, 0.8975470312267_dbl_kind, 0.909107115579188_dbl_kind, 0.962010522674058_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,599) = (/ 0.891053837079147_dbl_kind, 0.894300173337282_dbl_kind, 0.897551662497029_dbl_kind, 0.909121038078889_dbl_kind, 0.96204021935319_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,600) = (/ 0.891054567721831_dbl_kind, 0.894301484690152_dbl_kind, 0.897556289062043_dbl_kind, 0.909134948466122_dbl_kind, 0.962069838387041_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,601) = (/ 0.891055296087255_dbl_kind, 0.894302792264516_dbl_kind, 0.897560910947527_dbl_kind, 0.909148846794767_dbl_kind, 0.962099380042871_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,602) = (/ 0.891056022183564_dbl_kind, 0.894304096087456_dbl_kind, 0.897565528179055_dbl_kind, 0.909162733118356_dbl_kind, 0.962128844586773_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,603) = (/ 0.891056746018868_dbl_kind, 0.894305396185901_dbl_kind, 0.897570140781994_dbl_kind, 0.90917660749007_dbl_kind, 0.962158232283678_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,604) = (/ 0.891057467601239_dbl_kind, 0.894306692586628_dbl_kind, 0.897574748781508_dbl_kind, 0.909190469962748_dbl_kind, 0.962187543397359_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,605) = (/ 0.891058186938713_dbl_kind, 0.894307985316261_dbl_kind, 0.897579352202556_dbl_kind, 0.909204320588883_dbl_kind, 0.962216778190446_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,606) = (/ 0.89105890403929_dbl_kind, 0.894309274401276_dbl_kind, 0.897583951069894_dbl_kind, 0.909218159420628_dbl_kind, 0.96224593692442_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,607) = (/ 0.891059618910934_dbl_kind, 0.894310559867992_dbl_kind, 0.89758854540808_dbl_kind, 0.909231986509799_dbl_kind, 0.962275019859625_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,608) = (/ 0.891060331561573_dbl_kind, 0.894311841742583_dbl_kind, 0.897593135241469_dbl_kind, 0.909245801907874_dbl_kind, 0.962304027255278_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,609) = (/ 0.891061041999102_dbl_kind, 0.894313120051069_dbl_kind, 0.897597720594223_dbl_kind, 0.909259605665998_dbl_kind, 0.962332959369464_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,610) = (/ 0.89106175023138_dbl_kind, 0.894314394819321_dbl_kind, 0.897602301490306_dbl_kind, 0.909273397834985_dbl_kind, 0.962361816459158_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,611) = (/ 0.891062456266234_dbl_kind, 0.89431566607306_dbl_kind, 0.897606877953488_dbl_kind, 0.90928717846532_dbl_kind, 0.962390598780211_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,612) = (/ 0.891063160111453_dbl_kind, 0.894316933837856_dbl_kind, 0.897611450007344_dbl_kind, 0.909300947607161_dbl_kind, 0.962419306587375_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,613) = (/ 0.891063861774798_dbl_kind, 0.894318198139133_dbl_kind, 0.897616017675261_dbl_kind, 0.90931470531034_dbl_kind, 0.962447940134297_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,614) = (/ 0.891064561263992_dbl_kind, 0.894319459002164_dbl_kind, 0.897620580980435_dbl_kind, 0.909328451624369_dbl_kind, 0.962476499673531_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,615) = (/ 0.891065258586729_dbl_kind, 0.894320716452073_dbl_kind, 0.897625139945873_dbl_kind, 0.90934218659844_dbl_kind, 0.962504985456536_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,616) = (/ 0.891065953750669_dbl_kind, 0.894321970513839_dbl_kind, 0.897629694594396_dbl_kind, 0.909355910281423_dbl_kind, 0.962533397733689_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,617) = (/ 0.891066646763439_dbl_kind, 0.894323221212291_dbl_kind, 0.897634244948638_dbl_kind, 0.909369622721879_dbl_kind, 0.96256173675429_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,618) = (/ 0.891067337632636_dbl_kind, 0.89432446857211_dbl_kind, 0.897638791031051_dbl_kind, 0.90938332396805_dbl_kind, 0.962590002766564_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,619) = (/ 0.891068026365826_dbl_kind, 0.894325712617832_dbl_kind, 0.897643332863905_dbl_kind, 0.909397014067869_dbl_kind, 0.962618196017669_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,620) = (/ 0.891068712970543_dbl_kind, 0.894326953373846_dbl_kind, 0.897647870469287_dbl_kind, 0.909410693068962_dbl_kind, 0.962646316753705_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,621) = (/ 0.891069397454289_dbl_kind, 0.894328190864393_dbl_kind, 0.897652403869107_dbl_kind, 0.909424361018644_dbl_kind, 0.962674365219707_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,622) = (/ 0.891070079824538_dbl_kind, 0.894329425113572_dbl_kind, 0.897656933085094_dbl_kind, 0.909438017963926_dbl_kind, 0.962702341659669_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,623) = (/ 0.891070760088732_dbl_kind, 0.894330656145332_dbl_kind, 0.897661458138803_dbl_kind, 0.909451663951522_dbl_kind, 0.962730246316533_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,624) = (/ 0.891071438254286_dbl_kind, 0.894331883983481_dbl_kind, 0.897665979051613_dbl_kind, 0.909465299027837_dbl_kind, 0.962758079432205_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,625) = (/ 0.89107211432858_dbl_kind, 0.89433310865168_dbl_kind, 0.89767049584473_dbl_kind, 0.909478923238984_dbl_kind, 0.962785841247556_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,626) = (/ 0.891072788318971_dbl_kind, 0.894334330173447_dbl_kind, 0.897675008539185_dbl_kind, 0.909492536630776_dbl_kind, 0.962813532002426_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,627) = (/ 0.891073460232784_dbl_kind, 0.894335548572156_dbl_kind, 0.897679517155842_dbl_kind, 0.909506139248733_dbl_kind, 0.962841151935636_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,628) = (/ 0.891074130077314_dbl_kind, 0.894336763871036_dbl_kind, 0.897684021715394_dbl_kind, 0.909519731138084_dbl_kind, 0.962868701284981_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,629) = (/ 0.891074797859831_dbl_kind, 0.894337976093175_dbl_kind, 0.897688522238364_dbl_kind, 0.909533312343767_dbl_kind, 0.96289618028725_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,630) = (/ 0.891075463587574_dbl_kind, 0.894339185261518_dbl_kind, 0.897693018745111_dbl_kind, 0.90954688291043_dbl_kind, 0.962923589178221_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,631) = (/ 0.891076127267755_dbl_kind, 0.894340391398867_dbl_kind, 0.897697511255827_dbl_kind, 0.909560442882436_dbl_kind, 0.96295092819267_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,632) = (/ 0.89107678890756_dbl_kind, 0.894341594527883_dbl_kind, 0.897701999790541_dbl_kind, 0.909573992303866_dbl_kind, 0.962978197564377_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,633) = (/ 0.891077448514145_dbl_kind, 0.894342794671085_dbl_kind, 0.897706484369119_dbl_kind, 0.909587531218516_dbl_kind, 0.963005397526127_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,634) = (/ 0.891078106094641_dbl_kind, 0.894343991850853_dbl_kind, 0.897710965011267_dbl_kind, 0.909601059669903_dbl_kind, 0.963032528309719_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,635) = (/ 0.89107876165615_dbl_kind, 0.894345186089422_dbl_kind, 0.897715441736528_dbl_kind, 0.909614577701265_dbl_kind, 0.963059590145972_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,636) = (/ 0.89107941520575_dbl_kind, 0.894346377408893_dbl_kind, 0.897719914564291_dbl_kind, 0.909628085355566_dbl_kind, 0.963086583264723_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,637) = (/ 0.891080066750492_dbl_kind, 0.894347565831221_dbl_kind, 0.897724383513784_dbl_kind, 0.909641582675492_dbl_kind, 0.963113507894843_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,638) = (/ 0.891080716297398_dbl_kind, 0.894348751378227_dbl_kind, 0.897728848604081_dbl_kind, 0.909655069703459_dbl_kind, 0.963140364264233_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,639) = (/ 0.891081363853468_dbl_kind, 0.894349934071591_dbl_kind, 0.897733309854099_dbl_kind, 0.909668546481613_dbl_kind, 0.963167152599832_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,640) = (/ 0.891082009425675_dbl_kind, 0.894351113932854_dbl_kind, 0.897737767282606_dbl_kind, 0.909682013051829_dbl_kind, 0.963193873127622_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,641) = (/ 0.891082653020965_dbl_kind, 0.89435229098342_dbl_kind, 0.897742220908215_dbl_kind, 0.909695469455715_dbl_kind, 0.96322052607263_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,642) = (/ 0.89108329464626_dbl_kind, 0.894353465244556_dbl_kind, 0.897746670749389_dbl_kind, 0.909708915734619_dbl_kind, 0.963247111658944_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,643) = (/ 0.891083934308458_dbl_kind, 0.89435463673739_dbl_kind, 0.89775111682444_dbl_kind, 0.909722351929619_dbl_kind, 0.963273630109698_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,644) = (/ 0.89108457201443_dbl_kind, 0.894355805482915_dbl_kind, 0.897755559151536_dbl_kind, 0.909735778081537_dbl_kind, 0.963300081647099_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,645) = (/ 0.891085207771024_dbl_kind, 0.894356971501988_dbl_kind, 0.897759997748693_dbl_kind, 0.909749194230932_dbl_kind, 0.963326466492414_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,646) = (/ 0.891085841585064_dbl_kind, 0.894358134815329_dbl_kind, 0.897764432633785_dbl_kind, 0.90976260041811_dbl_kind, 0.963352784865984_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,647) = (/ 0.891086473463347_dbl_kind, 0.894359295443525_dbl_kind, 0.897768863824541_dbl_kind, 0.909775996683114_dbl_kind, 0.963379036987229_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,648) = (/ 0.89108710341265_dbl_kind, 0.894360453407025_dbl_kind, 0.897773291338545_dbl_kind, 0.909789383065739_dbl_kind, 0.963405223074646_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,649) = (/ 0.891087731439723_dbl_kind, 0.894361608726147_dbl_kind, 0.897777715193241_dbl_kind, 0.909802759605526_dbl_kind, 0.963431343345821_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,650) = (/ 0.891088357551293_dbl_kind, 0.894362761421072_dbl_kind, 0.897782135405932_dbl_kind, 0.909816126341765_dbl_kind, 0.963457398017427_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,651) = (/ 0.891088981754065_dbl_kind, 0.89436391151185_dbl_kind, 0.89778655199378_dbl_kind, 0.909829483313496_dbl_kind, 0.963483387305241_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,652) = (/ 0.891089604054719_dbl_kind, 0.894365059018397_dbl_kind, 0.897790964973811_dbl_kind, 0.909842830559515_dbl_kind, 0.963509311424126_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,653) = (/ 0.891090224459913_dbl_kind, 0.894366203960497_dbl_kind, 0.897795374362912_dbl_kind, 0.90985616811837_dbl_kind, 0.963535170588062_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,654) = (/ 0.891090842976282_dbl_kind, 0.894367346357801_dbl_kind, 0.897799780177835_dbl_kind, 0.909869496028366_dbl_kind, 0.963560965010128_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,655) = (/ 0.891091459610437_dbl_kind, 0.89436848622983_dbl_kind, 0.897804182435197_dbl_kind, 0.909882814327566_dbl_kind, 0.963586694902525_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,656) = (/ 0.891092074368969_dbl_kind, 0.894369623595972_dbl_kind, 0.89780858115148_dbl_kind, 0.909896123053793_dbl_kind, 0.963612360476564_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,657) = (/ 0.891092687258444_dbl_kind, 0.894370758475487_dbl_kind, 0.897812976343037_dbl_kind, 0.909909422244632_dbl_kind, 0.963637961942686_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,658) = (/ 0.891093298285406_dbl_kind, 0.894371890887501_dbl_kind, 0.897817368026086_dbl_kind, 0.909922711937429_dbl_kind, 0.963663499510451_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,659) = (/ 0.891093907456379_dbl_kind, 0.894373020851015_dbl_kind, 0.897821756216717_dbl_kind, 0.909935992169296_dbl_kind, 0.963688973388557_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,660) = (/ 0.891094514777863_dbl_kind, 0.894374148384898_dbl_kind, 0.897826140930889_dbl_kind, 0.909949262977113_dbl_kind, 0.963714383784832_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,661) = (/ 0.891095120256337_dbl_kind, 0.89437527350789_dbl_kind, 0.897830522184436_dbl_kind, 0.909962524397523_dbl_kind, 0.963739730906244_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,662) = (/ 0.891095723898259_dbl_kind, 0.894376396238604_dbl_kind, 0.897834899993063_dbl_kind, 0.909975776466943_dbl_kind, 0.963765014958912_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,663) = (/ 0.891096325710063_dbl_kind, 0.894377516595527_dbl_kind, 0.897839274372349_dbl_kind, 0.909989019221561_dbl_kind, 0.963790236148093_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,664) = (/ 0.891096925698165_dbl_kind, 0.894378634597014_dbl_kind, 0.89784364533775_dbl_kind, 0.910002252697334_dbl_kind, 0.963815394678205_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,665) = (/ 0.891097523868958_dbl_kind, 0.894379750261298_dbl_kind, 0.897848012904598_dbl_kind, 0.910015476929997_dbl_kind, 0.963840490752819_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,666) = (/ 0.891098120228814_dbl_kind, 0.894380863606484_dbl_kind, 0.897852377088101_dbl_kind, 0.910028691955058_dbl_kind, 0.963865524574666_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,667) = (/ 0.891098714784083_dbl_kind, 0.894381974650551_dbl_kind, 0.897856737903347_dbl_kind, 0.910041897807805_dbl_kind, 0.963890496345646_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,668) = (/ 0.891099307541097_dbl_kind, 0.894383083411352_dbl_kind, 0.897861095365304_dbl_kind, 0.910055094523303_dbl_kind, 0.963915406266827_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,669) = (/ 0.891099898506165_dbl_kind, 0.894384189906618_dbl_kind, 0.89786544948882_dbl_kind, 0.910068282136398_dbl_kind, 0.96394025453845_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,670) = (/ 0.891100487685576_dbl_kind, 0.894385294153953_dbl_kind, 0.897869800288624_dbl_kind, 0.910081460681717_dbl_kind, 0.963965041359932_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,671) = (/ 0.8911010750856_dbl_kind, 0.894386396170839_dbl_kind, 0.897874147779329_dbl_kind, 0.910094630193672_dbl_kind, 0.963989766929875_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,672) = (/ 0.891101660712484_dbl_kind, 0.894387495974633_dbl_kind, 0.897878491975432_dbl_kind, 0.910107790706459_dbl_kind, 0.964014431446066_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,673) = (/ 0.891102244572456_dbl_kind, 0.894388593582572_dbl_kind, 0.897882832891314_dbl_kind, 0.910120942254061_dbl_kind, 0.964039035105478_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,674) = (/ 0.891102826671725_dbl_kind, 0.894389689011769_dbl_kind, 0.897887170541242_dbl_kind, 0.910134084870247_dbl_kind, 0.964063578104285_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,675) = (/ 0.891103407016479_dbl_kind, 0.894390782279215_dbl_kind, 0.89789150493937_dbl_kind, 0.910147218588578_dbl_kind, 0.964088060637854_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,676) = (/ 0.891103985612887_dbl_kind, 0.894391873401781_dbl_kind, 0.89789583609974_dbl_kind, 0.910160343442403_dbl_kind, 0.964112482900752_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,677) = (/ 0.891104562467096_dbl_kind, 0.894392962396217_dbl_kind, 0.897900164036281_dbl_kind, 0.910173459464866_dbl_kind, 0.96413684508676_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,678) = (/ 0.891105137585236_dbl_kind, 0.894394049279152_dbl_kind, 0.897904488762816_dbl_kind, 0.910186566688901_dbl_kind, 0.964161147388859_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,679) = (/ 0.891105710973418_dbl_kind, 0.894395134067096_dbl_kind, 0.897908810293053_dbl_kind, 0.910199665147241_dbl_kind, 0.96418538999925_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,680) = (/ 0.891106282637729_dbl_kind, 0.894396216776441_dbl_kind, 0.897913128640597_dbl_kind, 0.910212754872413_dbl_kind, 0.964209573109349_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,681) = (/ 0.891106852584241_dbl_kind, 0.894397297423458_dbl_kind, 0.897917443818943_dbl_kind, 0.910225835896741_dbl_kind, 0.964233696909792_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,682) = (/ 0.891107420819006_dbl_kind, 0.894398376024302_dbl_kind, 0.897921755841479_dbl_kind, 0.910238908252351_dbl_kind, 0.964257761590448_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,683) = (/ 0.891107987348057_dbl_kind, 0.89439945259501_dbl_kind, 0.89792606472149_dbl_kind, 0.910251971971167_dbl_kind, 0.964281767340403_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,684) = (/ 0.891108552177405_dbl_kind, 0.894400527151501_dbl_kind, 0.897930370472154_dbl_kind, 0.910265027084917_dbl_kind, 0.964305714347987_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,685) = (/ 0.891109115313047_dbl_kind, 0.894401599709578_dbl_kind, 0.897934673106547_dbl_kind, 0.91027807362513_dbl_kind, 0.964329602800757_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,686) = (/ 0.891109676760957_dbl_kind, 0.894402670284929_dbl_kind, 0.897938972637641_dbl_kind, 0.91029111162314_dbl_kind, 0.964353432885517_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,687) = (/ 0.891110236527093_dbl_kind, 0.894403738893125_dbl_kind, 0.897943269078307_dbl_kind, 0.91030414111009_dbl_kind, 0.964377204788316_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,688) = (/ 0.891110794617392_dbl_kind, 0.894404805549624_dbl_kind, 0.897947562441315_dbl_kind, 0.910317162116925_dbl_kind, 0.964400918694442_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,689) = (/ 0.891111351037775_dbl_kind, 0.894405870269767_dbl_kind, 0.897951852739336_dbl_kind, 0.910330174674403_dbl_kind, 0.964424574788445_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,690) = (/ 0.891111905794141_dbl_kind, 0.894406933068782_dbl_kind, 0.897956139984939_dbl_kind, 0.91034317881309_dbl_kind, 0.964448173254122_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,691) = (/ 0.891112458892375_dbl_kind, 0.894407993961785_dbl_kind, 0.897960424190598_dbl_kind, 0.910356174563363_dbl_kind, 0.964471714274534_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,692) = (/ 0.89111301033834_dbl_kind, 0.894409052963779_dbl_kind, 0.897964705368686_dbl_kind, 0.910369161955413_dbl_kind, 0.964495198032001_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,693) = (/ 0.891113560137882_dbl_kind, 0.894410110089653_dbl_kind, 0.897968983531484_dbl_kind, 0.910382141019241_dbl_kind, 0.964518624708112_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,694) = (/ 0.89111410829683_dbl_kind, 0.894411165354186_dbl_kind, 0.897973258691174_dbl_kind, 0.910395111784667_dbl_kind, 0.964541994483723_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,695) = (/ 0.891114654820994_dbl_kind, 0.894412218772044_dbl_kind, 0.897977530859842_dbl_kind, 0.910408074281325_dbl_kind, 0.964565307538965_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,696) = (/ 0.891115199716164_dbl_kind, 0.894413270357785_dbl_kind, 0.897981800049484_dbl_kind, 0.910421028538668_dbl_kind, 0.964588564053242_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,697) = (/ 0.891115742988116_dbl_kind, 0.894414320125852_dbl_kind, 0.897986066272001_dbl_kind, 0.910433974585965_dbl_kind, 0.964611764205243_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,698) = (/ 0.891116284642604_dbl_kind, 0.894415368090585_dbl_kind, 0.8979903295392_dbl_kind, 0.910446912452307_dbl_kind, 0.964634908172938_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,699) = (/ 0.891116824685367_dbl_kind, 0.894416414266209_dbl_kind, 0.897994589862798_dbl_kind, 0.910459842166606_dbl_kind, 0.964657996133584_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,700) = (/ 0.891117363122126_dbl_kind, 0.894417458666844_dbl_kind, 0.897998847254422_dbl_kind, 0.910472763757596_dbl_kind, 0.964681028263729_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,701) = (/ 0.891117899958583_dbl_kind, 0.8944185013065_dbl_kind, 0.898003101725606_dbl_kind, 0.910485677253834_dbl_kind, 0.964704004739216_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,702) = (/ 0.891118435200424_dbl_kind, 0.894419542199081_dbl_kind, 0.898007353287798_dbl_kind, 0.910498582683701_dbl_kind, 0.964726925735183_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,703) = (/ 0.891118968853316_dbl_kind, 0.894420581358384_dbl_kind, 0.898011601952357_dbl_kind, 0.910511480075408_dbl_kind, 0.964749791426071_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,704) = (/ 0.891119500922909_dbl_kind, 0.894421618798097_dbl_kind, 0.898015847730552_dbl_kind, 0.910524369456986_dbl_kind, 0.964772601985627_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,705) = (/ 0.891120031414836_dbl_kind, 0.894422654531805_dbl_kind, 0.898020090633568_dbl_kind, 0.910537250856302_dbl_kind, 0.9647953575869_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,706) = (/ 0.891120560334712_dbl_kind, 0.894423688572988_dbl_kind, 0.898024330672503_dbl_kind, 0.910550124301046_dbl_kind, 0.964818058402254_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,707) = (/ 0.891121087688135_dbl_kind, 0.894424720935018_dbl_kind, 0.89802856785837_dbl_kind, 0.910562989818741_dbl_kind, 0.964840704603366_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,708) = (/ 0.891121613480686_dbl_kind, 0.894425751631165_dbl_kind, 0.898032802202095_dbl_kind, 0.910575847436742_dbl_kind, 0.964863296361233_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,709) = (/ 0.891122137717928_dbl_kind, 0.894426780674595_dbl_kind, 0.898037033714523_dbl_kind, 0.910588697182237_dbl_kind, 0.964885833846167_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,710) = (/ 0.891122660405409_dbl_kind, 0.894427808078371_dbl_kind, 0.898041262406416_dbl_kind, 0.910601539082247_dbl_kind, 0.964908317227811_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,711) = (/ 0.891123181548657_dbl_kind, 0.894428833855454_dbl_kind, 0.898045488288451_dbl_kind, 0.910614373163628_dbl_kind, 0.964930746675129_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,712) = (/ 0.891123701153184_dbl_kind, 0.8944298580187_dbl_kind, 0.898049711371225_dbl_kind, 0.910627199453072_dbl_kind, 0.964953122356422_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,713) = (/ 0.891124219224487_dbl_kind, 0.894430880580866_dbl_kind, 0.898053931665255_dbl_kind, 0.910640017977108_dbl_kind, 0.964975444439317_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,714) = (/ 0.891124735768043_dbl_kind, 0.894431901554608_dbl_kind, 0.898058149180975_dbl_kind, 0.910652828762104_dbl_kind, 0.96499771309079_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,715) = (/ 0.891125250789314_dbl_kind, 0.894432920952479_dbl_kind, 0.898062363928742_dbl_kind, 0.910665631834268_dbl_kind, 0.965019928477142_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,716) = (/ 0.891125764293745_dbl_kind, 0.894433938786936_dbl_kind, 0.898066575918834_dbl_kind, 0.910678427219646_dbl_kind, 0.965042090764026_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,717) = (/ 0.891126276286764_dbl_kind, 0.894434955070334_dbl_kind, 0.898070785161449_dbl_kind, 0.910691214944127_dbl_kind, 0.965064200116444_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,718) = (/ 0.891126786773782_dbl_kind, 0.894435969814927_dbl_kind, 0.89807499166671_dbl_kind, 0.910703995033444_dbl_kind, 0.965086256698743_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,719) = (/ 0.891127295760193_dbl_kind, 0.894436983032876_dbl_kind, 0.89807919544466_dbl_kind, 0.910716767513169_dbl_kind, 0.965108260674619_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,720) = (/ 0.891127803251377_dbl_kind, 0.894437994736241_dbl_kind, 0.898083396505269_dbl_kind, 0.910729532408725_dbl_kind, 0.965130212207133_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,721) = (/ 0.891128309252693_dbl_kind, 0.894439004936983_dbl_kind, 0.89808759485843_dbl_kind, 0.910742289745374_dbl_kind, 0.965152111458699_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,722) = (/ 0.891128813769487_dbl_kind, 0.894440013646971_dbl_kind, 0.898091790513962_dbl_kind, 0.910755039548229_dbl_kind, 0.965173958591093_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,723) = (/ 0.891129316807087_dbl_kind, 0.894441020877973_dbl_kind, 0.898095983481608_dbl_kind, 0.91076778184225_dbl_kind, 0.965195753765457_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,724) = (/ 0.891129818370804_dbl_kind, 0.894442026641665_dbl_kind, 0.89810017377104_dbl_kind, 0.910780516652245_dbl_kind, 0.965217497142302_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,725) = (/ 0.891130318465935_dbl_kind, 0.894443030949625_dbl_kind, 0.898104361391855_dbl_kind, 0.910793244002871_dbl_kind, 0.965239188881509_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,726) = (/ 0.891130817097759_dbl_kind, 0.894444033813338_dbl_kind, 0.89810854635358_dbl_kind, 0.910805963918636_dbl_kind, 0.965260829142331_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,727) = (/ 0.891131314271538_dbl_kind, 0.894445035244196_dbl_kind, 0.898112728665668_dbl_kind, 0.910818676423902_dbl_kind, 0.965282418083403_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,728) = (/ 0.891131809992518_dbl_kind, 0.894446035253494_dbl_kind, 0.898116908337503_dbl_kind, 0.91083138154288_dbl_kind, 0.965303955862732_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,729) = (/ 0.89113230426593_dbl_kind, 0.894447033852438_dbl_kind, 0.898121085378397_dbl_kind, 0.910844079299637_dbl_kind, 0.965325442637715_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,730) = (/ 0.891132797096987_dbl_kind, 0.894448031052139_dbl_kind, 0.898125259797594_dbl_kind, 0.910856769718094_dbl_kind, 0.965346878565132_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,731) = (/ 0.891133288490888_dbl_kind, 0.894449026863617_dbl_kind, 0.898129431604267_dbl_kind, 0.910869452822028_dbl_kind, 0.96536826380115_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,732) = (/ 0.891133778452814_dbl_kind, 0.8944500212978_dbl_kind, 0.898133600807521_dbl_kind, 0.910882128635071_dbl_kind, 0.965389598501331_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,733) = (/ 0.89113426698793_dbl_kind, 0.894451014365525_dbl_kind, 0.898137767416395_dbl_kind, 0.910894797180713_dbl_kind, 0.96541088282063_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,734) = (/ 0.891134754101387_dbl_kind, 0.894452006077541_dbl_kind, 0.898141931439857_dbl_kind, 0.910907458482304_dbl_kind, 0.965432116913397_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,735) = (/ 0.891135239798316_dbl_kind, 0.894452996444504_dbl_kind, 0.898146092886812_dbl_kind, 0.91092011256305_dbl_kind, 0.965453300933384_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,736) = (/ 0.891135724083837_dbl_kind, 0.894453985476982_dbl_kind, 0.898150251766097_dbl_kind, 0.910932759446021_dbl_kind, 0.965474435033747_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,737) = (/ 0.89113620696305_dbl_kind, 0.894454973185456_dbl_kind, 0.898154408086482_dbl_kind, 0.910945399154145_dbl_kind, 0.965495519367044_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,738) = (/ 0.89113668844104_dbl_kind, 0.894455959580316_dbl_kind, 0.898158561856675_dbl_kind, 0.910958031710215_dbl_kind, 0.965516554085247_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,739) = (/ 0.891137168522878_dbl_kind, 0.894456944671865_dbl_kind, 0.898162713085317_dbl_kind, 0.910970657136884_dbl_kind, 0.965537539339735_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,740) = (/ 0.891137647213617_dbl_kind, 0.894457928470321_dbl_kind, 0.898166861780986_dbl_kind, 0.91098327545667_dbl_kind, 0.965558475281304_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,741) = (/ 0.891138124518294_dbl_kind, 0.894458910985813_dbl_kind, 0.898171007952197_dbl_kind, 0.910995886691957_dbl_kind, 0.96557936206016_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,742) = (/ 0.891138600441933_dbl_kind, 0.894459892228384_dbl_kind, 0.898175151607402_dbl_kind, 0.911008490864992_dbl_kind, 0.965600199825939_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,743) = (/ 0.891139074989539_dbl_kind, 0.894460872207993_dbl_kind, 0.898179292754989_dbl_kind, 0.91102108799789_dbl_kind, 0.965620988727692_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,744) = (/ 0.891139548166102_dbl_kind, 0.894461850934513_dbl_kind, 0.898183431403288_dbl_kind, 0.911033678112635_dbl_kind, 0.965641728913896_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,745) = (/ 0.891140019976599_dbl_kind, 0.894462828417732_dbl_kind, 0.898187567560563_dbl_kind, 0.911046261231076_dbl_kind, 0.965662420532459_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,746) = (/ 0.891140490425987_dbl_kind, 0.894463804667356_dbl_kind, 0.898191701235022_dbl_kind, 0.911058837374934_dbl_kind, 0.965683063730715_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,747) = (/ 0.891140959519211_dbl_kind, 0.894464779693005_dbl_kind, 0.898195832434809_dbl_kind, 0.911071406565797_dbl_kind, 0.965703658655434_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,748) = (/ 0.891141427261198_dbl_kind, 0.894465753504216_dbl_kind, 0.898199961168011_dbl_kind, 0.911083968825127_dbl_kind, 0.965724205452819_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,749) = (/ 0.891141893656861_dbl_kind, 0.894466726110447_dbl_kind, 0.898204087442654_dbl_kind, 0.911096524174254_dbl_kind, 0.965744704268512_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,750) = (/ 0.891142358711096_dbl_kind, 0.894467697521069_dbl_kind, 0.898208211266707_dbl_kind, 0.911109072634384_dbl_kind, 0.9657651552476_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,751) = (/ 0.891142822428785_dbl_kind, 0.894468667745377_dbl_kind, 0.89821233264808_dbl_kind, 0.911121614226596_dbl_kind, 0.965785558534608_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,752) = (/ 0.891143284814793_dbl_kind, 0.894469636792581_dbl_kind, 0.898216451594625_dbl_kind, 0.911134148971839_dbl_kind, 0.965805914273509_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,753) = (/ 0.891143745873971_dbl_kind, 0.894470604671813_dbl_kind, 0.898220568114137_dbl_kind, 0.911146676890942_dbl_kind, 0.965826222607726_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,754) = (/ 0.891144205611153_dbl_kind, 0.894471571392123_dbl_kind, 0.898224682214355_dbl_kind, 0.911159198004607_dbl_kind, 0.96584648368013_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,755) = (/ 0.891144664031159_dbl_kind, 0.894472536962483_dbl_kind, 0.898228793902962_dbl_kind, 0.911171712333413_dbl_kind, 0.965866697633051_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,756) = (/ 0.891145121138793_dbl_kind, 0.894473501391786_dbl_kind, 0.898232903187585_dbl_kind, 0.911184219897818_dbl_kind, 0.965886864608268_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,757) = (/ 0.891145576938843_dbl_kind, 0.894474464688848_dbl_kind, 0.898237010075794_dbl_kind, 0.911196720718155_dbl_kind, 0.965906984747029_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,758) = (/ 0.891146031436082_dbl_kind, 0.894475426862404_dbl_kind, 0.898241114575109_dbl_kind, 0.911209214814638_dbl_kind, 0.96592705819003_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,759) = (/ 0.891146484635269_dbl_kind, 0.894476387921114_dbl_kind, 0.898245216692989_dbl_kind, 0.911221702207362_dbl_kind, 0.965947085077443_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,760) = (/ 0.891146936541146_dbl_kind, 0.894477347873562_dbl_kind, 0.898249316436845_dbl_kind, 0.911234182916299_dbl_kind, 0.965967065548901_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,761) = (/ 0.89114738715844_dbl_kind, 0.894478306728252_dbl_kind, 0.898253413814033_dbl_kind, 0.911246656961306_dbl_kind, 0.965986999743504_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,762) = (/ 0.891147836491864_dbl_kind, 0.894479264493616_dbl_kind, 0.898257508831854_dbl_kind, 0.911259124362119_dbl_kind, 0.966006887799827_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,763) = (/ 0.891148284546115_dbl_kind, 0.89448022117801_dbl_kind, 0.898261601497559_dbl_kind, 0.911271585138359_dbl_kind, 0.966026729855917_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,764) = (/ 0.891148731325874_dbl_kind, 0.894481176789712_dbl_kind, 0.898265691818347_dbl_kind, 0.91128403930953_dbl_kind, 0.966046526049296_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,765) = (/ 0.891149176835808_dbl_kind, 0.894482131336931_dbl_kind, 0.898269779801364_dbl_kind, 0.911296486895019_dbl_kind, 0.966066276516965_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,766) = (/ 0.891149621080568_dbl_kind, 0.894483084827796_dbl_kind, 0.898273865453707_dbl_kind, 0.9113089279141_dbl_kind, 0.966085981395409_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,767) = (/ 0.891150064064791_dbl_kind, 0.894484037270369_dbl_kind, 0.898277948782419_dbl_kind, 0.911321362385933_dbl_kind, 0.966105640820592_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,768) = (/ 0.891150505793098_dbl_kind, 0.894484988672635_dbl_kind, 0.898282029794496_dbl_kind, 0.911333790329562_dbl_kind, 0.966125254927967_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,769) = (/ 0.891150946270095_dbl_kind, 0.894485939042508_dbl_kind, 0.898286108496882_dbl_kind, 0.911346211763921_dbl_kind, 0.966144823852471_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,770) = (/ 0.891151385500374_dbl_kind, 0.894486888387829_dbl_kind, 0.898290184896474_dbl_kind, 0.911358626707831_dbl_kind, 0.966164347728535_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,771) = (/ 0.89115182348851_dbl_kind, 0.89448783671637_dbl_kind, 0.898294259000118_dbl_kind, 0.911371035180001_dbl_kind, 0.96618382669008_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,772) = (/ 0.891152260239065_dbl_kind, 0.894488784035829_dbl_kind, 0.898298330814613_dbl_kind, 0.911383437199031_dbl_kind, 0.966203260870527_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,773) = (/ 0.891152695756585_dbl_kind, 0.894489730353837_dbl_kind, 0.898302400346708_dbl_kind, 0.91139583278341_dbl_kind, 0.966222650402787_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,774) = (/ 0.891153130045601_dbl_kind, 0.894490675677954_dbl_kind, 0.898306467603106_dbl_kind, 0.911408221951519_dbl_kind, 0.966241995419277_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,775) = (/ 0.89115356311063_dbl_kind, 0.894491620015668_dbl_kind, 0.898310532590461_dbl_kind, 0.911420604721629_dbl_kind, 0.966261296051913_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,776) = (/ 0.891153994956172_dbl_kind, 0.894492563374401_dbl_kind, 0.898314595315383_dbl_kind, 0.911432981111905_dbl_kind, 0.966280552432115_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,777) = (/ 0.891154425586716_dbl_kind, 0.894493505761506_dbl_kind, 0.898318655784433_dbl_kind, 0.911445351140404_dbl_kind, 0.96629976469081_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,778) = (/ 0.891154855006732_dbl_kind, 0.894494447184268_dbl_kind, 0.898322714004127_dbl_kind, 0.911457714825078_dbl_kind, 0.966318932958434_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,779) = (/ 0.891155283220677_dbl_kind, 0.894495387649903_dbl_kind, 0.898326769980934_dbl_kind, 0.91147007218377_dbl_kind, 0.966338057364935_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,780) = (/ 0.891155710232995_dbl_kind, 0.894496327165562_dbl_kind, 0.898330823721279_dbl_kind, 0.911482423234224_dbl_kind, 0.96635713803977_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,781) = (/ 0.891156136048111_dbl_kind, 0.894497265738329_dbl_kind, 0.898334875231543_dbl_kind, 0.911494767994072_dbl_kind, 0.966376175111917_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,782) = (/ 0.891156560670439_dbl_kind, 0.89449820337522_dbl_kind, 0.898338924518058_dbl_kind, 0.91150710648085_dbl_kind, 0.96639516870987_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,783) = (/ 0.891156984104378_dbl_kind, 0.894499140083189_dbl_kind, 0.898342971587119_dbl_kind, 0.911519438711986_dbl_kind, 0.966414118961639_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,784) = (/ 0.891157406354309_dbl_kind, 0.894500075869121_dbl_kind, 0.89834701644497_dbl_kind, 0.911531764704808_dbl_kind, 0.966433025994759_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,785) = (/ 0.891157827424602_dbl_kind, 0.89450101073984_dbl_kind, 0.898351059097817_dbl_kind, 0.911544084476541_dbl_kind, 0.96645188993629_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,786) = (/ 0.891158247319611_dbl_kind, 0.894501944702102_dbl_kind, 0.898355099551819_dbl_kind, 0.911556398044311_dbl_kind, 0.966470710912818_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,787) = (/ 0.891158666043675_dbl_kind, 0.894502877762602_dbl_kind, 0.898359137813095_dbl_kind, 0.911568705425142_dbl_kind, 0.966489489050455_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,788) = (/ 0.891159083601118_dbl_kind, 0.894503809927971_dbl_kind, 0.898363173887721_dbl_kind, 0.911581006635959_dbl_kind, 0.966508224474845_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,789) = (/ 0.891159499996252_dbl_kind, 0.894504741204777_dbl_kind, 0.89836720778173_dbl_kind, 0.911593301693588_dbl_kind, 0.966526917311169_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,790) = (/ 0.891159915233372_dbl_kind, 0.894505671599525_dbl_kind, 0.898371239501115_dbl_kind, 0.911605590614756_dbl_kind, 0.966545567684133_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,791) = (/ 0.891160329316758_dbl_kind, 0.89450660111866_dbl_kind, 0.898375269051827_dbl_kind, 0.911617873416094_dbl_kind, 0.966564175717988_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,792) = (/ 0.891160742250678_dbl_kind, 0.894507529768563_dbl_kind, 0.898379296439776_dbl_kind, 0.911630150114134_dbl_kind, 0.966582741536526_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,793) = (/ 0.891161154039384_dbl_kind, 0.894508457555556_dbl_kind, 0.898383321670832_dbl_kind, 0.911642420725312_dbl_kind, 0.96660126526307_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,794) = (/ 0.891161564687113_dbl_kind, 0.894509384485899_dbl_kind, 0.898387344750823_dbl_kind, 0.91165468526597_dbl_kind, 0.966619747020492_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,795) = (/ 0.891161974198089_dbl_kind, 0.894510310565793_dbl_kind, 0.89839136568554_dbl_kind, 0.911666943752352_dbl_kind, 0.966638186931215_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,796) = (/ 0.891162382576521_dbl_kind, 0.89451123580138_dbl_kind, 0.898395384480732_dbl_kind, 0.911679196200608_dbl_kind, 0.966656585117197_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,797) = (/ 0.891162789826602_dbl_kind, 0.894512160198739_dbl_kind, 0.898399401142111_dbl_kind, 0.911691442626795_dbl_kind, 0.966674941699957_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,798) = (/ 0.891163195952515_dbl_kind, 0.894513083763895_dbl_kind, 0.898403415675349_dbl_kind, 0.911703683046877_dbl_kind, 0.966693256800558_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,799) = (/ 0.891163600958424_dbl_kind, 0.894514006502812_dbl_kind, 0.898407428086078_dbl_kind, 0.911715917476724_dbl_kind, 0.966711530539617_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,800) = (/ 0.891164004848481_dbl_kind, 0.894514928421397_dbl_kind, 0.898411438379894_dbl_kind, 0.911728145932113_dbl_kind, 0.966729763037312_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,801) = (/ 0.891164407626823_dbl_kind, 0.894515849525498_dbl_kind, 0.898415446562356_dbl_kind, 0.911740368428733_dbl_kind, 0.96674795441337_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,802) = (/ 0.891164809297573_dbl_kind, 0.894516769820907_dbl_kind, 0.898419452638982_dbl_kind, 0.911752584982177_dbl_kind, 0.966766104787085_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,803) = (/ 0.891165209864841_dbl_kind, 0.894517689313362_dbl_kind, 0.898423456615256_dbl_kind, 0.911764795607952_dbl_kind, 0.966784214277306_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,804) = (/ 0.891165609332721_dbl_kind, 0.894518608008539_dbl_kind, 0.898427458496624_dbl_kind, 0.911777000321472_dbl_kind, 0.96680228300245_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,805) = (/ 0.891166007705292_dbl_kind, 0.894519525912064_dbl_kind, 0.898431458288495_dbl_kind, 0.911789199138063_dbl_kind, 0.966820311080498_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,806) = (/ 0.891166404986623_dbl_kind, 0.894520443029503_dbl_kind, 0.898435455996241_dbl_kind, 0.911801392072964_dbl_kind, 0.966838298628995_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,807) = (/ 0.891166801180764_dbl_kind, 0.894521359366371_dbl_kind, 0.898439451625201_dbl_kind, 0.911813579141322_dbl_kind, 0.96685624576506_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,808) = (/ 0.891167196291756_dbl_kind, 0.894522274928127_dbl_kind, 0.898443445180676_dbl_kind, 0.9118257603582_dbl_kind, 0.966874152605381_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,809) = (/ 0.891167590323619_dbl_kind, 0.894523189720175_dbl_kind, 0.898447436667932_dbl_kind, 0.911837935738572_dbl_kind, 0.966892019266216_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,810) = (/ 0.891167983280367_dbl_kind, 0.894524103747865_dbl_kind, 0.8984514260922_dbl_kind, 0.911850105297327_dbl_kind, 0.966909845863402_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,811) = (/ 0.891168375165993_dbl_kind, 0.894525017016497_dbl_kind, 0.898455413458676_dbl_kind, 0.911862269049267_dbl_kind, 0.966927632512352_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,812) = (/ 0.891168765984481_dbl_kind, 0.894525929531315_dbl_kind, 0.898459398772523_dbl_kind, 0.911874427009107_dbl_kind, 0.966945379328057_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,813) = (/ 0.891169155739798_dbl_kind, 0.894526841297512_dbl_kind, 0.898463382038868_dbl_kind, 0.911886579191483_dbl_kind, 0.966963086425086_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,814) = (/ 0.891169544435898_dbl_kind, 0.894527752320229_dbl_kind, 0.898467363262806_dbl_kind, 0.91189872561094_dbl_kind, 0.966980753917596_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,815) = (/ 0.891169932076723_dbl_kind, 0.894528662604553_dbl_kind, 0.898471342449397_dbl_kind, 0.911910866281945_dbl_kind, 0.966998381919323_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,816) = (/ 0.891170318666197_dbl_kind, 0.894529572155525_dbl_kind, 0.898475319603669_dbl_kind, 0.911923001218877_dbl_kind, 0.967015970543589_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,817) = (/ 0.891170704208234_dbl_kind, 0.894530480978129_dbl_kind, 0.898479294730615_dbl_kind, 0.911935130436035_dbl_kind, 0.967033519903311_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,818) = (/ 0.891171088706732_dbl_kind, 0.894531389077305_dbl_kind, 0.898483267835197_dbl_kind, 0.911947253947637_dbl_kind, 0.967051030110986_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,819) = (/ 0.891171472165577_dbl_kind, 0.894532296457937_dbl_kind, 0.898487238922345_dbl_kind, 0.911959371767816_dbl_kind, 0.967068501278709_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,820) = (/ 0.891171854588638_dbl_kind, 0.894533203124865_dbl_kind, 0.898491207996955_dbl_kind, 0.911971483910628_dbl_kind, 0.967085933518165_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,821) = (/ 0.891172235979774_dbl_kind, 0.894534109082873_dbl_kind, 0.898495175063894_dbl_kind, 0.911983590390047_dbl_kind, 0.967103326940637_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,822) = (/ 0.891172616342829_dbl_kind, 0.894535014336704_dbl_kind, 0.898499140127994_dbl_kind, 0.911995691219963_dbl_kind, 0.967120681657004_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,823) = (/ 0.891172995681631_dbl_kind, 0.894535918891047_dbl_kind, 0.898503103194058_dbl_kind, 0.912007786414195_dbl_kind, 0.967137997777741_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,824) = (/ 0.891173373999997_dbl_kind, 0.894536822750545_dbl_kind, 0.898507064266858_dbl_kind, 0.912019875986475_dbl_kind, 0.967155275412928_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,825) = (/ 0.891173751301731_dbl_kind, 0.894537725919794_dbl_kind, 0.898511023351134_dbl_kind, 0.91203195995046_dbl_kind, 0.967172514672245_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,826) = (/ 0.891174127590621_dbl_kind, 0.894538628403341_dbl_kind, 0.898514980451596_dbl_kind, 0.912044038319731_dbl_kind, 0.967189715664973_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,827) = (/ 0.891174502870442_dbl_kind, 0.894539530205687_dbl_kind, 0.898518935572924_dbl_kind, 0.912056111107788_dbl_kind, 0.967206878500002_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,828) = (/ 0.891174877144957_dbl_kind, 0.894540431331288_dbl_kind, 0.898522888719769_dbl_kind, 0.912068178328055_dbl_kind, 0.967224003285833_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,829) = (/ 0.891175250417912_dbl_kind, 0.894541331784551_dbl_kind, 0.898526839896751_dbl_kind, 0.912080239993883_dbl_kind, 0.967241090130568_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,830) = (/ 0.891175622693045_dbl_kind, 0.894542231569839_dbl_kind, 0.898530789108461_dbl_kind, 0.912092296118541_dbl_kind, 0.967258139141928_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,831) = (/ 0.891175993974076_dbl_kind, 0.894543130691471_dbl_kind, 0.898534736359459_dbl_kind, 0.912104346715228_dbl_kind, 0.967275150427239_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,832) = (/ 0.891176364264712_dbl_kind, 0.894544029153717_dbl_kind, 0.898538681654281_dbl_kind, 0.912116391797066_dbl_kind, 0.967292124093446_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,833) = (/ 0.891176733568649_dbl_kind, 0.894544926960807_dbl_kind, 0.898542624997428_dbl_kind, 0.912128431377102_dbl_kind, 0.967309060247111_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,834) = (/ 0.891177101889567_dbl_kind, 0.894545824116924_dbl_kind, 0.898546566393378_dbl_kind, 0.91214046546831_dbl_kind, 0.967325958994408_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,835) = (/ 0.891177469231135_dbl_kind, 0.894546720626207_dbl_kind, 0.898550505846578_dbl_kind, 0.912152494083589_dbl_kind, 0.967342820441139_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,836) = (/ 0.891177835597006_dbl_kind, 0.894547616492753_dbl_kind, 0.898554443361448_dbl_kind, 0.912164517235767_dbl_kind, 0.96735964469272_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,837) = (/ 0.891178200990823_dbl_kind, 0.894548511720615_dbl_kind, 0.89855837894238_dbl_kind, 0.912176534937599_dbl_kind, 0.967376431854188_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,838) = (/ 0.891178565416212_dbl_kind, 0.894549406313804_dbl_kind, 0.898562312593737_dbl_kind, 0.912188547201767_dbl_kind, 0.967393182030215_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,839) = (/ 0.891178928876789_dbl_kind, 0.894550300276287_dbl_kind, 0.898566244319859_dbl_kind, 0.912200554040883_dbl_kind, 0.967409895325087_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,840) = (/ 0.891179291376155_dbl_kind, 0.89455119361199_dbl_kind, 0.898570174125055_dbl_kind, 0.912212555467485_dbl_kind, 0.967426571842724_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,841) = (/ 0.891179652917898_dbl_kind, 0.894552086324797_dbl_kind, 0.898574102013609_dbl_kind, 0.912224551494044_dbl_kind, 0.967443211686676_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,842) = (/ 0.891180013505594_dbl_kind, 0.894552978418552_dbl_kind, 0.898578027989779_dbl_kind, 0.912236542132958_dbl_kind, 0.967459814960118_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,843) = (/ 0.891180373142804_dbl_kind, 0.894553869897055_dbl_kind, 0.898581952057796_dbl_kind, 0.912248527396557_dbl_kind, 0.967476381765862_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,844) = (/ 0.891180731833077_dbl_kind, 0.894554760764068_dbl_kind, 0.898585874221865_dbl_kind, 0.912260507297101_dbl_kind, 0.967492912206357_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,845) = (/ 0.89118108957995_dbl_kind, 0.894555651023311_dbl_kind, 0.898589794486166_dbl_kind, 0.91227248184678_dbl_kind, 0.967509406383678_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,846) = (/ 0.891181446386945_dbl_kind, 0.894556540678466_dbl_kind, 0.898593712854852_dbl_kind, 0.912284451057719_dbl_kind, 0.967525864399547_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,847) = (/ 0.891181802257571_dbl_kind, 0.894557429733174_dbl_kind, 0.898597629332052_dbl_kind, 0.912296414941971_dbl_kind, 0.96754228635532_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,848) = (/ 0.891182157195326_dbl_kind, 0.894558318191036_dbl_kind, 0.898601543921871_dbl_kind, 0.912308373511524_dbl_kind, 0.967558672351992_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,849) = (/ 0.891182511203695_dbl_kind, 0.894559206055615_dbl_kind, 0.898605456628385_dbl_kind, 0.912320326778299_dbl_kind, 0.967575022490204_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,850) = (/ 0.891182864286146_dbl_kind, 0.894560093330435_dbl_kind, 0.89860936745565_dbl_kind, 0.912332274754149_dbl_kind, 0.967591336870239_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,851) = (/ 0.89118321644614_dbl_kind, 0.894560980018983_dbl_kind, 0.898613276407697_dbl_kind, 0.912344217450862_dbl_kind, 0.967607615592023_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,852) = (/ 0.891183567687121_dbl_kind, 0.894561866124706_dbl_kind, 0.898617183488528_dbl_kind, 0.912356154880159_dbl_kind, 0.967623858755129_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,853) = (/ 0.891183918012521_dbl_kind, 0.894562751651015_dbl_kind, 0.898621088702128_dbl_kind, 0.912368087053698_dbl_kind, 0.967640066458781_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,854) = (/ 0.891184267425761_dbl_kind, 0.894563636601283_dbl_kind, 0.898624992052453_dbl_kind, 0.912380013983069_dbl_kind, 0.96765623880185_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,855) = (/ 0.891184615930246_dbl_kind, 0.894564520978845_dbl_kind, 0.898628893543438_dbl_kind, 0.9123919356798_dbl_kind, 0.967672375882858_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,856) = (/ 0.891184963529373_dbl_kind, 0.894565404787001_dbl_kind, 0.898632793178994_dbl_kind, 0.912403852155355_dbl_kind, 0.967688477799981_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,857) = (/ 0.891185310226521_dbl_kind, 0.894566288029015_dbl_kind, 0.898636690963009_dbl_kind, 0.912415763421133_dbl_kind, 0.967704544651047_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,858) = (/ 0.89118565602506_dbl_kind, 0.894567170708112_dbl_kind, 0.898640586899347_dbl_kind, 0.91242766948847_dbl_kind, 0.967720576533542_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,859) = (/ 0.891186000928346_dbl_kind, 0.894568052827485_dbl_kind, 0.898644480991853_dbl_kind, 0.912439570368639_dbl_kind, 0.967736573544607_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,860) = (/ 0.891186344939723_dbl_kind, 0.894568934390289_dbl_kind, 0.898648373244345_dbl_kind, 0.912451466072853_dbl_kind, 0.967752535781044_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,861) = (/ 0.891186688062522_dbl_kind, 0.894569815399645_dbl_kind, 0.898652263660622_dbl_kind, 0.91246335661226_dbl_kind, 0.967768463339312_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,862) = (/ 0.891187030300061_dbl_kind, 0.894570695858639_dbl_kind, 0.898656152244458_dbl_kind, 0.912475241997948_dbl_kind, 0.967784356315533_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,863) = (/ 0.891187371655646_dbl_kind, 0.894571575770323_dbl_kind, 0.898660038999608_dbl_kind, 0.912487122240944_dbl_kind, 0.967800214805491_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,864) = (/ 0.891187712132572_dbl_kind, 0.894572455137714_dbl_kind, 0.898663923929804_dbl_kind, 0.912498997352213_dbl_kind, 0.967816038904637_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,865) = (/ 0.891188051734118_dbl_kind, 0.894573333963795_dbl_kind, 0.898667807038757_dbl_kind, 0.912510867342661_dbl_kind, 0.967831828708085_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,866) = (/ 0.891188390463554_dbl_kind, 0.894574212251516_dbl_kind, 0.898671688330156_dbl_kind, 0.912522732223134_dbl_kind, 0.967847584310616_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,867) = (/ 0.891188728324137_dbl_kind, 0.894575090003795_dbl_kind, 0.89867556780767_dbl_kind, 0.912534592004416_dbl_kind, 0.967863305806682_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,868) = (/ 0.89118906531911_dbl_kind, 0.894575967223515_dbl_kind, 0.898679445474946_dbl_kind, 0.912546446697237_dbl_kind, 0.967878993290403_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,869) = (/ 0.891189401451705_dbl_kind, 0.894576843913527_dbl_kind, 0.898683321335612_dbl_kind, 0.912558296312262_dbl_kind, 0.967894646855571_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,870) = (/ 0.891189736725141_dbl_kind, 0.894577720076649_dbl_kind, 0.898687195393274_dbl_kind, 0.912570140860103_dbl_kind, 0.967910266595652_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,871) = (/ 0.891190071142627_dbl_kind, 0.89457859571567_dbl_kind, 0.898691067651518_dbl_kind, 0.912581980351311_dbl_kind, 0.967925852603785_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,872) = (/ 0.891190404707355_dbl_kind, 0.894579470833342_dbl_kind, 0.898694938113911_dbl_kind, 0.91259381479638_dbl_kind, 0.967941404972783_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,873) = (/ 0.89119073742251_dbl_kind, 0.89458034543239_dbl_kind, 0.898698806783998_dbl_kind, 0.912605644205746_dbl_kind, 0.96795692379514_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,874) = (/ 0.891191069291263_dbl_kind, 0.894581219515506_dbl_kind, 0.898702673665308_dbl_kind, 0.912617468589791_dbl_kind, 0.967972409163027_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,875) = (/ 0.891191400316771_dbl_kind, 0.89458209308535_dbl_kind, 0.898706538761345_dbl_kind, 0.912629287958837_dbl_kind, 0.967987861168293_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,876) = (/ 0.891191730502181_dbl_kind, 0.894582966144555_dbl_kind, 0.898710402075599_dbl_kind, 0.912641102323152_dbl_kind, 0.968003279902468_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,877) = (/ 0.891192059850628_dbl_kind, 0.894583838695719_dbl_kind, 0.898714263611539_dbl_kind, 0.912652911692947_dbl_kind, 0.968018665456768_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,878) = (/ 0.891192388365234_dbl_kind, 0.894584710741412_dbl_kind, 0.898718123372614_dbl_kind, 0.91266471607838_dbl_kind, 0.968034017922087_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,879) = (/ 0.89119271604911_dbl_kind, 0.894585582284176_dbl_kind, 0.898721981362254_dbl_kind, 0.912676515489551_dbl_kind, 0.968049337389012_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,880) = (/ 0.891193042905354_dbl_kind, 0.894586453326521_dbl_kind, 0.898725837583873_dbl_kind, 0.912688309936508_dbl_kind, 0.96806462394781_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,881) = (/ 0.891193368937052_dbl_kind, 0.894587323870929_dbl_kind, 0.898729692040865_dbl_kind, 0.912700099429242_dbl_kind, 0.968079877688437_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,882) = (/ 0.891193694147281_dbl_kind, 0.894588193919851_dbl_kind, 0.898733544736604_dbl_kind, 0.912711883977693_dbl_kind, 0.968095098700539_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,883) = (/ 0.891194018539101_dbl_kind, 0.894589063475712_dbl_kind, 0.89873739567445_dbl_kind, 0.912723663591746_dbl_kind, 0.968110287073455_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,884) = (/ 0.891194342115565_dbl_kind, 0.894589932540907_dbl_kind, 0.898741244857741_dbl_kind, 0.912735438281231_dbl_kind, 0.968125442896211_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,885) = (/ 0.891194664879712_dbl_kind, 0.894590801117803_dbl_kind, 0.898745092289801_dbl_kind, 0.91274720805593_dbl_kind, 0.96814056625753_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,886) = (/ 0.891194986834569_dbl_kind, 0.894591669208739_dbl_kind, 0.898748937973933_dbl_kind, 0.912758972925568_dbl_kind, 0.968155657245824_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,887) = (/ 0.891195307983152_dbl_kind, 0.894592536816027_dbl_kind, 0.898752781913424_dbl_kind, 0.912770732899819_dbl_kind, 0.96817071594921_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,888) = (/ 0.891195628328466_dbl_kind, 0.894593403941951_dbl_kind, 0.898756624111546_dbl_kind, 0.912782487988307_dbl_kind, 0.968185742455493_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,889) = (/ 0.891195947873503_dbl_kind, 0.894594270588768_dbl_kind, 0.898760464571551_dbl_kind, 0.912794238200602_dbl_kind, 0.968200736852177_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,890) = (/ 0.891196266621244_dbl_kind, 0.894595136758707_dbl_kind, 0.898764303296675_dbl_kind, 0.912805983546224_dbl_kind, 0.968215699226473_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,891) = (/ 0.891196584574658_dbl_kind, 0.894596002453973_dbl_kind, 0.898768140290138_dbl_kind, 0.912817724034644_dbl_kind, 0.968230629665284_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,892) = (/ 0.891196901736703_dbl_kind, 0.894596867676741_dbl_kind, 0.898771975555143_dbl_kind, 0.912829459675281_dbl_kind, 0.96824552825522_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,893) = (/ 0.891197218110326_dbl_kind, 0.894597732429164_dbl_kind, 0.898775809094877_dbl_kind, 0.912841190477502_dbl_kind, 0.968260395082593_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,894) = (/ 0.891197533698461_dbl_kind, 0.894598596713365_dbl_kind, 0.898779640912509_dbl_kind, 0.912852916450629_dbl_kind, 0.968275230233417_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,895) = (/ 0.891197848504032_dbl_kind, 0.894599460531445_dbl_kind, 0.898783471011196_dbl_kind, 0.912864637603929_dbl_kind, 0.968290033793418_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,896) = (/ 0.891198162529951_dbl_kind, 0.894600323885476_dbl_kind, 0.898787299394075_dbl_kind, 0.912876353946624_dbl_kind, 0.968304805848021_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,897) = (/ 0.891198475779118_dbl_kind, 0.894601186777509_dbl_kind, 0.898791126064269_dbl_kind, 0.912888065487886_dbl_kind, 0.968319546482366_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,898) = (/ 0.891198788254424_dbl_kind, 0.894602049209565_dbl_kind, 0.898794951024886_dbl_kind, 0.912899772236839_dbl_kind, 0.968334255781299_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,899) = (/ 0.891199099958746_dbl_kind, 0.894602911183645_dbl_kind, 0.898798774279018_dbl_kind, 0.912911474202557_dbl_kind, 0.968348933829376_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,900) = (/ 0.89119941089495_dbl_kind, 0.894603772701723_dbl_kind, 0.898802595829741_dbl_kind, 0.91292317139407_dbl_kind, 0.968363580710864_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,901) = (/ 0.891199721065892_dbl_kind, 0.89460463376575_dbl_kind, 0.898806415680118_dbl_kind, 0.912934863820356_dbl_kind, 0.968378196509749_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,902) = (/ 0.891200030474418_dbl_kind, 0.894605494377652_dbl_kind, 0.898810233833195_dbl_kind, 0.912946551490349_dbl_kind, 0.968392781309726_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,903) = (/ 0.891200339123359_dbl_kind, 0.894606354539331_dbl_kind, 0.898814050292005_dbl_kind, 0.912958234412937_dbl_kind, 0.968407335194205_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,904) = (/ 0.891200647015538_dbl_kind, 0.894607214252667_dbl_kind, 0.898817865059564_dbl_kind, 0.912969912596957_dbl_kind, 0.968421858246315_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,905) = (/ 0.891200954153766_dbl_kind, 0.894608073519515_dbl_kind, 0.898821678138876_dbl_kind, 0.912981586051204_dbl_kind, 0.968436350548902_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,906) = (/ 0.891201260540844_dbl_kind, 0.894608932341709_dbl_kind, 0.89882548953293_dbl_kind, 0.912993254784427_dbl_kind, 0.968450812184529_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,907) = (/ 0.891201566179559_dbl_kind, 0.894609790721058_dbl_kind, 0.8988292992447_dbl_kind, 0.913004918805326_dbl_kind, 0.968465243235486_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,908) = (/ 0.89120187107269_dbl_kind, 0.89461064865935_dbl_kind, 0.898833107277147_dbl_kind, 0.913016578122559_dbl_kind, 0.968479643783772_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,909) = (/ 0.891202175223004_dbl_kind, 0.894611506158348_dbl_kind, 0.898836913633217_dbl_kind, 0.913028232744738_dbl_kind, 0.968494013911123_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,910) = (/ 0.891202478633258_dbl_kind, 0.894612363219797_dbl_kind, 0.898840718315843_dbl_kind, 0.913039882680431_dbl_kind, 0.968508353698984_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,911) = (/ 0.891202781306195_dbl_kind, 0.894613219845417_dbl_kind, 0.898844521327946_dbl_kind, 0.913051527938159_dbl_kind, 0.968522663228538_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,912) = (/ 0.89120308324455_dbl_kind, 0.894614076036907_dbl_kind, 0.89884832267243_dbl_kind, 0.913063168526403_dbl_kind, 0.968536942580682_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,913) = (/ 0.891203384451048_dbl_kind, 0.894614931795945_dbl_kind, 0.898852122352189_dbl_kind, 0.913074804453597_dbl_kind, 0.968551191836051_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,914) = (/ 0.891203684928401_dbl_kind, 0.894615787124186_dbl_kind, 0.898855920370102_dbl_kind, 0.913086435728135_dbl_kind, 0.968565411074998_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,915) = (/ 0.891203984679311_dbl_kind, 0.894616642023265_dbl_kind, 0.898859716729035_dbl_kind, 0.913098062358363_dbl_kind, 0.968579600377614_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,916) = (/ 0.89120428370647_dbl_kind, 0.894617496494797_dbl_kind, 0.898863511431844_dbl_kind, 0.913109684352587_dbl_kind, 0.968593759823714_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,917) = (/ 0.891204582012557_dbl_kind, 0.894618350540375_dbl_kind, 0.898867304481367_dbl_kind, 0.913121301719072_dbl_kind, 0.968607889492849_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,918) = (/ 0.891204879600243_dbl_kind, 0.894619204161573_dbl_kind, 0.898871095880435_dbl_kind, 0.913132914466037_dbl_kind, 0.968621989464298_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,919) = (/ 0.891205176472188_dbl_kind, 0.894620057359943_dbl_kind, 0.898874885631863_dbl_kind, 0.913144522601662_dbl_kind, 0.968636059817075_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,920) = (/ 0.891205472631041_dbl_kind, 0.894620910137017_dbl_kind, 0.898878673738454_dbl_kind, 0.913156126134083_dbl_kind, 0.968650100629934_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,921) = (/ 0.891205768079439_dbl_kind, 0.894621762494308_dbl_kind, 0.898882460203_dbl_kind, 0.913167725071398_dbl_kind, 0.968664111981358_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,922) = (/ 0.891206062820011_dbl_kind, 0.894622614433309_dbl_kind, 0.89888624502828_dbl_kind, 0.91317931942166_dbl_kind, 0.968678093949569_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,923) = (/ 0.891206356855373_dbl_kind, 0.894623465955494_dbl_kind, 0.898890028217062_dbl_kind, 0.913190909192882_dbl_kind, 0.968692046612529_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,924) = (/ 0.891206650188134_dbl_kind, 0.894624317062317_dbl_kind, 0.898893809772103_dbl_kind, 0.913202494393038_dbl_kind, 0.968705970047937_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,925) = (/ 0.89120694282089_dbl_kind, 0.894625167755214_dbl_kind, 0.898897589696145_dbl_kind, 0.913214075030061_dbl_kind, 0.968719864333233_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,926) = (/ 0.891207234756226_dbl_kind, 0.8946260180356_dbl_kind, 0.898901367991922_dbl_kind, 0.913225651111844_dbl_kind, 0.9687337295456_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,927) = (/ 0.891207525996718_dbl_kind, 0.894626867904873_dbl_kind, 0.898905144662154_dbl_kind, 0.913237222646239_dbl_kind, 0.968747565761958_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,928) = (/ 0.891207816544934_dbl_kind, 0.894627717364412_dbl_kind, 0.898908919709552_dbl_kind, 0.91324878964106_dbl_kind, 0.968761373058976_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,929) = (/ 0.891208106403427_dbl_kind, 0.894628566415578_dbl_kind, 0.898912693136814_dbl_kind, 0.913260352104082_dbl_kind, 0.968775151513062_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,930) = (/ 0.891208395574743_dbl_kind, 0.894629415059714_dbl_kind, 0.898916464946628_dbl_kind, 0.913271910043039_dbl_kind, 0.968788901200377_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,931) = (/ 0.891208684061417_dbl_kind, 0.894630263298144_dbl_kind, 0.898920235141672_dbl_kind, 0.913283463465628_dbl_kind, 0.968802622196822_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,932) = (/ 0.891208971865973_dbl_kind, 0.894631111132175_dbl_kind, 0.898924003724611_dbl_kind, 0.913295012379508_dbl_kind, 0.968816314578047_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,933) = (/ 0.891209258990928_dbl_kind, 0.894631958563095_dbl_kind, 0.898927770698101_dbl_kind, 0.913306556792298_dbl_kind, 0.968829978419451_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,934) = (/ 0.891209545438784_dbl_kind, 0.894632805592179_dbl_kind, 0.898931536064786_dbl_kind, 0.91331809671158_dbl_kind, 0.968843613796182_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,935) = (/ 0.891209831212037_dbl_kind, 0.894633652220679_dbl_kind, 0.898935299827302_dbl_kind, 0.9133296321449_dbl_kind, 0.968857220783141_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,936) = (/ 0.891210116313172_dbl_kind, 0.894634498449834_dbl_kind, 0.898939061988272_dbl_kind, 0.913341163099763_dbl_kind, 0.968870799454978_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,937) = (/ 0.891210400744663_dbl_kind, 0.894635344280863_dbl_kind, 0.898942822550312_dbl_kind, 0.913352689583639_dbl_kind, 0.968884349886093_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,938) = (/ 0.891210684508974_dbl_kind, 0.894636189714972_dbl_kind, 0.898946581516024_dbl_kind, 0.913364211603962_dbl_kind, 0.968897872150648_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,939) = (/ 0.891210967608562_dbl_kind, 0.894637034753347_dbl_kind, 0.898950338888004_dbl_kind, 0.913375729168128_dbl_kind, 0.968911366322552_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,940) = (/ 0.89121125004587_dbl_kind, 0.89463787939716_dbl_kind, 0.898954094668835_dbl_kind, 0.913387242283497_dbl_kind, 0.968924832475472_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,941) = (/ 0.891211531823334_dbl_kind, 0.894638723647566_dbl_kind, 0.898957848861093_dbl_kind, 0.913398750957393_dbl_kind, 0.968938270682833_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,942) = (/ 0.891211812943378_dbl_kind, 0.894639567505704_dbl_kind, 0.898961601467342_dbl_kind, 0.913410255197104_dbl_kind, 0.968951681017813_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,943) = (/ 0.89121209340842_dbl_kind, 0.894640410972696_dbl_kind, 0.898965352490138_dbl_kind, 0.913421755009881_dbl_kind, 0.968965063553355_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,944) = (/ 0.891212373220864_dbl_kind, 0.89464125404965_dbl_kind, 0.898969101932028_dbl_kind, 0.913433250402942_dbl_kind, 0.968978418362157_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,945) = (/ 0.891212652383106_dbl_kind, 0.894642096737658_dbl_kind, 0.898972849795549_dbl_kind, 0.913444741383468_dbl_kind, 0.968991745516678_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,946) = (/ 0.891212930897534_dbl_kind, 0.894642939037797_dbl_kind, 0.898976596083227_dbl_kind, 0.913456227958608_dbl_kind, 0.969005045089141_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,947) = (/ 0.891213208766524_dbl_kind, 0.894643780951128_dbl_kind, 0.898980340797585_dbl_kind, 0.913467710135471_dbl_kind, 0.969018317151528_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,948) = (/ 0.891213485992444_dbl_kind, 0.894644622478697_dbl_kind, 0.898984083941129_dbl_kind, 0.913479187921137_dbl_kind, 0.969031561775588_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,949) = (/ 0.89121376257765_dbl_kind, 0.894645463621535_dbl_kind, 0.898987825516362_dbl_kind, 0.913490661322649_dbl_kind, 0.969044779032829_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,950) = (/ 0.891214038524492_dbl_kind, 0.89464630438066_dbl_kind, 0.898991565525777_dbl_kind, 0.913502130347015_dbl_kind, 0.969057968994534_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,951) = (/ 0.891214313835307_dbl_kind, 0.894647144757074_dbl_kind, 0.898995303971857_dbl_kind, 0.913513595001212_dbl_kind, 0.969071131731737_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,952) = (/ 0.891214588512427_dbl_kind, 0.894647984751764_dbl_kind, 0.898999040857077_dbl_kind, 0.913525055292182_dbl_kind, 0.969084267315254_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,953) = (/ 0.891214862558169_dbl_kind, 0.894648824365704_dbl_kind, 0.899002776183906_dbl_kind, 0.913536511226835_dbl_kind, 0.969097375815662_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,954) = (/ 0.891215135974846_dbl_kind, 0.894649663599853_dbl_kind, 0.899006509954802_dbl_kind, 0.913547962812045_dbl_kind, 0.969110457303307_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,955) = (/ 0.891215408764757_dbl_kind, 0.894650502455157_dbl_kind, 0.899010242172215_dbl_kind, 0.913559410054656_dbl_kind, 0.969123511848308_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,956) = (/ 0.891215680930195_dbl_kind, 0.894651340932548_dbl_kind, 0.899013972838589_dbl_kind, 0.913570852961479_dbl_kind, 0.969136539520551_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,957) = (/ 0.891215952473442_dbl_kind, 0.894652179032943_dbl_kind, 0.899017701956357_dbl_kind, 0.913582291539291_dbl_kind, 0.969149540389697_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,958) = (/ 0.891216223396773_dbl_kind, 0.894653016757248_dbl_kind, 0.899021429527947_dbl_kind, 0.91359372579484_dbl_kind, 0.969162514525179_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,959) = (/ 0.891216493702449_dbl_kind, 0.894653854106352_dbl_kind, 0.899025155555777_dbl_kind, 0.913605155734837_dbl_kind, 0.9691754619962_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,960) = (/ 0.891216763392728_dbl_kind, 0.894654691081136_dbl_kind, 0.899028880042259_dbl_kind, 0.913616581365967_dbl_kind, 0.969188382871744_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,961) = (/ 0.891217032469854_dbl_kind, 0.894655527682462_dbl_kind, 0.899032602989796_dbl_kind, 0.91362800269488_dbl_kind, 0.969201277220564_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,962) = (/ 0.891217300936065_dbl_kind, 0.894656363911184_dbl_kind, 0.899036324400786_dbl_kind, 0.913639419728194_dbl_kind, 0.969214145111193_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,963) = (/ 0.891217568793587_dbl_kind, 0.89465719976814_dbl_kind, 0.899040044277617_dbl_kind, 0.913650832472499_dbl_kind, 0.969226986611943_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,964) = (/ 0.89121783604464_dbl_kind, 0.894658035254158_dbl_kind, 0.89904376262267_dbl_kind, 0.913662240934353_dbl_kind, 0.9692398017909_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,965) = (/ 0.891218102691432_dbl_kind, 0.89465887037005_dbl_kind, 0.89904747943832_dbl_kind, 0.913673645120281_dbl_kind, 0.96925259071593_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,966) = (/ 0.891218368736166_dbl_kind, 0.89465970511662_dbl_kind, 0.899051194726935_dbl_kind, 0.913685045036781_dbl_kind, 0.969265353454678_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,967) = (/ 0.891218634181031_dbl_kind, 0.894660539494657_dbl_kind, 0.899054908490874_dbl_kind, 0.91369644069032_dbl_kind, 0.969278090074577_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,968) = (/ 0.891218899028212_dbl_kind, 0.894661373504937_dbl_kind, 0.899058620732491_dbl_kind, 0.913707832087333_dbl_kind, 0.969290800642828_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,969) = (/ 0.891219163279882_dbl_kind, 0.894662207148227_dbl_kind, 0.899062331454133_dbl_kind, 0.913719219234227_dbl_kind, 0.969303485226426_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,970) = (/ 0.891219426938206_dbl_kind, 0.89466304042528_dbl_kind, 0.89906604065814_dbl_kind, 0.913730602137378_dbl_kind, 0.969316143892148_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,971) = (/ 0.891219690005341_dbl_kind, 0.894663873336837_dbl_kind, 0.899069748346844_dbl_kind, 0.913741980803135_dbl_kind, 0.969328776706547_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,972) = (/ 0.891219952483433_dbl_kind, 0.894664705883631_dbl_kind, 0.899073454522573_dbl_kind, 0.913753355237814_dbl_kind, 0.96934138373597_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,973) = (/ 0.891220214374621_dbl_kind, 0.894665538066378_dbl_kind, 0.899077159187646_dbl_kind, 0.913764725447707_dbl_kind, 0.969353965046548_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,974) = (/ 0.891220475681036_dbl_kind, 0.894666369885788_dbl_kind, 0.899080862344379_dbl_kind, 0.913776091439072_dbl_kind, 0.969366520704194_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,975) = (/ 0.8912207364048_dbl_kind, 0.894667201342556_dbl_kind, 0.899084563995077_dbl_kind, 0.913787453218143_dbl_kind, 0.969379050774614_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,976) = (/ 0.891220996548024_dbl_kind, 0.894668032437368_dbl_kind, 0.899088264142043_dbl_kind, 0.913798810791121_dbl_kind, 0.969391555323299_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,977) = (/ 0.891221256112813_dbl_kind, 0.894668863170898_dbl_kind, 0.899091962787571_dbl_kind, 0.913810164164183_dbl_kind, 0.969404034415531_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,978) = (/ 0.891221515101263_dbl_kind, 0.89466969354381_dbl_kind, 0.899095659933952_dbl_kind, 0.913821513343476_dbl_kind, 0.969416488116384_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,979) = (/ 0.891221773515459_dbl_kind, 0.894670523556757_dbl_kind, 0.899099355583467_dbl_kind, 0.913832858335119_dbl_kind, 0.969428916490717_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,980) = (/ 0.891222031357482_dbl_kind, 0.894671353210381_dbl_kind, 0.899103049738396_dbl_kind, 0.913844199145204_dbl_kind, 0.969441319603186_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,981) = (/ 0.891222288629401_dbl_kind, 0.894672182505315_dbl_kind, 0.899106742401008_dbl_kind, 0.913855535779795_dbl_kind, 0.969453697518237_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,982) = (/ 0.891222545333278_dbl_kind, 0.89467301144218_dbl_kind, 0.89911043357357_dbl_kind, 0.913866868244929_dbl_kind, 0.969466050300112_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,983) = (/ 0.891222801471166_dbl_kind, 0.894673840021587_dbl_kind, 0.899114123258343_dbl_kind, 0.913878196546615_dbl_kind, 0.969478378012843_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,984) = (/ 0.89122305704511_dbl_kind, 0.894674668244138_dbl_kind, 0.89911781145758_dbl_kind, 0.913889520690837_dbl_kind, 0.969490680720261_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,985) = (/ 0.891223312057146_dbl_kind, 0.894675496110425_dbl_kind, 0.899121498173531_dbl_kind, 0.913900840683551_dbl_kind, 0.969502958485991_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,986) = (/ 0.891223566509302_dbl_kind, 0.894676323621028_dbl_kind, 0.89912518340844_dbl_kind, 0.913912156530688_dbl_kind, 0.969515211373454_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,987) = (/ 0.891223820403599_dbl_kind, 0.894677150776519_dbl_kind, 0.899128867164546_dbl_kind, 0.91392346823815_dbl_kind, 0.96952743944587_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,988) = (/ 0.891224073742048_dbl_kind, 0.894677977577461_dbl_kind, 0.899132549444081_dbl_kind, 0.913934775811814_dbl_kind, 0.969539642766254_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,989) = (/ 0.891224326526653_dbl_kind, 0.894678804024407_dbl_kind, 0.899136230249273_dbl_kind, 0.913946079257533_dbl_kind, 0.969551821397425_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,990) = (/ 0.891224578759409_dbl_kind, 0.894679630117898_dbl_kind, 0.899139909582346_dbl_kind, 0.913957378581131_dbl_kind, 0.969563975401998_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,991) = (/ 0.891224830442302_dbl_kind, 0.894680455858471_dbl_kind, 0.899143587445517_dbl_kind, 0.913968673788408_dbl_kind, 0.96957610484239_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,992) = (/ 0.891225081577313_dbl_kind, 0.894681281246648_dbl_kind, 0.899147263841_dbl_kind, 0.913979964885139_dbl_kind, 0.969588209780819_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,993) = (/ 0.891225332166412_dbl_kind, 0.894682106282946_dbl_kind, 0.899150938771002_dbl_kind, 0.913991251877072_dbl_kind, 0.969600290279303_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,994) = (/ 0.891225582211561_dbl_kind, 0.894682930967871_dbl_kind, 0.899154612237727_dbl_kind, 0.914002534769932_dbl_kind, 0.969612346399665_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,995) = (/ 0.891225831714716_dbl_kind, 0.894683755301921_dbl_kind, 0.899158284243373_dbl_kind, 0.914013813569417_dbl_kind, 0.969624378203534_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,996) = (/ 0.891226080677824_dbl_kind, 0.894684579285586_dbl_kind, 0.899161954790135_dbl_kind, 0.914025088281203_dbl_kind, 0.969636385752338_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,997) = (/ 0.891226329102824_dbl_kind, 0.894685402919345_dbl_kind, 0.899165623880201_dbl_kind, 0.914036358910937_dbl_kind, 0.969648369107312_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,998) = (/ 0.891226576991646_dbl_kind, 0.89468622620367_dbl_kind, 0.899169291515756_dbl_kind, 0.914047625464247_dbl_kind, 0.969660328329503_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,999) = (/ 0.891226824346213_dbl_kind, 0.894687049139025_dbl_kind, 0.899172957698981_dbl_kind, 0.914058887946731_dbl_kind, 0.969672263479754_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1000) = (/ 0.891227071168442_dbl_kind, 0.894687871725864_dbl_kind, 0.899176622432052_dbl_kind, 0.914070146363969_dbl_kind, 0.969684174618725_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1001) = (/ 0.891227317460239_dbl_kind, 0.894688693964635_dbl_kind, 0.899180285717139_dbl_kind, 0.91408140072151_dbl_kind, 0.969696061806877_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1002) = (/ 0.891227563223504_dbl_kind, 0.894689515855775_dbl_kind, 0.899183947556411_dbl_kind, 0.914092651024887_dbl_kind, 0.969707925104485_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1003) = (/ 0.89122780846013_dbl_kind, 0.894690337399715_dbl_kind, 0.899187607952031_dbl_kind, 0.914103897279603_dbl_kind, 0.96971976457163_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1004) = (/ 0.891228053171999_dbl_kind, 0.894691158596878_dbl_kind, 0.899191266906156_dbl_kind, 0.914115139491141_dbl_kind, 0.969731580268205_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1005) = (/ 0.891228297360988_dbl_kind, 0.894691979447679_dbl_kind, 0.899194924420944_dbl_kind, 0.914126377664959_dbl_kind, 0.969743372253915_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1006) = (/ 0.891228541028967_dbl_kind, 0.894692799952524_dbl_kind, 0.899198580498543_dbl_kind, 0.914137611806492_dbl_kind, 0.969755140588275_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1007) = (/ 0.891228784177796_dbl_kind, 0.894693620111813_dbl_kind, 0.899202235141102_dbl_kind, 0.914148841921155_dbl_kind, 0.969766885330615_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1008) = (/ 0.891229026809329_dbl_kind, 0.894694439925936_dbl_kind, 0.899205888350762_dbl_kind, 0.914160068014334_dbl_kind, 0.969778606540073_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1009) = (/ 0.891229268925412_dbl_kind, 0.894695259395278_dbl_kind, 0.899209540129664_dbl_kind, 0.914171290091399_dbl_kind, 0.969790304275612_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1010) = (/ 0.891229510527882_dbl_kind, 0.894696078520216_dbl_kind, 0.899213190479944_dbl_kind, 0.914182508157693_dbl_kind, 0.969801978595992_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1011) = (/ 0.891229751618572_dbl_kind, 0.894696897301119_dbl_kind, 0.899216839403731_dbl_kind, 0.914193722218539_dbl_kind, 0.969813629559806_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1012) = (/ 0.891229992199304_dbl_kind, 0.894697715738349_dbl_kind, 0.899220486903155_dbl_kind, 0.914204932279236_dbl_kind, 0.969825257225456_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1013) = (/ 0.891230232271893_dbl_kind, 0.894698533832262_dbl_kind, 0.899224132980341_dbl_kind, 0.914216138345061_dbl_kind, 0.969836861651157_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1014) = (/ 0.89123047183815_dbl_kind, 0.894699351583205_dbl_kind, 0.899227777637409_dbl_kind, 0.914227340421272_dbl_kind, 0.969848442894949_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1015) = (/ 0.891230710899874_dbl_kind, 0.89470016899152_dbl_kind, 0.899231420876477_dbl_kind, 0.914238538513101_dbl_kind, 0.969860001014686_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1016) = (/ 0.89123094945886_dbl_kind, 0.89470098605754_dbl_kind, 0.899235062699658_dbl_kind, 0.914249732625762_dbl_kind, 0.96987153606804_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1017) = (/ 0.891231187516893_dbl_kind, 0.894701802781592_dbl_kind, 0.899238703109063_dbl_kind, 0.914260922764444_dbl_kind, 0.969883048112505_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1018) = (/ 0.891231425075753_dbl_kind, 0.894702619163998_dbl_kind, 0.8992423421068_dbl_kind, 0.914272108934319_dbl_kind, 0.969894537205393_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1019) = (/ 0.891231662137211_dbl_kind, 0.894703435205072_dbl_kind, 0.899245979694974_dbl_kind, 0.914283291140534_dbl_kind, 0.969906003403842_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1020) = (/ 0.891231898703032_dbl_kind, 0.894704250905121_dbl_kind, 0.899249615875684_dbl_kind, 0.914294469388215_dbl_kind, 0.969917446764807_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1021) = (/ 0.891232134774974_dbl_kind, 0.894705066264445_dbl_kind, 0.899253250651029_dbl_kind, 0.91430564368247_dbl_kind, 0.969928867345064_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1022) = (/ 0.891232370354786_dbl_kind, 0.89470588128334_dbl_kind, 0.899256884023102_dbl_kind, 0.914316814028383_dbl_kind, 0.969940265201216_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1023) = (/ 0.891232605444211_dbl_kind, 0.894706695962094_dbl_kind, 0.899260515993997_dbl_kind, 0.91432798043102_dbl_kind, 0.969951640389691_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1024) = (/ 0.891232840044986_dbl_kind, 0.89470751030099_dbl_kind, 0.899264146565801_dbl_kind, 0.914339142895427_dbl_kind, 0.969962992966734_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1025) = (/ 0.891233074158838_dbl_kind, 0.894708324300303_dbl_kind, 0.8992677757406_dbl_kind, 0.914350301426625_dbl_kind, 0.969974322988425_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1026) = (/ 0.89123330778749_dbl_kind, 0.894709137960303_dbl_kind, 0.899271403520476_dbl_kind, 0.914361456029618_dbl_kind, 0.969985630510661_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1027) = (/ 0.891233540932655_dbl_kind, 0.894709951281255_dbl_kind, 0.899275029907511_dbl_kind, 0.914372606709391_dbl_kind, 0.969996915589172_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1028) = (/ 0.891233773596043_dbl_kind, 0.894710764263416_dbl_kind, 0.899278654903779_dbl_kind, 0.914383753470907_dbl_kind, 0.970008178279508_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1029) = (/ 0.891234005779352_dbl_kind, 0.89471157690704_dbl_kind, 0.899282278511356_dbl_kind, 0.914394896319109_dbl_kind, 0.970019418637055_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1030) = (/ 0.891234237484277_dbl_kind, 0.894712389212371_dbl_kind, 0.899285900732314_dbl_kind, 0.914406035258923_dbl_kind, 0.97003063671702_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1031) = (/ 0.891234468712505_dbl_kind, 0.894713201179652_dbl_kind, 0.899289521568721_dbl_kind, 0.914417170295251_dbl_kind, 0.970041832574444_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1032) = (/ 0.891234699465715_dbl_kind, 0.894714012809117_dbl_kind, 0.899293141022643_dbl_kind, 0.914428301432979_dbl_kind, 0.970053006264197_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1033) = (/ 0.89123492974558_dbl_kind, 0.894714824100997_dbl_kind, 0.899296759096146_dbl_kind, 0.914439428676974_dbl_kind, 0.970064157840974_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1034) = (/ 0.891235159553766_dbl_kind, 0.894715635055516_dbl_kind, 0.899300375791288_dbl_kind, 0.914450552032079_dbl_kind, 0.97007528735931_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1035) = (/ 0.891235388891933_dbl_kind, 0.894716445672891_dbl_kind, 0.899303991110129_dbl_kind, 0.914461671503125_dbl_kind, 0.970086394873561_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1036) = (/ 0.891235617761733_dbl_kind, 0.894717255953339_dbl_kind, 0.899307605054725_dbl_kind, 0.914472787094917_dbl_kind, 0.970097480437925_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1037) = (/ 0.891235846164811_dbl_kind, 0.894718065897066_dbl_kind, 0.89931121762713_dbl_kind, 0.914483898812248_dbl_kind, 0.970108544106431_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1038) = (/ 0.891236074102807_dbl_kind, 0.894718875504277_dbl_kind, 0.899314828829396_dbl_kind, 0.914495006659886_dbl_kind, 0.970119585932935_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1039) = (/ 0.891236301577353_dbl_kind, 0.894719684775168_dbl_kind, 0.89931843866357_dbl_kind, 0.914506110642584_dbl_kind, 0.970130605971131_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1040) = (/ 0.891236528590075_dbl_kind, 0.894720493709934_dbl_kind, 0.899322047131701_dbl_kind, 0.914517210765076_dbl_kind, 0.970141604274551_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1041) = (/ 0.891236755142591_dbl_kind, 0.894721302308762_dbl_kind, 0.899325654235833_dbl_kind, 0.914528307032078_dbl_kind, 0.97015258089656_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1042) = (/ 0.891236981236514_dbl_kind, 0.894722110571836_dbl_kind, 0.899329259978007_dbl_kind, 0.914539399448285_dbl_kind, 0.970163535890356_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1043) = (/ 0.891237206873449_dbl_kind, 0.894722918499334_dbl_kind, 0.899332864360265_dbl_kind, 0.914550488018378_dbl_kind, 0.970174469308977_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1044) = (/ 0.891237432054996_dbl_kind, 0.89472372609143_dbl_kind, 0.899336467384644_dbl_kind, 0.914561572747017_dbl_kind, 0.970185381205298_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1045) = (/ 0.891237656782747_dbl_kind, 0.894724533348293_dbl_kind, 0.89934006905318_dbl_kind, 0.914572653638845_dbl_kind, 0.970196271632029_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1046) = (/ 0.891237881058289_dbl_kind, 0.894725340270087_dbl_kind, 0.899343669367906_dbl_kind, 0.914583730698488_dbl_kind, 0.970207140641725_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1047) = (/ 0.891238104883201_dbl_kind, 0.894726146856972_dbl_kind, 0.899347268330855_dbl_kind, 0.914594803930552_dbl_kind, 0.970217988286772_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1048) = (/ 0.891238328259055_dbl_kind, 0.894726953109104_dbl_kind, 0.899350865944057_dbl_kind, 0.914605873339629_dbl_kind, 0.970228814619399_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1049) = (/ 0.891238551187421_dbl_kind, 0.894727759026632_dbl_kind, 0.899354462209539_dbl_kind, 0.914616938930291_dbl_kind, 0.970239619691676_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1050) = (/ 0.891238773669856_dbl_kind, 0.894728564609705_dbl_kind, 0.899358057129327_dbl_kind, 0.914628000707093_dbl_kind, 0.970250403555518_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1051) = (/ 0.891238995707915_dbl_kind, 0.894729369858463_dbl_kind, 0.899361650705446_dbl_kind, 0.914639058674572_dbl_kind, 0.97026116626267_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1052) = (/ 0.891239217303147_dbl_kind, 0.894730174773044_dbl_kind, 0.899365242939917_dbl_kind, 0.914650112837251_dbl_kind, 0.97027190786473_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1053) = (/ 0.891239438457092_dbl_kind, 0.894730979353584_dbl_kind, 0.89936883383476_dbl_kind, 0.914661163199633_dbl_kind, 0.970282628413133_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1054) = (/ 0.891239659171285_dbl_kind, 0.89473178360021_dbl_kind, 0.899372423391995_dbl_kind, 0.914672209766205_dbl_kind, 0.970293327959159_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1055) = (/ 0.891239879447254_dbl_kind, 0.894732587513049_dbl_kind, 0.899376011613638_dbl_kind, 0.914683252541437_dbl_kind, 0.970304006553931_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1056) = (/ 0.891240099286524_dbl_kind, 0.894733391092221_dbl_kind, 0.899379598501704_dbl_kind, 0.914694291529783_dbl_kind, 0.970314664248418_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1057) = (/ 0.891240318690608_dbl_kind, 0.894734194337846_dbl_kind, 0.899383184058207_dbl_kind, 0.914705326735679_dbl_kind, 0.970325301093431_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1058) = (/ 0.891240537661019_dbl_kind, 0.894734997250035_dbl_kind, 0.899386768285158_dbl_kind, 0.914716358163547_dbl_kind, 0.970335917139631_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1059) = (/ 0.89124075619926_dbl_kind, 0.8947357998289_dbl_kind, 0.899390351184567_dbl_kind, 0.914727385817789_dbl_kind, 0.970346512437518_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1060) = (/ 0.891240974306828_dbl_kind, 0.894736602074545_dbl_kind, 0.899393932758443_dbl_kind, 0.914738409702794_dbl_kind, 0.970357087037447_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1061) = (/ 0.891241191985214_dbl_kind, 0.894737403987073_dbl_kind, 0.899397513008792_dbl_kind, 0.914749429822934_dbl_kind, 0.970367640989616_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1062) = (/ 0.891241409235906_dbl_kind, 0.894738205566583_dbl_kind, 0.89940109193762_dbl_kind, 0.914760446182563_dbl_kind, 0.970378174344068_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1063) = (/ 0.891241626060381_dbl_kind, 0.894739006813169_dbl_kind, 0.899404669546931_dbl_kind, 0.914771458786023_dbl_kind, 0.970388687150701_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1064) = (/ 0.891241842460115_dbl_kind, 0.894739807726924_dbl_kind, 0.899408245838727_dbl_kind, 0.914782467637635_dbl_kind, 0.970399179459256_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1065) = (/ 0.891242058436573_dbl_kind, 0.894740608307934_dbl_kind, 0.899411820815008_dbl_kind, 0.914793472741708_dbl_kind, 0.970409651319328_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1066) = (/ 0.891242273991218_dbl_kind, 0.894741408556284_dbl_kind, 0.899415394477773_dbl_kind, 0.914804474102535_dbl_kind, 0.970420102780359_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1067) = (/ 0.891242489125505_dbl_kind, 0.894742208472056_dbl_kind, 0.899418966829022_dbl_kind, 0.914815471724391_dbl_kind, 0.970430533891643_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1068) = (/ 0.891242703840884_dbl_kind, 0.894743008055326_dbl_kind, 0.899422537870749_dbl_kind, 0.914826465611537_dbl_kind, 0.970440944702322_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1069) = (/ 0.891242918138798_dbl_kind, 0.89474380730617_dbl_kind, 0.899426107604951_dbl_kind, 0.91483745576822_dbl_kind, 0.970451335261396_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1070) = (/ 0.891243132020684_dbl_kind, 0.894744606224657_dbl_kind, 0.899429676033621_dbl_kind, 0.914848442198669_dbl_kind, 0.970461705617713_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1071) = (/ 0.891243345487977_dbl_kind, 0.894745404810857_dbl_kind, 0.899433243158751_dbl_kind, 0.9148594249071_dbl_kind, 0.970472055819971_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1072) = (/ 0.891243558542099_dbl_kind, 0.894746203064832_dbl_kind, 0.899436808982332_dbl_kind, 0.914870403897712_dbl_kind, 0.970482385916727_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1073) = (/ 0.891243771184473_dbl_kind, 0.894747000986647_dbl_kind, 0.899440373506354_dbl_kind, 0.91488137917469_dbl_kind, 0.970492695956392_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1074) = (/ 0.891243983416513_dbl_kind, 0.894747798576357_dbl_kind, 0.899443936732806_dbl_kind, 0.914892350742204_dbl_kind, 0.970502985987225_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1075) = (/ 0.891244195239628_dbl_kind, 0.89474859583402_dbl_kind, 0.899447498663675_dbl_kind, 0.914903318604409_dbl_kind, 0.970513256057347_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1076) = (/ 0.89124440665522_dbl_kind, 0.894749392759688_dbl_kind, 0.899451059300947_dbl_kind, 0.914914282765446_dbl_kind, 0.970523506214729_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1077) = (/ 0.891244617664686_dbl_kind, 0.894750189353409_dbl_kind, 0.899454618646606_dbl_kind, 0.91492524322944_dbl_kind, 0.970533736507203_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1078) = (/ 0.89124482826942_dbl_kind, 0.894750985615232_dbl_kind, 0.899458176702636_dbl_kind, 0.914936200000501_dbl_kind, 0.970543946982453_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1079) = (/ 0.891245038470804_dbl_kind, 0.8947517815452_dbl_kind, 0.89946173347102_dbl_kind, 0.914947153082726_dbl_kind, 0.970554137688023_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1080) = (/ 0.891245248270222_dbl_kind, 0.894752577143353_dbl_kind, 0.899465288953739_dbl_kind, 0.914958102480198_dbl_kind, 0.970564308671313_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1081) = (/ 0.891245457669047_dbl_kind, 0.894753372409731_dbl_kind, 0.899468843152773_dbl_kind, 0.914969048196983_dbl_kind, 0.970574459979582_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1082) = (/ 0.891245666668647_dbl_kind, 0.894754167344369_dbl_kind, 0.899472396070101_dbl_kind, 0.914979990237134_dbl_kind, 0.970584591659946_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1083) = (/ 0.891245875270388_dbl_kind, 0.894754961947301_dbl_kind, 0.8994759477077_dbl_kind, 0.914990928604693_dbl_kind, 0.970594703759385_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1084) = (/ 0.891246083475625_dbl_kind, 0.894755756218556_dbl_kind, 0.899479498067549_dbl_kind, 0.915001863303681_dbl_kind, 0.970604796324732_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1085) = (/ 0.891246291285714_dbl_kind, 0.894756550158162_dbl_kind, 0.899483047151621_dbl_kind, 0.915012794338111_dbl_kind, 0.970614869402684_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1086) = (/ 0.891246498701998_dbl_kind, 0.894757343766145_dbl_kind, 0.899486594961893_dbl_kind, 0.91502372171198_dbl_kind, 0.970624923039798_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1087) = (/ 0.891246705725821_dbl_kind, 0.894758137042528_dbl_kind, 0.899490141500337_dbl_kind, 0.915034645429271_dbl_kind, 0.970634957282494_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1088) = (/ 0.891246912358518_dbl_kind, 0.894758929987331_dbl_kind, 0.899493686768927_dbl_kind, 0.915045565493954_dbl_kind, 0.970644972177045_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1089) = (/ 0.89124711860142_dbl_kind, 0.894759722600573_dbl_kind, 0.899497230769634_dbl_kind, 0.915056481909982_dbl_kind, 0.970654967769603_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1090) = (/ 0.891247324455852_dbl_kind, 0.894760514882269_dbl_kind, 0.899500773504427_dbl_kind, 0.9150673946813_dbl_kind, 0.970664944106167_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1091) = (/ 0.891247529923133_dbl_kind, 0.894761306832432_dbl_kind, 0.899504314975278_dbl_kind, 0.915078303811834_dbl_kind, 0.970674901232603_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1092) = (/ 0.891247735004579_dbl_kind, 0.894762098451075_dbl_kind, 0.899507855184154_dbl_kind, 0.9150892093055_dbl_kind, 0.970684839194647_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1093) = (/ 0.891247939701497_dbl_kind, 0.894762889738205_dbl_kind, 0.899511394133024_dbl_kind, 0.915100111166198_dbl_kind, 0.970694758037891_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1094) = (/ 0.891248144015193_dbl_kind, 0.894763680693829_dbl_kind, 0.899514931823854_dbl_kind, 0.915111009397818_dbl_kind, 0.970704657807799_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1095) = (/ 0.891248347946963_dbl_kind, 0.894764471317953_dbl_kind, 0.899518468258609_dbl_kind, 0.915121904004234_dbl_kind, 0.970714538549695_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1096) = (/ 0.891248551498102_dbl_kind, 0.894765261610578_dbl_kind, 0.899522003439254_dbl_kind, 0.915132794989308_dbl_kind, 0.970724400308768_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1097) = (/ 0.891248754669897_dbl_kind, 0.894766051571705_dbl_kind, 0.899525537367754_dbl_kind, 0.915143682356887_dbl_kind, 0.970734243130078_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1098) = (/ 0.891248957463631_dbl_kind, 0.894766841201333_dbl_kind, 0.899529070046071_dbl_kind, 0.915154566110808_dbl_kind, 0.970744067058547_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1099) = (/ 0.891249159880582_dbl_kind, 0.894767630499458_dbl_kind, 0.899532601476168_dbl_kind, 0.915165446254892_dbl_kind, 0.970753872138966_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1100) = (/ 0.891249361922022_dbl_kind, 0.894768419466074_dbl_kind, 0.899536131660006_dbl_kind, 0.91517632279295_dbl_kind, 0.970763658415996_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1101) = (/ 0.891249563589217_dbl_kind, 0.894769208101174_dbl_kind, 0.899539660599543_dbl_kind, 0.915187195728777_dbl_kind, 0.970773425934162_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1102) = (/ 0.89124976488343_dbl_kind, 0.894769996404749_dbl_kind, 0.899543188296742_dbl_kind, 0.915198065066157_dbl_kind, 0.970783174737859_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1103) = (/ 0.891249965805918_dbl_kind, 0.894770784376787_dbl_kind, 0.899546714753559_dbl_kind, 0.915208930808863_dbl_kind, 0.970792904871352_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1104) = (/ 0.891250166357932_dbl_kind, 0.894771572017276_dbl_kind, 0.899550239971953_dbl_kind, 0.91521979296065_dbl_kind, 0.970802616378774_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1105) = (/ 0.89125036654072_dbl_kind, 0.8947723593262_dbl_kind, 0.899553763953881_dbl_kind, 0.915230651525268_dbl_kind, 0.970812309304128_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1106) = (/ 0.891250566355522_dbl_kind, 0.894773146303543_dbl_kind, 0.899557286701297_dbl_kind, 0.915241506506446_dbl_kind, 0.970821983691289_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1107) = (/ 0.891250765803577_dbl_kind, 0.894773932949288_dbl_kind, 0.899560808216159_dbl_kind, 0.915252357907908_dbl_kind, 0.970831639584_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1108) = (/ 0.891250964886114_dbl_kind, 0.894774719263414_dbl_kind, 0.89956432850042_dbl_kind, 0.915263205733362_dbl_kind, 0.97084127702588_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1109) = (/ 0.891251163604361_dbl_kind, 0.894775505245899_dbl_kind, 0.899567847556032_dbl_kind, 0.915274049986503_dbl_kind, 0.970850896060415_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1110) = (/ 0.89125136195954_dbl_kind, 0.89477629089672_dbl_kind, 0.89957136538495_dbl_kind, 0.915284890671015_dbl_kind, 0.970860496730966_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1111) = (/ 0.891251559952866_dbl_kind, 0.894777076215854_dbl_kind, 0.899574881989125_dbl_kind, 0.91529572779057_dbl_kind, 0.970870079080765_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1112) = (/ 0.891251757585553_dbl_kind, 0.894777861203273_dbl_kind, 0.899578397370508_dbl_kind, 0.915306561348829_dbl_kind, 0.970879643152919_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1113) = (/ 0.891251954858806_dbl_kind, 0.894778645858949_dbl_kind, 0.899581911531049_dbl_kind, 0.915317391349437_dbl_kind, 0.970889188990406_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1114) = (/ 0.891252151773829_dbl_kind, 0.894779430182854_dbl_kind, 0.899585424472698_dbl_kind, 0.91532821779603_dbl_kind, 0.970898716636084_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1115) = (/ 0.891252348331817_dbl_kind, 0.894780214174957_dbl_kind, 0.899588936197403_dbl_kind, 0.915339040692231_dbl_kind, 0.970908226132676_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1116) = (/ 0.891252544533963_dbl_kind, 0.894780997835227_dbl_kind, 0.899592446707112_dbl_kind, 0.915349860041654_dbl_kind, 0.970917717522789_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1117) = (/ 0.891252740381455_dbl_kind, 0.894781781163627_dbl_kind, 0.899595956003773_dbl_kind, 0.915360675847896_dbl_kind, 0.970927190848898_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1118) = (/ 0.891252935875476_dbl_kind, 0.894782564160126_dbl_kind, 0.899599464089331_dbl_kind, 0.915371488114545_dbl_kind, 0.970936646153364_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1119) = (/ 0.891253131017202_dbl_kind, 0.894783346824687_dbl_kind, 0.899602970965731_dbl_kind, 0.915382296845179_dbl_kind, 0.970946083478409_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1120) = (/ 0.891253325807808_dbl_kind, 0.894784129157271_dbl_kind, 0.899606476634919_dbl_kind, 0.91539310204336_dbl_kind, 0.970955502866149_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1121) = (/ 0.891253520248462_dbl_kind, 0.894784911157841_dbl_kind, 0.899609981098839_dbl_kind, 0.915403903712643_dbl_kind, 0.970964904358562_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1122) = (/ 0.891253714340327_dbl_kind, 0.894785692826357_dbl_kind, 0.899613484359432_dbl_kind, 0.915414701856568_dbl_kind, 0.970974287997516_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1123) = (/ 0.891253908084563_dbl_kind, 0.894786474162776_dbl_kind, 0.899616986418643_dbl_kind, 0.915425496478666_dbl_kind, 0.970983653824748_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1124) = (/ 0.891254101482323_dbl_kind, 0.894787255167058_dbl_kind, 0.899620487278411_dbl_kind, 0.915436287582453_dbl_kind, 0.970993001881877_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1125) = (/ 0.891254294534758_dbl_kind, 0.894788035839159_dbl_kind, 0.899623986940678_dbl_kind, 0.915447075171438_dbl_kind, 0.9710023322104_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1126) = (/ 0.891254487243012_dbl_kind, 0.894788816179034_dbl_kind, 0.899627485407385_dbl_kind, 0.915457859249115_dbl_kind, 0.971011644851698_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1127) = (/ 0.891254679608226_dbl_kind, 0.894789596186638_dbl_kind, 0.899630982680468_dbl_kind, 0.915468639818969_dbl_kind, 0.971020939847024_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1128) = (/ 0.891254871631534_dbl_kind, 0.894790375861923_dbl_kind, 0.899634478761868_dbl_kind, 0.915479416884472_dbl_kind, 0.971030217237517_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1129) = (/ 0.89125506331407_dbl_kind, 0.894791155204843_dbl_kind, 0.899637973653522_dbl_kind, 0.915490190449088_dbl_kind, 0.971039477064194_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1130) = (/ 0.891255254656959_dbl_kind, 0.894791934215349_dbl_kind, 0.899641467357366_dbl_kind, 0.915500960516265_dbl_kind, 0.971048719367955_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1131) = (/ 0.891255445661323_dbl_kind, 0.89479271289339_dbl_kind, 0.899644959875336_dbl_kind, 0.915511727089444_dbl_kind, 0.971057944189577_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1132) = (/ 0.89125563632828_dbl_kind, 0.894793491238917_dbl_kind, 0.899648451209367_dbl_kind, 0.915522490172052_dbl_kind, 0.971067151569725_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1133) = (/ 0.891255826658942_dbl_kind, 0.894794269251878_dbl_kind, 0.899651941361394_dbl_kind, 0.915533249767508_dbl_kind, 0.971076341548942_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1134) = (/ 0.89125601665442_dbl_kind, 0.89479504693222_dbl_kind, 0.899655430333351_dbl_kind, 0.915544005879219_dbl_kind, 0.971085514167656_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1135) = (/ 0.891256206315815_dbl_kind, 0.894795824279889_dbl_kind, 0.899658918127169_dbl_kind, 0.915554758510578_dbl_kind, 0.971094669466176_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1136) = (/ 0.89125639564423_dbl_kind, 0.894796601294833_dbl_kind, 0.899662404744781_dbl_kind, 0.915565507664971_dbl_kind, 0.971103807484697_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1137) = (/ 0.891256584640757_dbl_kind, 0.894797377976995_dbl_kind, 0.899665890188118_dbl_kind, 0.915576253345772_dbl_kind, 0.971112928263295_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1138) = (/ 0.891256773306488_dbl_kind, 0.89479815432632_dbl_kind, 0.899669374459109_dbl_kind, 0.915586995556345_dbl_kind, 0.971122031841934_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1139) = (/ 0.89125696164251_dbl_kind, 0.894798930342752_dbl_kind, 0.899672857559686_dbl_kind, 0.91559773430004_dbl_kind, 0.971131118260458_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1140) = (/ 0.891257149649905_dbl_kind, 0.894799706026232_dbl_kind, 0.899676339491775_dbl_kind, 0.915608469580201_dbl_kind, 0.971140187558601_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1141) = (/ 0.89125733732975_dbl_kind, 0.894800481376704_dbl_kind, 0.899679820257304_dbl_kind, 0.915619201400158_dbl_kind, 0.971149239775978_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1142) = (/ 0.891257524683118_dbl_kind, 0.894801256394108_dbl_kind, 0.899683299858202_dbl_kind, 0.915629929763232_dbl_kind, 0.971158274952098_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1143) = (/ 0.891257711711079_dbl_kind, 0.894802031078385_dbl_kind, 0.899686778296392_dbl_kind, 0.915640654672732_dbl_kind, 0.971167293126344_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1144) = (/ 0.891257898414698_dbl_kind, 0.894802805429475_dbl_kind, 0.899690255573802_dbl_kind, 0.915651376131959_dbl_kind, 0.971176294337996_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1145) = (/ 0.891258084795034_dbl_kind, 0.894803579447316_dbl_kind, 0.899693731692355_dbl_kind, 0.9156620941442_dbl_kind, 0.971185278626217_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1146) = (/ 0.891258270853145_dbl_kind, 0.894804353131849_dbl_kind, 0.899697206653974_dbl_kind, 0.915672808712734_dbl_kind, 0.971194246030057_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1147) = (/ 0.891258456590081_dbl_kind, 0.89480512648301_dbl_kind, 0.899700680460582_dbl_kind, 0.91568351984083_dbl_kind, 0.971203196588457_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1148) = (/ 0.891258642006891_dbl_kind, 0.894805899500738_dbl_kind, 0.899704153114101_dbl_kind, 0.915694227531746_dbl_kind, 0.971212130340246_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1149) = (/ 0.891258827104618_dbl_kind, 0.894806672184969_dbl_kind, 0.899707624616451_dbl_kind, 0.915704931788728_dbl_kind, 0.971221047324134_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1150) = (/ 0.891259011884302_dbl_kind, 0.89480744453564_dbl_kind, 0.899711094969553_dbl_kind, 0.915715632615015_dbl_kind, 0.97122994757873_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1151) = (/ 0.891259196346977_dbl_kind, 0.894808216552686_dbl_kind, 0.899714564175325_dbl_kind, 0.915726330013833_dbl_kind, 0.971238831142531_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1152) = (/ 0.891259380493674_dbl_kind, 0.894808988236044_dbl_kind, 0.899718032235686_dbl_kind, 0.915737023988399_dbl_kind, 0.971247698053918_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1153) = (/ 0.891259564325421_dbl_kind, 0.894809759585648_dbl_kind, 0.899721499152551_dbl_kind, 0.91574771454192_dbl_kind, 0.971256548351167_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1154) = (/ 0.89125974784324_dbl_kind, 0.894810530601433_dbl_kind, 0.899724964927839_dbl_kind, 0.915758401677591_dbl_kind, 0.971265382072444_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1155) = (/ 0.89125993104815_dbl_kind, 0.894811301283333_dbl_kind, 0.899728429563463_dbl_kind, 0.915769085398601_dbl_kind, 0.971274199255804_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1156) = (/ 0.891260113941165_dbl_kind, 0.894812071631281_dbl_kind, 0.899731893061339_dbl_kind, 0.915779765708126_dbl_kind, 0.971282999939197_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1157) = (/ 0.891260296523296_dbl_kind, 0.894812841645212_dbl_kind, 0.899735355423379_dbl_kind, 0.915790442609331_dbl_kind, 0.97129178416046_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1158) = (/ 0.891260478795549_dbl_kind, 0.894813611325058_dbl_kind, 0.899738816651496_dbl_kind, 0.915801116105373_dbl_kind, 0.971300551957328_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1159) = (/ 0.891260660758926_dbl_kind, 0.894814380670752_dbl_kind, 0.899742276747602_dbl_kind, 0.9158117861994_dbl_kind, 0.971309303367423_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1160) = (/ 0.891260842414426_dbl_kind, 0.894815149682226_dbl_kind, 0.899745735713606_dbl_kind, 0.915822452894547_dbl_kind, 0.971318038428263_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1161) = (/ 0.891261023763043_dbl_kind, 0.894815918359412_dbl_kind, 0.899749193551417_dbl_kind, 0.915833116193942_dbl_kind, 0.971326757177258_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1162) = (/ 0.891261204805768_dbl_kind, 0.894816686702242_dbl_kind, 0.899752650262945_dbl_kind, 0.915843776100702_dbl_kind, 0.971335459651711_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1163) = (/ 0.891261385543586_dbl_kind, 0.894817454710648_dbl_kind, 0.899756105850098_dbl_kind, 0.915854432617933_dbl_kind, 0.971344145888822_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1164) = (/ 0.89126156597748_dbl_kind, 0.894818222384561_dbl_kind, 0.89975956031478_dbl_kind, 0.915865085748734_dbl_kind, 0.971352815925684_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1165) = (/ 0.89126174610843_dbl_kind, 0.894818989723912_dbl_kind, 0.899763013658897_dbl_kind, 0.915875735496193_dbl_kind, 0.971361469799281_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1166) = (/ 0.891261925937408_dbl_kind, 0.894819756728632_dbl_kind, 0.899766465884353_dbl_kind, 0.915886381863387_dbl_kind, 0.971370107546498_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1167) = (/ 0.891262105465387_dbl_kind, 0.894820523398651_dbl_kind, 0.899769916993053_dbl_kind, 0.915897024853385_dbl_kind, 0.971378729204112_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1168) = (/ 0.891262284693333_dbl_kind, 0.894821289733901_dbl_kind, 0.899773366986897_dbl_kind, 0.915907664469245_dbl_kind, 0.971387334808797_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1169) = (/ 0.891262463622207_dbl_kind, 0.89482205573431_dbl_kind, 0.899776815867786_dbl_kind, 0.915918300714018_dbl_kind, 0.971395924397121_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1170) = (/ 0.891262642252972_dbl_kind, 0.894822821399811_dbl_kind, 0.899780263637621_dbl_kind, 0.915928933590741_dbl_kind, 0.971404498005552_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1171) = (/ 0.89126282058658_dbl_kind, 0.894823586730332_dbl_kind, 0.8997837102983_dbl_kind, 0.915939563102448_dbl_kind, 0.971413055670451_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1172) = (/ 0.891262998623983_dbl_kind, 0.894824351725803_dbl_kind, 0.899787155851721_dbl_kind, 0.915950189252156_dbl_kind, 0.971421597428081_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1173) = (/ 0.89126317636613_dbl_kind, 0.894825116386156_dbl_kind, 0.899790600299779_dbl_kind, 0.915960812042878_dbl_kind, 0.971430123314597_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1174) = (/ 0.891263353813963_dbl_kind, 0.894825880711319_dbl_kind, 0.899794043644371_dbl_kind, 0.915971431477615_dbl_kind, 0.971438633366056_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1175) = (/ 0.891263530968423_dbl_kind, 0.894826644701222_dbl_kind, 0.899797485887391_dbl_kind, 0.91598204755936_dbl_kind, 0.971447127618413_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1176) = (/ 0.891263707830446_dbl_kind, 0.894827408355794_dbl_kind, 0.89980092703073_dbl_kind, 0.915992660291096_dbl_kind, 0.97145560610752_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1177) = (/ 0.891263884400965_dbl_kind, 0.894828171674967_dbl_kind, 0.899804367076282_dbl_kind, 0.916003269675795_dbl_kind, 0.971464068869128_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1178) = (/ 0.891264060680909_dbl_kind, 0.894828934658669_dbl_kind, 0.899807806025936_dbl_kind, 0.916013875716424_dbl_kind, 0.971472515938888_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1179) = (/ 0.891264236671202_dbl_kind, 0.89482969730683_dbl_kind, 0.899811243881583_dbl_kind, 0.916024478415935_dbl_kind, 0.971480947352351_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1180) = (/ 0.891264412372767_dbl_kind, 0.89483045961938_dbl_kind, 0.899814680645109_dbl_kind, 0.916035077777276_dbl_kind, 0.971489363144967_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1181) = (/ 0.89126458778652_dbl_kind, 0.894831221596248_dbl_kind, 0.899818116318401_dbl_kind, 0.916045673803382_dbl_kind, 0.971497763352089_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1182) = (/ 0.891264762913376_dbl_kind, 0.894831983237365_dbl_kind, 0.899821550903346_dbl_kind, 0.916056266497181_dbl_kind, 0.971506148008969_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1183) = (/ 0.891264937754245_dbl_kind, 0.894832744542661_dbl_kind, 0.899824984401827_dbl_kind, 0.91606685586159_dbl_kind, 0.971514517150756_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1184) = (/ 0.891265112310034_dbl_kind, 0.894833505512065_dbl_kind, 0.899828416815726_dbl_kind, 0.916077441899519_dbl_kind, 0.971522870812507_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1185) = (/ 0.891265286581646_dbl_kind, 0.894834266145507_dbl_kind, 0.899831848146927_dbl_kind, 0.916088024613867_dbl_kind, 0.971531209029177_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1186) = (/ 0.891265460569981_dbl_kind, 0.894835026442918_dbl_kind, 0.899835278397308_dbl_kind, 0.916098604007524_dbl_kind, 0.971539531835623_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1187) = (/ 0.891265634275935_dbl_kind, 0.894835786404228_dbl_kind, 0.899838707568749_dbl_kind, 0.916109180083373_dbl_kind, 0.971547839266607_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1188) = (/ 0.8912658077004_dbl_kind, 0.894836546029368_dbl_kind, 0.899842135663128_dbl_kind, 0.916119752844286_dbl_kind, 0.971556131356791_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1189) = (/ 0.891265980844265_dbl_kind, 0.894837305318268_dbl_kind, 0.89984556268232_dbl_kind, 0.916130322293125_dbl_kind, 0.971564408140741_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1190) = (/ 0.891266153708415_dbl_kind, 0.894838064270858_dbl_kind, 0.8998489886282_dbl_kind, 0.916140888432745_dbl_kind, 0.971572669652925_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1191) = (/ 0.891266326293732_dbl_kind, 0.894838822887072_dbl_kind, 0.899852413502641_dbl_kind, 0.916151451265992_dbl_kind, 0.971580915927717_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1192) = (/ 0.891266498601095_dbl_kind, 0.894839581166837_dbl_kind, 0.899855837307516_dbl_kind, 0.916162010795701_dbl_kind, 0.971589146999394_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1193) = (/ 0.891266670631377_dbl_kind, 0.894840339110088_dbl_kind, 0.899859260044695_dbl_kind, 0.916172567024701_dbl_kind, 0.971597362902137_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1194) = (/ 0.891266842385451_dbl_kind, 0.894841096716755_dbl_kind, 0.899862681716046_dbl_kind, 0.916183119955809_dbl_kind, 0.971605563670033_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1195) = (/ 0.891267013864184_dbl_kind, 0.894841853986769_dbl_kind, 0.899866102323438_dbl_kind, 0.916193669591835_dbl_kind, 0.971613749337069_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1196) = (/ 0.89126718506844_dbl_kind, 0.894842610920064_dbl_kind, 0.899869521868735_dbl_kind, 0.91620421593558_dbl_kind, 0.971621919937147_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1197) = (/ 0.891267355999081_dbl_kind, 0.894843367516571_dbl_kind, 0.899872940353804_dbl_kind, 0.916214758989835_dbl_kind, 0.971630075504065_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1198) = (/ 0.891267526656964_dbl_kind, 0.894844123776224_dbl_kind, 0.899876357780506_dbl_kind, 0.916225298757383_dbl_kind, 0.97163821607153_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1199) = (/ 0.891267697042942_dbl_kind, 0.894844879698954_dbl_kind, 0.899879774150703_dbl_kind, 0.916235835240998_dbl_kind, 0.971646341673159_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1200) = (/ 0.891267867157866_dbl_kind, 0.894845635284695_dbl_kind, 0.899883189466256_dbl_kind, 0.916246368443447_dbl_kind, 0.971654452342471_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1201) = (/ 0.891268037002585_dbl_kind, 0.894846390533381_dbl_kind, 0.89988660372902_dbl_kind, 0.916256898367483_dbl_kind, 0.971662548112893_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1202) = (/ 0.891268206577941_dbl_kind, 0.894847145444946_dbl_kind, 0.899890016940855_dbl_kind, 0.916267425015857_dbl_kind, 0.971670629017761_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1203) = (/ 0.891268375884776_dbl_kind, 0.894847900019323_dbl_kind, 0.899893429103615_dbl_kind, 0.916277948391305_dbl_kind, 0.971678695090314_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1204) = (/ 0.891268544923926_dbl_kind, 0.894848654256448_dbl_kind, 0.899896840219153_dbl_kind, 0.916288468496559_dbl_kind, 0.971686746363707_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1205) = (/ 0.891268713696225_dbl_kind, 0.894849408156254_dbl_kind, 0.89990025028932_dbl_kind, 0.91629898533434_dbl_kind, 0.971694782870993_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1206) = (/ 0.891268882202504_dbl_kind, 0.894850161718678_dbl_kind, 0.899903659315968_dbl_kind, 0.91630949890736_dbl_kind, 0.97170280464514_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1207) = (/ 0.891269050443591_dbl_kind, 0.894850914943655_dbl_kind, 0.899907067300943_dbl_kind, 0.916320009218325_dbl_kind, 0.971710811719024_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1208) = (/ 0.891269218420308_dbl_kind, 0.89485166783112_dbl_kind, 0.899910474246094_dbl_kind, 0.916330516269927_dbl_kind, 0.971718804125431_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1209) = (/ 0.891269386133477_dbl_kind, 0.89485242038101_dbl_kind, 0.899913880153264_dbl_kind, 0.916341020064857_dbl_kind, 0.971726781897053_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1210) = (/ 0.891269553583915_dbl_kind, 0.894853172593262_dbl_kind, 0.899917285024297_dbl_kind, 0.916351520605789_dbl_kind, 0.971734745066491_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1211) = (/ 0.891269720772437_dbl_kind, 0.894853924467814_dbl_kind, 0.899920688861035_dbl_kind, 0.916362017895395_dbl_kind, 0.971742693666261_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1212) = (/ 0.891269887699853_dbl_kind, 0.894854676004602_dbl_kind, 0.899924091665316_dbl_kind, 0.916372511936335_dbl_kind, 0.971750627728785_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1213) = (/ 0.891270054366971_dbl_kind, 0.894855427203565_dbl_kind, 0.899927493438979_dbl_kind, 0.916383002731261_dbl_kind, 0.971758547286397_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1214) = (/ 0.891270220774596_dbl_kind, 0.894856178064641_dbl_kind, 0.899930894183859_dbl_kind, 0.916393490282817_dbl_kind, 0.971766452371344_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1215) = (/ 0.891270386923528_dbl_kind, 0.894856928587769_dbl_kind, 0.899934293901791_dbl_kind, 0.916403974593638_dbl_kind, 0.971774343015779_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1216) = (/ 0.891270552814566_dbl_kind, 0.894857678772889_dbl_kind, 0.899937692594608_dbl_kind, 0.916414455666352_dbl_kind, 0.971782219251772_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1217) = (/ 0.891270718448506_dbl_kind, 0.894858428619941_dbl_kind, 0.899941090264138_dbl_kind, 0.916424933503574_dbl_kind, 0.971790081111301_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1218) = (/ 0.891270883826138_dbl_kind, 0.894859178128865_dbl_kind, 0.899944486912212_dbl_kind, 0.916435408107917_dbl_kind, 0.971797928626257_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1219) = (/ 0.891271048948252_dbl_kind, 0.894859927299602_dbl_kind, 0.899947882540655_dbl_kind, 0.916445879481981_dbl_kind, 0.971805761828445_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1220) = (/ 0.891271213815633_dbl_kind, 0.894860676132092_dbl_kind, 0.899951277151292_dbl_kind, 0.916456347628357_dbl_kind, 0.971813580749579_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1221) = (/ 0.891271378429064_dbl_kind, 0.894861424626279_dbl_kind, 0.899954670745945_dbl_kind, 0.91646681254963_dbl_kind, 0.97182138542129_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1222) = (/ 0.891271542789323_dbl_kind, 0.894862172782105_dbl_kind, 0.899958063326435_dbl_kind, 0.916477274248376_dbl_kind, 0.97182917587512_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1223) = (/ 0.891271706897187_dbl_kind, 0.894862920599512_dbl_kind, 0.899961454894582_dbl_kind, 0.916487732727162_dbl_kind, 0.971836952142523_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1224) = (/ 0.89127187075343_dbl_kind, 0.894863668078444_dbl_kind, 0.899964845452201_dbl_kind, 0.916498187988548_dbl_kind, 0.97184471425487_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1225) = (/ 0.891272034358821_dbl_kind, 0.894864415218845_dbl_kind, 0.899968235001107_dbl_kind, 0.916508640035083_dbl_kind, 0.971852462243445_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1226) = (/ 0.891272197714127_dbl_kind, 0.89486516202066_dbl_kind, 0.899971623543113_dbl_kind, 0.916519088869309_dbl_kind, 0.971860196139444_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1227) = (/ 0.891272360820112_dbl_kind, 0.894865908483833_dbl_kind, 0.899975011080028_dbl_kind, 0.91652953449376_dbl_kind, 0.971867915973982_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1228) = (/ 0.891272523677538_dbl_kind, 0.894866654608311_dbl_kind, 0.899978397613662_dbl_kind, 0.91653997691096_dbl_kind, 0.971875621778085_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1229) = (/ 0.891272686287162_dbl_kind, 0.89486740039404_dbl_kind, 0.899981783145821_dbl_kind, 0.916550416123428_dbl_kind, 0.971883313582695_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1230) = (/ 0.891272848649739_dbl_kind, 0.894868145840967_dbl_kind, 0.899985167678309_dbl_kind, 0.916560852133671_dbl_kind, 0.971890991418672_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1231) = (/ 0.891273010766022_dbl_kind, 0.894868890949039_dbl_kind, 0.899988551212927_dbl_kind, 0.91657128494419_dbl_kind, 0.971898655316788_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1232) = (/ 0.891273172636758_dbl_kind, 0.894869635718205_dbl_kind, 0.899991933751475_dbl_kind, 0.916581714557476_dbl_kind, 0.971906305307734_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1233) = (/ 0.891273334262695_dbl_kind, 0.894870380148412_dbl_kind, 0.899995315295752_dbl_kind, 0.916592140976013_dbl_kind, 0.971913941422116_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1234) = (/ 0.891273495644576_dbl_kind, 0.894871124239611_dbl_kind, 0.899998695847551_dbl_kind, 0.916602564202275_dbl_kind, 0.971921563690456_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1235) = (/ 0.891273656783139_dbl_kind, 0.894871867991752_dbl_kind, 0.900002075408667_dbl_kind, 0.916612984238731_dbl_kind, 0.971929172143193_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1236) = (/ 0.891273817679123_dbl_kind, 0.894872611404784_dbl_kind, 0.90000545398089_dbl_kind, 0.916623401087838_dbl_kind, 0.971936766810687_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1237) = (/ 0.891273978333262_dbl_kind, 0.894873354478659_dbl_kind, 0.900008831566008_dbl_kind, 0.916633814752048_dbl_kind, 0.971944347723209_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1238) = (/ 0.891274138746287_dbl_kind, 0.89487409721333_dbl_kind, 0.900012208165807_dbl_kind, 0.916644225233801_dbl_kind, 0.971951914910951_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1239) = (/ 0.891274298918927_dbl_kind, 0.894874839608749_dbl_kind, 0.900015583782072_dbl_kind, 0.916654632535531_dbl_kind, 0.971959468404024_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1240) = (/ 0.891274458851907_dbl_kind, 0.894875581664868_dbl_kind, 0.900018958416585_dbl_kind, 0.916665036659665_dbl_kind, 0.971967008232455_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1241) = (/ 0.89127461854595_dbl_kind, 0.894876323381642_dbl_kind, 0.900022332071123_dbl_kind, 0.916675437608619_dbl_kind, 0.971974534426188_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1242) = (/ 0.891274778001776_dbl_kind, 0.894877064759025_dbl_kind, 0.900025704747464_dbl_kind, 0.916685835384802_dbl_kind, 0.971982047015093_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1243) = (/ 0.891274937220102_dbl_kind, 0.894877805796973_dbl_kind, 0.900029076447382_dbl_kind, 0.916696229990616_dbl_kind, 0.971989546028953_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1244) = (/ 0.891275096201642_dbl_kind, 0.894878546495441_dbl_kind, 0.90003244717265_dbl_kind, 0.916706621428453_dbl_kind, 0.971997031497468_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1245) = (/ 0.891275254947107_dbl_kind, 0.894879286854387_dbl_kind, 0.900035816925036_dbl_kind, 0.916717009700696_dbl_kind, 0.972004503450263_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1246) = (/ 0.891275413457206_dbl_kind, 0.894880026873767_dbl_kind, 0.900039185706307_dbl_kind, 0.916727394809723_dbl_kind, 0.972011961916881_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1247) = (/ 0.891275571732646_dbl_kind, 0.894880766553539_dbl_kind, 0.900042553518228_dbl_kind, 0.916737776757902_dbl_kind, 0.972019406926785_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1248) = (/ 0.891275729774127_dbl_kind, 0.894881505893662_dbl_kind, 0.900045920362561_dbl_kind, 0.916748155547592_dbl_kind, 0.972026838509356_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1249) = (/ 0.891275887582351_dbl_kind, 0.894882244894096_dbl_kind, 0.900049286241065_dbl_kind, 0.916758531181145_dbl_kind, 0.972034256693901_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1250) = (/ 0.891276045158016_dbl_kind, 0.894882983554801_dbl_kind, 0.900052651155497_dbl_kind, 0.916768903660904_dbl_kind, 0.972041661509639_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1251) = (/ 0.891276202501815_dbl_kind, 0.894883721875737_dbl_kind, 0.900056015107612_dbl_kind, 0.916779272989204_dbl_kind, 0.972049052985724_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1252) = (/ 0.891276359614442_dbl_kind, 0.894884459856867_dbl_kind, 0.900059378099161_dbl_kind, 0.916789639168373_dbl_kind, 0.972056431151216_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1253) = (/ 0.891276516496584_dbl_kind, 0.894885197498153_dbl_kind, 0.900062740131892_dbl_kind, 0.916800002200732_dbl_kind, 0.972063796035105_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1254) = (/ 0.891276673148928_dbl_kind, 0.894885934799557_dbl_kind, 0.900066101207553_dbl_kind, 0.916810362088587_dbl_kind, 0.972071147666302_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1255) = (/ 0.891276829572159_dbl_kind, 0.894886671761044_dbl_kind, 0.900069461327887_dbl_kind, 0.916820718834245_dbl_kind, 0.97207848607364_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1256) = (/ 0.891276985766957_dbl_kind, 0.894887408382578_dbl_kind, 0.900072820494635_dbl_kind, 0.916831072439998_dbl_kind, 0.972085811285873_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1257) = (/ 0.891277141734001_dbl_kind, 0.894888144664126_dbl_kind, 0.900076178709535_dbl_kind, 0.916841422908134_dbl_kind, 0.972093123331681_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1258) = (/ 0.891277297473965_dbl_kind, 0.894888880605652_dbl_kind, 0.900079535974323_dbl_kind, 0.916851770240931_dbl_kind, 0.97210042223966_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1259) = (/ 0.891277452987523_dbl_kind, 0.894889616207124_dbl_kind, 0.900082892290733_dbl_kind, 0.916862114440658_dbl_kind, 0.972107708038336_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1260) = (/ 0.891277608275347_dbl_kind, 0.894890351468509_dbl_kind, 0.900086247660492_dbl_kind, 0.916872455509579_dbl_kind, 0.972114980756156_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1261) = (/ 0.891277763338102_dbl_kind, 0.894891086389777_dbl_kind, 0.90008960208533_dbl_kind, 0.916882793449947_dbl_kind, 0.97212224042149_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1262) = (/ 0.891277918176455_dbl_kind, 0.894891820970896_dbl_kind, 0.90009295556697_dbl_kind, 0.916893128264008_dbl_kind, 0.972129487062633_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1263) = (/ 0.891278072791067_dbl_kind, 0.894892555211837_dbl_kind, 0.900096308107135_dbl_kind, 0.916903459954_dbl_kind, 0.9721367207078_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1264) = (/ 0.891278227182599_dbl_kind, 0.89489328911257_dbl_kind, 0.900099659707541_dbl_kind, 0.916913788522154_dbl_kind, 0.97214394138514_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1265) = (/ 0.891278381351708_dbl_kind, 0.894894022673067_dbl_kind, 0.900103010369907_dbl_kind, 0.916924113970689_dbl_kind, 0.972151149122717_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1266) = (/ 0.891278535299048_dbl_kind, 0.894894755893301_dbl_kind, 0.900106360095944_dbl_kind, 0.916934436301821_dbl_kind, 0.972158343948523_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1267) = (/ 0.891278689025271_dbl_kind, 0.894895488773245_dbl_kind, 0.900109708887362_dbl_kind, 0.916944755517755_dbl_kind, 0.972165525890475_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1268) = (/ 0.891278842531027_dbl_kind, 0.894896221312872_dbl_kind, 0.90011305674587_dbl_kind, 0.916955071620686_dbl_kind, 0.972172694976415_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1269) = (/ 0.891278995816963_dbl_kind, 0.894896953512158_dbl_kind, 0.90011640367317_dbl_kind, 0.916965384612807_dbl_kind, 0.972179851234115_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1270) = (/ 0.891279148883724_dbl_kind, 0.894897685371079_dbl_kind, 0.900119749670963_dbl_kind, 0.916975694496298_dbl_kind, 0.972186994691266_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1271) = (/ 0.89127930173195_dbl_kind, 0.894898416889611_dbl_kind, 0.900123094740948_dbl_kind, 0.916986001273332_dbl_kind, 0.972194125375488_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1272) = (/ 0.891279454362281_dbl_kind, 0.894899148067732_dbl_kind, 0.90012643888482_dbl_kind, 0.916996304946074_dbl_kind, 0.972201243314328_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1273) = (/ 0.891279606775354_dbl_kind, 0.894899878905419_dbl_kind, 0.900129782104271_dbl_kind, 0.917006605516682_dbl_kind, 0.972208348535258_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1274) = (/ 0.891279758971804_dbl_kind, 0.894900609402653_dbl_kind, 0.90013312440099_dbl_kind, 0.917016902987304_dbl_kind, 0.972215441065681_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1275) = (/ 0.891279910952261_dbl_kind, 0.894901339559412_dbl_kind, 0.900136465776663_dbl_kind, 0.917027197360083_dbl_kind, 0.972222520932919_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1276) = (/ 0.891280062717356_dbl_kind, 0.894902069375677_dbl_kind, 0.900139806232971_dbl_kind, 0.91703748863715_dbl_kind, 0.97222958816423_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1277) = (/ 0.891280214267715_dbl_kind, 0.894902798851431_dbl_kind, 0.900143145771596_dbl_kind, 0.917047776820632_dbl_kind, 0.972236642786791_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1278) = (/ 0.891280365603962_dbl_kind, 0.894903527986655_dbl_kind, 0.900146484394213_dbl_kind, 0.917058061912645_dbl_kind, 0.972243684827714_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1279) = (/ 0.89128051672672_dbl_kind, 0.894904256781333_dbl_kind, 0.900149822102495_dbl_kind, 0.917068343915297_dbl_kind, 0.972250714314036_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1280) = (/ 0.891280667636607_dbl_kind, 0.894904985235449_dbl_kind, 0.900153158898113_dbl_kind, 0.91707862283069_dbl_kind, 0.972257731272723_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1281) = (/ 0.89128081833424_dbl_kind, 0.894905713348988_dbl_kind, 0.900156494782733_dbl_kind, 0.917088898660918_dbl_kind, 0.972264735730664_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1282) = (/ 0.891280968820235_dbl_kind, 0.894906441121936_dbl_kind, 0.900159829758019_dbl_kind, 0.917099171408064_dbl_kind, 0.972271727714683_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1283) = (/ 0.891281119095203_dbl_kind, 0.89490716855428_dbl_kind, 0.900163163825632_dbl_kind, 0.917109441074206_dbl_kind, 0.972278707251534_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1284) = (/ 0.891281269159753_dbl_kind, 0.894907895646006_dbl_kind, 0.900166496987227_dbl_kind, 0.917119707661413_dbl_kind, 0.972285674367893_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1285) = (/ 0.891281419014494_dbl_kind, 0.894908622397105_dbl_kind, 0.900169829244459_dbl_kind, 0.917129971171745_dbl_kind, 0.972292629090372_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1286) = (/ 0.89128156866003_dbl_kind, 0.894909348807565_dbl_kind, 0.900173160598978_dbl_kind, 0.917140231607255_dbl_kind, 0.972299571445506_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1287) = (/ 0.891281718096963_dbl_kind, 0.894910074877376_dbl_kind, 0.900176491052431_dbl_kind, 0.917150488969989_dbl_kind, 0.97230650145977_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1288) = (/ 0.891281867325895_dbl_kind, 0.894910800606529_dbl_kind, 0.900179820606462_dbl_kind, 0.917160743261983_dbl_kind, 0.972313419159556_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1289) = (/ 0.891282016347422_dbl_kind, 0.894911525995017_dbl_kind, 0.900183149262711_dbl_kind, 0.917170994485266_dbl_kind, 0.972320324571197_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1290) = (/ 0.891282165162139_dbl_kind, 0.894912251042832_dbl_kind, 0.900186477022815_dbl_kind, 0.917181242641859_dbl_kind, 0.972327217720949_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1291) = (/ 0.891282313770641_dbl_kind, 0.894912975749969_dbl_kind, 0.900189803888406_dbl_kind, 0.917191487733774_dbl_kind, 0.972334098635003_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1292) = (/ 0.891282462173517_dbl_kind, 0.894913700116421_dbl_kind, 0.900193129861116_dbl_kind, 0.917201729763017_dbl_kind, 0.97234096733948_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1293) = (/ 0.891282610371356_dbl_kind, 0.894914424142184_dbl_kind, 0.90019645494257_dbl_kind, 0.917211968731584_dbl_kind, 0.97234782386043_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1294) = (/ 0.891282758364745_dbl_kind, 0.894915147827255_dbl_kind, 0.900199779134391_dbl_kind, 0.917222204641463_dbl_kind, 0.972354668223839_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1295) = (/ 0.891282906154267_dbl_kind, 0.894915871171631_dbl_kind, 0.900203102438199_dbl_kind, 0.917232437494637_dbl_kind, 0.972361500455619_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1296) = (/ 0.891283053740503_dbl_kind, 0.89491659417531_dbl_kind, 0.900206424855611_dbl_kind, 0.917242667293078_dbl_kind, 0.972368320581616_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1297) = (/ 0.891283201124034_dbl_kind, 0.894917316838292_dbl_kind, 0.900209746388237_dbl_kind, 0.917252894038751_dbl_kind, 0.972375128627609_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1298) = (/ 0.891283348305434_dbl_kind, 0.894918039160576_dbl_kind, 0.900213067037686_dbl_kind, 0.917263117733612_dbl_kind, 0.972381924619308_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1299) = (/ 0.89128349528528_dbl_kind, 0.894918761142164_dbl_kind, 0.900216386805564_dbl_kind, 0.91727333837961_dbl_kind, 0.972388708582355_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1300) = (/ 0.891283642064145_dbl_kind, 0.894919482783057_dbl_kind, 0.900219705693473_dbl_kind, 0.917283555978687_dbl_kind, 0.972395480542324_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1301) = (/ 0.891283788642597_dbl_kind, 0.894920204083258_dbl_kind, 0.90022302370301_dbl_kind, 0.917293770532775_dbl_kind, 0.972402240524728_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1302) = (/ 0.891283935021204_dbl_kind, 0.89492092504277_dbl_kind, 0.900226340835769_dbl_kind, 0.917303982043798_dbl_kind, 0.972408988555003_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1303) = (/ 0.891284081200533_dbl_kind, 0.894921645661599_dbl_kind, 0.900229657093341_dbl_kind, 0.917314190513675_dbl_kind, 0.972415724658525_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1304) = (/ 0.891284227181147_dbl_kind, 0.89492236593975_dbl_kind, 0.900232972477313_dbl_kind, 0.917324395944313_dbl_kind, 0.9724224488606_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1305) = (/ 0.891284372963607_dbl_kind, 0.894923085877228_dbl_kind, 0.900236286989267_dbl_kind, 0.917334598337615_dbl_kind, 0.972429161186473_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1306) = (/ 0.891284518548472_dbl_kind, 0.894923805474042_dbl_kind, 0.900239600630784_dbl_kind, 0.917344797695471_dbl_kind, 0.972435861661314_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1307) = (/ 0.891284663936299_dbl_kind, 0.8949245247302_dbl_kind, 0.900242913403437_dbl_kind, 0.917354994019768_dbl_kind, 0.972442550310238_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1308) = (/ 0.891284809127643_dbl_kind, 0.894925243645711_dbl_kind, 0.900246225308801_dbl_kind, 0.917365187312383_dbl_kind, 0.972449227158283_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1309) = (/ 0.891284954123055_dbl_kind, 0.894925962220584_dbl_kind, 0.900249536348442_dbl_kind, 0.917375377575184_dbl_kind, 0.972455892230431_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1310) = (/ 0.891285098923087_dbl_kind, 0.894926680454832_dbl_kind, 0.900252846523924_dbl_kind, 0.917385564810032_dbl_kind, 0.972462545551591_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1311) = (/ 0.891285243528286_dbl_kind, 0.894927398348465_dbl_kind, 0.900256155836807_dbl_kind, 0.917395749018781_dbl_kind, 0.972469187146614_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1312) = (/ 0.891285387939199_dbl_kind, 0.894928115901496_dbl_kind, 0.90025946428865_dbl_kind, 0.917405930203274_dbl_kind, 0.97247581704028_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1313) = (/ 0.891285532156368_dbl_kind, 0.89492883311394_dbl_kind, 0.900262771881002_dbl_kind, 0.917416108365351_dbl_kind, 0.972482435257307_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1314) = (/ 0.891285676180336_dbl_kind, 0.894929549985811_dbl_kind, 0.900266078615415_dbl_kind, 0.917426283506838_dbl_kind, 0.972489041822349_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1315) = (/ 0.891285820011643_dbl_kind, 0.894930266517125_dbl_kind, 0.900269384493431_dbl_kind, 0.917436455629557_dbl_kind, 0.972495636759998_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1316) = (/ 0.891285963650825_dbl_kind, 0.894930982707898_dbl_kind, 0.900272689516592_dbl_kind, 0.917446624735322_dbl_kind, 0.972502220094773_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1317) = (/ 0.891286107098418_dbl_kind, 0.894931698558147_dbl_kind, 0.900275993686434_dbl_kind, 0.917456790825936_dbl_kind, 0.972508791851139_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1318) = (/ 0.891286250354955_dbl_kind, 0.894932414067892_dbl_kind, 0.900279297004491_dbl_kind, 0.917466953903198_dbl_kind, 0.972515352053492_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1319) = (/ 0.891286393420968_dbl_kind, 0.89493312923715_dbl_kind, 0.900282599472291_dbl_kind, 0.917477113968896_dbl_kind, 0.972521900726165_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1320) = (/ 0.891286536296985_dbl_kind, 0.894933844065943_dbl_kind, 0.900285901091359_dbl_kind, 0.917487271024812_dbl_kind, 0.97252843789343_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1321) = (/ 0.891286678983533_dbl_kind, 0.894934558554292_dbl_kind, 0.900289201863216_dbl_kind, 0.917497425072717_dbl_kind, 0.972534963579496_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1322) = (/ 0.891286821481137_dbl_kind, 0.894935272702219_dbl_kind, 0.900292501789378_dbl_kind, 0.917507576114377_dbl_kind, 0.972541477808504_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1323) = (/ 0.89128696379032_dbl_kind, 0.894935986509746_dbl_kind, 0.900295800871358_dbl_kind, 0.91751772415155_dbl_kind, 0.972547980604536_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1324) = (/ 0.891287105911602_dbl_kind, 0.894936699976898_dbl_kind, 0.900299099110665_dbl_kind, 0.917527869185984_dbl_kind, 0.972554471991613_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1325) = (/ 0.891287247845502_dbl_kind, 0.8949374131037_dbl_kind, 0.900302396508803_dbl_kind, 0.917538011219421_dbl_kind, 0.972560951993693_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1326) = (/ 0.891287389592538_dbl_kind, 0.894938125890177_dbl_kind, 0.900305693067271_dbl_kind, 0.917548150253591_dbl_kind, 0.972567420634668_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1327) = (/ 0.891287531153222_dbl_kind, 0.894938838336357_dbl_kind, 0.900308988787566_dbl_kind, 0.917558286290222_dbl_kind, 0.972573877938372_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1328) = (/ 0.89128767252807_dbl_kind, 0.894939550442266_dbl_kind, 0.90031228367118_dbl_kind, 0.917568419331031_dbl_kind, 0.972580323928576_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1329) = (/ 0.891287813717589_dbl_kind, 0.894940262207933_dbl_kind, 0.900315577719602_dbl_kind, 0.917578549377726_dbl_kind, 0.972586758628991_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1330) = (/ 0.89128795472229_dbl_kind, 0.894940973633389_dbl_kind, 0.900318870934313_dbl_kind, 0.917588676432008_dbl_kind, 0.972593182063261_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1331) = (/ 0.891288095542679_dbl_kind, 0.894941684718663_dbl_kind, 0.900322163316794_dbl_kind, 0.91759880049557_dbl_kind, 0.972599594254977_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1332) = (/ 0.891288236179259_dbl_kind, 0.894942395463788_dbl_kind, 0.900325454868519_dbl_kind, 0.917608921570097_dbl_kind, 0.972605995227664_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1333) = (/ 0.891288376632535_dbl_kind, 0.894943105868794_dbl_kind, 0.900328745590959_dbl_kind, 0.917619039657266_dbl_kind, 0.972612385004787_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1334) = (/ 0.891288516903007_dbl_kind, 0.894943815933716_dbl_kind, 0.900332035485581_dbl_kind, 0.917629154758746_dbl_kind, 0.972618763609752_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1335) = (/ 0.891288656991172_dbl_kind, 0.894944525658588_dbl_kind, 0.900335324553846_dbl_kind, 0.917639266876197_dbl_kind, 0.9726251310659_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1336) = (/ 0.891288796897528_dbl_kind, 0.894945235043445_dbl_kind, 0.900338612797213_dbl_kind, 0.917649376011273_dbl_kind, 0.972631487396517_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1337) = (/ 0.89128893662257_dbl_kind, 0.894945944088322_dbl_kind, 0.900341900217135_dbl_kind, 0.917659482165619_dbl_kind, 0.972637832624828_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1338) = (/ 0.89128907616679_dbl_kind, 0.894946652793257_dbl_kind, 0.900345186815061_dbl_kind, 0.917669585340872_dbl_kind, 0.972644166773995_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1339) = (/ 0.89128921553068_dbl_kind, 0.894947361158289_dbl_kind, 0.900348472592436_dbl_kind, 0.91767968553866_dbl_kind, 0.972650489867124_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1340) = (/ 0.891289354714727_dbl_kind, 0.894948069183455_dbl_kind, 0.900351757550699_dbl_kind, 0.917689782760603_dbl_kind, 0.972656801927258_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1341) = (/ 0.891289493719421_dbl_kind, 0.894948776868795_dbl_kind, 0.900355041691288_dbl_kind, 0.917699877008316_dbl_kind, 0.972663102977385_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1342) = (/ 0.891289632545243_dbl_kind, 0.894949484214351_dbl_kind, 0.900358325015633_dbl_kind, 0.917709968283402_dbl_kind, 0.972669393040429_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1343) = (/ 0.89128977119268_dbl_kind, 0.894950191220163_dbl_kind, 0.900361607525162_dbl_kind, 0.917720056587458_dbl_kind, 0.972675672139259_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1344) = (/ 0.891289909662212_dbl_kind, 0.894950897886275_dbl_kind, 0.900364889221296_dbl_kind, 0.917730141922073_dbl_kind, 0.972681940296684_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1345) = (/ 0.891290047954317_dbl_kind, 0.89495160421273_dbl_kind, 0.900368170105454_dbl_kind, 0.917740224288829_dbl_kind, 0.972688197535457_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1346) = (/ 0.891290186069474_dbl_kind, 0.894952310199572_dbl_kind, 0.900371450179051_dbl_kind, 0.917750303689296_dbl_kind, 0.972694443878262_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1347) = (/ 0.891290324008158_dbl_kind, 0.894953015846847_dbl_kind, 0.900374729443494_dbl_kind, 0.91776038012504_dbl_kind, 0.972700679347739_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1348) = (/ 0.891290461770843_dbl_kind, 0.8949537211546_dbl_kind, 0.900378007900188_dbl_kind, 0.917770453597618_dbl_kind, 0.972706903966462_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1349) = (/ 0.891290599358001_dbl_kind, 0.89495442612288_dbl_kind, 0.900381285550533_dbl_kind, 0.917780524108578_dbl_kind, 0.972713117756949_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1350) = (/ 0.891290736770103_dbl_kind, 0.894955130751734_dbl_kind, 0.900384562395924_dbl_kind, 0.91779059165946_dbl_kind, 0.972719320741659_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1351) = (/ 0.891290874007615_dbl_kind, 0.894955835041211_dbl_kind, 0.900387838437753_dbl_kind, 0.917800656251797_dbl_kind, 0.972725512942994_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1352) = (/ 0.891291011071005_dbl_kind, 0.894956538991362_dbl_kind, 0.900391113677405_dbl_kind, 0.917810717887113_dbl_kind, 0.972731694383301_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1353) = (/ 0.891291147960736_dbl_kind, 0.894957242602237_dbl_kind, 0.900394388116262_dbl_kind, 0.917820776566924_dbl_kind, 0.972737865084869_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1354) = (/ 0.891291284677272_dbl_kind, 0.894957945873887_dbl_kind, 0.900397661755702_dbl_kind, 0.91783083229274_dbl_kind, 0.972744025069926_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1355) = (/ 0.891291421221074_dbl_kind, 0.894958648806366_dbl_kind, 0.900400934597095_dbl_kind, 0.917840885066059_dbl_kind, 0.972750174360648_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1356) = (/ 0.891291557592601_dbl_kind, 0.894959351399728_dbl_kind, 0.90040420664181_dbl_kind, 0.917850934888374_dbl_kind, 0.972756312979151_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1357) = (/ 0.891291693792309_dbl_kind, 0.894960053654026_dbl_kind, 0.90040747789121_dbl_kind, 0.91786098176117_dbl_kind, 0.972762440947498_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1358) = (/ 0.891291829820655_dbl_kind, 0.894960755569317_dbl_kind, 0.900410748346652_dbl_kind, 0.917871025685922_dbl_kind, 0.972768558287695_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1359) = (/ 0.891291965678091_dbl_kind, 0.894961457145657_dbl_kind, 0.900414018009491_dbl_kind, 0.917881066664099_dbl_kind, 0.972774665021688_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1360) = (/ 0.891292101365072_dbl_kind, 0.894962158383103_dbl_kind, 0.900417286881075_dbl_kind, 0.917891104697159_dbl_kind, 0.97278076117137_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1361) = (/ 0.891292236882044_dbl_kind, 0.894962859281713_dbl_kind, 0.900420554962749_dbl_kind, 0.917901139786556_dbl_kind, 0.97278684675858_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1362) = (/ 0.891292372229458_dbl_kind, 0.894963559841546_dbl_kind, 0.90042382225585_dbl_kind, 0.917911171933733_dbl_kind, 0.972792921805099_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1363) = (/ 0.89129250740776_dbl_kind, 0.894964260062663_dbl_kind, 0.900427088761714_dbl_kind, 0.917921201140125_dbl_kind, 0.972798986332651_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1364) = (/ 0.891292642417395_dbl_kind, 0.894964959945124_dbl_kind, 0.900430354481671_dbl_kind, 0.917931227407161_dbl_kind, 0.972805040362909_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1365) = (/ 0.891292777258806_dbl_kind, 0.894965659488991_dbl_kind, 0.900433619417044_dbl_kind, 0.917941250736259_dbl_kind, 0.972811083917489_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1366) = (/ 0.891292911932433_dbl_kind, 0.894966358694328_dbl_kind, 0.900436883569155_dbl_kind, 0.917951271128832_dbl_kind, 0.97281711701795_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1367) = (/ 0.891293046438718_dbl_kind, 0.894967057561197_dbl_kind, 0.900440146939318_dbl_kind, 0.917961288586283_dbl_kind, 0.9728231396858_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1368) = (/ 0.891293180778098_dbl_kind, 0.894967756089663_dbl_kind, 0.900443409528843_dbl_kind, 0.917971303110007_dbl_kind, 0.972829151942487_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1369) = (/ 0.891293314951008_dbl_kind, 0.894968454279791_dbl_kind, 0.900446671339037_dbl_kind, 0.917981314701391_dbl_kind, 0.972835153809411_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1370) = (/ 0.891293448957883_dbl_kind, 0.894969152131649_dbl_kind, 0.900449932371199_dbl_kind, 0.917991323361815_dbl_kind, 0.972841145307915_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1371) = (/ 0.891293582799157_dbl_kind, 0.894969849645303_dbl_kind, 0.900453192626624_dbl_kind, 0.918001329092649_dbl_kind, 0.972847126459285_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1372) = (/ 0.891293716475259_dbl_kind, 0.894970546820822_dbl_kind, 0.900456452106605_dbl_kind, 0.918011331895257_dbl_kind, 0.972853097284758_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1373) = (/ 0.89129384998662_dbl_kind, 0.894971243658273_dbl_kind, 0.900459710812426_dbl_kind, 0.918021331770995_dbl_kind, 0.972859057805515_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1374) = (/ 0.891293983333667_dbl_kind, 0.894971940157728_dbl_kind, 0.900462968745368_dbl_kind, 0.918031328721206_dbl_kind, 0.972865008042683_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1375) = (/ 0.891294116516825_dbl_kind, 0.894972636319257_dbl_kind, 0.900466225906708_dbl_kind, 0.918041322747233_dbl_kind, 0.972870948017333_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1376) = (/ 0.89129424953652_dbl_kind, 0.894973332142933_dbl_kind, 0.900469482297715_dbl_kind, 0.918051313850405_dbl_kind, 0.97287687775049_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1377) = (/ 0.891294382393174_dbl_kind, 0.894974027628826_dbl_kind, 0.900472737919656_dbl_kind, 0.918061302032043_dbl_kind, 0.97288279726312_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1378) = (/ 0.891294515087208_dbl_kind, 0.894974722777012_dbl_kind, 0.900475992773792_dbl_kind, 0.918071287293463_dbl_kind, 0.972888706576137_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1379) = (/ 0.891294647619041_dbl_kind, 0.894975417587564_dbl_kind, 0.900479246861377_dbl_kind, 0.918081269635971_dbl_kind, 0.972894605710403_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1380) = (/ 0.89129477998909_dbl_kind, 0.894976112060557_dbl_kind, 0.900482500183664_dbl_kind, 0.918091249060866_dbl_kind, 0.972900494686727_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1381) = (/ 0.891294912197773_dbl_kind, 0.894976806196068_dbl_kind, 0.900485752741898_dbl_kind, 0.918101225569437_dbl_kind, 0.972906373525866_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1382) = (/ 0.891295044245503_dbl_kind, 0.894977499994174_dbl_kind, 0.900489004537319_dbl_kind, 0.918111199162966_dbl_kind, 0.972912242248525_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1383) = (/ 0.891295176132692_dbl_kind, 0.894978193454953_dbl_kind, 0.900492255571163_dbl_kind, 0.918121169842728_dbl_kind, 0.972918100875355_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1384) = (/ 0.891295307859753_dbl_kind, 0.894978886578482_dbl_kind, 0.900495505844661_dbl_kind, 0.918131137609988_dbl_kind, 0.972923949426956_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1385) = (/ 0.891295439427094_dbl_kind, 0.894979579364843_dbl_kind, 0.900498755359037_dbl_kind, 0.918141102466003_dbl_kind, 0.972929787923877_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1386) = (/ 0.891295570835124_dbl_kind, 0.894980271814115_dbl_kind, 0.900502004115513_dbl_kind, 0.918151064412025_dbl_kind, 0.972935616386615_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1387) = (/ 0.891295702084249_dbl_kind, 0.89498096392638_dbl_kind, 0.900505252115303_dbl_kind, 0.918161023449292_dbl_kind, 0.972941434835614_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1388) = (/ 0.891295833174873_dbl_kind, 0.89498165570172_dbl_kind, 0.900508499359617_dbl_kind, 0.91817097957904_dbl_kind, 0.972947243291269_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1389) = (/ 0.891295964107399_dbl_kind, 0.894982347140217_dbl_kind, 0.900511745849661_dbl_kind, 0.918180932802493_dbl_kind, 0.972953041773922_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1390) = (/ 0.89129609488223_dbl_kind, 0.894983038241957_dbl_kind, 0.900514991586633_dbl_kind, 0.918190883120868_dbl_kind, 0.972958830303865_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1391) = (/ 0.891296225499765_dbl_kind, 0.894983729007024_dbl_kind, 0.900518236571728_dbl_kind, 0.918200830535375_dbl_kind, 0.972964608901336_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1392) = (/ 0.891296355960403_dbl_kind, 0.894984419435503_dbl_kind, 0.900521480806136_dbl_kind, 0.918210775047213_dbl_kind, 0.972970377586528_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1393) = (/ 0.891296486264539_dbl_kind, 0.894985109527482_dbl_kind, 0.90052472429104_dbl_kind, 0.918220716657577_dbl_kind, 0.972976136379579_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1394) = (/ 0.89129661641257_dbl_kind, 0.894985799283046_dbl_kind, 0.900527967027618_dbl_kind, 0.91823065536765_dbl_kind, 0.972981885300576_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1395) = (/ 0.89129674640489_dbl_kind, 0.894986488702285_dbl_kind, 0.900531209017047_dbl_kind, 0.918240591178608_dbl_kind, 0.97298762436956_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1396) = (/ 0.891296876241889_dbl_kind, 0.894987177785287_dbl_kind, 0.900534450260492_dbl_kind, 0.91825052409162_dbl_kind, 0.972993353606518_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1397) = (/ 0.89129700592396_dbl_kind, 0.894987866532143_dbl_kind, 0.900537690759117_dbl_kind, 0.918260454107847_dbl_kind, 0.972999073031387_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1398) = (/ 0.89129713545149_dbl_kind, 0.894988554942943_dbl_kind, 0.90054093051408_dbl_kind, 0.918270381228439_dbl_kind, 0.973004782664058_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1399) = (/ 0.891297264824868_dbl_kind, 0.894989243017779_dbl_kind, 0.900544169526534_dbl_kind, 0.918280305454542_dbl_kind, 0.973010482524368_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1400) = (/ 0.89129739404448_dbl_kind, 0.894989930756743_dbl_kind, 0.900547407797626_dbl_kind, 0.91829022678729_dbl_kind, 0.973016172632106_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1401) = (/ 0.89129752311071_dbl_kind, 0.894990618159928_dbl_kind, 0.900550645328498_dbl_kind, 0.918300145227812_dbl_kind, 0.973021853007012_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1402) = (/ 0.891297652023941_dbl_kind, 0.894991305227429_dbl_kind, 0.900553882120285_dbl_kind, 0.918310060777226_dbl_kind, 0.973027523668778_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1403) = (/ 0.891297780784554_dbl_kind, 0.89499199195934_dbl_kind, 0.90055711817412_dbl_kind, 0.918319973436644_dbl_kind, 0.973033184637043_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1404) = (/ 0.89129790939293_dbl_kind, 0.894992678355757_dbl_kind, 0.900560353491129_dbl_kind, 0.918329883207169_dbl_kind, 0.973038835931401_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1405) = (/ 0.891298037849446_dbl_kind, 0.894993364416776_dbl_kind, 0.900563588072432_dbl_kind, 0.918339790089897_dbl_kind, 0.973044477571393_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1406) = (/ 0.891298166154481_dbl_kind, 0.894994050142496_dbl_kind, 0.900566821919144_dbl_kind, 0.918349694085913_dbl_kind, 0.973050109576516_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1407) = (/ 0.891298294308409_dbl_kind, 0.894994735533014_dbl_kind, 0.900570055032375_dbl_kind, 0.918359595196298_dbl_kind, 0.973055731966217_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1408) = (/ 0.891298422311604_dbl_kind, 0.894995420588429_dbl_kind, 0.900573287413229_dbl_kind, 0.91836949342212_dbl_kind, 0.973061344759893_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1409) = (/ 0.89129855016444_dbl_kind, 0.89499610530884_dbl_kind, 0.900576519062806_dbl_kind, 0.918379388764442_dbl_kind, 0.973066947976893_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1410) = (/ 0.891298677867286_dbl_kind, 0.89499678969435_dbl_kind, 0.900579749982199_dbl_kind, 0.91838928122432_dbl_kind, 0.973072541636518_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1411) = (/ 0.891298805420514_dbl_kind, 0.894997473745059_dbl_kind, 0.900582980172496_dbl_kind, 0.918399170802798_dbl_kind, 0.973078125758024_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1412) = (/ 0.89129893282449_dbl_kind, 0.894998157461068_dbl_kind, 0.900586209634781_dbl_kind, 0.918409057500915_dbl_kind, 0.973083700360616_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1413) = (/ 0.891299060079582_dbl_kind, 0.894998840842481_dbl_kind, 0.90058943837013_dbl_kind, 0.9184189413197_dbl_kind, 0.97308926546345_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1414) = (/ 0.891299187186155_dbl_kind, 0.894999523889403_dbl_kind, 0.900592666379615_dbl_kind, 0.918428822260175_dbl_kind, 0.97309482108564_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1415) = (/ 0.891299314144572_dbl_kind, 0.895000206601938_dbl_kind, 0.900595893664303_dbl_kind, 0.918438700323354_dbl_kind, 0.973100367246247_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1416) = (/ 0.891299440955197_dbl_kind, 0.89500088898019_dbl_kind, 0.900599120225255_dbl_kind, 0.918448575510242_dbl_kind, 0.973105903964288_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1417) = (/ 0.89129956761839_dbl_kind, 0.895001571024267_dbl_kind, 0.900602346063525_dbl_kind, 0.918458447821835_dbl_kind, 0.973111431258732_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1418) = (/ 0.891299694134511_dbl_kind, 0.895002252734275_dbl_kind, 0.900605571180165_dbl_kind, 0.918468317259123_dbl_kind, 0.973116949148499_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1419) = (/ 0.891299820503918_dbl_kind, 0.895002934110322_dbl_kind, 0.900608795576219_dbl_kind, 0.918478183823086_dbl_kind, 0.973122457652467_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1420) = (/ 0.891299946726968_dbl_kind, 0.895003615152516_dbl_kind, 0.900612019252725_dbl_kind, 0.918488047514697_dbl_kind, 0.973127956789461_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1421) = (/ 0.891300072804015_dbl_kind, 0.895004295860968_dbl_kind, 0.900615242210718_dbl_kind, 0.918497908334921_dbl_kind, 0.973133446578268_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1422) = (/ 0.891300198735414_dbl_kind, 0.895004976235786_dbl_kind, 0.900618464451224_dbl_kind, 0.918507766284713_dbl_kind, 0.973138927037616_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1423) = (/ 0.891300324521518_dbl_kind, 0.895005656277082_dbl_kind, 0.900621685975267_dbl_kind, 0.918517621365022_dbl_kind, 0.973144398186202_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1424) = (/ 0.891300450162678_dbl_kind, 0.895006335984968_dbl_kind, 0.900624906783862_dbl_kind, 0.918527473576789_dbl_kind, 0.973149860042664_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1425) = (/ 0.891300575659242_dbl_kind, 0.895007015359555_dbl_kind, 0.900628126878023_dbl_kind, 0.918537322920943_dbl_kind, 0.973155312625601_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1426) = (/ 0.891300701011561_dbl_kind, 0.895007694400958_dbl_kind, 0.900631346258753_dbl_kind, 0.918547169398409_dbl_kind, 0.973160755953563_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1427) = (/ 0.891300826219981_dbl_kind, 0.895008373109289_dbl_kind, 0.900634564927054_dbl_kind, 0.918557013010102_dbl_kind, 0.973166190045058_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1428) = (/ 0.891300951284847_dbl_kind, 0.895009051484665_dbl_kind, 0.900637782883919_dbl_kind, 0.91856685375693_dbl_kind, 0.973171614918544_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1429) = (/ 0.891301076206504_dbl_kind, 0.895009729527199_dbl_kind, 0.900641000130338_dbl_kind, 0.918576691639792_dbl_kind, 0.973177030592431_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1430) = (/ 0.891301200985295_dbl_kind, 0.895010407237009_dbl_kind, 0.900644216667295_dbl_kind, 0.918586526659578_dbl_kind, 0.973182437085098_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1431) = (/ 0.891301325621561_dbl_kind, 0.89501108461421_dbl_kind, 0.900647432495767_dbl_kind, 0.918596358817171_dbl_kind, 0.973187834414862_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1432) = (/ 0.891301450115644_dbl_kind, 0.895011761658922_dbl_kind, 0.900650647616725_dbl_kind, 0.918606188113446_dbl_kind, 0.973193222600002_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1433) = (/ 0.89130157446788_dbl_kind, 0.895012438371262_dbl_kind, 0.900653862031137_dbl_kind, 0.918616014549269_dbl_kind, 0.973198601658754_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1434) = (/ 0.891301698678609_dbl_kind, 0.895013114751349_dbl_kind, 0.900657075739964_dbl_kind, 0.918625838125497_dbl_kind, 0.973203971609305_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1435) = (/ 0.891301822748166_dbl_kind, 0.895013790799304_dbl_kind, 0.90066028874416_dbl_kind, 0.918635658842983_dbl_kind, 0.973209332469803_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1436) = (/ 0.891301946676886_dbl_kind, 0.895014466515246_dbl_kind, 0.900663501044675_dbl_kind, 0.918645476702567_dbl_kind, 0.973214684258343_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1437) = (/ 0.891302070465103_dbl_kind, 0.895015141899298_dbl_kind, 0.900666712642454_dbl_kind, 0.918655291705081_dbl_kind, 0.973220026992985_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1438) = (/ 0.891302194113149_dbl_kind, 0.895015816951581_dbl_kind, 0.900669923538434_dbl_kind, 0.918665103851354_dbl_kind, 0.973225360691737_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1439) = (/ 0.891302317621356_dbl_kind, 0.895016491672217_dbl_kind, 0.900673133733548_dbl_kind, 0.9186749131422_dbl_kind, 0.973230685372569_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1440) = (/ 0.891302440990053_dbl_kind, 0.895017166061332_dbl_kind, 0.900676343228723_dbl_kind, 0.918684719578429_dbl_kind, 0.973236001053401_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1441) = (/ 0.891302564219568_dbl_kind, 0.895017840119048_dbl_kind, 0.900679552024881_dbl_kind, 0.918694523160844_dbl_kind, 0.973241307752113_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1442) = (/ 0.891302687310228_dbl_kind, 0.895018513845491_dbl_kind, 0.900682760122936_dbl_kind, 0.918704323890235_dbl_kind, 0.973246605486544_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1443) = (/ 0.891302810262359_dbl_kind, 0.895019187240786_dbl_kind, 0.900685967523799_dbl_kind, 0.918714121767388_dbl_kind, 0.973251894274482_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1444) = (/ 0.891302933076286_dbl_kind, 0.89501986030506_dbl_kind, 0.900689174228373_dbl_kind, 0.91872391679308_dbl_kind, 0.973257174133677_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1445) = (/ 0.891303055752333_dbl_kind, 0.895020533038439_dbl_kind, 0.900692380237558_dbl_kind, 0.918733708968078_dbl_kind, 0.973262445081832_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1446) = (/ 0.89130317829082_dbl_kind, 0.895021205441051_dbl_kind, 0.900695585552245_dbl_kind, 0.918743498293142_dbl_kind, 0.973267707136612_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1447) = (/ 0.891303300692068_dbl_kind, 0.895021877513026_dbl_kind, 0.900698790173322_dbl_kind, 0.918753284769025_dbl_kind, 0.973272960315633_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1448) = (/ 0.891303422956397_dbl_kind, 0.895022549254491_dbl_kind, 0.90070199410167_dbl_kind, 0.918763068396469_dbl_kind, 0.973278204636473_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1449) = (/ 0.891303545084126_dbl_kind, 0.895023220665577_dbl_kind, 0.900705197338166_dbl_kind, 0.918772849176211_dbl_kind, 0.973283440116661_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1450) = (/ 0.891303667075571_dbl_kind, 0.895023891746414_dbl_kind, 0.900708399883677_dbl_kind, 0.918782627108979_dbl_kind, 0.97328866677369_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1451) = (/ 0.891303788931048_dbl_kind, 0.895024562497133_dbl_kind, 0.900711601739068_dbl_kind, 0.91879240219549_dbl_kind, 0.973293884625008_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1452) = (/ 0.89130391065087_dbl_kind, 0.895025232917867_dbl_kind, 0.900714802905199_dbl_kind, 0.918802174436457_dbl_kind, 0.973299093688017_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1453) = (/ 0.891304032235353_dbl_kind, 0.895025903008746_dbl_kind, 0.90071800338292_dbl_kind, 0.918811943832581_dbl_kind, 0.973304293980082_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1454) = (/ 0.891304153684807_dbl_kind, 0.895026572769906_dbl_kind, 0.900721203173078_dbl_kind, 0.918821710384559_dbl_kind, 0.973309485518524_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1455) = (/ 0.891304274999542_dbl_kind, 0.895027242201479_dbl_kind, 0.900724402276516_dbl_kind, 0.918831474093075_dbl_kind, 0.973314668320618_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1456) = (/ 0.89130439617987_dbl_kind, 0.8950279113036_dbl_kind, 0.900727600694067_dbl_kind, 0.918841234958809_dbl_kind, 0.973319842403605_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1457) = (/ 0.891304517226098_dbl_kind, 0.895028580076404_dbl_kind, 0.900730798426562_dbl_kind, 0.918850992982431_dbl_kind, 0.973325007784675_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1458) = (/ 0.891304638138532_dbl_kind, 0.895029248520027_dbl_kind, 0.900733995474824_dbl_kind, 0.918860748164603_dbl_kind, 0.973330164480983_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1459) = (/ 0.891304758917479_dbl_kind, 0.895029916634606_dbl_kind, 0.90073719183967_dbl_kind, 0.918870500505978_dbl_kind, 0.973335312509639_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1460) = (/ 0.891304879563244_dbl_kind, 0.895030584420277_dbl_kind, 0.900740387521913_dbl_kind, 0.918880250007203_dbl_kind, 0.973340451887712_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1461) = (/ 0.89130500007613_dbl_kind, 0.895031251877178_dbl_kind, 0.900743582522359_dbl_kind, 0.918889996668914_dbl_kind, 0.973345582632231_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1462) = (/ 0.891305120456439_dbl_kind, 0.895031919005448_dbl_kind, 0.900746776841807_dbl_kind, 0.918899740491742_dbl_kind, 0.973350704760184_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1463) = (/ 0.891305240704472_dbl_kind, 0.895032585805226_dbl_kind, 0.900749970481054_dbl_kind, 0.918909481476307_dbl_kind, 0.973355818288515_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1464) = (/ 0.891305360820529_dbl_kind, 0.895033252276651_dbl_kind, 0.900753163440887_dbl_kind, 0.918919219623223_dbl_kind, 0.973360923234129_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1465) = (/ 0.89130548080491_dbl_kind, 0.895033918419863_dbl_kind, 0.900756355722089_dbl_kind, 0.918928954933093_dbl_kind, 0.973366019613892_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1466) = (/ 0.89130560065791_dbl_kind, 0.895034584235004_dbl_kind, 0.900759547325438_dbl_kind, 0.918938687406517_dbl_kind, 0.973371107444624_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1467) = (/ 0.891305720379828_dbl_kind, 0.895035249722214_dbl_kind, 0.900762738251705_dbl_kind, 0.91894841704408_dbl_kind, 0.973376186743106_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1468) = (/ 0.891305839970957_dbl_kind, 0.895035914881637_dbl_kind, 0.900765928501655_dbl_kind, 0.918958143846365_dbl_kind, 0.973381257526084_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1469) = (/ 0.891305959431592_dbl_kind, 0.895036579713415_dbl_kind, 0.900769118076048_dbl_kind, 0.918967867813943_dbl_kind, 0.973386319810258_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1470) = (/ 0.891306078762026_dbl_kind, 0.89503724421769_dbl_kind, 0.900772306975637_dbl_kind, 0.918977588947379_dbl_kind, 0.973391373612288_dbl_kind /) + iceAsymmetryParameterDiffuse(1:5 ,1471) = (/ 0.891306197962551_dbl_kind, 0.895037908394608_dbl_kind, 0.900775495201171_dbl_kind, 0.918987307247229_dbl_kind, 0.973396418948797_dbl_kind /) + + iceSingleScatterAlbedoDirect(1:5 ,1) = (/ 0.999996473539642_dbl_kind, 0.999897920739992_dbl_kind, 0.999240565661103_dbl_kind, 0.993823361190655_dbl_kind, 0.941294661423717_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,2) = (/ 0.999996361173434_dbl_kind, 0.999894735419621_dbl_kind, 0.999216637256531_dbl_kind, 0.993697069727296_dbl_kind, 0.939921805058392_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,3) = (/ 0.999996249406051_dbl_kind, 0.999891558786757_dbl_kind, 0.999192716658491_dbl_kind, 0.993572481152941_dbl_kind, 0.938560323564721_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,4) = (/ 0.999996138181685_dbl_kind, 0.999888389969221_dbl_kind, 0.999168786870456_dbl_kind, 0.993449465601411_dbl_kind, 0.937209923402721_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,5) = (/ 0.999996027434647_dbl_kind, 0.999885228003346_dbl_kind, 0.999144833681027_dbl_kind, 0.993327900863047_dbl_kind, 0.935870325891656_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,6) = (/ 0.999995917092138_dbl_kind, 0.999882071888276_dbl_kind, 0.99912084599924_dbl_kind, 0.993207672400846_dbl_kind, 0.934541266588599_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,7) = (/ 0.999995807076844_dbl_kind, 0.999878920635777_dbl_kind, 0.999096815972237_dbl_kind, 0.993088673448881_dbl_kind, 0.93322249430228_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,8) = (/ 0.999995697309289_dbl_kind, 0.999875773312412_dbl_kind, 0.999072738926153_dbl_kind, 0.992970805123498_dbl_kind, 0.931913769984942_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,9) = (/ 0.99999558770994_dbl_kind, 0.999872629072474_dbl_kind, 0.999048613171924_dbl_kind, 0.992853976494181_dbl_kind, 0.930614865653367_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,10) = (/ 0.999995478201023_dbl_kind, 0.999869487181161_dbl_kind, 0.999024439714989_dbl_kind, 0.992738104579_dbl_kind, 0.929325563419527_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,11) = (/ 0.99999536870806_dbl_kind, 0.999866347028399_dbl_kind, 0.999000221903186_dbl_kind, 0.992623114246065_dbl_kind, 0.928045654661507_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,12) = (/ 0.999995259161125_dbl_kind, 0.999863208134334_dbl_kind, 0.998975965041614_dbl_kind, 0.992508938015847_dbl_kind, 0.926774939334079_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,13) = (/ 0.999995149495825_dbl_kind, 0.999860070147774_dbl_kind, 0.998951675997609_dbl_kind, 0.992395515769161_dbl_kind, 0.925513225400971_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,14) = (/ 0.999995039654026_dbl_kind, 0.999856932839081_dbl_kind, 0.998927362813756_dbl_kind, 0.992282794372209_dbl_kind, 0.924260328363991_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,15) = (/ 0.999994929584356_dbl_kind, 0.999853796088973_dbl_kind, 0.998903034342147_dbl_kind, 0.992170727233891_dbl_kind, 0.9230160708634_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,16) = (/ 0.999994819242493_dbl_kind, 0.999850659874595_dbl_kind, 0.998878699909057_dbl_kind, 0.992059273812212_dbl_kind, 0.921780282327223_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,17) = (/ 0.999994708591275_dbl_kind, 0.99984752425406_dbl_kind, 0.998854369015923_dbl_kind, 0.991948399086661_dbl_kind, 0.920552798651865_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,18) = (/ 0.999994597600659_dbl_kind, 0.999844389350458_dbl_kind, 0.998830051079715_dbl_kind, 0.991838073012411_dbl_kind, 0.919333461901503_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,19) = (/ 0.999994486247544_dbl_kind, 0.99984125533615_dbl_kind, 0.998805755213725_dbl_kind, 0.991728269970545_dbl_kind, 0.918122120018432_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,20) = (/ 0.999994374515509_dbl_kind, 0.999838122417929_dbl_kind, 0.998781490048113_dbl_kind, 0.991618968226489_dbl_kind, 0.916918626540208_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,21) = (/ 0.999994262394443_dbl_kind, 0.999834990823491_dbl_kind, 0.998757263588354_dbl_kind, 0.991510149406748_dbl_kind, 0.915722840322303_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,22) = (/ 0.999994149880139_dbl_kind, 0.999831860789493_dbl_kind, 0.998733083108911_dbl_kind, 0.991401798001929_dbl_kind, 0.914534625266845_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,23) = (/ 0.999994036973832_dbl_kind, 0.999828732551317_dbl_kind, 0.998708955078855_dbl_kind, 0.991293900902114_dbl_kind, 0.913353850058993_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,24) = (/ 0.99999392368171_dbl_kind, 0.999825606334613_dbl_kind, 0.998684885115909_dbl_kind, 0.991186446968852_dbl_kind, 0.912180387913036_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,25) = (/ 0.999993810014412_dbl_kind, 0.999822482348553_dbl_kind, 0.998660877965212_dbl_kind, 0.991079426646468_dbl_kind, 0.91101411633025_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,26) = (/ 0.999993695986521_dbl_kind, 0.999819360780719_dbl_kind, 0.998636937499187_dbl_kind, 0.990972831614054_dbl_kind, 0.909854916870194_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,27) = (/ 0.999993581616066_dbl_kind, 0.999816241793466_dbl_kind, 0.998613066734978_dbl_kind, 0.990866654478355_dbl_kind, 0.908702674936746_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,28) = (/ 0.99999346692402_dbl_kind, 0.999813125521626_dbl_kind, 0.998589267866166_dbl_kind, 0.990760888506839_dbl_kind, 0.907557279579561_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,29) = (/ 0.99999335193384_dbl_kind, 0.999810012071344_dbl_kind, 0.998565542305738_dbl_kind, 0.990655527399463_dbl_kind, 0.906418623311165_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,30) = (/ 0.999993236671004_dbl_kind, 0.999806901519907_dbl_kind, 0.998541890737549_dbl_kind, 0.990550565097123_dbl_kind, 0.905286601939379_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,31) = (/ 0.999993121162588_dbl_kind, 0.999803793916362_dbl_kind, 0.998518313173872_dbl_kind, 0.990445995624275_dbl_kind, 0.90416111441443_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,32) = (/ 0.999993005436863_dbl_kind, 0.999800689282775_dbl_kind, 0.998494809016887_dbl_kind, 0.990341812963_dbl_kind, 0.903042062689752_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,33) = (/ 0.99999288952292_dbl_kind, 0.999797587615991_dbl_kind, 0.998471377122302_dbl_kind, 0.990238010955531_dbl_kind, 0.901929351595277_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,34) = (/ 0.999992773450328_dbl_kind, 0.999794488889745_dbl_kind, 0.99844801586356_dbl_kind, 0.99013458323225_dbl_kind, 0.900822888721985_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,35) = (/ 0.99999265724882_dbl_kind, 0.999791393057014_dbl_kind, 0.998424723195369_dbl_kind, 0.990031523162107_dbl_kind, 0.899722584316255_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,36) = (/ 0.999992540948004_dbl_kind, 0.999788300052515_dbl_kind, 0.998401496715505_dbl_kind, 0.989928823822514_dbl_kind, 0.898628351182785_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,37) = (/ 0.999992424577107_dbl_kind, 0.999785209795256_dbl_kind, 0.998378333724095_dbl_kind, 0.989826477985864_dbl_kind, 0.897540104594721_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,38) = (/ 0.99999230816475_dbl_kind, 0.99978212219108_dbl_kind, 0.998355231279746_dbl_kind, 0.989724478120003_dbl_kind, 0.896457762209863_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,39) = (/ 0.99999219173874_dbl_kind, 0.999779037135125_dbl_kind, 0.99833218625207_dbl_kind, 0.989622816400156_dbl_kind, 0.895381243991876_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,40) = (/ 0.999992075325901_dbl_kind, 0.999775954514193_dbl_kind, 0.998309195370299_dbl_kind, 0.989521484730012_dbl_kind, 0.894310472135542_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,41) = (/ 0.999991958951922_dbl_kind, 0.99977287420895_dbl_kind, 0.998286255267812_dbl_kind, 0.989420474769906_dbl_kind, 0.893245370995306_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,42) = (/ 0.999991842641231_dbl_kind, 0.999769796095979_dbl_kind, 0.998263362522481_dbl_kind, 0.989319777970234_dbl_kind, 0.892185867016399_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,43) = (/ 0.999991726416893_dbl_kind, 0.999766720049631_dbl_kind, 0.998240513692866_dbl_kind, 0.989219385608479_dbl_kind, 0.891131888668029_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,44) = (/ 0.999991610300526_dbl_kind, 0.999763645943698_dbl_kind, 0.998217705350313_dbl_kind, 0.98911928882842_dbl_kind, 0.890083366378218_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,45) = (/ 0.999991494312241_dbl_kind, 0.999760573652885_dbl_kind, 0.998194934107099_dbl_kind, 0.989019478680316_dbl_kind, 0.889040232469953_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,46) = (/ 0.999991378470595_dbl_kind, 0.999757503054088_dbl_kind, 0.998172196640793_dbl_kind, 0.988919946161042_dbl_kind, 0.888002421098439_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,47) = (/ 0.999991262792566_dbl_kind, 0.999754434027491_dbl_kind, 0.998149489715045_dbl_kind, 0.988820682253317_dbl_kind, 0.886969868189292_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,48) = (/ 0.999991147293544_dbl_kind, 0.999751366457485_dbl_kind, 0.998126810197022_dbl_kind, 0.988721677963367_dbl_kind, 0.885942511377617_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,49) = (/ 0.999991031987326_dbl_kind, 0.999748300233412_dbl_kind, 0.998104155071743_dbl_kind, 0.988622924356465_dbl_kind, 0.88492028994791_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,50) = (/ 0.999990916886139_dbl_kind, 0.999745235250165_dbl_kind, 0.998081521453549_dbl_kind, 0.988524412589953_dbl_kind, 0.883903144774828_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,51) = (/ 0.999990802000661_dbl_kind, 0.999742171408633_dbl_kind, 0.998058906594972_dbl_kind, 0.988426133943462_dbl_kind, 0.88289101826485_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,52) = (/ 0.999990687340057_dbl_kind, 0.999739108616031_dbl_kind, 0.998036307893254_dbl_kind, 0.988328079846139_dbl_kind, 0.88188385429892_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,53) = (/ 0.999990572912027_dbl_kind, 0.999736046786104_dbl_kind, 0.998013722894732_dbl_kind, 0.988230241900782_dbl_kind, 0.880881598176128_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,54) = (/ 0.999990458722857_dbl_kind, 0.99973298583923_dbl_kind, 0.997991149297371_dbl_kind, 0.988132611904862_dbl_kind, 0.879884196558546_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,55) = (/ 0.999990344777472_dbl_kind, 0.999729925702442_dbl_kind, 0.997968584951615_dbl_kind, 0.988035181868449_dbl_kind, 0.878891597417318_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,56) = (/ 0.999990231079508_dbl_kind, 0.999726866309362_dbl_kind, 0.997946027859809_dbl_kind, 0.987937944029165_dbl_kind, 0.877903749980053_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,57) = (/ 0.999990117631371_dbl_kind, 0.999723807600081_dbl_kind, 0.99792347617437_dbl_kind, 0.987840890864242_dbl_kind, 0.876920604679668_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,58) = (/ 0.999990004434316_dbl_kind, 0.999720749520974_dbl_kind, 0.997900928194887_dbl_kind, 0.987744015099875_dbl_kind, 0.875942113104744_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,59) = (/ 0.999989891488511_dbl_kind, 0.999717692024476_dbl_kind, 0.997878382364332_dbl_kind, 0.987647309718035_dbl_kind, 0.874968227951409_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,60) = (/ 0.999989778793117_dbl_kind, 0.999714635068829_dbl_kind, 0.997855837264532_dbl_kind, 0.987550767960936_dbl_kind, 0.873998902976937_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,61) = (/ 0.999989666346362_dbl_kind, 0.999711578617787_dbl_kind, 0.997833291611034_dbl_kind, 0.98745438333336_dbl_kind, 0.873034092954959_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,62) = (/ 0.999989554145612_dbl_kind, 0.999708522640321_dbl_kind, 0.997810744247507_dbl_kind, 0.987358149603049_dbl_kind, 0.872073753632452_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,63) = (/ 0.999989442187455_dbl_kind, 0.999705467110289_dbl_kind, 0.997788194139775_dbl_kind, 0.987262060799374_dbl_kind, 0.871117841688458_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,64) = (/ 0.999989330467762_dbl_kind, 0.99970241200612_dbl_kind, 0.997765640369605_dbl_kind, 0.987166111210474_dbl_kind, 0.870166314694558_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,65) = (/ 0.999989218981767_dbl_kind, 0.999699357310482_dbl_kind, 0.997743082128317_dbl_kind, 0.987070295379083_dbl_kind, 0.869219131077165_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,66) = (/ 0.999989107724132_dbl_kind, 0.999696303009957_dbl_kind, 0.997720518710311_dbl_kind, 0.986974608097212_dbl_kind, 0.868276250081496_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,67) = (/ 0.99998899668902_dbl_kind, 0.999693249094721_dbl_kind, 0.997697949506573_dbl_kind, 0.98687904439989_dbl_kind, 0.867337631737369_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,68) = (/ 0.999988885870154_dbl_kind, 0.999690195558232_dbl_kind, 0.997675373998225_dbl_kind, 0.986783599558102_dbl_kind, 0.86640323682667_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,69) = (/ 0.99998877526088_dbl_kind, 0.999687142396932_dbl_kind, 0.99765279175015_dbl_kind, 0.986688269071112_dbl_kind, 0.865473026852525_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,70) = (/ 0.999988664854231_dbl_kind, 0.999684089609956_dbl_kind, 0.99763020240477_dbl_kind, 0.986593048658292_dbl_kind, 0.864546964010107_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,71) = (/ 0.999988554642975_dbl_kind, 0.999681037198863_dbl_kind, 0.997607605675971_dbl_kind, 0.98649793425059_dbl_kind, 0.863625011159058_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,72) = (/ 0.999988444619675_dbl_kind, 0.999677985167374_dbl_kind, 0.997585001343239_dbl_kind, 0.98640292198176_dbl_kind, 0.862707131797436_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,73) = (/ 0.999988334776732_dbl_kind, 0.999674933521132_dbl_kind, 0.997562389246002_dbl_kind, 0.986308008179464_dbl_kind, 0.861793290037168_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,74) = (/ 0.999988225106432_dbl_kind, 0.999671882267478_dbl_kind, 0.997539769278229_dbl_kind, 0.986213189356309_dbl_kind, 0.860883450580945_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,75) = (/ 0.999988115600994_dbl_kind, 0.999668831415243_dbl_kind, 0.997517141383254_dbl_kind, 0.986118462200938_dbl_kind, 0.859977578700462_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,76) = (/ 0.999988006252603_dbl_kind, 0.999665780974552_dbl_kind, 0.997494505548878_dbl_kind, 0.986023823569227_dbl_kind, 0.859075640216005_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,77) = (/ 0.999987897053447_dbl_kind, 0.99966273095665_dbl_kind, 0.997471861802732_dbl_kind, 0.985929270475626_dbl_kind, 0.858177601477257_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,78) = (/ 0.999987787995752_dbl_kind, 0.999659681373747_dbl_kind, 0.997449210207908_dbl_kind, 0.985834800084737_dbl_kind, 0.857283429345278_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,79) = (/ 0.999987679071813_dbl_kind, 0.999656632238866_dbl_kind, 0.997426550858855_dbl_kind, 0.98574040970313_dbl_kind, 0.85639309117566_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,80) = (/ 0.999987570274012_dbl_kind, 0.999653583565711_dbl_kind, 0.997403883877544_dbl_kind, 0.985646096771452_dbl_kind, 0.855506554802647_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,81) = (/ 0.999987461594855_dbl_kind, 0.999650535368563_dbl_kind, 0.997381209409902_dbl_kind, 0.985551858856839_dbl_kind, 0.85462378852434_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,82) = (/ 0.99998735302698_dbl_kind, 0.999647487662163_dbl_kind, 0.997358527622488_dbl_kind, 0.985457693645672_dbl_kind, 0.853744761088761_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,83) = (/ 0.999987244563187_dbl_kind, 0.999644440461628_dbl_kind, 0.997335838699428_dbl_kind, 0.985363598936656_dbl_kind, 0.85286944168084_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,84) = (/ 0.999987136196446_dbl_kind, 0.999641393782366_dbl_kind, 0.997313142839596_dbl_kind, 0.98526957263426_dbl_kind, 0.851997799910171_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,85) = (/ 0.999987027919913_dbl_kind, 0.999638347640009_dbl_kind, 0.99729044025402_dbl_kind, 0.985175612742506_dbl_kind, 0.851129805799573_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,86) = (/ 0.999986919726943_dbl_kind, 0.999635302050357_dbl_kind, 0.997267731163508_dbl_kind, 0.985081717359106_dbl_kind, 0.850265429774311_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,87) = (/ 0.999986811611099_dbl_kind, 0.999632257029318_dbl_kind, 0.997245015796497_dbl_kind, 0.984987884669948_dbl_kind, 0.849404642652022_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,88) = (/ 0.999986703566159_dbl_kind, 0.999629212592869_dbl_kind, 0.997222294387102_dbl_kind, 0.98489411294392_dbl_kind, 0.848547415633198_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,89) = (/ 0.999986595586122_dbl_kind, 0.999626168757019_dbl_kind, 0.997199567173354_dbl_kind, 0.984800400528062_dbl_kind, 0.847693720292266_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,90) = (/ 0.999986487665212_dbl_kind, 0.999623125537779_dbl_kind, 0.997176834395619_dbl_kind, 0.98470674584304_dbl_kind, 0.846843528569165_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,91) = (/ 0.99998637979788_dbl_kind, 0.999620082951137_dbl_kind, 0.997154096295194_dbl_kind, 0.984613147378922_dbl_kind, 0.845996812761414_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,92) = (/ 0.99998627197881_dbl_kind, 0.999617041013038_dbl_kind, 0.997131353113063_dbl_kind, 0.984519603691242_dbl_kind, 0.845153545516615_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,93) = (/ 0.999986164202915_dbl_kind, 0.999613999739369_dbl_kind, 0.99710860508879_dbl_kind, 0.984426113397355_dbl_kind, 0.84431369982535_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,94) = (/ 0.999986056465334_dbl_kind, 0.999610959145946_dbl_kind, 0.997085852459573_dbl_kind, 0.984332675173032_dbl_kind, 0.843477249014463_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,95) = (/ 0.999985948761437_dbl_kind, 0.999607919248509_dbl_kind, 0.997063095459413_dbl_kind, 0.984239287749321_dbl_kind, 0.842644166740675_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,96) = (/ 0.999985841086818_dbl_kind, 0.99960488006271_dbl_kind, 0.997040334318406_dbl_kind, 0.984145949909627_dbl_kind, 0.8418144269845_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,97) = (/ 0.999985733437291_dbl_kind, 0.999601841604114_dbl_kind, 0.99701756926215_dbl_kind, 0.984052660487007_dbl_kind, 0.840988004044465_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,98) = (/ 0.999985625808889_dbl_kind, 0.999598803888194_dbl_kind, 0.996994800511252_dbl_kind, 0.983959418361672_dbl_kind, 0.840164872531574_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,99) = (/ 0.999985518197856_dbl_kind, 0.999595766930333_dbl_kind, 0.996972028280929_dbl_kind, 0.983866222458669_dbl_kind, 0.839345007364012_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,100) = (/ 0.999985410600644_dbl_kind, 0.99959273074582_dbl_kind, 0.996949252780691_dbl_kind, 0.983773071745727_dbl_kind, 0.838528383762069_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,101) = (/ 0.999985303013908_dbl_kind, 0.999589695349857_dbl_kind, 0.996926474214107_dbl_kind, 0.983679965231275_dbl_kind, 0.837714977243259_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,102) = (/ 0.999985195434496_dbl_kind, 0.999586660757551_dbl_kind, 0.99690369277864_dbl_kind, 0.983586901962591_dbl_kind, 0.836904763617621_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,103) = (/ 0.999985087859447_dbl_kind, 0.999583626983927_dbl_kind, 0.99688090866554_dbl_kind, 0.983493881024083_dbl_kind, 0.836097718983174_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,104) = (/ 0.999984980285986_dbl_kind, 0.99958059404392_dbl_kind, 0.996858122059804_dbl_kind, 0.983400901535699_dbl_kind, 0.835293819721546_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,105) = (/ 0.999984872711509_dbl_kind, 0.99957756195238_dbl_kind, 0.996835333140173_dbl_kind, 0.983307962651435_dbl_kind, 0.834493042493715_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,106) = (/ 0.999984765133589_dbl_kind, 0.999574530724072_dbl_kind, 0.996812542079185_dbl_kind, 0.983215063557941_dbl_kind, 0.833695364235881_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,107) = (/ 0.999984657549955_dbl_kind, 0.999571500373681_dbl_kind, 0.996789749043262_dbl_kind, 0.983122203473226_dbl_kind, 0.832900762155469_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,108) = (/ 0.999984549958498_dbl_kind, 0.999568470915806_dbl_kind, 0.996766954192832_dbl_kind, 0.983029381645431_dbl_kind, 0.832109213727222_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,109) = (/ 0.999984442357257_dbl_kind, 0.99956544236496_dbl_kind, 0.99674415768248_dbl_kind, 0.98293659735168_dbl_kind, 0.831320696689381_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,110) = (/ 0.999984334744413_dbl_kind, 0.999562414735575_dbl_kind, 0.996721359661123_dbl_kind, 0.982843849896993_dbl_kind, 0.83053518903999_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,111) = (/ 0.999984227118285_dbl_kind, 0.999559388041995_dbl_kind, 0.996698560272209_dbl_kind, 0.982751138613253_dbl_kind, 0.829752669033236_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,112) = (/ 0.99998411947732_dbl_kind, 0.999556362298471_dbl_kind, 0.996675759653931_dbl_kind, 0.982658462858233_dbl_kind, 0.828973115175904_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,113) = (/ 0.999984011820093_dbl_kind, 0.999553337519166_dbl_kind, 0.996652957939451_dbl_kind, 0.982565822014663_dbl_kind, 0.828196506223886_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,114) = (/ 0.99998390414529_dbl_kind, 0.999550313718141_dbl_kind, 0.996630155257145_dbl_kind, 0.982473215489331_dbl_kind, 0.827422821178748_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,115) = (/ 0.999983796451713_dbl_kind, 0.99954729090936_dbl_kind, 0.996607351730843_dbl_kind, 0.982380642712235_dbl_kind, 0.826652039284379_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,116) = (/ 0.999983688738269_dbl_kind, 0.999544269106678_dbl_kind, 0.996584547480085_dbl_kind, 0.982288103135756_dbl_kind, 0.825884140023673_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,117) = (/ 0.999983581003962_dbl_kind, 0.999541248323839_dbl_kind, 0.99656174262037_dbl_kind, 0.982195596233865_dbl_kind, 0.825119103115293_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,118) = (/ 0.999983473247892_dbl_kind, 0.999538228574463_dbl_kind, 0.996538937263417_dbl_kind, 0.982103121501354_dbl_kind, 0.824356908510459_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,119) = (/ 0.999983365469249_dbl_kind, 0.999535209872047_dbl_kind, 0.996516131517411_dbl_kind, 0.98201067845309_dbl_kind, 0.823597536389802_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,120) = (/ 0.999983257667303_dbl_kind, 0.999532192229956_dbl_kind, 0.996493325487261_dbl_kind, 0.981918266623293_dbl_kind, 0.82284096716026_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,121) = (/ 0.999983149841407_dbl_kind, 0.999529175661408_dbl_kind, 0.996470519274839_dbl_kind, 0.981825885564829_dbl_kind, 0.822087181452019_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,122) = (/ 0.999983041990985_dbl_kind, 0.999526160179473_dbl_kind, 0.996447712979227_dbl_kind, 0.981733534848527_dbl_kind, 0.821336160115486_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,123) = (/ 0.999982934115533_dbl_kind, 0.999523145797061_dbl_kind, 0.996424906696945_dbl_kind, 0.981641214062499_dbl_kind, 0.820587884218327_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,124) = (/ 0.999982826214608_dbl_kind, 0.999520132526913_dbl_kind, 0.996402100522179_dbl_kind, 0.981548922811498_dbl_kind, 0.819842335042523_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,125) = (/ 0.999982718287834_dbl_kind, 0.999517120381593_dbl_kind, 0.996379294546999_dbl_kind, 0.981456660716262_dbl_kind, 0.819099494081472_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,126) = (/ 0.999982610334887_dbl_kind, 0.999514109373478_dbl_kind, 0.996356488861564_dbl_kind, 0.981364427412895_dbl_kind, 0.818359343037132_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,127) = (/ 0.9999825023555_dbl_kind, 0.999511099514746_dbl_kind, 0.996333683554323_dbl_kind, 0.981272222552251_dbl_kind, 0.817621863817198_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,128) = (/ 0.999982394349454_dbl_kind, 0.999508090817371_dbl_kind, 0.9963108787122_dbl_kind, 0.981180045799326_dbl_kind, 0.816887038532311_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,129) = (/ 0.999982286316578_dbl_kind, 0.999505083293109_dbl_kind, 0.996288074420773_dbl_kind, 0.981087896832675_dbl_kind, 0.816154849493315_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,130) = (/ 0.999982178256744_dbl_kind, 0.999502076953489_dbl_kind, 0.996265270764436_dbl_kind, 0.98099577534383_dbl_kind, 0.815425279208539_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,131) = (/ 0.999982070169865_dbl_kind, 0.999499071809809_dbl_kind, 0.996242467826558_dbl_kind, 0.980903681036733_dbl_kind, 0.814698310381101_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,132) = (/ 0.999981962055892_dbl_kind, 0.999496067873118_dbl_kind, 0.996219665689625_dbl_kind, 0.980811613627188_dbl_kind, 0.813973925906295_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,133) = (/ 0.999981853914809_dbl_kind, 0.999493065154213_dbl_kind, 0.996196864435375_dbl_kind, 0.980719572842316_dbl_kind, 0.813252108868931_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,134) = (/ 0.999981745746636_dbl_kind, 0.999490063663629_dbl_kind, 0.996174064144912_dbl_kind, 0.980627558420019_dbl_kind, 0.812532842540798_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,135) = (/ 0.999981637551422_dbl_kind, 0.999487063411626_dbl_kind, 0.996151264898828_dbl_kind, 0.980535570108479_dbl_kind, 0.811816110378088_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,136) = (/ 0.999981529329242_dbl_kind, 0.99948406440819_dbl_kind, 0.996128466777293_dbl_kind, 0.980443607665639_dbl_kind, 0.811101896018897_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,137) = (/ 0.999981421080201_dbl_kind, 0.999481066663014_dbl_kind, 0.996105669860151_dbl_kind, 0.980351670858719_dbl_kind, 0.810390183280735_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,138) = (/ 0.999981312804427_dbl_kind, 0.999478070185498_dbl_kind, 0.996082874226994_dbl_kind, 0.980259759463736_dbl_kind, 0.809680956158078_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,139) = (/ 0.99998120450207_dbl_kind, 0.999475074984739_dbl_kind, 0.996060079957238_dbl_kind, 0.980167873265038_dbl_kind, 0.808974198819959_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,140) = (/ 0.999981096173299_dbl_kind, 0.999472081069523_dbl_kind, 0.996037287130174_dbl_kind, 0.980076012054852_dbl_kind, 0.808269895607564_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,141) = (/ 0.999980987818305_dbl_kind, 0.999469088448323_dbl_kind, 0.996014495825026_dbl_kind, 0.979984175632846_dbl_kind, 0.807568031031901_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,142) = (/ 0.999980879437296_dbl_kind, 0.999466097129288_dbl_kind, 0.99599170612099_dbl_kind, 0.979892363805704_dbl_kind, 0.806868589771456_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,143) = (/ 0.999980771030497_dbl_kind, 0.999463107120239_dbl_kind, 0.995968918097265_dbl_kind, 0.979800576386713_dbl_kind, 0.806171556669916_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,144) = (/ 0.999980662598146_dbl_kind, 0.999460118428667_dbl_kind, 0.995946131833081_dbl_kind, 0.979708813195372_dbl_kind, 0.805476916733903_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,145) = (/ 0.999980554140495_dbl_kind, 0.999457131061723_dbl_kind, 0.995923347407716_dbl_kind, 0.979617074056996_dbl_kind, 0.804784655130745_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,146) = (/ 0.999980445657813_dbl_kind, 0.999454145026219_dbl_kind, 0.995900564900505_dbl_kind, 0.979525358802362_dbl_kind, 0.804094757186281_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,147) = (/ 0.999980337150376_dbl_kind, 0.999451160328625_dbl_kind, 0.995877784390842_dbl_kind, 0.979433667267341_dbl_kind, 0.803407208382678_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,148) = (/ 0.999980228618474_dbl_kind, 0.999448176975059_dbl_kind, 0.995855005958184_dbl_kind, 0.979341999292564_dbl_kind, 0.802721994356317_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,149) = (/ 0.999980120062404_dbl_kind, 0.999445194971292_dbl_kind, 0.995832229682032_dbl_kind, 0.979250354723093_dbl_kind, 0.802039100895661_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,150) = (/ 0.999980011482475_dbl_kind, 0.999442214322745_dbl_kind, 0.995809455641926_dbl_kind, 0.979158733408104_dbl_kind, 0.80135851393919_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,151) = (/ 0.999979902879002_dbl_kind, 0.99943923503448_dbl_kind, 0.995786683917419_dbl_kind, 0.979067135200596_dbl_kind, 0.800680219573345_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,152) = (/ 0.99997979425231_dbl_kind, 0.999436257111212_dbl_kind, 0.995763914588057_dbl_kind, 0.9789755599571_dbl_kind, 0.800004204030512_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,153) = (/ 0.999979685602729_dbl_kind, 0.999433280557297_dbl_kind, 0.99574114773335_dbl_kind, 0.978884007537404_dbl_kind, 0.799330453687026_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,154) = (/ 0.999979576930596_dbl_kind, 0.999430305376737_dbl_kind, 0.995718383432736_dbl_kind, 0.978792477804303_dbl_kind, 0.798658955061216_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,155) = (/ 0.999979468236252_dbl_kind, 0.999427331573181_dbl_kind, 0.995695621765552_dbl_kind, 0.97870097062335_dbl_kind, 0.797989694811458_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,156) = (/ 0.999979359520047_dbl_kind, 0.999424359149926_dbl_kind, 0.995672862810991_dbl_kind, 0.978609485862623_dbl_kind, 0.797322659734281_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,157) = (/ 0.999979250782333_dbl_kind, 0.999421388109913_dbl_kind, 0.99565010664806_dbl_kind, 0.978518023392506_dbl_kind, 0.796657836762484_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,158) = (/ 0.999979142023465_dbl_kind, 0.99941841845574_dbl_kind, 0.995627353355539_dbl_kind, 0.978426583085493_dbl_kind, 0.795995212963282_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,159) = (/ 0.999979033243804_dbl_kind, 0.99941545018965_dbl_kind, 0.995604603011935_dbl_kind, 0.978335164815978_dbl_kind, 0.795334775536489_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,160) = (/ 0.999978924443714_dbl_kind, 0.999412483313548_dbl_kind, 0.995581855695429_dbl_kind, 0.978243768460088_dbl_kind, 0.794676511812718_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,161) = (/ 0.999978815623561_dbl_kind, 0.999409517828994_dbl_kind, 0.995559111483838_dbl_kind, 0.978152393895505_dbl_kind, 0.794020409251605_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,162) = (/ 0.999978706783713_dbl_kind, 0.999406553737209_dbl_kind, 0.995536370454552_dbl_kind, 0.978061041001314_dbl_kind, 0.793366455440072_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,163) = (/ 0.999978597924541_dbl_kind, 0.999403591039081_dbl_kind, 0.995513632684492_dbl_kind, 0.977969709657853_dbl_kind, 0.792714638090616_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,164) = (/ 0.999978489046419_dbl_kind, 0.999400629735167_dbl_kind, 0.995490898250059_dbl_kind, 0.977878399746578_dbl_kind, 0.792064945039606_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,165) = (/ 0.999978380149719_dbl_kind, 0.9993976698257_dbl_kind, 0.995468167227075_dbl_kind, 0.977787111149943_dbl_kind, 0.791417364245611_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,166) = (/ 0.999978271234818_dbl_kind, 0.99939471131059_dbl_kind, 0.995445439690737_dbl_kind, 0.977695843751276_dbl_kind, 0.790771883787782_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,167) = (/ 0.999978162302091_dbl_kind, 0.999391754189433_dbl_kind, 0.995422715715565_dbl_kind, 0.977604597434684_dbl_kind, 0.790128491864212_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,168) = (/ 0.999978053351915_dbl_kind, 0.999388798461513_dbl_kind, 0.995399995375349_dbl_kind, 0.97751337208495_dbl_kind, 0.789487176790356_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,169) = (/ 0.999977944384667_dbl_kind, 0.99938584412581_dbl_kind, 0.995377278743097_dbl_kind, 0.977422167587457_dbl_kind, 0.788847926997462_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,170) = (/ 0.999977835400724_dbl_kind, 0.999382891181004_dbl_kind, 0.99535456589099_dbl_kind, 0.977330983828098_dbl_kind, 0.78821073103102_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,171) = (/ 0.999977726400462_dbl_kind, 0.999379939625484_dbl_kind, 0.995331856890327_dbl_kind, 0.97723982069322_dbl_kind, 0.787575577549248_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,172) = (/ 0.999977617384259_dbl_kind, 0.99937698945735_dbl_kind, 0.99530915181148_dbl_kind, 0.977148678069556_dbl_kind, 0.786942455321594_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,173) = (/ 0.999977508352489_dbl_kind, 0.999374040674424_dbl_kind, 0.995286450723847_dbl_kind, 0.977057555844175_dbl_kind, 0.786311353227264_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,174) = (/ 0.999977399305528_dbl_kind, 0.999371093274253_dbl_kind, 0.995263753695807_dbl_kind, 0.976966453904437_dbl_kind, 0.785682260253755_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,175) = (/ 0.999977290243749_dbl_kind, 0.999368147254119_dbl_kind, 0.995241060794672_dbl_kind, 0.976875372137952_dbl_kind, 0.785055165495449_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,176) = (/ 0.999977181167526_dbl_kind, 0.999365202611041_dbl_kind, 0.995218372086649_dbl_kind, 0.976784310432556_dbl_kind, 0.784430058152181_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,177) = (/ 0.999977072077228_dbl_kind, 0.999362259341788_dbl_kind, 0.995195687636795_dbl_kind, 0.976693268676275_dbl_kind, 0.783806927527871_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,178) = (/ 0.999976962973224_dbl_kind, 0.999359317442882_dbl_kind, 0.995173007508982_dbl_kind, 0.976602246757313_dbl_kind, 0.783185763029147_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,179) = (/ 0.999976853855885_dbl_kind, 0.999356376910607_dbl_kind, 0.995150331765853_dbl_kind, 0.97651124456404_dbl_kind, 0.782566554164004_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,180) = (/ 0.999976744725574_dbl_kind, 0.999353437741016_dbl_kind, 0.995127660468796_dbl_kind, 0.976420261984975_dbl_kind, 0.781949290540488_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,181) = (/ 0.999976635582654_dbl_kind, 0.999350499929937_dbl_kind, 0.995104993677897_dbl_kind, 0.976329298908794_dbl_kind, 0.781333961865375_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,182) = (/ 0.999976526427487_dbl_kind, 0.999347563472983_dbl_kind, 0.99508233145192_dbl_kind, 0.976238355224321_dbl_kind, 0.780720557942906_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,183) = (/ 0.999976417260431_dbl_kind, 0.999344628365557_dbl_kind, 0.995059673848271_dbl_kind, 0.97614743082054_dbl_kind, 0.78010906867351_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,184) = (/ 0.999976308081842_dbl_kind, 0.999341694602861_dbl_kind, 0.995037020922968_dbl_kind, 0.976056525586603_dbl_kind, 0.779499484052566_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,185) = (/ 0.999976198892073_dbl_kind, 0.9993387621799_dbl_kind, 0.99501437273062_dbl_kind, 0.975965639411841_dbl_kind, 0.77889179416918_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,186) = (/ 0.999976089691474_dbl_kind, 0.999335831091497_dbl_kind, 0.994991729324402_dbl_kind, 0.975874772185787_dbl_kind, 0.778285989204964_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,187) = (/ 0.999975980480392_dbl_kind, 0.999332901332293_dbl_kind, 0.99496909075603_dbl_kind, 0.975783923798188_dbl_kind, 0.777682059432865_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,188) = (/ 0.999975871259171_dbl_kind, 0.999329972896755_dbl_kind, 0.994946457075739_dbl_kind, 0.975693094139035_dbl_kind, 0.777079995215985_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,189) = (/ 0.99997576202815_dbl_kind, 0.999327045779189_dbl_kind, 0.994923828332274_dbl_kind, 0.975602283098581_dbl_kind, 0.776479787006433_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,190) = (/ 0.999975652787668_dbl_kind, 0.999324119973742_dbl_kind, 0.994901204572863_dbl_kind, 0.975511490567376_dbl_kind, 0.775881425344182_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,191) = (/ 0.999975543538057_dbl_kind, 0.99932119547441_dbl_kind, 0.994878585843212_dbl_kind, 0.975420716436295_dbl_kind, 0.775284900855964_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,192) = (/ 0.999975434279646_dbl_kind, 0.999318272275047_dbl_kind, 0.994855972187487_dbl_kind, 0.975329960596564_dbl_kind, 0.774690204254155_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,193) = (/ 0.999975325012762_dbl_kind, 0.99931535036937_dbl_kind, 0.994833363648303_dbl_kind, 0.975239222939803_dbl_kind, 0.774097326335703_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,194) = (/ 0.999975215737726_dbl_kind, 0.999312429750969_dbl_kind, 0.994810760266721_dbl_kind, 0.975148503358054_dbl_kind, 0.773506257981057_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,195) = (/ 0.999975106454855_dbl_kind, 0.99930951041331_dbl_kind, 0.994788162082239_dbl_kind, 0.97505780174382_dbl_kind, 0.772916990153109_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,196) = (/ 0.999974997164465_dbl_kind, 0.999306592349744_dbl_kind, 0.994765569132782_dbl_kind, 0.974967117990098_dbl_kind, 0.772329513896167_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,197) = (/ 0.999974887866863_dbl_kind, 0.999303675553515_dbl_kind, 0.994742981454706_dbl_kind, 0.974876451990427_dbl_kind, 0.77174382033493_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,198) = (/ 0.999974778562356_dbl_kind, 0.999300760017763_dbl_kind, 0.994720399082797_dbl_kind, 0.974785803638914_dbl_kind, 0.77115990067348_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,199) = (/ 0.999974669251242_dbl_kind, 0.999297845735533_dbl_kind, 0.994697822050264_dbl_kind, 0.974695172830284_dbl_kind, 0.770577746194309_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,200) = (/ 0.99997455993382_dbl_kind, 0.999294932699782_dbl_kind, 0.994675250388748_dbl_kind, 0.974604559459912_dbl_kind, 0.769997348257317_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,201) = (/ 0.99997445061038_dbl_kind, 0.999292020903382_dbl_kind, 0.994652684128321_dbl_kind, 0.974513963423868_dbl_kind, 0.769418698298877_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,202) = (/ 0.99997434128121_dbl_kind, 0.999289110339131_dbl_kind, 0.994630123297497_dbl_kind, 0.974423384618953_dbl_kind, 0.768841787830874_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,203) = (/ 0.999974231946592_dbl_kind, 0.999286200999753_dbl_kind, 0.99460756792323_dbl_kind, 0.974332822942743_dbl_kind, 0.768266608439772_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,204) = (/ 0.999974122606803_dbl_kind, 0.99928329287791_dbl_kind, 0.99458501803093_dbl_kind, 0.974242278293624_dbl_kind, 0.767693151785713_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,205) = (/ 0.999974013262117_dbl_kind, 0.999280385966203_dbl_kind, 0.994562473644468_dbl_kind, 0.974151750570835_dbl_kind, 0.767121409601591_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,206) = (/ 0.999973903912801_dbl_kind, 0.999277480257179_dbl_kind, 0.994539934786189_dbl_kind, 0.974061239674505_dbl_kind, 0.766551373692173_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,207) = (/ 0.999973794559118_dbl_kind, 0.999274575743337_dbl_kind, 0.99451740147692_dbl_kind, 0.97397074550569_dbl_kind, 0.765983035933223_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,208) = (/ 0.999973685201327_dbl_kind, 0.999271672417135_dbl_kind, 0.994494873735989_dbl_kind, 0.973880267966415_dbl_kind, 0.76541638827062_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,209) = (/ 0.999973575839682_dbl_kind, 0.99926877027099_dbl_kind, 0.994472351581235_dbl_kind, 0.973789806959708_dbl_kind, 0.764851422719525_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,210) = (/ 0.999973466474429_dbl_kind, 0.999265869297286_dbl_kind, 0.994449835029023_dbl_kind, 0.973699362389637_dbl_kind, 0.76428813136353_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,211) = (/ 0.999973357105814_dbl_kind, 0.999262969488384_dbl_kind, 0.994427324094264_dbl_kind, 0.973608934161341_dbl_kind, 0.763726506353836_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,212) = (/ 0.999973247734073_dbl_kind, 0.999260070836615_dbl_kind, 0.994404818790429_dbl_kind, 0.973518522181074_dbl_kind, 0.76316653990843_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,213) = (/ 0.999973138359441_dbl_kind, 0.999257173334295_dbl_kind, 0.99438231912957_dbl_kind, 0.973428126356231_dbl_kind, 0.762608224311284_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,214) = (/ 0.999973028982144_dbl_kind, 0.999254276973726_dbl_kind, 0.994359825122334_dbl_kind, 0.973337746595381_dbl_kind, 0.762051551911567_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,215) = (/ 0.999972919602407_dbl_kind, 0.999251381747198_dbl_kind, 0.994337336777992_dbl_kind, 0.973247382808302_dbl_kind, 0.761496515122857_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,216) = (/ 0.999972810220448_dbl_kind, 0.999248487646995_dbl_kind, 0.994314854104451_dbl_kind, 0.973157034906006_dbl_kind, 0.760943106422373_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,217) = (/ 0.99997270083648_dbl_kind, 0.9992455946654_dbl_kind, 0.994292377108279_dbl_kind, 0.973066702800772_dbl_kind, 0.760391318350221_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,218) = (/ 0.999972591450709_dbl_kind, 0.999242702794697_dbl_kind, 0.994269905794728_dbl_kind, 0.972976386406175_dbl_kind, 0.759841143508639_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,219) = (/ 0.99997248206334_dbl_kind, 0.999239812027178_dbl_kind, 0.994247440167754_dbl_kind, 0.972886085637106_dbl_kind, 0.75929257456126_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,220) = (/ 0.999972372674571_dbl_kind, 0.999236922355139_dbl_kind, 0.994224980230044_dbl_kind, 0.972795800409804_dbl_kind, 0.758745604232396_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,221) = (/ 0.999972263284593_dbl_kind, 0.999234033770892_dbl_kind, 0.994202525983037_dbl_kind, 0.972705530641877_dbl_kind, 0.758200225306301_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,222) = (/ 0.999972153893596_dbl_kind, 0.999231146266766_dbl_kind, 0.994180077426948_dbl_kind, 0.972615276252323_dbl_kind, 0.757656430626487_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,223) = (/ 0.999972044501762_dbl_kind, 0.999228259835104_dbl_kind, 0.994157634560794_dbl_kind, 0.972525037161557_dbl_kind, 0.757114213095009_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,224) = (/ 0.999971935109269_dbl_kind, 0.999225374468276_dbl_kind, 0.994135197382418_dbl_kind, 0.972434813291424_dbl_kind, 0.756573565671794_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,225) = (/ 0.999971825716289_dbl_kind, 0.999222490158672_dbl_kind, 0.994112765888517_dbl_kind, 0.972344604565223_dbl_kind, 0.756034481373946_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,226) = (/ 0.999971716322992_dbl_kind, 0.999219606898713_dbl_kind, 0.994090340074664_dbl_kind, 0.972254410907722_dbl_kind, 0.755496953275093_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,227) = (/ 0.999971606929541_dbl_kind, 0.999216724680849_dbl_kind, 0.994067919935335_dbl_kind, 0.972164232245174_dbl_kind, 0.754960974504724_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,228) = (/ 0.999971497536094_dbl_kind, 0.999213843497562_dbl_kind, 0.994045505463937_dbl_kind, 0.972074068505333_dbl_kind, 0.754426538247536_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,229) = (/ 0.999971388142806_dbl_kind, 0.999210963341367_dbl_kind, 0.994023096652831_dbl_kind, 0.971983919617467_dbl_kind, 0.753893637742801_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,230) = (/ 0.999971278749825_dbl_kind, 0.99920808420482_dbl_kind, 0.994000693493361_dbl_kind, 0.971893785512366_dbl_kind, 0.753362266283723_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,231) = (/ 0.999971169357295_dbl_kind, 0.999205206080514_dbl_kind, 0.993978295975882_dbl_kind, 0.971803666122363_dbl_kind, 0.752832417216826_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,232) = (/ 0.999971059965358_dbl_kind, 0.999202328961084_dbl_kind, 0.993955904089781_dbl_kind, 0.971713561381331_dbl_kind, 0.752304083941336_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,233) = (/ 0.999970950574148_dbl_kind, 0.999199452839207_dbl_kind, 0.993933517823508_dbl_kind, 0.9716234712247_dbl_kind, 0.751777259908575_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,234) = (/ 0.999970841183796_dbl_kind, 0.999196577707605_dbl_kind, 0.993911137164602_dbl_kind, 0.971533395589462_dbl_kind, 0.751251938621359_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,235) = (/ 0.99997073179443_dbl_kind, 0.999193703559048_dbl_kind, 0.993888762099717_dbl_kind, 0.971443334414173_dbl_kind, 0.750728113633418_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,236) = (/ 0.99997062240617_dbl_kind, 0.999190830386352_dbl_kind, 0.993866392614647_dbl_kind, 0.971353287638964_dbl_kind, 0.750205778548806_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,237) = (/ 0.999970513019135_dbl_kind, 0.999187958182386_dbl_kind, 0.993844028694358_dbl_kind, 0.971263255205536_dbl_kind, 0.749684927021327_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,238) = (/ 0.999970403633438_dbl_kind, 0.999185086940066_dbl_kind, 0.993821670323006_dbl_kind, 0.971173237057172_dbl_kind, 0.749165552753981_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,239) = (/ 0.99997029424919_dbl_kind, 0.999182216652363_dbl_kind, 0.993799317483969_dbl_kind, 0.97108323313873_dbl_kind, 0.748647649498387_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,240) = (/ 0.999970184866494_dbl_kind, 0.999179347312299_dbl_kind, 0.993776970159873_dbl_kind, 0.970993243396647_dbl_kind, 0.748131211054249_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,241) = (/ 0.999970075485454_dbl_kind, 0.999176478912954_dbl_kind, 0.993754628332615_dbl_kind, 0.970903267778934_dbl_kind, 0.747616231268801_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,242) = (/ 0.999969966106167_dbl_kind, 0.99917361144746_dbl_kind, 0.993732291983391_dbl_kind, 0.970813306235183_dbl_kind, 0.747102704036279_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,243) = (/ 0.999969856728725_dbl_kind, 0.999170744909008_dbl_kind, 0.993709961092718_dbl_kind, 0.970723358716549_dbl_kind, 0.746590623297386_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,244) = (/ 0.999969747353219_dbl_kind, 0.999167879290844_dbl_kind, 0.993687635640467_dbl_kind, 0.97063342517576_dbl_kind, 0.746079983038774_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,245) = (/ 0.999969637979734_dbl_kind, 0.999165014586275_dbl_kind, 0.993665315605877_dbl_kind, 0.970543505567103_dbl_kind, 0.745570777292526_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,246) = (/ 0.999969528608355_dbl_kind, 0.999162150788665_dbl_kind, 0.993643000967589_dbl_kind, 0.970453599846421_dbl_kind, 0.745063000135648_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,247) = (/ 0.999969419239159_dbl_kind, 0.999159287891435_dbl_kind, 0.993620691703666_dbl_kind, 0.970363707971106_dbl_kind, 0.744556645689571_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,248) = (/ 0.999969309872221_dbl_kind, 0.99915642588807_dbl_kind, 0.993598387791615_dbl_kind, 0.970273829900089_dbl_kind, 0.744051708119653_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,249) = (/ 0.999969200507614_dbl_kind, 0.999153564772115_dbl_kind, 0.99357608920842_dbl_kind, 0.970183965593835_dbl_kind, 0.743548181634687_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,250) = (/ 0.999969091145406_dbl_kind, 0.999150704537171_dbl_kind, 0.993553795930553_dbl_kind, 0.970094115014328_dbl_kind, 0.743046060486428_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,251) = (/ 0.999968981785664_dbl_kind, 0.999147845176906_dbl_kind, 0.993531507934006_dbl_kind, 0.970004278125065_dbl_kind, 0.742545338969108_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,252) = (/ 0.999968872428448_dbl_kind, 0.999144986685047_dbl_kind, 0.99350922519431_dbl_kind, 0.969914454891044_dbl_kind, 0.742046011418976_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,253) = (/ 0.999968763073819_dbl_kind, 0.99914212905538_dbl_kind, 0.99348694768656_dbl_kind, 0.96982464527875_dbl_kind, 0.74154807221382_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,254) = (/ 0.999968653721832_dbl_kind, 0.999139272281758_dbl_kind, 0.993464675385433_dbl_kind, 0.969734849256143_dbl_kind, 0.741051515772528_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,255) = (/ 0.999968544372542_dbl_kind, 0.99913641635809_dbl_kind, 0.993442408265215_dbl_kind, 0.969645066792647_dbl_kind, 0.740556336554622_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,256) = (/ 0.999968435025998_dbl_kind, 0.999133561278352_dbl_kind, 0.993420146299816_dbl_kind, 0.969555297859136_dbl_kind, 0.74006252905982_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,257) = (/ 0.999968325682249_dbl_kind, 0.99913070703658_dbl_kind, 0.993397889462797_dbl_kind, 0.969465542427914_dbl_kind, 0.739570087827593_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,258) = (/ 0.999968216341338_dbl_kind, 0.99912785362687_dbl_kind, 0.993375637727388_dbl_kind, 0.969375800472706_dbl_kind, 0.739079007436728_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,259) = (/ 0.999968107003309_dbl_kind, 0.999125001043383_dbl_kind, 0.993353391066506_dbl_kind, 0.969286071968641_dbl_kind, 0.738589282504911_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,260) = (/ 0.999967997668201_dbl_kind, 0.99912214928034_dbl_kind, 0.993331149452778_dbl_kind, 0.969196356892233_dbl_kind, 0.73810090768829_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,261) = (/ 0.999967888336053_dbl_kind, 0.999119298332024_dbl_kind, 0.993308912858558_dbl_kind, 0.969106655221368_dbl_kind, 0.737613877681063_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,262) = (/ 0.999967779006899_dbl_kind, 0.999116448192779_dbl_kind, 0.993286681255949_dbl_kind, 0.969016966935284_dbl_kind, 0.737128187215068_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,263) = (/ 0.999967669680772_dbl_kind, 0.99911359885701_dbl_kind, 0.993264454616817_dbl_kind, 0.968927292014558_dbl_kind, 0.736643831059374_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,264) = (/ 0.999967560357703_dbl_kind, 0.999110750319183_dbl_kind, 0.993242232912814_dbl_kind, 0.968837630441079_dbl_kind, 0.736160804019883_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,265) = (/ 0.99996745103772_dbl_kind, 0.999107902573826_dbl_kind, 0.99322001611539_dbl_kind, 0.968747982198039_dbl_kind, 0.735679100938921_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,266) = (/ 0.99996734172085_dbl_kind, 0.999105055615524_dbl_kind, 0.993197804195817_dbl_kind, 0.968658347269912_dbl_kind, 0.735198716694859_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,267) = (/ 0.999967232407117_dbl_kind, 0.999102209438926_dbl_kind, 0.993175597125201_dbl_kind, 0.968568725642431_dbl_kind, 0.734719646201725_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,268) = (/ 0.999967123096545_dbl_kind, 0.999099364038736_dbl_kind, 0.993153394874497_dbl_kind, 0.968479117302576_dbl_kind, 0.734241884408816_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,269) = (/ 0.999967013789153_dbl_kind, 0.999096519409721_dbl_kind, 0.993131197414535_dbl_kind, 0.968389522238543_dbl_kind, 0.733765426300326_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,270) = (/ 0.999966904484962_dbl_kind, 0.999093675546706_dbl_kind, 0.993109004716021_dbl_kind, 0.968299940439736_dbl_kind, 0.73329026689497_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,271) = (/ 0.999966795183987_dbl_kind, 0.99909083244457_dbl_kind, 0.993086816749564_dbl_kind, 0.968210371896743_dbl_kind, 0.732816401245625_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,272) = (/ 0.999966685886246_dbl_kind, 0.999087990098257_dbl_kind, 0.993064633485686_dbl_kind, 0.968120816601312_dbl_kind, 0.732343824438956_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,273) = (/ 0.999966576591752_dbl_kind, 0.999085148502762_dbl_kind, 0.993042454894836_dbl_kind, 0.968031274546336_dbl_kind, 0.731872531595063_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,274) = (/ 0.999966467300519_dbl_kind, 0.999082307653139_dbl_kind, 0.993020280947407_dbl_kind, 0.967941745725826_dbl_kind, 0.731402517867131_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,275) = (/ 0.999966358012557_dbl_kind, 0.999079467544499_dbl_kind, 0.992998111613745_dbl_kind, 0.9678522301349_dbl_kind, 0.730933778441072_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,276) = (/ 0.999966248727877_dbl_kind, 0.999076628172008_dbl_kind, 0.992975946864168_dbl_kind, 0.967762727769752_dbl_kind, 0.730466308535194_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,277) = (/ 0.999966139446488_dbl_kind, 0.999073789530887_dbl_kind, 0.992953786668975_dbl_kind, 0.967673238627639_dbl_kind, 0.730000103399841_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,278) = (/ 0.999966030168397_dbl_kind, 0.999070951616412_dbl_kind, 0.992931630998457_dbl_kind, 0.967583762706854_dbl_kind, 0.729535158317075_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,279) = (/ 0.999965920893611_dbl_kind, 0.999068114423912_dbl_kind, 0.992909479822915_dbl_kind, 0.967494300006708_dbl_kind, 0.729071468600336_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,280) = (/ 0.999965811622135_dbl_kind, 0.999065277948771_dbl_kind, 0.992887333112667_dbl_kind, 0.967404850527509_dbl_kind, 0.728609029594107_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,281) = (/ 0.999965702353973_dbl_kind, 0.999062442186425_dbl_kind, 0.992865190838059_dbl_kind, 0.967315414270543_dbl_kind, 0.72814783667361_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,282) = (/ 0.99996559308913_dbl_kind, 0.999059607132363_dbl_kind, 0.99284305296948_dbl_kind, 0.967225991238045_dbl_kind, 0.727687885244465_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,283) = (/ 0.999965483827607_dbl_kind, 0.999056772782123_dbl_kind, 0.992820919477367_dbl_kind, 0.967136581433188_dbl_kind, 0.727229170742386_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,284) = (/ 0.999965374569406_dbl_kind, 0.999053939131298_dbl_kind, 0.992798790332222_dbl_kind, 0.967047184860056_dbl_kind, 0.726771688632869_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,285) = (/ 0.999965265314529_dbl_kind, 0.99905110617553_dbl_kind, 0.992776665504616_dbl_kind, 0.966957801523621_dbl_kind, 0.726315434410877_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,286) = (/ 0.999965156062975_dbl_kind, 0.99904827391051_dbl_kind, 0.992754544965203_dbl_kind, 0.966868431429732_dbl_kind, 0.725860403600549_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,287) = (/ 0.999965046814744_dbl_kind, 0.999045442331979_dbl_kind, 0.992732428684724_dbl_kind, 0.966779074585082_dbl_kind, 0.725406591754877_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,288) = (/ 0.999964937569835_dbl_kind, 0.999042611435725_dbl_kind, 0.992710316634023_dbl_kind, 0.966689730997194_dbl_kind, 0.724953994455439_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,289) = (/ 0.999964828328246_dbl_kind, 0.999039781217588_dbl_kind, 0.992688208784049_dbl_kind, 0.9666004006744_dbl_kind, 0.72450260731208_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,290) = (/ 0.999964719089975_dbl_kind, 0.999036951673451_dbl_kind, 0.992666105105867_dbl_kind, 0.966511083625819_dbl_kind, 0.724052425962642_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,291) = (/ 0.999964609855019_dbl_kind, 0.999034122799246_dbl_kind, 0.992644005570669_dbl_kind, 0.966421779861337_dbl_kind, 0.723603446072664_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,292) = (/ 0.999964500623374_dbl_kind, 0.999031294590952_dbl_kind, 0.992621910149773_dbl_kind, 0.966332489391586_dbl_kind, 0.72315566333511_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,293) = (/ 0.99996439139504_dbl_kind, 0.999028467044591_dbl_kind, 0.992599818814641_dbl_kind, 0.966243212227926_dbl_kind, 0.72270907347008_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,294) = (/ 0.999964282170009_dbl_kind, 0.999025640156233_dbl_kind, 0.992577731536878_dbl_kind, 0.96615394838242_dbl_kind, 0.722263672224545_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,295) = (/ 0.999964172948279_dbl_kind, 0.999022813921991_dbl_kind, 0.992555648288242_dbl_kind, 0.966064697867823_dbl_kind, 0.721819455372074_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,296) = (/ 0.999964063729844_dbl_kind, 0.999019988338021_dbl_kind, 0.992533569040652_dbl_kind, 0.965975460697554_dbl_kind, 0.721376418712556_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,297) = (/ 0.999963954514701_dbl_kind, 0.999017163400523_dbl_kind, 0.992511493766189_dbl_kind, 0.965886236885677_dbl_kind, 0.720934558071951_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,298) = (/ 0.999963845302845_dbl_kind, 0.99901433910574_dbl_kind, 0.992489422437108_dbl_kind, 0.96579702644689_dbl_kind, 0.720493869302008_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,299) = (/ 0.999963736094269_dbl_kind, 0.999011515449956_dbl_kind, 0.992467355025838_dbl_kind, 0.965707829396495_dbl_kind, 0.720054348280025_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,300) = (/ 0.99996362688897_dbl_kind, 0.999008692429498_dbl_kind, 0.992445291504992_dbl_kind, 0.965618645750386_dbl_kind, 0.719615990908586_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,301) = (/ 0.999963517686942_dbl_kind, 0.999005870040732_dbl_kind, 0.992423231847371_dbl_kind, 0.965529475525029_dbl_kind, 0.719178793115302_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,302) = (/ 0.999963408488179_dbl_kind, 0.999003048280066_dbl_kind, 0.992401176025965_dbl_kind, 0.965440318737442_dbl_kind, 0.718742750852572_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,303) = (/ 0.999963299292678_dbl_kind, 0.999000227143946_dbl_kind, 0.992379124013962_dbl_kind, 0.965351175405177_dbl_kind, 0.718307860097333_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,304) = (/ 0.99996319010043_dbl_kind, 0.99899740662886_dbl_kind, 0.992357075784752_dbl_kind, 0.965262045546307_dbl_kind, 0.717874116850821_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,305) = (/ 0.999963080911432_dbl_kind, 0.998994586731331_dbl_kind, 0.992335031311929_dbl_kind, 0.965172929179398_dbl_kind, 0.717441517138319_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,306) = (/ 0.999962971725678_dbl_kind, 0.998991767447924_dbl_kind, 0.992312990569295_dbl_kind, 0.965083826323501_dbl_kind, 0.717010057008937_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,307) = (/ 0.999962862543164_dbl_kind, 0.998988948775238_dbl_kind, 0.992290953530868_dbl_kind, 0.964994736998132_dbl_kind, 0.716579732535358_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,308) = (/ 0.999962753363883_dbl_kind, 0.998986130709912_dbl_kind, 0.992268920170878_dbl_kind, 0.964905661223248_dbl_kind, 0.716150539813624_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,309) = (/ 0.999962644187832_dbl_kind, 0.998983313248619_dbl_kind, 0.992246890463776_dbl_kind, 0.964816599019245_dbl_kind, 0.715722474962901_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,310) = (/ 0.999962535015005_dbl_kind, 0.998980496388071_dbl_kind, 0.992224864384238_dbl_kind, 0.964727550406923_dbl_kind, 0.715295534125251_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,311) = (/ 0.999962425845398_dbl_kind, 0.998977680125012_dbl_kind, 0.992202841907161_dbl_kind, 0.96463851540749_dbl_kind, 0.714869713465411_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,312) = (/ 0.999962316679006_dbl_kind, 0.998974864456225_dbl_kind, 0.992180823007672_dbl_kind, 0.964549494042524_dbl_kind, 0.71444500917057_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,313) = (/ 0.999962207515825_dbl_kind, 0.998972049378525_dbl_kind, 0.992158807661129_dbl_kind, 0.964460486333979_dbl_kind, 0.714021417450157_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,314) = (/ 0.999962098355852_dbl_kind, 0.998969234888762_dbl_kind, 0.992136795843121_dbl_kind, 0.964371492304151_dbl_kind, 0.713598934535621_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,315) = (/ 0.999961989199082_dbl_kind, 0.998966420983819_dbl_kind, 0.992114787529472_dbl_kind, 0.964282511975675_dbl_kind, 0.713177556680224_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,316) = (/ 0.999961880045513_dbl_kind, 0.998963607660612_dbl_kind, 0.992092782696244_dbl_kind, 0.964193545371505_dbl_kind, 0.712757280158825_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,317) = (/ 0.999961770895139_dbl_kind, 0.998960794916093_dbl_kind, 0.992070781319736_dbl_kind, 0.964104592514899_dbl_kind, 0.712338101267675_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,318) = (/ 0.99996166174796_dbl_kind, 0.998957982747241_dbl_kind, 0.992048783376488_dbl_kind, 0.964015653429406_dbl_kind, 0.711920016324215_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,319) = (/ 0.999961552603973_dbl_kind, 0.998955171151071_dbl_kind, 0.99202678884328_dbl_kind, 0.963926728138853_dbl_kind, 0.711503021666876_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,320) = (/ 0.999961443463174_dbl_kind, 0.998952360124628_dbl_kind, 0.992004797697137_dbl_kind, 0.963837816667326_dbl_kind, 0.711087113654864_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,321) = (/ 0.999961334325563_dbl_kind, 0.998949549664989_dbl_kind, 0.991982809915325_dbl_kind, 0.963748919039165_dbl_kind, 0.710672288667985_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,322) = (/ 0.999961225191137_dbl_kind, 0.99894673976926_dbl_kind, 0.991960825475356_dbl_kind, 0.963660035278939_dbl_kind, 0.710258543106431_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,323) = (/ 0.999961116059896_dbl_kind, 0.99894393043458_dbl_kind, 0.991938844354989_dbl_kind, 0.963571165411445_dbl_kind, 0.709845873390601_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,324) = (/ 0.999961006931838_dbl_kind, 0.998941121658116_dbl_kind, 0.991916866532228_dbl_kind, 0.963482309461687_dbl_kind, 0.709434275960904_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,325) = (/ 0.999960897806964_dbl_kind, 0.998938313437063_dbl_kind, 0.991894891985324_dbl_kind, 0.963393467454867_dbl_kind, 0.709023747277573_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,326) = (/ 0.999960788685272_dbl_kind, 0.998935505768648_dbl_kind, 0.991872920692775_dbl_kind, 0.96330463941637_dbl_kind, 0.708614283820477_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,327) = (/ 0.999960679566763_dbl_kind, 0.998932698650126_dbl_kind, 0.991850952633329_dbl_kind, 0.963215825371754_dbl_kind, 0.70820588208894_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,328) = (/ 0.999960570451438_dbl_kind, 0.998929892078781_dbl_kind, 0.991828987785978_dbl_kind, 0.963127025346741_dbl_kind, 0.707798538601555_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,329) = (/ 0.999960461339298_dbl_kind, 0.998927086051923_dbl_kind, 0.991807026129966_dbl_kind, 0.963038239367198_dbl_kind, 0.707392249896021_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,330) = (/ 0.999960352230345_dbl_kind, 0.998924280566893_dbl_kind, 0.991785067644783_dbl_kind, 0.962949467459133_dbl_kind, 0.706987012528944_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,331) = (/ 0.999960243124578_dbl_kind, 0.998921475621058_dbl_kind, 0.991763112310166_dbl_kind, 0.96286070964868_dbl_kind, 0.706582823075677_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,332) = (/ 0.999960134022002_dbl_kind, 0.998918671211811_dbl_kind, 0.991741160106103_dbl_kind, 0.962771965962089_dbl_kind, 0.70617967813014_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,333) = (/ 0.999960024922619_dbl_kind, 0.998915867336572_dbl_kind, 0.991719211012825_dbl_kind, 0.962683236425717_dbl_kind, 0.705777574304657_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,334) = (/ 0.999959915826432_dbl_kind, 0.998913063992791_dbl_kind, 0.991697265010814_dbl_kind, 0.962594521066015_dbl_kind, 0.70537650822978_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,335) = (/ 0.999959806733443_dbl_kind, 0.99891026117794_dbl_kind, 0.991675322080796_dbl_kind, 0.962505819909524_dbl_kind, 0.704976476554127_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,336) = (/ 0.999959697643657_dbl_kind, 0.998907458889519_dbl_kind, 0.991653382203744_dbl_kind, 0.962417132982855_dbl_kind, 0.704577475944218_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,337) = (/ 0.999959588557078_dbl_kind, 0.998904657125055_dbl_kind, 0.991631445360875_dbl_kind, 0.962328460312691_dbl_kind, 0.704179503084307_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,338) = (/ 0.99995947947371_dbl_kind, 0.998901855882098_dbl_kind, 0.991609511533653_dbl_kind, 0.962239801925769_dbl_kind, 0.703782554676226_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,339) = (/ 0.999959370393559_dbl_kind, 0.998899055158225_dbl_kind, 0.991587580703782_dbl_kind, 0.962151157848876_dbl_kind, 0.703386627439228_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,340) = (/ 0.99995926131663_dbl_kind, 0.998896254951036_dbl_kind, 0.991565652853211_dbl_kind, 0.962062528108837_dbl_kind, 0.702991718109829_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,341) = (/ 0.999959152242929_dbl_kind, 0.998893455258158_dbl_kind, 0.991543727964131_dbl_kind, 0.96197391273251_dbl_kind, 0.702597823441648_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,342) = (/ 0.99995904317246_dbl_kind, 0.998890656077241_dbl_kind, 0.991521806018971_dbl_kind, 0.961885311746774_dbl_kind, 0.70220494020526_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,343) = (/ 0.999958934105233_dbl_kind, 0.99888785740596_dbl_kind, 0.991499887000404_dbl_kind, 0.961796725178528_dbl_kind, 0.701813065188042_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,344) = (/ 0.999958825041252_dbl_kind, 0.998885059242014_dbl_kind, 0.991477970891338_dbl_kind, 0.961708153054671_dbl_kind, 0.701422195194027_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,345) = (/ 0.999958715980525_dbl_kind, 0.998882261583125_dbl_kind, 0.991456057674919_dbl_kind, 0.961619595402104_dbl_kind, 0.701032327043751_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,346) = (/ 0.99995860692306_dbl_kind, 0.99887946442704_dbl_kind, 0.991434147334527_dbl_kind, 0.961531052247723_dbl_kind, 0.700643457574112_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,347) = (/ 0.999958497868866_dbl_kind, 0.998876667771528_dbl_kind, 0.991412239853781_dbl_kind, 0.961442523618405_dbl_kind, 0.700255583638222_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,348) = (/ 0.999958388817949_dbl_kind, 0.998873871614382_dbl_kind, 0.991390335216529_dbl_kind, 0.961354009541009_dbl_kind, 0.699868702105266_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,349) = (/ 0.99995827977032_dbl_kind, 0.998871075953418_dbl_kind, 0.991368433406853_dbl_kind, 0.96126551004236_dbl_kind, 0.699482809860364_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,350) = (/ 0.999958170725986_dbl_kind, 0.998868280786474_dbl_kind, 0.991346534409063_dbl_kind, 0.961177025149255_dbl_kind, 0.699097903804431_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,351) = (/ 0.999958061684958_dbl_kind, 0.998865486111411_dbl_kind, 0.991324638207699_dbl_kind, 0.961088554888443_dbl_kind, 0.698713980854031_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,352) = (/ 0.999957952647244_dbl_kind, 0.998862691926114_dbl_kind, 0.99130274478753_dbl_kind, 0.961000099286631_dbl_kind, 0.698331037941254_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,353) = (/ 0.999957843612857_dbl_kind, 0.998859898228489_dbl_kind, 0.991280854133545_dbl_kind, 0.960911658370467_dbl_kind, 0.697949072013576_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,354) = (/ 0.999957734581804_dbl_kind, 0.998857105016461_dbl_kind, 0.991258966230963_dbl_kind, 0.960823232166546_dbl_kind, 0.697568080033724_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,355) = (/ 0.999957625554097_dbl_kind, 0.998854312287984_dbl_kind, 0.991237081065221_dbl_kind, 0.960734820701393_dbl_kind, 0.697188058979547_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,356) = (/ 0.999957516529748_dbl_kind, 0.998851520041028_dbl_kind, 0.991215198621976_dbl_kind, 0.960646424001466_dbl_kind, 0.696809005843885_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,357) = (/ 0.999957407508767_dbl_kind, 0.998848728273586_dbl_kind, 0.991193318887107_dbl_kind, 0.96055804209315_dbl_kind, 0.696430917634451_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,358) = (/ 0.999957298491166_dbl_kind, 0.998845936983672_dbl_kind, 0.991171441846707_dbl_kind, 0.960469675002745_dbl_kind, 0.696053791373685_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,359) = (/ 0.999957189476957_dbl_kind, 0.998843146169325_dbl_kind, 0.991149567487084_dbl_kind, 0.960381322756471_dbl_kind, 0.695677624098646_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,360) = (/ 0.999957080466151_dbl_kind, 0.998840355828601_dbl_kind, 0.991127695794761_dbl_kind, 0.960292985380457_dbl_kind, 0.695302412860879_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,361) = (/ 0.999956971458761_dbl_kind, 0.998837565959578_dbl_kind, 0.99110582675647_dbl_kind, 0.960204662900739_dbl_kind, 0.694928154726301_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,362) = (/ 0.9999568624548_dbl_kind, 0.998834776560356_dbl_kind, 0.991083960359154_dbl_kind, 0.960116355343253_dbl_kind, 0.694554846775071_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,363) = (/ 0.999956753454281_dbl_kind, 0.998831987629054_dbl_kind, 0.991062096589962_dbl_kind, 0.960028062733836_dbl_kind, 0.69418248610147_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,364) = (/ 0.999956644457217_dbl_kind, 0.998829199163814_dbl_kind, 0.99104023543625_dbl_kind, 0.959939785098218_dbl_kind, 0.6938110698138_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,365) = (/ 0.99995653546362_dbl_kind, 0.998826411162798_dbl_kind, 0.991018376885577_dbl_kind, 0.959851522462021_dbl_kind, 0.693440595034244_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,366) = (/ 0.999956426473506_dbl_kind, 0.998823623624187_dbl_kind, 0.990996520925703_dbl_kind, 0.959763274850751_dbl_kind, 0.693071058898769_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,367) = (/ 0.999956317486886_dbl_kind, 0.998820836546182_dbl_kind, 0.990974667544587_dbl_kind, 0.959675042289801_dbl_kind, 0.692702458556997_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,368) = (/ 0.999956208503776_dbl_kind, 0.998818049927008_dbl_kind, 0.990952816730389_dbl_kind, 0.959586824804442_dbl_kind, 0.692334791172108_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,369) = (/ 0.999956099524189_dbl_kind, 0.998815263764905_dbl_kind, 0.99093096847146_dbl_kind, 0.959498622419823_dbl_kind, 0.691968053920715_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,370) = (/ 0.999955990548139_dbl_kind, 0.998812478058136_dbl_kind, 0.990909122756348_dbl_kind, 0.959410435160967_dbl_kind, 0.691602243992762_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,371) = (/ 0.999955881575642_dbl_kind, 0.998809692804984_dbl_kind, 0.99088727957379_dbl_kind, 0.959322263052767_dbl_kind, 0.691237358591414_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,372) = (/ 0.999955772606711_dbl_kind, 0.99880690800375_dbl_kind, 0.990865438912715_dbl_kind, 0.959234106119989_dbl_kind, 0.690873394932944_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,373) = (/ 0.999955663641362_dbl_kind, 0.998804123652756_dbl_kind, 0.990843600762238_dbl_kind, 0.95914596438726_dbl_kind, 0.690510350246634_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,374) = (/ 0.999955554679609_dbl_kind, 0.998801339750342_dbl_kind, 0.99082176511166_dbl_kind, 0.959057837879074_dbl_kind, 0.690148221774662_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,375) = (/ 0.999955445721468_dbl_kind, 0.998798556294871_dbl_kind, 0.990799931950463_dbl_kind, 0.958969726619784_dbl_kind, 0.689787006772011_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,376) = (/ 0.999955336766953_dbl_kind, 0.99879577328472_dbl_kind, 0.990778101268317_dbl_kind, 0.958881630633606_dbl_kind, 0.689426702506348_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,377) = (/ 0.99995522781608_dbl_kind, 0.998792990718291_dbl_kind, 0.990756273055062_dbl_kind, 0.958793549944609_dbl_kind, 0.689067306257936_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,378) = (/ 0.999955118868865_dbl_kind, 0.998790208594001_dbl_kind, 0.990734447300722_dbl_kind, 0.958705484576719_dbl_kind, 0.688708815319532_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,379) = (/ 0.999955009925322_dbl_kind, 0.998787426910288_dbl_kind, 0.990712623995495_dbl_kind, 0.958617434553719_dbl_kind, 0.688351226996278_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,380) = (/ 0.999954900985468_dbl_kind, 0.998784645665607_dbl_kind, 0.990690803129748_dbl_kind, 0.958529399899237_dbl_kind, 0.68799453860562_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,381) = (/ 0.999954792049317_dbl_kind, 0.998781864858435_dbl_kind, 0.990668984694025_dbl_kind, 0.958441380636755_dbl_kind, 0.687638747477189_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,382) = (/ 0.999954683116886_dbl_kind, 0.998779084487266_dbl_kind, 0.990647168679035_dbl_kind, 0.958353376789604_dbl_kind, 0.687283850952725_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,383) = (/ 0.999954574188191_dbl_kind, 0.998776304550612_dbl_kind, 0.990625355075655_dbl_kind, 0.958265388380963_dbl_kind, 0.686929846385967_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,384) = (/ 0.999954465263248_dbl_kind, 0.998773525047006_dbl_kind, 0.990603543874926_dbl_kind, 0.958177415433853_dbl_kind, 0.686576731142572_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,385) = (/ 0.99995435634207_dbl_kind, 0.998770745974997_dbl_kind, 0.990581735068054_dbl_kind, 0.958089457971145_dbl_kind, 0.68622450260001_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,386) = (/ 0.999954247424676_dbl_kind, 0.998767967333153_dbl_kind, 0.990559928646403_dbl_kind, 0.958001516015551_dbl_kind, 0.685873158147483_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,387) = (/ 0.999954138511081_dbl_kind, 0.998765189120062_dbl_kind, 0.990538124601499_dbl_kind, 0.957913589589627_dbl_kind, 0.685522695185821_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,388) = (/ 0.999954029601301_dbl_kind, 0.998762411334329_dbl_kind, 0.99051632292502_dbl_kind, 0.957825678715771_dbl_kind, 0.685173111127409_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,389) = (/ 0.999953920695353_dbl_kind, 0.998759633974578_dbl_kind, 0.990494523608803_dbl_kind, 0.957737783416221_dbl_kind, 0.684824403396078_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,390) = (/ 0.99995381179325_dbl_kind, 0.99875685703945_dbl_kind, 0.990472726644836_dbl_kind, 0.957649903713056_dbl_kind, 0.68447656942704_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,391) = (/ 0.99995370289501_dbl_kind, 0.998754080527605_dbl_kind, 0.990450932025258_dbl_kind, 0.957562039628197_dbl_kind, 0.684129606666778_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,392) = (/ 0.999953594000649_dbl_kind, 0.99875130443772_dbl_kind, 0.990429139742355_dbl_kind, 0.957474191183401_dbl_kind, 0.683783512572983_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,393) = (/ 0.999953485110182_dbl_kind, 0.998748528768491_dbl_kind, 0.990407349788562_dbl_kind, 0.957386358400268_dbl_kind, 0.683438284614445_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,394) = (/ 0.999953376223625_dbl_kind, 0.998745753518633_dbl_kind, 0.990385562156456_dbl_kind, 0.957298541300232_dbl_kind, 0.683093920270988_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,395) = (/ 0.999953267340995_dbl_kind, 0.998742978686875_dbl_kind, 0.990363776838761_dbl_kind, 0.957210739904569_dbl_kind, 0.682750417033378_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,396) = (/ 0.999953158462306_dbl_kind, 0.998740204271967_dbl_kind, 0.990341993828336_dbl_kind, 0.957122954234391_dbl_kind, 0.68240777240324_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,397) = (/ 0.999953049587575_dbl_kind, 0.998737430272674_dbl_kind, 0.990320213118184_dbl_kind, 0.957035184310648_dbl_kind, 0.682065983892986_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,398) = (/ 0.999952940716817_dbl_kind, 0.998734656687783_dbl_kind, 0.990298434701441_dbl_kind, 0.95694743015413_dbl_kind, 0.681725049025718_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,399) = (/ 0.999952831850047_dbl_kind, 0.998731883516093_dbl_kind, 0.99027665857138_dbl_kind, 0.95685969178546_dbl_kind, 0.68138496533516_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,400) = (/ 0.999952722987282_dbl_kind, 0.998729110756423_dbl_kind, 0.990254884721407_dbl_kind, 0.956771969225106_dbl_kind, 0.681045730365585_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,401) = (/ 0.999952614128535_dbl_kind, 0.998726338407608_dbl_kind, 0.990233113145058_dbl_kind, 0.956684262493368_dbl_kind, 0.680707341671718_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,402) = (/ 0.999952505273824_dbl_kind, 0.998723566468505_dbl_kind, 0.990211343835999_dbl_kind, 0.956596571610384_dbl_kind, 0.680369796818674_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,403) = (/ 0.999952396423162_dbl_kind, 0.99872079493798_dbl_kind, 0.990189576788022_dbl_kind, 0.956508896596135_dbl_kind, 0.680033093381879_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,404) = (/ 0.999952287576566_dbl_kind, 0.998718023814924_dbl_kind, 0.990167811995047_dbl_kind, 0.956421237470436_dbl_kind, 0.679697228946989_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,405) = (/ 0.999952178734049_dbl_kind, 0.998715253098238_dbl_kind, 0.990146049451115_dbl_kind, 0.956333594252944_dbl_kind, 0.679362201109824_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,406) = (/ 0.999952069895627_dbl_kind, 0.998712482786846_dbl_kind, 0.99012428915039_dbl_kind, 0.956245966963152_dbl_kind, 0.679028007476284_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,407) = (/ 0.999951961061315_dbl_kind, 0.998709712879685_dbl_kind, 0.990102531087156_dbl_kind, 0.956158355620397_dbl_kind, 0.67869464566228_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,408) = (/ 0.999951852231127_dbl_kind, 0.99870694337571_dbl_kind, 0.990080775255815_dbl_kind, 0.956070760243853_dbl_kind, 0.67836211329367_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,409) = (/ 0.999951743405077_dbl_kind, 0.998704174273892_dbl_kind, 0.990059021650885_dbl_kind, 0.955983180852535_dbl_kind, 0.678030408006171_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,410) = (/ 0.99995163458318_dbl_kind, 0.998701405573218_dbl_kind, 0.990037270266998_dbl_kind, 0.9558956174653_dbl_kind, 0.677699527445304_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,411) = (/ 0.99995152576545_dbl_kind, 0.998698637272694_dbl_kind, 0.990015521098901_dbl_kind, 0.955808070100847_dbl_kind, 0.677369469266312_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,412) = (/ 0.9999514169519_dbl_kind, 0.99869586937134_dbl_kind, 0.989993774141451_dbl_kind, 0.955720538777718_dbl_kind, 0.677040231134098_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,413) = (/ 0.999951308142545_dbl_kind, 0.998693101868193_dbl_kind, 0.989972029389613_dbl_kind, 0.955633023514297_dbl_kind, 0.676711810723154_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,414) = (/ 0.999951199337399_dbl_kind, 0.998690334762307_dbl_kind, 0.989950286838461_dbl_kind, 0.955545524328813_dbl_kind, 0.676384205717488_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,415) = (/ 0.999951090536475_dbl_kind, 0.998687568052751_dbl_kind, 0.989928546483174_dbl_kind, 0.955458041239339_dbl_kind, 0.676057413810567_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,416) = (/ 0.999950981739785_dbl_kind, 0.99868480173861_dbl_kind, 0.989906808319037_dbl_kind, 0.955370574263794_dbl_kind, 0.675731432705244_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,417) = (/ 0.999950872947344_dbl_kind, 0.998682035818987_dbl_kind, 0.989885072341434_dbl_kind, 0.955283123419942_dbl_kind, 0.675406260113689_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,418) = (/ 0.999950764159164_dbl_kind, 0.998679270292996_dbl_kind, 0.989863338545855_dbl_kind, 0.955195688725399_dbl_kind, 0.67508189375733_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,419) = (/ 0.999950655375259_dbl_kind, 0.998676505159773_dbl_kind, 0.989841606927885_dbl_kind, 0.955108270197621_dbl_kind, 0.674758331366788_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,420) = (/ 0.999950546595639_dbl_kind, 0.998673740418466_dbl_kind, 0.989819877483208_dbl_kind, 0.955020867853922_dbl_kind, 0.674435570681807_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,421) = (/ 0.999950437820318_dbl_kind, 0.998670976068239_dbl_kind, 0.989798150207605_dbl_kind, 0.954933481711459_dbl_kind, 0.674113609451199_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,422) = (/ 0.999950329049308_dbl_kind, 0.998668212108272_dbl_kind, 0.98977642509695_dbl_kind, 0.954846111787244_dbl_kind, 0.673792445432773_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,423) = (/ 0.999950220282622_dbl_kind, 0.99866544853776_dbl_kind, 0.989754702147211_dbl_kind, 0.954758758098138_dbl_kind, 0.673472076393282_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,424) = (/ 0.99995011152027_dbl_kind, 0.998662685355914_dbl_kind, 0.989732981354446_dbl_kind, 0.95467142066086_dbl_kind, 0.673152500108355_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,425) = (/ 0.999950002762265_dbl_kind, 0.998659922561959_dbl_kind, 0.989711262714805_dbl_kind, 0.954584099491977_dbl_kind, 0.672833714362434_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,426) = (/ 0.999949894008617_dbl_kind, 0.998657160155138_dbl_kind, 0.989689546224523_dbl_kind, 0.954496794607914_dbl_kind, 0.672515716948725_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,427) = (/ 0.999949785259337_dbl_kind, 0.998654398134705_dbl_kind, 0.989667831879926_dbl_kind, 0.954409506024955_dbl_kind, 0.672198505669124_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,428) = (/ 0.999949676514438_dbl_kind, 0.998651636499931_dbl_kind, 0.989646119677421_dbl_kind, 0.954322233759235_dbl_kind, 0.671882078334173_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,429) = (/ 0.999949567773928_dbl_kind, 0.998648875250103_dbl_kind, 0.989624409613502_dbl_kind, 0.954234977826753_dbl_kind, 0.671566432762991_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,430) = (/ 0.999949459037819_dbl_kind, 0.99864611438452_dbl_kind, 0.989602701684744_dbl_kind, 0.954147738243365_dbl_kind, 0.671251566783216_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,431) = (/ 0.999949350306121_dbl_kind, 0.998643353902499_dbl_kind, 0.989580995887802_dbl_kind, 0.954060515024789_dbl_kind, 0.670937478230957_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,432) = (/ 0.999949241578843_dbl_kind, 0.998640593803368_dbl_kind, 0.989559292219413_dbl_kind, 0.953973308186604_dbl_kind, 0.670624164950727_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,433) = (/ 0.999949132855996_dbl_kind, 0.998637834086472_dbl_kind, 0.989537590676389_dbl_kind, 0.953886117744251_dbl_kind, 0.670311624795394_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,434) = (/ 0.999949024137589_dbl_kind, 0.99863507475117_dbl_kind, 0.989515891255622_dbl_kind, 0.953798943713038_dbl_kind, 0.669999855626119_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,435) = (/ 0.999948915423631_dbl_kind, 0.998632315796835_dbl_kind, 0.989494193954076_dbl_kind, 0.953711786108137_dbl_kind, 0.669688855312311_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,436) = (/ 0.999948806714131_dbl_kind, 0.998629557222853_dbl_kind, 0.989472498768791_dbl_kind, 0.953624644944587_dbl_kind, 0.669378621731561_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,437) = (/ 0.999948698009097_dbl_kind, 0.998626799028625_dbl_kind, 0.989450805696881_dbl_kind, 0.953537520237294_dbl_kind, 0.669069152769597_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,438) = (/ 0.99994858930854_dbl_kind, 0.998624041213567_dbl_kind, 0.989429114735527_dbl_kind, 0.953450412001034_dbl_kind, 0.668760446320226_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,439) = (/ 0.999948480612466_dbl_kind, 0.998621283777107_dbl_kind, 0.989407425881983_dbl_kind, 0.953363320250454_dbl_kind, 0.66845250028528_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,440) = (/ 0.999948371920883_dbl_kind, 0.998618526718688_dbl_kind, 0.989385739133574_dbl_kind, 0.953276245000072_dbl_kind, 0.668145312574569_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,441) = (/ 0.999948263233799_dbl_kind, 0.998615770037767_dbl_kind, 0.989364054487685_dbl_kind, 0.953189186264278_dbl_kind, 0.667838881105824_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,442) = (/ 0.999948154551223_dbl_kind, 0.998613013733811_dbl_kind, 0.989342371941774_dbl_kind, 0.953102144057338_dbl_kind, 0.667533203804648_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,443) = (/ 0.999948045873161_dbl_kind, 0.998610257806306_dbl_kind, 0.989320691493364_dbl_kind, 0.953015118393393_dbl_kind, 0.667228278604466_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,444) = (/ 0.99994793719962_dbl_kind, 0.998607502254747_dbl_kind, 0.989299013140035_dbl_kind, 0.952928109286459_dbl_kind, 0.666924103446468_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,445) = (/ 0.999947828530607_dbl_kind, 0.998604747078645_dbl_kind, 0.989277336879437_dbl_kind, 0.952841116750431_dbl_kind, 0.666620676279574_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,446) = (/ 0.999947719866127_dbl_kind, 0.99860199227752_dbl_kind, 0.989255662709277_dbl_kind, 0.952754140799084_dbl_kind, 0.666317995060363_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,447) = (/ 0.999947611206189_dbl_kind, 0.998599237850912_dbl_kind, 0.989233990627324_dbl_kind, 0.952667181446074_dbl_kind, 0.666016057753048_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,448) = (/ 0.999947502550798_dbl_kind, 0.998596483798366_dbl_kind, 0.989212320631405_dbl_kind, 0.952580238704936_dbl_kind, 0.665714862329406_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,449) = (/ 0.999947393899957_dbl_kind, 0.998593730119444_dbl_kind, 0.989190652719404_dbl_kind, 0.952493312589091_dbl_kind, 0.665414406768741_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,450) = (/ 0.999947285253675_dbl_kind, 0.998590976813721_dbl_kind, 0.989168986889264_dbl_kind, 0.952406403111842_dbl_kind, 0.665114689057843_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,451) = (/ 0.999947176611956_dbl_kind, 0.998588223880784_dbl_kind, 0.989147323138981_dbl_kind, 0.95231951028638_dbl_kind, 0.664815707190919_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,452) = (/ 0.999947067974804_dbl_kind, 0.998585471320231_dbl_kind, 0.989125661466608_dbl_kind, 0.95223263412578_dbl_kind, 0.664517459169569_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,453) = (/ 0.999946959342225_dbl_kind, 0.998582719131673_dbl_kind, 0.989104001870249_dbl_kind, 0.952145774643007_dbl_kind, 0.664219943002731_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,454) = (/ 0.999946850714223_dbl_kind, 0.998579967314734_dbl_kind, 0.989082344348061_dbl_kind, 0.952058931850917_dbl_kind, 0.663923156706629_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,455) = (/ 0.999946742090801_dbl_kind, 0.998577215869049_dbl_kind, 0.989060688898253_dbl_kind, 0.951972105762252_dbl_kind, 0.66362709830474_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,456) = (/ 0.999946633471965_dbl_kind, 0.998574464794268_dbl_kind, 0.989039035519083_dbl_kind, 0.95188529638965_dbl_kind, 0.663331765827736_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,457) = (/ 0.999946524857717_dbl_kind, 0.998571714090048_dbl_kind, 0.989017384208861_dbl_kind, 0.951798503745642_dbl_kind, 0.66303715731345_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,458) = (/ 0.99994641624806_dbl_kind, 0.99856896375606_dbl_kind, 0.98899573496594_dbl_kind, 0.95171172784265_dbl_kind, 0.662743270806823_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,459) = (/ 0.999946307642999_dbl_kind, 0.998566213791989_dbl_kind, 0.988974087788724_dbl_kind, 0.951624968692995_dbl_kind, 0.66245010435987_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,460) = (/ 0.999946199042535_dbl_kind, 0.998563464197526_dbl_kind, 0.988952442675663_dbl_kind, 0.951538226308895_dbl_kind, 0.662157656031628_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,461) = (/ 0.999946090446672_dbl_kind, 0.99856071497238_dbl_kind, 0.98893079962525_dbl_kind, 0.951451500702463_dbl_kind, 0.661865923888117_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,462) = (/ 0.999945981855412_dbl_kind, 0.998557966116266_dbl_kind, 0.988909158636025_dbl_kind, 0.951364791885714_dbl_kind, 0.661574906002299_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,463) = (/ 0.999945873268756_dbl_kind, 0.998555217628913_dbl_kind, 0.988887519706568_dbl_kind, 0.951278099870565_dbl_kind, 0.66128460045403_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,464) = (/ 0.999945764686708_dbl_kind, 0.998552469510059_dbl_kind, 0.988865882835505_dbl_kind, 0.95119142466883_dbl_kind, 0.660995005330022_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,465) = (/ 0.999945656109267_dbl_kind, 0.998549721759456_dbl_kind, 0.9888442480215_dbl_kind, 0.951104766292231_dbl_kind, 0.660706118723807_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,466) = (/ 0.999945547536436_dbl_kind, 0.998546974376862_dbl_kind, 0.988822615263259_dbl_kind, 0.951018124752391_dbl_kind, 0.660417938735684_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,467) = (/ 0.999945438968215_dbl_kind, 0.998544227362051_dbl_kind, 0.988800984559529_dbl_kind, 0.950931500060839_dbl_kind, 0.660130463472682_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,468) = (/ 0.999945330404607_dbl_kind, 0.998541480714804_dbl_kind, 0.988779355909094_dbl_kind, 0.950844892229013_dbl_kind, 0.659843691048533_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,469) = (/ 0.99994522184561_dbl_kind, 0.998538734434914_dbl_kind, 0.988757729310775_dbl_kind, 0.950758301268255_dbl_kind, 0.659557619583611_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,470) = (/ 0.999945113291225_dbl_kind, 0.998535988522183_dbl_kind, 0.988736104763433_dbl_kind, 0.950671727189818_dbl_kind, 0.659272247204908_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,471) = (/ 0.999945004741453_dbl_kind, 0.998533242976425_dbl_kind, 0.988714482265963_dbl_kind, 0.950585170004866_dbl_kind, 0.658987572045988_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,472) = (/ 0.999944896196293_dbl_kind, 0.998530497797462_dbl_kind, 0.988692861817295_dbl_kind, 0.950498629724473_dbl_kind, 0.658703592246947_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,473) = (/ 0.999944787655745_dbl_kind, 0.998527752985128_dbl_kind, 0.988671243416394_dbl_kind, 0.950412106359624_dbl_kind, 0.658420305954382_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,474) = (/ 0.999944679119808_dbl_kind, 0.998525008539265_dbl_kind, 0.988649627062261_dbl_kind, 0.950325599921221_dbl_kind, 0.658137711321343_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,475) = (/ 0.999944570588481_dbl_kind, 0.998522264459727_dbl_kind, 0.988628012753927_dbl_kind, 0.950239110420078_dbl_kind, 0.657855806507305_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,476) = (/ 0.999944462061764_dbl_kind, 0.998519520746374_dbl_kind, 0.988606400490456_dbl_kind, 0.950152637866924_dbl_kind, 0.657574589678116_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,477) = (/ 0.999944353539654_dbl_kind, 0.99851677739908_dbl_kind, 0.988584790270945_dbl_kind, 0.950066182272408_dbl_kind, 0.657294059005978_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,478) = (/ 0.99994424502215_dbl_kind, 0.998514034417725_dbl_kind, 0.988563182094519_dbl_kind, 0.949979743647096_dbl_kind, 0.657014212669399_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,479) = (/ 0.999944136509251_dbl_kind, 0.998511291802198_dbl_kind, 0.988541575960335_dbl_kind, 0.94989332200147_dbl_kind, 0.656735048853157_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,480) = (/ 0.999944028000954_dbl_kind, 0.9985085495524_dbl_kind, 0.988519971867579_dbl_kind, 0.949806917345935_dbl_kind, 0.656456565748261_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,481) = (/ 0.999943919497256_dbl_kind, 0.998505807668238_dbl_kind, 0.988498369815464_dbl_kind, 0.949720529690817_dbl_kind, 0.656178761551931_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,482) = (/ 0.999943810998156_dbl_kind, 0.99850306614963_dbl_kind, 0.988476769803233_dbl_kind, 0.949634159046363_dbl_kind, 0.655901634467538_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,483) = (/ 0.999943702503651_dbl_kind, 0.998500324996503_dbl_kind, 0.988455171830153_dbl_kind, 0.949547805422744_dbl_kind, 0.655625182704587_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,484) = (/ 0.999943594013737_dbl_kind, 0.998497584208789_dbl_kind, 0.98843357589552_dbl_kind, 0.949461468830054_dbl_kind, 0.655349404478681_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,485) = (/ 0.999943485528411_dbl_kind, 0.998494843786433_dbl_kind, 0.988411981998657_dbl_kind, 0.949375149278316_dbl_kind, 0.655074298011472_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,486) = (/ 0.999943377047671_dbl_kind, 0.998492103729386_dbl_kind, 0.988390390138909_dbl_kind, 0.949288846777473_dbl_kind, 0.654799861530643_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,487) = (/ 0.999943268571512_dbl_kind, 0.998489364037607_dbl_kind, 0.988368800315645_dbl_kind, 0.949202561337402_dbl_kind, 0.654526093269862_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,488) = (/ 0.99994316009993_dbl_kind, 0.998486624711063_dbl_kind, 0.988347212528261_dbl_kind, 0.949116292967903_dbl_kind, 0.65425299146876_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,489) = (/ 0.999943051632921_dbl_kind, 0.998483885749733_dbl_kind, 0.988325626776174_dbl_kind, 0.949030041678708_dbl_kind, 0.653980554372884_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,490) = (/ 0.999942943170481_dbl_kind, 0.998481147153598_dbl_kind, 0.988304043058824_dbl_kind, 0.948943807479478_dbl_kind, 0.653708780233675_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,491) = (/ 0.999942834712606_dbl_kind, 0.99847840892265_dbl_kind, 0.988282461375673_dbl_kind, 0.948857590379805_dbl_kind, 0.653437667308431_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,492) = (/ 0.99994272625929_dbl_kind, 0.998475671056888_dbl_kind, 0.988260881726205_dbl_kind, 0.948771390389212_dbl_kind, 0.653167213860265_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,493) = (/ 0.999942617810529_dbl_kind, 0.998472933556319_dbl_kind, 0.988239304109923_dbl_kind, 0.948685207517158_dbl_kind, 0.652897418158094_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,494) = (/ 0.999942509366319_dbl_kind, 0.998470196420957_dbl_kind, 0.988217728526352_dbl_kind, 0.948599041773035_dbl_kind, 0.652628278476583_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,495) = (/ 0.999942400926652_dbl_kind, 0.998467459650824_dbl_kind, 0.988196154975036_dbl_kind, 0.948512893166166_dbl_kind, 0.652359793096134_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,496) = (/ 0.999942292491524_dbl_kind, 0.998464723245948_dbl_kind, 0.988174583455537_dbl_kind, 0.948426761705814_dbl_kind, 0.652091960302838_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,497) = (/ 0.999942184060929_dbl_kind, 0.998461987206364_dbl_kind, 0.988153013967437_dbl_kind, 0.948340647401175_dbl_kind, 0.651824778388452_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,498) = (/ 0.999942075634861_dbl_kind, 0.998459251532116_dbl_kind, 0.988131446510336_dbl_kind, 0.948254550261387_dbl_kind, 0.651558245650369_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,499) = (/ 0.999941967213314_dbl_kind, 0.998456516223252_dbl_kind, 0.988109881083849_dbl_kind, 0.948168470295521_dbl_kind, 0.651292360391578_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,500) = (/ 0.999941858796282_dbl_kind, 0.998453781279828_dbl_kind, 0.988088317687611_dbl_kind, 0.948082407512589_dbl_kind, 0.651027120920648_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,501) = (/ 0.999941750383758_dbl_kind, 0.998451046701908_dbl_kind, 0.988066756321272_dbl_kind, 0.947996361921544_dbl_kind, 0.650762525551685_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,502) = (/ 0.999941641975736_dbl_kind, 0.99844831248956_dbl_kind, 0.988045196984499_dbl_kind, 0.947910333531278_dbl_kind, 0.650498572604305_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,503) = (/ 0.999941533572208_dbl_kind, 0.99844557864286_dbl_kind, 0.988023639676971_dbl_kind, 0.947824322350625_dbl_kind, 0.650235260403612_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,504) = (/ 0.999941425173168_dbl_kind, 0.99844284516189_dbl_kind, 0.988002084398386_dbl_kind, 0.947738328388363_dbl_kind, 0.649972587280158_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,505) = (/ 0.999941316778608_dbl_kind, 0.998440112046736_dbl_kind, 0.987980531148455_dbl_kind, 0.947652351653208_dbl_kind, 0.649710551569915_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,506) = (/ 0.999941208388521_dbl_kind, 0.998437379297495_dbl_kind, 0.987958979926902_dbl_kind, 0.947566392153824_dbl_kind, 0.649449151614257_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,507) = (/ 0.999941100002899_dbl_kind, 0.998434646914264_dbl_kind, 0.987937430733465_dbl_kind, 0.947480449898819_dbl_kind, 0.649188385759914_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,508) = (/ 0.999940991621736_dbl_kind, 0.99843191489715_dbl_kind, 0.987915883567896_dbl_kind, 0.947394524896745_dbl_kind, 0.648928252358956_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,509) = (/ 0.999940883245022_dbl_kind, 0.998429183246263_dbl_kind, 0.987894338429959_dbl_kind, 0.9473086171561_dbl_kind, 0.648668749768765_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,510) = (/ 0.999940774872749_dbl_kind, 0.998426451961721_dbl_kind, 0.98787279531943_dbl_kind, 0.94722272668533_dbl_kind, 0.648409876352_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,511) = (/ 0.999940666504911_dbl_kind, 0.998423721043646_dbl_kind, 0.987851254236097_dbl_kind, 0.947136853492828_dbl_kind, 0.648151630476569_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,512) = (/ 0.999940558141496_dbl_kind, 0.998420990492165_dbl_kind, 0.987829715179759_dbl_kind, 0.947050997586932_dbl_kind, 0.647894010515609_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,513) = (/ 0.999940449782499_dbl_kind, 0.99841826030741_dbl_kind, 0.987808178150225_dbl_kind, 0.946965158975932_dbl_kind, 0.647637014847449_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,514) = (/ 0.999940341427909_dbl_kind, 0.99841553048952_dbl_kind, 0.987786643147319_dbl_kind, 0.946879337668068_dbl_kind, 0.647380641855594_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,515) = (/ 0.999940233077719_dbl_kind, 0.998412801038637_dbl_kind, 0.987765110170869_dbl_kind, 0.946793533671527_dbl_kind, 0.647124889928687_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,516) = (/ 0.999940124731918_dbl_kind, 0.998410071954909_dbl_kind, 0.987743579220716_dbl_kind, 0.946707746994448_dbl_kind, 0.646869757460488_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,517) = (/ 0.999940016390498_dbl_kind, 0.998407343238489_dbl_kind, 0.987722050296711_dbl_kind, 0.946621977644922_dbl_kind, 0.646615242849846_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,518) = (/ 0.999939908053449_dbl_kind, 0.998404614889534_dbl_kind, 0.987700523398713_dbl_kind, 0.946536225630991_dbl_kind, 0.646361344500677_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,519) = (/ 0.999939799720762_dbl_kind, 0.998401886908204_dbl_kind, 0.987678998526587_dbl_kind, 0.94645049096065_dbl_kind, 0.646108060821926_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,520) = (/ 0.999939691392428_dbl_kind, 0.998399159294667_dbl_kind, 0.987657475680212_dbl_kind, 0.946364773641848_dbl_kind, 0.645855390227555_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,521) = (/ 0.999939583068437_dbl_kind, 0.998396432049093_dbl_kind, 0.98763595485947_dbl_kind, 0.946279073682483_dbl_kind, 0.645603331136509_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,522) = (/ 0.999939474748777_dbl_kind, 0.998393705171656_dbl_kind, 0.987614436064253_dbl_kind, 0.946193391090415_dbl_kind, 0.645351881972695_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,523) = (/ 0.999939366433442_dbl_kind, 0.998390978662536_dbl_kind, 0.987592919294459_dbl_kind, 0.946107725873452_dbl_kind, 0.64510104116495_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,524) = (/ 0.999939258122419_dbl_kind, 0.998388252521915_dbl_kind, 0.987571404549994_dbl_kind, 0.946022078039361_dbl_kind, 0.644850807147026_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,525) = (/ 0.999939149815698_dbl_kind, 0.99838552674998_dbl_kind, 0.987549891830769_dbl_kind, 0.945936447595864_dbl_kind, 0.644601178357552_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,526) = (/ 0.999939041513269_dbl_kind, 0.998382801346921_dbl_kind, 0.987528381136703_dbl_kind, 0.945850834550639_dbl_kind, 0.644352153240026_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,527) = (/ 0.999938933215123_dbl_kind, 0.998380076312933_dbl_kind, 0.987506872467719_dbl_kind, 0.945765238911321_dbl_kind, 0.644103730242772_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,528) = (/ 0.999938824921246_dbl_kind, 0.998377351648214_dbl_kind, 0.987485365823748_dbl_kind, 0.945679660685505_dbl_kind, 0.643855907818929_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,529) = (/ 0.99993871663163_dbl_kind, 0.998374627352965_dbl_kind, 0.987463861204725_dbl_kind, 0.945594099880739_dbl_kind, 0.643608684426422_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,530) = (/ 0.999938608346264_dbl_kind, 0.998371903427391_dbl_kind, 0.987442358610589_dbl_kind, 0.945508556504534_dbl_kind, 0.643362058527943_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,531) = (/ 0.999938500065137_dbl_kind, 0.9983691798717_dbl_kind, 0.987420858041285_dbl_kind, 0.945423030564356_dbl_kind, 0.643116028590914_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,532) = (/ 0.999938391788236_dbl_kind, 0.998366456686104_dbl_kind, 0.987399359496763_dbl_kind, 0.945337522067635_dbl_kind, 0.642870593087482_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,533) = (/ 0.999938283515552_dbl_kind, 0.998363733870816_dbl_kind, 0.987377862976976_dbl_kind, 0.945252031021758_dbl_kind, 0.642625750494476_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,534) = (/ 0.999938175247073_dbl_kind, 0.998361011426055_dbl_kind, 0.987356368481882_dbl_kind, 0.945166557434071_dbl_kind, 0.642381499293403_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,535) = (/ 0.999938066982788_dbl_kind, 0.998358289352041_dbl_kind, 0.987334876011439_dbl_kind, 0.945081101311884_dbl_kind, 0.642137837970413_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,536) = (/ 0.999937958722684_dbl_kind, 0.998355567648996_dbl_kind, 0.987313385565616_dbl_kind, 0.944995662662467_dbl_kind, 0.641894765016276_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,537) = (/ 0.999937850466751_dbl_kind, 0.998352846317149_dbl_kind, 0.987291897144375_dbl_kind, 0.94491024149305_dbl_kind, 0.641652278926361_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,538) = (/ 0.999937742214977_dbl_kind, 0.998350125356725_dbl_kind, 0.987270410747691_dbl_kind, 0.944824837810827_dbl_kind, 0.641410378200626_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,539) = (/ 0.99993763396735_dbl_kind, 0.998347404767957_dbl_kind, 0.987248926375534_dbl_kind, 0.944739451622953_dbl_kind, 0.64116906134357_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,540) = (/ 0.999937525723859_dbl_kind, 0.998344684551078_dbl_kind, 0.987227444027879_dbl_kind, 0.944654082936546_dbl_kind, 0.640928326864237_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,541) = (/ 0.999937417484491_dbl_kind, 0.998341964706326_dbl_kind, 0.987205963704706_dbl_kind, 0.944568731758689_dbl_kind, 0.640688173276174_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,542) = (/ 0.999937309249234_dbl_kind, 0.998339245233936_dbl_kind, 0.987184485405992_dbl_kind, 0.944483398096427_dbl_kind, 0.64044859909742_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,543) = (/ 0.999937201018075_dbl_kind, 0.99833652613415_dbl_kind, 0.987163009131718_dbl_kind, 0.944398081956767_dbl_kind, 0.640209602850488_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,544) = (/ 0.999937092791005_dbl_kind, 0.998333807407211_dbl_kind, 0.987141534881867_dbl_kind, 0.944312783346683_dbl_kind, 0.639971183062329_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,545) = (/ 0.99993698456801_dbl_kind, 0.998331089053362_dbl_kind, 0.987120062656422_dbl_kind, 0.944227502273115_dbl_kind, 0.639733338264324_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,546) = (/ 0.999936876349076_dbl_kind, 0.99832837107285_dbl_kind, 0.987098592455369_dbl_kind, 0.944142238742963_dbl_kind, 0.639496066992259_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,547) = (/ 0.999936768134193_dbl_kind, 0.998325653465924_dbl_kind, 0.987077124278691_dbl_kind, 0.944056992763096_dbl_kind, 0.639259367786298_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,548) = (/ 0.999936659923346_dbl_kind, 0.998322936232834_dbl_kind, 0.987055658126377_dbl_kind, 0.943971764340348_dbl_kind, 0.639023239190971_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,549) = (/ 0.999936551716525_dbl_kind, 0.99832021937383_dbl_kind, 0.987034193998412_dbl_kind, 0.943886553481518_dbl_kind, 0.638787679755151_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,550) = (/ 0.999936443513717_dbl_kind, 0.998317502889166_dbl_kind, 0.987012731894783_dbl_kind, 0.943801360193371_dbl_kind, 0.63855268803203_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,551) = (/ 0.999936335314908_dbl_kind, 0.998314786779096_dbl_kind, 0.986991271815477_dbl_kind, 0.943716184482641_dbl_kind, 0.638318262579102_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,552) = (/ 0.999936227120085_dbl_kind, 0.998312071043877_dbl_kind, 0.986969813760479_dbl_kind, 0.943631026356026_dbl_kind, 0.638084401958141_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,553) = (/ 0.999936118929238_dbl_kind, 0.998309355683767_dbl_kind, 0.986948357729778_dbl_kind, 0.943545885820191_dbl_kind, 0.637851104735181_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,554) = (/ 0.999936010742351_dbl_kind, 0.998306640699023_dbl_kind, 0.986926903723357_dbl_kind, 0.94346076288177_dbl_kind, 0.637618369480497_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,555) = (/ 0.999935902559413_dbl_kind, 0.998303926089905_dbl_kind, 0.986905451741203_dbl_kind, 0.943375657547365_dbl_kind, 0.637386194768589_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,556) = (/ 0.999935794380409_dbl_kind, 0.998301211856675_dbl_kind, 0.986884001783301_dbl_kind, 0.943290569823544_dbl_kind, 0.637154579178153_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,557) = (/ 0.999935686205329_dbl_kind, 0.998298497999593_dbl_kind, 0.986862553849632_dbl_kind, 0.943205499716842_dbl_kind, 0.63692352129207_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,558) = (/ 0.999935578034157_dbl_kind, 0.998295784518923_dbl_kind, 0.98684110794018_dbl_kind, 0.943120447233767_dbl_kind, 0.636693019697382_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,559) = (/ 0.999935469866882_dbl_kind, 0.998293071414929_dbl_kind, 0.986819664054924_dbl_kind, 0.943035412380791_dbl_kind, 0.63646307298528_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,560) = (/ 0.99993536170349_dbl_kind, 0.998290358687874_dbl_kind, 0.986798222193845_dbl_kind, 0.942950395164356_dbl_kind, 0.636233679751073_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,561) = (/ 0.999935253543966_dbl_kind, 0.998287646338024_dbl_kind, 0.98677678235692_dbl_kind, 0.942865395590876_dbl_kind, 0.636004838594176_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,562) = (/ 0.9999351453883_dbl_kind, 0.998284934365645_dbl_kind, 0.986755344544125_dbl_kind, 0.94278041366673_dbl_kind, 0.635776548118101_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,563) = (/ 0.999935037236477_dbl_kind, 0.998282222771002_dbl_kind, 0.986733908755434_dbl_kind, 0.942695449398268_dbl_kind, 0.635548806930413_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,564) = (/ 0.999934929088484_dbl_kind, 0.998279511554362_dbl_kind, 0.986712474990819_dbl_kind, 0.94261050279181_dbl_kind, 0.635321613642741_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,565) = (/ 0.999934820944308_dbl_kind, 0.998276800715993_dbl_kind, 0.98669104325025_dbl_kind, 0.942525573853646_dbl_kind, 0.635094966870737_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,566) = (/ 0.999934712803934_dbl_kind, 0.998274090256162_dbl_kind, 0.986669613533694_dbl_kind, 0.942440662590036_dbl_kind, 0.634868865234074_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,567) = (/ 0.99993460466735_dbl_kind, 0.998271380175137_dbl_kind, 0.986648185841116_dbl_kind, 0.942355769007209_dbl_kind, 0.634643307356414_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,568) = (/ 0.999934496534542_dbl_kind, 0.998268670473185_dbl_kind, 0.986626760172479_dbl_kind, 0.942270893111365_dbl_kind, 0.634418291865401_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,569) = (/ 0.999934388405497_dbl_kind, 0.998265961150574_dbl_kind, 0.986605336527742_dbl_kind, 0.942186034908676_dbl_kind, 0.634193817392636_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,570) = (/ 0.999934280280201_dbl_kind, 0.998263252207573_dbl_kind, 0.986583914906862_dbl_kind, 0.942101194405282_dbl_kind, 0.633969882573665_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,571) = (/ 0.999934172158641_dbl_kind, 0.99826054364445_dbl_kind, 0.986562495309794_dbl_kind, 0.942016371607296_dbl_kind, 0.633746486047961_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,572) = (/ 0.999934064040803_dbl_kind, 0.998257835461473_dbl_kind, 0.986541077736488_dbl_kind, 0.941931566520802_dbl_kind, 0.633523626458898_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,573) = (/ 0.999933955926673_dbl_kind, 0.998255127658909_dbl_kind, 0.986519662186892_dbl_kind, 0.941846779151853_dbl_kind, 0.633301302453745_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,574) = (/ 0.999933847816238_dbl_kind, 0.998252420237026_dbl_kind, 0.986498248660951_dbl_kind, 0.941762009506476_dbl_kind, 0.633079512683645_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,575) = (/ 0.999933739709484_dbl_kind, 0.998249713196092_dbl_kind, 0.986476837158605_dbl_kind, 0.941677257590668_dbl_kind, 0.632858255803595_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,576) = (/ 0.999933631606398_dbl_kind, 0.998247006536374_dbl_kind, 0.986455427679792_dbl_kind, 0.941592523410397_dbl_kind, 0.63263753047243_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,577) = (/ 0.999933523506966_dbl_kind, 0.998244300258138_dbl_kind, 0.986434020224448_dbl_kind, 0.941507806971602_dbl_kind, 0.632417335352815_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,578) = (/ 0.999933415411175_dbl_kind, 0.998241594361651_dbl_kind, 0.986412614792501_dbl_kind, 0.941423108280199_dbl_kind, 0.632197669111211_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,579) = (/ 0.99993330731901_dbl_kind, 0.998238888847178_dbl_kind, 0.986391211383879_dbl_kind, 0.94133842734207_dbl_kind, 0.631978530417876_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,580) = (/ 0.999933199230458_dbl_kind, 0.998236183714986_dbl_kind, 0.986369809998504_dbl_kind, 0.94125376416307_dbl_kind, 0.631759917946839_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,581) = (/ 0.999933091145506_dbl_kind, 0.998233478965337_dbl_kind, 0.986348410636296_dbl_kind, 0.941169118749029_dbl_kind, 0.631541830375885_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,582) = (/ 0.999932983064138_dbl_kind, 0.998230774598497_dbl_kind, 0.986327013297169_dbl_kind, 0.941084491105747_dbl_kind, 0.631324266386541_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,583) = (/ 0.999932874986343_dbl_kind, 0.998228070614728_dbl_kind, 0.986305617981036_dbl_kind, 0.940999881238995_dbl_kind, 0.631107224664056_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,584) = (/ 0.999932766912107_dbl_kind, 0.998225367014293_dbl_kind, 0.986284224687801_dbl_kind, 0.940915289154521_dbl_kind, 0.630890703897395_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,585) = (/ 0.999932658841414_dbl_kind, 0.998222663797452_dbl_kind, 0.986262833417367_dbl_kind, 0.940830714858041_dbl_kind, 0.63067470277921_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,586) = (/ 0.999932550774253_dbl_kind, 0.998219960964467_dbl_kind, 0.986241444169632_dbl_kind, 0.940746158355246_dbl_kind, 0.630459220005833_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,587) = (/ 0.999932442710609_dbl_kind, 0.998217258515599_dbl_kind, 0.986220056944491_dbl_kind, 0.940661619651797_dbl_kind, 0.630244254277255_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,588) = (/ 0.999932334650467_dbl_kind, 0.998214556451104_dbl_kind, 0.986198671741832_dbl_kind, 0.940577098753332_dbl_kind, 0.630029804297116_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,589) = (/ 0.999932226593817_dbl_kind, 0.998211854771241_dbl_kind, 0.98617728856154_dbl_kind, 0.940492595665458_dbl_kind, 0.629815868772688_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,590) = (/ 0.999932118540641_dbl_kind, 0.998209153476266_dbl_kind, 0.986155907403495_dbl_kind, 0.940408110393757_dbl_kind, 0.629602446414857_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,591) = (/ 0.999932010490929_dbl_kind, 0.998206452566436_dbl_kind, 0.986134528267573_dbl_kind, 0.940323642943783_dbl_kind, 0.629389535938112_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,592) = (/ 0.999931902444665_dbl_kind, 0.998203752042003_dbl_kind, 0.986113151153643_dbl_kind, 0.940239193321061_dbl_kind, 0.629177136060524_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,593) = (/ 0.999931794401837_dbl_kind, 0.998201051903222_dbl_kind, 0.986091776061572_dbl_kind, 0.940154761531094_dbl_kind, 0.62896524550374_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,594) = (/ 0.99993168636243_dbl_kind, 0.998198352150343_dbl_kind, 0.986070402991221_dbl_kind, 0.940070347579354_dbl_kind, 0.62875386299296_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,595) = (/ 0.99993157832643_dbl_kind, 0.998195652783616_dbl_kind, 0.986049031942446_dbl_kind, 0.939985951471288_dbl_kind, 0.628542987256922_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,596) = (/ 0.999931470293825_dbl_kind, 0.998192953803292_dbl_kind, 0.986027662915099_dbl_kind, 0.939901573212314_dbl_kind, 0.6283326170279_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,597) = (/ 0.9999313622646_dbl_kind, 0.998190255209616_dbl_kind, 0.986006295909023_dbl_kind, 0.939817212807826_dbl_kind, 0.628122751041673_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,598) = (/ 0.999931254238743_dbl_kind, 0.998187557002837_dbl_kind, 0.985984930924063_dbl_kind, 0.93973287026319_dbl_kind, 0.627913388037522_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,599) = (/ 0.999931146216239_dbl_kind, 0.998184859183197_dbl_kind, 0.985963567960052_dbl_kind, 0.939648545583744_dbl_kind, 0.627704526758207_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,600) = (/ 0.999931038197076_dbl_kind, 0.998182161750939_dbl_kind, 0.985942207016822_dbl_kind, 0.939564238774801_dbl_kind, 0.627496165949962_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,601) = (/ 0.999930930181238_dbl_kind, 0.998179464706306_dbl_kind, 0.985920848094198_dbl_kind, 0.939479949841648_dbl_kind, 0.627288304362478_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,602) = (/ 0.999930822168715_dbl_kind, 0.998176768049537_dbl_kind, 0.985899491192001_dbl_kind, 0.939395678789542_dbl_kind, 0.627080940748879_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,603) = (/ 0.99993071415949_dbl_kind, 0.99817407178087_dbl_kind, 0.985878136310046_dbl_kind, 0.939311425623718_dbl_kind, 0.626874073865725_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,604) = (/ 0.999930606153551_dbl_kind, 0.998171375900542_dbl_kind, 0.985856783448142_dbl_kind, 0.93922719034938_dbl_kind, 0.626667702472989_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,605) = (/ 0.999930498150886_dbl_kind, 0.998168680408785_dbl_kind, 0.985835432606093_dbl_kind, 0.939142972971707_dbl_kind, 0.626461825334038_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,606) = (/ 0.999930390151479_dbl_kind, 0.998165985305834_dbl_kind, 0.9858140837837_dbl_kind, 0.939058773495854_dbl_kind, 0.626256441215633_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,607) = (/ 0.999930282155319_dbl_kind, 0.998163290591921_dbl_kind, 0.985792736980755_dbl_kind, 0.938974591926945_dbl_kind, 0.626051548887901_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,608) = (/ 0.999930174162391_dbl_kind, 0.998160596267273_dbl_kind, 0.985771392197046_dbl_kind, 0.938890428270081_dbl_kind, 0.62584714712434_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,609) = (/ 0.999930066172682_dbl_kind, 0.998157902332117_dbl_kind, 0.985750049432356_dbl_kind, 0.938806282530335_dbl_kind, 0.625643234701782_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,610) = (/ 0.99992995818618_dbl_kind, 0.99815520878668_dbl_kind, 0.985728708686462_dbl_kind, 0.938722154712753_dbl_kind, 0.625439810400395_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,611) = (/ 0.99992985020287_dbl_kind, 0.998152515631183_dbl_kind, 0.985707369959136_dbl_kind, 0.938638044822355_dbl_kind, 0.625236873003674_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,612) = (/ 0.999929742222741_dbl_kind, 0.99814982286585_dbl_kind, 0.985686033250142_dbl_kind, 0.938553952864135_dbl_kind, 0.625034421298414_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,613) = (/ 0.999929634245777_dbl_kind, 0.998147130490899_dbl_kind, 0.985664698559243_dbl_kind, 0.938469878843058_dbl_kind, 0.624832454074708_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,614) = (/ 0.999929526271967_dbl_kind, 0.998144438506546_dbl_kind, 0.985643365886191_dbl_kind, 0.938385822764067_dbl_kind, 0.624630970125924_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,615) = (/ 0.999929418301298_dbl_kind, 0.998141746913008_dbl_kind, 0.985622035230738_dbl_kind, 0.938301784632074_dbl_kind, 0.624429968248706_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,616) = (/ 0.999929310333755_dbl_kind, 0.998139055710497_dbl_kind, 0.985600706592625_dbl_kind, 0.938217764451968_dbl_kind, 0.624229447242954_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,617) = (/ 0.999929202369327_dbl_kind, 0.998136364899223_dbl_kind, 0.985579379971589_dbl_kind, 0.938133762228607_dbl_kind, 0.624029405911803_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,618) = (/ 0.999929094408_dbl_kind, 0.998133674479395_dbl_kind, 0.985558055367366_dbl_kind, 0.938049777966826_dbl_kind, 0.623829843061625_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,619) = (/ 0.999928986449762_dbl_kind, 0.998130984451221_dbl_kind, 0.985536732779678_dbl_kind, 0.937965811671434_dbl_kind, 0.623630757502011_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,620) = (/ 0.999928878494598_dbl_kind, 0.998128294814904_dbl_kind, 0.985515412208248_dbl_kind, 0.937881863347209_dbl_kind, 0.623432148045754_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,621) = (/ 0.999928770542498_dbl_kind, 0.998125605570646_dbl_kind, 0.98549409365279_dbl_kind, 0.937797932998908_dbl_kind, 0.623234013508842_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,622) = (/ 0.999928662593446_dbl_kind, 0.998122916718646_dbl_kind, 0.985472777113013_dbl_kind, 0.937714020631256_dbl_kind, 0.623036352710447_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,623) = (/ 0.999928554647433_dbl_kind, 0.998120228259101_dbl_kind, 0.98545146258862_dbl_kind, 0.937630126248955_dbl_kind, 0.622839164472908_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,624) = (/ 0.999928446704443_dbl_kind, 0.998117540192207_dbl_kind, 0.98543015007931_dbl_kind, 0.937546249856678_dbl_kind, 0.62264244762172_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,625) = (/ 0.999928338764465_dbl_kind, 0.998114852518157_dbl_kind, 0.985408839584772_dbl_kind, 0.937462391459074_dbl_kind, 0.622446200985526_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,626) = (/ 0.999928230827486_dbl_kind, 0.998112165237141_dbl_kind, 0.985387531104694_dbl_kind, 0.937378551060763_dbl_kind, 0.622250423396105_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,627) = (/ 0.999928122893494_dbl_kind, 0.998109478349345_dbl_kind, 0.985366224638755_dbl_kind, 0.937294728666339_dbl_kind, 0.622055113688352_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,628) = (/ 0.999928014962475_dbl_kind, 0.998106791854955_dbl_kind, 0.985344920186631_dbl_kind, 0.937210924280368_dbl_kind, 0.621860270700276_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,629) = (/ 0.999927907034418_dbl_kind, 0.998104105754155_dbl_kind, 0.985323617747988_dbl_kind, 0.93712713790739_dbl_kind, 0.621665893272984_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,630) = (/ 0.99992779910931_dbl_kind, 0.998101420047124_dbl_kind, 0.985302317322489_dbl_kind, 0.93704336955192_dbl_kind, 0.62147198025067_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,631) = (/ 0.999927691187138_dbl_kind, 0.998098734734042_dbl_kind, 0.985281018909793_dbl_kind, 0.936959619218444_dbl_kind, 0.621278530480604_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,632) = (/ 0.999927583267891_dbl_kind, 0.998096049815081_dbl_kind, 0.985259722509549_dbl_kind, 0.936875886911419_dbl_kind, 0.621085542813119_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,633) = (/ 0.999927475351555_dbl_kind, 0.998093365290417_dbl_kind, 0.985238428121403_dbl_kind, 0.936792172635282_dbl_kind, 0.620893016101601_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,634) = (/ 0.999927367438119_dbl_kind, 0.998090681160218_dbl_kind, 0.985217135744992_dbl_kind, 0.936708476394435_dbl_kind, 0.62070094920248_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,635) = (/ 0.999927259527572_dbl_kind, 0.998087997424653_dbl_kind, 0.985195845379954_dbl_kind, 0.936624798193259_dbl_kind, 0.620509340975215_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,636) = (/ 0.999927151619898_dbl_kind, 0.998085314083887_dbl_kind, 0.985174557025913_dbl_kind, 0.936541138036103_dbl_kind, 0.620318190282285_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,637) = (/ 0.999927043715089_dbl_kind, 0.998082631138081_dbl_kind, 0.985153270682492_dbl_kind, 0.936457495927294_dbl_kind, 0.620127495989175_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,638) = (/ 0.999926935813131_dbl_kind, 0.998079948587397_dbl_kind, 0.985131986349306_dbl_kind, 0.936373871871128_dbl_kind, 0.619937256964372_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,639) = (/ 0.999926827914013_dbl_kind, 0.998077266431991_dbl_kind, 0.985110704025967_dbl_kind, 0.936290265871875_dbl_kind, 0.619747472079343_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,640) = (/ 0.999926720017722_dbl_kind, 0.998074584672017_dbl_kind, 0.985089423712079_dbl_kind, 0.936206677933779_dbl_kind, 0.619558140208541_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,641) = (/ 0.999926612124246_dbl_kind, 0.998071903307629_dbl_kind, 0.985068145407239_dbl_kind, 0.936123108061054_dbl_kind, 0.619369260229375_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,642) = (/ 0.999926504233574_dbl_kind, 0.998069222338974_dbl_kind, 0.985046869111041_dbl_kind, 0.936039556257891_dbl_kind, 0.619180831022213_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,643) = (/ 0.999926396345695_dbl_kind, 0.998066541766199_dbl_kind, 0.985025594823073_dbl_kind, 0.935956022528449_dbl_kind, 0.618992851470364_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,644) = (/ 0.999926288460596_dbl_kind, 0.998063861589447_dbl_kind, 0.985004322542914_dbl_kind, 0.935872506876864_dbl_kind, 0.618805320460075_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,645) = (/ 0.999926180578265_dbl_kind, 0.998061181808862_dbl_kind, 0.984983052270141_dbl_kind, 0.93578900930724_dbl_kind, 0.618618236880514_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,646) = (/ 0.999926072698693_dbl_kind, 0.998058502424579_dbl_kind, 0.984961784004324_dbl_kind, 0.935705529823658_dbl_kind, 0.618431599623759_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,647) = (/ 0.999925964821865_dbl_kind, 0.998055823436735_dbl_kind, 0.984940517745027_dbl_kind, 0.935622068430169_dbl_kind, 0.618245407584792_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,648) = (/ 0.999925856947772_dbl_kind, 0.998053144845463_dbl_kind, 0.984919253491806_dbl_kind, 0.935538625130798_dbl_kind, 0.618059659661491_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,649) = (/ 0.999925749076402_dbl_kind, 0.998050466650892_dbl_kind, 0.984897991244217_dbl_kind, 0.935455199929541_dbl_kind, 0.617874354754607_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,650) = (/ 0.999925641207744_dbl_kind, 0.998047788853151_dbl_kind, 0.984876731001804_dbl_kind, 0.935371792830366_dbl_kind, 0.617689491767771_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,651) = (/ 0.999925533341786_dbl_kind, 0.998045111452362_dbl_kind, 0.984855472764109_dbl_kind, 0.935288403837216_dbl_kind, 0.617505069607474_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,652) = (/ 0.999925425478517_dbl_kind, 0.998042434448649_dbl_kind, 0.984834216530669_dbl_kind, 0.935205032954005_dbl_kind, 0.617321087183056_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,653) = (/ 0.999925317617925_dbl_kind, 0.998039757842129_dbl_kind, 0.984812962301012_dbl_kind, 0.935121680184618_dbl_kind, 0.617137543406701_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,654) = (/ 0.999925209760002_dbl_kind, 0.998037081632919_dbl_kind, 0.984791710074663_dbl_kind, 0.935038345532915_dbl_kind, 0.616954437193424_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,655) = (/ 0.999925101904734_dbl_kind, 0.998034405821133_dbl_kind, 0.984770459851141_dbl_kind, 0.934955029002725_dbl_kind, 0.616771767461064_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,656) = (/ 0.999924994052111_dbl_kind, 0.998031730406879_dbl_kind, 0.984749211629957_dbl_kind, 0.934871730597852_dbl_kind, 0.61658953313027_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,657) = (/ 0.999924886202121_dbl_kind, 0.998029055390267_dbl_kind, 0.98472796541062_dbl_kind, 0.934788450322072_dbl_kind, 0.616407733124495_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,658) = (/ 0.999924778354755_dbl_kind, 0.9980263807714_dbl_kind, 0.984706721192632_dbl_kind, 0.934705188179129_dbl_kind, 0.616226366369984_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,659) = (/ 0.999924670510002_dbl_kind, 0.998023706550381_dbl_kind, 0.984685478975488_dbl_kind, 0.934621944172745_dbl_kind, 0.616045431795769_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,660) = (/ 0.99992456266785_dbl_kind, 0.998021032727308_dbl_kind, 0.98466423875868_dbl_kind, 0.934538718306611_dbl_kind, 0.615864928333653_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,661) = (/ 0.999924454828289_dbl_kind, 0.998018359302277_dbl_kind, 0.984643000541692_dbl_kind, 0.93445551058439_dbl_kind, 0.615684854918203_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,662) = (/ 0.999924346991309_dbl_kind, 0.998015686275383_dbl_kind, 0.984621764324005_dbl_kind, 0.934372321009717_dbl_kind, 0.615505210486745_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,663) = (/ 0.999924239156899_dbl_kind, 0.998013013646715_dbl_kind, 0.984600530105092_dbl_kind, 0.9342891495862_dbl_kind, 0.615325993979347_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,664) = (/ 0.999924131325048_dbl_kind, 0.99801034141636_dbl_kind, 0.984579297884423_dbl_kind, 0.934205996317418_dbl_kind, 0.615147204338817_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,665) = (/ 0.999924023495747_dbl_kind, 0.998007669584403_dbl_kind, 0.98455806766146_dbl_kind, 0.934122861206921_dbl_kind, 0.614968840510687_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,666) = (/ 0.999923915668984_dbl_kind, 0.998004998150927_dbl_kind, 0.984536839435662_dbl_kind, 0.934039744258234_dbl_kind, 0.614790901443211_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,667) = (/ 0.999923807844751_dbl_kind, 0.99800232711601_dbl_kind, 0.984515613206481_dbl_kind, 0.93395664547485_dbl_kind, 0.614613386087352_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,668) = (/ 0.999923700023035_dbl_kind, 0.997999656479728_dbl_kind, 0.984494388973365_dbl_kind, 0.933873564860236_dbl_kind, 0.614436293396768_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,669) = (/ 0.999923592203828_dbl_kind, 0.997996986242154_dbl_kind, 0.984473166735755_dbl_kind, 0.93379050241783_dbl_kind, 0.614259622327816_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,670) = (/ 0.999923484387119_dbl_kind, 0.997994316403359_dbl_kind, 0.984451946493088_dbl_kind, 0.933707458151042_dbl_kind, 0.614083371839531_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,671) = (/ 0.999923376572899_dbl_kind, 0.997991646963408_dbl_kind, 0.984430728244795_dbl_kind, 0.933624432063254_dbl_kind, 0.613907540893621_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,672) = (/ 0.999923268761157_dbl_kind, 0.997988977922368_dbl_kind, 0.984409511990302_dbl_kind, 0.933541424157817_dbl_kind, 0.613732128454463_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,673) = (/ 0.999923160951883_dbl_kind, 0.9979863092803_dbl_kind, 0.984388297729032_dbl_kind, 0.93345843443806_dbl_kind, 0.613557133489081_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,674) = (/ 0.999923053145069_dbl_kind, 0.997983641037263_dbl_kind, 0.984367085460397_dbl_kind, 0.933375462907275_dbl_kind, 0.613382554967157_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,675) = (/ 0.999922945340703_dbl_kind, 0.997980973193311_dbl_kind, 0.98434587518381_dbl_kind, 0.933292509568733_dbl_kind, 0.613208391861004_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,676) = (/ 0.999922837538776_dbl_kind, 0.997978305748499_dbl_kind, 0.984324666898677_dbl_kind, 0.933209574425671_dbl_kind, 0.613034643145569_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,677) = (/ 0.99992272973928_dbl_kind, 0.997975638702876_dbl_kind, 0.984303460604395_dbl_kind, 0.933126657481301_dbl_kind, 0.612861307798418_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,678) = (/ 0.999922621942203_dbl_kind, 0.997972972056489_dbl_kind, 0.984282256300362_dbl_kind, 0.933043758738807_dbl_kind, 0.612688384799731_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,679) = (/ 0.999922514147538_dbl_kind, 0.997970305809382_dbl_kind, 0.984261053985966_dbl_kind, 0.932960878201339_dbl_kind, 0.612515873132293_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,680) = (/ 0.999922406355273_dbl_kind, 0.997967639961599_dbl_kind, 0.984239853660594_dbl_kind, 0.932878015872025_dbl_kind, 0.612343771781483_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,681) = (/ 0.999922298565402_dbl_kind, 0.997964974513175_dbl_kind, 0.984218655323625_dbl_kind, 0.93279517175396_dbl_kind, 0.612172079735269_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,682) = (/ 0.999922190777912_dbl_kind, 0.997962309464148_dbl_kind, 0.984197458974434_dbl_kind, 0.932712345850213_dbl_kind, 0.612000795984199_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,683) = (/ 0.999922082992797_dbl_kind, 0.997959644814549_dbl_kind, 0.98417626461239_dbl_kind, 0.932629538163821_dbl_kind, 0.611829919521391_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,684) = (/ 0.999921975210046_dbl_kind, 0.99795698056441_dbl_kind, 0.984155072236861_dbl_kind, 0.932546748697798_dbl_kind, 0.611659449342526_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,685) = (/ 0.99992186742965_dbl_kind, 0.997954316713756_dbl_kind, 0.984133881847205_dbl_kind, 0.932463977455123_dbl_kind, 0.611489384445841_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,686) = (/ 0.999921759651601_dbl_kind, 0.997951653262613_dbl_kind, 0.984112693442779_dbl_kind, 0.932381224438749_dbl_kind, 0.611319723832118_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,687) = (/ 0.99992165187589_dbl_kind, 0.997948990211001_dbl_kind, 0.984091507022933_dbl_kind, 0.9322984896516_dbl_kind, 0.611150466504678_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,688) = (/ 0.999921544102508_dbl_kind, 0.997946327558939_dbl_kind, 0.984070322587011_dbl_kind, 0.932215773096573_dbl_kind, 0.610981611469372_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,689) = (/ 0.999921436331445_dbl_kind, 0.997943665306442_dbl_kind, 0.984049140134358_dbl_kind, 0.932133074776533_dbl_kind, 0.610813157734578_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,690) = (/ 0.999921328562694_dbl_kind, 0.997941003453524_dbl_kind, 0.984027959664306_dbl_kind, 0.932050394694318_dbl_kind, 0.61064510431118_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,691) = (/ 0.999921220796245_dbl_kind, 0.997938342000195_dbl_kind, 0.98400678117619_dbl_kind, 0.931967732852737_dbl_kind, 0.610477450212579_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,692) = (/ 0.999921113032091_dbl_kind, 0.997935680946461_dbl_kind, 0.983985604669336_dbl_kind, 0.93188508925457_dbl_kind, 0.610310194454666_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,693) = (/ 0.999921005270221_dbl_kind, 0.997933020292328_dbl_kind, 0.983964430143066_dbl_kind, 0.931802463902568_dbl_kind, 0.610143336055829_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,694) = (/ 0.99992089751063_dbl_kind, 0.997930360037795_dbl_kind, 0.983943257596697_dbl_kind, 0.931719856799453_dbl_kind, 0.609976874036938_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,695) = (/ 0.999920789753306_dbl_kind, 0.997927700182863_dbl_kind, 0.983922087029545_dbl_kind, 0.931637267947918_dbl_kind, 0.609810807421335_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,696) = (/ 0.999920681998243_dbl_kind, 0.997925040727527_dbl_kind, 0.983900918440916_dbl_kind, 0.931554697350628_dbl_kind, 0.609645135234833_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,697) = (/ 0.999920574245433_dbl_kind, 0.99792238167178_dbl_kind, 0.983879751830116_dbl_kind, 0.931472145010217_dbl_kind, 0.609479856505708_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,698) = (/ 0.999920466494866_dbl_kind, 0.997919723015613_dbl_kind, 0.983858587196443_dbl_kind, 0.931389610929293_dbl_kind, 0.609314970264689_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,699) = (/ 0.999920358746536_dbl_kind, 0.997917064759013_dbl_kind, 0.983837424539195_dbl_kind, 0.931307095110432_dbl_kind, 0.609150475544943_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,700) = (/ 0.999920251000433_dbl_kind, 0.997914406901965_dbl_kind, 0.98381626385766_dbl_kind, 0.931224597556183_dbl_kind, 0.608986371382079_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,701) = (/ 0.999920143256549_dbl_kind, 0.997911749444451_dbl_kind, 0.983795105151126_dbl_kind, 0.931142118269066_dbl_kind, 0.608822656814142_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,702) = (/ 0.999920035514879_dbl_kind, 0.99790909238645_dbl_kind, 0.983773948418876_dbl_kind, 0.93105965725157_dbl_kind, 0.608659330881589_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,703) = (/ 0.999919927775411_dbl_kind, 0.997906435727939_dbl_kind, 0.983752793660187_dbl_kind, 0.930977214506157_dbl_kind, 0.608496392627302_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,704) = (/ 0.999919820038142_dbl_kind, 0.997903779468892_dbl_kind, 0.983731640874332_dbl_kind, 0.930894790035261_dbl_kind, 0.608333841096569_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,705) = (/ 0.99991971230306_dbl_kind, 0.997901123609279_dbl_kind, 0.983710490060583_dbl_kind, 0.930812383841282_dbl_kind, 0.608171675337073_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,706) = (/ 0.999919604570159_dbl_kind, 0.997898468149069_dbl_kind, 0.983689341218203_dbl_kind, 0.930729995926597_dbl_kind, 0.608009894398901_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,707) = (/ 0.999919496839432_dbl_kind, 0.997895813088228_dbl_kind, 0.983668194346454_dbl_kind, 0.93064762629355_dbl_kind, 0.60784849733452_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,708) = (/ 0.99991938911087_dbl_kind, 0.997893158426718_dbl_kind, 0.983647049444593_dbl_kind, 0.930565274944459_dbl_kind, 0.607687483198776_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,709) = (/ 0.999919281384468_dbl_kind, 0.997890504164499_dbl_kind, 0.983625906511874_dbl_kind, 0.930482941881609_dbl_kind, 0.607526851048887_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,710) = (/ 0.999919173660216_dbl_kind, 0.997887850301531_dbl_kind, 0.983604765547545_dbl_kind, 0.930400627107259_dbl_kind, 0.607366599944441_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,711) = (/ 0.999919065938108_dbl_kind, 0.997885196837767_dbl_kind, 0.983583626550851_dbl_kind, 0.93031833062364_dbl_kind, 0.607206728947382_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,712) = (/ 0.999918958218137_dbl_kind, 0.997882543773159_dbl_kind, 0.983562489521034_dbl_kind, 0.930236052432949_dbl_kind, 0.607047237122002_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,713) = (/ 0.999918850500295_dbl_kind, 0.997879891107657_dbl_kind, 0.98354135445733_dbl_kind, 0.930153792537359_dbl_kind, 0.60688812353494_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,714) = (/ 0.999918742784576_dbl_kind, 0.997877238841209_dbl_kind, 0.983520221358972_dbl_kind, 0.930071550939013_dbl_kind, 0.606729387255171_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,715) = (/ 0.999918635070972_dbl_kind, 0.997874586973757_dbl_kind, 0.983499090225191_dbl_kind, 0.929989327640021_dbl_kind, 0.606571027354003_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,716) = (/ 0.999918527359476_dbl_kind, 0.997871935505245_dbl_kind, 0.983477961055212_dbl_kind, 0.929907122642471_dbl_kind, 0.606413042905064_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,717) = (/ 0.999918419650081_dbl_kind, 0.997869284435611_dbl_kind, 0.983456833848256_dbl_kind, 0.929824935948415_dbl_kind, 0.606255432984298_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,718) = (/ 0.999918311942781_dbl_kind, 0.997866633764791_dbl_kind, 0.983435708603541_dbl_kind, 0.92974276755988_dbl_kind, 0.606098196669966_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,719) = (/ 0.999918204237568_dbl_kind, 0.99786398349272_dbl_kind, 0.983414585320283_dbl_kind, 0.929660617478865_dbl_kind, 0.605941333042624_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,720) = (/ 0.999918096534437_dbl_kind, 0.997861333619329_dbl_kind, 0.98339346399769_dbl_kind, 0.929578485707335_dbl_kind, 0.605784841185124_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,721) = (/ 0.99991798883338_dbl_kind, 0.997858684144547_dbl_kind, 0.983372344634972_dbl_kind, 0.929496372247232_dbl_kind, 0.605628720182616_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,722) = (/ 0.999917881134391_dbl_kind, 0.997856035068299_dbl_kind, 0.983351227231331_dbl_kind, 0.929414277100465_dbl_kind, 0.605472969122526_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,723) = (/ 0.999917773437463_dbl_kind, 0.99785338639051_dbl_kind, 0.983330111785967_dbl_kind, 0.929332200268915_dbl_kind, 0.605317587094556_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,724) = (/ 0.99991766574259_dbl_kind, 0.997850738111102_dbl_kind, 0.983308998298076_dbl_kind, 0.929250141754435_dbl_kind, 0.605162573190683_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,725) = (/ 0.999917558049765_dbl_kind, 0.997848090229992_dbl_kind, 0.983287886766852_dbl_kind, 0.929168101558849_dbl_kind, 0.605007926505144_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,726) = (/ 0.999917450358981_dbl_kind, 0.997845442747096_dbl_kind, 0.983266777191484_dbl_kind, 0.92908607968395_dbl_kind, 0.604853646134431_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,727) = (/ 0.999917342670234_dbl_kind, 0.997842795662329_dbl_kind, 0.983245669571158_dbl_kind, 0.929004076131505_dbl_kind, 0.604699731177291_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,728) = (/ 0.999917234983516_dbl_kind, 0.9978401489756_dbl_kind, 0.983224563905056_dbl_kind, 0.928922090903251_dbl_kind, 0.60454618073471_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,729) = (/ 0.999917127298822_dbl_kind, 0.997837502686821_dbl_kind, 0.983203460192359_dbl_kind, 0.928840124000896_dbl_kind, 0.604392993909917_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,730) = (/ 0.999917019616144_dbl_kind, 0.997834856795897_dbl_kind, 0.983182358432243_dbl_kind, 0.928758175426119_dbl_kind, 0.604240169808363_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,731) = (/ 0.999916911935478_dbl_kind, 0.997832211302729_dbl_kind, 0.983161258623879_dbl_kind, 0.928676245180571_dbl_kind, 0.604087707537735_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,732) = (/ 0.999916804256818_dbl_kind, 0.997829566207223_dbl_kind, 0.983140160766439_dbl_kind, 0.928594333265873_dbl_kind, 0.603935606207928_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,733) = (/ 0.999916696580157_dbl_kind, 0.997826921509276_dbl_kind, 0.983119064859088_dbl_kind, 0.928512439683619_dbl_kind, 0.603783864931057_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,734) = (/ 0.999916588905488_dbl_kind, 0.997824277208783_dbl_kind, 0.983097970900991_dbl_kind, 0.928430564435373_dbl_kind, 0.603632482821437_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,735) = (/ 0.999916481232808_dbl_kind, 0.997821633305641_dbl_kind, 0.983076878891306_dbl_kind, 0.928348707522671_dbl_kind, 0.603481458995584_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,736) = (/ 0.99991637356211_dbl_kind, 0.99781898979974_dbl_kind, 0.983055788829191_dbl_kind, 0.928266868947019_dbl_kind, 0.60333079257221_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,737) = (/ 0.999916265893388_dbl_kind, 0.997816346690971_dbl_kind, 0.983034700713802_dbl_kind, 0.928185048709897_dbl_kind, 0.603180482672214_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,738) = (/ 0.999916158226637_dbl_kind, 0.99781370397922_dbl_kind, 0.983013614544288_dbl_kind, 0.928103246812752_dbl_kind, 0.603030528418674_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,739) = (/ 0.999916050561851_dbl_kind, 0.997811061664373_dbl_kind, 0.982992530319799_dbl_kind, 0.928021463257009_dbl_kind, 0.60288092893684_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,740) = (/ 0.999915942899024_dbl_kind, 0.997808419746311_dbl_kind, 0.982971448039479_dbl_kind, 0.927939698044059_dbl_kind, 0.602731683354139_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,741) = (/ 0.999915835238152_dbl_kind, 0.997805778224915_dbl_kind, 0.982950367702473_dbl_kind, 0.927857951175265_dbl_kind, 0.602582790800153_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,742) = (/ 0.999915727579229_dbl_kind, 0.997803137100063_dbl_kind, 0.982929289307917_dbl_kind, 0.927776222651965_dbl_kind, 0.602434250406624_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,743) = (/ 0.999915619922249_dbl_kind, 0.99780049637163_dbl_kind, 0.982908212854951_dbl_kind, 0.927694512475465_dbl_kind, 0.602286061307446_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,744) = (/ 0.999915512267207_dbl_kind, 0.997797856039492_dbl_kind, 0.982887138342707_dbl_kind, 0.927612820647045_dbl_kind, 0.602138222638657_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,745) = (/ 0.999915404614099_dbl_kind, 0.997795216103517_dbl_kind, 0.982866065770318_dbl_kind, 0.927531147167954_dbl_kind, 0.601990733538433_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,746) = (/ 0.999915296962919_dbl_kind, 0.997792576563575_dbl_kind, 0.982844995136913_dbl_kind, 0.927449492039416_dbl_kind, 0.601843593147083_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,747) = (/ 0.999915189313662_dbl_kind, 0.997789937419533_dbl_kind, 0.982823926441618_dbl_kind, 0.927367855262626_dbl_kind, 0.601696800607047_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,748) = (/ 0.999915081666322_dbl_kind, 0.997787298671257_dbl_kind, 0.982802859683556_dbl_kind, 0.927286236838746_dbl_kind, 0.601550355062878_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,749) = (/ 0.999914974020896_dbl_kind, 0.997784660318607_dbl_kind, 0.982781794861848_dbl_kind, 0.927204636768917_dbl_kind, 0.601404255661254_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,750) = (/ 0.999914866377378_dbl_kind, 0.997782022361444_dbl_kind, 0.982760731975613_dbl_kind, 0.927123055054248_dbl_kind, 0.601258501550956_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,751) = (/ 0.999914758735762_dbl_kind, 0.997779384799626_dbl_kind, 0.982739671023967_dbl_kind, 0.92704149169582_dbl_kind, 0.601113091882871_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,752) = (/ 0.999914651096045_dbl_kind, 0.997776747633009_dbl_kind, 0.982718612006023_dbl_kind, 0.926959946694686_dbl_kind, 0.600968025809986_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,753) = (/ 0.999914543458222_dbl_kind, 0.997774110861447_dbl_kind, 0.982697554920894_dbl_kind, 0.926878420051873_dbl_kind, 0.600823302487378_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,754) = (/ 0.999914435822288_dbl_kind, 0.997771474484792_dbl_kind, 0.982676499767687_dbl_kind, 0.926796911768375_dbl_kind, 0.600678921072212_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,755) = (/ 0.999914328188238_dbl_kind, 0.997768838502892_dbl_kind, 0.98265544654551_dbl_kind, 0.926715421845165_dbl_kind, 0.600534880723732_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,756) = (/ 0.999914220556068_dbl_kind, 0.997766202915596_dbl_kind, 0.982634395253466_dbl_kind, 0.926633950283184_dbl_kind, 0.600391180603262_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,757) = (/ 0.999914112925773_dbl_kind, 0.997763567722749_dbl_kind, 0.982613345890657_dbl_kind, 0.926552497083344_dbl_kind, 0.60024781987419_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,758) = (/ 0.999914005297349_dbl_kind, 0.997760932924194_dbl_kind, 0.982592298456185_dbl_kind, 0.926471062246533_dbl_kind, 0.600104797701975_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,759) = (/ 0.999913897670792_dbl_kind, 0.997758298519772_dbl_kind, 0.982571252949145_dbl_kind, 0.926389645773608_dbl_kind, 0.599962113254129_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,760) = (/ 0.999913790046096_dbl_kind, 0.997755664509324_dbl_kind, 0.982550209368635_dbl_kind, 0.926308247665401_dbl_kind, 0.59981976570022_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,761) = (/ 0.999913682423259_dbl_kind, 0.997753030892685_dbl_kind, 0.982529167713746_dbl_kind, 0.926226867922715_dbl_kind, 0.599677754211862_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,762) = (/ 0.999913574802274_dbl_kind, 0.997750397669692_dbl_kind, 0.982508127983571_dbl_kind, 0.926145506546326_dbl_kind, 0.599536077962714_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,763) = (/ 0.999913467183139_dbl_kind, 0.997747764840177_dbl_kind, 0.982487090177198_dbl_kind, 0.926064163536978_dbl_kind, 0.599394736128467_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,764) = (/ 0.999913359565849_dbl_kind, 0.997745132403973_dbl_kind, 0.982466054293717_dbl_kind, 0.925982838895397_dbl_kind, 0.59925372788685_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,765) = (/ 0.999913251950401_dbl_kind, 0.997742500360909_dbl_kind, 0.98244502033221_dbl_kind, 0.925901532622275_dbl_kind, 0.599113052417612_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,766) = (/ 0.999913144336789_dbl_kind, 0.997739868710811_dbl_kind, 0.982423988291764_dbl_kind, 0.925820244718275_dbl_kind, 0.598972708902526_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,767) = (/ 0.99991303672501_dbl_kind, 0.997737237453505_dbl_kind, 0.982402958171458_dbl_kind, 0.925738975184038_dbl_kind, 0.598832696525377_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,768) = (/ 0.999912929115061_dbl_kind, 0.997734606588815_dbl_kind, 0.982381929970374_dbl_kind, 0.925657724020176_dbl_kind, 0.598693014471964_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,769) = (/ 0.999912821506937_dbl_kind, 0.997731976116564_dbl_kind, 0.982360903687588_dbl_kind, 0.925576491227273_dbl_kind, 0.598553661930089_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,770) = (/ 0.999912713900634_dbl_kind, 0.99772934603657_dbl_kind, 0.982339879322179_dbl_kind, 0.925495276805886_dbl_kind, 0.598414638089547_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,771) = (/ 0.999912606296149_dbl_kind, 0.997726716348653_dbl_kind, 0.98231885687322_dbl_kind, 0.925414080756544_dbl_kind, 0.598275942142137_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,772) = (/ 0.999912498693478_dbl_kind, 0.997724087052627_dbl_kind, 0.982297836339783_dbl_kind, 0.925332903079752_dbl_kind, 0.59813757328164_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,773) = (/ 0.999912391092617_dbl_kind, 0.997721458148308_dbl_kind, 0.982276817720941_dbl_kind, 0.925251743775987_dbl_kind, 0.597999530703825_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,774) = (/ 0.999912283493562_dbl_kind, 0.997718829635508_dbl_kind, 0.982255801015763_dbl_kind, 0.925170602845697_dbl_kind, 0.597861813606433_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,775) = (/ 0.999912175896311_dbl_kind, 0.997716201514038_dbl_kind, 0.982234786223318_dbl_kind, 0.925089480289305_dbl_kind, 0.597724421189185_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,776) = (/ 0.999912068300859_dbl_kind, 0.997713573783707_dbl_kind, 0.982213773342672_dbl_kind, 0.925008376107208_dbl_kind, 0.597587352653763_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,777) = (/ 0.999911960707203_dbl_kind, 0.997710946444322_dbl_kind, 0.98219276237289_dbl_kind, 0.924927290299775_dbl_kind, 0.597450607203819_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,778) = (/ 0.999911853115339_dbl_kind, 0.997708319495687_dbl_kind, 0.982171753313036_dbl_kind, 0.924846222867351_dbl_kind, 0.597314184044957_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,779) = (/ 0.999911745525265_dbl_kind, 0.997705692937609_dbl_kind, 0.982150746162173_dbl_kind, 0.924765173810249_dbl_kind, 0.597178082384736_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,780) = (/ 0.999911637936977_dbl_kind, 0.997703066769889_dbl_kind, 0.982129740919361_dbl_kind, 0.924684143128763_dbl_kind, 0.597042301432662_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,781) = (/ 0.999911530350471_dbl_kind, 0.997700440992325_dbl_kind, 0.98210873758366_dbl_kind, 0.924603130823154_dbl_kind, 0.596906840400182_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,782) = (/ 0.999911422765745_dbl_kind, 0.997697815604718_dbl_kind, 0.982087736154128_dbl_kind, 0.924522136893661_dbl_kind, 0.596771698500686_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,783) = (/ 0.999911315182794_dbl_kind, 0.997695190606865_dbl_kind, 0.982066736629823_dbl_kind, 0.924441161340495_dbl_kind, 0.596636874949485_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,784) = (/ 0.999911207601616_dbl_kind, 0.997692565998559_dbl_kind, 0.982045739009801_dbl_kind, 0.924360204163841_dbl_kind, 0.596502368963832_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,785) = (/ 0.999911100022208_dbl_kind, 0.997689941779597_dbl_kind, 0.982024743293114_dbl_kind, 0.924279265363859_dbl_kind, 0.59636817976289_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,786) = (/ 0.999910992444567_dbl_kind, 0.997687317949769_dbl_kind, 0.982003749478819_dbl_kind, 0.924198344940682_dbl_kind, 0.596234306567746_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,787) = (/ 0.99991088486869_dbl_kind, 0.997684694508866_dbl_kind, 0.981982757565966_dbl_kind, 0.924117442894417_dbl_kind, 0.596100748601397_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,788) = (/ 0.999910777294573_dbl_kind, 0.997682071456676_dbl_kind, 0.981961767553608_dbl_kind, 0.924036559225147_dbl_kind, 0.59596750508875_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,789) = (/ 0.999910669722215_dbl_kind, 0.997679448792988_dbl_kind, 0.981940779440794_dbl_kind, 0.923955693932927_dbl_kind, 0.595834575256612_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,790) = (/ 0.999910562151611_dbl_kind, 0.997676826517587_dbl_kind, 0.981919793226574_dbl_kind, 0.923874847017787_dbl_kind, 0.595701958333689_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,791) = (/ 0.999910454582759_dbl_kind, 0.997674204630256_dbl_kind, 0.981898808909996_dbl_kind, 0.923794018479732_dbl_kind, 0.59556965355058_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,792) = (/ 0.999910347015657_dbl_kind, 0.997671583130778_dbl_kind, 0.981877826490107_dbl_kind, 0.923713208318742_dbl_kind, 0.595437660139773_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,793) = (/ 0.999910239450301_dbl_kind, 0.997668962018937_dbl_kind, 0.981856845965955_dbl_kind, 0.92363241653477_dbl_kind, 0.595305977335636_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,794) = (/ 0.999910131886688_dbl_kind, 0.997666341294508_dbl_kind, 0.981835867336583_dbl_kind, 0.923551643127744_dbl_kind, 0.595174604374421_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,795) = (/ 0.999910024324818_dbl_kind, 0.997663720957272_dbl_kind, 0.981814890601038_dbl_kind, 0.923470888097569_dbl_kind, 0.595043540494248_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,796) = (/ 0.999909916764686_dbl_kind, 0.997661101007005_dbl_kind, 0.981793915758364_dbl_kind, 0.923390151444121_dbl_kind, 0.59491278493511_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,797) = (/ 0.999909809206289_dbl_kind, 0.997658481443483_dbl_kind, 0.981772942807603_dbl_kind, 0.923309433167256_dbl_kind, 0.594782336938862_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,798) = (/ 0.999909701649627_dbl_kind, 0.997655862266478_dbl_kind, 0.981751971747798_dbl_kind, 0.923228733266798_dbl_kind, 0.594652195749221_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,799) = (/ 0.999909594094695_dbl_kind, 0.997653243475765_dbl_kind, 0.981731002577991_dbl_kind, 0.923148051742554_dbl_kind, 0.594522360611758_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,800) = (/ 0.999909486541491_dbl_kind, 0.997650625071111_dbl_kind, 0.981710035297224_dbl_kind, 0.923067388594301_dbl_kind, 0.594392830773887_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,801) = (/ 0.999909378990014_dbl_kind, 0.997648007052289_dbl_kind, 0.981689069904536_dbl_kind, 0.922986743821791_dbl_kind, 0.594263605484881_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,802) = (/ 0.99990927144026_dbl_kind, 0.997645389419066_dbl_kind, 0.981668106398968_dbl_kind, 0.922906117424755_dbl_kind, 0.594134683995843_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,803) = (/ 0.999909163892227_dbl_kind, 0.997642772171208_dbl_kind, 0.981647144779559_dbl_kind, 0.922825509402897_dbl_kind, 0.594006065559718_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,804) = (/ 0.999909056345913_dbl_kind, 0.997640155308482_dbl_kind, 0.981626185045349_dbl_kind, 0.922744919755898_dbl_kind, 0.59387774943128_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,805) = (/ 0.999908948801317_dbl_kind, 0.99763753883065_dbl_kind, 0.981605227195375_dbl_kind, 0.922664348483412_dbl_kind, 0.593749734867127_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,806) = (/ 0.999908841258435_dbl_kind, 0.997634922737477_dbl_kind, 0.981584271228676_dbl_kind, 0.92258379558507_dbl_kind, 0.593622021125687_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,807) = (/ 0.999908733717265_dbl_kind, 0.997632307028722_dbl_kind, 0.98156331714429_dbl_kind, 0.922503261060482_dbl_kind, 0.593494607467197_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,808) = (/ 0.999908626177806_dbl_kind, 0.997629691704148_dbl_kind, 0.981542364941254_dbl_kind, 0.922422744909228_dbl_kind, 0.593367493153714_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,809) = (/ 0.999908518640054_dbl_kind, 0.997627076763511_dbl_kind, 0.981521414618604_dbl_kind, 0.922342247130869_dbl_kind, 0.593240677449101_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,810) = (/ 0.999908411104009_dbl_kind, 0.997624462206571_dbl_kind, 0.981500466175377_dbl_kind, 0.92226176772494_dbl_kind, 0.593114159619027_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,811) = (/ 0.999908303569667_dbl_kind, 0.997621848033083_dbl_kind, 0.98147951961061_dbl_kind, 0.922181306690951_dbl_kind, 0.592987938930958_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,812) = (/ 0.999908196037028_dbl_kind, 0.997619234242802_dbl_kind, 0.98145857492334_dbl_kind, 0.922100864028391_dbl_kind, 0.592862014654156_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,813) = (/ 0.999908088506088_dbl_kind, 0.997616620835483_dbl_kind, 0.981437632112601_dbl_kind, 0.922020439736723_dbl_kind, 0.592736386059675_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,814) = (/ 0.999907980976848_dbl_kind, 0.997614007810877_dbl_kind, 0.98141669117743_dbl_kind, 0.921940033815389_dbl_kind, 0.592611052420355_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,815) = (/ 0.999907873449303_dbl_kind, 0.997611395168738_dbl_kind, 0.981395752116863_dbl_kind, 0.921859646263804_dbl_kind, 0.592486013010816_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,816) = (/ 0.999907765923452_dbl_kind, 0.997608782908814_dbl_kind, 0.981374814929934_dbl_kind, 0.921779277081363_dbl_kind, 0.592361267107458_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,817) = (/ 0.999907658399295_dbl_kind, 0.997606171030855_dbl_kind, 0.981353879615679_dbl_kind, 0.921698926267437_dbl_kind, 0.592236813988453_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,818) = (/ 0.999907550876828_dbl_kind, 0.997603559534609_dbl_kind, 0.981332946173135_dbl_kind, 0.921618593821372_dbl_kind, 0.59211265293374_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,819) = (/ 0.99990744335605_dbl_kind, 0.997600948419824_dbl_kind, 0.981312014601337_dbl_kind, 0.921538279742493_dbl_kind, 0.591988783225027_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,820) = (/ 0.99990733583696_dbl_kind, 0.997598337686244_dbl_kind, 0.981291084899318_dbl_kind, 0.921457984030102_dbl_kind, 0.591865204145774_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,821) = (/ 0.999907228319555_dbl_kind, 0.997595727333614_dbl_kind, 0.981270157066118_dbl_kind, 0.921377706683476_dbl_kind, 0.591741914981205_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,822) = (/ 0.999907120803835_dbl_kind, 0.997593117361679_dbl_kind, 0.981249231100769_dbl_kind, 0.921297447701871_dbl_kind, 0.591618915018292_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,823) = (/ 0.999907013289797_dbl_kind, 0.997590507770179_dbl_kind, 0.981228307002308_dbl_kind, 0.921217207084521_dbl_kind, 0.59149620354575_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,824) = (/ 0.999906905777439_dbl_kind, 0.997587898558858_dbl_kind, 0.981207384769771_dbl_kind, 0.921136984830636_dbl_kind, 0.591373779854044_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,825) = (/ 0.999906798266761_dbl_kind, 0.997585289727455_dbl_kind, 0.981186464402194_dbl_kind, 0.921056780939405_dbl_kind, 0.591251643235371_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,826) = (/ 0.999906690757762_dbl_kind, 0.99758268127571_dbl_kind, 0.981165545898614_dbl_kind, 0.920976595409992_dbl_kind, 0.591129792983665_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,827) = (/ 0.999906583250438_dbl_kind, 0.997580073203361_dbl_kind, 0.981144629258068_dbl_kind, 0.920896428241541_dbl_kind, 0.59100822839459_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,828) = (/ 0.99990647574479_dbl_kind, 0.997577465510144_dbl_kind, 0.981123714479591_dbl_kind, 0.920816279433175_dbl_kind, 0.590886948765537_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,829) = (/ 0.999906368240815_dbl_kind, 0.997574858195799_dbl_kind, 0.981102801562223_dbl_kind, 0.920736148983992_dbl_kind, 0.590765953395612_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,830) = (/ 0.999906260738513_dbl_kind, 0.997572251260057_dbl_kind, 0.981081890504999_dbl_kind, 0.92065603689307_dbl_kind, 0.590645241585645_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,831) = (/ 0.999906153237881_dbl_kind, 0.997569644702655_dbl_kind, 0.98106098130696_dbl_kind, 0.920575943159463_dbl_kind, 0.590524812638177_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,832) = (/ 0.999906045738919_dbl_kind, 0.997567038523326_dbl_kind, 0.981040073967141_dbl_kind, 0.920495867782207_dbl_kind, 0.590404665857457_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,833) = (/ 0.999905938241625_dbl_kind, 0.997564432721802_dbl_kind, 0.981019168484584_dbl_kind, 0.920415810760313_dbl_kind, 0.59028480054944_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,834) = (/ 0.999905830745999_dbl_kind, 0.997561827297815_dbl_kind, 0.980998264858327_dbl_kind, 0.920335772092772_dbl_kind, 0.59016521602178_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,835) = (/ 0.999905723252038_dbl_kind, 0.997559222251096_dbl_kind, 0.98097736308741_dbl_kind, 0.920255751778554_dbl_kind, 0.590045911583824_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,836) = (/ 0.999905615759741_dbl_kind, 0.997556617581374_dbl_kind, 0.980956463170874_dbl_kind, 0.920175749816605_dbl_kind, 0.589926886546621_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,837) = (/ 0.999905508269108_dbl_kind, 0.997554013288378_dbl_kind, 0.98093556510776_dbl_kind, 0.920095766205855_dbl_kind, 0.589808140222899_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,838) = (/ 0.999905400780138_dbl_kind, 0.997551409371837_dbl_kind, 0.980914668897109_dbl_kind, 0.920015800945207_dbl_kind, 0.58968967192707_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,839) = (/ 0.999905293292829_dbl_kind, 0.997548805831477_dbl_kind, 0.980893774537964_dbl_kind, 0.919935854033547_dbl_kind, 0.589571480975237_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,840) = (/ 0.99990518580718_dbl_kind, 0.997546202667024_dbl_kind, 0.980872882029368_dbl_kind, 0.919855925469738_dbl_kind, 0.589453566685163_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,841) = (/ 0.99990507832319_dbl_kind, 0.997543599878205_dbl_kind, 0.980851991370363_dbl_kind, 0.919776015252626_dbl_kind, 0.589335928376295_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,842) = (/ 0.999904970840858_dbl_kind, 0.997540997464744_dbl_kind, 0.980831102559997_dbl_kind, 0.91969612338103_dbl_kind, 0.589218565369741_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,843) = (/ 0.999904863360184_dbl_kind, 0.997538395426364_dbl_kind, 0.980810215597311_dbl_kind, 0.919616249853753_dbl_kind, 0.589101476988275_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,844) = (/ 0.999904755881165_dbl_kind, 0.997535793762789_dbl_kind, 0.980789330481355_dbl_kind, 0.919536394669577_dbl_kind, 0.588984662556332_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,845) = (/ 0.999904648403802_dbl_kind, 0.997533192473742_dbl_kind, 0.980768447211173_dbl_kind, 0.919456557827263_dbl_kind, 0.5888681214_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,846) = (/ 0.999904540928094_dbl_kind, 0.997530591558943_dbl_kind, 0.980747565785814_dbl_kind, 0.919376739325553_dbl_kind, 0.588751852847023_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,847) = (/ 0.999904433454039_dbl_kind, 0.997527991018113_dbl_kind, 0.980726686204325_dbl_kind, 0.919296939163166_dbl_kind, 0.588635856226783_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,848) = (/ 0.999904325981637_dbl_kind, 0.997525390850974_dbl_kind, 0.980705808465757_dbl_kind, 0.919217157338804_dbl_kind, 0.588520130870319_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,849) = (/ 0.999904218510886_dbl_kind, 0.997522791057243_dbl_kind, 0.98068493256916_dbl_kind, 0.919137393851148_dbl_kind, 0.588404676110299_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,850) = (/ 0.999904111041786_dbl_kind, 0.997520191636639_dbl_kind, 0.980664058513585_dbl_kind, 0.919057648698859_dbl_kind, 0.588289491281033_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,851) = (/ 0.999904003574337_dbl_kind, 0.997517592588881_dbl_kind, 0.980643186298085_dbl_kind, 0.918977921880578_dbl_kind, 0.58817457571846_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,852) = (/ 0.999903896108537_dbl_kind, 0.997514993913685_dbl_kind, 0.980622315921713_dbl_kind, 0.918898213394929_dbl_kind, 0.588059928760146_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,853) = (/ 0.999903788644386_dbl_kind, 0.997512395610768_dbl_kind, 0.980601447383524_dbl_kind, 0.918818523240513_dbl_kind, 0.587945549745285_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,854) = (/ 0.999903681181883_dbl_kind, 0.997509797679846_dbl_kind, 0.980580580682573_dbl_kind, 0.918738851415914_dbl_kind, 0.587831438014687_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,855) = (/ 0.999903573721028_dbl_kind, 0.997507200120634_dbl_kind, 0.980559715817916_dbl_kind, 0.918659197919694_dbl_kind, 0.587717592910781_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,856) = (/ 0.999903466261819_dbl_kind, 0.997504602932848_dbl_kind, 0.980538852788612_dbl_kind, 0.918579562750401_dbl_kind, 0.587604013777607_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,857) = (/ 0.999903358804258_dbl_kind, 0.9975020061162_dbl_kind, 0.980517991593719_dbl_kind, 0.918499945906559_dbl_kind, 0.587490699960814_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,858) = (/ 0.999903251348341_dbl_kind, 0.997499409670403_dbl_kind, 0.980497132232297_dbl_kind, 0.918420347386677_dbl_kind, 0.587377650807653_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,859) = (/ 0.99990314389407_dbl_kind, 0.997496813595173_dbl_kind, 0.980476274703409_dbl_kind, 0.918340767189241_dbl_kind, 0.587264865666982_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,860) = (/ 0.999903036441443_dbl_kind, 0.997494217890218_dbl_kind, 0.980455419006116_dbl_kind, 0.918261205312723_dbl_kind, 0.587152343889251_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,861) = (/ 0.99990292899046_dbl_kind, 0.997491622555253_dbl_kind, 0.980434565139483_dbl_kind, 0.918181661755573_dbl_kind, 0.587040084826506_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,862) = (/ 0.999902821541121_dbl_kind, 0.997489027589987_dbl_kind, 0.980413713102575_dbl_kind, 0.918102136516224_dbl_kind, 0.586928087832377_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,863) = (/ 0.999902714093425_dbl_kind, 0.997486432994131_dbl_kind, 0.980392862894459_dbl_kind, 0.918022629593091_dbl_kind, 0.586816352262087_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,864) = (/ 0.999902606647371_dbl_kind, 0.997483838767396_dbl_kind, 0.9803720145142_dbl_kind, 0.91794314098457_dbl_kind, 0.586704877472435_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,865) = (/ 0.99990249920296_dbl_kind, 0.99748124490949_dbl_kind, 0.980351167960872_dbl_kind, 0.91786367068904_dbl_kind, 0.5865936628218_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,866) = (/ 0.99990239176019_dbl_kind, 0.997478651420121_dbl_kind, 0.980330323233543_dbl_kind, 0.917784218704859_dbl_kind, 0.586482707670137_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,867) = (/ 0.999902284319062_dbl_kind, 0.997476058299_dbl_kind, 0.980309480331285_dbl_kind, 0.917704785030373_dbl_kind, 0.58637201137897_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,868) = (/ 0.999902176879575_dbl_kind, 0.997473465545833_dbl_kind, 0.980288639253173_dbl_kind, 0.917625369663906_dbl_kind, 0.586261573311388_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,869) = (/ 0.999902069441728_dbl_kind, 0.997470873160328_dbl_kind, 0.980267799998282_dbl_kind, 0.917545972603762_dbl_kind, 0.586151392832047_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,870) = (/ 0.999901962005523_dbl_kind, 0.997468281142192_dbl_kind, 0.980246962565687_dbl_kind, 0.917466593848235_dbl_kind, 0.586041469307157_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,871) = (/ 0.999901854570957_dbl_kind, 0.997465689491132_dbl_kind, 0.980226126954469_dbl_kind, 0.917387233395595_dbl_kind, 0.58593180210449_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,872) = (/ 0.99990174713803_dbl_kind, 0.997463098206853_dbl_kind, 0.980205293163707_dbl_kind, 0.917307891244098_dbl_kind, 0.585822390593363_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,873) = (/ 0.999901639706745_dbl_kind, 0.99746050728906_dbl_kind, 0.980184461192481_dbl_kind, 0.917228567391983_dbl_kind, 0.585713234144647_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,874) = (/ 0.999901532277098_dbl_kind, 0.99745791673746_dbl_kind, 0.980163631039875_dbl_kind, 0.917149261837469_dbl_kind, 0.585604332130757_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,875) = (/ 0.99990142484909_dbl_kind, 0.997455326551757_dbl_kind, 0.980142802704974_dbl_kind, 0.917069974578761_dbl_kind, 0.585495683925645_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,876) = (/ 0.999901317422721_dbl_kind, 0.997452736731655_dbl_kind, 0.980121976186866_dbl_kind, 0.916990705614047_dbl_kind, 0.585387288904802_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,877) = (/ 0.999901209997991_dbl_kind, 0.997450147276859_dbl_kind, 0.980101151484636_dbl_kind, 0.916911454941497_dbl_kind, 0.585279146445253_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,878) = (/ 0.9999011025749_dbl_kind, 0.997447558187071_dbl_kind, 0.980080328597375_dbl_kind, 0.916832222559266_dbl_kind, 0.585171255925555_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,879) = (/ 0.999900995153447_dbl_kind, 0.997444969461994_dbl_kind, 0.980059507524176_dbl_kind, 0.916753008465492_dbl_kind, 0.585063616725786_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,880) = (/ 0.999900887733633_dbl_kind, 0.997442381101333_dbl_kind, 0.980038688264132_dbl_kind, 0.916673812658295_dbl_kind, 0.584956228227555_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,881) = (/ 0.999900780315457_dbl_kind, 0.99743979310479_dbl_kind, 0.980017870816338_dbl_kind, 0.91659463513578_dbl_kind, 0.584849089813981_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,882) = (/ 0.99990067289892_dbl_kind, 0.997437205472066_dbl_kind, 0.979997055179891_dbl_kind, 0.916515475896039_dbl_kind, 0.584742200869703_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,883) = (/ 0.99990056548402_dbl_kind, 0.997434618202863_dbl_kind, 0.97997624135389_dbl_kind, 0.916436334937143_dbl_kind, 0.584635560780873_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,884) = (/ 0.999900458070759_dbl_kind, 0.997432031296883_dbl_kind, 0.979955429337437_dbl_kind, 0.916357212257152_dbl_kind, 0.584529168935151_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,885) = (/ 0.999900350659136_dbl_kind, 0.997429444753827_dbl_kind, 0.979934619129633_dbl_kind, 0.916278107854105_dbl_kind, 0.584423024721699_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,886) = (/ 0.999900243249152_dbl_kind, 0.997426858573397_dbl_kind, 0.979913810729584_dbl_kind, 0.91619902172603_dbl_kind, 0.584317127531181_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,887) = (/ 0.999900135840805_dbl_kind, 0.997424272755292_dbl_kind, 0.979893004136397_dbl_kind, 0.916119953870936_dbl_kind, 0.584211476755762_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,888) = (/ 0.999900028434096_dbl_kind, 0.997421687299213_dbl_kind, 0.97987219934918_dbl_kind, 0.916040904286822_dbl_kind, 0.584106071789096_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,889) = (/ 0.999899921029027_dbl_kind, 0.997419102204861_dbl_kind, 0.979851396367044_dbl_kind, 0.915961872971664_dbl_kind, 0.584000912026334_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,890) = (/ 0.999899813625596_dbl_kind, 0.997416517471934_dbl_kind, 0.979830595189102_dbl_kind, 0.91588285992343_dbl_kind, 0.583895996864109_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,891) = (/ 0.999899706223803_dbl_kind, 0.997413933100134_dbl_kind, 0.979809795814468_dbl_kind, 0.91580386514007_dbl_kind, 0.583791325700539_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,892) = (/ 0.999899598823649_dbl_kind, 0.997411349089159_dbl_kind, 0.97978899824226_dbl_kind, 0.915724888619517_dbl_kind, 0.583686897935221_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,893) = (/ 0.999899491425133_dbl_kind, 0.997408765438708_dbl_kind, 0.979768202471597_dbl_kind, 0.915645930359695_dbl_kind, 0.583582712969234_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,894) = (/ 0.999899384028257_dbl_kind, 0.997406182148479_dbl_kind, 0.979747408501599_dbl_kind, 0.915566990358507_dbl_kind, 0.583478770205121_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,895) = (/ 0.99989927663302_dbl_kind, 0.997403599218174_dbl_kind, 0.979726616331391_dbl_kind, 0.915488068613846_dbl_kind, 0.583375069046905_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,896) = (/ 0.999899169239422_dbl_kind, 0.997401016647489_dbl_kind, 0.979705825960098_dbl_kind, 0.915409165123589_dbl_kind, 0.583271608900066_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,897) = (/ 0.999899061847464_dbl_kind, 0.997398434436123_dbl_kind, 0.979685037386848_dbl_kind, 0.915330279885598_dbl_kind, 0.583168389171551_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,898) = (/ 0.999898954457145_dbl_kind, 0.997395852583774_dbl_kind, 0.979664250610771_dbl_kind, 0.915251412897723_dbl_kind, 0.583065409269769_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,899) = (/ 0.999898847068466_dbl_kind, 0.997393271090141_dbl_kind, 0.979643465630999_dbl_kind, 0.915172564157799_dbl_kind, 0.582962668604578_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,900) = (/ 0.999898739681427_dbl_kind, 0.997390689954921_dbl_kind, 0.979622682446665_dbl_kind, 0.915093733663645_dbl_kind, 0.582860166587296_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,901) = (/ 0.999898632296029_dbl_kind, 0.997388109177813_dbl_kind, 0.979601901056908_dbl_kind, 0.915014921413069_dbl_kind, 0.582757902630684_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,902) = (/ 0.999898524912272_dbl_kind, 0.997385528758513_dbl_kind, 0.979581121460868_dbl_kind, 0.914936127403864_dbl_kind, 0.582655876148953_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,903) = (/ 0.999898417530156_dbl_kind, 0.99738294869672_dbl_kind, 0.979560343657684_dbl_kind, 0.914857351633812_dbl_kind, 0.582554086557754_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,904) = (/ 0.999898310149682_dbl_kind, 0.99738036899213_dbl_kind, 0.979539567646501_dbl_kind, 0.914778594100676_dbl_kind, 0.582452533274176_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,905) = (/ 0.999898202770848_dbl_kind, 0.997377789644441_dbl_kind, 0.979518793426466_dbl_kind, 0.914699854802212_dbl_kind, 0.582351215716746_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,906) = (/ 0.999898095393657_dbl_kind, 0.99737521065335_dbl_kind, 0.979498020996727_dbl_kind, 0.91462113373616_dbl_kind, 0.582250133305422_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,907) = (/ 0.999897988018108_dbl_kind, 0.997372632018556_dbl_kind, 0.979477250356436_dbl_kind, 0.914542430900244_dbl_kind, 0.582149285461589_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,908) = (/ 0.999897880644202_dbl_kind, 0.997370053739753_dbl_kind, 0.979456481504745_dbl_kind, 0.914463746292181_dbl_kind, 0.582048671608062_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,909) = (/ 0.999897773271939_dbl_kind, 0.99736747581664_dbl_kind, 0.979435714440812_dbl_kind, 0.914385079909672_dbl_kind, 0.581948291169069_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,910) = (/ 0.999897665901321_dbl_kind, 0.997364898248914_dbl_kind, 0.979414949163794_dbl_kind, 0.914306431750405_dbl_kind, 0.581848143570269_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,911) = (/ 0.999897558532346_dbl_kind, 0.997362321036271_dbl_kind, 0.979394185672854_dbl_kind, 0.914227801812057_dbl_kind, 0.581748228238727_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,912) = (/ 0.999897451165015_dbl_kind, 0.997359744178409_dbl_kind, 0.979373423967154_dbl_kind, 0.91414919009229_dbl_kind, 0.581648544602922_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,913) = (/ 0.999897343799329_dbl_kind, 0.997357167675024_dbl_kind, 0.979352664045862_dbl_kind, 0.914070596588757_dbl_kind, 0.581549092092748_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,914) = (/ 0.999897236435289_dbl_kind, 0.997354591525813_dbl_kind, 0.979331905908145_dbl_kind, 0.913992021299096_dbl_kind, 0.581449870139492_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,915) = (/ 0.999897129072895_dbl_kind, 0.997352015730473_dbl_kind, 0.979311149553176_dbl_kind, 0.913913464220936_dbl_kind, 0.581350878175857_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,916) = (/ 0.999897021712147_dbl_kind, 0.997349440288701_dbl_kind, 0.979290394980129_dbl_kind, 0.91383492535189_dbl_kind, 0.581252115635934_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,917) = (/ 0.999896914353045_dbl_kind, 0.997346865200194_dbl_kind, 0.97926964218818_dbl_kind, 0.913756404689562_dbl_kind, 0.581153581955217_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,918) = (/ 0.999896806995592_dbl_kind, 0.997344290464648_dbl_kind, 0.97924889117651_dbl_kind, 0.913677902231544_dbl_kind, 0.581055276570586_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,919) = (/ 0.999896699639786_dbl_kind, 0.997341716081759_dbl_kind, 0.9792281419443_dbl_kind, 0.913599417975415_dbl_kind, 0.580957198920314_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,920) = (/ 0.999896592285628_dbl_kind, 0.997339142051227_dbl_kind, 0.979207394490736_dbl_kind, 0.913520951918746_dbl_kind, 0.580859348444061_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,921) = (/ 0.99989648493312_dbl_kind, 0.997336568372747_dbl_kind, 0.979186648815005_dbl_kind, 0.913442504059094_dbl_kind, 0.580761724582866_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,922) = (/ 0.999896377582261_dbl_kind, 0.997333995046016_dbl_kind, 0.979165904916298_dbl_kind, 0.913364074394002_dbl_kind, 0.580664326779149_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,923) = (/ 0.999896270233052_dbl_kind, 0.997331422070732_dbl_kind, 0.979145162793808_dbl_kind, 0.913285662921009_dbl_kind, 0.580567154476706_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,924) = (/ 0.999896162885494_dbl_kind, 0.997328849446591_dbl_kind, 0.979124422446731_dbl_kind, 0.913207269637637_dbl_kind, 0.580470207120704_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,925) = (/ 0.999896055539588_dbl_kind, 0.997326277173292_dbl_kind, 0.979103683874266_dbl_kind, 0.913128894541398_dbl_kind, 0.580373484157686_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,926) = (/ 0.999895948195333_dbl_kind, 0.99732370525053_dbl_kind, 0.979082947075615_dbl_kind, 0.913050537629798_dbl_kind, 0.580276985035552_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,927) = (/ 0.999895840852731_dbl_kind, 0.997321133678005_dbl_kind, 0.979062212049983_dbl_kind, 0.912972198900325_dbl_kind, 0.580180709203572_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,928) = (/ 0.999895733511783_dbl_kind, 0.997318562455413_dbl_kind, 0.979041478796578_dbl_kind, 0.912893878350464_dbl_kind, 0.580084656112373_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,929) = (/ 0.999895626172489_dbl_kind, 0.99731599158245_dbl_kind, 0.97902074731461_dbl_kind, 0.912815575977685_dbl_kind, 0.579988825213941_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,930) = (/ 0.999895518834849_dbl_kind, 0.997313421058817_dbl_kind, 0.979000017603292_dbl_kind, 0.912737291779449_dbl_kind, 0.579893215961615_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,931) = (/ 0.999895411498865_dbl_kind, 0.997310850884211_dbl_kind, 0.97897928966184_dbl_kind, 0.912659025753204_dbl_kind, 0.579797827810083_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,932) = (/ 0.999895304164537_dbl_kind, 0.997308281058329_dbl_kind, 0.978958563489476_dbl_kind, 0.912580777896396_dbl_kind, 0.579702660215379_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,933) = (/ 0.999895196831865_dbl_kind, 0.997305711580871_dbl_kind, 0.97893783908542_dbl_kind, 0.912502548206451_dbl_kind, 0.579607712634888_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,934) = (/ 0.999895089500851_dbl_kind, 0.997303142451532_dbl_kind, 0.978917116448897_dbl_kind, 0.912424336680793_dbl_kind, 0.57951298452733_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,935) = (/ 0.999894982171496_dbl_kind, 0.997300573670014_dbl_kind, 0.978896395579138_dbl_kind, 0.912346143316833_dbl_kind, 0.579418475352763_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,936) = (/ 0.999894874843799_dbl_kind, 0.997298005236015_dbl_kind, 0.978875676475374_dbl_kind, 0.912267968111973_dbl_kind, 0.579324184572582_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,937) = (/ 0.999894767517762_dbl_kind, 0.997295437149232_dbl_kind, 0.978854959136838_dbl_kind, 0.912189811063606_dbl_kind, 0.579230111649514_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,938) = (/ 0.999894660193386_dbl_kind, 0.997292869409366_dbl_kind, 0.978834243562769_dbl_kind, 0.912111672169115_dbl_kind, 0.579136256047613_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,939) = (/ 0.999894552870671_dbl_kind, 0.997290302016115_dbl_kind, 0.978813529752407_dbl_kind, 0.912033551425875_dbl_kind, 0.579042617232259_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,940) = (/ 0.999894445549618_dbl_kind, 0.997287734969179_dbl_kind, 0.978792817704998_dbl_kind, 0.911955448831251_dbl_kind, 0.578949194670152_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,941) = (/ 0.999894338230228_dbl_kind, 0.997285168268258_dbl_kind, 0.978772107419787_dbl_kind, 0.911877364382599_dbl_kind, 0.578855987829316_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,942) = (/ 0.999894230912503_dbl_kind, 0.997282601913051_dbl_kind, 0.978751398896025_dbl_kind, 0.911799298077269_dbl_kind, 0.578762996179085_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,943) = (/ 0.999894123596441_dbl_kind, 0.99728003590326_dbl_kind, 0.978730692132967_dbl_kind, 0.911721249912597_dbl_kind, 0.578670219190114_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,944) = (/ 0.999894016282045_dbl_kind, 0.997277470238583_dbl_kind, 0.978709987129868_dbl_kind, 0.911643219885915_dbl_kind, 0.57857765633436_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,945) = (/ 0.999893908969316_dbl_kind, 0.997274904918721_dbl_kind, 0.97868928388599_dbl_kind, 0.911565207994545_dbl_kind, 0.578485307085092_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,946) = (/ 0.999893801658254_dbl_kind, 0.997272339943377_dbl_kind, 0.978668582400594_dbl_kind, 0.911487214235802_dbl_kind, 0.578393170916881_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,947) = (/ 0.99989369434886_dbl_kind, 0.997269775312249_dbl_kind, 0.978647882672949_dbl_kind, 0.91140923860699_dbl_kind, 0.578301247305598_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,948) = (/ 0.999893587041135_dbl_kind, 0.99726721102504_dbl_kind, 0.978627184702323_dbl_kind, 0.911331281105408_dbl_kind, 0.578209535728416_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,949) = (/ 0.99989347973508_dbl_kind, 0.997264647081452_dbl_kind, 0.97860648848799_dbl_kind, 0.911253341728345_dbl_kind, 0.578118035663794_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,950) = (/ 0.999893372430696_dbl_kind, 0.997262083481186_dbl_kind, 0.978585794029227_dbl_kind, 0.911175420473083_dbl_kind, 0.578026746591495_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,951) = (/ 0.999893265127984_dbl_kind, 0.997259520223945_dbl_kind, 0.978565101325314_dbl_kind, 0.911097517336899_dbl_kind, 0.577935667992558_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,952) = (/ 0.999893157826944_dbl_kind, 0.997256957309431_dbl_kind, 0.978544410375533_dbl_kind, 0.911019632317056_dbl_kind, 0.577844799349316_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,953) = (/ 0.999893050527578_dbl_kind, 0.997254394737346_dbl_kind, 0.978523721179173_dbl_kind, 0.910941765410815_dbl_kind, 0.577754140145383_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,954) = (/ 0.999892943229886_dbl_kind, 0.997251832507395_dbl_kind, 0.978503033735522_dbl_kind, 0.910863916615429_dbl_kind, 0.577663689865649_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,955) = (/ 0.99989283593387_dbl_kind, 0.99724927061928_dbl_kind, 0.978482348043876_dbl_kind, 0.910786085928143_dbl_kind, 0.577573447996285_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,956) = (/ 0.999892728639531_dbl_kind, 0.997246709072705_dbl_kind, 0.97846166410353_dbl_kind, 0.910708273346193_dbl_kind, 0.577483414024735_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,957) = (/ 0.99989262134687_dbl_kind, 0.997244147867374_dbl_kind, 0.978440981913785_dbl_kind, 0.910630478866811_dbl_kind, 0.577393587439713_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,958) = (/ 0.999892514055887_dbl_kind, 0.997241587002991_dbl_kind, 0.978420301473945_dbl_kind, 0.910552702487221_dbl_kind, 0.577303967731197_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,959) = (/ 0.999892406766583_dbl_kind, 0.997239026479262_dbl_kind, 0.978399622783318_dbl_kind, 0.910474944204642_dbl_kind, 0.577214554390438_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,960) = (/ 0.99989229947896_dbl_kind, 0.997236466295891_dbl_kind, 0.978378945841216_dbl_kind, 0.910397204016283_dbl_kind, 0.577125346909938_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,961) = (/ 0.999892192193019_dbl_kind, 0.997233906452584_dbl_kind, 0.978358270646952_dbl_kind, 0.91031948191935_dbl_kind, 0.577036344783469_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,962) = (/ 0.999892084908761_dbl_kind, 0.997231346949046_dbl_kind, 0.978337597199845_dbl_kind, 0.910241777911039_dbl_kind, 0.576947547506049_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,963) = (/ 0.999891977626187_dbl_kind, 0.997228787784984_dbl_kind, 0.978316925499217_dbl_kind, 0.910164091988544_dbl_kind, 0.576858954573958_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,964) = (/ 0.999891870345297_dbl_kind, 0.997226228960104_dbl_kind, 0.978296255544393_dbl_kind, 0.91008642414905_dbl_kind, 0.576770565484717_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,965) = (/ 0.999891763066094_dbl_kind, 0.997223670474114_dbl_kind, 0.978275587334702_dbl_kind, 0.910008774389736_dbl_kind, 0.576682379737103_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,966) = (/ 0.999891655788578_dbl_kind, 0.997221112326721_dbl_kind, 0.978254920869477_dbl_kind, 0.909931142707779_dbl_kind, 0.576594396831128_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,967) = (/ 0.999891548512749_dbl_kind, 0.997218554517631_dbl_kind, 0.978234256148055_dbl_kind, 0.909853529100344_dbl_kind, 0.576506616268053_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,968) = (/ 0.99989144123861_dbl_kind, 0.997215997046554_dbl_kind, 0.978213593169776_dbl_kind, 0.909775933564595_dbl_kind, 0.576419037550371_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,969) = (/ 0.999891333966161_dbl_kind, 0.997213439913199_dbl_kind, 0.978192931933983_dbl_kind, 0.90969835609769_dbl_kind, 0.576331660181818_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,970) = (/ 0.999891226695405_dbl_kind, 0.997210883117272_dbl_kind, 0.978172272440023_dbl_kind, 0.909620796696779_dbl_kind, 0.576244483667353_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,971) = (/ 0.99989111942634_dbl_kind, 0.997208326658486_dbl_kind, 0.978151614687249_dbl_kind, 0.909543255359011_dbl_kind, 0.576157507513173_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,972) = (/ 0.999891012158969_dbl_kind, 0.997205770536549_dbl_kind, 0.978130958675014_dbl_kind, 0.909465732081526_dbl_kind, 0.576070731226698_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,973) = (/ 0.999890904893294_dbl_kind, 0.99720321475117_dbl_kind, 0.978110304402679_dbl_kind, 0.909388226861461_dbl_kind, 0.57598415431657_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,974) = (/ 0.999890797629315_dbl_kind, 0.997200659302063_dbl_kind, 0.978089651869605_dbl_kind, 0.909310739695947_dbl_kind, 0.575897776292653_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,975) = (/ 0.999890690367033_dbl_kind, 0.997198104188937_dbl_kind, 0.978069001075159_dbl_kind, 0.909233270582113_dbl_kind, 0.575811596666035_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,976) = (/ 0.99989058310645_dbl_kind, 0.997195549411504_dbl_kind, 0.97804835201871_dbl_kind, 0.909155819517078_dbl_kind, 0.575725614949012_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,977) = (/ 0.999890475847567_dbl_kind, 0.997192994969476_dbl_kind, 0.978027704699635_dbl_kind, 0.909078386497962_dbl_kind, 0.575639830655094_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,978) = (/ 0.999890368590385_dbl_kind, 0.997190440862564_dbl_kind, 0.978007059117309_dbl_kind, 0.909000971521879_dbl_kind, 0.575554243299004_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,979) = (/ 0.999890261334905_dbl_kind, 0.997187887090484_dbl_kind, 0.977986415271116_dbl_kind, 0.908923574585936_dbl_kind, 0.575468852396663_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,980) = (/ 0.999890154081128_dbl_kind, 0.997185333652948_dbl_kind, 0.977965773160439_dbl_kind, 0.908846195687238_dbl_kind, 0.575383657465208_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,981) = (/ 0.999890046829057_dbl_kind, 0.99718278054967_dbl_kind, 0.977945132784671_dbl_kind, 0.908768834822889_dbl_kind, 0.575298658022969_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,982) = (/ 0.999889939578692_dbl_kind, 0.997180227780365_dbl_kind, 0.977924494143203_dbl_kind, 0.908691491989983_dbl_kind, 0.575213853589478_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,983) = (/ 0.999889832330033_dbl_kind, 0.997177675344747_dbl_kind, 0.977903857235434_dbl_kind, 0.908614167185614_dbl_kind, 0.575129243685458_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,984) = (/ 0.999889725083083_dbl_kind, 0.997175123242532_dbl_kind, 0.977883222060766_dbl_kind, 0.90853686040687_dbl_kind, 0.575044827832828_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,985) = (/ 0.999889617837844_dbl_kind, 0.997172571473437_dbl_kind, 0.977862588618602_dbl_kind, 0.90845957165084_dbl_kind, 0.574960605554698_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,986) = (/ 0.999889510594316_dbl_kind, 0.997170020037177_dbl_kind, 0.977841956908354_dbl_kind, 0.908382300914604_dbl_kind, 0.574876576375359_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,987) = (/ 0.9998894033525_dbl_kind, 0.99716746893347_dbl_kind, 0.977821326929436_dbl_kind, 0.908305048195244_dbl_kind, 0.574792739820296_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,988) = (/ 0.999889296112399_dbl_kind, 0.997164918162032_dbl_kind, 0.977800698681263_dbl_kind, 0.908227813489833_dbl_kind, 0.574709095416165_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,989) = (/ 0.999889188874012_dbl_kind, 0.997162367722584_dbl_kind, 0.977780072163259_dbl_kind, 0.908150596795445_dbl_kind, 0.574625642690809_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,990) = (/ 0.999889081637342_dbl_kind, 0.997159817614843_dbl_kind, 0.977759447374849_dbl_kind, 0.908073398109151_dbl_kind, 0.574542381173239_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,991) = (/ 0.99988897440239_dbl_kind, 0.997157267838527_dbl_kind, 0.977738824315463_dbl_kind, 0.907996217428016_dbl_kind, 0.574459310393647_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,992) = (/ 0.999888867169158_dbl_kind, 0.997154718393358_dbl_kind, 0.977718202984535_dbl_kind, 0.907919054749106_dbl_kind, 0.574376429883392_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,993) = (/ 0.999888759937646_dbl_kind, 0.997152169279055_dbl_kind, 0.977697583381503_dbl_kind, 0.907841910069485_dbl_kind, 0.574293739174995_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,994) = (/ 0.999888652707856_dbl_kind, 0.99714962049534_dbl_kind, 0.97767696550581_dbl_kind, 0.907764783386206_dbl_kind, 0.574211237802156_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,995) = (/ 0.99988854547979_dbl_kind, 0.997147072041933_dbl_kind, 0.977656349356902_dbl_kind, 0.907687674696332_dbl_kind, 0.574128925299722_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,996) = (/ 0.999888438253449_dbl_kind, 0.997144523918557_dbl_kind, 0.97763573493423_dbl_kind, 0.907610583996916_dbl_kind, 0.574046801203707_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,997) = (/ 0.999888331028835_dbl_kind, 0.997141976124934_dbl_kind, 0.977615122237247_dbl_kind, 0.907533511285009_dbl_kind, 0.573964865051281_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,998) = (/ 0.999888223805948_dbl_kind, 0.997139428660788_dbl_kind, 0.977594511265416_dbl_kind, 0.907456456557663_dbl_kind, 0.573883116380769_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,999) = (/ 0.999888116584791_dbl_kind, 0.997136881525842_dbl_kind, 0.977573902018197_dbl_kind, 0.907379419811926_dbl_kind, 0.573801554731643_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1000) = (/ 0.999888009365364_dbl_kind, 0.997134334719821_dbl_kind, 0.977553294495059_dbl_kind, 0.907302401044846_dbl_kind, 0.573720179644525_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1001) = (/ 0.99988790214767_dbl_kind, 0.997131788242451_dbl_kind, 0.977532688695474_dbl_kind, 0.907225400253467_dbl_kind, 0.57363899066119_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1002) = (/ 0.999887794931709_dbl_kind, 0.997129242093455_dbl_kind, 0.977512084618919_dbl_kind, 0.907148417434835_dbl_kind, 0.573557987324543_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1003) = (/ 0.999887687717484_dbl_kind, 0.997126696272562_dbl_kind, 0.977491482264873_dbl_kind, 0.90707145258599_dbl_kind, 0.573477169178638_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1004) = (/ 0.999887580504995_dbl_kind, 0.997124150779496_dbl_kind, 0.977470881632821_dbl_kind, 0.906994505703973_dbl_kind, 0.573396535768666_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1005) = (/ 0.999887473294245_dbl_kind, 0.997121605613988_dbl_kind, 0.977450282722253_dbl_kind, 0.906917576785827_dbl_kind, 0.573316086640953_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1006) = (/ 0.999887366085234_dbl_kind, 0.997119060775763_dbl_kind, 0.977429685532663_dbl_kind, 0.906840665828587_dbl_kind, 0.573235821342956_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1007) = (/ 0.999887258877965_dbl_kind, 0.997116516264552_dbl_kind, 0.977409090063548_dbl_kind, 0.906763772829291_dbl_kind, 0.57315573942326_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1008) = (/ 0.999887151672439_dbl_kind, 0.997113972080082_dbl_kind, 0.977388496314411_dbl_kind, 0.90668689778498_dbl_kind, 0.573075840431582_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1009) = (/ 0.999887044468657_dbl_kind, 0.997111428222085_dbl_kind, 0.97736790428476_dbl_kind, 0.906610040692687_dbl_kind, 0.572996123918759_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1010) = (/ 0.999886937266622_dbl_kind, 0.997108884690292_dbl_kind, 0.977347313974103_dbl_kind, 0.906533201549447_dbl_kind, 0.572916589436752_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1011) = (/ 0.999886830066334_dbl_kind, 0.997106341484433_dbl_kind, 0.977326725381959_dbl_kind, 0.906456380352298_dbl_kind, 0.572837236538638_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1012) = (/ 0.999886722867796_dbl_kind, 0.99710379860424_dbl_kind, 0.977306138507847_dbl_kind, 0.906379577098275_dbl_kind, 0.572758064778614_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1013) = (/ 0.999886615671009_dbl_kind, 0.997101256049448_dbl_kind, 0.977285553351292_dbl_kind, 0.906302791784411_dbl_kind, 0.572679073711987_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1014) = (/ 0.999886508475974_dbl_kind, 0.997098713819788_dbl_kind, 0.977264969911823_dbl_kind, 0.906226024407739_dbl_kind, 0.572600262895183_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1015) = (/ 0.999886401282693_dbl_kind, 0.997096171914995_dbl_kind, 0.977244388188974_dbl_kind, 0.906149274965298_dbl_kind, 0.572521631885725_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1016) = (/ 0.999886294091168_dbl_kind, 0.997093630334804_dbl_kind, 0.977223808182283_dbl_kind, 0.906072543454119_dbl_kind, 0.572443180242253_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1017) = (/ 0.999886186901401_dbl_kind, 0.997091089078949_dbl_kind, 0.977203229891294_dbl_kind, 0.905995829871239_dbl_kind, 0.572364907524498_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1018) = (/ 0.999886079713392_dbl_kind, 0.997088548147167_dbl_kind, 0.977182653315553_dbl_kind, 0.905919134213691_dbl_kind, 0.572286813293306_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1019) = (/ 0.999885972527145_dbl_kind, 0.997086007539196_dbl_kind, 0.977162078454613_dbl_kind, 0.905842456478513_dbl_kind, 0.572208897110609_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1020) = (/ 0.999885865342661_dbl_kind, 0.997083467254773_dbl_kind, 0.977141505308031_dbl_kind, 0.905765796662741_dbl_kind, 0.572131158539441_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1021) = (/ 0.999885758159941_dbl_kind, 0.997080927293635_dbl_kind, 0.977120933875367_dbl_kind, 0.905689154763412_dbl_kind, 0.572053597143927_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1022) = (/ 0.999885650978986_dbl_kind, 0.997078387655522_dbl_kind, 0.977100364156188_dbl_kind, 0.905612530777563_dbl_kind, 0.571976212489284_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1023) = (/ 0.999885543799799_dbl_kind, 0.997075848340173_dbl_kind, 0.977079796150065_dbl_kind, 0.905535924702233_dbl_kind, 0.571899004141812_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1024) = (/ 0.999885436622383_dbl_kind, 0.997073309347331_dbl_kind, 0.977059229856573_dbl_kind, 0.905459336534463_dbl_kind, 0.571821971668899_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1025) = (/ 0.999885329446737_dbl_kind, 0.997070770676734_dbl_kind, 0.977038665275291_dbl_kind, 0.905382766271292_dbl_kind, 0.571745114639017_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1026) = (/ 0.999885222272865_dbl_kind, 0.997068232328125_dbl_kind, 0.977018102405807_dbl_kind, 0.905306213909765_dbl_kind, 0.571668432621717_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1027) = (/ 0.999885115100766_dbl_kind, 0.997065694301246_dbl_kind, 0.976997541247707_dbl_kind, 0.905229679446922_dbl_kind, 0.571591925187625_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1028) = (/ 0.999885007930446_dbl_kind, 0.997063156595843_dbl_kind, 0.976976981800588_dbl_kind, 0.905153162879811_dbl_kind, 0.571515591908449_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1029) = (/ 0.999884900761904_dbl_kind, 0.997060619211657_dbl_kind, 0.976956424064047_dbl_kind, 0.90507666420548_dbl_kind, 0.571439432356959_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1030) = (/ 0.999884793595142_dbl_kind, 0.997058082148435_dbl_kind, 0.97693586803769_dbl_kind, 0.905000183420974_dbl_kind, 0.571363446107001_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1031) = (/ 0.999884686430161_dbl_kind, 0.997055545405921_dbl_kind, 0.976915313721124_dbl_kind, 0.904923720523345_dbl_kind, 0.571287632733486_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1032) = (/ 0.999884579266966_dbl_kind, 0.997053008983863_dbl_kind, 0.976894761113963_dbl_kind, 0.904847275509646_dbl_kind, 0.571211991812395_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1033) = (/ 0.999884472105556_dbl_kind, 0.997050472882008_dbl_kind, 0.976874210215827_dbl_kind, 0.904770848376932_dbl_kind, 0.571136522920763_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1034) = (/ 0.999884364945935_dbl_kind, 0.997047937100102_dbl_kind, 0.976853661026338_dbl_kind, 0.904694439122259_dbl_kind, 0.571061225636689_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1035) = (/ 0.999884257788102_dbl_kind, 0.997045401637897_dbl_kind, 0.976833113545124_dbl_kind, 0.904618047742686_dbl_kind, 0.570986099539332_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1036) = (/ 0.999884150632061_dbl_kind, 0.99704286649514_dbl_kind, 0.976812567771819_dbl_kind, 0.904541674235275_dbl_kind, 0.570911144208898_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1037) = (/ 0.999884043477814_dbl_kind, 0.997040331671582_dbl_kind, 0.97679202370606_dbl_kind, 0.904465318597088_dbl_kind, 0.570836359226652_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1038) = (/ 0.999883936325363_dbl_kind, 0.997037797166975_dbl_kind, 0.976771481347491_dbl_kind, 0.904388980825196_dbl_kind, 0.570761744174904_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1039) = (/ 0.999883829174708_dbl_kind, 0.99703526298107_dbl_kind, 0.976750940695759_dbl_kind, 0.904312660916665_dbl_kind, 0.570687298637017_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1040) = (/ 0.999883722025854_dbl_kind, 0.99703272911362_dbl_kind, 0.976730401750518_dbl_kind, 0.904236358868569_dbl_kind, 0.570613022197391_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1041) = (/ 0.999883614878801_dbl_kind, 0.997030195564379_dbl_kind, 0.976709864511425_dbl_kind, 0.904160074677982_dbl_kind, 0.570538914441473_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1042) = (/ 0.999883507733552_dbl_kind, 0.9970276623331_dbl_kind, 0.976689328978145_dbl_kind, 0.904083808341986_dbl_kind, 0.570464974955748_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1043) = (/ 0.999883400590107_dbl_kind, 0.99702512941954_dbl_kind, 0.976668795150343_dbl_kind, 0.904007559857658_dbl_kind, 0.570391203327737_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1044) = (/ 0.999883293448471_dbl_kind, 0.997022596823453_dbl_kind, 0.976648263027694_dbl_kind, 0.903931329222088_dbl_kind, 0.570317599146003_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1045) = (/ 0.999883186308643_dbl_kind, 0.997020064544598_dbl_kind, 0.976627732609876_dbl_kind, 0.903855116432362_dbl_kind, 0.57024416200013_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1046) = (/ 0.999883079170628_dbl_kind, 0.997017532582731_dbl_kind, 0.976607203896571_dbl_kind, 0.903778921485572_dbl_kind, 0.570170891480739_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1047) = (/ 0.999882972034426_dbl_kind, 0.997015000937612_dbl_kind, 0.97658667688747_dbl_kind, 0.903702744378817_dbl_kind, 0.570097787179478_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1048) = (/ 0.99988286490004_dbl_kind, 0.997012469608999_dbl_kind, 0.976566151582264_dbl_kind, 0.903626585109195_dbl_kind, 0.570024848689016_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1049) = (/ 0.999882757767472_dbl_kind, 0.997009938596652_dbl_kind, 0.976545627980652_dbl_kind, 0.903550443673809_dbl_kind, 0.569952075603048_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1050) = (/ 0.999882650636723_dbl_kind, 0.997007407900333_dbl_kind, 0.976525106082339_dbl_kind, 0.903474320069768_dbl_kind, 0.569879467516288_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1051) = (/ 0.999882543507797_dbl_kind, 0.997004877519805_dbl_kind, 0.976504585887033_dbl_kind, 0.903398214294184_dbl_kind, 0.569807024024466_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1052) = (/ 0.999882436380695_dbl_kind, 0.997002347454828_dbl_kind, 0.976484067394449_dbl_kind, 0.903322126344173_dbl_kind, 0.56973474472433_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1053) = (/ 0.99988232925542_dbl_kind, 0.996999817705168_dbl_kind, 0.976463550604305_dbl_kind, 0.903246056216856_dbl_kind, 0.56966262921364_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1054) = (/ 0.999882222131973_dbl_kind, 0.996997288270588_dbl_kind, 0.976443035516327_dbl_kind, 0.90317000390936_dbl_kind, 0.569590677091164_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1055) = (/ 0.999882115010357_dbl_kind, 0.996994759150853_dbl_kind, 0.976422522130245_dbl_kind, 0.903093969418811_dbl_kind, 0.569518887956681_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1056) = (/ 0.999882007890574_dbl_kind, 0.996992230345731_dbl_kind, 0.976402010445793_dbl_kind, 0.903017952742348_dbl_kind, 0.569447261410972_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1057) = (/ 0.999881900772626_dbl_kind, 0.996989701854988_dbl_kind, 0.976381500462712_dbl_kind, 0.902941953877108_dbl_kind, 0.569375797055821_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1058) = (/ 0.999881793656515_dbl_kind, 0.996987173678392_dbl_kind, 0.976360992180749_dbl_kind, 0.902865972820235_dbl_kind, 0.569304494494018_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1059) = (/ 0.999881686542245_dbl_kind, 0.996984645815712_dbl_kind, 0.976340485599654_dbl_kind, 0.90279000956888_dbl_kind, 0.569233353329346_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1060) = (/ 0.999881579429817_dbl_kind, 0.996982118266719_dbl_kind, 0.976319980719183_dbl_kind, 0.902714064120197_dbl_kind, 0.569162373166586_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1061) = (/ 0.999881472319233_dbl_kind, 0.996979591031182_dbl_kind, 0.976299477539098_dbl_kind, 0.902638136471348_dbl_kind, 0.569091553611511_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1062) = (/ 0.999881365210495_dbl_kind, 0.996977064108873_dbl_kind, 0.976278976059168_dbl_kind, 0.902562226619497_dbl_kind, 0.569020894270887_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1063) = (/ 0.999881258103606_dbl_kind, 0.996974537499565_dbl_kind, 0.976258476279164_dbl_kind, 0.902486334561813_dbl_kind, 0.568950394752468_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1064) = (/ 0.999881150998569_dbl_kind, 0.996972011203031_dbl_kind, 0.976237978198866_dbl_kind, 0.902410460295476_dbl_kind, 0.568880054664995_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1065) = (/ 0.999881043895386_dbl_kind, 0.996969485219045_dbl_kind, 0.976217481818055_dbl_kind, 0.902334603817668_dbl_kind, 0.568809873618189_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1066) = (/ 0.999880936794058_dbl_kind, 0.996966959547383_dbl_kind, 0.976196987136521_dbl_kind, 0.902258765125576_dbl_kind, 0.568739851222757_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1067) = (/ 0.99988082969459_dbl_kind, 0.996964434187821_dbl_kind, 0.976176494154059_dbl_kind, 0.902182944216396_dbl_kind, 0.568669987090386_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1068) = (/ 0.999880722596981_dbl_kind, 0.996961909140137_dbl_kind, 0.976156002870469_dbl_kind, 0.902107141087328_dbl_kind, 0.568600280833738_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1069) = (/ 0.999880615501237_dbl_kind, 0.996959384404107_dbl_kind, 0.976135513285556_dbl_kind, 0.902031355735577_dbl_kind, 0.568530732066445_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1070) = (/ 0.999880508407358_dbl_kind, 0.996956859979511_dbl_kind, 0.976115025399132_dbl_kind, 0.901955588158358_dbl_kind, 0.568461340403122_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1071) = (/ 0.999880401315347_dbl_kind, 0.996954335866128_dbl_kind, 0.976094539211013_dbl_kind, 0.90187983835289_dbl_kind, 0.568392105459344_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1072) = (/ 0.999880294225207_dbl_kind, 0.996951812063742_dbl_kind, 0.976074054721021_dbl_kind, 0.901804106316399_dbl_kind, 0.568323026851658_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1073) = (/ 0.999880187136941_dbl_kind, 0.996949288572131_dbl_kind, 0.976053571928984_dbl_kind, 0.901728392046119_dbl_kind, 0.568254104197576_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1074) = (/ 0.99988008005055_dbl_kind, 0.99694676539108_dbl_kind, 0.976033090834736_dbl_kind, 0.901652695539288_dbl_kind, 0.56818533711557_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1075) = (/ 0.999879972966037_dbl_kind, 0.996944242520372_dbl_kind, 0.976012611438116_dbl_kind, 0.901577016793152_dbl_kind, 0.56811672522508_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1076) = (/ 0.999879865883405_dbl_kind, 0.996941719959792_dbl_kind, 0.975992133738969_dbl_kind, 0.901501355804967_dbl_kind, 0.568048268146496_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1077) = (/ 0.999879758802657_dbl_kind, 0.996939197709125_dbl_kind, 0.975971657737145_dbl_kind, 0.901425712571991_dbl_kind, 0.567979965501166_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1078) = (/ 0.999879651723794_dbl_kind, 0.996936675768158_dbl_kind, 0.9759511834325_dbl_kind, 0.901350087091493_dbl_kind, 0.567911816911396_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1079) = (/ 0.99987954464682_dbl_kind, 0.99693415413668_dbl_kind, 0.975930710824896_dbl_kind, 0.901274479360748_dbl_kind, 0.567843822000439_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1080) = (/ 0.999879437571738_dbl_kind, 0.996931632814477_dbl_kind, 0.9759102399142_dbl_kind, 0.901198889377039_dbl_kind, 0.567775980392501_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1081) = (/ 0.99987933049855_dbl_kind, 0.996929111801341_dbl_kind, 0.975889770700288_dbl_kind, 0.901123317137656_dbl_kind, 0.567708291712729_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1082) = (/ 0.999879223427258_dbl_kind, 0.99692659109706_dbl_kind, 0.975869303183035_dbl_kind, 0.901047762639898_dbl_kind, 0.56764075558722_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1083) = (/ 0.999879116357865_dbl_kind, 0.996924070701427_dbl_kind, 0.97584883736233_dbl_kind, 0.900972225881069_dbl_kind, 0.567573371643011_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1084) = (/ 0.999879009290374_dbl_kind, 0.996921550614235_dbl_kind, 0.975828373238062_dbl_kind, 0.900896706858483_dbl_kind, 0.56750613950808_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1085) = (/ 0.999878902224788_dbl_kind, 0.996919030835277_dbl_kind, 0.975807910810127_dbl_kind, 0.900821205569462_dbl_kind, 0.56743905881134_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1086) = (/ 0.99987879516111_dbl_kind, 0.996916511364347_dbl_kind, 0.975787450078428_dbl_kind, 0.900745722011337_dbl_kind, 0.567372129182643_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1087) = (/ 0.999878688099342_dbl_kind, 0.996913992201242_dbl_kind, 0.975766991042875_dbl_kind, 0.900670256181444_dbl_kind, 0.567305350252772_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1088) = (/ 0.999878581039487_dbl_kind, 0.996911473345757_dbl_kind, 0.975746533703379_dbl_kind, 0.900594808077132_dbl_kind, 0.567238721653442_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1089) = (/ 0.999878473981548_dbl_kind, 0.996908954797691_dbl_kind, 0.975726078059863_dbl_kind, 0.900519377695753_dbl_kind, 0.567172243017298_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1090) = (/ 0.999878366925527_dbl_kind, 0.996906436556841_dbl_kind, 0.975705624112253_dbl_kind, 0.900443965034673_dbl_kind, 0.567105913977907_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1091) = (/ 0.999878259871429_dbl_kind, 0.996903918623008_dbl_kind, 0.975685171860479_dbl_kind, 0.900368570091263_dbl_kind, 0.567039734169764_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1092) = (/ 0.999878152819254_dbl_kind, 0.996901400995991_dbl_kind, 0.975664721304481_dbl_kind, 0.900293192862904_dbl_kind, 0.566973703228288_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1093) = (/ 0.999878045769007_dbl_kind, 0.996898883675594_dbl_kind, 0.975644272444202_dbl_kind, 0.900217833346987_dbl_kind, 0.56690782078981_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1094) = (/ 0.99987793872069_dbl_kind, 0.996896366661618_dbl_kind, 0.975623825279593_dbl_kind, 0.900142491540911_dbl_kind, 0.566842086491586_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1095) = (/ 0.999877831674307_dbl_kind, 0.996893849953867_dbl_kind, 0.975603379810609_dbl_kind, 0.900067167442082_dbl_kind, 0.566776499971785_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1096) = (/ 0.999877724629859_dbl_kind, 0.996891333552146_dbl_kind, 0.975582936037213_dbl_kind, 0.899991861047921_dbl_kind, 0.566711060869488_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1097) = (/ 0.999877617587351_dbl_kind, 0.996888817456261_dbl_kind, 0.975562493959373_dbl_kind, 0.899916572355851_dbl_kind, 0.566645768824689_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1098) = (/ 0.999877510546785_dbl_kind, 0.996886301666018_dbl_kind, 0.975542053577064_dbl_kind, 0.89984130136331_dbl_kind, 0.566580623478289_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1099) = (/ 0.999877403508164_dbl_kind, 0.996883786181227_dbl_kind, 0.975521614890266_dbl_kind, 0.899766048067745_dbl_kind, 0.566515624472092_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1100) = (/ 0.999877296471491_dbl_kind, 0.996881271001695_dbl_kind, 0.975501177898966_dbl_kind, 0.899690812466609_dbl_kind, 0.566450771448817_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1101) = (/ 0.99987718943677_dbl_kind, 0.996878756127232_dbl_kind, 0.975480742603156_dbl_kind, 0.89961559455737_dbl_kind, 0.566386064052075_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1102) = (/ 0.999877082404002_dbl_kind, 0.996876241557651_dbl_kind, 0.975460309002836_dbl_kind, 0.899540394337502_dbl_kind, 0.566321501926381_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1103) = (/ 0.999876975373193_dbl_kind, 0.996873727292762_dbl_kind, 0.97543987709801_dbl_kind, 0.899465211804491_dbl_kind, 0.566257084717145_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1104) = (/ 0.999876868344344_dbl_kind, 0.99687121333238_dbl_kind, 0.975419446888691_dbl_kind, 0.899390046955833_dbl_kind, 0.566192812070676_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1105) = (/ 0.999876761317459_dbl_kind, 0.996868699676319_dbl_kind, 0.975399018374896_dbl_kind, 0.899314899789031_dbl_kind, 0.566128683634177_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1106) = (/ 0.999876654292541_dbl_kind, 0.996866186324394_dbl_kind, 0.975378591556649_dbl_kind, 0.899239770301604_dbl_kind, 0.566064699055739_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1107) = (/ 0.999876547269593_dbl_kind, 0.996863673276421_dbl_kind, 0.97535816643398_dbl_kind, 0.899164658491078_dbl_kind, 0.566000857984339_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1108) = (/ 0.999876440248619_dbl_kind, 0.996861160532217_dbl_kind, 0.975337743006926_dbl_kind, 0.89908956435499_dbl_kind, 0.565937160069853_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1109) = (/ 0.999876333229621_dbl_kind, 0.996858648091604_dbl_kind, 0.97531732127553_dbl_kind, 0.899014487890887_dbl_kind, 0.565873604963027_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1110) = (/ 0.999876226212603_dbl_kind, 0.996856135954399_dbl_kind, 0.97529690123984_dbl_kind, 0.89893942909633_dbl_kind, 0.5658101923155_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1111) = (/ 0.999876119197568_dbl_kind, 0.996853624120424_dbl_kind, 0.975276482899913_dbl_kind, 0.898864387968886_dbl_kind, 0.565746921779786_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1112) = (/ 0.99987601218452_dbl_kind, 0.9968511125895_dbl_kind, 0.975256066255811_dbl_kind, 0.898789364506138_dbl_kind, 0.565683793009284_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1113) = (/ 0.999875905173463_dbl_kind, 0.996848601361451_dbl_kind, 0.975235651307603_dbl_kind, 0.898714358705676_dbl_kind, 0.565620805658259_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1114) = (/ 0.999875798164398_dbl_kind, 0.996846090436101_dbl_kind, 0.975215238055361_dbl_kind, 0.898639370565105_dbl_kind, 0.565557959381857_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1115) = (/ 0.99987569115733_dbl_kind, 0.996843579813274_dbl_kind, 0.97519482649917_dbl_kind, 0.898564400082038_dbl_kind, 0.565495253836093_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1116) = (/ 0.999875584152262_dbl_kind, 0.996841069492799_dbl_kind, 0.975174416639116_dbl_kind, 0.898489447254102_dbl_kind, 0.565432688677857_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1117) = (/ 0.999875477149198_dbl_kind, 0.996838559474502_dbl_kind, 0.975154008475294_dbl_kind, 0.898414512078933_dbl_kind, 0.565370263564901_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1118) = (/ 0.999875370148141_dbl_kind, 0.996836049758213_dbl_kind, 0.975133602007805_dbl_kind, 0.898339594554182_dbl_kind, 0.565307978155844_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1119) = (/ 0.999875263149094_dbl_kind, 0.996833540343759_dbl_kind, 0.975113197236755_dbl_kind, 0.89826469467751_dbl_kind, 0.565245832110168_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1120) = (/ 0.999875156152062_dbl_kind, 0.996831031230974_dbl_kind, 0.97509279416226_dbl_kind, 0.898189812446588_dbl_kind, 0.56518382508822_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1121) = (/ 0.999875049157047_dbl_kind, 0.996828522419689_dbl_kind, 0.975072392784439_dbl_kind, 0.898114947859103_dbl_kind, 0.565121956751201_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1122) = (/ 0.999874942164053_dbl_kind, 0.996826013909736_dbl_kind, 0.97505199310342_dbl_kind, 0.898040100912752_dbl_kind, 0.565060226761172_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1123) = (/ 0.999874835173085_dbl_kind, 0.996823505700952_dbl_kind, 0.975031595119337_dbl_kind, 0.897965271605243_dbl_kind, 0.564998634781049_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1124) = (/ 0.999874728184145_dbl_kind, 0.99682099779317_dbl_kind, 0.975011198832331_dbl_kind, 0.897890459934298_dbl_kind, 0.564937180474601_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1125) = (/ 0.999874621197236_dbl_kind, 0.996818490186229_dbl_kind, 0.974990804242548_dbl_kind, 0.897815665897653_dbl_kind, 0.564875863506446_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1126) = (/ 0.999874514212364_dbl_kind, 0.996815982879965_dbl_kind, 0.974970411350142_dbl_kind, 0.897740889493053_dbl_kind, 0.564814683542052_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1127) = (/ 0.999874407229532_dbl_kind, 0.996813475874216_dbl_kind, 0.974950020155275_dbl_kind, 0.897666130718258_dbl_kind, 0.564753640247738_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1128) = (/ 0.999874300248742_dbl_kind, 0.996810969168826_dbl_kind, 0.974929630658112_dbl_kind, 0.897591389571041_dbl_kind, 0.564692733290662_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1129) = (/ 0.99987419327_dbl_kind, 0.996808462763634_dbl_kind, 0.97490924285883_dbl_kind, 0.897516666049186_dbl_kind, 0.564631962338822_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1130) = (/ 0.999874086293308_dbl_kind, 0.996805956658482_dbl_kind, 0.974888856757608_dbl_kind, 0.897441960150491_dbl_kind, 0.564571327061066_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1131) = (/ 0.999873979318672_dbl_kind, 0.996803450853215_dbl_kind, 0.974868472354635_dbl_kind, 0.897367271872769_dbl_kind, 0.564510827127072_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1132) = (/ 0.999873872346093_dbl_kind, 0.996800945347677_dbl_kind, 0.974848089650105_dbl_kind, 0.897292601213842_dbl_kind, 0.56445046220736_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1133) = (/ 0.999873765375577_dbl_kind, 0.996798440141714_dbl_kind, 0.974827708644219_dbl_kind, 0.897217948171551_dbl_kind, 0.564390231973278_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1134) = (/ 0.999873658407126_dbl_kind, 0.996795935235174_dbl_kind, 0.974807329337186_dbl_kind, 0.897143312743745_dbl_kind, 0.564330136097018_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1135) = (/ 0.999873551440747_dbl_kind, 0.996793430627904_dbl_kind, 0.974786951729222_dbl_kind, 0.897068694928289_dbl_kind, 0.564270174251588_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1136) = (/ 0.999873444476441_dbl_kind, 0.996790926319756_dbl_kind, 0.974766575820548_dbl_kind, 0.896994094723062_dbl_kind, 0.564210346110835_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1137) = (/ 0.999873337514214_dbl_kind, 0.996788422310579_dbl_kind, 0.974746201611392_dbl_kind, 0.896919512125957_dbl_kind, 0.564150651349425_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1138) = (/ 0.999873230554069_dbl_kind, 0.996785918600225_dbl_kind, 0.974725829101993_dbl_kind, 0.896844947134879_dbl_kind, 0.564091089642853_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1139) = (/ 0.99987312359601_dbl_kind, 0.996783415188548_dbl_kind, 0.974705458292592_dbl_kind, 0.896770399747748_dbl_kind, 0.564031660667434_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1140) = (/ 0.999873016640041_dbl_kind, 0.996780912075402_dbl_kind, 0.97468508918344_dbl_kind, 0.896695869962501_dbl_kind, 0.563972364100306_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1141) = (/ 0.999872909686166_dbl_kind, 0.996778409260643_dbl_kind, 0.974664721774794_dbl_kind, 0.896621357777083_dbl_kind, 0.563913199619421_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1142) = (/ 0.99987280273439_dbl_kind, 0.996775906744127_dbl_kind, 0.974644356066918_dbl_kind, 0.896546863189459_dbl_kind, 0.563854166903549_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1143) = (/ 0.999872695784717_dbl_kind, 0.996773404525712_dbl_kind, 0.974623992060084_dbl_kind, 0.896472386197604_dbl_kind, 0.563795265632274_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1144) = (/ 0.999872588837151_dbl_kind, 0.996770902605259_dbl_kind, 0.974603629754571_dbl_kind, 0.896397926799513_dbl_kind, 0.563736495485996_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1145) = (/ 0.999872481891696_dbl_kind, 0.996768400982628_dbl_kind, 0.974583269150662_dbl_kind, 0.89632348499319_dbl_kind, 0.563677856145917_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1146) = (/ 0.999872374948356_dbl_kind, 0.99676589965768_dbl_kind, 0.974562910248652_dbl_kind, 0.896249060776656_dbl_kind, 0.563619347294051_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1147) = (/ 0.999872268007136_dbl_kind, 0.996763398630277_dbl_kind, 0.974542553048841_dbl_kind, 0.896174654147949_dbl_kind, 0.563560968613225_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1148) = (/ 0.999872161068039_dbl_kind, 0.996760897900285_dbl_kind, 0.974522197551534_dbl_kind, 0.896100265105119_dbl_kind, 0.563502719787058_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1149) = (/ 0.999872054131071_dbl_kind, 0.996758397467569_dbl_kind, 0.974501843757048_dbl_kind, 0.896025893646231_dbl_kind, 0.563444600499981_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1150) = (/ 0.999871947196236_dbl_kind, 0.996755897331996_dbl_kind, 0.974481491665703_dbl_kind, 0.895951539769367_dbl_kind, 0.563386610437219_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1151) = (/ 0.999871840263537_dbl_kind, 0.996753397493433_dbl_kind, 0.974461141277829_dbl_kind, 0.895877203472624_dbl_kind, 0.5633287492848_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1152) = (/ 0.99987173333298_dbl_kind, 0.996750897951749_dbl_kind, 0.974440792593761_dbl_kind, 0.895802884754113_dbl_kind, 0.563271016729545_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1153) = (/ 0.99987162640457_dbl_kind, 0.996748398706816_dbl_kind, 0.974420445613843_dbl_kind, 0.895728583611962_dbl_kind, 0.56321341245907_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1154) = (/ 0.999871519478309_dbl_kind, 0.996745899758504_dbl_kind, 0.974400100338426_dbl_kind, 0.895654300044315_dbl_kind, 0.563155936161783_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1155) = (/ 0.999871412554204_dbl_kind, 0.996743401106688_dbl_kind, 0.974379756767869_dbl_kind, 0.895580034049329_dbl_kind, 0.563098587526885_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1156) = (/ 0.999871305632258_dbl_kind, 0.996740902751241_dbl_kind, 0.974359414902536_dbl_kind, 0.895505785625178_dbl_kind, 0.563041366244365_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1157) = (/ 0.999871198712477_dbl_kind, 0.996738404692038_dbl_kind, 0.9743390747428_dbl_kind, 0.895431554770055_dbl_kind, 0.562984272004995_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1158) = (/ 0.999871091794864_dbl_kind, 0.996735906928956_dbl_kind, 0.974318736289044_dbl_kind, 0.895357341482164_dbl_kind, 0.562927304500333_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1159) = (/ 0.999870984879424_dbl_kind, 0.996733409461874_dbl_kind, 0.974298399541654_dbl_kind, 0.895283145759729_dbl_kind, 0.562870463422723_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1160) = (/ 0.999870877966163_dbl_kind, 0.996730912290671_dbl_kind, 0.974278064501025_dbl_kind, 0.895208967600989_dbl_kind, 0.562813748465286_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1161) = (/ 0.999870771055085_dbl_kind, 0.996728415415226_dbl_kind, 0.974257731167562_dbl_kind, 0.895134807004199_dbl_kind, 0.562757159321924_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1162) = (/ 0.999870664146194_dbl_kind, 0.996725918835422_dbl_kind, 0.974237399541673_dbl_kind, 0.895060663967632_dbl_kind, 0.562700695687314_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1163) = (/ 0.999870557239496_dbl_kind, 0.996723422551144_dbl_kind, 0.974217069623778_dbl_kind, 0.894986538489573_dbl_kind, 0.562644357256907_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1164) = (/ 0.999870450334995_dbl_kind, 0.996720926562274_dbl_kind, 0.974196741414302_dbl_kind, 0.89491243056833_dbl_kind, 0.562588143726933_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1165) = (/ 0.999870343432697_dbl_kind, 0.9967184308687_dbl_kind, 0.974176414913678_dbl_kind, 0.894838340202223_dbl_kind, 0.562532054794387_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1166) = (/ 0.999870236532605_dbl_kind, 0.996715935470306_dbl_kind, 0.974156090122348_dbl_kind, 0.894764267389592_dbl_kind, 0.562476090157036_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1167) = (/ 0.999870129634725_dbl_kind, 0.996713440366982_dbl_kind, 0.974135767040759_dbl_kind, 0.894690212128791_dbl_kind, 0.562420249513411_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1168) = (/ 0.999870022739062_dbl_kind, 0.996710945558618_dbl_kind, 0.974115445669368_dbl_kind, 0.894616174418195_dbl_kind, 0.562364532562815_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1169) = (/ 0.999869915845622_dbl_kind, 0.996708451045106_dbl_kind, 0.97409512600864_dbl_kind, 0.894542154256192_dbl_kind, 0.562308939005307_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1170) = (/ 0.999869808954407_dbl_kind, 0.996705956826336_dbl_kind, 0.974074808059044_dbl_kind, 0.89446815164119_dbl_kind, 0.562253468541714_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1171) = (/ 0.999869702065426_dbl_kind, 0.996703462902202_dbl_kind, 0.974054491821063_dbl_kind, 0.894394166571613_dbl_kind, 0.562198120873619_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1172) = (/ 0.999869595178681_dbl_kind, 0.9967009692726_dbl_kind, 0.974034177295181_dbl_kind, 0.894320199045904_dbl_kind, 0.562142895703362_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1173) = (/ 0.999869488294179_dbl_kind, 0.996698475937426_dbl_kind, 0.974013864481896_dbl_kind, 0.894246249062523_dbl_kind, 0.562087792734044_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1174) = (/ 0.999869381411924_dbl_kind, 0.996695982896578_dbl_kind, 0.973993553381708_dbl_kind, 0.894172316619946_dbl_kind, 0.562032811669514_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1175) = (/ 0.999869274531922_dbl_kind, 0.996693490149953_dbl_kind, 0.97397324399513_dbl_kind, 0.89409840171667_dbl_kind, 0.561977952214379_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1176) = (/ 0.999869167654179_dbl_kind, 0.996690997697453_dbl_kind, 0.973952936322679_dbl_kind, 0.894024504351208_dbl_kind, 0.561923214073993_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1177) = (/ 0.999869060778697_dbl_kind, 0.99668850553898_dbl_kind, 0.973932630364883_dbl_kind, 0.893950624522092_dbl_kind, 0.561868596954457_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1178) = (/ 0.999868953905485_dbl_kind, 0.996686013674435_dbl_kind, 0.973912326122275_dbl_kind, 0.89387676222787_dbl_kind, 0.561814100562624_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1179) = (/ 0.999868847034546_dbl_kind, 0.996683522103724_dbl_kind, 0.973892023595398_dbl_kind, 0.893802917467109_dbl_kind, 0.561759724606084_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1180) = (/ 0.999868740165887_dbl_kind, 0.996681030826752_dbl_kind, 0.973871722784803_dbl_kind, 0.893729090238398_dbl_kind, 0.561705468793179_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1181) = (/ 0.999868633299513_dbl_kind, 0.996678539843425_dbl_kind, 0.973851423691048_dbl_kind, 0.89365528054034_dbl_kind, 0.561651332832987_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1182) = (/ 0.999868526435429_dbl_kind, 0.996676049153653_dbl_kind, 0.973831126314699_dbl_kind, 0.893581488371558_dbl_kind, 0.561597316435323_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1183) = (/ 0.99986841957364_dbl_kind, 0.996673558757345_dbl_kind, 0.973810830656331_dbl_kind, 0.893507713730695_dbl_kind, 0.561543419310746_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1184) = (/ 0.999868312714153_dbl_kind, 0.996671068654412_dbl_kind, 0.973790536716526_dbl_kind, 0.89343395661641_dbl_kind, 0.561489641170543_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1185) = (/ 0.999868205856973_dbl_kind, 0.996668578844766_dbl_kind, 0.973770244495876_dbl_kind, 0.893360217027384_dbl_kind, 0.561435981726742_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1186) = (/ 0.999868099002105_dbl_kind, 0.996666089328322_dbl_kind, 0.973749953994979_dbl_kind, 0.893286494962315_dbl_kind, 0.5613824406921_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1187) = (/ 0.999867992149555_dbl_kind, 0.996663600104993_dbl_kind, 0.973729665214441_dbl_kind, 0.89321279041992_dbl_kind, 0.561329017780101_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1188) = (/ 0.99986788529933_dbl_kind, 0.996661111174697_dbl_kind, 0.973709378154879_dbl_kind, 0.893139103398937_dbl_kind, 0.561275712704964_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1189) = (/ 0.999867778451434_dbl_kind, 0.996658622537353_dbl_kind, 0.973689092816915_dbl_kind, 0.893065433898121_dbl_kind, 0.561222525181627_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1190) = (/ 0.999867671605873_dbl_kind, 0.996656134192878_dbl_kind, 0.973668809201181_dbl_kind, 0.892991781916247_dbl_kind, 0.561169454925758_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1191) = (/ 0.999867564762653_dbl_kind, 0.996653646141193_dbl_kind, 0.973648527308318_dbl_kind, 0.892918147452112_dbl_kind, 0.561116501653746_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1192) = (/ 0.99986745792178_dbl_kind, 0.996651158382222_dbl_kind, 0.973628247138971_dbl_kind, 0.892844530504529_dbl_kind, 0.561063665082702_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1193) = (/ 0.999867351083261_dbl_kind, 0.996648670915886_dbl_kind, 0.9736079686938_dbl_kind, 0.892770931072333_dbl_kind, 0.561010944930455_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1194) = (/ 0.9998672442471_dbl_kind, 0.996646183742111_dbl_kind, 0.973587691973469_dbl_kind, 0.892697349154378_dbl_kind, 0.560958340915551_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1195) = (/ 0.999867137413304_dbl_kind, 0.996643696860825_dbl_kind, 0.973567416978649_dbl_kind, 0.892623784749537_dbl_kind, 0.560905852757254_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1196) = (/ 0.999867030581879_dbl_kind, 0.996641210271952_dbl_kind, 0.973547143710023_dbl_kind, 0.892550237856707_dbl_kind, 0.560853480175542_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1197) = (/ 0.99986692375283_dbl_kind, 0.996638723975423_dbl_kind, 0.973526872168281_dbl_kind, 0.892476708474798_dbl_kind, 0.560801222891101_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1198) = (/ 0.999866816926165_dbl_kind, 0.996636237971169_dbl_kind, 0.973506602354122_dbl_kind, 0.892403196602748_dbl_kind, 0.560749080625332_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1199) = (/ 0.999866710101889_dbl_kind, 0.996633752259121_dbl_kind, 0.973486334268252_dbl_kind, 0.89232970223951_dbl_kind, 0.560697053100342_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1200) = (/ 0.999866603280008_dbl_kind, 0.996631266839212_dbl_kind, 0.973466067911386_dbl_kind, 0.892256225384059_dbl_kind, 0.560645140038947_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1201) = (/ 0.999866496460528_dbl_kind, 0.996628781711377_dbl_kind, 0.973445803284249_dbl_kind, 0.892182766035392_dbl_kind, 0.560593341164665_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1202) = (/ 0.999866389643457_dbl_kind, 0.996626296875553_dbl_kind, 0.973425540387572_dbl_kind, 0.892109324192524_dbl_kind, 0.56054165620172_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1203) = (/ 0.999866282828799_dbl_kind, 0.996623812331675_dbl_kind, 0.973405279222099_dbl_kind, 0.892035899854492_dbl_kind, 0.560490084875035_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1204) = (/ 0.999866176016562_dbl_kind, 0.996621328079686_dbl_kind, 0.973385019788575_dbl_kind, 0.891962493020356_dbl_kind, 0.560438626910236_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1205) = (/ 0.999866069206752_dbl_kind, 0.996618844119523_dbl_kind, 0.973364762087761_dbl_kind, 0.891889103689192_dbl_kind, 0.560387282033647_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1206) = (/ 0.999865962399375_dbl_kind, 0.996616360451128_dbl_kind, 0.973344506120423_dbl_kind, 0.891815731860102_dbl_kind, 0.56033604997228_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1207) = (/ 0.999865855594438_dbl_kind, 0.996613877074447_dbl_kind, 0.973324251887338_dbl_kind, 0.891742377532206_dbl_kind, 0.560284930453854_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1208) = (/ 0.999865748791947_dbl_kind, 0.996611393989422_dbl_kind, 0.973303999389288_dbl_kind, 0.891669040704646_dbl_kind, 0.560233923206773_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1209) = (/ 0.999865641991909_dbl_kind, 0.996608911196_dbl_kind, 0.973283748627068_dbl_kind, 0.891595721376587_dbl_kind, 0.560183027960134_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1210) = (/ 0.99986553519433_dbl_kind, 0.996606428694128_dbl_kind, 0.973263499601478_dbl_kind, 0.891522419547212_dbl_kind, 0.560132244443722_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1211) = (/ 0.999865428399217_dbl_kind, 0.996603946483756_dbl_kind, 0.973243252313329_dbl_kind, 0.891449135215729_dbl_kind, 0.560081572388015_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1212) = (/ 0.999865321606576_dbl_kind, 0.996601464564835_dbl_kind, 0.97322300676344_dbl_kind, 0.891375868381366_dbl_kind, 0.560031011524167_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1213) = (/ 0.999865214816416_dbl_kind, 0.996598982937315_dbl_kind, 0.973202762952639_dbl_kind, 0.891302619043373_dbl_kind, 0.559980561584026_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1214) = (/ 0.999865108028741_dbl_kind, 0.996596501601151_dbl_kind, 0.973182520881764_dbl_kind, 0.891229387201022_dbl_kind, 0.559930222300117_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1215) = (/ 0.99986500124356_dbl_kind, 0.996594020556298_dbl_kind, 0.97316228055166_dbl_kind, 0.891156172853606_dbl_kind, 0.559879993405646_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1216) = (/ 0.999864894460878_dbl_kind, 0.996591539802711_dbl_kind, 0.973142041963182_dbl_kind, 0.891082976000442_dbl_kind, 0.559829874634503_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1217) = (/ 0.999864787680703_dbl_kind, 0.996589059340349_dbl_kind, 0.973121805117192_dbl_kind, 0.891009796640866_dbl_kind, 0.559779865721248_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1218) = (/ 0.999864680903042_dbl_kind, 0.996586579169171_dbl_kind, 0.973101570014566_dbl_kind, 0.89093663477424_dbl_kind, 0.55972996640112_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1219) = (/ 0.999864574127902_dbl_kind, 0.996584099289137_dbl_kind, 0.973081336656182_dbl_kind, 0.890863490399946_dbl_kind, 0.559680176410033_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1220) = (/ 0.999864467355289_dbl_kind, 0.99658161970021_dbl_kind, 0.973061105042933_dbl_kind, 0.890790363517388_dbl_kind, 0.559630495484572_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1221) = (/ 0.999864360585211_dbl_kind, 0.996579140402353_dbl_kind, 0.973040875175717_dbl_kind, 0.890717254125994_dbl_kind, 0.559580923361992_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1222) = (/ 0.999864253817675_dbl_kind, 0.996576661395532_dbl_kind, 0.973020647055444_dbl_kind, 0.890644162225216_dbl_kind, 0.55953145978022_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1223) = (/ 0.999864147052688_dbl_kind, 0.996574182679714_dbl_kind, 0.973000420683031_dbl_kind, 0.890571087814525_dbl_kind, 0.559482104477845_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1224) = (/ 0.999864040290258_dbl_kind, 0.996571704254867_dbl_kind, 0.972980196059406_dbl_kind, 0.890498030893416_dbl_kind, 0.559432857194126_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1225) = (/ 0.999863933530391_dbl_kind, 0.996569226120959_dbl_kind, 0.972959973185503_dbl_kind, 0.89042499146141_dbl_kind, 0.559383717668985_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1226) = (/ 0.999863826773096_dbl_kind, 0.996566748277964_dbl_kind, 0.972939752062269_dbl_kind, 0.890351969518047_dbl_kind, 0.559334685643003_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1227) = (/ 0.999863720018378_dbl_kind, 0.996564270725852_dbl_kind, 0.972919532690658_dbl_kind, 0.890278965062892_dbl_kind, 0.559285760857425_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1228) = (/ 0.999863613266246_dbl_kind, 0.996561793464599_dbl_kind, 0.972899315071633_dbl_kind, 0.890205978095533_dbl_kind, 0.559236943054155_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1229) = (/ 0.999863506516708_dbl_kind, 0.996559316494181_dbl_kind, 0.972879099206167_dbl_kind, 0.890133008615582_dbl_kind, 0.559188231975748_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1230) = (/ 0.99986339976977_dbl_kind, 0.996556839814573_dbl_kind, 0.972858885095243_dbl_kind, 0.890060056622673_dbl_kind, 0.559139627365424_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1231) = (/ 0.99986329302544_dbl_kind, 0.996554363425755_dbl_kind, 0.972838672739852_dbl_kind, 0.889987122116464_dbl_kind, 0.55909112896705_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1232) = (/ 0.999863186283726_dbl_kind, 0.996551887327708_dbl_kind, 0.972818462140994_dbl_kind, 0.88991420509664_dbl_kind, 0.559042736525149_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1233) = (/ 0.999863079544636_dbl_kind, 0.996549411520412_dbl_kind, 0.97279825329968_dbl_kind, 0.889841305562902_dbl_kind, 0.558994449784892_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1234) = (/ 0.999862972808177_dbl_kind, 0.996546936003852_dbl_kind, 0.97277804621693_dbl_kind, 0.889768423514982_dbl_kind, 0.558946268492099_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1235) = (/ 0.999862866074357_dbl_kind, 0.996544460778013_dbl_kind, 0.972757840893772_dbl_kind, 0.889695558952634_dbl_kind, 0.55889819239324_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1236) = (/ 0.999862759343183_dbl_kind, 0.996541985842879_dbl_kind, 0.972737637331244_dbl_kind, 0.889622711875633_dbl_kind, 0.558850221235427_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1237) = (/ 0.999862652614664_dbl_kind, 0.996539511198441_dbl_kind, 0.972717435530394_dbl_kind, 0.889549882283782_dbl_kind, 0.558802354766419_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1238) = (/ 0.999862545888807_dbl_kind, 0.996537036844685_dbl_kind, 0.97269723549228_dbl_kind, 0.889477070176908_dbl_kind, 0.558754592734616_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1239) = (/ 0.999862439165621_dbl_kind, 0.996534562781605_dbl_kind, 0.97267703721797_dbl_kind, 0.889404275554858_dbl_kind, 0.55870693488906_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1240) = (/ 0.999862332445113_dbl_kind, 0.996532089009191_dbl_kind, 0.972656840708537_dbl_kind, 0.889331498417508_dbl_kind, 0.558659380979428_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1241) = (/ 0.999862225727291_dbl_kind, 0.99652961552744_dbl_kind, 0.97263664596507_dbl_kind, 0.889258738764756_dbl_kind, 0.558611930756042_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1242) = (/ 0.999862119012164_dbl_kind, 0.996527142336345_dbl_kind, 0.972616452988663_dbl_kind, 0.889185996596527_dbl_kind, 0.558564583969855_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1243) = (/ 0.999862012299739_dbl_kind, 0.996524669435903_dbl_kind, 0.972596261780421_dbl_kind, 0.889113271912767_dbl_kind, 0.558517340372452_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1244) = (/ 0.999861905590025_dbl_kind, 0.996522196826115_dbl_kind, 0.972576072341459_dbl_kind, 0.889040564713449_dbl_kind, 0.558470199716055_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1245) = (/ 0.999861798883031_dbl_kind, 0.99651972450698_dbl_kind, 0.972555884672902_dbl_kind, 0.888967874998573_dbl_kind, 0.558423161753518_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1246) = (/ 0.999861692178762_dbl_kind, 0.9965172524785_dbl_kind, 0.972535698775884_dbl_kind, 0.888895202768159_dbl_kind, 0.55837622623832_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1247) = (/ 0.999861585477231_dbl_kind, 0.996514780740676_dbl_kind, 0.972515514651549_dbl_kind, 0.888822548022256_dbl_kind, 0.558329392924573_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1248) = (/ 0.999861478778442_dbl_kind, 0.996512309293516_dbl_kind, 0.972495332301049_dbl_kind, 0.888749910760936_dbl_kind, 0.55828266156701_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1249) = (/ 0.999861372082407_dbl_kind, 0.996509838137026_dbl_kind, 0.97247515172555_dbl_kind, 0.888677290984298_dbl_kind, 0.558236031920993_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1250) = (/ 0.999861265389132_dbl_kind, 0.996507367271214_dbl_kind, 0.972454972926223_dbl_kind, 0.888604688692465_dbl_kind, 0.558189503742507_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1251) = (/ 0.999861158698627_dbl_kind, 0.996504896696089_dbl_kind, 0.972434795904253_dbl_kind, 0.888532103885585_dbl_kind, 0.558143076788154_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1252) = (/ 0.999861052010899_dbl_kind, 0.996502426411663_dbl_kind, 0.972414620660831_dbl_kind, 0.888459536563834_dbl_kind, 0.558096750815163_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1253) = (/ 0.999860945325959_dbl_kind, 0.996499956417948_dbl_kind, 0.972394447197161_dbl_kind, 0.88838698672741_dbl_kind, 0.558050525581375_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1254) = (/ 0.999860838643813_dbl_kind, 0.996497486714958_dbl_kind, 0.972374275514456_dbl_kind, 0.88831445437654_dbl_kind, 0.558004400845251_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1255) = (/ 0.999860731964472_dbl_kind, 0.996495017302711_dbl_kind, 0.972354105613936_dbl_kind, 0.888241939511475_dbl_kind, 0.55795837636587_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1256) = (/ 0.999860625287944_dbl_kind, 0.996492548181222_dbl_kind, 0.972333937496838_dbl_kind, 0.888169442132493_dbl_kind, 0.557912451902918_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1257) = (/ 0.999860518614238_dbl_kind, 0.996490079350513_dbl_kind, 0.972313771164401_dbl_kind, 0.888096962239896_dbl_kind, 0.557866627216703_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1258) = (/ 0.999860411943362_dbl_kind, 0.996487610810603_dbl_kind, 0.972293606617879_dbl_kind, 0.888024499834013_dbl_kind, 0.557820902068129_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1259) = (/ 0.999860305275326_dbl_kind, 0.996485142561515_dbl_kind, 0.972273443858535_dbl_kind, 0.887952054915202_dbl_kind, 0.557775276218724_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1260) = (/ 0.999860198610138_dbl_kind, 0.996482674603271_dbl_kind, 0.97225328288764_dbl_kind, 0.887879627483842_dbl_kind, 0.557729749430617_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1261) = (/ 0.999860091947808_dbl_kind, 0.9964802069359_dbl_kind, 0.972233123706479_dbl_kind, 0.887807217540343_dbl_kind, 0.557684321466541_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1262) = (/ 0.999859985288345_dbl_kind, 0.996477739559427_dbl_kind, 0.972212966316344_dbl_kind, 0.887734825085138_dbl_kind, 0.557638992089838_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1263) = (/ 0.999859878631758_dbl_kind, 0.99647527247388_dbl_kind, 0.972192810718538_dbl_kind, 0.887662450118689_dbl_kind, 0.557593761064451_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1264) = (/ 0.999859771978056_dbl_kind, 0.996472805679292_dbl_kind, 0.972172656914375_dbl_kind, 0.887590092641483_dbl_kind, 0.557548628154921_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1265) = (/ 0.999859665327248_dbl_kind, 0.996470339175694_dbl_kind, 0.972152504905177_dbl_kind, 0.887517752654036_dbl_kind, 0.557503593126397_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1266) = (/ 0.999859558679344_dbl_kind, 0.996467872963119_dbl_kind, 0.972132354692279_dbl_kind, 0.887445430156888_dbl_kind, 0.557458655744617_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1267) = (/ 0.999859452034354_dbl_kind, 0.996465407041602_dbl_kind, 0.972112206277025_dbl_kind, 0.887373125150607_dbl_kind, 0.557413815775926_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1268) = (/ 0.999859345392286_dbl_kind, 0.996462941411182_dbl_kind, 0.972092059660769_dbl_kind, 0.887300837635788_dbl_kind, 0.557369072987253_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1269) = (/ 0.999859238753151_dbl_kind, 0.996460476071894_dbl_kind, 0.972071914844874_dbl_kind, 0.887228567613052_dbl_kind, 0.557324427146131_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1270) = (/ 0.999859132116957_dbl_kind, 0.996458011023782_dbl_kind, 0.972051771830718_dbl_kind, 0.88715631508305_dbl_kind, 0.557279878020677_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1271) = (/ 0.999859025483715_dbl_kind, 0.996455546266886_dbl_kind, 0.972031630619684_dbl_kind, 0.887084080046459_dbl_kind, 0.557235425379605_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1272) = (/ 0.999858918853432_dbl_kind, 0.996453081801248_dbl_kind, 0.972011491213168_dbl_kind, 0.88701186250398_dbl_kind, 0.557191068992216_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1273) = (/ 0.999858812226122_dbl_kind, 0.996450617626916_dbl_kind, 0.971991353612577_dbl_kind, 0.886939662456347_dbl_kind, 0.557146808628397_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1274) = (/ 0.999858705601792_dbl_kind, 0.996448153743935_dbl_kind, 0.971971217819326_dbl_kind, 0.886867479904317_dbl_kind, 0.557102644058625_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1275) = (/ 0.999858598980451_dbl_kind, 0.996445690152354_dbl_kind, 0.971951083834844_dbl_kind, 0.886795314848677_dbl_kind, 0.557058575053961_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1276) = (/ 0.999858492362111_dbl_kind, 0.996443226852222_dbl_kind, 0.971930951660566_dbl_kind, 0.886723167290241_dbl_kind, 0.557014601386045_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1277) = (/ 0.999858385746781_dbl_kind, 0.996440763843591_dbl_kind, 0.971910821297942_dbl_kind, 0.88665103722985_dbl_kind, 0.556970722827105_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1278) = (/ 0.999858279134472_dbl_kind, 0.996438301126516_dbl_kind, 0.971890692748429_dbl_kind, 0.886578924668373_dbl_kind, 0.556926939149942_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1279) = (/ 0.999858172525192_dbl_kind, 0.99643583870105_dbl_kind, 0.971870566013498_dbl_kind, 0.88650682960671_dbl_kind, 0.556883250127943_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1280) = (/ 0.999858065918952_dbl_kind, 0.996433376567249_dbl_kind, 0.971850441094627_dbl_kind, 0.886434752045785_dbl_kind, 0.556839655535072_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1281) = (/ 0.999857959315763_dbl_kind, 0.996430914725174_dbl_kind, 0.971830317993307_dbl_kind, 0.886362691986551_dbl_kind, 0.556796155145864_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1282) = (/ 0.999857852715636_dbl_kind, 0.996428453174884_dbl_kind, 0.97181019671104_dbl_kind, 0.886290649429991_dbl_kind, 0.556752748735428_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1283) = (/ 0.999857746118578_dbl_kind, 0.996425991916439_dbl_kind, 0.971790077249336_dbl_kind, 0.886218624377115_dbl_kind, 0.556709436079454_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1284) = (/ 0.999857639524603_dbl_kind, 0.996423530949904_dbl_kind, 0.971769959609718_dbl_kind, 0.886146616828961_dbl_kind, 0.556666216954197_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1285) = (/ 0.999857532933719_dbl_kind, 0.996421070275344_dbl_kind, 0.971749843793719_dbl_kind, 0.886074626786596_dbl_kind, 0.556623091136482_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1286) = (/ 0.999857426345937_dbl_kind, 0.996418609892824_dbl_kind, 0.971729729802883_dbl_kind, 0.886002654251115_dbl_kind, 0.556580058403704_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1287) = (/ 0.999857319761268_dbl_kind, 0.996416149802415_dbl_kind, 0.971709617638764_dbl_kind, 0.885930699223643_dbl_kind, 0.556537118533826_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1288) = (/ 0.999857213179723_dbl_kind, 0.996413690004184_dbl_kind, 0.971689507302929_dbl_kind, 0.885858761705332_dbl_kind, 0.55649427130538_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1289) = (/ 0.999857106601311_dbl_kind, 0.996411230498205_dbl_kind, 0.971669398796953_dbl_kind, 0.885786841697364_dbl_kind, 0.556451516497449_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1290) = (/ 0.999857000026044_dbl_kind, 0.996408771284551_dbl_kind, 0.971649292122423_dbl_kind, 0.885714939200949_dbl_kind, 0.556408853889696_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1291) = (/ 0.999856893453932_dbl_kind, 0.996406312363295_dbl_kind, 0.971629187280938_dbl_kind, 0.885643054217327_dbl_kind, 0.556366283262337_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1292) = (/ 0.999856786884987_dbl_kind, 0.996403853734518_dbl_kind, 0.971609084274105_dbl_kind, 0.885571186747766_dbl_kind, 0.556323804396142_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1293) = (/ 0.999856680319218_dbl_kind, 0.996401395398294_dbl_kind, 0.971588983103547_dbl_kind, 0.885499336793563_dbl_kind, 0.556281417072453_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1294) = (/ 0.999856573756638_dbl_kind, 0.996398937354705_dbl_kind, 0.971568883770892_dbl_kind, 0.885427504356046_dbl_kind, 0.556239121073158_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1295) = (/ 0.999856467197257_dbl_kind, 0.996396479603834_dbl_kind, 0.971548786277783_dbl_kind, 0.88535568943657_dbl_kind, 0.556196916180705_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1296) = (/ 0.999856360641086_dbl_kind, 0.996394022145763_dbl_kind, 0.971528690625872_dbl_kind, 0.88528389203652_dbl_kind, 0.556154802178096_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1297) = (/ 0.999856254088136_dbl_kind, 0.996391564980578_dbl_kind, 0.971508596816825_dbl_kind, 0.885212112157312_dbl_kind, 0.556112778848886_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1298) = (/ 0.999856147538418_dbl_kind, 0.996389108108366_dbl_kind, 0.971488504852314_dbl_kind, 0.885140349800389_dbl_kind, 0.556070845977183_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1299) = (/ 0.999856040991945_dbl_kind, 0.996386651529215_dbl_kind, 0.971468414734027_dbl_kind, 0.885068604967226_dbl_kind, 0.556029003347638_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1300) = (/ 0.999855934448726_dbl_kind, 0.996384195243216_dbl_kind, 0.97144832646366_dbl_kind, 0.884996877659325_dbl_kind, 0.55598725074546_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1301) = (/ 0.999855827908773_dbl_kind, 0.996381739250461_dbl_kind, 0.971428240042922_dbl_kind, 0.884925167878221_dbl_kind, 0.555945587956397_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1302) = (/ 0.999855721372098_dbl_kind, 0.996379283551044_dbl_kind, 0.971408155473532_dbl_kind, 0.884853475625477_dbl_kind, 0.555904014766753_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1303) = (/ 0.999855614838713_dbl_kind, 0.996376828145061_dbl_kind, 0.971388072757222_dbl_kind, 0.884781800902686_dbl_kind, 0.555862530963362_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1304) = (/ 0.999855508308628_dbl_kind, 0.996374373032608_dbl_kind, 0.971367991895731_dbl_kind, 0.88471014371147_dbl_kind, 0.555821136333612_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1305) = (/ 0.999855401781855_dbl_kind, 0.996371918213785_dbl_kind, 0.971347912890814_dbl_kind, 0.884638504053483_dbl_kind, 0.555779830665433_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1306) = (/ 0.999855295258406_dbl_kind, 0.996369463688693_dbl_kind, 0.971327835744236_dbl_kind, 0.884566881930409_dbl_kind, 0.555738613747287_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1307) = (/ 0.999855188738293_dbl_kind, 0.996367009457433_dbl_kind, 0.971307760457771_dbl_kind, 0.88449527734396_dbl_kind, 0.555697485368179_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1308) = (/ 0.999855082221529_dbl_kind, 0.99636455552011_dbl_kind, 0.971287687033206_dbl_kind, 0.884423690295882_dbl_kind, 0.555656445317654_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1309) = (/ 0.999854975708122_dbl_kind, 0.996362101876831_dbl_kind, 0.971267615472341_dbl_kind, 0.884352120787947_dbl_kind, 0.555615493385792_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1310) = (/ 0.999854869198089_dbl_kind, 0.996359648527702_dbl_kind, 0.971247545776984_dbl_kind, 0.884280568821961_dbl_kind, 0.555574629363203_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1311) = (/ 0.999854762691437_dbl_kind, 0.996357195472834_dbl_kind, 0.971227477948956_dbl_kind, 0.88420903439976_dbl_kind, 0.555533853041036_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1312) = (/ 0.999854656188181_dbl_kind, 0.996354742712337_dbl_kind, 0.971207411990091_dbl_kind, 0.884137517523207_dbl_kind, 0.55549316421097_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1313) = (/ 0.999854549688333_dbl_kind, 0.996352290246325_dbl_kind, 0.971187347902231_dbl_kind, 0.884066018194202_dbl_kind, 0.555452562665213_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1314) = (/ 0.999854443191905_dbl_kind, 0.996349838074912_dbl_kind, 0.971167285687233_dbl_kind, 0.88399453641467_dbl_kind, 0.555412048196505_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1315) = (/ 0.999854336698908_dbl_kind, 0.996347386198214_dbl_kind, 0.971147225346962_dbl_kind, 0.883923072186571_dbl_kind, 0.555371620598112_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1316) = (/ 0.999854230209355_dbl_kind, 0.996344934616349_dbl_kind, 0.971127166883298_dbl_kind, 0.883851625511892_dbl_kind, 0.555331279663826_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1317) = (/ 0.99985412372326_dbl_kind, 0.996342483329439_dbl_kind, 0.97110711029813_dbl_kind, 0.883780196392656_dbl_kind, 0.555291025187963_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1318) = (/ 0.999854017240632_dbl_kind, 0.996340032337602_dbl_kind, 0.971087055593361_dbl_kind, 0.883708784830911_dbl_kind, 0.555250856965369_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1319) = (/ 0.999853910761487_dbl_kind, 0.996337581640966_dbl_kind, 0.971067002770901_dbl_kind, 0.883637390828742_dbl_kind, 0.555210774791405_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1320) = (/ 0.999853804285836_dbl_kind, 0.996335131239652_dbl_kind, 0.971046951832676_dbl_kind, 0.88356601438826_dbl_kind, 0.555170778461957_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1321) = (/ 0.999853697813691_dbl_kind, 0.99633268113379_dbl_kind, 0.971026902780625_dbl_kind, 0.883494655511612_dbl_kind, 0.555130867773432_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1322) = (/ 0.999853591345066_dbl_kind, 0.996330231323508_dbl_kind, 0.971006855616692_dbl_kind, 0.883423314200973_dbl_kind, 0.555091042522749_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1323) = (/ 0.999853484879973_dbl_kind, 0.996327781808935_dbl_kind, 0.970986810342839_dbl_kind, 0.883351990458551_dbl_kind, 0.555051302507352_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1324) = (/ 0.999853378418424_dbl_kind, 0.996325332590206_dbl_kind, 0.970966766961036_dbl_kind, 0.883280684286586_dbl_kind, 0.555011647525194_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1325) = (/ 0.999853271960435_dbl_kind, 0.996322883667452_dbl_kind, 0.970946725473267_dbl_kind, 0.883209395687347_dbl_kind, 0.554972077374749_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1326) = (/ 0.999853165506015_dbl_kind, 0.99632043504081_dbl_kind, 0.970926685881527_dbl_kind, 0.883138124663137_dbl_kind, 0.554932591854997_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1327) = (/ 0.999853059055179_dbl_kind, 0.996317986710419_dbl_kind, 0.97090664818782_dbl_kind, 0.883066871216291_dbl_kind, 0.554893190765437_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1328) = (/ 0.99985295260794_dbl_kind, 0.996315538676417_dbl_kind, 0.970886612394168_dbl_kind, 0.882995635349173_dbl_kind, 0.554853873906073_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1329) = (/ 0.999852846164312_dbl_kind, 0.996313090938945_dbl_kind, 0.9708665785026_dbl_kind, 0.882924417064183_dbl_kind, 0.55481464107742_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1330) = (/ 0.999852739724306_dbl_kind, 0.996310643498148_dbl_kind, 0.970846546515156_dbl_kind, 0.882853216363748_dbl_kind, 0.554775492080501_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1331) = (/ 0.999852633287938_dbl_kind, 0.996308196354168_dbl_kind, 0.970826516433893_dbl_kind, 0.882782033250332_dbl_kind, 0.554736426716843_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1332) = (/ 0.999852526855218_dbl_kind, 0.996305749507152_dbl_kind, 0.970806488260875_dbl_kind, 0.882710867726428_dbl_kind, 0.554697444788483_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1333) = (/ 0.999852420426162_dbl_kind, 0.996303302957251_dbl_kind, 0.970786461998181_dbl_kind, 0.882639719794562_dbl_kind, 0.554658546097958_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1334) = (/ 0.999852314000783_dbl_kind, 0.996300856704612_dbl_kind, 0.970766437647899_dbl_kind, 0.882568589457291_dbl_kind, 0.554619730448312_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1335) = (/ 0.999852207579095_dbl_kind, 0.996298410749389_dbl_kind, 0.970746415212132_dbl_kind, 0.882497476717206_dbl_kind, 0.554580997643082_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1336) = (/ 0.99985210116111_dbl_kind, 0.996295965091734_dbl_kind, 0.970726394692993_dbl_kind, 0.882426381576931_dbl_kind, 0.554542347486315_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1337) = (/ 0.999851994746843_dbl_kind, 0.996293519731804_dbl_kind, 0.970706376092608_dbl_kind, 0.882355304039119_dbl_kind, 0.554503779782549_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1338) = (/ 0.999851888336307_dbl_kind, 0.996291074669756_dbl_kind, 0.970686359413114_dbl_kind, 0.882284244106458_dbl_kind, 0.554465294336823_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1339) = (/ 0.999851781929517_dbl_kind, 0.996288629905749_dbl_kind, 0.970666344656662_dbl_kind, 0.882213201781669_dbl_kind, 0.554426890954671_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1340) = (/ 0.999851675526486_dbl_kind, 0.996286185439943_dbl_kind, 0.970646331825414_dbl_kind, 0.882142177067503_dbl_kind, 0.554388569442124_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1341) = (/ 0.999851569127228_dbl_kind, 0.996283741272503_dbl_kind, 0.970626320921542_dbl_kind, 0.882071169966748_dbl_kind, 0.554350329605704_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1342) = (/ 0.999851462731757_dbl_kind, 0.996281297403591_dbl_kind, 0.970606311947233_dbl_kind, 0.88200018048222_dbl_kind, 0.554312171252425_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1343) = (/ 0.999851356340087_dbl_kind, 0.996278853833375_dbl_kind, 0.970586304904685_dbl_kind, 0.88192920861677_dbl_kind, 0.554274094189795_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1344) = (/ 0.999851249952233_dbl_kind, 0.996276410562024_dbl_kind, 0.97056629979611_dbl_kind, 0.881858254373283_dbl_kind, 0.554236098225809_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1345) = (/ 0.999851143568207_dbl_kind, 0.996273967589705_dbl_kind, 0.970546296623728_dbl_kind, 0.881787317754674_dbl_kind, 0.554198183168952_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1346) = (/ 0.999851037188027_dbl_kind, 0.996271524916593_dbl_kind, 0.970526295389776_dbl_kind, 0.881716398763895_dbl_kind, 0.554160348828196_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1347) = (/ 0.999850930811704_dbl_kind, 0.99626908254286_dbl_kind, 0.9705062960965_dbl_kind, 0.881645497403927_dbl_kind, 0.554122595012998_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1348) = (/ 0.999850824439254_dbl_kind, 0.996266640468681_dbl_kind, 0.970486298746158_dbl_kind, 0.881574613677786_dbl_kind, 0.5540849215333_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1349) = (/ 0.999850718070691_dbl_kind, 0.996264198694235_dbl_kind, 0.970466303341025_dbl_kind, 0.881503747588522_dbl_kind, 0.554047328199528_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1350) = (/ 0.999850611706031_dbl_kind, 0.9962617572197_dbl_kind, 0.970446309883382_dbl_kind, 0.881432899139216_dbl_kind, 0.554009814822592_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1351) = (/ 0.999850505345287_dbl_kind, 0.996259316045257_dbl_kind, 0.970426318375525_dbl_kind, 0.881362068332984_dbl_kind, 0.553972381213878_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1352) = (/ 0.999850398988473_dbl_kind, 0.99625687517109_dbl_kind, 0.970406328819764_dbl_kind, 0.881291255172976_dbl_kind, 0.553935027185257_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1353) = (/ 0.999850292635606_dbl_kind, 0.996254434597382_dbl_kind, 0.97038634121842_dbl_kind, 0.881220459662373_dbl_kind, 0.553897752549075_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1354) = (/ 0.9998501862867_dbl_kind, 0.99625199432432_dbl_kind, 0.970366355573825_dbl_kind, 0.881149681804391_dbl_kind, 0.553860557118158_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1355) = (/ 0.999850079941769_dbl_kind, 0.996249554352093_dbl_kind, 0.970346371888326_dbl_kind, 0.881078921602281_dbl_kind, 0.553823440705806_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1356) = (/ 0.999849973600829_dbl_kind, 0.99624711468089_dbl_kind, 0.97032639016428_dbl_kind, 0.881008179059323_dbl_kind, 0.553786403125791_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1357) = (/ 0.999849867263895_dbl_kind, 0.996244675310904_dbl_kind, 0.970306410404058_dbl_kind, 0.880937454178838_dbl_kind, 0.553749444192365_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1358) = (/ 0.999849760930982_dbl_kind, 0.996242236242329_dbl_kind, 0.970286432610043_dbl_kind, 0.880866746964172_dbl_kind, 0.553712563720252_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1359) = (/ 0.999849654602106_dbl_kind, 0.996239797475359_dbl_kind, 0.97026645678463_dbl_kind, 0.880796057418712_dbl_kind, 0.553675761524635_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1360) = (/ 0.999849548277281_dbl_kind, 0.996237359010193_dbl_kind, 0.970246482930229_dbl_kind, 0.880725385545876_dbl_kind, 0.553639037421185_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1361) = (/ 0.999849441956522_dbl_kind, 0.996234920847029_dbl_kind, 0.970226511049258_dbl_kind, 0.880654731349114_dbl_kind, 0.553602391226028_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1362) = (/ 0.999849335639846_dbl_kind, 0.996232482986071_dbl_kind, 0.970206541144152_dbl_kind, 0.880584094831912_dbl_kind, 0.553565822755763_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1363) = (/ 0.999849229327268_dbl_kind, 0.99623004542752_dbl_kind, 0.970186573217357_dbl_kind, 0.880513475997792_dbl_kind, 0.553529331827455_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1364) = (/ 0.999849123018803_dbl_kind, 0.996227608171581_dbl_kind, 0.970166607271328_dbl_kind, 0.880442874850307_dbl_kind, 0.553492918258632_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1365) = (/ 0.999849016714467_dbl_kind, 0.99622517121846_dbl_kind, 0.970146643308541_dbl_kind, 0.880372291393044_dbl_kind, 0.553456581867287_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1366) = (/ 0.999848910414276_dbl_kind, 0.996222734568368_dbl_kind, 0.970126681331476_dbl_kind, 0.880301725629626_dbl_kind, 0.553420322471877_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1367) = (/ 0.999848804118246_dbl_kind, 0.996220298221512_dbl_kind, 0.970106721342629_dbl_kind, 0.880231177563711_dbl_kind, 0.553384139891318_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1368) = (/ 0.999848697826391_dbl_kind, 0.996217862178109_dbl_kind, 0.970086763344512_dbl_kind, 0.880160647198986_dbl_kind, 0.553348033944988_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1369) = (/ 0.99984859153873_dbl_kind, 0.996215426438369_dbl_kind, 0.970066807339643_dbl_kind, 0.88009013453918_dbl_kind, 0.553312004452723_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1370) = (/ 0.999848485255276_dbl_kind, 0.99621299100251_dbl_kind, 0.970046853330559_dbl_kind, 0.88001963958805_dbl_kind, 0.553276051234816_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1371) = (/ 0.999848378976047_dbl_kind, 0.99621055587075_dbl_kind, 0.970026901319806_dbl_kind, 0.879949162349391_dbl_kind, 0.553240174112019_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1372) = (/ 0.999848272701058_dbl_kind, 0.996208121043309_dbl_kind, 0.970006951309943_dbl_kind, 0.87987870282703_dbl_kind, 0.553204372905537_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1373) = (/ 0.999848166430327_dbl_kind, 0.996205686520408_dbl_kind, 0.969987003303544_dbl_kind, 0.879808261024831_dbl_kind, 0.553168647437032_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1374) = (/ 0.999848060163868_dbl_kind, 0.99620325230227_dbl_kind, 0.969967057303194_dbl_kind, 0.879737836946692_dbl_kind, 0.553132997528615_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1375) = (/ 0.999847953901699_dbl_kind, 0.996200818389122_dbl_kind, 0.969947113311491_dbl_kind, 0.879667430596545_dbl_kind, 0.553097423002853_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1376) = (/ 0.999847847643836_dbl_kind, 0.99619838478119_dbl_kind, 0.969927171331046_dbl_kind, 0.879597041978355_dbl_kind, 0.553061923682762_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1377) = (/ 0.999847741390295_dbl_kind, 0.996195951478704_dbl_kind, 0.969907231364482_dbl_kind, 0.879526671096126_dbl_kind, 0.553026499391806_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1378) = (/ 0.999847635141093_dbl_kind, 0.996193518481895_dbl_kind, 0.969887293414438_dbl_kind, 0.879456317953894_dbl_kind, 0.552991149953901_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1379) = (/ 0.999847528896247_dbl_kind, 0.996191085790995_dbl_kind, 0.969867357483561_dbl_kind, 0.879385982555729_dbl_kind, 0.552955875193406_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1380) = (/ 0.999847422655774_dbl_kind, 0.99618865340624_dbl_kind, 0.969847423574516_dbl_kind, 0.879315664905738_dbl_kind, 0.55292067493513_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1381) = (/ 0.99984731641969_dbl_kind, 0.996186221327866_dbl_kind, 0.969827491689977_dbl_kind, 0.879245365008062_dbl_kind, 0.552885549004322_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1382) = (/ 0.999847210188011_dbl_kind, 0.996183789556111_dbl_kind, 0.969807561832632_dbl_kind, 0.879175082866878_dbl_kind, 0.552850497226683_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1383) = (/ 0.999847103960756_dbl_kind, 0.996181358091216_dbl_kind, 0.969787634005183_dbl_kind, 0.879104818486395_dbl_kind, 0.552815519428346_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1384) = (/ 0.999846997737942_dbl_kind, 0.996178926933424_dbl_kind, 0.969767708210345_dbl_kind, 0.879034571870861_dbl_kind, 0.552780615435895_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1385) = (/ 0.999846891519585_dbl_kind, 0.996176496082979_dbl_kind, 0.969747784450845_dbl_kind, 0.878964343024556_dbl_kind, 0.552745785076347_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1386) = (/ 0.999846785305702_dbl_kind, 0.996174065540127_dbl_kind, 0.969727862729423_dbl_kind, 0.878894131951798_dbl_kind, 0.552711028177161_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1387) = (/ 0.999846679096311_dbl_kind, 0.996171635305116_dbl_kind, 0.969707943048832_dbl_kind, 0.878823938656937_dbl_kind, 0.552676344566236_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1388) = (/ 0.999846572891429_dbl_kind, 0.996169205378194_dbl_kind, 0.969688025411839_dbl_kind, 0.878753763144362_dbl_kind, 0.552641734071906_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1389) = (/ 0.999846466691073_dbl_kind, 0.996166775759615_dbl_kind, 0.969668109821224_dbl_kind, 0.878683605418493_dbl_kind, 0.552607196522938_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1390) = (/ 0.999846360495261_dbl_kind, 0.996164346449633_dbl_kind, 0.969648196279779_dbl_kind, 0.878613465483789_dbl_kind, 0.552572731748538_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1391) = (/ 0.999846254304011_dbl_kind, 0.996161917448502_dbl_kind, 0.969628284790309_dbl_kind, 0.878543343344744_dbl_kind, 0.552538339578344_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1392) = (/ 0.99984614811734_dbl_kind, 0.99615948875648_dbl_kind, 0.969608375355635_dbl_kind, 0.878473239005883_dbl_kind, 0.552504019842426_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1393) = (/ 0.999846041935266_dbl_kind, 0.996157060373827_dbl_kind, 0.969588467978587_dbl_kind, 0.878403152471774_dbl_kind, 0.552469772371284_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1394) = (/ 0.999845935757808_dbl_kind, 0.996154632300803_dbl_kind, 0.96956856266201_dbl_kind, 0.878333083747014_dbl_kind, 0.55243559699585_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1395) = (/ 0.999845829584981_dbl_kind, 0.996152204537673_dbl_kind, 0.969548659408763_dbl_kind, 0.878263032836238_dbl_kind, 0.552401493547483_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1396) = (/ 0.999845723416806_dbl_kind, 0.9961497770847_dbl_kind, 0.969528758221718_dbl_kind, 0.878192999744118_dbl_kind, 0.552367461857972_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1397) = (/ 0.999845617253299_dbl_kind, 0.996147349942152_dbl_kind, 0.96950885910376_dbl_kind, 0.87812298447536_dbl_kind, 0.552333501759529_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1398) = (/ 0.999845511094478_dbl_kind, 0.996144923110298_dbl_kind, 0.969488962057784_dbl_kind, 0.878052987034705_dbl_kind, 0.552299613084799_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1399) = (/ 0.999845404940363_dbl_kind, 0.996142496589409_dbl_kind, 0.969469067086704_dbl_kind, 0.87798300742693_dbl_kind, 0.552265795666842_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1400) = (/ 0.99984529879097_dbl_kind, 0.996140070379757_dbl_kind, 0.969449174193444_dbl_kind, 0.87791304565685_dbl_kind, 0.552232049339148_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1401) = (/ 0.999845192646319_dbl_kind, 0.996137644481616_dbl_kind, 0.969429283380941_dbl_kind, 0.877843101729315_dbl_kind, 0.552198373935626_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1402) = (/ 0.999845086506428_dbl_kind, 0.996135218895264_dbl_kind, 0.969409394652146_dbl_kind, 0.877773175649207_dbl_kind, 0.55216476929061_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1403) = (/ 0.999844980371315_dbl_kind, 0.996132793620978_dbl_kind, 0.969389508010022_dbl_kind, 0.877703267421449_dbl_kind, 0.552131235238848_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1404) = (/ 0.999844874241_dbl_kind, 0.996130368659039_dbl_kind, 0.969369623457549_dbl_kind, 0.877633377050998_dbl_kind, 0.552097771615513_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1405) = (/ 0.999844768115499_dbl_kind, 0.996127944009729_dbl_kind, 0.969349740997716_dbl_kind, 0.877563504542846_dbl_kind, 0.55206437825619_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1406) = (/ 0.999844661994833_dbl_kind, 0.996125519673333_dbl_kind, 0.969329860633529_dbl_kind, 0.877493649902022_dbl_kind, 0.552031054996887_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1407) = (/ 0.99984455587902_dbl_kind, 0.996123095650135_dbl_kind, 0.969309982368003_dbl_kind, 0.877423813133591_dbl_kind, 0.551997801674024_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1408) = (/ 0.999844449768079_dbl_kind, 0.996120671940425_dbl_kind, 0.969290106204171_dbl_kind, 0.877353994242652_dbl_kind, 0.551964618124436_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1409) = (/ 0.99984434366203_dbl_kind, 0.996118248544492_dbl_kind, 0.969270232145076_dbl_kind, 0.877284193234345_dbl_kind, 0.551931504185371_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1410) = (/ 0.999844237560889_dbl_kind, 0.996115825462627_dbl_kind, 0.969250360193777_dbl_kind, 0.877214410113841_dbl_kind, 0.551898459694491_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1411) = (/ 0.999844131464678_dbl_kind, 0.996113402695126_dbl_kind, 0.969230490353344_dbl_kind, 0.877144644886349_dbl_kind, 0.551865484489868_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1412) = (/ 0.999844025373416_dbl_kind, 0.996110980242281_dbl_kind, 0.969210622626862_dbl_kind, 0.877074897557115_dbl_kind, 0.551832578409985_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1413) = (/ 0.99984391928712_dbl_kind, 0.996108558104393_dbl_kind, 0.969190757017429_dbl_kind, 0.87700516813142_dbl_kind, 0.551799741293735_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1414) = (/ 0.999843813205812_dbl_kind, 0.99610613628176_dbl_kind, 0.969170893528157_dbl_kind, 0.876935456614583_dbl_kind, 0.551766972980416_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1415) = (/ 0.99984370712951_dbl_kind, 0.996103714774682_dbl_kind, 0.969151032162169_dbl_kind, 0.876865763011956_dbl_kind, 0.551734273309737_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1416) = (/ 0.999843601058233_dbl_kind, 0.996101293583465_dbl_kind, 0.969131172922606_dbl_kind, 0.876796087328931_dbl_kind, 0.55170164212181_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1417) = (/ 0.999843494992002_dbl_kind, 0.996098872708412_dbl_kind, 0.969111315812618_dbl_kind, 0.876726429570934_dbl_kind, 0.551669079257155_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1418) = (/ 0.999843388930836_dbl_kind, 0.996096452149831_dbl_kind, 0.969091460835372_dbl_kind, 0.876656789743428_dbl_kind, 0.551636584556691_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1419) = (/ 0.999843282874755_dbl_kind, 0.996094031908031_dbl_kind, 0.969071607994045_dbl_kind, 0.876587167851913_dbl_kind, 0.551604157861744_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1420) = (/ 0.999843176823778_dbl_kind, 0.996091611983323_dbl_kind, 0.96905175729183_dbl_kind, 0.876517563901924_dbl_kind, 0.551571799014042_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1421) = (/ 0.999843070777925_dbl_kind, 0.99608919237602_dbl_kind, 0.969031908731935_dbl_kind, 0.876447977899035_dbl_kind, 0.551539507855711_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1422) = (/ 0.999842964737217_dbl_kind, 0.996086773086436_dbl_kind, 0.969012062317578_dbl_kind, 0.876378409848852_dbl_kind, 0.551507284229278_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1423) = (/ 0.999842858701674_dbl_kind, 0.996084354114888_dbl_kind, 0.968992218051991_dbl_kind, 0.876308859757022_dbl_kind, 0.551475127977671_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1424) = (/ 0.999842752671315_dbl_kind, 0.996081935461696_dbl_kind, 0.968972375938423_dbl_kind, 0.876239327629227_dbl_kind, 0.551443038944207_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1425) = (/ 0.99984264664616_dbl_kind, 0.996079517127178_dbl_kind, 0.968952535980133_dbl_kind, 0.876169813471185_dbl_kind, 0.551411016972612_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1426) = (/ 0.999842540626231_dbl_kind, 0.996077099111659_dbl_kind, 0.968932698180395_dbl_kind, 0.87610031728865_dbl_kind, 0.551379061906997_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1427) = (/ 0.999842434611547_dbl_kind, 0.996074681415462_dbl_kind, 0.968912862542498_dbl_kind, 0.876030839087416_dbl_kind, 0.551347173591875_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1428) = (/ 0.99984232860213_dbl_kind, 0.996072264038914_dbl_kind, 0.968893029069741_dbl_kind, 0.875961378873308_dbl_kind, 0.551315351872147_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1429) = (/ 0.999842222597998_dbl_kind, 0.996069846982343_dbl_kind, 0.96887319776544_dbl_kind, 0.875891936652193_dbl_kind, 0.551283596593106_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1430) = (/ 0.999842116599174_dbl_kind, 0.996067430246079_dbl_kind, 0.968853368632923_dbl_kind, 0.875822512429971_dbl_kind, 0.551251907600444_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1431) = (/ 0.999842010605677_dbl_kind, 0.996065013830455_dbl_kind, 0.968833541675533_dbl_kind, 0.875753106212581_dbl_kind, 0.551220284740234_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1432) = (/ 0.999841904617529_dbl_kind, 0.996062597735804_dbl_kind, 0.968813716896626_dbl_kind, 0.875683718005999_dbl_kind, 0.551188727858944_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1433) = (/ 0.99984179863475_dbl_kind, 0.996060181962462_dbl_kind, 0.968793894299571_dbl_kind, 0.875614347816234_dbl_kind, 0.55115723680343_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1434) = (/ 0.999841692657362_dbl_kind, 0.996057766510767_dbl_kind, 0.968774073887751_dbl_kind, 0.875544995649336_dbl_kind, 0.551125811420931_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1435) = (/ 0.999841586685384_dbl_kind, 0.99605535138106_dbl_kind, 0.968754255664563_dbl_kind, 0.875475661511389_dbl_kind, 0.551094451559077_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1436) = (/ 0.999841480718839_dbl_kind, 0.996052936573683_dbl_kind, 0.968734439633419_dbl_kind, 0.875406345408516_dbl_kind, 0.551063157065882_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1437) = (/ 0.999841374757748_dbl_kind, 0.996050522088977_dbl_kind, 0.968714625797741_dbl_kind, 0.875337047346876_dbl_kind, 0.551031927789742_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1438) = (/ 0.999841268802131_dbl_kind, 0.99604810792729_dbl_kind, 0.968694814160968_dbl_kind, 0.875267767332662_dbl_kind, 0.55100076357944_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1439) = (/ 0.99984116285201_dbl_kind, 0.996045694088969_dbl_kind, 0.968675004726553_dbl_kind, 0.87519850537211_dbl_kind, 0.550969664284135_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1440) = (/ 0.999841056907407_dbl_kind, 0.996043280574363_dbl_kind, 0.968655197497962_dbl_kind, 0.875129261471487_dbl_kind, 0.550938629753378_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1441) = (/ 0.999840950968343_dbl_kind, 0.996040867383824_dbl_kind, 0.968635392478672_dbl_kind, 0.8750600356371_dbl_kind, 0.550907659837087_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1442) = (/ 0.99984084503484_dbl_kind, 0.996038454517706_dbl_kind, 0.968615589672178_dbl_kind, 0.87499082787529_dbl_kind, 0.550876754385571_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1443) = (/ 0.999840739106918_dbl_kind, 0.996036041976363_dbl_kind, 0.968595789081987_dbl_kind, 0.87492163819244_dbl_kind, 0.550845913249509_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1444) = (/ 0.999840633184601_dbl_kind, 0.996033629760153_dbl_kind, 0.968575990711619_dbl_kind, 0.874852466594966_dbl_kind, 0.55081513627996_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1445) = (/ 0.999840527267909_dbl_kind, 0.996031217869434_dbl_kind, 0.968556194564609_dbl_kind, 0.874783313089319_dbl_kind, 0.550784423328362_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1446) = (/ 0.999840421356866_dbl_kind, 0.99602880630457_dbl_kind, 0.968536400644505_dbl_kind, 0.874714177681993_dbl_kind, 0.550753774246522_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1447) = (/ 0.999840315451491_dbl_kind, 0.996026395065921_dbl_kind, 0.96851660895487_dbl_kind, 0.874645060379515_dbl_kind, 0.550723188886629_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1448) = (/ 0.999840209551808_dbl_kind, 0.996023984153853_dbl_kind, 0.96849681949928_dbl_kind, 0.874575961188449_dbl_kind, 0.550692667101239_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1449) = (/ 0.999840103657839_dbl_kind, 0.996021573568733_dbl_kind, 0.968477032281324_dbl_kind, 0.874506880115397_dbl_kind, 0.550662208743281_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1450) = (/ 0.999839997769606_dbl_kind, 0.996019163310929_dbl_kind, 0.968457247304606_dbl_kind, 0.874437817166997_dbl_kind, 0.55063181366606_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1451) = (/ 0.999839891887133_dbl_kind, 0.996016753380814_dbl_kind, 0.968437464572744_dbl_kind, 0.874368772349926_dbl_kind, 0.550601481723247_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1452) = (/ 0.999839786010439_dbl_kind, 0.996014343778759_dbl_kind, 0.96841768408937_dbl_kind, 0.874299745670896_dbl_kind, 0.550571212768882_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1453) = (/ 0.999839680139548_dbl_kind, 0.996011934505139_dbl_kind, 0.968397905858128_dbl_kind, 0.874230737136656_dbl_kind, 0.550541006657379_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1454) = (/ 0.999839574274484_dbl_kind, 0.99600952556033_dbl_kind, 0.968378129882678_dbl_kind, 0.874161746753993_dbl_kind, 0.550510863243511_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1455) = (/ 0.999839468415267_dbl_kind, 0.996007116944711_dbl_kind, 0.968358356166693_dbl_kind, 0.874092774529732_dbl_kind, 0.550480782382425_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1456) = (/ 0.999839362561922_dbl_kind, 0.996004708658663_dbl_kind, 0.968338584713859_dbl_kind, 0.874023820470734_dbl_kind, 0.550450763929629_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1457) = (/ 0.999839256714471_dbl_kind, 0.996002300702567_dbl_kind, 0.968318815527878_dbl_kind, 0.873954884583895_dbl_kind, 0.550420807740996_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1458) = (/ 0.999839150872936_dbl_kind, 0.995999893076809_dbl_kind, 0.968299048612465_dbl_kind, 0.873885966876151_dbl_kind, 0.550390913672766_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1459) = (/ 0.999839045037341_dbl_kind, 0.995997485781774_dbl_kind, 0.968279283971349_dbl_kind, 0.873817067354474_dbl_kind, 0.550361081581537_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1460) = (/ 0.999838939207709_dbl_kind, 0.99599507881785_dbl_kind, 0.968259521608271_dbl_kind, 0.873748186025874_dbl_kind, 0.55033131132427_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1461) = (/ 0.999838833384063_dbl_kind, 0.995992672185428_dbl_kind, 0.968239761526987_dbl_kind, 0.873679322897396_dbl_kind, 0.550301602758291_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1462) = (/ 0.999838727566425_dbl_kind, 0.9959902658849_dbl_kind, 0.96822000373127_dbl_kind, 0.873610477976124_dbl_kind, 0.550271955741279_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1463) = (/ 0.999838621754821_dbl_kind, 0.995987859916659_dbl_kind, 0.968200248224902_dbl_kind, 0.873541651269178_dbl_kind, 0.550242370131277_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1464) = (/ 0.999838515949272_dbl_kind, 0.995985454281102_dbl_kind, 0.968180495011684_dbl_kind, 0.873472842783716_dbl_kind, 0.550212845786682_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1465) = (/ 0.999838410149801_dbl_kind, 0.995983048978626_dbl_kind, 0.968160744095425_dbl_kind, 0.873404052526932_dbl_kind, 0.550183382566253_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1466) = (/ 0.999838304356434_dbl_kind, 0.995980644009632_dbl_kind, 0.968140995479954_dbl_kind, 0.873335280506058_dbl_kind, 0.5501539803291_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1467) = (/ 0.999838198569193_dbl_kind, 0.99597823937452_dbl_kind, 0.968121249169109_dbl_kind, 0.873266526728362_dbl_kind, 0.550124638934689_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1468) = (/ 0.999838092788102_dbl_kind, 0.995975835073695_dbl_kind, 0.968101505166746_dbl_kind, 0.873197791201152_dbl_kind, 0.550095358242842_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1469) = (/ 0.999837987013184_dbl_kind, 0.995973431107561_dbl_kind, 0.968081763476731_dbl_kind, 0.873129073931769_dbl_kind, 0.550066138113734_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1470) = (/ 0.999837881244465_dbl_kind, 0.995971027476527_dbl_kind, 0.968062024102947_dbl_kind, 0.873060374927594_dbl_kind, 0.55003697840789_dbl_kind /) + iceSingleScatterAlbedoDirect(1:5 ,1471) = (/ 0.999837775481967_dbl_kind, 0.995968624181001_dbl_kind, 0.968042287049291_dbl_kind, 0.872991694196043_dbl_kind, 0.550007878986191_dbl_kind /) + + iceSingleScatterAlbedoDiffuse(1:5 ,1) = (/ 0.99999652090225_dbl_kind, 0.999902541003866_dbl_kind, 0.999252020157292_dbl_kind, 0.995412713638889_dbl_kind, 0.949846089277264_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,2) = (/ 0.999996410054143_dbl_kind, 0.999899503226746_dbl_kind, 0.999228399618862_dbl_kind, 0.995303298087803_dbl_kind, 0.948509250075099_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,3) = (/ 0.999996299750575_dbl_kind, 0.999896473321404_dbl_kind, 0.99920477600596_dbl_kind, 0.995194732374268_dbl_kind, 0.947183340709259_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,4) = (/ 0.99999618993626_dbl_kind, 0.999893450431926_dbl_kind, 0.99918113312949_dbl_kind, 0.995086927144935_dbl_kind, 0.945868086144487_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,5) = (/ 0.999996080547224_dbl_kind, 0.999890433632407_dbl_kind, 0.999157457639793_dbl_kind, 0.994979802131183_dbl_kind, 0.944563224486756_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,6) = (/ 0.999995971513353_dbl_kind, 0.999887421976042_dbl_kind, 0.999133739332467_dbl_kind, 0.994873285280009_dbl_kind, 0.943268506620646_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,7) = (/ 0.999995862760764_dbl_kind, 0.999884414539864_dbl_kind, 0.999109971247562_dbl_kind, 0.994767312029555_dbl_kind, 0.941983695382215_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,8) = (/ 0.999995754213958_dbl_kind, 0.999881410462392_dbl_kind, 0.999086149600374_dbl_kind, 0.994661824708817_dbl_kind, 0.940708564569374_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,9) = (/ 0.999995645797729_dbl_kind, 0.999878408972699_dbl_kind, 0.999062273582888_dbl_kind, 0.994556772033718_dbl_kind, 0.939442897974212_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,10) = (/ 0.999995537438816_dbl_kind, 0.999875409410544_dbl_kind, 0.999038345072532_dbl_kind, 0.994452108671675_dbl_kind, 0.938186488532096_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,11) = (/ 0.999995429067298_dbl_kind, 0.999872411237903_dbl_kind, 0.999014368280627_dbl_kind, 0.99434779485037_dbl_kind, 0.936939137620628_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,12) = (/ 0.999995320617729_dbl_kind, 0.999869414042851_dbl_kind, 0.998990349367928_dbl_kind, 0.994243795991595_dbl_kind, 0.935700654503753_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,13) = (/ 0.999995212030031_dbl_kind, 0.999866417536997_dbl_kind, 0.998966296049477_dbl_kind, 0.994140082356331_dbl_kind, 0.93447085589643_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,14) = (/ 0.99999510325014_dbl_kind, 0.999863421547835_dbl_kind, 0.99894221720615_dbl_kind, 0.994036628692172_dbl_kind, 0.933249565618159_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,15) = (/ 0.999994994230469_dbl_kind, 0.999860426007369_dbl_kind, 0.998918122515939_dbl_kind, 0.993933413878208_dbl_kind, 0.932036614304369_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,16) = (/ 0.999994884930152_dbl_kind, 0.999857430938265_dbl_kind, 0.998894022114204_dbl_kind, 0.993830420565761_dbl_kind, 0.930831839149533_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,17) = (/ 0.999994775315146_dbl_kind, 0.999854436438646_dbl_kind, 0.998869926289007_dbl_kind, 0.99372763481573_dbl_kind, 0.929635083662521_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,18) = (/ 0.999994665358178_dbl_kind, 0.99985144266647_dbl_kind, 0.998845845214982_dbl_kind, 0.993625045734948_dbl_kind, 0.928446197421538_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,19) = (/ 0.999994555038579_dbl_kind, 0.999848449824228_dbl_kind, 0.998821788727136_dbl_kind, 0.993522645115012_dbl_kind, 0.927265035821632_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,20) = (/ 0.99999444434203_dbl_kind, 0.999845458144543_dbl_kind, 0.998797766134329_dbl_kind, 0.993420427077533_dbl_kind, 0.926091459812696_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,21) = (/ 0.999994333260216_dbl_kind, 0.999842467877046_dbl_kind, 0.998773786070956_dbl_kind, 0.993318387729923_dbl_kind, 0.9249253356289_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,22) = (/ 0.999994221790443_dbl_kind, 0.999839479276826_dbl_kind, 0.998749856384439_dbl_kind, 0.993216524835637_dbl_kind, 0.923766534512734_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,23) = (/ 0.999994109935196_dbl_kind, 0.999836492594539_dbl_kind, 0.998725984055546_dbl_kind, 0.993114837502444_dbl_kind, 0.922614932437868_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,24) = (/ 0.999993997701684_dbl_kind, 0.999833508068264_dbl_kind, 0.998702175148166_dbl_kind, 0.993013325891694_dbl_kind, 0.921470409835264_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,25) = (/ 0.99999388510136_dbl_kind, 0.999830525917023_dbl_kind, 0.998678434784983_dbl_kind, 0.99291199095103_dbl_kind, 0.920332851326813_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,26) = (/ 0.999993772149446_dbl_kind, 0.999827546335907_dbl_kind, 0.998654767145464_dbl_kind, 0.992810834172239_dbl_kind, 0.919202145470054_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,27) = (/ 0.99999365886445_dbl_kind, 0.999824569492653_dbl_kind, 0.998631175482641_dbl_kind, 0.992709857375342_dbl_kind, 0.91807818451689_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,28) = (/ 0.999993545267703_dbl_kind, 0.999821595525516_dbl_kind, 0.998607662155357_dbl_kind, 0.992609062519367_dbl_kind, 0.916960864188264_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,29) = (/ 0.999993431382901_dbl_kind, 0.999818624542291_dbl_kind, 0.998584228672848_dbl_kind, 0.992508451539675_dbl_kind, 0.915850083466017_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,30) = (/ 0.99999331723568_dbl_kind, 0.999815656620279_dbl_kind, 0.998560875748808_dbl_kind, 0.992408026211212_dbl_kind, 0.914745744402413_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,31) = (/ 0.999993202853193_dbl_kind, 0.999812691807057_dbl_kind, 0.998537603362396_dbl_kind, 0.992307788036584_dbl_kind, 0.913647751947186_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,32) = (/ 0.999993088263737_dbl_kind, 0.999809730121874_dbl_kind, 0.998514410823891_dbl_kind, 0.992207738157586_dbl_kind, 0.912556013791496_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,33) = (/ 0.999992973496378_dbl_kind, 0.999806771557545_dbl_kind, 0.998491296843058_dbl_kind, 0.992107877288416_dbl_kind, 0.911470440227775_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,34) = (/ 0.999992858580627_dbl_kind, 0.999803816082697_dbl_kind, 0.998468259598521_dbl_kind, 0.992008205668736_dbl_kind, 0.910390944024266_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,35) = (/ 0.999992743546132_dbl_kind, 0.999800863644254_dbl_kind, 0.998445296806749_dbl_kind, 0.991908723034527_dbl_kind, 0.909317440312792_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,36) = (/ 0.999992628422393_dbl_kind, 0.999797914170069_dbl_kind, 0.998422405789482_dbl_kind, 0.991809428604657_dbl_kind, 0.908249846488327_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,37) = (/ 0.999992513238518_dbl_kind, 0.999794967571603_dbl_kind, 0.998399583538682_dbl_kind, 0.991710321081086_dbl_kind, 0.907188082118862_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,38) = (/ 0.999992398022995_dbl_kind, 0.999792023746599_dbl_kind, 0.998376826778272_dbl_kind, 0.991611398660643_dbl_kind, 0.906132068864145_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,39) = (/ 0.999992282803493_dbl_kind, 0.999789082581672_dbl_kind, 0.998354132022134_dbl_kind, 0.991512659056419_dbl_kind, 0.905081730401947_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,40) = (/ 0.999992167606692_dbl_kind, 0.999786143954798_dbl_kind, 0.998331495627974_dbl_kind, 0.991414099526906_dbl_kind, 0.904036992360624_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,41) = (/ 0.999992052458132_dbl_kind, 0.999783207737638_dbl_kind, 0.998308913846818_dbl_kind, 0.991315716911179_dbl_kind, 0.902997782256833_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,42) = (/ 0.999991937382088_dbl_kind, 0.999780273797694_dbl_kind, 0.998286382868009_dbl_kind, 0.991217507668518_dbl_kind, 0.90196402943746_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,43) = (/ 0.999991822401468_dbl_kind, 0.999777342000278_dbl_kind, 0.99826389885969_dbl_kind, 0.991119467921065_dbl_kind, 0.900935665024904_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,44) = (/ 0.999991707537731_dbl_kind, 0.999774412210272_dbl_kind, 0.998241458004797_dbl_kind, 0.991021593498265_dbl_kind, 0.899912621864986_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,45) = (/ 0.999991592810822_dbl_kind, 0.999771484293697_dbl_kind, 0.998219056532714_dbl_kind, 0.990923879981993_dbl_kind, 0.898894834476914_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,46) = (/ 0.999991478239131_dbl_kind, 0.999768558119063_dbl_kind, 0.99819669074674_dbl_kind, 0.99082632275141_dbl_kind, 0.897882239004825_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,47) = (/ 0.999991363839461_dbl_kind, 0.999765633558546_dbl_kind, 0.998174357047574_dbl_kind, 0.990728917026805_dbl_kind, 0.896874773170513_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,48) = (/ 0.99999124962702_dbl_kind, 0.99976271048896_dbl_kind, 0.998152051953067_dbl_kind, 0.990631657911731_dbl_kind, 0.895872376227055_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,49) = (/ 0.999991135615418_dbl_kind, 0.999759788792555_dbl_kind, 0.998129772114491_dbl_kind, 0.990534540432962_dbl_kind, 0.89487498891319_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,50) = (/ 0.999991021816687_dbl_kind, 0.999756868357656_dbl_kind, 0.998107514329592_dbl_kind, 0.990437559577848_dbl_kind, 0.893882553408211_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,51) = (/ 0.9999909082413_dbl_kind, 0.99975394907914_dbl_kind, 0.998085275552696_dbl_kind, 0.990340710328807_dbl_kind, 0.892895013287379_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,52) = (/ 0.999990794898213_dbl_kind, 0.999751030858791_dbl_kind, 0.998063052902156_dbl_kind, 0.990243987694739_dbl_kind, 0.891912313477792_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,53) = (/ 0.999990681794904_dbl_kind, 0.999748113605511_dbl_kind, 0.998040843665384_dbl_kind, 0.990147386739289_dbl_kind, 0.890934400214682_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,54) = (/ 0.999990568937429_dbl_kind, 0.999745197235436_dbl_kind, 0.998018645301754_dbl_kind, 0.990050902605887_dbl_kind, 0.889961220998227_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,55) = (/ 0.999990456330476_dbl_kind, 0.999742281671948_dbl_kind, 0.997996455443608_dbl_kind, 0.989954530539612_dbl_kind, 0.888992724550883_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,56) = (/ 0.999990343977435_dbl_kind, 0.999739366845606_dbl_kind, 0.9979742718956_dbl_kind, 0.989858265905964_dbl_kind, 0.888028860775323_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,57) = (/ 0.999990231880456_dbl_kind, 0.999736452694005_dbl_kind, 0.997952092632626_dbl_kind, 0.989762104206637_dbl_kind, 0.88706958071307_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,58) = (/ 0.999990120040531_dbl_kind, 0.999733539161577_dbl_kind, 0.99792991579651_dbl_kind, 0.989666041092457_dbl_kind, 0.886114836503855_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,59) = (/ 0.999990008457558_dbl_kind, 0.999730626199336_dbl_kind, 0.997907739691673_dbl_kind, 0.989570072373657_dbl_kind, 0.885164581345854_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,60) = (/ 0.999989897130422_dbl_kind, 0.999727713764598_dbl_kind, 0.997885562779938_dbl_kind, 0.989474194027683_dbl_kind, 0.884218769456816_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,61) = (/ 0.999989786057066_dbl_kind, 0.999724801820653_dbl_kind, 0.997863383674645_dbl_kind, 0.989378402204711_dbl_kind, 0.883277356036192_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,62) = (/ 0.99998967523457_dbl_kind, 0.999721890336434_dbl_kind, 0.99784120113422_dbl_kind, 0.989282693231118_dbl_kind, 0.882340297228336_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,63) = (/ 0.999989564659228_dbl_kind, 0.999718979286153_dbl_kind, 0.997819014055325_dbl_kind, 0.989187063611078_dbl_kind, 0.881407550086788_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,64) = (/ 0.999989454326614_dbl_kind, 0.999716068648942_dbl_kind, 0.997796821465704_dbl_kind, 0.989091510026522_dbl_kind, 0.880479072539767_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,65) = (/ 0.999989344231667_dbl_kind, 0.999713158408486_dbl_kind, 0.997774622516845_dbl_kind, 0.988996029335641_dbl_kind, 0.879554823356831_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,66) = (/ 0.999989234368745_dbl_kind, 0.999710248552654_dbl_kind, 0.997752416476528_dbl_kind, 0.988900618570138_dbl_kind, 0.878634762116829_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,67) = (/ 0.999989124731711_dbl_kind, 0.999707339073146_dbl_kind, 0.997730202721353_dbl_kind, 0.988805274931413_dbl_kind, 0.877718849177038_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,68) = (/ 0.999989015313987_dbl_kind, 0.999704429965137_dbl_kind, 0.997707980729306_dbl_kind, 0.988709995785843_dbl_kind, 0.876807045643657_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,69) = (/ 0.999988906108622_dbl_kind, 0.999701521226943_dbl_kind, 0.997685750072437_dbl_kind, 0.988614778659336_dbl_kind, 0.875899313343513_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,70) = (/ 0.999988797108349_dbl_kind, 0.999698612859691_dbl_kind, 0.99766351040968_dbl_kind, 0.988519621231299_dbl_kind, 0.874995614797072_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,71) = (/ 0.999988688305644_dbl_kind, 0.999695704867021_dbl_kind, 0.997641261479875_dbl_kind, 0.988424521328148_dbl_kind, 0.874095913192701_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,72) = (/ 0.999988579692776_dbl_kind, 0.999692797254788_dbl_kind, 0.997619003095011_dbl_kind, 0.9883294769165_dbl_kind, 0.873200172362171_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,73) = (/ 0.999988471261862_dbl_kind, 0.999689890030787_dbl_kind, 0.997596735133723_dbl_kind, 0.988234486096147_dbl_kind, 0.872308356757381_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,74) = (/ 0.99998836300491_dbl_kind, 0.999686983204507_dbl_kind, 0.997574457535074_dbl_kind, 0.988139547092911_dbl_kind, 0.871420431428259_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,75) = (/ 0.999988254913861_dbl_kind, 0.999684076786888_dbl_kind, 0.99755217029261_dbl_kind, 0.988044658251466_dbl_kind, 0.870536362001835_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,76) = (/ 0.999988146980635_dbl_kind, 0.99968117079011_dbl_kind, 0.997529873448732_dbl_kind, 0.987949818028208_dbl_kind, 0.869656114662401_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,77) = (/ 0.999988039197161_dbl_kind, 0.99967826522739_dbl_kind, 0.997507567089372_dbl_kind, 0.987855024984224_dbl_kind, 0.868779656132768_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,78) = (/ 0.999987931555411_dbl_kind, 0.999675360112806_dbl_kind, 0.997485251338975_dbl_kind, 0.987760277778427_dbl_kind, 0.867906953656532_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,79) = (/ 0.999987824047436_dbl_kind, 0.999672455461132_dbl_kind, 0.997462926355802_dbl_kind, 0.987665575160893_dbl_kind, 0.867037974981354_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,80) = (/ 0.999987716665386_dbl_kind, 0.999669551287692_dbl_kind, 0.997440592327533_dbl_kind, 0.987570915966445_dbl_kind, 0.866172688343139_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,81) = (/ 0.999987609401539_dbl_kind, 0.999666647608233_dbl_kind, 0.997418249467183_dbl_kind, 0.987476299108502_dbl_kind, 0.865311062451126_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,82) = (/ 0.999987502248321_dbl_kind, 0.999663744438809_dbl_kind, 0.997395898009312_dbl_kind, 0.98738172357321_dbl_kind, 0.86445306647384_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,83) = (/ 0.999987395198322_dbl_kind, 0.99966084179568_dbl_kind, 0.997373538206521_dbl_kind, 0.987287188413908_dbl_kind, 0.863598670025796_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,84) = (/ 0.999987288244319_dbl_kind, 0.999657939695223_dbl_kind, 0.997351170326238_dbl_kind, 0.987192692745875_dbl_kind, 0.862747843154996_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,85) = (/ 0.999987181379282_dbl_kind, 0.999655038153864_dbl_kind, 0.997328794647762_dbl_kind, 0.987098235741428_dbl_kind, 0.86190055633111_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,86) = (/ 0.999987074596391_dbl_kind, 0.999652137188007_dbl_kind, 0.997306411459578_dbl_kind, 0.98700381662532_dbl_kind, 0.861056780434318_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,87) = (/ 0.999986967889043_dbl_kind, 0.999649236813984_dbl_kind, 0.997284021056908_dbl_kind, 0.986909434670475_dbl_kind, 0.860216486744775_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,88) = (/ 0.999986861250863_dbl_kind, 0.999646337048014_dbl_kind, 0.997261623739507_dbl_kind, 0.986815089194025_dbl_kind, 0.859379646932654_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,89) = (/ 0.999986754675707_dbl_kind, 0.999643437906162_dbl_kind, 0.997239219809672_dbl_kind, 0.986720779553657_dbl_kind, 0.858546233048721_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,90) = (/ 0.999986648157663_dbl_kind, 0.999640539404315_dbl_kind, 0.997216809570468_dbl_kind, 0.986626505144253_dbl_kind, 0.85771621751542_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,91) = (/ 0.999986541691063_dbl_kind, 0.99963764155816_dbl_kind, 0.99719439332415_dbl_kind, 0.986532265394814_dbl_kind, 0.856889573118407_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,92) = (/ 0.999986435270476_dbl_kind, 0.999634744383173_dbl_kind, 0.997171971370771_dbl_kind, 0.986438059765654_dbl_kind, 0.856066272998523_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,93) = (/ 0.99998632889071_dbl_kind, 0.999631847894602_dbl_kind, 0.997149544006959_dbl_kind, 0.986343887745842_dbl_kind, 0.855246290644169_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,94) = (/ 0.999986222546814_dbl_kind, 0.999628952107467_dbl_kind, 0.997127111524859_dbl_kind, 0.986249748850899_dbl_kind, 0.85442959988405_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,95) = (/ 0.999986116234074_dbl_kind, 0.999626057036559_dbl_kind, 0.997104674211228_dbl_kind, 0.986155642620701_dbl_kind, 0.853616174880241_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,96) = (/ 0.999986009948009_dbl_kind, 0.999623162696438_dbl_kind, 0.997082232346662_dbl_kind, 0.986061568617604_dbl_kind, 0.852805990121591_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,97) = (/ 0.999985903684369_dbl_kind, 0.99962026910144_dbl_kind, 0.997059786204952_dbl_kind, 0.985967526424762_dbl_kind, 0.851999020417401_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,98) = (/ 0.999985797439131_dbl_kind, 0.999617376265686_dbl_kind, 0.997037336052564_dbl_kind, 0.985873515644613_dbl_kind, 0.851195240891383_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,99) = (/ 0.999985691208491_dbl_kind, 0.999614484203083_dbl_kind, 0.99701488214822_dbl_kind, 0.98577953589754_dbl_kind, 0.850394626975844_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,100) = (/ 0.999985584988862_dbl_kind, 0.999611592927342_dbl_kind, 0.996992424742573_dbl_kind, 0.985685586820682_dbl_kind, 0.849597154406122_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,101) = (/ 0.999985478776867_dbl_kind, 0.999608702451985_dbl_kind, 0.996969964077986_dbl_kind, 0.985591668066861_dbl_kind, 0.848802799215213_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,102) = (/ 0.999985372569333_dbl_kind, 0.999605812790352_dbl_kind, 0.99694750038837_dbl_kind, 0.985497779303661_dbl_kind, 0.848011537728598_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,103) = (/ 0.999985266363281_dbl_kind, 0.999602923955619_dbl_kind, 0.996925033899118_dbl_kind, 0.985403920212584_dbl_kind, 0.847223346559245_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,104) = (/ 0.999985160155927_dbl_kind, 0.999600035960804_dbl_kind, 0.996902564827085_dbl_kind, 0.985310090488336_dbl_kind, 0.846438202602784_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,105) = (/ 0.999985053944667_dbl_kind, 0.999597148818781_dbl_kind, 0.996880093380627_dbl_kind, 0.985216289838166_dbl_kind, 0.845656083032821_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,106) = (/ 0.999984947727074_dbl_kind, 0.999594262542289_dbl_kind, 0.99685761975971_dbl_kind, 0.98512251798131_dbl_kind, 0.844876965296402_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,107) = (/ 0.999984841500891_dbl_kind, 0.999591377143941_dbl_kind, 0.996835144156033_dbl_kind, 0.98502877464848_dbl_kind, 0.844100827109607_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,108) = (/ 0.999984735264022_dbl_kind, 0.999588492636235_dbl_kind, 0.996812666753216_dbl_kind, 0.984935059581425_dbl_kind, 0.843327646453255_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,109) = (/ 0.999984629014528_dbl_kind, 0.999585609031559_dbl_kind, 0.996790187727007_dbl_kind, 0.984841372532532_dbl_kind, 0.842557401568737_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,110) = (/ 0.999984522750617_dbl_kind, 0.999582726342205_dbl_kind, 0.996767707245523_dbl_kind, 0.984747713264471_dbl_kind, 0.841790070953947_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,111) = (/ 0.999984416470638_dbl_kind, 0.999579844580366_dbl_kind, 0.996745225469509_dbl_kind, 0.984654081549879_dbl_kind, 0.841025633359302_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,112) = (/ 0.999984310173075_dbl_kind, 0.999576963758147_dbl_kind, 0.996722742552621_dbl_kind, 0.984560477171064_dbl_kind, 0.840264067783874_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,113) = (/ 0.99998420385654_dbl_kind, 0.999574083887569_dbl_kind, 0.996700258641724_dbl_kind, 0.984466899919747_dbl_kind, 0.839505353471591_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,114) = (/ 0.999984097519765_dbl_kind, 0.99957120498057_dbl_kind, 0.996677773877201_dbl_kind, 0.984373349596805_dbl_kind, 0.838749469907526_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,115) = (/ 0.999983991161597_dbl_kind, 0.999568327049009_dbl_kind, 0.996655288393265_dbl_kind, 0.984279826012045_dbl_kind, 0.837996396814269_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,116) = (/ 0.999983884780993_dbl_kind, 0.999565450104663_dbl_kind, 0.996632802318287_dbl_kind, 0.98418632898398_dbl_kind, 0.83724611414836_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,117) = (/ 0.999983778377012_dbl_kind, 0.999562574159233_dbl_kind, 0.996610315775117_dbl_kind, 0.984092858339611_dbl_kind, 0.836498602096801_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,118) = (/ 0.999983671948808_dbl_kind, 0.999559699224336_dbl_kind, 0.996587828881413_dbl_kind, 0.983999413914221_dbl_kind, 0.835753841073636_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,119) = (/ 0.999983565495629_dbl_kind, 0.999556825311511_dbl_kind, 0.996565341749958_dbl_kind, 0.983905995551167_dbl_kind, 0.83501181171658_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,120) = (/ 0.999983459016807_dbl_kind, 0.999553952432205_dbl_kind, 0.996542854488988_dbl_kind, 0.983812603101673_dbl_kind, 0.834272494883725_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,121) = (/ 0.999983352511757_dbl_kind, 0.99955108059778_dbl_kind, 0.996520367202502_dbl_kind, 0.983719236424625_dbl_kind, 0.833535871650307_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,122) = (/ 0.999983245979964_dbl_kind, 0.999548209819501_dbl_kind, 0.996497879990567_dbl_kind, 0.98362589538636_dbl_kind, 0.832801923305503_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,123) = (/ 0.999983139420992_dbl_kind, 0.999545340108536_dbl_kind, 0.996475392949624_dbl_kind, 0.983532579860451_dbl_kind, 0.83207063134932_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,124) = (/ 0.999983032834466_dbl_kind, 0.999542471475946_dbl_kind, 0.996452906172769_dbl_kind, 0.983439289727497_dbl_kind, 0.831341977489505_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,125) = (/ 0.999982926220074_dbl_kind, 0.999539603932678_dbl_kind, 0.996430419750044_dbl_kind, 0.983346024874902_dbl_kind, 0.830615943638526_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,126) = (/ 0.999982819577563_dbl_kind, 0.999536737489563_dbl_kind, 0.996407933768693_dbl_kind, 0.983252785196645_dbl_kind, 0.829892511910596_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,127) = (/ 0.999982712906737_dbl_kind, 0.9995338721573_dbl_kind, 0.996385448313431_dbl_kind, 0.983159570593056_dbl_kind, 0.829171664618747_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,128) = (/ 0.999982606207443_dbl_kind, 0.999531007946459_dbl_kind, 0.996362963466681_dbl_kind, 0.98306638097058_dbl_kind, 0.828453384271957_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,129) = (/ 0.999982499479584_dbl_kind, 0.999528144867461_dbl_kind, 0.996340479308808_dbl_kind, 0.982973216241541_dbl_kind, 0.827737653572308_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,130) = (/ 0.999982392723098_dbl_kind, 0.999525282930578_dbl_kind, 0.996317995918343_dbl_kind, 0.982880076323899_dbl_kind, 0.82702445541221_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,131) = (/ 0.99998228593797_dbl_kind, 0.999522422145921_dbl_kind, 0.996295513372184_dbl_kind, 0.982786961141006_dbl_kind, 0.826313772871662_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,132) = (/ 0.999982179124222_dbl_kind, 0.999519562523431_dbl_kind, 0.996273031745793_dbl_kind, 0.982693870621355_dbl_kind, 0.825605589215544_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,133) = (/ 0.999982072281908_dbl_kind, 0.999516704072871_dbl_kind, 0.996250551113374_dbl_kind, 0.982600804698336_dbl_kind, 0.824899887890984_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,134) = (/ 0.999981965411117_dbl_kind, 0.999513846803814_dbl_kind, 0.996228071548045_dbl_kind, 0.982507763309975_dbl_kind, 0.824196652524729_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,135) = (/ 0.999981858511968_dbl_kind, 0.99951099072564_dbl_kind, 0.99620559312199_dbl_kind, 0.982414746398689_dbl_kind, 0.823495866920593_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,136) = (/ 0.999981751584604_dbl_kind, 0.999508135847521_dbl_kind, 0.996183115906598_dbl_kind, 0.982321753911022_dbl_kind, 0.822797515056917_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,137) = (/ 0.999981644629197_dbl_kind, 0.999505282178418_dbl_kind, 0.996160639972599_dbl_kind, 0.982228785797401_dbl_kind, 0.822101581084095_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,138) = (/ 0.999981537645943_dbl_kind, 0.999502429727066_dbl_kind, 0.996138165390179_dbl_kind, 0.982135842011876_dbl_kind, 0.821408049322124_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,139) = (/ 0.999981430635057_dbl_kind, 0.999499578501971_dbl_kind, 0.996115692229085_dbl_kind, 0.982042922511872_dbl_kind, 0.820716904258198_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,140) = (/ 0.999981323596774_dbl_kind, 0.9994967285114_dbl_kind, 0.996093220558721_dbl_kind, 0.981950027257937_dbl_kind, 0.820028130544342_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,141) = (/ 0.999981216531351_dbl_kind, 0.999493879763374_dbl_kind, 0.996070750448232_dbl_kind, 0.981857156213496_dbl_kind, 0.819341712995087_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,142) = (/ 0.999981109439057_dbl_kind, 0.999491032265659_dbl_kind, 0.996048281966574_dbl_kind, 0.981764309344609_dbl_kind, 0.818657636585168_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,143) = (/ 0.999981002320179_dbl_kind, 0.999488186025761_dbl_kind, 0.996025815182581_dbl_kind, 0.981671486619726_dbl_kind, 0.817975886447293_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,144) = (/ 0.999980895175015_dbl_kind, 0.999485341050918_dbl_kind, 0.996003350165018_dbl_kind, 0.98157868800946_dbl_kind, 0.817296447869903_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,145) = (/ 0.999980788003882_dbl_kind, 0.999482497348093_dbl_kind, 0.99598088698262_dbl_kind, 0.98148591348635_dbl_kind, 0.816619306295007_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,146) = (/ 0.9999806808071_dbl_kind, 0.99947965492397_dbl_kind, 0.995958425704136_dbl_kind, 0.981393163024642_dbl_kind, 0.815944447316037_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,147) = (/ 0.999980573585007_dbl_kind, 0.999476813784949_dbl_kind, 0.995935966398346_dbl_kind, 0.981300436600063_dbl_kind, 0.815271856675732_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,148) = (/ 0.999980466337946_dbl_kind, 0.999473973937138_dbl_kind, 0.99591350913409_dbl_kind, 0.981207734189618_dbl_kind, 0.814601520264071_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,149) = (/ 0.999980359066271_dbl_kind, 0.999471135386351_dbl_kind, 0.995891053980275_dbl_kind, 0.981115055771377_dbl_kind, 0.813933424116233_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,150) = (/ 0.999980251770341_dbl_kind, 0.999468298138102_dbl_kind, 0.99586860100588_dbl_kind, 0.981022401324282_dbl_kind, 0.813267554410581_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,151) = (/ 0.999980144450525_dbl_kind, 0.999465462197606_dbl_kind, 0.995846150279957_dbl_kind, 0.980929770827952_dbl_kind, 0.812603897466711_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,152) = (/ 0.999980037107196_dbl_kind, 0.999462627569769_dbl_kind, 0.995823701871624_dbl_kind, 0.980837164262501_dbl_kind, 0.811942439743485_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,153) = (/ 0.999979929740733_dbl_kind, 0.999459794259191_dbl_kind, 0.995801255850049_dbl_kind, 0.980744581608363_dbl_kind, 0.811283167837145_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,154) = (/ 0.999979822351522_dbl_kind, 0.999456962270161_dbl_kind, 0.99577881228444_dbl_kind, 0.980652022846124_dbl_kind, 0.810626068479424_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,155) = (/ 0.999979714939948_dbl_kind, 0.999454131606656_dbl_kind, 0.995756371244014_dbl_kind, 0.980559487956366_dbl_kind, 0.809971128535706_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,156) = (/ 0.999979607506407_dbl_kind, 0.999451302272341_dbl_kind, 0.995733932797981_dbl_kind, 0.980466976919508_dbl_kind, 0.809318335003218_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,157) = (/ 0.99997950005129_dbl_kind, 0.999448474270567_dbl_kind, 0.995711497015504_dbl_kind, 0.980374489715671_dbl_kind, 0.808667675009229_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,158) = (/ 0.999979392574998_dbl_kind, 0.999445647604369_dbl_kind, 0.995689063965675_dbl_kind, 0.98028202632454_dbl_kind, 0.808019135809311_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,159) = (/ 0.99997928507793_dbl_kind, 0.999442822276471_dbl_kind, 0.995666633717475_dbl_kind, 0.980189586725241_dbl_kind, 0.807372704785609_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,160) = (/ 0.999979177560487_dbl_kind, 0.999439998289281_dbl_kind, 0.995644206339731_dbl_kind, 0.980097170896216_dbl_kind, 0.806728369445143_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,161) = (/ 0.999979070023074_dbl_kind, 0.999437175644896_dbl_kind, 0.995621781901088_dbl_kind, 0.980004778815125_dbl_kind, 0.806086117418144_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,162) = (/ 0.999978962466096_dbl_kind, 0.999434354345101_dbl_kind, 0.995599360469951_dbl_kind, 0.979912410458737_dbl_kind, 0.80544593645641_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,163) = (/ 0.999978854889955_dbl_kind, 0.999431534391374_dbl_kind, 0.995576942114453_dbl_kind, 0.979820065802838_dbl_kind, 0.804807814431694_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,164) = (/ 0.999978747295059_dbl_kind, 0.999428715784884_dbl_kind, 0.995554526902404_dbl_kind, 0.97972774482215_dbl_kind, 0.804171739334112_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,165) = (/ 0.999978639681813_dbl_kind, 0.999425898526498_dbl_kind, 0.995532114901242_dbl_kind, 0.97963544749025_dbl_kind, 0.803537699270602_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,166) = (/ 0.999978532050622_dbl_kind, 0.999423082616778_dbl_kind, 0.995509706177993_dbl_kind, 0.979543173779508_dbl_kind, 0.802905682463364_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,167) = (/ 0.999978424401891_dbl_kind, 0.999420268055991_dbl_kind, 0.995487300799218_dbl_kind, 0.979450923661013_dbl_kind, 0.802275677248369_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,168) = (/ 0.999978316736026_dbl_kind, 0.999417454844109_dbl_kind, 0.995464898830967_dbl_kind, 0.979358697104534_dbl_kind, 0.801647672073872_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,169) = (/ 0.999978209053428_dbl_kind, 0.999414642980811_dbl_kind, 0.995442500338732_dbl_kind, 0.979266494078463_dbl_kind, 0.80102165549895_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,170) = (/ 0.999978101354499_dbl_kind, 0.999411832465493_dbl_kind, 0.995420105387395_dbl_kind, 0.979174314549777_dbl_kind, 0.800397616192066_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,171) = (/ 0.999977993639641_dbl_kind, 0.999409023297268_dbl_kind, 0.995397714041188_dbl_kind, 0.979082158484009_dbl_kind, 0.799775542929663_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,172) = (/ 0.999977885909253_dbl_kind, 0.999406215474968_dbl_kind, 0.995375326363639_dbl_kind, 0.978990025845219_dbl_kind, 0.799155424594772_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,173) = (/ 0.999977778163731_dbl_kind, 0.999403408997159_dbl_kind, 0.995352942417534_dbl_kind, 0.978897916595973_dbl_kind, 0.798537250175645_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,174) = (/ 0.99997767040347_dbl_kind, 0.999400603862135_dbl_kind, 0.995330562264861_dbl_kind, 0.978805830697329_dbl_kind, 0.797921008764414_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,175) = (/ 0.999977562628864_dbl_kind, 0.99939780006793_dbl_kind, 0.995308185966779_dbl_kind, 0.978713768108834_dbl_kind, 0.79730668955577_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,176) = (/ 0.999977454840303_dbl_kind, 0.999394997612322_dbl_kind, 0.995285813583564_dbl_kind, 0.978621728788511_dbl_kind, 0.796694281845663_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,177) = (/ 0.999977347038174_dbl_kind, 0.999392196492838_dbl_kind, 0.995263445174575_dbl_kind, 0.978529712692876_dbl_kind, 0.796083775030023_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,178) = (/ 0.999977239222864_dbl_kind, 0.99938939670676_dbl_kind, 0.995241080798208_dbl_kind, 0.978437719776932_dbl_kind, 0.795475158603502_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,179) = (/ 0.999977131394755_dbl_kind, 0.999386598251134_dbl_kind, 0.995218720511865_dbl_kind, 0.97834574999419_dbl_kind, 0.794868422158232_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,180) = (/ 0.999977023554226_dbl_kind, 0.999383801122771_dbl_kind, 0.995196364371906_dbl_kind, 0.978253803296685_dbl_kind, 0.794263555382618_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,181) = (/ 0.999976915701653_dbl_kind, 0.999381005318256_dbl_kind, 0.995174012433626_dbl_kind, 0.978161879634993_dbl_kind, 0.793660548060127_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,182) = (/ 0.99997680783741_dbl_kind, 0.999378210833957_dbl_kind, 0.995151664751209_dbl_kind, 0.978069978958262_dbl_kind, 0.79305939006812_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,183) = (/ 0.999976699961866_dbl_kind, 0.999375417666027_dbl_kind, 0.995129321377706_dbl_kind, 0.977978101214239_dbl_kind, 0.792460071376681_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,184) = (/ 0.999976592075387_dbl_kind, 0.999372625810411_dbl_kind, 0.995106982364996_dbl_kind, 0.977886246349303_dbl_kind, 0.791862582047488_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,185) = (/ 0.999976484178335_dbl_kind, 0.999369835262856_dbl_kind, 0.995084647763765_dbl_kind, 0.977794414308498_dbl_kind, 0.791266912232674_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,186) = (/ 0.999976376271069_dbl_kind, 0.999367046018918_dbl_kind, 0.995062317623474_dbl_kind, 0.97770260503558_dbl_kind, 0.790673052173732_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,187) = (/ 0.999976268353944_dbl_kind, 0.999364258073959_dbl_kind, 0.995039991992336_dbl_kind, 0.977610818473051_dbl_kind, 0.790080992200427_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,188) = (/ 0.99997616042731_dbl_kind, 0.999361471423168_dbl_kind, 0.995017670917293_dbl_kind, 0.977519054562204_dbl_kind, 0.789490722729714_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,189) = (/ 0.999976052491515_dbl_kind, 0.999358686061558_dbl_kind, 0.994995354443995_dbl_kind, 0.977427313243179_dbl_kind, 0.78890223426469_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,190) = (/ 0.999975944546899_dbl_kind, 0.999355901983976_dbl_kind, 0.994973042616778_dbl_kind, 0.977335594454998_dbl_kind, 0.788315517393555_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,191) = (/ 0.999975836593802_dbl_kind, 0.999353119185106_dbl_kind, 0.994950735478652_dbl_kind, 0.977243898135624_dbl_kind, 0.787730562788591_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,192) = (/ 0.999975728632557_dbl_kind, 0.999350337659484_dbl_kind, 0.994928433071278_dbl_kind, 0.977152224222018_dbl_kind, 0.787147361205152_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,193) = (/ 0.999975620663494_dbl_kind, 0.999347557401495_dbl_kind, 0.994906135434962_dbl_kind, 0.977060572650183_dbl_kind, 0.786565903480672_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,194) = (/ 0.999975512686936_dbl_kind, 0.999344778405385_dbl_kind, 0.994883842608635_dbl_kind, 0.976968943355223_dbl_kind, 0.785986180533689_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,195) = (/ 0.999975404703205_dbl_kind, 0.999342000665268_dbl_kind, 0.99486155462985_dbl_kind, 0.976877336271401_dbl_kind, 0.785408183362884_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,196) = (/ 0.999975296712615_dbl_kind, 0.999339224175128_dbl_kind, 0.994839271534769_dbl_kind, 0.976785751332197_dbl_kind, 0.784831903046139_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,197) = (/ 0.999975188715477_dbl_kind, 0.999336448928831_dbl_kind, 0.994816993358154_dbl_kind, 0.976694188470364_dbl_kind, 0.784257330739599_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,198) = (/ 0.999975080712098_dbl_kind, 0.999333674920127_dbl_kind, 0.99479472013337_dbl_kind, 0.976602647617985_dbl_kind, 0.783684457676751_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,199) = (/ 0.999974972702777_dbl_kind, 0.999330902142659_dbl_kind, 0.994772451892375_dbl_kind, 0.976511128706538_dbl_kind, 0.783113275167518_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,200) = (/ 0.99997486468781_dbl_kind, 0.999328130589967_dbl_kind, 0.994750188665717_dbl_kind, 0.976419631666949_dbl_kind, 0.782543774597386_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,201) = (/ 0.999974756667488_dbl_kind, 0.999325360255493_dbl_kind, 0.994727930482538_dbl_kind, 0.976328156429653_dbl_kind, 0.781975947426493_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,202) = (/ 0.999974648642099_dbl_kind, 0.999322591132594_dbl_kind, 0.994705677370573_dbl_kind, 0.976236702924659_dbl_kind, 0.781409785188795_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,203) = (/ 0.999974540611922_dbl_kind, 0.999319823214539_dbl_kind, 0.994683429356153_dbl_kind, 0.976145271081601_dbl_kind, 0.780845279491197_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,204) = (/ 0.999974432577232_dbl_kind, 0.99931705649452_dbl_kind, 0.994661186464207_dbl_kind, 0.976053860829802_dbl_kind, 0.780282422012708_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,205) = (/ 0.999974324538301_dbl_kind, 0.999314290965656_dbl_kind, 0.994638948718271_dbl_kind, 0.975962472098331_dbl_kind, 0.77972120450363_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,206) = (/ 0.999974216495393_dbl_kind, 0.999311526620998_dbl_kind, 0.994616716140492_dbl_kind, 0.975871104816065_dbl_kind, 0.779161618784724_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,207) = (/ 0.99997410844877_dbl_kind, 0.999308763453536_dbl_kind, 0.994594488751636_dbl_kind, 0.975779758911737_dbl_kind, 0.778603656746421_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,208) = (/ 0.999974000398685_dbl_kind, 0.999306001456205_dbl_kind, 0.994572266571097_dbl_kind, 0.975688434314007_dbl_kind, 0.778047310348016_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,209) = (/ 0.999973892345388_dbl_kind, 0.999303240621886_dbl_kind, 0.99455004961691_dbl_kind, 0.975597130951504_dbl_kind, 0.777492571616892_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,210) = (/ 0.999973784289124_dbl_kind, 0.999300480943415_dbl_kind, 0.994527837905758_dbl_kind, 0.975505848752892_dbl_kind, 0.776939432647752_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,211) = (/ 0.999973676230132_dbl_kind, 0.999297722413585_dbl_kind, 0.994505631452988_dbl_kind, 0.975414587646915_dbl_kind, 0.776387885601855_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,212) = (/ 0.999973568168646_dbl_kind, 0.999294965025156_dbl_kind, 0.994483430272623_dbl_kind, 0.975323347562458_dbl_kind, 0.775837922706266_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,213) = (/ 0.999973460104894_dbl_kind, 0.999292208770853_dbl_kind, 0.994461234377375_dbl_kind, 0.975232128428598_dbl_kind, 0.775289536253126_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,214) = (/ 0.999973352039099_dbl_kind, 0.999289453643375_dbl_kind, 0.994439043778664_dbl_kind, 0.975140930174648_dbl_kind, 0.774742718598906_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,215) = (/ 0.99997324397148_dbl_kind, 0.999286699635397_dbl_kind, 0.99441685848663_dbl_kind, 0.975049752730217_dbl_kind, 0.774197462163714_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,216) = (/ 0.999973135902251_dbl_kind, 0.999283946739577_dbl_kind, 0.994394678510153_dbl_kind, 0.974958596025251_dbl_kind, 0.773653759430559_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,217) = (/ 0.999973027831616_dbl_kind, 0.999281194948555_dbl_kind, 0.994372503856869_dbl_kind, 0.974867459990081_dbl_kind, 0.773111602944678_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,218) = (/ 0.999972919759781_dbl_kind, 0.999278444254963_dbl_kind, 0.994350334533188_dbl_kind, 0.974776344555475_dbl_kind, 0.772570985312822_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,219) = (/ 0.999972811686941_dbl_kind, 0.999275694651427_dbl_kind, 0.994328170544317_dbl_kind, 0.974685249652674_dbl_kind, 0.772031899202598_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,220) = (/ 0.999972703613288_dbl_kind, 0.999272946130567_dbl_kind, 0.994306011894272_dbl_kind, 0.974594175213442_dbl_kind, 0.771494337341787_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,221) = (/ 0.999972595539011_dbl_kind, 0.999270198685008_dbl_kind, 0.994283858585907_dbl_kind, 0.974503121170103_dbl_kind, 0.770958292517678_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,222) = (/ 0.999972487464289_dbl_kind, 0.999267452307373_dbl_kind, 0.994261710620926_dbl_kind, 0.974412087455583_dbl_kind, 0.770423757576431_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,223) = (/ 0.999972379389301_dbl_kind, 0.999264706990299_dbl_kind, 0.994239567999914_dbl_kind, 0.974321074003454_dbl_kind, 0.769890725422417_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,224) = (/ 0.999972271314217_dbl_kind, 0.999261962726428_dbl_kind, 0.99421743072235_dbl_kind, 0.974230080747957_dbl_kind, 0.769359189017588_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,225) = (/ 0.999972163239206_dbl_kind, 0.999259219508419_dbl_kind, 0.994195298786632_dbl_kind, 0.974139107624053_dbl_kind, 0.768829141380858_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,226) = (/ 0.999972055164426_dbl_kind, 0.999256477328946_dbl_kind, 0.994173172190099_dbl_kind, 0.974048154567451_dbl_kind, 0.768300575587466_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,227) = (/ 0.999971947090038_dbl_kind, 0.999253736180704_dbl_kind, 0.994151050929058_dbl_kind, 0.973957221514641_dbl_kind, 0.767773484768384_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,228) = (/ 0.999971839016193_dbl_kind, 0.99925099605641_dbl_kind, 0.994128934998801_dbl_kind, 0.973866308402921_dbl_kind, 0.767247862109704_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,229) = (/ 0.999971730943037_dbl_kind, 0.999248256948805_dbl_kind, 0.994106824393628_dbl_kind, 0.973775415170436_dbl_kind, 0.766723700852043_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,230) = (/ 0.999971622870712_dbl_kind, 0.999245518850656_dbl_kind, 0.994084719106879_dbl_kind, 0.973684541756199_dbl_kind, 0.766200994289957_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,231) = (/ 0.999971514799358_dbl_kind, 0.999242781754763_dbl_kind, 0.994062619130943_dbl_kind, 0.973593688100118_dbl_kind, 0.765679735771363_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,232) = (/ 0.999971406729107_dbl_kind, 0.999240045653955_dbl_kind, 0.994040524457297_dbl_kind, 0.973502854143028_dbl_kind, 0.765159918696967_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,233) = (/ 0.999971298660089_dbl_kind, 0.999237310541098_dbl_kind, 0.994018435076519_dbl_kind, 0.973412039826702_dbl_kind, 0.764641536519696_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,234) = (/ 0.999971190592426_dbl_kind, 0.99923457640909_dbl_kind, 0.993996350978317_dbl_kind, 0.973321245093888_dbl_kind, 0.764124582744138_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,235) = (/ 0.999971082526241_dbl_kind, 0.999231843250871_dbl_kind, 0.99397427215155_dbl_kind, 0.973230469888321_dbl_kind, 0.763609050926_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,236) = (/ 0.999970974461647_dbl_kind, 0.999229111059419_dbl_kind, 0.993952198584255_dbl_kind, 0.973139714154742_dbl_kind, 0.763094934671553_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,237) = (/ 0.999970866398756_dbl_kind, 0.999226379827753_dbl_kind, 0.993930130263666_dbl_kind, 0.973048977838919_dbl_kind, 0.762582227637104_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,238) = (/ 0.999970758337675_dbl_kind, 0.999223649548937_dbl_kind, 0.993908067176246_dbl_kind, 0.972958260887665_dbl_kind, 0.762070923528462_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,239) = (/ 0.999970650278508_dbl_kind, 0.999220920216078_dbl_kind, 0.9938860093077_dbl_kind, 0.972867563248849_dbl_kind, 0.761561016100414_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,240) = (/ 0.999970542221352_dbl_kind, 0.999218191822329_dbl_kind, 0.993863956643007_dbl_kind, 0.972776884871412_dbl_kind, 0.761052499156207_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,241) = (/ 0.999970434166303_dbl_kind, 0.999215464360892_dbl_kind, 0.993841909166441_dbl_kind, 0.97268622570538_dbl_kind, 0.760545366547042_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,242) = (/ 0.999970326113453_dbl_kind, 0.999212737825016_dbl_kind, 0.993819866861593_dbl_kind, 0.972595585701875_dbl_kind, 0.760039612171563_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,243) = (/ 0.999970218062887_dbl_kind, 0.999210012208002_dbl_kind, 0.993797829711396_dbl_kind, 0.972504964813123_dbl_kind, 0.759535229975361_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,244) = (/ 0.999970110014689_dbl_kind, 0.9992072875032_dbl_kind, 0.993775797698147_dbl_kind, 0.972414362992467_dbl_kind, 0.759032213950485_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,245) = (/ 0.99997000196894_dbl_kind, 0.999204563704011_dbl_kind, 0.993753770803532_dbl_kind, 0.972323780194369_dbl_kind, 0.758530558134953_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,246) = (/ 0.999969893925715_dbl_kind, 0.999201840803891_dbl_kind, 0.993731749008644_dbl_kind, 0.972233216374423_dbl_kind, 0.758030256612273_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,247) = (/ 0.999969785885088_dbl_kind, 0.999199118796349_dbl_kind, 0.99370973229401_dbl_kind, 0.972142671489353_dbl_kind, 0.757531303510963_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,248) = (/ 0.999969677847126_dbl_kind, 0.99919639767495_dbl_kind, 0.993687720639612_dbl_kind, 0.97205214549702_dbl_kind, 0.757033693004094_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,249) = (/ 0.999969569811898_dbl_kind, 0.999193677433308_dbl_kind, 0.99366571402491_dbl_kind, 0.971961638356432_dbl_kind, 0.756537419308819_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,250) = (/ 0.999969461779464_dbl_kind, 0.999190958065101_dbl_kind, 0.993643712428859_dbl_kind, 0.971871150027731_dbl_kind, 0.756042476685912_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,251) = (/ 0.999969353749885_dbl_kind, 0.999188239564056_dbl_kind, 0.993621715829934_dbl_kind, 0.97178068047221_dbl_kind, 0.755548859439325_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,252) = (/ 0.999969245723216_dbl_kind, 0.999185521923963_dbl_kind, 0.993599724206154_dbl_kind, 0.9716902296523_dbl_kind, 0.755056561915738_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,253) = (/ 0.999969137699513_dbl_kind, 0.999182805138663_dbl_kind, 0.993577737535097_dbl_kind, 0.971599797531576_dbl_kind, 0.754565578504116_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,254) = (/ 0.999969029678825_dbl_kind, 0.999180089202059_dbl_kind, 0.993555755793924_dbl_kind, 0.971509384074754_dbl_kind, 0.754075903635274_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,255) = (/ 0.999968921661199_dbl_kind, 0.999177374108109_dbl_kind, 0.993533778959398_dbl_kind, 0.971418989247686_dbl_kind, 0.753587531781447_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,256) = (/ 0.999968813646681_dbl_kind, 0.999174659850831_dbl_kind, 0.993511807007905_dbl_kind, 0.971328613017362_dbl_kind, 0.753100457455869_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,257) = (/ 0.999968705635312_dbl_kind, 0.9991719464243_dbl_kind, 0.993489839915472_dbl_kind, 0.971238255351893_dbl_kind, 0.752614675212339_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,258) = (/ 0.999968597627133_dbl_kind, 0.999169233822651_dbl_kind, 0.993467877657788_dbl_kind, 0.971147916220522_dbl_kind, 0.752130179644818_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,259) = (/ 0.999968489622181_dbl_kind, 0.999166522040074_dbl_kind, 0.99344592021022_dbl_kind, 0.971057595593603_dbl_kind, 0.75164696538702_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,260) = (/ 0.999968381620489_dbl_kind, 0.999163811070821_dbl_kind, 0.993423967547838_dbl_kind, 0.970967293442605_dbl_kind, 0.751165027111993_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,261) = (/ 0.999968273622092_dbl_kind, 0.9991611009092_dbl_kind, 0.993402019645422_dbl_kind, 0.970877009740099_dbl_kind, 0.750684359531727_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,262) = (/ 0.999968165627018_dbl_kind, 0.999158391549579_dbl_kind, 0.993380076477493_dbl_kind, 0.970786744459749_dbl_kind, 0.75020495739676_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,263) = (/ 0.999968057635296_dbl_kind, 0.999155682986385_dbl_kind, 0.99335813801832_dbl_kind, 0.970696497576305_dbl_kind, 0.74972681549578_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,264) = (/ 0.999967949646952_dbl_kind, 0.9991529752141_dbl_kind, 0.993336204241942_dbl_kind, 0.970606269065596_dbl_kind, 0.749249928655242_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,265) = (/ 0.999967841662009_dbl_kind, 0.99915026822727_dbl_kind, 0.993314275122185_dbl_kind, 0.970516058904514_dbl_kind, 0.748774291738979_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,266) = (/ 0.999967733680489_dbl_kind, 0.99914756202049_dbl_kind, 0.993292350632676_dbl_kind, 0.970425867071007_dbl_kind, 0.748299899647833_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,267) = (/ 0.999967625702412_dbl_kind, 0.999144856588422_dbl_kind, 0.99327043074686_dbl_kind, 0.970335693544067_dbl_kind, 0.747826747319277_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,268) = (/ 0.999967517727797_dbl_kind, 0.99914215192578_dbl_kind, 0.993248515438019_dbl_kind, 0.97024553830372_dbl_kind, 0.747354829727042_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,269) = (/ 0.999967409756659_dbl_kind, 0.999139448027335_dbl_kind, 0.993226604679279_dbl_kind, 0.97015540133101_dbl_kind, 0.746884141880754_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,270) = (/ 0.999967301789013_dbl_kind, 0.999136744887919_dbl_kind, 0.993204698443636_dbl_kind, 0.970065282607989_dbl_kind, 0.746414678825582_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,271) = (/ 0.999967193824873_dbl_kind, 0.999134042502415_dbl_kind, 0.99318279670396_dbl_kind, 0.969975182117703_dbl_kind, 0.745946435641867_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,272) = (/ 0.99996708586425_dbl_kind, 0.999131340865766_dbl_kind, 0.993160899433019_dbl_kind, 0.969885099844181_dbl_kind, 0.745479407444774_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,273) = (/ 0.999966977907154_dbl_kind, 0.99912863997297_dbl_kind, 0.993139006603482_dbl_kind, 0.969795035772415_dbl_kind, 0.745013589383953_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,274) = (/ 0.999966869953594_dbl_kind, 0.999125939819079_dbl_kind, 0.993117118187943_dbl_kind, 0.969704989888355_dbl_kind, 0.744548976643178_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,275) = (/ 0.999966762003578_dbl_kind, 0.999123240399202_dbl_kind, 0.993095234158929_dbl_kind, 0.969614962178884_dbl_kind, 0.744085564440019_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,276) = (/ 0.999966654057112_dbl_kind, 0.999120541708501_dbl_kind, 0.993073354488911_dbl_kind, 0.969524952631811_dbl_kind, 0.743623348025503_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,277) = (/ 0.999966546114201_dbl_kind, 0.999117843742192_dbl_kind, 0.99305147915032_dbl_kind, 0.969434961235855_dbl_kind, 0.743162322683773_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,278) = (/ 0.999966438174849_dbl_kind, 0.999115146495547_dbl_kind, 0.993029608115559_dbl_kind, 0.969344987980625_dbl_kind, 0.742702483731777_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,279) = (/ 0.999966330239059_dbl_kind, 0.999112449963886_dbl_kind, 0.993007741357011_dbl_kind, 0.969255032856609_dbl_kind, 0.742243826518917_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,280) = (/ 0.999966222306832_dbl_kind, 0.999109754142588_dbl_kind, 0.992985878847057_dbl_kind, 0.969165095855157_dbl_kind, 0.74178634642675_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,281) = (/ 0.999966114378171_dbl_kind, 0.999107059027078_dbl_kind, 0.992964020558079_dbl_kind, 0.969075176968464_dbl_kind, 0.741330038868662_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,282) = (/ 0.999966006453073_dbl_kind, 0.999104364612837_dbl_kind, 0.992942166462478_dbl_kind, 0.968985276189557_dbl_kind, 0.740874899289553_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,283) = (/ 0.999965898531541_dbl_kind, 0.999101670895395_dbl_kind, 0.992920316532679_dbl_kind, 0.968895393512272_dbl_kind, 0.740420923165522_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,284) = (/ 0.999965790613571_dbl_kind, 0.999098977870333_dbl_kind, 0.992898470741146_dbl_kind, 0.968805528931246_dbl_kind, 0.739968106003572_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,285) = (/ 0.999965682699162_dbl_kind, 0.999096285533282_dbl_kind, 0.992876629060384_dbl_kind, 0.968715682441895_dbl_kind, 0.739516443341295_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,286) = (/ 0.999965574788309_dbl_kind, 0.999093593879923_dbl_kind, 0.99285479146296_dbl_kind, 0.9686258540404_dbl_kind, 0.739065930746577_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,287) = (/ 0.999965466881012_dbl_kind, 0.999090902905984_dbl_kind, 0.9928329579215_dbl_kind, 0.968536043723689_dbl_kind, 0.738616563817301_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,288) = (/ 0.999965358977264_dbl_kind, 0.999088212607243_dbl_kind, 0.992811128408709_dbl_kind, 0.968446251489419_dbl_kind, 0.738168338181055_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,289) = (/ 0.999965251077062_dbl_kind, 0.999085522979524_dbl_kind, 0.992789302897367_dbl_kind, 0.968356477335964_dbl_kind, 0.737721249494836_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,290) = (/ 0.999965143180403_dbl_kind, 0.999082834018701_dbl_kind, 0.992767481360351_dbl_kind, 0.968266721262392_dbl_kind, 0.737275293444771_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,291) = (/ 0.999965035287276_dbl_kind, 0.999080145720691_dbl_kind, 0.992745663770634_dbl_kind, 0.968176983268454_dbl_kind, 0.736830465745827_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,292) = (/ 0.999964927397681_dbl_kind, 0.999077458081463_dbl_kind, 0.992723850101291_dbl_kind, 0.968087263354565_dbl_kind, 0.736386762141539_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,293) = (/ 0.999964819511608_dbl_kind, 0.999074771097022_dbl_kind, 0.992702040325515_dbl_kind, 0.967997561521785_dbl_kind, 0.735944178403721_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,294) = (/ 0.999964711629052_dbl_kind, 0.999072084763427_dbl_kind, 0.992680234416617_dbl_kind, 0.967907877771804_dbl_kind, 0.735502710332207_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,295) = (/ 0.999964603750008_dbl_kind, 0.999069399076776_dbl_kind, 0.992658432348036_dbl_kind, 0.967818212106928_dbl_kind, 0.735062353754568_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,296) = (/ 0.999964495874467_dbl_kind, 0.999066714033214_dbl_kind, 0.992636634093341_dbl_kind, 0.967728564530057_dbl_kind, 0.734623104525846_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,297) = (/ 0.999964388002423_dbl_kind, 0.999064029628926_dbl_kind, 0.992614839626247_dbl_kind, 0.967638935044674_dbl_kind, 0.734184958528296_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,298) = (/ 0.999964280133867_dbl_kind, 0.999061345860142_dbl_kind, 0.992593048920609_dbl_kind, 0.967549323654827_dbl_kind, 0.73374791167112_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,299) = (/ 0.999964172268795_dbl_kind, 0.999058662723133_dbl_kind, 0.992571261950436_dbl_kind, 0.967459730365108_dbl_kind, 0.733311959890207_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,300) = (/ 0.999964064407198_dbl_kind, 0.999055980214211_dbl_kind, 0.992549478689896_dbl_kind, 0.967370155180642_dbl_kind, 0.73287709914788_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,301) = (/ 0.999963956549068_dbl_kind, 0.999053298329732_dbl_kind, 0.992527699113315_dbl_kind, 0.967280598107071_dbl_kind, 0.732443325432642_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,302) = (/ 0.999963848694399_dbl_kind, 0.999050617066087_dbl_kind, 0.992505923195188_dbl_kind, 0.967191059150534_dbl_kind, 0.732010634758921_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,303) = (/ 0.999963740843182_dbl_kind, 0.999047936419713_dbl_kind, 0.992484150910185_dbl_kind, 0.967101538317655_dbl_kind, 0.731579023166839_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,304) = (/ 0.999963632995411_dbl_kind, 0.999045256387082_dbl_kind, 0.992462382233149_dbl_kind, 0.967012035615524_dbl_kind, 0.731148486721948_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,305) = (/ 0.999963525151079_dbl_kind, 0.999042576964706_dbl_kind, 0.992440617139105_dbl_kind, 0.966922551051685_dbl_kind, 0.730719021514996_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,306) = (/ 0.999963417310179_dbl_kind, 0.999039898149137_dbl_kind, 0.992418855603264_dbl_kind, 0.966833084634119_dbl_kind, 0.730290623661695_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,307) = (/ 0.999963309472703_dbl_kind, 0.999037219936961_dbl_kind, 0.992397097601025_dbl_kind, 0.966743636371225_dbl_kind, 0.729863289302474_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,308) = (/ 0.999963201638644_dbl_kind, 0.999034542324804_dbl_kind, 0.992375343107981_dbl_kind, 0.96665420627181_dbl_kind, 0.729437014602253_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,309) = (/ 0.999963093807998_dbl_kind, 0.999031865309331_dbl_kind, 0.99235359209992_dbl_kind, 0.966564794345074_dbl_kind, 0.729011795750206_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,310) = (/ 0.999962985980755_dbl_kind, 0.999029188887237_dbl_kind, 0.992331844552831_dbl_kind, 0.966475400600591_dbl_kind, 0.728587628959543_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,311) = (/ 0.999962878156912_dbl_kind, 0.999026513055258_dbl_kind, 0.992310100442905_dbl_kind, 0.9663860250483_dbl_kind, 0.72816451046727_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,312) = (/ 0.99996277033646_dbl_kind, 0.999023837810163_dbl_kind, 0.992288359746538_dbl_kind, 0.966296667698482_dbl_kind, 0.72774243653398_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,313) = (/ 0.999962662519396_dbl_kind, 0.999021163148757_dbl_kind, 0.992266622440334_dbl_kind, 0.966207328561758_dbl_kind, 0.727321403443617_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,314) = (/ 0.999962554705713_dbl_kind, 0.999018489067878_dbl_kind, 0.992244888501113_dbl_kind, 0.966118007649064_dbl_kind, 0.726901407503279_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,315) = (/ 0.999962446895407_dbl_kind, 0.999015815564399_dbl_kind, 0.9922231579059_dbl_kind, 0.966028704971642_dbl_kind, 0.726482445042978_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,316) = (/ 0.999962339088471_dbl_kind, 0.999013142635225_dbl_kind, 0.992201430631942_dbl_kind, 0.965939420541027_dbl_kind, 0.726064512415446_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,317) = (/ 0.999962231284902_dbl_kind, 0.999010470277296_dbl_kind, 0.992179706656701_dbl_kind, 0.965850154369033_dbl_kind, 0.725647605995917_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,318) = (/ 0.999962123484696_dbl_kind, 0.999007798487583_dbl_kind, 0.992157985957861_dbl_kind, 0.965760906467737_dbl_kind, 0.725231722181917_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,319) = (/ 0.999962015687849_dbl_kind, 0.999005127263089_dbl_kind, 0.992136268513324_dbl_kind, 0.965671676849472_dbl_kind, 0.724816857393056_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,320) = (/ 0.999961907894357_dbl_kind, 0.999002456600851_dbl_kind, 0.992114554301217_dbl_kind, 0.965582465526807_dbl_kind, 0.724403008070837_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,321) = (/ 0.999961800104216_dbl_kind, 0.998999786497934_dbl_kind, 0.992092843299891_dbl_kind, 0.96549327251254_dbl_kind, 0.723990170678434_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,322) = (/ 0.999961692317426_dbl_kind, 0.998997116951435_dbl_kind, 0.992071135487923_dbl_kind, 0.965404097819683_dbl_kind, 0.723578341700514_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,323) = (/ 0.999961584533981_dbl_kind, 0.998994447958484_dbl_kind, 0.992049430844116_dbl_kind, 0.965314941461452_dbl_kind, 0.723167517643023_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,324) = (/ 0.999961476753881_dbl_kind, 0.998991779516236_dbl_kind, 0.992027729347502_dbl_kind, 0.965225803451254_dbl_kind, 0.722757695033003_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,325) = (/ 0.999961368977124_dbl_kind, 0.998989111621882_dbl_kind, 0.992006030977341_dbl_kind, 0.965136683802672_dbl_kind, 0.722348870418393_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,326) = (/ 0.999961261203709_dbl_kind, 0.998986444272635_dbl_kind, 0.991984335713123_dbl_kind, 0.965047582529463_dbl_kind, 0.721941040367841_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,327) = (/ 0.999961153433634_dbl_kind, 0.998983777465745_dbl_kind, 0.991962643534569_dbl_kind, 0.964958499645535_dbl_kind, 0.721534201470513_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,328) = (/ 0.9999610456669_dbl_kind, 0.998981111198484_dbl_kind, 0.99194095442163_dbl_kind, 0.964869435164945_dbl_kind, 0.721128350335915_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,329) = (/ 0.999960937903506_dbl_kind, 0.998978445468155_dbl_kind, 0.991919268354488_dbl_kind, 0.964780389101881_dbl_kind, 0.720723483593696_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,330) = (/ 0.999960830143453_dbl_kind, 0.998975780272091_dbl_kind, 0.991897585313558_dbl_kind, 0.964691361470661_dbl_kind, 0.720319597893475_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,331) = (/ 0.999960722386741_dbl_kind, 0.998973115607647_dbl_kind, 0.991875905279484_dbl_kind, 0.964602352285714_dbl_kind, 0.719916689904664_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,332) = (/ 0.999960614633371_dbl_kind, 0.998970451472211_dbl_kind, 0.991854228233146_dbl_kind, 0.964513361561574_dbl_kind, 0.71951475631628_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,333) = (/ 0.999960506883345_dbl_kind, 0.998967787863196_dbl_kind, 0.991832554155653_dbl_kind, 0.96442438931287_dbl_kind, 0.719113793836775_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,334) = (/ 0.999960399136665_dbl_kind, 0.998965124778039_dbl_kind, 0.991810883028347_dbl_kind, 0.964335435554313_dbl_kind, 0.718713799193864_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,335) = (/ 0.999960291393335_dbl_kind, 0.998962462214207_dbl_kind, 0.991789214832802_dbl_kind, 0.964246500300693_dbl_kind, 0.718314769134348_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,336) = (/ 0.999960183653353_dbl_kind, 0.998959800169192_dbl_kind, 0.991767549550821_dbl_kind, 0.964157583566863_dbl_kind, 0.717916700423947_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,337) = (/ 0.999960075916728_dbl_kind, 0.998957138640512_dbl_kind, 0.991745887164442_dbl_kind, 0.964068685367738_dbl_kind, 0.717519589847129_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,338) = (/ 0.999959968183459_dbl_kind, 0.998954477625707_dbl_kind, 0.991724227655931_dbl_kind, 0.963979805718276_dbl_kind, 0.717123434206951_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,339) = (/ 0.999959860453553_dbl_kind, 0.998951817122349_dbl_kind, 0.991702571007785_dbl_kind, 0.963890944633479_dbl_kind, 0.716728230324885_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,340) = (/ 0.999959752727013_dbl_kind, 0.99894915712803_dbl_kind, 0.99168091720273_dbl_kind, 0.96380210212838_dbl_kind, 0.716333975040659_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,341) = (/ 0.999959645003845_dbl_kind, 0.998946497640366_dbl_kind, 0.991659266223722_dbl_kind, 0.963713278218035_dbl_kind, 0.715940665212101_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,342) = (/ 0.999959537284051_dbl_kind, 0.998943838657002_dbl_kind, 0.991637618053944_dbl_kind, 0.963624472917518_dbl_kind, 0.715548297714972_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,343) = (/ 0.999959429567642_dbl_kind, 0.998941180175604_dbl_kind, 0.991615972676807_dbl_kind, 0.963535686241909_dbl_kind, 0.715156869442815_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,344) = (/ 0.999959321854618_dbl_kind, 0.998938522193861_dbl_kind, 0.991594330075947_dbl_kind, 0.963446918206291_dbl_kind, 0.714766377306795_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,345) = (/ 0.99995921414499_dbl_kind, 0.998935864709489_dbl_kind, 0.991572690235228_dbl_kind, 0.96335816882574_dbl_kind, 0.714376818235549_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,346) = (/ 0.999959106438762_dbl_kind, 0.998933207720225_dbl_kind, 0.991551053138739_dbl_kind, 0.963269438115317_dbl_kind, 0.713988189175036_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,347) = (/ 0.999958998735943_dbl_kind, 0.998930551223832_dbl_kind, 0.991529418770787_dbl_kind, 0.963180726090067_dbl_kind, 0.713600487088373_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,348) = (/ 0.999958891036538_dbl_kind, 0.998927895218092_dbl_kind, 0.991507787115909_dbl_kind, 0.963092032765007_dbl_kind, 0.713213708955704_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,349) = (/ 0.999958783340558_dbl_kind, 0.998925239700814_dbl_kind, 0.991486158158857_dbl_kind, 0.963003358155116_dbl_kind, 0.712827851774046_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,350) = (/ 0.999958675648008_dbl_kind, 0.998922584669828_dbl_kind, 0.991464531884606_dbl_kind, 0.962914702275344_dbl_kind, 0.712442912557137_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,351) = (/ 0.999958567958898_dbl_kind, 0.998919930122985_dbl_kind, 0.991442908278348_dbl_kind, 0.962826065140586_dbl_kind, 0.7120588883353_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,352) = (/ 0.999958460273238_dbl_kind, 0.998917276058161_dbl_kind, 0.991421287325496_dbl_kind, 0.962737446765693_dbl_kind, 0.711675776155301_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,353) = (/ 0.999958352591035_dbl_kind, 0.998914622473254_dbl_kind, 0.991399669011674_dbl_kind, 0.962648847165456_dbl_kind, 0.711293573080206_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,354) = (/ 0.999958244912299_dbl_kind, 0.99891196936618_dbl_kind, 0.991378053322726_dbl_kind, 0.962560266354603_dbl_kind, 0.710912276189237_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,355) = (/ 0.99995813723704_dbl_kind, 0.998909316734883_dbl_kind, 0.991356440244704_dbl_kind, 0.9624717043478_dbl_kind, 0.710531882577642_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,356) = (/ 0.999958029565269_dbl_kind, 0.998906664577323_dbl_kind, 0.991334829763875_dbl_kind, 0.962383161159634_dbl_kind, 0.710152389356557_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,357) = (/ 0.999957921896995_dbl_kind, 0.998904012891485_dbl_kind, 0.991313221866715_dbl_kind, 0.962294636804622_dbl_kind, 0.70977379365287_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,358) = (/ 0.999957814232228_dbl_kind, 0.998901361675374_dbl_kind, 0.99129161653991_dbl_kind, 0.962206131297193_dbl_kind, 0.709396092609089_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,359) = (/ 0.999957706570981_dbl_kind, 0.998898710927016_dbl_kind, 0.991270013770352_dbl_kind, 0.962117644651695_dbl_kind, 0.709019283383208_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,360) = (/ 0.999957598913265_dbl_kind, 0.998896060644459_dbl_kind, 0.991248413545137_dbl_kind, 0.962029176882381_dbl_kind, 0.708643363148576_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,361) = (/ 0.99995749125909_dbl_kind, 0.998893410825771_dbl_kind, 0.991226815851568_dbl_kind, 0.961940728003411_dbl_kind, 0.708268329093777_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,362) = (/ 0.999957383608467_dbl_kind, 0.998890761469041_dbl_kind, 0.991205220677148_dbl_kind, 0.961852298028847_dbl_kind, 0.707894178422491_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,363) = (/ 0.99995727596141_dbl_kind, 0.998888112572378_dbl_kind, 0.991183628009581_dbl_kind, 0.961763886972647_dbl_kind, 0.707520908353374_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,364) = (/ 0.999957168317931_dbl_kind, 0.998885464133912_dbl_kind, 0.991162037836771_dbl_kind, 0.961675494848664_dbl_kind, 0.707148516119934_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,365) = (/ 0.999957060678042_dbl_kind, 0.998882816151794_dbl_kind, 0.991140450146816_dbl_kind, 0.961587121670639_dbl_kind, 0.706776998970409_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,366) = (/ 0.999956953041754_dbl_kind, 0.998880168624194_dbl_kind, 0.991118864928011_dbl_kind, 0.961498767452203_dbl_kind, 0.70640635416763_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,367) = (/ 0.999956845409082_dbl_kind, 0.998877521549302_dbl_kind, 0.991097282168846_dbl_kind, 0.961410432206867_dbl_kind, 0.706036578988929_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,368) = (/ 0.999956737780037_dbl_kind, 0.998874874925329_dbl_kind, 0.991075701858001_dbl_kind, 0.961322115948024_dbl_kind, 0.705667670725991_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,369) = (/ 0.999956630154634_dbl_kind, 0.998872228750506_dbl_kind, 0.991054123984344_dbl_kind, 0.961233818688945_dbl_kind, 0.705299626684752_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,370) = (/ 0.999956522532885_dbl_kind, 0.998869583023082_dbl_kind, 0.991032548536935_dbl_kind, 0.961145540442774_dbl_kind, 0.704932444185278_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,371) = (/ 0.999956414914804_dbl_kind, 0.998866937741327_dbl_kind, 0.991010975505017_dbl_kind, 0.96105728122253_dbl_kind, 0.704566120561651_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,372) = (/ 0.999956307300405_dbl_kind, 0.99886429290353_dbl_kind, 0.990989404878019_dbl_kind, 0.9609690410411_dbl_kind, 0.704200653161853_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,373) = (/ 0.999956199689701_dbl_kind, 0.998861648508_dbl_kind, 0.990967836645552_dbl_kind, 0.960880819911236_dbl_kind, 0.703836039347651_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,374) = (/ 0.999956092082707_dbl_kind, 0.998859004553065_dbl_kind, 0.990946270797406_dbl_kind, 0.960792617845557_dbl_kind, 0.703472276494487_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,375) = (/ 0.999955984479435_dbl_kind, 0.99885636103707_dbl_kind, 0.990924707323553_dbl_kind, 0.960704434856545_dbl_kind, 0.703109361991374_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,376) = (/ 0.999955876879901_dbl_kind, 0.998853717958384_dbl_kind, 0.990903146214137_dbl_kind, 0.960616270956543_dbl_kind, 0.702747293240771_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,377) = (/ 0.999955769284118_dbl_kind, 0.998851075315391_dbl_kind, 0.990881587459482_dbl_kind, 0.960528126157753_dbl_kind, 0.702386067658494_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,378) = (/ 0.999955661692101_dbl_kind, 0.998848433106493_dbl_kind, 0.990860031050081_dbl_kind, 0.960440000472231_dbl_kind, 0.702025682673589_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,379) = (/ 0.999955554103865_dbl_kind, 0.998845791330115_dbl_kind, 0.990838476976601_dbl_kind, 0.960351893911894_dbl_kind, 0.701666135728239_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,380) = (/ 0.999955446519423_dbl_kind, 0.998843149984698_dbl_kind, 0.990816925229875_dbl_kind, 0.960263806488507_dbl_kind, 0.70130742427766_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,381) = (/ 0.999955338938791_dbl_kind, 0.998840509068703_dbl_kind, 0.990795375800904_dbl_kind, 0.960175738213694_dbl_kind, 0.700949545789984_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,382) = (/ 0.999955231361983_dbl_kind, 0.998837868580605_dbl_kind, 0.990773828680856_dbl_kind, 0.960087689098924_dbl_kind, 0.700592497746175_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,383) = (/ 0.999955123789014_dbl_kind, 0.998835228518906_dbl_kind, 0.990752283861062_dbl_kind, 0.959999659155521_dbl_kind, 0.700236277639905_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,384) = (/ 0.999955016219898_dbl_kind, 0.998832588882118_dbl_kind, 0.990730741333011_dbl_kind, 0.959911648394655_dbl_kind, 0.699880882977482_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,385) = (/ 0.99995490865465_dbl_kind, 0.998829949668776_dbl_kind, 0.990709201088356_dbl_kind, 0.959823656827347_dbl_kind, 0.699526311277718_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,386) = (/ 0.999954801093284_dbl_kind, 0.99882731087743_dbl_kind, 0.990687663118904_dbl_kind, 0.959735684464461_dbl_kind, 0.699172560071856_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,387) = (/ 0.999954693535816_dbl_kind, 0.998824672506653_dbl_kind, 0.990666127416619_dbl_kind, 0.959647731316712_dbl_kind, 0.698819626903462_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,388) = (/ 0.99995458598226_dbl_kind, 0.998822034555031_dbl_kind, 0.990644593973619_dbl_kind, 0.959559797394656_dbl_kind, 0.698467509328324_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,389) = (/ 0.999954478432632_dbl_kind, 0.99881939702117_dbl_kind, 0.990623062782172_dbl_kind, 0.959471882708699_dbl_kind, 0.698116204914369_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,390) = (/ 0.999954370886945_dbl_kind, 0.998816759903694_dbl_kind, 0.990601533834698_dbl_kind, 0.959383987269087_dbl_kind, 0.697765711241559_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,391) = (/ 0.999954263345215_dbl_kind, 0.998814123201244_dbl_kind, 0.990580007123762_dbl_kind, 0.959296111085913_dbl_kind, 0.6974160259018_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,392) = (/ 0.999954155807456_dbl_kind, 0.998811486912481_dbl_kind, 0.990558482642079_dbl_kind, 0.959208254169113_dbl_kind, 0.69706714649885_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,393) = (/ 0.999954048273683_dbl_kind, 0.99880885103608_dbl_kind, 0.990536960382504_dbl_kind, 0.959120416528467_dbl_kind, 0.696719070648225_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,394) = (/ 0.99995394074391_dbl_kind, 0.998806215570736_dbl_kind, 0.990515440338036_dbl_kind, 0.959032598173596_dbl_kind, 0.696371795977111_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,395) = (/ 0.999953833218153_dbl_kind, 0.998803580515161_dbl_kind, 0.990493922501814_dbl_kind, 0.958944799113967_dbl_kind, 0.696025320124275_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,396) = (/ 0.999953725696424_dbl_kind, 0.998800945868083_dbl_kind, 0.990472406867115_dbl_kind, 0.958857019358889_dbl_kind, 0.695679640739975_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,397) = (/ 0.99995361817874_dbl_kind, 0.998798311628251_dbl_kind, 0.990450893427352_dbl_kind, 0.958769258917514_dbl_kind, 0.695334755485868_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,398) = (/ 0.999953510665114_dbl_kind, 0.998795677794427_dbl_kind, 0.990429382176076_dbl_kind, 0.958681517798837_dbl_kind, 0.694990662034932_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,399) = (/ 0.99995340315556_dbl_kind, 0.998793044365392_dbl_kind, 0.990407873106965_dbl_kind, 0.958593796011698_dbl_kind, 0.694647358071366_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,400) = (/ 0.999953295650093_dbl_kind, 0.998790411339944_dbl_kind, 0.990386366213831_dbl_kind, 0.958506093564779_dbl_kind, 0.694304841290526_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,401) = (/ 0.999953188148727_dbl_kind, 0.998787778716899_dbl_kind, 0.990364861490617_dbl_kind, 0.958418410466606_dbl_kind, 0.693963109398813_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,402) = (/ 0.999953080651475_dbl_kind, 0.998785146495088_dbl_kind, 0.990343358931389_dbl_kind, 0.958330746725551_dbl_kind, 0.693622160113616_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,403) = (/ 0.999952973158352_dbl_kind, 0.99878251467336_dbl_kind, 0.990321858530341_dbl_kind, 0.95824310234983_dbl_kind, 0.693281991163213_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,404) = (/ 0.999952865669371_dbl_kind, 0.99877988325058_dbl_kind, 0.99030036028179_dbl_kind, 0.958155477347502_dbl_kind, 0.692942600286692_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,405) = (/ 0.999952758184546_dbl_kind, 0.998777252225631_dbl_kind, 0.990278864180174_dbl_kind, 0.958067871726477_dbl_kind, 0.692603985233871_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,406) = (/ 0.999952650703889_dbl_kind, 0.998774621597412_dbl_kind, 0.990257370220052_dbl_kind, 0.957980285494506_dbl_kind, 0.692266143765224_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,407) = (/ 0.999952543227416_dbl_kind, 0.998771991364839_dbl_kind, 0.990235878396101_dbl_kind, 0.957892718659189_dbl_kind, 0.691929073651788_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,408) = (/ 0.999952435755139_dbl_kind, 0.998769361526841_dbl_kind, 0.990214388703113_dbl_kind, 0.957805171227974_dbl_kind, 0.691592772675096_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,409) = (/ 0.99995232828707_dbl_kind, 0.998766732082369_dbl_kind, 0.990192901135996_dbl_kind, 0.957717643208158_dbl_kind, 0.691257238627094_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,410) = (/ 0.999952220823223_dbl_kind, 0.998764103030387_dbl_kind, 0.990171415689771_dbl_kind, 0.957630134606886_dbl_kind, 0.690922469310066_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,411) = (/ 0.99995211336361_dbl_kind, 0.998761474369874_dbl_kind, 0.99014993235957_dbl_kind, 0.957542645431154_dbl_kind, 0.690588462536552_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,412) = (/ 0.999952005908245_dbl_kind, 0.998758846099829_dbl_kind, 0.990128451140632_dbl_kind, 0.957455175687807_dbl_kind, 0.690255216129282_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,413) = (/ 0.999951898457138_dbl_kind, 0.998756218219264_dbl_kind, 0.990106972028307_dbl_kind, 0.957367725383545_dbl_kind, 0.689922727921095_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,414) = (/ 0.999951791010304_dbl_kind, 0.998753590727209_dbl_kind, 0.990085495018051_dbl_kind, 0.957280294524918_dbl_kind, 0.68959099575486_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,415) = (/ 0.999951683567752_dbl_kind, 0.998750963622708_dbl_kind, 0.990064020105422_dbl_kind, 0.95719288311833_dbl_kind, 0.689260017483413_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,416) = (/ 0.999951576129496_dbl_kind, 0.998748336904822_dbl_kind, 0.990042547286081_dbl_kind, 0.957105491170043_dbl_kind, 0.688929790969478_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,417) = (/ 0.999951468695548_dbl_kind, 0.998745710572626_dbl_kind, 0.990021076555793_dbl_kind, 0.957018118686168_dbl_kind, 0.688600314085596_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,418) = (/ 0.999951361265918_dbl_kind, 0.998743084625214_dbl_kind, 0.989999607910418_dbl_kind, 0.95693076567268_dbl_kind, 0.688271584714053_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,419) = (/ 0.999951253840618_dbl_kind, 0.998740459061692_dbl_kind, 0.989978141345918_dbl_kind, 0.956843432135409_dbl_kind, 0.687943600746813_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,420) = (/ 0.999951146419659_dbl_kind, 0.998737833881185_dbl_kind, 0.989956676858348_dbl_kind, 0.956756118080043_dbl_kind, 0.687616360085439_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,421) = (/ 0.999951039003052_dbl_kind, 0.99873520908283_dbl_kind, 0.98993521444386_dbl_kind, 0.956668823512132_dbl_kind, 0.687289860641037_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,422) = (/ 0.999950931590806_dbl_kind, 0.998732584665781_dbl_kind, 0.989913754098696_dbl_kind, 0.956581548437088_dbl_kind, 0.686964100334175_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,423) = (/ 0.999950824182934_dbl_kind, 0.998729960629208_dbl_kind, 0.989892295819192_dbl_kind, 0.956494292860183_dbl_kind, 0.686639077094818_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,424) = (/ 0.999950716779445_dbl_kind, 0.998727336972293_dbl_kind, 0.989870839601773_dbl_kind, 0.956407056786556_dbl_kind, 0.68631478886227_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,425) = (/ 0.999950609380349_dbl_kind, 0.998724713694239_dbl_kind, 0.989849385442952_dbl_kind, 0.95631984022121_dbl_kind, 0.685991233585093_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,426) = (/ 0.999950501985655_dbl_kind, 0.998722090794256_dbl_kind, 0.989827933339329_dbl_kind, 0.956232643169014_dbl_kind, 0.685668409221052_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,427) = (/ 0.999950394595374_dbl_kind, 0.998719468271576_dbl_kind, 0.989806483287592_dbl_kind, 0.956145465634706_dbl_kind, 0.685346313737042_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,428) = (/ 0.999950287209515_dbl_kind, 0.998716846125443_dbl_kind, 0.989785035284508_dbl_kind, 0.956058307622892_dbl_kind, 0.685024945109027_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,429) = (/ 0.999950179828087_dbl_kind, 0.998714224355113_dbl_kind, 0.98976358932693_dbl_kind, 0.95597116913805_dbl_kind, 0.684704301321977_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,430) = (/ 0.999950072451098_dbl_kind, 0.998711602959862_dbl_kind, 0.989742145411789_dbl_kind, 0.955884050184527_dbl_kind, 0.684384380369798_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,431) = (/ 0.999949965078558_dbl_kind, 0.998708981938976_dbl_kind, 0.989720703536097_dbl_kind, 0.955796950766549_dbl_kind, 0.684065180255278_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,432) = (/ 0.999949857710473_dbl_kind, 0.998706361291757_dbl_kind, 0.989699263696947_dbl_kind, 0.95570987088821_dbl_kind, 0.683746698990015_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,433) = (/ 0.999949750346854_dbl_kind, 0.998703741017523_dbl_kind, 0.989677825891503_dbl_kind, 0.955622810553486_dbl_kind, 0.683428934594363_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,434) = (/ 0.999949642987707_dbl_kind, 0.998701121115604_dbl_kind, 0.989656390117008_dbl_kind, 0.955535769766225_dbl_kind, 0.683111885097366_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,435) = (/ 0.999949535633041_dbl_kind, 0.998698501585343_dbl_kind, 0.989634956370778_dbl_kind, 0.955448748530158_dbl_kind, 0.682795548536699_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,436) = (/ 0.999949428282862_dbl_kind, 0.998695882426102_dbl_kind, 0.989613524650201_dbl_kind, 0.955361746848895_dbl_kind, 0.682479922958606_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,437) = (/ 0.999949320937178_dbl_kind, 0.998693263637251_dbl_kind, 0.989592094952736_dbl_kind, 0.955274764725927_dbl_kind, 0.682165006417844_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,438) = (/ 0.999949213595996_dbl_kind, 0.998690645218178_dbl_kind, 0.989570667275913_dbl_kind, 0.955187802164632_dbl_kind, 0.681850796977617_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,439) = (/ 0.999949106259322_dbl_kind, 0.998688027168283_dbl_kind, 0.98954924161733_dbl_kind, 0.955100859168267_dbl_kind, 0.681537292709525_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,440) = (/ 0.999948998927162_dbl_kind, 0.998685409486981_dbl_kind, 0.989527817974651_dbl_kind, 0.95501393573998_dbl_kind, 0.681224491693502_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,441) = (/ 0.999948891599524_dbl_kind, 0.998682792173698_dbl_kind, 0.989506396345607_dbl_kind, 0.954927031882804_dbl_kind, 0.680912392017759_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,442) = (/ 0.999948784276412_dbl_kind, 0.998680175227876_dbl_kind, 0.989484976727993_dbl_kind, 0.954840147599664_dbl_kind, 0.680600991778727_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,443) = (/ 0.999948676957833_dbl_kind, 0.998677558648969_dbl_kind, 0.989463559119668_dbl_kind, 0.954753282893373_dbl_kind, 0.680290289081003_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,444) = (/ 0.999948569643791_dbl_kind, 0.998674942436445_dbl_kind, 0.989442143518554_dbl_kind, 0.954666437766636_dbl_kind, 0.679980282037283_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,445) = (/ 0.999948462334292_dbl_kind, 0.998672326589784_dbl_kind, 0.989420729922631_dbl_kind, 0.954579612222056_dbl_kind, 0.679670968768326_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,446) = (/ 0.999948355029342_dbl_kind, 0.998669711108481_dbl_kind, 0.989399318329942_dbl_kind, 0.954492806262123_dbl_kind, 0.67936234740288_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,447) = (/ 0.999948247728942_dbl_kind, 0.99866709599204_dbl_kind, 0.989377908738586_dbl_kind, 0.954406019889235_dbl_kind, 0.679054416077639_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,448) = (/ 0.9999481404331_dbl_kind, 0.998664481239984_dbl_kind, 0.989356501146721_dbl_kind, 0.954319253105679_dbl_kind, 0.678747172937182_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,449) = (/ 0.999948033141818_dbl_kind, 0.998661866851844_dbl_kind, 0.98933509555256_dbl_kind, 0.954232505913643_dbl_kind, 0.678440616133927_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,450) = (/ 0.999947925855101_dbl_kind, 0.998659252827163_dbl_kind, 0.989313691954371_dbl_kind, 0.95414577831522_dbl_kind, 0.678134743828069_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,451) = (/ 0.999947818572952_dbl_kind, 0.998656639165501_dbl_kind, 0.989292290350477_dbl_kind, 0.954059070312403_dbl_kind, 0.677829554187536_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,452) = (/ 0.999947711295374_dbl_kind, 0.998654025866426_dbl_kind, 0.989270890739253_dbl_kind, 0.95397238190709_dbl_kind, 0.67752504538793_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,453) = (/ 0.99994760402237_dbl_kind, 0.998651412929521_dbl_kind, 0.989249493119125_dbl_kind, 0.953885713101084_dbl_kind, 0.677221215612479_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,454) = (/ 0.999947496753943_dbl_kind, 0.99864880035438_dbl_kind, 0.98922809748857_dbl_kind, 0.953799063896095_dbl_kind, 0.676918063051985_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,455) = (/ 0.999947389490097_dbl_kind, 0.998646188140609_dbl_kind, 0.989206703846116_dbl_kind, 0.953712434293743_dbl_kind, 0.67661558590477_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,456) = (/ 0.999947282230831_dbl_kind, 0.998643576287827_dbl_kind, 0.989185312190337_dbl_kind, 0.953625824295555_dbl_kind, 0.676313782376632_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,457) = (/ 0.99994717497615_dbl_kind, 0.998640964795663_dbl_kind, 0.989163922519856_dbl_kind, 0.953539233902974_dbl_kind, 0.67601265068079_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,458) = (/ 0.999947067726054_dbl_kind, 0.998638353663759_dbl_kind, 0.98914253483334_dbl_kind, 0.953452663117354_dbl_kind, 0.675712189037837_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,459) = (/ 0.999946960480545_dbl_kind, 0.99863574289177_dbl_kind, 0.989121149129507_dbl_kind, 0.95336611193996_dbl_kind, 0.675412395675687_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,460) = (/ 0.999946853239624_dbl_kind, 0.99863313247936_dbl_kind, 0.989099765407112_dbl_kind, 0.953279580371981_dbl_kind, 0.675113268829531_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,461) = (/ 0.999946746003293_dbl_kind, 0.998630522426205_dbl_kind, 0.989078383664957_dbl_kind, 0.953193068414514_dbl_kind, 0.67481480674179_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,462) = (/ 0.999946638771552_dbl_kind, 0.998627912731993_dbl_kind, 0.989057003901887_dbl_kind, 0.953106576068581_dbl_kind, 0.674517007662057_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,463) = (/ 0.9999465315444_dbl_kind, 0.998625303396423_dbl_kind, 0.989035626116787_dbl_kind, 0.953020103335124_dbl_kind, 0.674219869847063_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,464) = (/ 0.99994642432184_dbl_kind, 0.998622694419205_dbl_kind, 0.989014250308583_dbl_kind, 0.952933650215003_dbl_kind, 0.67392339156062_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,465) = (/ 0.99994631710387_dbl_kind, 0.998620085800061_dbl_kind, 0.98899287647624_dbl_kind, 0.952847216709003_dbl_kind, 0.673627571073579_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,466) = (/ 0.99994620989049_dbl_kind, 0.998617477538719_dbl_kind, 0.988971504618764_dbl_kind, 0.952760802817836_dbl_kind, 0.673332406663782_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,467) = (/ 0.9999461026817_dbl_kind, 0.998614869634927_dbl_kind, 0.988950134735193_dbl_kind, 0.952674408542136_dbl_kind, 0.673037896616018_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,468) = (/ 0.999945995477499_dbl_kind, 0.998612262088434_dbl_kind, 0.988928766824609_dbl_kind, 0.952588033882466_dbl_kind, 0.672744039221976_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,469) = (/ 0.999945888277886_dbl_kind, 0.998609654899005_dbl_kind, 0.988907400886124_dbl_kind, 0.952501678839317_dbl_kind, 0.672450832780201_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,470) = (/ 0.999945781082858_dbl_kind, 0.998607048066414_dbl_kind, 0.988886036918888_dbl_kind, 0.952415343413111_dbl_kind, 0.672158275596044_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,471) = (/ 0.999945673892417_dbl_kind, 0.998604441590445_dbl_kind, 0.988864674922085_dbl_kind, 0.952329027604202_dbl_kind, 0.671866365981628_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,472) = (/ 0.999945566706558_dbl_kind, 0.998601835470892_dbl_kind, 0.988843314894931_dbl_kind, 0.952242731412873_dbl_kind, 0.671575102255794_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,473) = (/ 0.999945459525281_dbl_kind, 0.99859922970756_dbl_kind, 0.988821956836676_dbl_kind, 0.952156454839346_dbl_kind, 0.671284482744067_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,474) = (/ 0.999945352348583_dbl_kind, 0.998596624300263_dbl_kind, 0.988800600746601_dbl_kind, 0.952070197883774_dbl_kind, 0.670994505778599_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,475) = (/ 0.99994524517646_dbl_kind, 0.998594019248825_dbl_kind, 0.988779246624018_dbl_kind, 0.951983960546248_dbl_kind, 0.670705169698142_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,476) = (/ 0.999945138008912_dbl_kind, 0.99859141455308_dbl_kind, 0.988757894468269_dbl_kind, 0.951897742826798_dbl_kind, 0.670416472847994_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,477) = (/ 0.999945030845935_dbl_kind, 0.998588810212872_dbl_kind, 0.988736544278726_dbl_kind, 0.951811544725392_dbl_kind, 0.670128413579963_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,478) = (/ 0.999944923687525_dbl_kind, 0.998586206228052_dbl_kind, 0.988715196054788_dbl_kind, 0.95172536624194_dbl_kind, 0.669840990252318_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,479) = (/ 0.999944816533679_dbl_kind, 0.998583602598484_dbl_kind, 0.988693849795883_dbl_kind, 0.951639207376292_dbl_kind, 0.669554201229763_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,480) = (/ 0.999944709384394_dbl_kind, 0.998580999324039_dbl_kind, 0.988672505501466_dbl_kind, 0.951553068128241_dbl_kind, 0.669268044883371_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,481) = (/ 0.999944602239666_dbl_kind, 0.998578396404596_dbl_kind, 0.988651163171019_dbl_kind, 0.951466948497526_dbl_kind, 0.668982519590568_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,482) = (/ 0.99994449509949_dbl_kind, 0.998575793840046_dbl_kind, 0.988629822804048_dbl_kind, 0.95138084848383_dbl_kind, 0.66869762373508_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,483) = (/ 0.999944387963862_dbl_kind, 0.998573191630288_dbl_kind, 0.988608484400084_dbl_kind, 0.951294768086782_dbl_kind, 0.668413355706891_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,484) = (/ 0.999944280832779_dbl_kind, 0.998570589775226_dbl_kind, 0.988587147958685_dbl_kind, 0.951208707305961_dbl_kind, 0.668129713902213_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,485) = (/ 0.999944173706234_dbl_kind, 0.998567988274777_dbl_kind, 0.988565813479428_dbl_kind, 0.951122666140892_dbl_kind, 0.667846696723433_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,486) = (/ 0.999944066584223_dbl_kind, 0.998565387128866_dbl_kind, 0.988544480961917_dbl_kind, 0.951036644591053_dbl_kind, 0.667564302579089_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,487) = (/ 0.99994395946674_dbl_kind, 0.998562786337425_dbl_kind, 0.988523150405777_dbl_kind, 0.950950642655872_dbl_kind, 0.667282529883816_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,488) = (/ 0.999943852353782_dbl_kind, 0.998560185900395_dbl_kind, 0.988501821810653_dbl_kind, 0.950864660334729_dbl_kind, 0.667001377058323_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,489) = (/ 0.999943745245341_dbl_kind, 0.998557585817724_dbl_kind, 0.988480495176213_dbl_kind, 0.95077869762696_dbl_kind, 0.66672084252934_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,490) = (/ 0.999943638141412_dbl_kind, 0.99855498608937_dbl_kind, 0.988459170502143_dbl_kind, 0.95069275453185_dbl_kind, 0.666440924729589_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,491) = (/ 0.999943531041989_dbl_kind, 0.998552386715297_dbl_kind, 0.988437847788152_dbl_kind, 0.950606831048647_dbl_kind, 0.666161622097745_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,492) = (/ 0.999943423947066_dbl_kind, 0.998549787695478_dbl_kind, 0.988416527033964_dbl_kind, 0.950520927176552_dbl_kind, 0.665882933078396_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,493) = (/ 0.999943316856637_dbl_kind, 0.998547189029894_dbl_kind, 0.988395208239325_dbl_kind, 0.950435042914722_dbl_kind, 0.665604856122011_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,494) = (/ 0.999943209770694_dbl_kind, 0.998544590718532_dbl_kind, 0.988373891403997_dbl_kind, 0.950349178262278_dbl_kind, 0.665327389684893_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,495) = (/ 0.999943102689231_dbl_kind, 0.998541992761388_dbl_kind, 0.988352576527759_dbl_kind, 0.950263333218296_dbl_kind, 0.665050532229159_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,496) = (/ 0.999942995612242_dbl_kind, 0.998539395158464_dbl_kind, 0.988331263610409_dbl_kind, 0.950177507781817_dbl_kind, 0.664774282222687_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,497) = (/ 0.999942888539718_dbl_kind, 0.998536797909772_dbl_kind, 0.988309952651759_dbl_kind, 0.950091701951841_dbl_kind, 0.664498638139091_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,498) = (/ 0.999942781471652_dbl_kind, 0.998534201015326_dbl_kind, 0.988288643651637_dbl_kind, 0.950005915727334_dbl_kind, 0.664223598457681_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,499) = (/ 0.999942674408038_dbl_kind, 0.998531604475151_dbl_kind, 0.988267336609887_dbl_kind, 0.949920149107222_dbl_kind, 0.663949161663427_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,500) = (/ 0.999942567348866_dbl_kind, 0.998529008289279_dbl_kind, 0.988246031526367_dbl_kind, 0.949834402090399_dbl_kind, 0.663675326246929_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,501) = (/ 0.999942460294131_dbl_kind, 0.998526412457747_dbl_kind, 0.988224728400949_dbl_kind, 0.949748674675725_dbl_kind, 0.663402090704375_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,502) = (/ 0.999942353243823_dbl_kind, 0.998523816980599_dbl_kind, 0.988203427233518_dbl_kind, 0.949662966862027_dbl_kind, 0.663129453537516_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,503) = (/ 0.999942246197933_dbl_kind, 0.998521221857886_dbl_kind, 0.988182128023974_dbl_kind, 0.949577278648096_dbl_kind, 0.662857413253619_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,504) = (/ 0.999942139156455_dbl_kind, 0.998518627089666_dbl_kind, 0.988160830772228_dbl_kind, 0.949491610032698_dbl_kind, 0.662585968365445_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,505) = (/ 0.999942032119378_dbl_kind, 0.998516032676001_dbl_kind, 0.988139535478203_dbl_kind, 0.949405961014562_dbl_kind, 0.662315117391211_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,506) = (/ 0.999941925086694_dbl_kind, 0.998513438616962_dbl_kind, 0.988118242141834_dbl_kind, 0.949320331592391_dbl_kind, 0.662044858854551_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,507) = (/ 0.999941818058395_dbl_kind, 0.998510844912623_dbl_kind, 0.988096950763067_dbl_kind, 0.949234721764861_dbl_kind, 0.661775191284497_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,508) = (/ 0.999941711034471_dbl_kind, 0.998508251563068_dbl_kind, 0.988075661341861_dbl_kind, 0.949149131530616_dbl_kind, 0.661506113215427_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,509) = (/ 0.999941604014913_dbl_kind, 0.998505658568383_dbl_kind, 0.98805437387818_dbl_kind, 0.949063560888275_dbl_kind, 0.661237623187047_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,510) = (/ 0.999941496999712_dbl_kind, 0.998503065928662_dbl_kind, 0.988033088372003_dbl_kind, 0.948978009836433_dbl_kind, 0.660969719744358_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,511) = (/ 0.999941389988858_dbl_kind, 0.998500473644004_dbl_kind, 0.988011804823316_dbl_kind, 0.948892478373654_dbl_kind, 0.660702401437612_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,512) = (/ 0.999941282982341_dbl_kind, 0.998497881714513_dbl_kind, 0.987990523232114_dbl_kind, 0.948806966498485_dbl_kind, 0.660435666822298_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,513) = (/ 0.999941175980153_dbl_kind, 0.998495290140299_dbl_kind, 0.987969243598401_dbl_kind, 0.948721474209442_dbl_kind, 0.660169514459088_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,514) = (/ 0.999941068982281_dbl_kind, 0.998492698921478_dbl_kind, 0.987947965922189_dbl_kind, 0.948636001505021_dbl_kind, 0.659903942913831_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,515) = (/ 0.999940961988718_dbl_kind, 0.998490108058169_dbl_kind, 0.987926690203499_dbl_kind, 0.948550548383698_dbl_kind, 0.6596389507575_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,516) = (/ 0.999940854999452_dbl_kind, 0.998487517550498_dbl_kind, 0.987905416442357_dbl_kind, 0.948465114843923_dbl_kind, 0.659374536566173_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,517) = (/ 0.999940748014472_dbl_kind, 0.998484927398596_dbl_kind, 0.987884144638797_dbl_kind, 0.94837970088413_dbl_kind, 0.659110698921002_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,518) = (/ 0.999940641033769_dbl_kind, 0.998482337602596_dbl_kind, 0.987862874792862_dbl_kind, 0.948294306502728_dbl_kind, 0.658847436408173_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,519) = (/ 0.999940534057332_dbl_kind, 0.998479748162641_dbl_kind, 0.987841606904596_dbl_kind, 0.94820893169811_dbl_kind, 0.658584747618891_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,520) = (/ 0.999940427085149_dbl_kind, 0.998477159078874_dbl_kind, 0.987820340974054_dbl_kind, 0.948123576468649_dbl_kind, 0.658322631149335_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,521) = (/ 0.99994032011721_dbl_kind, 0.998474570351445_dbl_kind, 0.987799077001295_dbl_kind, 0.9480382408127_dbl_kind, 0.658061085600641_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,522) = (/ 0.999940213153505_dbl_kind, 0.998471981980506_dbl_kind, 0.98777781498638_dbl_kind, 0.9479529247286_dbl_kind, 0.657800109578862_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,523) = (/ 0.999940106194022_dbl_kind, 0.998469393966217_dbl_kind, 0.987756554929381_dbl_kind, 0.947867628214672_dbl_kind, 0.657539701694945_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,524) = (/ 0.999939999238749_dbl_kind, 0.998466806308739_dbl_kind, 0.98773529683037_dbl_kind, 0.947782351269218_dbl_kind, 0.657279860564699_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,525) = (/ 0.999939892287675_dbl_kind, 0.998464219008239_dbl_kind, 0.987714040689423_dbl_kind, 0.947697093890529_dbl_kind, 0.65702058480877_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,526) = (/ 0.999939785340789_dbl_kind, 0.998461632064886_dbl_kind, 0.987692786506623_dbl_kind, 0.947611856076879_dbl_kind, 0.65676187305261_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,527) = (/ 0.999939678398079_dbl_kind, 0.998459045478855_dbl_kind, 0.987671534282054_dbl_kind, 0.947526637826529_dbl_kind, 0.656503723926443_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,528) = (/ 0.999939571459534_dbl_kind, 0.998456459250326_dbl_kind, 0.987650284015804_dbl_kind, 0.947441439137725_dbl_kind, 0.656246136065247_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,529) = (/ 0.999939464525141_dbl_kind, 0.998453873379478_dbl_kind, 0.987629035707964_dbl_kind, 0.947356260008699_dbl_kind, 0.655989108108722_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,530) = (/ 0.999939357594889_dbl_kind, 0.998451287866497_dbl_kind, 0.987607789358629_dbl_kind, 0.947271100437671_dbl_kind, 0.655732638701258_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,531) = (/ 0.999939250668765_dbl_kind, 0.998448702711573_dbl_kind, 0.987586544967894_dbl_kind, 0.947185960422851_dbl_kind, 0.655476726491914_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,532) = (/ 0.999939143746759_dbl_kind, 0.998446117914897_dbl_kind, 0.987565302535858_dbl_kind, 0.947100839962435_dbl_kind, 0.655221370134388_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,533) = (/ 0.999939036828856_dbl_kind, 0.998443533476667_dbl_kind, 0.987544062062621_dbl_kind, 0.94701573905461_dbl_kind, 0.654966568286983_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,534) = (/ 0.999938929915045_dbl_kind, 0.998440949397079_dbl_kind, 0.987522823548285_dbl_kind, 0.946930657697549_dbl_kind, 0.654712319612593_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,535) = (/ 0.999938823005314_dbl_kind, 0.998438365676337_dbl_kind, 0.987501586992952_dbl_kind, 0.946845595889419_dbl_kind, 0.654458622778671_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,536) = (/ 0.99993871609965_dbl_kind, 0.998435782314646_dbl_kind, 0.987480352396728_dbl_kind, 0.946760553628375_dbl_kind, 0.654205476457197_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,537) = (/ 0.999938609198041_dbl_kind, 0.998433199312212_dbl_kind, 0.987459119759716_dbl_kind, 0.946675530912564_dbl_kind, 0.653952879324656_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,538) = (/ 0.999938502300474_dbl_kind, 0.998430616669248_dbl_kind, 0.987437889082024_dbl_kind, 0.946590527740122_dbl_kind, 0.653700830062018_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,539) = (/ 0.999938395406937_dbl_kind, 0.998428034385968_dbl_kind, 0.987416660363756_dbl_kind, 0.946505544109182_dbl_kind, 0.653449327354697_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,540) = (/ 0.999938288517415_dbl_kind, 0.998425452462586_dbl_kind, 0.987395433605019_dbl_kind, 0.946420580017861_dbl_kind, 0.653198369892542_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,541) = (/ 0.999938181631898_dbl_kind, 0.998422870899322_dbl_kind, 0.987374208805919_dbl_kind, 0.946335635464278_dbl_kind, 0.6529479563698_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,542) = (/ 0.999938074750371_dbl_kind, 0.998420289696397_dbl_kind, 0.987352985966561_dbl_kind, 0.946250710446539_dbl_kind, 0.652698085485095_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,543) = (/ 0.999937967872822_dbl_kind, 0.998417708854036_dbl_kind, 0.987331765087051_dbl_kind, 0.946165804962744_dbl_kind, 0.652448755941403_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,544) = (/ 0.999937860999237_dbl_kind, 0.998415128372463_dbl_kind, 0.987310546167491_dbl_kind, 0.946080919010989_dbl_kind, 0.652199966446025_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,545) = (/ 0.999937754129604_dbl_kind, 0.998412548251908_dbl_kind, 0.987289329207989_dbl_kind, 0.945996052589362_dbl_kind, 0.651951715710566_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,546) = (/ 0.999937647263909_dbl_kind, 0.998409968492601_dbl_kind, 0.987268114208642_dbl_kind, 0.945911205695948_dbl_kind, 0.651704002450906_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,547) = (/ 0.999937540402139_dbl_kind, 0.998407389094772_dbl_kind, 0.987246901169554_dbl_kind, 0.945826378328825_dbl_kind, 0.651456825387178_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,548) = (/ 0.999937433544281_dbl_kind, 0.998404810058658_dbl_kind, 0.987225690090824_dbl_kind, 0.945741570486066_dbl_kind, 0.651210183243743_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,549) = (/ 0.999937326690322_dbl_kind, 0.998402231384494_dbl_kind, 0.987204480972548_dbl_kind, 0.945656782165742_dbl_kind, 0.650964074749167_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,550) = (/ 0.999937219840246_dbl_kind, 0.998399653072518_dbl_kind, 0.987183273814822_dbl_kind, 0.945572013365917_dbl_kind, 0.650718498636197_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,551) = (/ 0.999937112994042_dbl_kind, 0.99839707512297_dbl_kind, 0.98716206861774_dbl_kind, 0.945487264084654_dbl_kind, 0.650473453641734_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,552) = (/ 0.999937006151697_dbl_kind, 0.998394497536091_dbl_kind, 0.987140865381394_dbl_kind, 0.94540253432001_dbl_kind, 0.650228938506818_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,553) = (/ 0.999936899313195_dbl_kind, 0.998391920312123_dbl_kind, 0.98711966410587_dbl_kind, 0.945317824070042_dbl_kind, 0.649984951976594_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,554) = (/ 0.999936792478525_dbl_kind, 0.998389343451311_dbl_kind, 0.987098464791257_dbl_kind, 0.9452331333328_dbl_kind, 0.649741492800295_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,555) = (/ 0.99993668564767_dbl_kind, 0.9983867669539_dbl_kind, 0.987077267437637_dbl_kind, 0.945148462106335_dbl_kind, 0.649498559731219_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,556) = (/ 0.999936578820619_dbl_kind, 0.998384190820138_dbl_kind, 0.98705607204509_dbl_kind, 0.945063810388694_dbl_kind, 0.649256151526704_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,557) = (/ 0.999936471997358_dbl_kind, 0.998381615050272_dbl_kind, 0.987034878613693_dbl_kind, 0.944979178177923_dbl_kind, 0.649014266948107_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,558) = (/ 0.999936365177872_dbl_kind, 0.998379039644551_dbl_kind, 0.987013687143521_dbl_kind, 0.944894565472065_dbl_kind, 0.648772904760781_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,559) = (/ 0.999936258362149_dbl_kind, 0.998376464603225_dbl_kind, 0.986992497634645_dbl_kind, 0.944809972269163_dbl_kind, 0.648532063734053_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,560) = (/ 0.999936151550174_dbl_kind, 0.998373889926546_dbl_kind, 0.986971310087131_dbl_kind, 0.944725398567255_dbl_kind, 0.648291742641201_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,561) = (/ 0.999936044741933_dbl_kind, 0.998371315614765_dbl_kind, 0.986950124501043_dbl_kind, 0.944640844364383_dbl_kind, 0.648051940259434_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,562) = (/ 0.999935937937412_dbl_kind, 0.998368741668136_dbl_kind, 0.986928940876441_dbl_kind, 0.944556309658586_dbl_kind, 0.647812655369865_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,563) = (/ 0.999935831136598_dbl_kind, 0.998366168086912_dbl_kind, 0.98690775921338_dbl_kind, 0.944471794447901_dbl_kind, 0.6475738867575_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,564) = (/ 0.999935724339475_dbl_kind, 0.998363594871348_dbl_kind, 0.986886579511912_dbl_kind, 0.944387298730364_dbl_kind, 0.647335633211202_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,565) = (/ 0.999935617546032_dbl_kind, 0.998361022021698_dbl_kind, 0.986865401772084_dbl_kind, 0.944302822504014_dbl_kind, 0.647097893523683_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,566) = (/ 0.999935510756253_dbl_kind, 0.998358449538218_dbl_kind, 0.98684422599394_dbl_kind, 0.94421836576689_dbl_kind, 0.646860666491474_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,567) = (/ 0.999935403970124_dbl_kind, 0.998355877421163_dbl_kind, 0.986823052177518_dbl_kind, 0.944133928517024_dbl_kind, 0.646623950914911_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,568) = (/ 0.999935297187632_dbl_kind, 0.99835330567079_dbl_kind, 0.986801880322854_dbl_kind, 0.944049510752458_dbl_kind, 0.646387745598105_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,569) = (/ 0.999935190408762_dbl_kind, 0.998350734287355_dbl_kind, 0.986780710429975_dbl_kind, 0.943965112471227_dbl_kind, 0.646152049348931_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,570) = (/ 0.999935083633501_dbl_kind, 0.998348163271116_dbl_kind, 0.986759542498908_dbl_kind, 0.94388073367137_dbl_kind, 0.645916860979002_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,571) = (/ 0.999934976861834_dbl_kind, 0.998345592622328_dbl_kind, 0.986738376529672_dbl_kind, 0.943796374350927_dbl_kind, 0.645682179303651_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,572) = (/ 0.999934870093746_dbl_kind, 0.998343022341251_dbl_kind, 0.986717212522282_dbl_kind, 0.943712034507936_dbl_kind, 0.645448003141906_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,573) = (/ 0.999934763329226_dbl_kind, 0.99834045242814_dbl_kind, 0.986696050476749_dbl_kind, 0.943627714140438_dbl_kind, 0.645214331316477_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,574) = (/ 0.999934656568257_dbl_kind, 0.998337882883252_dbl_kind, 0.986674890393078_dbl_kind, 0.943543413246476_dbl_kind, 0.64498116265373_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,575) = (/ 0.999934549810826_dbl_kind, 0.998335313706846_dbl_kind, 0.986653732271267_dbl_kind, 0.943459131824091_dbl_kind, 0.644748495983674_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,576) = (/ 0.999934443056918_dbl_kind, 0.998332744899177_dbl_kind, 0.986632576111312_dbl_kind, 0.943374869871327_dbl_kind, 0.644516330139932_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,577) = (/ 0.999934336306521_dbl_kind, 0.998330176460502_dbl_kind, 0.986611421913202_dbl_kind, 0.943290627386232_dbl_kind, 0.644284663959729_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,578) = (/ 0.999934229559619_dbl_kind, 0.998327608391079_dbl_kind, 0.98659026967692_dbl_kind, 0.943206404366851_dbl_kind, 0.644053496283872_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,579) = (/ 0.999934122816199_dbl_kind, 0.998325040691163_dbl_kind, 0.986569119402444_dbl_kind, 0.943122200811231_dbl_kind, 0.643822825956725_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,580) = (/ 0.999934016076246_dbl_kind, 0.99832247336101_dbl_kind, 0.986547971089747_dbl_kind, 0.943038016717424_dbl_kind, 0.643592651826196_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,581) = (/ 0.999933909339746_dbl_kind, 0.998319906400875_dbl_kind, 0.986526824738795_dbl_kind, 0.942953852083482_dbl_kind, 0.64336297274372_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,582) = (/ 0.999933802606686_dbl_kind, 0.998317339811013_dbl_kind, 0.986505680349549_dbl_kind, 0.942869706907457_dbl_kind, 0.64313378756423_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,583) = (/ 0.999933695877051_dbl_kind, 0.998314773591679_dbl_kind, 0.986484537921965_dbl_kind, 0.942785581187406_dbl_kind, 0.642905095146148_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,584) = (/ 0.999933589150827_dbl_kind, 0.998312207743126_dbl_kind, 0.986463397455991_dbl_kind, 0.942701474921385_dbl_kind, 0.642676894351364_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,585) = (/ 0.999933482428001_dbl_kind, 0.998309642265606_dbl_kind, 0.986442258951571_dbl_kind, 0.942617388107453_dbl_kind, 0.642449184045215_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,586) = (/ 0.999933375708557_dbl_kind, 0.998307077159373_dbl_kind, 0.986421122408641_dbl_kind, 0.942533320743672_dbl_kind, 0.642221963096469_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,587) = (/ 0.999933268992482_dbl_kind, 0.998304512424679_dbl_kind, 0.986399987827132_dbl_kind, 0.942449272828105_dbl_kind, 0.641995230377307_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,588) = (/ 0.999933162279763_dbl_kind, 0.998301948061772_dbl_kind, 0.986378855206971_dbl_kind, 0.942365244358817_dbl_kind, 0.641768984763303_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,589) = (/ 0.999933055570385_dbl_kind, 0.998299384070903_dbl_kind, 0.986357724548075_dbl_kind, 0.942281235333875_dbl_kind, 0.641543225133409_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,590) = (/ 0.999932948864334_dbl_kind, 0.998296820452322_dbl_kind, 0.986336595850357_dbl_kind, 0.942197245751349_dbl_kind, 0.641317950369938_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,591) = (/ 0.999932842161596_dbl_kind, 0.998294257206275_dbl_kind, 0.986315469113722_dbl_kind, 0.942113275609309_dbl_kind, 0.641093159358543_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,592) = (/ 0.999932735462158_dbl_kind, 0.998291694333011_dbl_kind, 0.986294344338072_dbl_kind, 0.94202932490583_dbl_kind, 0.6408688509882_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,593) = (/ 0.999932628766004_dbl_kind, 0.998289131832774_dbl_kind, 0.986273221523298_dbl_kind, 0.941945393638987_dbl_kind, 0.64064502415119_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,594) = (/ 0.999932522073123_dbl_kind, 0.998286569705809_dbl_kind, 0.98625210066929_dbl_kind, 0.941861481806859_dbl_kind, 0.640421677743087_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,595) = (/ 0.999932415383499_dbl_kind, 0.998284007952359_dbl_kind, 0.986230981775925_dbl_kind, 0.941777589407524_dbl_kind, 0.640198810662738_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,596) = (/ 0.999932308697119_dbl_kind, 0.998281446572668_dbl_kind, 0.986209864843079_dbl_kind, 0.941693716439067_dbl_kind, 0.639976421812242_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,597) = (/ 0.99993220201397_dbl_kind, 0.998278885566975_dbl_kind, 0.98618874987062_dbl_kind, 0.941609862899571_dbl_kind, 0.63975451009694_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,598) = (/ 0.999932095334036_dbl_kind, 0.998276324935519_dbl_kind, 0.986167636858406_dbl_kind, 0.94152602878712_dbl_kind, 0.639533074425393_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,599) = (/ 0.999931988657305_dbl_kind, 0.998273764678541_dbl_kind, 0.986146525806295_dbl_kind, 0.941442214099806_dbl_kind, 0.639312113709369_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,600) = (/ 0.999931881983763_dbl_kind, 0.998271204796276_dbl_kind, 0.986125416714131_dbl_kind, 0.941358418835718_dbl_kind, 0.639091626863823_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,601) = (/ 0.999931775313397_dbl_kind, 0.99826864528896_dbl_kind, 0.986104309581757_dbl_kind, 0.941274642992948_dbl_kind, 0.638871612806889_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,602) = (/ 0.999931668646192_dbl_kind, 0.998266086156826_dbl_kind, 0.986083204409007_dbl_kind, 0.941190886569591_dbl_kind, 0.638652070459845_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,603) = (/ 0.999931561982136_dbl_kind, 0.998263527400107_dbl_kind, 0.986062101195708_dbl_kind, 0.941107149563745_dbl_kind, 0.638432998747124_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,604) = (/ 0.999931455321214_dbl_kind, 0.998260969019034_dbl_kind, 0.98604099994168_dbl_kind, 0.941023431973506_dbl_kind, 0.638214396596274_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,605) = (/ 0.999931348663413_dbl_kind, 0.998258411013836_dbl_kind, 0.986019900646738_dbl_kind, 0.940939733796976_dbl_kind, 0.637996262937956_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,606) = (/ 0.99993124200872_dbl_kind, 0.998255853384741_dbl_kind, 0.985998803310688_dbl_kind, 0.940856055032257_dbl_kind, 0.637778596705923_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,607) = (/ 0.999931135357119_dbl_kind, 0.998253296131973_dbl_kind, 0.985977707933331_dbl_kind, 0.940772395677452_dbl_kind, 0.637561396837003_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,608) = (/ 0.999931028708601_dbl_kind, 0.998250739255759_dbl_kind, 0.98595661451446_dbl_kind, 0.940688755730668_dbl_kind, 0.63734466227109_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,609) = (/ 0.99993092206315_dbl_kind, 0.998248182756319_dbl_kind, 0.985935523053862_dbl_kind, 0.940605135190012_dbl_kind, 0.637128391951125_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,610) = (/ 0.999930815420753_dbl_kind, 0.998245626633875_dbl_kind, 0.985914433551315_dbl_kind, 0.940521534053592_dbl_kind, 0.636912584823074_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,611) = (/ 0.999930708781396_dbl_kind, 0.998243070888644_dbl_kind, 0.985893346006594_dbl_kind, 0.94043795231952_dbl_kind, 0.636697239835926_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,612) = (/ 0.999930602145068_dbl_kind, 0.998240515520845_dbl_kind, 0.985872260419463_dbl_kind, 0.940354389985909_dbl_kind, 0.636482355941668_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,613) = (/ 0.999930495511754_dbl_kind, 0.998237960530691_dbl_kind, 0.985851176789682_dbl_kind, 0.94027084705087_dbl_kind, 0.636267932095273_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,614) = (/ 0.99993038888144_dbl_kind, 0.998235405918397_dbl_kind, 0.985830095117002_dbl_kind, 0.940187323512519_dbl_kind, 0.636053967254687_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,615) = (/ 0.999930282254116_dbl_kind, 0.998232851684172_dbl_kind, 0.985809015401169_dbl_kind, 0.940103819368972_dbl_kind, 0.635840460380811_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,616) = (/ 0.999930175629766_dbl_kind, 0.998230297828226_dbl_kind, 0.985787937641922_dbl_kind, 0.940020334618346_dbl_kind, 0.635627410437488_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,617) = (/ 0.999930069008378_dbl_kind, 0.998227744350767_dbl_kind, 0.98576686183899_dbl_kind, 0.93993686925876_dbl_kind, 0.635414816391493_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,618) = (/ 0.99992996238994_dbl_kind, 0.998225191251998_dbl_kind, 0.985745787992098_dbl_kind, 0.939853423288334_dbl_kind, 0.635202677212507_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,619) = (/ 0.999929855774439_dbl_kind, 0.998222638532124_dbl_kind, 0.985724716100963_dbl_kind, 0.939769996705188_dbl_kind, 0.634990991873117_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,620) = (/ 0.999929749161861_dbl_kind, 0.998220086191344_dbl_kind, 0.985703646165297_dbl_kind, 0.939686589507443_dbl_kind, 0.634779759348789_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,621) = (/ 0.999929642552193_dbl_kind, 0.998217534229857_dbl_kind, 0.985682578184801_dbl_kind, 0.939603201693221_dbl_kind, 0.634568978617864_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,622) = (/ 0.999929535945424_dbl_kind, 0.99821498264786_dbl_kind, 0.985661512159172_dbl_kind, 0.939519833260646_dbl_kind, 0.634358648661536_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,623) = (/ 0.999929429341541_dbl_kind, 0.998212431445548_dbl_kind, 0.985640448088101_dbl_kind, 0.939436484207839_dbl_kind, 0.634148768463845_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,624) = (/ 0.99992932274053_dbl_kind, 0.998209880623111_dbl_kind, 0.98561938597127_dbl_kind, 0.939353154532926_dbl_kind, 0.633939337011658_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,625) = (/ 0.999929216142378_dbl_kind, 0.99820733018074_dbl_kind, 0.985598325808354_dbl_kind, 0.939269844234031_dbl_kind, 0.633730353294661_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,626) = (/ 0.999929109547075_dbl_kind, 0.998204780118621_dbl_kind, 0.985577267599021_dbl_kind, 0.939186553309278_dbl_kind, 0.633521816305337_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,627) = (/ 0.999929002954608_dbl_kind, 0.99820223043694_dbl_kind, 0.985556211342934_dbl_kind, 0.939103281756792_dbl_kind, 0.63331372503896_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,628) = (/ 0.999928896364963_dbl_kind, 0.998199681135882_dbl_kind, 0.985535157039747_dbl_kind, 0.939020029574697_dbl_kind, 0.633106078493581_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,629) = (/ 0.999928789778129_dbl_kind, 0.998197132215624_dbl_kind, 0.985514104689109_dbl_kind, 0.938936796761119_dbl_kind, 0.632898875670008_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,630) = (/ 0.999928683194093_dbl_kind, 0.998194583676347_dbl_kind, 0.98549305429066_dbl_kind, 0.938853583314183_dbl_kind, 0.632692115571802_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,631) = (/ 0.999928576612844_dbl_kind, 0.998192035518224_dbl_kind, 0.985472005844034_dbl_kind, 0.938770389232013_dbl_kind, 0.632485797205257_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,632) = (/ 0.999928470034368_dbl_kind, 0.998189487741431_dbl_kind, 0.985450959348858_dbl_kind, 0.938687214512732_dbl_kind, 0.632279919579392_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,633) = (/ 0.999928363458655_dbl_kind, 0.998186940346137_dbl_kind, 0.985429914804754_dbl_kind, 0.938604059154466_dbl_kind, 0.632074481705933_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,634) = (/ 0.99992825688569_dbl_kind, 0.998184393332511_dbl_kind, 0.985408872211333_dbl_kind, 0.938520923155335_dbl_kind, 0.631869482599306_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,635) = (/ 0.999928150315464_dbl_kind, 0.998181846700718_dbl_kind, 0.985387831568204_dbl_kind, 0.938437806513465_dbl_kind, 0.631664921276619_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,636) = (/ 0.999928043747964_dbl_kind, 0.998179300450923_dbl_kind, 0.985366792874965_dbl_kind, 0.938354709226977_dbl_kind, 0.631460796757651_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,637) = (/ 0.999927937183178_dbl_kind, 0.998176754583287_dbl_kind, 0.985345756131211_dbl_kind, 0.938271631293988_dbl_kind, 0.631257108064843_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,638) = (/ 0.999927830621095_dbl_kind, 0.998174209097968_dbl_kind, 0.985324721336526_dbl_kind, 0.938188572712623_dbl_kind, 0.631053854223281_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,639) = (/ 0.999927724061701_dbl_kind, 0.99817166399512_dbl_kind, 0.98530368849049_dbl_kind, 0.938105533480997_dbl_kind, 0.630851034260684_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,640) = (/ 0.999927617504987_dbl_kind, 0.998169119274898_dbl_kind, 0.985282657592677_dbl_kind, 0.93802251359723_dbl_kind, 0.630648647207398_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,641) = (/ 0.999927510950941_dbl_kind, 0.998166574937453_dbl_kind, 0.985261628642652_dbl_kind, 0.937939513059436_dbl_kind, 0.630446692096372_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,642) = (/ 0.999927404399551_dbl_kind, 0.998164030982932_dbl_kind, 0.985240601639974_dbl_kind, 0.937856531865731_dbl_kind, 0.630245167963161_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,643) = (/ 0.999927297850803_dbl_kind, 0.998161487411482_dbl_kind, 0.985219576584196_dbl_kind, 0.937773570014226_dbl_kind, 0.6300440738459_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,644) = (/ 0.999927191304691_dbl_kind, 0.998158944223244_dbl_kind, 0.985198553474864_dbl_kind, 0.937690627503033_dbl_kind, 0.629843408785299_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,645) = (/ 0.9999270847612_dbl_kind, 0.998156401418361_dbl_kind, 0.985177532311517_dbl_kind, 0.937607704330262_dbl_kind, 0.629643171824633_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,646) = (/ 0.999926978220318_dbl_kind, 0.998153858996967_dbl_kind, 0.985156513093686_dbl_kind, 0.937524800494021_dbl_kind, 0.629443362009728_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,647) = (/ 0.999926871682037_dbl_kind, 0.998151316959199_dbl_kind, 0.985135495820899_dbl_kind, 0.937441915992412_dbl_kind, 0.629243978388944_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,648) = (/ 0.999926765146343_dbl_kind, 0.998148775305189_dbl_kind, 0.985114480492675_dbl_kind, 0.937359050823541_dbl_kind, 0.629045020013173_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,649) = (/ 0.999926658613226_dbl_kind, 0.998146234035066_dbl_kind, 0.985093467108527_dbl_kind, 0.937276204985507_dbl_kind, 0.628846485935821_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,650) = (/ 0.999926552082677_dbl_kind, 0.998143693148959_dbl_kind, 0.98507245566796_dbl_kind, 0.937193378476408_dbl_kind, 0.628648375212802_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,651) = (/ 0.999926445554681_dbl_kind, 0.998141152646989_dbl_kind, 0.985051446170475_dbl_kind, 0.93711057129434_dbl_kind, 0.628450686902519_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,652) = (/ 0.99992633902923_dbl_kind, 0.998138612529279_dbl_kind, 0.985030438615565_dbl_kind, 0.937027783437396_dbl_kind, 0.628253420065858_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,653) = (/ 0.999926232506313_dbl_kind, 0.998136072795948_dbl_kind, 0.985009433002717_dbl_kind, 0.936945014903665_dbl_kind, 0.628056573766182_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,654) = (/ 0.999926125985919_dbl_kind, 0.998133533447111_dbl_kind, 0.98498842933141_dbl_kind, 0.936862265691234_dbl_kind, 0.627860147069302_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,655) = (/ 0.999926019468036_dbl_kind, 0.998130994482882_dbl_kind, 0.98496742760112_dbl_kind, 0.936779535798188_dbl_kind, 0.627664139043491_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,656) = (/ 0.999925912952655_dbl_kind, 0.998128455903371_dbl_kind, 0.984946427811314_dbl_kind, 0.936696825222605_dbl_kind, 0.627468548759454_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,657) = (/ 0.999925806439766_dbl_kind, 0.998125917708686_dbl_kind, 0.984925429961452_dbl_kind, 0.936614133962564_dbl_kind, 0.627273375290321_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,658) = (/ 0.999925699929357_dbl_kind, 0.998123379898931_dbl_kind, 0.984904434050991_dbl_kind, 0.936531462016138_dbl_kind, 0.627078617711645_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,659) = (/ 0.99992559342142_dbl_kind, 0.99812084247421_dbl_kind, 0.984883440079378_dbl_kind, 0.936448809381397_dbl_kind, 0.62688427510138_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,660) = (/ 0.99992548691594_dbl_kind, 0.99811830543462_dbl_kind, 0.984862448046056_dbl_kind, 0.936366176056407_dbl_kind, 0.626690346539878_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,661) = (/ 0.999925380412912_dbl_kind, 0.99811576878026_dbl_kind, 0.984841457950463_dbl_kind, 0.936283562039229_dbl_kind, 0.626496831109874_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,662) = (/ 0.999925273912323_dbl_kind, 0.998113232511222_dbl_kind, 0.984820469792026_dbl_kind, 0.936200967327924_dbl_kind, 0.62630372789648_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,663) = (/ 0.999925167414164_dbl_kind, 0.998110696627597_dbl_kind, 0.984799483570171_dbl_kind, 0.936118391920543_dbl_kind, 0.62611103598717_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,664) = (/ 0.999925060918425_dbl_kind, 0.998108161129474_dbl_kind, 0.984778499284315_dbl_kind, 0.936035835815138_dbl_kind, 0.625918754471773_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,665) = (/ 0.999924954425095_dbl_kind, 0.998105626016938_dbl_kind, 0.98475751693387_dbl_kind, 0.935953299009754_dbl_kind, 0.625726882442461_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,666) = (/ 0.999924847934164_dbl_kind, 0.998103091290071_dbl_kind, 0.984736536518241_dbl_kind, 0.935870781502432_dbl_kind, 0.625535418993742_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,667) = (/ 0.999924741445624_dbl_kind, 0.998100556948954_dbl_kind, 0.984715558036829_dbl_kind, 0.935788283291208_dbl_kind, 0.625344363222445_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,668) = (/ 0.999924634959464_dbl_kind, 0.998098022993663_dbl_kind, 0.984694581489026_dbl_kind, 0.935705804374112_dbl_kind, 0.625153714227715_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,669) = (/ 0.999924528475675_dbl_kind, 0.998095489424272_dbl_kind, 0.984673606874221_dbl_kind, 0.935623344749172_dbl_kind, 0.624963471110995_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,670) = (/ 0.999924421994246_dbl_kind, 0.998092956240852_dbl_kind, 0.984652634191794_dbl_kind, 0.935540904414409_dbl_kind, 0.624773632976031_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,671) = (/ 0.999924315515169_dbl_kind, 0.998090423443472_dbl_kind, 0.984631663441123_dbl_kind, 0.93545848336784_dbl_kind, 0.624584198928847_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,672) = (/ 0.999924209038435_dbl_kind, 0.998087891032197_dbl_kind, 0.984610694621577_dbl_kind, 0.935376081607476_dbl_kind, 0.624395168077742_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,673) = (/ 0.999924102564033_dbl_kind, 0.99808535900709_dbl_kind, 0.984589727732521_dbl_kind, 0.935293699131322_dbl_kind, 0.624206539533282_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,674) = (/ 0.999923996091955_dbl_kind, 0.998082827368211_dbl_kind, 0.984568762773312_dbl_kind, 0.935211335937378_dbl_kind, 0.624018312408284_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,675) = (/ 0.999923889622191_dbl_kind, 0.998080296115618_dbl_kind, 0.984547799743304_dbl_kind, 0.935128992023639_dbl_kind, 0.623830485817817_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,676) = (/ 0.999923783154732_dbl_kind, 0.998077765249364_dbl_kind, 0.984526838641843_dbl_kind, 0.935046667388093_dbl_kind, 0.62364305887918_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,677) = (/ 0.999923676689568_dbl_kind, 0.9980752347695_dbl_kind, 0.984505879468272_dbl_kind, 0.934964362028724_dbl_kind, 0.623456030711907_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,678) = (/ 0.999923570226693_dbl_kind, 0.998072704676076_dbl_kind, 0.984484922221925_dbl_kind, 0.934882075943508_dbl_kind, 0.623269400437742_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,679) = (/ 0.999923463766094_dbl_kind, 0.998070174969136_dbl_kind, 0.984463966902133_dbl_kind, 0.934799809130416_dbl_kind, 0.62308316718064_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,680) = (/ 0.999923357307766_dbl_kind, 0.998067645648725_dbl_kind, 0.984443013508221_dbl_kind, 0.934717561587411_dbl_kind, 0.622897330066758_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,681) = (/ 0.999923250851697_dbl_kind, 0.998065116714882_dbl_kind, 0.984422062039506_dbl_kind, 0.934635333312452_dbl_kind, 0.622711888224442_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,682) = (/ 0.999923144397881_dbl_kind, 0.998062588167644_dbl_kind, 0.984401112495306_dbl_kind, 0.934553124303491_dbl_kind, 0.622526840784216_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,683) = (/ 0.999923037946308_dbl_kind, 0.998060060007047_dbl_kind, 0.984380164874925_dbl_kind, 0.934470934558473_dbl_kind, 0.622342186878782_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,684) = (/ 0.999922931496968_dbl_kind, 0.99805753223312_dbl_kind, 0.984359219177667_dbl_kind, 0.934388764075334_dbl_kind, 0.622157925643001_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,685) = (/ 0.999922825049856_dbl_kind, 0.998055004845894_dbl_kind, 0.98433827540283_dbl_kind, 0.934306612852007_dbl_kind, 0.621974056213891_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,686) = (/ 0.999922718604961_dbl_kind, 0.998052477845395_dbl_kind, 0.984317333549707_dbl_kind, 0.934224480886417_dbl_kind, 0.621790577730614_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,687) = (/ 0.999922612162275_dbl_kind, 0.998049951231644_dbl_kind, 0.984296393617583_dbl_kind, 0.934142368176479_dbl_kind, 0.621607489334473_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,688) = (/ 0.99992250572179_dbl_kind, 0.998047425004664_dbl_kind, 0.984275455605741_dbl_kind, 0.934060274720105_dbl_kind, 0.621424790168898_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,689) = (/ 0.999922399283498_dbl_kind, 0.998044899164471_dbl_kind, 0.984254519513457_dbl_kind, 0.933978200515197_dbl_kind, 0.621242479379435_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,690) = (/ 0.99992229284739_dbl_kind, 0.998042373711081_dbl_kind, 0.984233585340003_dbl_kind, 0.933896145559651_dbl_kind, 0.621060556113747_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,691) = (/ 0.999922186413459_dbl_kind, 0.998039848644505_dbl_kind, 0.984212653084645_dbl_kind, 0.933814109851354_dbl_kind, 0.620879019521595_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,692) = (/ 0.999922079981697_dbl_kind, 0.998037323964753_dbl_kind, 0.984191722746643_dbl_kind, 0.933732093388187_dbl_kind, 0.620697868754842_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,693) = (/ 0.999921973552095_dbl_kind, 0.99803479967183_dbl_kind, 0.984170794325255_dbl_kind, 0.933650096168021_dbl_kind, 0.62051710296743_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,694) = (/ 0.999921867124646_dbl_kind, 0.998032275765741_dbl_kind, 0.984149867819731_dbl_kind, 0.933568118188723_dbl_kind, 0.620336721315382_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,695) = (/ 0.999921760699343_dbl_kind, 0.998029752246487_dbl_kind, 0.984128943229317_dbl_kind, 0.933486159448147_dbl_kind, 0.620156722956791_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,696) = (/ 0.999921654276177_dbl_kind, 0.998027229114064_dbl_kind, 0.984108020553256_dbl_kind, 0.933404219944142_dbl_kind, 0.619977107051811_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,697) = (/ 0.99992154785514_dbl_kind, 0.998024706368471_dbl_kind, 0.984087099790782_dbl_kind, 0.933322299674551_dbl_kind, 0.619797872762651_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,698) = (/ 0.999921441436225_dbl_kind, 0.998022184009698_dbl_kind, 0.984066180941128_dbl_kind, 0.933240398637203_dbl_kind, 0.619619019253568_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,699) = (/ 0.999921335019425_dbl_kind, 0.998019662037736_dbl_kind, 0.984045264003523_dbl_kind, 0.933158516829922_dbl_kind, 0.619440545690848_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,700) = (/ 0.999921228604733_dbl_kind, 0.998017140452571_dbl_kind, 0.984024348977185_dbl_kind, 0.933076654250526_dbl_kind, 0.619262451242812_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,701) = (/ 0.99992112219214_dbl_kind, 0.998014619254188_dbl_kind, 0.984003435861335_dbl_kind, 0.93299481089682_dbl_kind, 0.619084735079804_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,702) = (/ 0.999921015781639_dbl_kind, 0.998012098442569_dbl_kind, 0.983982524655184_dbl_kind, 0.932912986766602_dbl_kind, 0.618907396374184_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,703) = (/ 0.999920909373225_dbl_kind, 0.998009578017693_dbl_kind, 0.983961615357941_dbl_kind, 0.93283118185766_dbl_kind, 0.618730434300309_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,704) = (/ 0.999920802966888_dbl_kind, 0.998007057979536_dbl_kind, 0.983940707968809_dbl_kind, 0.932749396167776_dbl_kind, 0.618553848034545_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,705) = (/ 0.999920696562622_dbl_kind, 0.998004538328072_dbl_kind, 0.983919802486988_dbl_kind, 0.932667629694721_dbl_kind, 0.618377636755241_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,706) = (/ 0.999920590160421_dbl_kind, 0.99800201906327_dbl_kind, 0.983898898911673_dbl_kind, 0.932585882436259_dbl_kind, 0.618201799642735_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,707) = (/ 0.999920483760276_dbl_kind, 0.997999500185101_dbl_kind, 0.983877997242052_dbl_kind, 0.93250415439014_dbl_kind, 0.618026335879335_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,708) = (/ 0.999920377362183_dbl_kind, 0.997996981693529_dbl_kind, 0.983857097477314_dbl_kind, 0.932422445554111_dbl_kind, 0.617851244649324_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,709) = (/ 0.999920270966133_dbl_kind, 0.997994463588516_dbl_kind, 0.983836199616639_dbl_kind, 0.932340755925905_dbl_kind, 0.617676525138939_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,710) = (/ 0.999920164572119_dbl_kind, 0.997991945870024_dbl_kind, 0.983815303659204_dbl_kind, 0.932259085503247_dbl_kind, 0.617502176536374_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,711) = (/ 0.999920058180136_dbl_kind, 0.997989428538011_dbl_kind, 0.983794409604183_dbl_kind, 0.932177434283853_dbl_kind, 0.617328198031768_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,712) = (/ 0.999919951790176_dbl_kind, 0.997986911592429_dbl_kind, 0.983773517450743_dbl_kind, 0.932095802265429_dbl_kind, 0.6171545888172_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,713) = (/ 0.999919845402234_dbl_kind, 0.997984395033233_dbl_kind, 0.983752627198051_dbl_kind, 0.932014189445673_dbl_kind, 0.616981348086682_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,714) = (/ 0.999919739016302_dbl_kind, 0.997981878860372_dbl_kind, 0.983731738845266_dbl_kind, 0.931932595822269_dbl_kind, 0.616808475036143_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,715) = (/ 0.999919632632374_dbl_kind, 0.997979363073792_dbl_kind, 0.983710852391545_dbl_kind, 0.931851021392896_dbl_kind, 0.616635968863437_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,716) = (/ 0.999919526250444_dbl_kind, 0.997976847673439_dbl_kind, 0.983689967836041_dbl_kind, 0.93176946615522_dbl_kind, 0.616463828768324_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,717) = (/ 0.999919419870506_dbl_kind, 0.997974332659255_dbl_kind, 0.9836690851779_dbl_kind, 0.931687930106897_dbl_kind, 0.616292053952469_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,718) = (/ 0.999919313492553_dbl_kind, 0.997971818031178_dbl_kind, 0.98364820441627_dbl_kind, 0.931606413245575_dbl_kind, 0.616120643619433_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,719) = (/ 0.999919207116579_dbl_kind, 0.997969303789145_dbl_kind, 0.983627325550288_dbl_kind, 0.93152491556889_dbl_kind, 0.615949596974662_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,720) = (/ 0.99991910074258_dbl_kind, 0.997966789933091_dbl_kind, 0.983606448579095_dbl_kind, 0.931443437074468_dbl_kind, 0.615778913225492_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,721) = (/ 0.999918994370547_dbl_kind, 0.997964276462948_dbl_kind, 0.983585573501819_dbl_kind, 0.931361977759926_dbl_kind, 0.615608591581126_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,722) = (/ 0.999918888000475_dbl_kind, 0.997961763378644_dbl_kind, 0.983564700317593_dbl_kind, 0.931280537622869_dbl_kind, 0.615438631252643_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,723) = (/ 0.999918781632359_dbl_kind, 0.997959250680105_dbl_kind, 0.98354382902554_dbl_kind, 0.931199116660891_dbl_kind, 0.615269031452976_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,724) = (/ 0.999918675266193_dbl_kind, 0.997956738367258_dbl_kind, 0.983522959624784_dbl_kind, 0.931117714871579_dbl_kind, 0.615099791396922_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,725) = (/ 0.99991856890197_dbl_kind, 0.997954226440023_dbl_kind, 0.983502092114441_dbl_kind, 0.931036332252504_dbl_kind, 0.614930910301118_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,726) = (/ 0.999918462539686_dbl_kind, 0.997951714898319_dbl_kind, 0.983481226493626_dbl_kind, 0.930954968801233_dbl_kind, 0.614762387384049_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,727) = (/ 0.999918356179335_dbl_kind, 0.997949203742063_dbl_kind, 0.983460362761452_dbl_kind, 0.930873624515314_dbl_kind, 0.614594221866033_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,728) = (/ 0.999918249820911_dbl_kind, 0.997946692971169_dbl_kind, 0.983439500917024_dbl_kind, 0.930792299392293_dbl_kind, 0.614426412969213_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,729) = (/ 0.999918143464408_dbl_kind, 0.997944182585549_dbl_kind, 0.983418640959446_dbl_kind, 0.930710993429698_dbl_kind, 0.61425895991756_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,730) = (/ 0.999918037109822_dbl_kind, 0.997941672585113_dbl_kind, 0.98339778288782_dbl_kind, 0.930629706625049_dbl_kind, 0.614091861936863_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,731) = (/ 0.999917930757147_dbl_kind, 0.997939162969767_dbl_kind, 0.983376926701243_dbl_kind, 0.930548438975856_dbl_kind, 0.613925118254708_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,732) = (/ 0.999917824406377_dbl_kind, 0.997936653739416_dbl_kind, 0.983356072398809_dbl_kind, 0.930467190479616_dbl_kind, 0.613758728100497_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,733) = (/ 0.999917718057508_dbl_kind, 0.997934144893961_dbl_kind, 0.983335219979608_dbl_kind, 0.930385961133817_dbl_kind, 0.613592690705423_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,734) = (/ 0.999917611710534_dbl_kind, 0.997931636433304_dbl_kind, 0.983314369442727_dbl_kind, 0.930304750935932_dbl_kind, 0.61342700530247_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,735) = (/ 0.999917505365451_dbl_kind, 0.997929128357342_dbl_kind, 0.983293520787252_dbl_kind, 0.930223559883427_dbl_kind, 0.613261671126406_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,736) = (/ 0.999917399022253_dbl_kind, 0.997926620665968_dbl_kind, 0.983272674012262_dbl_kind, 0.930142387973754_dbl_kind, 0.613096687413778_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,737) = (/ 0.999917292680935_dbl_kind, 0.997924113359077_dbl_kind, 0.983251829116836_dbl_kind, 0.930061235204356_dbl_kind, 0.612932053402905_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,738) = (/ 0.999917186341492_dbl_kind, 0.997921606436558_dbl_kind, 0.983230986100049_dbl_kind, 0.929980101572661_dbl_kind, 0.612767768333871_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,739) = (/ 0.999917080003919_dbl_kind, 0.9979190998983_dbl_kind, 0.983210144960973_dbl_kind, 0.929898987076088_dbl_kind, 0.612603831448519_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,740) = (/ 0.999916973668212_dbl_kind, 0.997916593744189_dbl_kind, 0.983189305698677_dbl_kind, 0.929817891712046_dbl_kind, 0.612440241990448_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,741) = (/ 0.999916867334367_dbl_kind, 0.997914087974107_dbl_kind, 0.983168468312225_dbl_kind, 0.929736815477929_dbl_kind, 0.612276999205005_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,742) = (/ 0.999916761002378_dbl_kind, 0.997911582587936_dbl_kind, 0.983147632800683_dbl_kind, 0.929655758371122_dbl_kind, 0.612114102339275_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,743) = (/ 0.999916654672239_dbl_kind, 0.997909077585555_dbl_kind, 0.98312679916311_dbl_kind, 0.929574720388996_dbl_kind, 0.611951550642079_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,744) = (/ 0.999916548343949_dbl_kind, 0.997906572966842_dbl_kind, 0.983105967398564_dbl_kind, 0.929493701528913_dbl_kind, 0.611789343363976_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,745) = (/ 0.999916442017501_dbl_kind, 0.997904068731669_dbl_kind, 0.983085137506097_dbl_kind, 0.929412701788221_dbl_kind, 0.611627479757241_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,746) = (/ 0.99991633569289_dbl_kind, 0.997901564879911_dbl_kind, 0.983064309484766_dbl_kind, 0.929331721164258_dbl_kind, 0.61146595907587_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,747) = (/ 0.999916229370114_dbl_kind, 0.997899061411436_dbl_kind, 0.983043483333615_dbl_kind, 0.929250759654348_dbl_kind, 0.611304780575573_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,748) = (/ 0.999916123049168_dbl_kind, 0.997896558326112_dbl_kind, 0.983022659051695_dbl_kind, 0.929169817255806_dbl_kind, 0.611143943513763_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,749) = (/ 0.999916016730047_dbl_kind, 0.997894055623806_dbl_kind, 0.983001836638049_dbl_kind, 0.92908889396593_dbl_kind, 0.610983447149559_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,750) = (/ 0.999915910412746_dbl_kind, 0.997891553304381_dbl_kind, 0.982981016091717_dbl_kind, 0.929007989782016_dbl_kind, 0.610823290743774_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,751) = (/ 0.999915804097262_dbl_kind, 0.997889051367698_dbl_kind, 0.982960197411739_dbl_kind, 0.928927104701334_dbl_kind, 0.610663473558912_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,752) = (/ 0.999915697783591_dbl_kind, 0.997886549813617_dbl_kind, 0.982939380597153_dbl_kind, 0.928846238721156_dbl_kind, 0.610503994859157_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,753) = (/ 0.99991559147173_dbl_kind, 0.997884048641995_dbl_kind, 0.982918565646993_dbl_kind, 0.928765391838733_dbl_kind, 0.61034485391038_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,754) = (/ 0.999915485161673_dbl_kind, 0.997881547852686_dbl_kind, 0.982897752560289_dbl_kind, 0.928684564051305_dbl_kind, 0.610186049980117_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,755) = (/ 0.999915378853416_dbl_kind, 0.997879047445544_dbl_kind, 0.982876941336073_dbl_kind, 0.928603755356104_dbl_kind, 0.61002758233758_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,756) = (/ 0.999915272546957_dbl_kind, 0.99787654742042_dbl_kind, 0.98285613197337_dbl_kind, 0.928522965750345_dbl_kind, 0.609869450253636_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,757) = (/ 0.999915166242291_dbl_kind, 0.997874047777162_dbl_kind, 0.982835324471207_dbl_kind, 0.928442195231234_dbl_kind, 0.609711653000816_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,758) = (/ 0.999915059939414_dbl_kind, 0.997871548515618_dbl_kind, 0.982814518828607_dbl_kind, 0.928361443795965_dbl_kind, 0.609554189853299_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,759) = (/ 0.999914953638323_dbl_kind, 0.997869049635633_dbl_kind, 0.98279371504459_dbl_kind, 0.928280711441717_dbl_kind, 0.609397060086911_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,760) = (/ 0.999914847339014_dbl_kind, 0.997866551137047_dbl_kind, 0.982772913118175_dbl_kind, 0.928199998165659_dbl_kind, 0.60924026297912_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,761) = (/ 0.999914741041483_dbl_kind, 0.997864053019704_dbl_kind, 0.98275211304838_dbl_kind, 0.928119303964947_dbl_kind, 0.609083797809032_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,762) = (/ 0.999914634745727_dbl_kind, 0.997861555283442_dbl_kind, 0.982731314834217_dbl_kind, 0.928038628836727_dbl_kind, 0.608927663857381_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,763) = (/ 0.999914528451743_dbl_kind, 0.997859057928096_dbl_kind, 0.9827105184747_dbl_kind, 0.927957972778127_dbl_kind, 0.608771860406526_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,764) = (/ 0.999914422159527_dbl_kind, 0.997856560953503_dbl_kind, 0.98268972396884_dbl_kind, 0.927877335786269_dbl_kind, 0.608616386740451_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,765) = (/ 0.999914315869075_dbl_kind, 0.997854064359495_dbl_kind, 0.982668931315646_dbl_kind, 0.92779671785826_dbl_kind, 0.608461242144751_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,766) = (/ 0.999914209580385_dbl_kind, 0.997851568145903_dbl_kind, 0.982648140514125_dbl_kind, 0.927716118991192_dbl_kind, 0.608306425906634_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,767) = (/ 0.999914103293452_dbl_kind, 0.997849072312556_dbl_kind, 0.982627351563281_dbl_kind, 0.927635539182149_dbl_kind, 0.608151937314911_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,768) = (/ 0.999913997008275_dbl_kind, 0.997846576859282_dbl_kind, 0.98260656446212_dbl_kind, 0.927554978428203_dbl_kind, 0.607997775659996_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,769) = (/ 0.999913890724848_dbl_kind, 0.997844081785906_dbl_kind, 0.982585779209641_dbl_kind, 0.927474436726408_dbl_kind, 0.607843940233899_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,770) = (/ 0.999913784443171_dbl_kind, 0.99784158709225_dbl_kind, 0.982564995804846_dbl_kind, 0.927393914073811_dbl_kind, 0.607690430330214_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,771) = (/ 0.999913678163238_dbl_kind, 0.997839092778138_dbl_kind, 0.982544214246733_dbl_kind, 0.927313410467443_dbl_kind, 0.607537245244128_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,772) = (/ 0.999913571885047_dbl_kind, 0.997836598843388_dbl_kind, 0.982523434534299_dbl_kind, 0.927232925904327_dbl_kind, 0.607384384272404_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,773) = (/ 0.999913465608597_dbl_kind, 0.997834105287818_dbl_kind, 0.982502656666539_dbl_kind, 0.927152460381469_dbl_kind, 0.607231846713384_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,774) = (/ 0.999913359333882_dbl_kind, 0.997831612111246_dbl_kind, 0.982481880642446_dbl_kind, 0.927072013895864_dbl_kind, 0.607079631866976_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,775) = (/ 0.999913253060901_dbl_kind, 0.997829119313485_dbl_kind, 0.982461106461015_dbl_kind, 0.926991586444497_dbl_kind, 0.606927739034662_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,776) = (/ 0.999913146789651_dbl_kind, 0.997826626894347_dbl_kind, 0.982440334121234_dbl_kind, 0.926911178024336_dbl_kind, 0.606776167519476_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,777) = (/ 0.999913040520128_dbl_kind, 0.997824134853644_dbl_kind, 0.982419563622094_dbl_kind, 0.926830788632341_dbl_kind, 0.606624916626015_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,778) = (/ 0.999912934252331_dbl_kind, 0.997821643191185_dbl_kind, 0.982398794962583_dbl_kind, 0.926750418265457_dbl_kind, 0.606473985660423_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,779) = (/ 0.999912827986255_dbl_kind, 0.997819151906777_dbl_kind, 0.982378028141689_dbl_kind, 0.926670066920616_dbl_kind, 0.606323373930398_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,780) = (/ 0.9999127217219_dbl_kind, 0.997816661000226_dbl_kind, 0.982357263158396_dbl_kind, 0.926589734594742_dbl_kind, 0.606173080745175_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,781) = (/ 0.999912615459262_dbl_kind, 0.997814170471335_dbl_kind, 0.982336500011689_dbl_kind, 0.926509421284741_dbl_kind, 0.606023105415528_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,782) = (/ 0.999912509198338_dbl_kind, 0.997811680319908_dbl_kind, 0.982315738700552_dbl_kind, 0.926429126987508_dbl_kind, 0.605873447253765_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,783) = (/ 0.999912402939126_dbl_kind, 0.997809190545745_dbl_kind, 0.982294979223966_dbl_kind, 0.926348851699929_dbl_kind, 0.605724105573722_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,784) = (/ 0.999912296681624_dbl_kind, 0.997806701148644_dbl_kind, 0.982274221580913_dbl_kind, 0.926268595418873_dbl_kind, 0.605575079690759_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,785) = (/ 0.999912190425829_dbl_kind, 0.997804212128403_dbl_kind, 0.982253465770372_dbl_kind, 0.926188358141199_dbl_kind, 0.605426368921757_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,786) = (/ 0.999912084171739_dbl_kind, 0.997801723484818_dbl_kind, 0.982232711791324_dbl_kind, 0.926108139863755_dbl_kind, 0.605277972585113_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,787) = (/ 0.999911977919351_dbl_kind, 0.997799235217683_dbl_kind, 0.982211959642745_dbl_kind, 0.926027940583373_dbl_kind, 0.605129890000731_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,788) = (/ 0.999911871668664_dbl_kind, 0.99779674732679_dbl_kind, 0.982191209323612_dbl_kind, 0.925947760296875_dbl_kind, 0.604982120490021_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,789) = (/ 0.999911765419673_dbl_kind, 0.997794259811932_dbl_kind, 0.982170460832903_dbl_kind, 0.92586759900107_dbl_kind, 0.604834663375903_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,790) = (/ 0.999911659172379_dbl_kind, 0.997791772672895_dbl_kind, 0.982149714169592_dbl_kind, 0.925787456692754_dbl_kind, 0.604687517982785_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,791) = (/ 0.999911552926779_dbl_kind, 0.99778928590947_dbl_kind, 0.982128969332653_dbl_kind, 0.925707333368712_dbl_kind, 0.604540683636573_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,792) = (/ 0.999911446682869_dbl_kind, 0.997786799521442_dbl_kind, 0.982108226321061_dbl_kind, 0.925627229025717_dbl_kind, 0.60439415966466_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,793) = (/ 0.999911340440649_dbl_kind, 0.997784313508595_dbl_kind, 0.982087485133788_dbl_kind, 0.925547143660527_dbl_kind, 0.604247945395926_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,794) = (/ 0.999911234200116_dbl_kind, 0.997781827870715_dbl_kind, 0.982066745769807_dbl_kind, 0.925467077269891_dbl_kind, 0.604102040160727_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,795) = (/ 0.999911127961268_dbl_kind, 0.99777934260758_dbl_kind, 0.98204600822809_dbl_kind, 0.925387029850542_dbl_kind, 0.603956443290899_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,796) = (/ 0.999911021724104_dbl_kind, 0.997776857718974_dbl_kind, 0.982025272507607_dbl_kind, 0.925307001399205_dbl_kind, 0.603811154119748_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,797) = (/ 0.999910915488621_dbl_kind, 0.997774373204675_dbl_kind, 0.98200453860733_dbl_kind, 0.925226991912589_dbl_kind, 0.603666171982048_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,798) = (/ 0.999910809254818_dbl_kind, 0.997771889064459_dbl_kind, 0.981983806526225_dbl_kind, 0.925147001387393_dbl_kind, 0.603521496214034_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,799) = (/ 0.999910703022692_dbl_kind, 0.997769405298103_dbl_kind, 0.981963076263266_dbl_kind, 0.925067029820304_dbl_kind, 0.603377126153405_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,800) = (/ 0.999910596792242_dbl_kind, 0.997766921905382_dbl_kind, 0.98194234781742_dbl_kind, 0.924987077207994_dbl_kind, 0.603233061139313_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,801) = (/ 0.999910490563466_dbl_kind, 0.997764438886069_dbl_kind, 0.981921621187656_dbl_kind, 0.924907143547126_dbl_kind, 0.603089300512355_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,802) = (/ 0.999910384336362_dbl_kind, 0.997761956239935_dbl_kind, 0.981900896372941_dbl_kind, 0.924827228834351_dbl_kind, 0.602945843614588_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,803) = (/ 0.999910278110929_dbl_kind, 0.997759473966753_dbl_kind, 0.981880173372244_dbl_kind, 0.924747333066304_dbl_kind, 0.602802689789497_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,804) = (/ 0.999910171887166_dbl_kind, 0.99775699206629_dbl_kind, 0.981859452184532_dbl_kind, 0.924667456239613_dbl_kind, 0.602659838382018_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,805) = (/ 0.999910065665069_dbl_kind, 0.997754510538314_dbl_kind, 0.981838732808772_dbl_kind, 0.924587598350889_dbl_kind, 0.602517288738515_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,806) = (/ 0.999909959444638_dbl_kind, 0.997752029382593_dbl_kind, 0.981818015243931_dbl_kind, 0.924507759396736_dbl_kind, 0.602375040206785_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,807) = (/ 0.999909853225871_dbl_kind, 0.99774954859889_dbl_kind, 0.981797299488976_dbl_kind, 0.924427939373741_dbl_kind, 0.602233092136053_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,808) = (/ 0.999909747008768_dbl_kind, 0.997747068186972_dbl_kind, 0.981776585542874_dbl_kind, 0.924348138278483_dbl_kind, 0.602091443876961_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,809) = (/ 0.999909640793326_dbl_kind, 0.997744588146598_dbl_kind, 0.981755873404589_dbl_kind, 0.924268356107528_dbl_kind, 0.601950094781577_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,810) = (/ 0.999909534579543_dbl_kind, 0.997742108477532_dbl_kind, 0.981735163073091_dbl_kind, 0.924188592857428_dbl_kind, 0.60180904420338_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,811) = (/ 0.99990942836742_dbl_kind, 0.997739629179533_dbl_kind, 0.981714454547344_dbl_kind, 0.924108848524727_dbl_kind, 0.601668291497264_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,812) = (/ 0.999909322156952_dbl_kind, 0.997737150252362_dbl_kind, 0.981693747826315_dbl_kind, 0.924029123105953_dbl_kind, 0.601527836019528_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,813) = (/ 0.999909215948142_dbl_kind, 0.997734671695774_dbl_kind, 0.98167304290897_dbl_kind, 0.923949416597625_dbl_kind, 0.601387677127873_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,814) = (/ 0.999909109740986_dbl_kind, 0.997732193509527_dbl_kind, 0.981652339794275_dbl_kind, 0.923869728996251_dbl_kind, 0.601247814181399_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,815) = (/ 0.999909003535482_dbl_kind, 0.997729715693376_dbl_kind, 0.981631638481197_dbl_kind, 0.923790060298324_dbl_kind, 0.601108246540608_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,816) = (/ 0.999908897331632_dbl_kind, 0.997727238247075_dbl_kind, 0.981610938968704_dbl_kind, 0.923710410500327_dbl_kind, 0.600968973567388_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,817) = (/ 0.999908791129432_dbl_kind, 0.997724761170379_dbl_kind, 0.98159024125576_dbl_kind, 0.923630779598733_dbl_kind, 0.600829994625021_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,818) = (/ 0.999908684928882_dbl_kind, 0.997722284463036_dbl_kind, 0.981569545341334_dbl_kind, 0.92355116759_dbl_kind, 0.600691309078167_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,819) = (/ 0.99990857872998_dbl_kind, 0.9977198081248_dbl_kind, 0.981548851224393_dbl_kind, 0.923471574470577_dbl_kind, 0.600552916292869_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,820) = (/ 0.999908472532726_dbl_kind, 0.997717332155419_dbl_kind, 0.981528158903903_dbl_kind, 0.923392000236901_dbl_kind, 0.600414815636553_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,821) = (/ 0.999908366337118_dbl_kind, 0.997714856554642_dbl_kind, 0.981507468378833_dbl_kind, 0.923312444885398_dbl_kind, 0.600277006478008_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,822) = (/ 0.999908260143157_dbl_kind, 0.997712381322217_dbl_kind, 0.981486779648152_dbl_kind, 0.923232908412481_dbl_kind, 0.600139488187406_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,823) = (/ 0.999908153950839_dbl_kind, 0.997709906457889_dbl_kind, 0.981466092710827_dbl_kind, 0.923153390814553_dbl_kind, 0.600002260136275_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,824) = (/ 0.999908047760165_dbl_kind, 0.997707431961405_dbl_kind, 0.981445407565826_dbl_kind, 0.923073892088005_dbl_kind, 0.599865321697508_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,825) = (/ 0.999907941571134_dbl_kind, 0.997704957832509_dbl_kind, 0.981424724212122_dbl_kind, 0.922994412229218_dbl_kind, 0.599728672245359_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,826) = (/ 0.999907835383744_dbl_kind, 0.997702484070944_dbl_kind, 0.981404042648681_dbl_kind, 0.922914951234559_dbl_kind, 0.599592311155438_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,827) = (/ 0.999907729197995_dbl_kind, 0.99770001067645_dbl_kind, 0.981383362874475_dbl_kind, 0.922835509100386_dbl_kind, 0.599456237804705_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,828) = (/ 0.999907623013886_dbl_kind, 0.997697537648772_dbl_kind, 0.981362684888475_dbl_kind, 0.922756085823046_dbl_kind, 0.599320451571469_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,829) = (/ 0.999907516831416_dbl_kind, 0.997695064987648_dbl_kind, 0.981342008689653_dbl_kind, 0.922676681398874_dbl_kind, 0.599184951835385_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,830) = (/ 0.999907410650585_dbl_kind, 0.997692592692817_dbl_kind, 0.98132133427698_dbl_kind, 0.922597295824195_dbl_kind, 0.599049737977448_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,831) = (/ 0.999907304471392_dbl_kind, 0.997690120764019_dbl_kind, 0.981300661649429_dbl_kind, 0.92251792909532_dbl_kind, 0.598914809379992_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,832) = (/ 0.999907198293835_dbl_kind, 0.99768764920099_dbl_kind, 0.981279990805975_dbl_kind, 0.922438581208554_dbl_kind, 0.598780165426686_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,833) = (/ 0.999907092117915_dbl_kind, 0.997685178003468_dbl_kind, 0.981259321745589_dbl_kind, 0.922359252160187_dbl_kind, 0.598645805502527_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,834) = (/ 0.99990698594363_dbl_kind, 0.997682707171186_dbl_kind, 0.981238654467249_dbl_kind, 0.9222799419465_dbl_kind, 0.598511728993844_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,835) = (/ 0.99990687977098_dbl_kind, 0.99768023670388_dbl_kind, 0.981217988969929_dbl_kind, 0.922200650563762_dbl_kind, 0.598377935288288_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,836) = (/ 0.999906773599966_dbl_kind, 0.997677766601285_dbl_kind, 0.981197325252607_dbl_kind, 0.922121378008233_dbl_kind, 0.59824442377483_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,837) = (/ 0.999906667430584_dbl_kind, 0.997675296863132_dbl_kind, 0.981176663314259_dbl_kind, 0.922042124276162_dbl_kind, 0.598111193843761_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,838) = (/ 0.999906561262836_dbl_kind, 0.997672827489153_dbl_kind, 0.981156003153864_dbl_kind, 0.921962889363784_dbl_kind, 0.597978244886681_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,839) = (/ 0.999906455096721_dbl_kind, 0.99767035847908_dbl_kind, 0.981135344770401_dbl_kind, 0.92188367326733_dbl_kind, 0.59784557629651_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,840) = (/ 0.999906348932237_dbl_kind, 0.997667889832643_dbl_kind, 0.98111468816285_dbl_kind, 0.921804475983015_dbl_kind, 0.597713187467468_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,841) = (/ 0.999906242769385_dbl_kind, 0.997665421549572_dbl_kind, 0.981094033330192_dbl_kind, 0.921725297507044_dbl_kind, 0.59758107779508_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,842) = (/ 0.999906136608165_dbl_kind, 0.997662953629595_dbl_kind, 0.981073380271409_dbl_kind, 0.921646137835615_dbl_kind, 0.597449246676174_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,843) = (/ 0.999906030448576_dbl_kind, 0.997660486072439_dbl_kind, 0.981052728985486_dbl_kind, 0.921566996964913_dbl_kind, 0.597317693508875_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,844) = (/ 0.999905924290617_dbl_kind, 0.997658018877833_dbl_kind, 0.981032079471405_dbl_kind, 0.921487874891113_dbl_kind, 0.597186417692599_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,845) = (/ 0.999905818134289_dbl_kind, 0.997655552045502_dbl_kind, 0.981011431728152_dbl_kind, 0.921408771610381_dbl_kind, 0.597055418628063_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,846) = (/ 0.99990571197959_dbl_kind, 0.997653085575173_dbl_kind, 0.980990785754715_dbl_kind, 0.921329687118869_dbl_kind, 0.596924695717261_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,847) = (/ 0.99990560582652_dbl_kind, 0.997650619466568_dbl_kind, 0.980970141550079_dbl_kind, 0.921250621412728_dbl_kind, 0.596794248363475_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,848) = (/ 0.99990549967508_dbl_kind, 0.997648153719414_dbl_kind, 0.980949499113235_dbl_kind, 0.921171574488088_dbl_kind, 0.596664075971271_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,849) = (/ 0.999905393525269_dbl_kind, 0.997645688333433_dbl_kind, 0.980928858443173_dbl_kind, 0.921092546341074_dbl_kind, 0.596534177946492_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,850) = (/ 0.999905287377086_dbl_kind, 0.997643223308347_dbl_kind, 0.980908219538883_dbl_kind, 0.921013536967803_dbl_kind, 0.596404553696256_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,851) = (/ 0.999905181230532_dbl_kind, 0.997640758643879_dbl_kind, 0.98088758239936_dbl_kind, 0.92093454636438_dbl_kind, 0.596275202628954_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,852) = (/ 0.999905075085607_dbl_kind, 0.99763829433975_dbl_kind, 0.980866947023595_dbl_kind, 0.920855574526901_dbl_kind, 0.596146124154243_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,853) = (/ 0.999904968942309_dbl_kind, 0.997635830395681_dbl_kind, 0.980846313410586_dbl_kind, 0.92077662145145_dbl_kind, 0.596017317683051_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,854) = (/ 0.999904862800639_dbl_kind, 0.997633366811391_dbl_kind, 0.980825681559329_dbl_kind, 0.920697687134105_dbl_kind, 0.595888782627562_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,855) = (/ 0.999904756660597_dbl_kind, 0.9976309035866_dbl_kind, 0.980805051468822_dbl_kind, 0.920618771570931_dbl_kind, 0.595760518401225_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,856) = (/ 0.999904650522182_dbl_kind, 0.997628440721026_dbl_kind, 0.980784423138064_dbl_kind, 0.920539874757987_dbl_kind, 0.595632524418746_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,857) = (/ 0.999904544385396_dbl_kind, 0.997625978214388_dbl_kind, 0.980763796566058_dbl_kind, 0.92046099669132_dbl_kind, 0.59550480009608_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,858) = (/ 0.999904438250237_dbl_kind, 0.997623516066403_dbl_kind, 0.980743171751805_dbl_kind, 0.920382137366967_dbl_kind, 0.595377344850436_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,859) = (/ 0.999904332116705_dbl_kind, 0.997621054276787_dbl_kind, 0.980722548694309_dbl_kind, 0.92030329678096_dbl_kind, 0.595250158100268_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,860) = (/ 0.999904225984801_dbl_kind, 0.997618592845257_dbl_kind, 0.980701927392577_dbl_kind, 0.920224474929317_dbl_kind, 0.595123239265278_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,861) = (/ 0.999904119854524_dbl_kind, 0.997616131771529_dbl_kind, 0.980681307845615_dbl_kind, 0.92014567180805_dbl_kind, 0.594996587766407_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,862) = (/ 0.999904013725875_dbl_kind, 0.997613671055318_dbl_kind, 0.980660690052434_dbl_kind, 0.920066887413159_dbl_kind, 0.594870203025836_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,863) = (/ 0.999903907598853_dbl_kind, 0.997611210696337_dbl_kind, 0.980640074012043_dbl_kind, 0.919988121740637_dbl_kind, 0.594744084466977_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,864) = (/ 0.999903801473459_dbl_kind, 0.997608750694302_dbl_kind, 0.980619459723454_dbl_kind, 0.919909374786469_dbl_kind, 0.594618231514479_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,865) = (/ 0.999903695349692_dbl_kind, 0.997606291048927_dbl_kind, 0.980598847185682_dbl_kind, 0.919830646546629_dbl_kind, 0.594492643594222_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,866) = (/ 0.999903589227554_dbl_kind, 0.997603831759923_dbl_kind, 0.980578236397742_dbl_kind, 0.919751937017085_dbl_kind, 0.59436732013331_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,867) = (/ 0.999903483107043_dbl_kind, 0.997601372827003_dbl_kind, 0.980557627358652_dbl_kind, 0.919673246193791_dbl_kind, 0.594242260560071_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,868) = (/ 0.99990337698816_dbl_kind, 0.99759891424988_dbl_kind, 0.980537020067432_dbl_kind, 0.919594574072699_dbl_kind, 0.594117464304052_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,869) = (/ 0.999903270870906_dbl_kind, 0.997596456028265_dbl_kind, 0.980516414523101_dbl_kind, 0.919515920649749_dbl_kind, 0.593992930796024_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,870) = (/ 0.999903164755281_dbl_kind, 0.997593998161868_dbl_kind, 0.980495810724685_dbl_kind, 0.91943728592087_dbl_kind, 0.593868659467962_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,871) = (/ 0.999903058641283_dbl_kind, 0.997591540650402_dbl_kind, 0.980475208671207_dbl_kind, 0.919358669881988_dbl_kind, 0.593744649753069_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,872) = (/ 0.999902952528914_dbl_kind, 0.997589083493574_dbl_kind, 0.980454608361694_dbl_kind, 0.919280072529017_dbl_kind, 0.593620901085746_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,873) = (/ 0.999902846418175_dbl_kind, 0.997586626691098_dbl_kind, 0.980434009795175_dbl_kind, 0.919201493857865_dbl_kind, 0.5934974129016_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,874) = (/ 0.999902740309064_dbl_kind, 0.997584170242679_dbl_kind, 0.98041341297068_dbl_kind, 0.919122933864428_dbl_kind, 0.593374184637451_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,875) = (/ 0.999902634201584_dbl_kind, 0.997581714148028_dbl_kind, 0.980392817887242_dbl_kind, 0.9190443925446_dbl_kind, 0.593251215731312_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,876) = (/ 0.999902528095733_dbl_kind, 0.997579258406854_dbl_kind, 0.980372224543897_dbl_kind, 0.918965869894261_dbl_kind, 0.593128505622395_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,877) = (/ 0.999902421991513_dbl_kind, 0.997576803018864_dbl_kind, 0.980351632939681_dbl_kind, 0.918887365909286_dbl_kind, 0.593006053751111_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,878) = (/ 0.999902315888923_dbl_kind, 0.997574347983766_dbl_kind, 0.980331043073631_dbl_kind, 0.918808880585542_dbl_kind, 0.592883859559062_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,879) = (/ 0.999902209787963_dbl_kind, 0.997571893301268_dbl_kind, 0.980310454944791_dbl_kind, 0.918730413918888_dbl_kind, 0.592761922489037_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,880) = (/ 0.999902103688635_dbl_kind, 0.997569438971076_dbl_kind, 0.980289868552202_dbl_kind, 0.918651965905175_dbl_kind, 0.592640241985016_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,881) = (/ 0.999901997590939_dbl_kind, 0.997566984992898_dbl_kind, 0.98026928389491_dbl_kind, 0.918573536540247_dbl_kind, 0.592518817492163_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,882) = (/ 0.999901891494874_dbl_kind, 0.99756453136644_dbl_kind, 0.980248700971962_dbl_kind, 0.918495125819939_dbl_kind, 0.59239764845682_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,883) = (/ 0.999901785400442_dbl_kind, 0.997562078091407_dbl_kind, 0.980228119782408_dbl_kind, 0.91841673374008_dbl_kind, 0.592276734326512_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,884) = (/ 0.999901679307643_dbl_kind, 0.997559625167506_dbl_kind, 0.980207540325299_dbl_kind, 0.918338360296492_dbl_kind, 0.592156074549939_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,885) = (/ 0.999901573216476_dbl_kind, 0.997557172594441_dbl_kind, 0.980186962599692_dbl_kind, 0.918260005484987_dbl_kind, 0.592035668576974_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,886) = (/ 0.999901467126944_dbl_kind, 0.997554720371919_dbl_kind, 0.980166386604639_dbl_kind, 0.918181669301374_dbl_kind, 0.59191551585866_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,887) = (/ 0.999901361039046_dbl_kind, 0.997552268499645_dbl_kind, 0.980145812339201_dbl_kind, 0.918103351741451_dbl_kind, 0.591795615847212_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,888) = (/ 0.999901254952782_dbl_kind, 0.997549816977321_dbl_kind, 0.980125239802439_dbl_kind, 0.91802505280101_dbl_kind, 0.591675967996004_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,889) = (/ 0.999901148868154_dbl_kind, 0.997547365804654_dbl_kind, 0.980104668993417_dbl_kind, 0.917946772475837_dbl_kind, 0.591556571759582_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,890) = (/ 0.999901042785161_dbl_kind, 0.997544914981347_dbl_kind, 0.980084099911199_dbl_kind, 0.917868510761712_dbl_kind, 0.591437426593643_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,891) = (/ 0.999900936703805_dbl_kind, 0.997542464507104_dbl_kind, 0.980063532554854_dbl_kind, 0.917790267654404_dbl_kind, 0.591318531955046_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,892) = (/ 0.999900830624085_dbl_kind, 0.997540014381628_dbl_kind, 0.980042966923453_dbl_kind, 0.917712043149681_dbl_kind, 0.591199887301806_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,893) = (/ 0.999900724546002_dbl_kind, 0.997537564604624_dbl_kind, 0.98002240301607_dbl_kind, 0.917633837243299_dbl_kind, 0.59108149209309_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,894) = (/ 0.999900618469558_dbl_kind, 0.997535115175794_dbl_kind, 0.980001840831778_dbl_kind, 0.91755564993101_dbl_kind, 0.590963345789213_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,895) = (/ 0.999900512394751_dbl_kind, 0.997532666094842_dbl_kind, 0.979981280369657_dbl_kind, 0.917477481208562_dbl_kind, 0.590845447851636_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,896) = (/ 0.999900406321585_dbl_kind, 0.997530217361469_dbl_kind, 0.979960721628787_dbl_kind, 0.91739933107169_dbl_kind, 0.590727797742972_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,897) = (/ 0.999900300250057_dbl_kind, 0.99752776897538_dbl_kind, 0.979940164608251_dbl_kind, 0.91732119951613_dbl_kind, 0.590610394926965_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,898) = (/ 0.99990019418017_dbl_kind, 0.997525320936277_dbl_kind, 0.979919609307136_dbl_kind, 0.917243086537606_dbl_kind, 0.590493238868511_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,899) = (/ 0.999900088111924_dbl_kind, 0.997522873243861_dbl_kind, 0.979899055724528_dbl_kind, 0.91716499213184_dbl_kind, 0.590376329033631_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,900) = (/ 0.99989998204532_dbl_kind, 0.997520425897835_dbl_kind, 0.97987850385952_dbl_kind, 0.917086916294546_dbl_kind, 0.590259664889489_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,901) = (/ 0.999899875980358_dbl_kind, 0.997517978897901_dbl_kind, 0.979857953711204_dbl_kind, 0.917008859021431_dbl_kind, 0.59014324590438_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,902) = (/ 0.99989976991704_dbl_kind, 0.997515532243762_dbl_kind, 0.979837405278678_dbl_kind, 0.916930820308199_dbl_kind, 0.590027071547723_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,903) = (/ 0.999899663855364_dbl_kind, 0.997513085935118_dbl_kind, 0.979816858561041_dbl_kind, 0.916852800150547_dbl_kind, 0.589911141290069_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,904) = (/ 0.999899557795333_dbl_kind, 0.997510639971672_dbl_kind, 0.979796313557392_dbl_kind, 0.916774798544165_dbl_kind, 0.589795454603092_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,905) = (/ 0.999899451736947_dbl_kind, 0.997508194353125_dbl_kind, 0.979775770266839_dbl_kind, 0.916696815484738_dbl_kind, 0.58968001095959_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,906) = (/ 0.999899345680207_dbl_kind, 0.99750574907918_dbl_kind, 0.979755228688488_dbl_kind, 0.916618850967946_dbl_kind, 0.589564809833476_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,907) = (/ 0.999899239625115_dbl_kind, 0.997503304149537_dbl_kind, 0.979734688821447_dbl_kind, 0.916540904989464_dbl_kind, 0.589449850699785_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,908) = (/ 0.999899133571669_dbl_kind, 0.997500859563897_dbl_kind, 0.979714150664832_dbl_kind, 0.916462977544961_dbl_kind, 0.589335133034663_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,909) = (/ 0.999899027519871_dbl_kind, 0.997498415321963_dbl_kind, 0.979693614217758_dbl_kind, 0.9163850686301_dbl_kind, 0.589220656315369_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,910) = (/ 0.999898921469723_dbl_kind, 0.997495971423436_dbl_kind, 0.979673079479341_dbl_kind, 0.916307178240542_dbl_kind, 0.589106420020273_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,911) = (/ 0.999898815421224_dbl_kind, 0.997493527868015_dbl_kind, 0.979652546448706_dbl_kind, 0.916229306371938_dbl_kind, 0.588992423628852_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,912) = (/ 0.999898709374376_dbl_kind, 0.997491084655404_dbl_kind, 0.979632015124976_dbl_kind, 0.916151453019937_dbl_kind, 0.588878666621689_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,913) = (/ 0.999898603329178_dbl_kind, 0.997488641785303_dbl_kind, 0.979611485507277_dbl_kind, 0.916073618180184_dbl_kind, 0.588765148480465_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,914) = (/ 0.999898497285634_dbl_kind, 0.997486199257414_dbl_kind, 0.979590957594741_dbl_kind, 0.915995801848316_dbl_kind, 0.588651868687964_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,915) = (/ 0.999898391243743_dbl_kind, 0.997483757071437_dbl_kind, 0.9795704313865_dbl_kind, 0.915918004019968_dbl_kind, 0.588538826728071_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,916) = (/ 0.999898285203505_dbl_kind, 0.997481315227074_dbl_kind, 0.979549906881692_dbl_kind, 0.915840224690771_dbl_kind, 0.588426022085761_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,917) = (/ 0.999898179164922_dbl_kind, 0.997478873724026_dbl_kind, 0.979529384079454_dbl_kind, 0.915762463856349_dbl_kind, 0.588313454247104_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,918) = (/ 0.999898073127995_dbl_kind, 0.997476432561993_dbl_kind, 0.97950886297893_dbl_kind, 0.91568472151232_dbl_kind, 0.588201122699262_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,919) = (/ 0.999897967092724_dbl_kind, 0.997473991740679_dbl_kind, 0.979488343579265_dbl_kind, 0.915606997654305_dbl_kind, 0.588089026930482_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,920) = (/ 0.999897861059111_dbl_kind, 0.997471551259783_dbl_kind, 0.979467825879607_dbl_kind, 0.915529292277913_dbl_kind, 0.587977166430101_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,921) = (/ 0.999897755027157_dbl_kind, 0.997469111119007_dbl_kind, 0.979447309879108_dbl_kind, 0.915451605378752_dbl_kind, 0.587865540688535_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,922) = (/ 0.999897648996861_dbl_kind, 0.997466671318054_dbl_kind, 0.979426795576922_dbl_kind, 0.915373936952426_dbl_kind, 0.587754149197287_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,923) = (/ 0.999897542968226_dbl_kind, 0.997464231856622_dbl_kind, 0.979406282972208_dbl_kind, 0.915296286994534_dbl_kind, 0.587642991448935_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,924) = (/ 0.999897436941252_dbl_kind, 0.997461792734416_dbl_kind, 0.979385772064126_dbl_kind, 0.915218655500674_dbl_kind, 0.587532066937131_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,925) = (/ 0.99989733091594_dbl_kind, 0.997459353951136_dbl_kind, 0.97936526285184_dbl_kind, 0.915141042466436_dbl_kind, 0.587421375156608_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,926) = (/ 0.999897224892292_dbl_kind, 0.997456915506484_dbl_kind, 0.979344755334519_dbl_kind, 0.915063447887408_dbl_kind, 0.587310915603165_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,927) = (/ 0.999897118870307_dbl_kind, 0.997454477400161_dbl_kind, 0.979324249511332_dbl_kind, 0.914985871759176_dbl_kind, 0.587200687773673_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,928) = (/ 0.999897012849987_dbl_kind, 0.997452039631871_dbl_kind, 0.979303745381454_dbl_kind, 0.914908314077321_dbl_kind, 0.587090691166073_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,929) = (/ 0.999896906831333_dbl_kind, 0.997449602201314_dbl_kind, 0.979283242944062_dbl_kind, 0.91483077483742_dbl_kind, 0.586980925279368_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,930) = (/ 0.999896800814347_dbl_kind, 0.997447165108193_dbl_kind, 0.979262742198337_dbl_kind, 0.914753254035049_dbl_kind, 0.586871389613623_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,931) = (/ 0.999896694799029_dbl_kind, 0.99744472835221_dbl_kind, 0.97924224314346_dbl_kind, 0.914675751665777_dbl_kind, 0.586762083669968_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,932) = (/ 0.99989658878538_dbl_kind, 0.997442291933068_dbl_kind, 0.979221745778621_dbl_kind, 0.914598267725173_dbl_kind, 0.586653006950588_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,933) = (/ 0.999896482773401_dbl_kind, 0.99743985585047_dbl_kind, 0.979201250103011_dbl_kind, 0.914520802208802_dbl_kind, 0.586544158958723_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,934) = (/ 0.999896376763092_dbl_kind, 0.997437420104118_dbl_kind, 0.979180756115821_dbl_kind, 0.914443355112226_dbl_kind, 0.58643553919867_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,935) = (/ 0.999896270754457_dbl_kind, 0.997434984693714_dbl_kind, 0.979160263816251_dbl_kind, 0.914365926431004_dbl_kind, 0.586327147175778_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,936) = (/ 0.999896164747494_dbl_kind, 0.997432549618963_dbl_kind, 0.979139773203501_dbl_kind, 0.914288516160693_dbl_kind, 0.586218982396441_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,937) = (/ 0.999896058742206_dbl_kind, 0.997430114879567_dbl_kind, 0.979119284276774_dbl_kind, 0.914211124296845_dbl_kind, 0.586111044368106_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,938) = (/ 0.999895952738593_dbl_kind, 0.99742768047523_dbl_kind, 0.979098797035279_dbl_kind, 0.914133750835012_dbl_kind, 0.586003332599261_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,939) = (/ 0.999895846736657_dbl_kind, 0.997425246405655_dbl_kind, 0.979078311478226_dbl_kind, 0.914056395770743_dbl_kind, 0.58589584659944_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,940) = (/ 0.999895740736399_dbl_kind, 0.997422812670547_dbl_kind, 0.97905782760483_dbl_kind, 0.913979059099584_dbl_kind, 0.585788585879211_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,941) = (/ 0.999895634737819_dbl_kind, 0.997420379269609_dbl_kind, 0.97903734541431_dbl_kind, 0.913901740817077_dbl_kind, 0.585681549950192_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,942) = (/ 0.999895528740919_dbl_kind, 0.997417946202546_dbl_kind, 0.979016864905887_dbl_kind, 0.913824440918767_dbl_kind, 0.585574738325026_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,943) = (/ 0.999895422745701_dbl_kind, 0.997415513469062_dbl_kind, 0.978996386078786_dbl_kind, 0.913747159400191_dbl_kind, 0.585468150517394_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,944) = (/ 0.999895316752164_dbl_kind, 0.997413081068863_dbl_kind, 0.978975908932236_dbl_kind, 0.913669896256888_dbl_kind, 0.585361786042013_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,945) = (/ 0.999895210760311_dbl_kind, 0.997410649001652_dbl_kind, 0.978955433465469_dbl_kind, 0.913592651484392_dbl_kind, 0.585255644414627_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,946) = (/ 0.999895104770142_dbl_kind, 0.997408217267136_dbl_kind, 0.978934959677722_dbl_kind, 0.913515425078239_dbl_kind, 0.585149725152004_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,947) = (/ 0.999894998781658_dbl_kind, 0.997405785865019_dbl_kind, 0.978914487568234_dbl_kind, 0.913438217033958_dbl_kind, 0.585044027771943_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,948) = (/ 0.999894892794862_dbl_kind, 0.997403354795008_dbl_kind, 0.978894017136247_dbl_kind, 0.913361027347082_dbl_kind, 0.584938551793265_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,949) = (/ 0.999894786809753_dbl_kind, 0.997400924056808_dbl_kind, 0.978873548381011_dbl_kind, 0.913283856013138_dbl_kind, 0.584833296735809_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,950) = (/ 0.999894680826334_dbl_kind, 0.997398493650127_dbl_kind, 0.978853081301775_dbl_kind, 0.913206703027655_dbl_kind, 0.584728262120439_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,951) = (/ 0.999894574844604_dbl_kind, 0.99739606357467_dbl_kind, 0.978832615897793_dbl_kind, 0.913129568386159_dbl_kind, 0.584623447469029_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,952) = (/ 0.999894468864567_dbl_kind, 0.997393633830145_dbl_kind, 0.978812152168324_dbl_kind, 0.913052452084173_dbl_kind, 0.584518852304474_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,953) = (/ 0.999894362886222_dbl_kind, 0.997391204416258_dbl_kind, 0.978791690112629_dbl_kind, 0.912975354117222_dbl_kind, 0.584414476150679_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,954) = (/ 0.999894256909571_dbl_kind, 0.997388775332717_dbl_kind, 0.978771229729975_dbl_kind, 0.912898274480829_dbl_kind, 0.584310318532561_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,955) = (/ 0.999894150934616_dbl_kind, 0.99738634657923_dbl_kind, 0.97875077101963_dbl_kind, 0.912821213170514_dbl_kind, 0.584206378976045_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,956) = (/ 0.999894044961356_dbl_kind, 0.997383918155506_dbl_kind, 0.978730313980867_dbl_kind, 0.9127441701818_dbl_kind, 0.584102657008061_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,957) = (/ 0.999893938989796_dbl_kind, 0.997381490061252_dbl_kind, 0.978709858612965_dbl_kind, 0.912667145510204_dbl_kind, 0.583999152156547_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,958) = (/ 0.999893833019933_dbl_kind, 0.997379062296177_dbl_kind, 0.978689404915204_dbl_kind, 0.912590139151248_dbl_kind, 0.583895863950439_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,959) = (/ 0.99989372705177_dbl_kind, 0.997376634859991_dbl_kind, 0.978668952886869_dbl_kind, 0.912513151100449_dbl_kind, 0.583792791919677_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,960) = (/ 0.99989362108531_dbl_kind, 0.997374207752404_dbl_kind, 0.978648502527248_dbl_kind, 0.912436181353326_dbl_kind, 0.583689935595199_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,961) = (/ 0.999893515120553_dbl_kind, 0.997371780973124_dbl_kind, 0.978628053835634_dbl_kind, 0.912359229905397_dbl_kind, 0.583587294508939_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,962) = (/ 0.999893409157499_dbl_kind, 0.997369354521861_dbl_kind, 0.978607606811324_dbl_kind, 0.912282296752179_dbl_kind, 0.583484868193822_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,963) = (/ 0.99989330319615_dbl_kind, 0.997366928398328_dbl_kind, 0.978587161453617_dbl_kind, 0.912205381889191_dbl_kind, 0.58338265618377_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,964) = (/ 0.999893197236509_dbl_kind, 0.997364502602234_dbl_kind, 0.97856671776182_dbl_kind, 0.912128485311947_dbl_kind, 0.583280658013693_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,965) = (/ 0.999893091278575_dbl_kind, 0.997362077133292_dbl_kind, 0.978546275735238_dbl_kind, 0.912051607015966_dbl_kind, 0.583178873219488_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,966) = (/ 0.999892985322351_dbl_kind, 0.997359651991212_dbl_kind, 0.978525835373186_dbl_kind, 0.911974746996766_dbl_kind, 0.583077301338038_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,967) = (/ 0.999892879367837_dbl_kind, 0.997357227175708_dbl_kind, 0.978505396674979_dbl_kind, 0.911897905249864_dbl_kind, 0.582975941907213_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,968) = (/ 0.999892773415036_dbl_kind, 0.99735480268649_dbl_kind, 0.978484959639938_dbl_kind, 0.911821081770778_dbl_kind, 0.582874794465865_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,969) = (/ 0.999892667463948_dbl_kind, 0.997352378523273_dbl_kind, 0.978464524267387_dbl_kind, 0.911744276555026_dbl_kind, 0.582773858553822_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,970) = (/ 0.999892561514574_dbl_kind, 0.99734995468577_dbl_kind, 0.978444090556655_dbl_kind, 0.911667489598127_dbl_kind, 0.582673133711893_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,971) = (/ 0.999892455566916_dbl_kind, 0.997347531173694_dbl_kind, 0.978423658507076_dbl_kind, 0.911590720895599_dbl_kind, 0.582572619481864_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,972) = (/ 0.999892349620977_dbl_kind, 0.99734510798676_dbl_kind, 0.978403228117983_dbl_kind, 0.911513970442964_dbl_kind, 0.582472315406491_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,973) = (/ 0.999892243676756_dbl_kind, 0.997342685124682_dbl_kind, 0.978382799388721_dbl_kind, 0.911437238235742_dbl_kind, 0.582372221029506_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,974) = (/ 0.999892137734255_dbl_kind, 0.997340262587176_dbl_kind, 0.978362372318631_dbl_kind, 0.911360524269454_dbl_kind, 0.582272335895611_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,975) = (/ 0.999892031793476_dbl_kind, 0.997337840373956_dbl_kind, 0.978341946907065_dbl_kind, 0.911283828539624_dbl_kind, 0.582172659550472_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,976) = (/ 0.99989192585442_dbl_kind, 0.997335418484741_dbl_kind, 0.978321523153376_dbl_kind, 0.911207151041774_dbl_kind, 0.58207319154073_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,977) = (/ 0.999891819917089_dbl_kind, 0.997332996919243_dbl_kind, 0.97830110105692_dbl_kind, 0.91113049177143_dbl_kind, 0.58197393141398_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,978) = (/ 0.999891713981483_dbl_kind, 0.997330575677183_dbl_kind, 0.978280680617059_dbl_kind, 0.911053850724117_dbl_kind, 0.581874878718785_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,979) = (/ 0.999891608047605_dbl_kind, 0.997328154758276_dbl_kind, 0.97826026183316_dbl_kind, 0.910977227895364_dbl_kind, 0.581776033004668_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,980) = (/ 0.999891502115455_dbl_kind, 0.99732573416224_dbl_kind, 0.978239844704592_dbl_kind, 0.9109006232807_dbl_kind, 0.581677393822108_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,981) = (/ 0.999891396185036_dbl_kind, 0.997323313888795_dbl_kind, 0.97821942923073_dbl_kind, 0.910824036875654_dbl_kind, 0.581578960722543_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,982) = (/ 0.999891290256349_dbl_kind, 0.997320893937658_dbl_kind, 0.978199015410953_dbl_kind, 0.910747468675759_dbl_kind, 0.581480733258364_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,983) = (/ 0.999891184329394_dbl_kind, 0.99731847430855_dbl_kind, 0.978178603244644_dbl_kind, 0.910670918676549_dbl_kind, 0.581382710982918_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,984) = (/ 0.999891078404174_dbl_kind, 0.997316055001188_dbl_kind, 0.97815819273119_dbl_kind, 0.91059438687356_dbl_kind, 0.581284893450497_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,985) = (/ 0.99989097248069_dbl_kind, 0.997313636015296_dbl_kind, 0.978137783869981_dbl_kind, 0.910517873262329_dbl_kind, 0.581187280216346_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,986) = (/ 0.999890866558944_dbl_kind, 0.997311217350593_dbl_kind, 0.978117376660416_dbl_kind, 0.910441377838397_dbl_kind, 0.581089870836655_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,987) = (/ 0.999890760638938_dbl_kind, 0.997308799006799_dbl_kind, 0.978096971101892_dbl_kind, 0.910364900597305_dbl_kind, 0.580992664868559_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,988) = (/ 0.999890654720672_dbl_kind, 0.997306380983639_dbl_kind, 0.978076567193816_dbl_kind, 0.910288441534598_dbl_kind, 0.580895661870138_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,989) = (/ 0.999890548804148_dbl_kind, 0.997303963280833_dbl_kind, 0.978056164935597_dbl_kind, 0.910212000645822_dbl_kind, 0.580798861400411_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,990) = (/ 0.999890442889367_dbl_kind, 0.997301545898105_dbl_kind, 0.978035764326648_dbl_kind, 0.910135577926525_dbl_kind, 0.580702263019338_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,991) = (/ 0.999890336976332_dbl_kind, 0.997299128835177_dbl_kind, 0.978015365366386_dbl_kind, 0.91005917337226_dbl_kind, 0.580605866287812_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,992) = (/ 0.999890231065044_dbl_kind, 0.997296712091776_dbl_kind, 0.977994968054236_dbl_kind, 0.909982786978581_dbl_kind, 0.580509670767668_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,993) = (/ 0.999890125155503_dbl_kind, 0.997294295667624_dbl_kind, 0.977974572389622_dbl_kind, 0.909906418741045_dbl_kind, 0.580413676021671_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,994) = (/ 0.999890019247712_dbl_kind, 0.997291879562446_dbl_kind, 0.977954178371976_dbl_kind, 0.909830068655212_dbl_kind, 0.580317881613517_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,995) = (/ 0.999889913341674_dbl_kind, 0.99728946377597_dbl_kind, 0.977933786000735_dbl_kind, 0.909753736716643_dbl_kind, 0.580222287107834_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,996) = (/ 0.999889807437388_dbl_kind, 0.997287048307921_dbl_kind, 0.977913395275339_dbl_kind, 0.909677422920907_dbl_kind, 0.580126892070178_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,997) = (/ 0.999889701534857_dbl_kind, 0.997284633158026_dbl_kind, 0.977893006195232_dbl_kind, 0.90960112726357_dbl_kind, 0.580031696067029_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,998) = (/ 0.999889595634082_dbl_kind, 0.997282218326012_dbl_kind, 0.977872618759864_dbl_kind, 0.909524849740204_dbl_kind, 0.579936698665791_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,999) = (/ 0.999889489735064_dbl_kind, 0.997279803811608_dbl_kind, 0.977852232968689_dbl_kind, 0.909448590346387_dbl_kind, 0.579841899434796_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1000) = (/ 0.999889383837807_dbl_kind, 0.99727738961454_dbl_kind, 0.977831848821166_dbl_kind, 0.909372349077695_dbl_kind, 0.57974729794329_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1001) = (/ 0.99988927794231_dbl_kind, 0.997274975734541_dbl_kind, 0.977811466316757_dbl_kind, 0.909296125929713_dbl_kind, 0.579652893761439_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1002) = (/ 0.999889172048576_dbl_kind, 0.99727256217134_dbl_kind, 0.977791085454931_dbl_kind, 0.909219920898026_dbl_kind, 0.579558686460331_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1003) = (/ 0.999889066156606_dbl_kind, 0.997270148924665_dbl_kind, 0.97777070623516_dbl_kind, 0.909143733978222_dbl_kind, 0.579464675611961_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1004) = (/ 0.999888960266403_dbl_kind, 0.997267735994249_dbl_kind, 0.977750328656921_dbl_kind, 0.909067565165897_dbl_kind, 0.579370860789246_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1005) = (/ 0.999888854377967_dbl_kind, 0.997265323379823_dbl_kind, 0.977729952719695_dbl_kind, 0.908991414456648_dbl_kind, 0.579277241566008_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1006) = (/ 0.9998887484913_dbl_kind, 0.99726291108112_dbl_kind, 0.97770957842297_dbl_kind, 0.908915281846077_dbl_kind, 0.579183817516979_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1007) = (/ 0.999888642606404_dbl_kind, 0.997260499097872_dbl_kind, 0.977689205766236_dbl_kind, 0.908839167329788_dbl_kind, 0.579090588217805_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1008) = (/ 0.999888536723281_dbl_kind, 0.997258087429814_dbl_kind, 0.97766883474899_dbl_kind, 0.908763070903392_dbl_kind, 0.578997553245031_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1009) = (/ 0.999888430841932_dbl_kind, 0.997255676076678_dbl_kind, 0.977648465370731_dbl_kind, 0.908686992562503_dbl_kind, 0.578904712176107_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1010) = (/ 0.99988832496236_dbl_kind, 0.997253265038201_dbl_kind, 0.977628097630966_dbl_kind, 0.90861093230274_dbl_kind, 0.578812064589391_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1011) = (/ 0.999888219084564_dbl_kind, 0.997250854314117_dbl_kind, 0.977607731529204_dbl_kind, 0.908534890119725_dbl_kind, 0.578719610064134_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1012) = (/ 0.999888113208549_dbl_kind, 0.997248443904164_dbl_kind, 0.97758736706496_dbl_kind, 0.908458866009087_dbl_kind, 0.578627348180494_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1013) = (/ 0.999888007334316_dbl_kind, 0.997246033808076_dbl_kind, 0.977567004237754_dbl_kind, 0.908382859966458_dbl_kind, 0.578535278519518_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1014) = (/ 0.999887901461865_dbl_kind, 0.997243624025593_dbl_kind, 0.97754664304711_dbl_kind, 0.908306871987476_dbl_kind, 0.578443400663153_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1015) = (/ 0.999887795591198_dbl_kind, 0.997241214556451_dbl_kind, 0.977526283492558_dbl_kind, 0.908230902067781_dbl_kind, 0.578351714194238_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1016) = (/ 0.999887689722319_dbl_kind, 0.997238805400391_dbl_kind, 0.977505925573632_dbl_kind, 0.908154950203023_dbl_kind, 0.578260218696506_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1017) = (/ 0.999887583855227_dbl_kind, 0.997236396557151_dbl_kind, 0.977485569289872_dbl_kind, 0.908079016388852_dbl_kind, 0.578168913754576_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1018) = (/ 0.999887477989926_dbl_kind, 0.997233988026472_dbl_kind, 0.97746521464082_dbl_kind, 0.908003100620928_dbl_kind, 0.578077798953958_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1019) = (/ 0.999887372126417_dbl_kind, 0.997231579808094_dbl_kind, 0.977444861626026_dbl_kind, 0.907927202894911_dbl_kind, 0.577986873881048_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1020) = (/ 0.999887266264702_dbl_kind, 0.99722917190176_dbl_kind, 0.977424510245044_dbl_kind, 0.907851323206471_dbl_kind, 0.577896138123126_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1021) = (/ 0.999887160404782_dbl_kind, 0.99722676430721_dbl_kind, 0.977404160497432_dbl_kind, 0.907775461551281_dbl_kind, 0.577805591268355_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1022) = (/ 0.999887054546659_dbl_kind, 0.99722435702419_dbl_kind, 0.977383812382754_dbl_kind, 0.907699617925021_dbl_kind, 0.577715232905778_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1023) = (/ 0.999886948690336_dbl_kind, 0.997221950052441_dbl_kind, 0.977363465900579_dbl_kind, 0.907623792323376_dbl_kind, 0.577625062625321_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1024) = (/ 0.999886842835814_dbl_kind, 0.997219543391709_dbl_kind, 0.977343121050481_dbl_kind, 0.907547984742036_dbl_kind, 0.577535080017783_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1025) = (/ 0.999886736983094_dbl_kind, 0.997217137041738_dbl_kind, 0.977322777832037_dbl_kind, 0.907472195176698_dbl_kind, 0.577445284674844_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1026) = (/ 0.99988663113218_dbl_kind, 0.997214731002274_dbl_kind, 0.977302436244833_dbl_kind, 0.907396423623065_dbl_kind, 0.577355676189053_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1027) = (/ 0.999886525283072_dbl_kind, 0.997212325273064_dbl_kind, 0.977282096288456_dbl_kind, 0.907320670076846_dbl_kind, 0.577266254153835_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1028) = (/ 0.999886419435773_dbl_kind, 0.997209919853856_dbl_kind, 0.977261757962499_dbl_kind, 0.907244934533756_dbl_kind, 0.577177018163484_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1029) = (/ 0.999886313590284_dbl_kind, 0.997207514744397_dbl_kind, 0.977241421266563_dbl_kind, 0.907169216989516_dbl_kind, 0.577087967813162_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1030) = (/ 0.999886207746608_dbl_kind, 0.997205109944435_dbl_kind, 0.977221086200251_dbl_kind, 0.907093517439854_dbl_kind, 0.576999102698903_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1031) = (/ 0.999886101904746_dbl_kind, 0.997202705453722_dbl_kind, 0.977200752763172_dbl_kind, 0.907017835880505_dbl_kind, 0.576910422417602_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1032) = (/ 0.9998859960647_dbl_kind, 0.997200301272006_dbl_kind, 0.97718042095494_dbl_kind, 0.906942172307207_dbl_kind, 0.576821926567019_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1033) = (/ 0.999885890226473_dbl_kind, 0.997197897399039_dbl_kind, 0.977160090775174_dbl_kind, 0.906866526715711_dbl_kind, 0.576733614745776_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1034) = (/ 0.999885784390066_dbl_kind, 0.997195493834573_dbl_kind, 0.977139762223499_dbl_kind, 0.906790899101769_dbl_kind, 0.576645486553356_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1035) = (/ 0.999885678555481_dbl_kind, 0.997193090578359_dbl_kind, 0.977119435299544_dbl_kind, 0.906715289461143_dbl_kind, 0.576557541590101_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1036) = (/ 0.99988557272272_dbl_kind, 0.997190687630153_dbl_kind, 0.977099110002945_dbl_kind, 0.906639697789601_dbl_kind, 0.57646977945721_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1037) = (/ 0.999885466891786_dbl_kind, 0.997188284989707_dbl_kind, 0.977078786333341_dbl_kind, 0.906564124082918_dbl_kind, 0.576382199756735_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1038) = (/ 0.999885361062679_dbl_kind, 0.997185882656776_dbl_kind, 0.977058464290377_dbl_kind, 0.906488568336877_dbl_kind, 0.576294802091586_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1039) = (/ 0.999885255235402_dbl_kind, 0.997183480631117_dbl_kind, 0.977038143873704_dbl_kind, 0.906413030547266_dbl_kind, 0.576207586065521_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1040) = (/ 0.999885149409959_dbl_kind, 0.997181078912485_dbl_kind, 0.977017825082977_dbl_kind, 0.906337510709886_dbl_kind, 0.57612055128315_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1041) = (/ 0.999885043586349_dbl_kind, 0.997178677500638_dbl_kind, 0.976997507917859_dbl_kind, 0.906262008820538_dbl_kind, 0.576033697349931_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1042) = (/ 0.999884937764575_dbl_kind, 0.997176276395334_dbl_kind, 0.976977192378014_dbl_kind, 0.906186524875035_dbl_kind, 0.575947023872171_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1043) = (/ 0.99988483194464_dbl_kind, 0.997173875596331_dbl_kind, 0.976956878463114_dbl_kind, 0.906111058869197_dbl_kind, 0.575860530457018_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1044) = (/ 0.999884726126546_dbl_kind, 0.997171475103391_dbl_kind, 0.976936566172838_dbl_kind, 0.906035610798851_dbl_kind, 0.57577421671247_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1045) = (/ 0.999884620310294_dbl_kind, 0.997169074916271_dbl_kind, 0.976916255506866_dbl_kind, 0.905960180659833_dbl_kind, 0.575688082247359_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1046) = (/ 0.999884514495887_dbl_kind, 0.997166675034735_dbl_kind, 0.976895946464885_dbl_kind, 0.905884768447987_dbl_kind, 0.575602126671365_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1047) = (/ 0.999884408683327_dbl_kind, 0.997164275458544_dbl_kind, 0.976875639046591_dbl_kind, 0.905809374159165_dbl_kind, 0.575516349595002_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1048) = (/ 0.999884302872615_dbl_kind, 0.99716187618746_dbl_kind, 0.976855333251679_dbl_kind, 0.905733997789224_dbl_kind, 0.575430750629619_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1049) = (/ 0.999884197063755_dbl_kind, 0.997159477221249_dbl_kind, 0.976835029079856_dbl_kind, 0.905658639334035_dbl_kind, 0.575345329387406_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1050) = (/ 0.999884091256748_dbl_kind, 0.997157078559675_dbl_kind, 0.97681472653083_dbl_kind, 0.905583298789474_dbl_kind, 0.575260085481384_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1051) = (/ 0.999883985451597_dbl_kind, 0.997154680202501_dbl_kind, 0.976794425604314_dbl_kind, 0.905507976151423_dbl_kind, 0.575175018525405_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1052) = (/ 0.999883879648303_dbl_kind, 0.997152282149496_dbl_kind, 0.97677412630003_dbl_kind, 0.905432671415778_dbl_kind, 0.575090128134154_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1053) = (/ 0.999883773846869_dbl_kind, 0.997149884400426_dbl_kind, 0.976753828617703_dbl_kind, 0.90535738457844_dbl_kind, 0.575005413923141_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1054) = (/ 0.999883668047297_dbl_kind, 0.997147486955059_dbl_kind, 0.976733532557064_dbl_kind, 0.90528211563532_dbl_kind, 0.574920875508707_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1055) = (/ 0.99988356224959_dbl_kind, 0.997145089813163_dbl_kind, 0.976713238117851_dbl_kind, 0.905206864582338_dbl_kind, 0.574836512508014_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1056) = (/ 0.999883456453748_dbl_kind, 0.997142692974509_dbl_kind, 0.976692945299805_dbl_kind, 0.905131631415422_dbl_kind, 0.574752324539054_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1057) = (/ 0.999883350659776_dbl_kind, 0.997140296438867_dbl_kind, 0.976672654102674_dbl_kind, 0.905056416130511_dbl_kind, 0.574668311220634_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1058) = (/ 0.999883244867675_dbl_kind, 0.997137900206008_dbl_kind, 0.97665236452621_dbl_kind, 0.90498121872355_dbl_kind, 0.574584472172388_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1059) = (/ 0.999883139077447_dbl_kind, 0.997135504275705_dbl_kind, 0.976632076570173_dbl_kind, 0.904906039190496_dbl_kind, 0.574500807014765_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1060) = (/ 0.999883033289095_dbl_kind, 0.997133108647729_dbl_kind, 0.976611790234328_dbl_kind, 0.904830877527316_dbl_kind, 0.574417315369034_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1061) = (/ 0.999882927502621_dbl_kind, 0.997130713321857_dbl_kind, 0.976591505518444_dbl_kind, 0.904755733729982_dbl_kind, 0.574333996857275_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1062) = (/ 0.999882821718028_dbl_kind, 0.997128318297862_dbl_kind, 0.976571222422298_dbl_kind, 0.904680607794479_dbl_kind, 0.574250851102389_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1063) = (/ 0.999882715935317_dbl_kind, 0.997125923575521_dbl_kind, 0.976550940945669_dbl_kind, 0.904605499716803_dbl_kind, 0.574167877728084_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1064) = (/ 0.999882610154491_dbl_kind, 0.997123529154609_dbl_kind, 0.976530661088347_dbl_kind, 0.904530409492958_dbl_kind, 0.574085076358883_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1065) = (/ 0.999882504375552_dbl_kind, 0.997121135034904_dbl_kind, 0.976510382850123_dbl_kind, 0.904455337118956_dbl_kind, 0.574002446620115_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1066) = (/ 0.999882398598504_dbl_kind, 0.997118741216185_dbl_kind, 0.976490106230796_dbl_kind, 0.90438028259082_dbl_kind, 0.573919988137917_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1067) = (/ 0.999882292823348_dbl_kind, 0.997116347698231_dbl_kind, 0.97646983123017_dbl_kind, 0.904305245904586_dbl_kind, 0.573837700539237_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1068) = (/ 0.999882187050086_dbl_kind, 0.997113954480822_dbl_kind, 0.976449557848054_dbl_kind, 0.904230227056297_dbl_kind, 0.573755583451818_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1069) = (/ 0.999882081278721_dbl_kind, 0.99711156156374_dbl_kind, 0.976429286084265_dbl_kind, 0.904155226042006_dbl_kind, 0.573673636504217_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1070) = (/ 0.999881975509257_dbl_kind, 0.997109168946767_dbl_kind, 0.976409015938625_dbl_kind, 0.904080242857778_dbl_kind, 0.573591859325784_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1071) = (/ 0.999881869741694_dbl_kind, 0.997106776629684_dbl_kind, 0.97638874741096_dbl_kind, 0.90400527749969_dbl_kind, 0.573510251546674_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1072) = (/ 0.999881763976035_dbl_kind, 0.997104384612277_dbl_kind, 0.976368480501103_dbl_kind, 0.903930329963825_dbl_kind, 0.573428812797836_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1073) = (/ 0.999881658212284_dbl_kind, 0.99710199289433_dbl_kind, 0.976348215208892_dbl_kind, 0.90385540024628_dbl_kind, 0.57334754271102_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1074) = (/ 0.999881552450443_dbl_kind, 0.997099601475629_dbl_kind, 0.976327951534175_dbl_kind, 0.90378048834316_dbl_kind, 0.573266440918768_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1075) = (/ 0.999881446690513_dbl_kind, 0.997097210355961_dbl_kind, 0.9763076894768_dbl_kind, 0.903705594250585_dbl_kind, 0.573185507054416_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1076) = (/ 0.999881340932498_dbl_kind, 0.997094819535112_dbl_kind, 0.976287429036623_dbl_kind, 0.903630717964683_dbl_kind, 0.573104740752093_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1077) = (/ 0.9998812351764_dbl_kind, 0.997092429012872_dbl_kind, 0.97626717021351_dbl_kind, 0.903555859481594_dbl_kind, 0.573024141646718_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1078) = (/ 0.999881129422223_dbl_kind, 0.997090038789031_dbl_kind, 0.976246913007325_dbl_kind, 0.903481018797467_dbl_kind, 0.572943709373999_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1079) = (/ 0.999881023669967_dbl_kind, 0.997087648863378_dbl_kind, 0.976226657417944_dbl_kind, 0.903406195908465_dbl_kind, 0.572863443570429_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1080) = (/ 0.999880917919637_dbl_kind, 0.997085259235705_dbl_kind, 0.976206403445248_dbl_kind, 0.903331390810762_dbl_kind, 0.572783343873292_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1081) = (/ 0.999880812171234_dbl_kind, 0.997082869905804_dbl_kind, 0.976186151089123_dbl_kind, 0.903256603500541_dbl_kind, 0.572703409920649_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1082) = (/ 0.999880706424761_dbl_kind, 0.99708048087347_dbl_kind, 0.97616590034946_dbl_kind, 0.903181833974_dbl_kind, 0.572623641351351_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1083) = (/ 0.999880600680223_dbl_kind, 0.997078092138495_dbl_kind, 0.976145651226159_dbl_kind, 0.903107082227345_dbl_kind, 0.572544037805024_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1084) = (/ 0.999880494937619_dbl_kind, 0.997075703700674_dbl_kind, 0.976125403719123_dbl_kind, 0.903032348256798_dbl_kind, 0.572464598922076_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1085) = (/ 0.999880389196954_dbl_kind, 0.997073315559806_dbl_kind, 0.976105157828262_dbl_kind, 0.902957632058587_dbl_kind, 0.572385324343695_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1086) = (/ 0.99988028345823_dbl_kind, 0.997070927715686_dbl_kind, 0.976084913553494_dbl_kind, 0.902882933628959_dbl_kind, 0.572306213711844_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1087) = (/ 0.999880177721451_dbl_kind, 0.997068540168112_dbl_kind, 0.97606467089474_dbl_kind, 0.902808252964167_dbl_kind, 0.572227266669257_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1088) = (/ 0.999880071986618_dbl_kind, 0.997066152916884_dbl_kind, 0.976044429851929_dbl_kind, 0.902733590060479_dbl_kind, 0.572148482859449_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1089) = (/ 0.999879966253734_dbl_kind, 0.997063765961802_dbl_kind, 0.976024190424996_dbl_kind, 0.902658944914175_dbl_kind, 0.572069861926701_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1090) = (/ 0.999879860522803_dbl_kind, 0.997061379302668_dbl_kind, 0.976003952613882_dbl_kind, 0.902584317521546_dbl_kind, 0.571991403516065_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1091) = (/ 0.999879754793827_dbl_kind, 0.997058992939282_dbl_kind, 0.975983716418533_dbl_kind, 0.902509707878897_dbl_kind, 0.571913107273366_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1092) = (/ 0.999879649066809_dbl_kind, 0.997056606871449_dbl_kind, 0.975963481838904_dbl_kind, 0.902435115982546_dbl_kind, 0.571834972845189_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1093) = (/ 0.999879543341752_dbl_kind, 0.997054221098972_dbl_kind, 0.975943248874952_dbl_kind, 0.90236054182882_dbl_kind, 0.571756999878893_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1094) = (/ 0.999879437618658_dbl_kind, 0.997051835621657_dbl_kind, 0.975923017526644_dbl_kind, 0.902285985414063_dbl_kind, 0.571679188022596_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1095) = (/ 0.999879331897532_dbl_kind, 0.997049450439309_dbl_kind, 0.975902787793952_dbl_kind, 0.902211446734629_dbl_kind, 0.57160153692518_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1096) = (/ 0.999879226178375_dbl_kind, 0.997047065551735_dbl_kind, 0.975882559676855_dbl_kind, 0.902136925786886_dbl_kind, 0.571524046236288_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1097) = (/ 0.99987912046119_dbl_kind, 0.997044680958745_dbl_kind, 0.975862333175335_dbl_kind, 0.902062422567216_dbl_kind, 0.571446715606324_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1098) = (/ 0.999879014745981_dbl_kind, 0.997042296660146_dbl_kind, 0.975842108289385_dbl_kind, 0.901987937072011_dbl_kind, 0.57136954468645_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1099) = (/ 0.999878909032751_dbl_kind, 0.99703991265575_dbl_kind, 0.975821885019_dbl_kind, 0.90191346929768_dbl_kind, 0.571292533128583_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1100) = (/ 0.999878803321501_dbl_kind, 0.997037528945367_dbl_kind, 0.975801663364186_dbl_kind, 0.901839019240642_dbl_kind, 0.571215680585398_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1101) = (/ 0.999878697612237_dbl_kind, 0.99703514552881_dbl_kind, 0.97578144332495_dbl_kind, 0.901764586897331_dbl_kind, 0.57113898671032_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1102) = (/ 0.99987859190496_dbl_kind, 0.997032762405891_dbl_kind, 0.975761224901309_dbl_kind, 0.901690172264195_dbl_kind, 0.571062451157531_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1103) = (/ 0.999878486199674_dbl_kind, 0.997030379576426_dbl_kind, 0.975741008093287_dbl_kind, 0.901615775337695_dbl_kind, 0.570986073581958_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1104) = (/ 0.999878380496381_dbl_kind, 0.997027997040229_dbl_kind, 0.975720792900911_dbl_kind, 0.901541396114305_dbl_kind, 0.570909853639284_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1105) = (/ 0.999878274795085_dbl_kind, 0.997025614797117_dbl_kind, 0.975700579324216_dbl_kind, 0.901467034590514_dbl_kind, 0.570833790985936_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1106) = (/ 0.99987816909579_dbl_kind, 0.997023232846907_dbl_kind, 0.975680367363246_dbl_kind, 0.901392690762823_dbl_kind, 0.570757885279086_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1107) = (/ 0.999878063398497_dbl_kind, 0.997020851189418_dbl_kind, 0.975660157018047_dbl_kind, 0.901318364627749_dbl_kind, 0.570682136176654_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1108) = (/ 0.99987795770321_dbl_kind, 0.99701846982447_dbl_kind, 0.975639948288675_dbl_kind, 0.901244056181823_dbl_kind, 0.570606543337302_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1109) = (/ 0.999877852009934_dbl_kind, 0.997016088751882_dbl_kind, 0.975619741175191_dbl_kind, 0.901169765421588_dbl_kind, 0.570531106420433_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1110) = (/ 0.99987774631867_dbl_kind, 0.997013707971477_dbl_kind, 0.975599535677664_dbl_kind, 0.901095492343602_dbl_kind, 0.570455825086193_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1111) = (/ 0.999877640629421_dbl_kind, 0.997011327483077_dbl_kind, 0.975579331796166_dbl_kind, 0.901021236944441_dbl_kind, 0.570380698995464_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1112) = (/ 0.999877534942193_dbl_kind, 0.997008947286506_dbl_kind, 0.975559129530779_dbl_kind, 0.90094699922069_dbl_kind, 0.570305727809867_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1113) = (/ 0.999877429256987_dbl_kind, 0.99700656738159_dbl_kind, 0.97553892888159_dbl_kind, 0.900872779168953_dbl_kind, 0.57023091119176_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1114) = (/ 0.999877323573806_dbl_kind, 0.997004187768153_dbl_kind, 0.975518729848695_dbl_kind, 0.900798576785845_dbl_kind, 0.570156248804233_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1115) = (/ 0.999877217892656_dbl_kind, 0.997001808446023_dbl_kind, 0.975498532432193_dbl_kind, 0.900724392067998_dbl_kind, 0.570081740311111_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1116) = (/ 0.999877112213537_dbl_kind, 0.996999429415028_dbl_kind, 0.975478336632192_dbl_kind, 0.900650225012059_dbl_kind, 0.570007385376952_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1117) = (/ 0.999877006536454_dbl_kind, 0.996997050674997_dbl_kind, 0.975458142448805_dbl_kind, 0.900576075614689_dbl_kind, 0.569933183667041_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1118) = (/ 0.999876900861411_dbl_kind, 0.996994672225762_dbl_kind, 0.975437949882155_dbl_kind, 0.900501943872564_dbl_kind, 0.569859134847393_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1119) = (/ 0.99987679518841_dbl_kind, 0.996992294067151_dbl_kind, 0.975417758932367_dbl_kind, 0.900427829782376_dbl_kind, 0.569785238584752_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1120) = (/ 0.999876689517457_dbl_kind, 0.996989916198999_dbl_kind, 0.975397569599577_dbl_kind, 0.900353733340831_dbl_kind, 0.569711494546585_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1121) = (/ 0.999876583848551_dbl_kind, 0.996987538621139_dbl_kind, 0.975377381883925_dbl_kind, 0.900279654544652_dbl_kind, 0.569637902401085_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1122) = (/ 0.999876478181701_dbl_kind, 0.996985161333405_dbl_kind, 0.975357195785559_dbl_kind, 0.900205593390577_dbl_kind, 0.56956446181717_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1123) = (/ 0.999876372516906_dbl_kind, 0.996982784335633_dbl_kind, 0.975337011304634_dbl_kind, 0.900131549875357_dbl_kind, 0.569491172464476_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1124) = (/ 0.999876266854172_dbl_kind, 0.996980407627661_dbl_kind, 0.975316828441311_dbl_kind, 0.900057523995762_dbl_kind, 0.56941803401336_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1125) = (/ 0.999876161193502_dbl_kind, 0.996978031209326_dbl_kind, 0.975296647195758_dbl_kind, 0.899983515748576_dbl_kind, 0.569345046134899_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1126) = (/ 0.999876055534899_dbl_kind, 0.996975655080467_dbl_kind, 0.975276467568151_dbl_kind, 0.8999095251306_dbl_kind, 0.569272208500888_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1127) = (/ 0.999875949878368_dbl_kind, 0.996973279240925_dbl_kind, 0.97525628955867_dbl_kind, 0.89983555213865_dbl_kind, 0.569199520783835_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1128) = (/ 0.999875844223911_dbl_kind, 0.996970903690541_dbl_kind, 0.975236113167505_dbl_kind, 0.899761596769558_dbl_kind, 0.569126982656963_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1129) = (/ 0.999875738571532_dbl_kind, 0.996968528429157_dbl_kind, 0.975215938394852_dbl_kind, 0.899687659020172_dbl_kind, 0.56905459379421_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1130) = (/ 0.999875632921236_dbl_kind, 0.996966153456616_dbl_kind, 0.975195765240913_dbl_kind, 0.899613738887357_dbl_kind, 0.568982353870226_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1131) = (/ 0.999875527273026_dbl_kind, 0.996963778772765_dbl_kind, 0.975175593705899_dbl_kind, 0.899539836367993_dbl_kind, 0.568910262560365_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1132) = (/ 0.999875421626906_dbl_kind, 0.996961404377448_dbl_kind, 0.975155423790025_dbl_kind, 0.899465951458977_dbl_kind, 0.5688383195407_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1133) = (/ 0.999875315982879_dbl_kind, 0.996959030270513_dbl_kind, 0.975135255493515_dbl_kind, 0.899392084157226_dbl_kind, 0.568766524488001_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1134) = (/ 0.999875210340948_dbl_kind, 0.996956656451808_dbl_kind, 0.9751150888166_dbl_kind, 0.899318234459666_dbl_kind, 0.568694877079752_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1135) = (/ 0.99987510470112_dbl_kind, 0.996954282921181_dbl_kind, 0.975094923759518_dbl_kind, 0.899244402363246_dbl_kind, 0.568623376994134_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1136) = (/ 0.999874999063397_dbl_kind, 0.996951909678484_dbl_kind, 0.975074760322513_dbl_kind, 0.899170587864931_dbl_kind, 0.568552023910039_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1137) = (/ 0.999874893427781_dbl_kind, 0.996949536723568_dbl_kind, 0.975054598505837_dbl_kind, 0.8990967909617_dbl_kind, 0.568480817507055_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1138) = (/ 0.999874787794279_dbl_kind, 0.996947164056287_dbl_kind, 0.97503443830975_dbl_kind, 0.899023011650552_dbl_kind, 0.568409757465472_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1139) = (/ 0.999874682162894_dbl_kind, 0.996944791676493_dbl_kind, 0.975014279734516_dbl_kind, 0.8989492499285_dbl_kind, 0.56833884346628_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1140) = (/ 0.999874576533629_dbl_kind, 0.996942419584042_dbl_kind, 0.974994122780411_dbl_kind, 0.898875505792578_dbl_kind, 0.568268075191166_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1141) = (/ 0.999874470906489_dbl_kind, 0.996940047778791_dbl_kind, 0.974973967447712_dbl_kind, 0.898801779239835_dbl_kind, 0.568197452322511_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1142) = (/ 0.999874365281478_dbl_kind, 0.996937676260596_dbl_kind, 0.97495381373671_dbl_kind, 0.898728070267337_dbl_kind, 0.568126974543393_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1143) = (/ 0.9998742596586_dbl_kind, 0.996935305029316_dbl_kind, 0.974933661647697_dbl_kind, 0.898654378872167_dbl_kind, 0.568056641537584_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1144) = (/ 0.999874154037859_dbl_kind, 0.996932934084811_dbl_kind, 0.974913511180978_dbl_kind, 0.898580705051429_dbl_kind, 0.567986452989544_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1145) = (/ 0.999874048419258_dbl_kind, 0.996930563426943_dbl_kind, 0.97489336233686_dbl_kind, 0.898507048802242_dbl_kind, 0.567916408584428_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1146) = (/ 0.999873942802803_dbl_kind, 0.996928193055572_dbl_kind, 0.97487321511566_dbl_kind, 0.898433410121741_dbl_kind, 0.567846508008078_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1147) = (/ 0.999873837188497_dbl_kind, 0.996925822970564_dbl_kind, 0.974853069517702_dbl_kind, 0.898359789007084_dbl_kind, 0.567776750947024_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1148) = (/ 0.999873731576344_dbl_kind, 0.996923453171781_dbl_kind, 0.974832925543318_dbl_kind, 0.898286185455442_dbl_kind, 0.567707137088484_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1149) = (/ 0.99987362596635_dbl_kind, 0.99692108365909_dbl_kind, 0.974812783192846_dbl_kind, 0.898212599464007_dbl_kind, 0.567637666120358_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1150) = (/ 0.999873520358517_dbl_kind, 0.996918714432358_dbl_kind, 0.974792642466632_dbl_kind, 0.898139031029987_dbl_kind, 0.567568337731231_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1151) = (/ 0.999873414752851_dbl_kind, 0.996916345491452_dbl_kind, 0.974772503365029_dbl_kind, 0.898065480150611_dbl_kind, 0.567499151610372_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1152) = (/ 0.999873309149355_dbl_kind, 0.996913976836244_dbl_kind, 0.974752365888398_dbl_kind, 0.897991946823123_dbl_kind, 0.567430107447729_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1153) = (/ 0.999873203548035_dbl_kind, 0.996911608466601_dbl_kind, 0.974732230037108_dbl_kind, 0.897918431044788_dbl_kind, 0.56736120493393_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1154) = (/ 0.999873097948894_dbl_kind, 0.996909240382397_dbl_kind, 0.974712095811534_dbl_kind, 0.89784493281289_dbl_kind, 0.567292443760282_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1155) = (/ 0.999872992351937_dbl_kind, 0.996906872583505_dbl_kind, 0.974691963212058_dbl_kind, 0.897771452124727_dbl_kind, 0.567223823618767_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1156) = (/ 0.999872886757168_dbl_kind, 0.996904505069797_dbl_kind, 0.974671832239073_dbl_kind, 0.897697988977623_dbl_kind, 0.567155344202045_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1157) = (/ 0.999872781164593_dbl_kind, 0.996902137841151_dbl_kind, 0.974651702892975_dbl_kind, 0.897624543368914_dbl_kind, 0.567087005203447_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1158) = (/ 0.999872675574213_dbl_kind, 0.996899770897443_dbl_kind, 0.974631575174171_dbl_kind, 0.897551115295959_dbl_kind, 0.567018806316981_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1159) = (/ 0.999872569986036_dbl_kind, 0.996897404238549_dbl_kind, 0.974611449083074_dbl_kind, 0.897477704756135_dbl_kind, 0.566950747237321_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1160) = (/ 0.999872464400066_dbl_kind, 0.996895037864351_dbl_kind, 0.974591324620104_dbl_kind, 0.897404311746837_dbl_kind, 0.566882827659816_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1161) = (/ 0.999872358816306_dbl_kind, 0.996892671774727_dbl_kind, 0.974571201785691_dbl_kind, 0.897330936265482_dbl_kind, 0.566815047280482_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1162) = (/ 0.999872253234762_dbl_kind, 0.996890305969559_dbl_kind, 0.974551080580271_dbl_kind, 0.897257578309501_dbl_kind, 0.566747405796002_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1163) = (/ 0.999872147655438_dbl_kind, 0.99688794044873_dbl_kind, 0.974530961004286_dbl_kind, 0.897184237876352_dbl_kind, 0.566679902903724_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1164) = (/ 0.99987204207834_dbl_kind, 0.996885575212125_dbl_kind, 0.974510843058189_dbl_kind, 0.897110914963505_dbl_kind, 0.566612538301663_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1165) = (/ 0.999871936503471_dbl_kind, 0.996883210259628_dbl_kind, 0.97449072674244_dbl_kind, 0.897037609568455_dbl_kind, 0.566545311688495_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1166) = (/ 0.999871830930837_dbl_kind, 0.996880845591126_dbl_kind, 0.974470612057503_dbl_kind, 0.896964321688713_dbl_kind, 0.566478222763562_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1167) = (/ 0.999871725360441_dbl_kind, 0.996878481206506_dbl_kind, 0.974450499003856_dbl_kind, 0.896891051321811_dbl_kind, 0.566411271226861_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1168) = (/ 0.999871619792291_dbl_kind, 0.996876117105658_dbl_kind, 0.974430387581979_dbl_kind, 0.896817798465303_dbl_kind, 0.566344456779053_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1169) = (/ 0.999871514226389_dbl_kind, 0.996873753288471_dbl_kind, 0.974410277792364_dbl_kind, 0.896744563116761_dbl_kind, 0.566277779121455_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1170) = (/ 0.999871408662741_dbl_kind, 0.996871389754839_dbl_kind, 0.974390169635508_dbl_kind, 0.896671345273776_dbl_kind, 0.566211237956041_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1171) = (/ 0.999871303101351_dbl_kind, 0.996869026504653_dbl_kind, 0.974370063111916_dbl_kind, 0.896598144933961_dbl_kind, 0.56614483298544_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1172) = (/ 0.999871197542226_dbl_kind, 0.996866663537807_dbl_kind, 0.974349958222104_dbl_kind, 0.896524962094949_dbl_kind, 0.566078563912936_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1173) = (/ 0.99987109198537_dbl_kind, 0.996864300854197_dbl_kind, 0.974329854966593_dbl_kind, 0.896451796754392_dbl_kind, 0.566012430442464_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1174) = (/ 0.999870986430787_dbl_kind, 0.996861938453719_dbl_kind, 0.974309753345911_dbl_kind, 0.896378648909965_dbl_kind, 0.565946432278613_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1175) = (/ 0.999870880878483_dbl_kind, 0.996859576336271_dbl_kind, 0.974289653360598_dbl_kind, 0.89630551855936_dbl_kind, 0.565880569126621_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1176) = (/ 0.999870775328464_dbl_kind, 0.996857214501752_dbl_kind, 0.974269555011197_dbl_kind, 0.896232405700293_dbl_kind, 0.565814840692373_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1177) = (/ 0.999870669780733_dbl_kind, 0.996854852950063_dbl_kind, 0.974249458298264_dbl_kind, 0.896159310330498_dbl_kind, 0.565749246682405_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1178) = (/ 0.999870564235297_dbl_kind, 0.996852491681106_dbl_kind, 0.974229363222358_dbl_kind, 0.896086232447733_dbl_kind, 0.565683786803894_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1179) = (/ 0.99987045869216_dbl_kind, 0.996850130694784_dbl_kind, 0.974209269784051_dbl_kind, 0.896013172049773_dbl_kind, 0.565618460764668_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1180) = (/ 0.999870353151329_dbl_kind, 0.996847769991_dbl_kind, 0.974189177983918_dbl_kind, 0.895940129134418_dbl_kind, 0.565553268273193_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1181) = (/ 0.999870247612807_dbl_kind, 0.996845409569661_dbl_kind, 0.974169087822547_dbl_kind, 0.895867103699485_dbl_kind, 0.565488209038582_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1182) = (/ 0.999870142076601_dbl_kind, 0.996843049430673_dbl_kind, 0.97414899930053_dbl_kind, 0.895794095742816_dbl_kind, 0.565423282770586_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1183) = (/ 0.999870036542716_dbl_kind, 0.996840689573945_dbl_kind, 0.974128912418469_dbl_kind, 0.895721105262272_dbl_kind, 0.565358489179594_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1184) = (/ 0.999869931011157_dbl_kind, 0.996838329999386_dbl_kind, 0.974108827176976_dbl_kind, 0.895648132255736_dbl_kind, 0.565293827976639_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1185) = (/ 0.999869825481929_dbl_kind, 0.996835970706907_dbl_kind, 0.974088743576667_dbl_kind, 0.895575176721112_dbl_kind, 0.565229298873386_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1186) = (/ 0.99986971995504_dbl_kind, 0.996833611696421_dbl_kind, 0.974068661618169_dbl_kind, 0.895502238656328_dbl_kind, 0.565164901582138_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1187) = (/ 0.999869614430492_dbl_kind, 0.99683125296784_dbl_kind, 0.974048581302118_dbl_kind, 0.895429318059329_dbl_kind, 0.56510063581583_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1188) = (/ 0.999869508908292_dbl_kind, 0.99682889452108_dbl_kind, 0.974028502629154_dbl_kind, 0.895356414928085_dbl_kind, 0.565036501288035_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1189) = (/ 0.999869403388447_dbl_kind, 0.996826536356055_dbl_kind, 0.974008425599931_dbl_kind, 0.895283529260589_dbl_kind, 0.564972497712954_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1190) = (/ 0.99986929787096_dbl_kind, 0.996824178472685_dbl_kind, 0.973988350215107_dbl_kind, 0.895210661054853_dbl_kind, 0.564908624805418_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1191) = (/ 0.999869192355839_dbl_kind, 0.996821820870888_dbl_kind, 0.97396827647535_dbl_kind, 0.895137810308913_dbl_kind, 0.564844882280891_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1192) = (/ 0.999869086843088_dbl_kind, 0.996819463550583_dbl_kind, 0.973948204381337_dbl_kind, 0.895064977020826_dbl_kind, 0.564781269855461_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1193) = (/ 0.999868981332714_dbl_kind, 0.996817106511692_dbl_kind, 0.973928133933751_dbl_kind, 0.89499216118867_dbl_kind, 0.564717787245845_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1194) = (/ 0.999868875824722_dbl_kind, 0.996814749754139_dbl_kind, 0.973908065133285_dbl_kind, 0.894919362810549_dbl_kind, 0.564654434169388_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1195) = (/ 0.999868770319118_dbl_kind, 0.996812393277846_dbl_kind, 0.973887997980642_dbl_kind, 0.894846581884587_dbl_kind, 0.564591210344052_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1196) = (/ 0.999868664815908_dbl_kind, 0.996810037082741_dbl_kind, 0.973867932476529_dbl_kind, 0.894773818408932_dbl_kind, 0.56452811548843_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1197) = (/ 0.999868559315098_dbl_kind, 0.996807681168748_dbl_kind, 0.973847868621667_dbl_kind, 0.894701072381749_dbl_kind, 0.564465149321732_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1198) = (/ 0.999868453816693_dbl_kind, 0.996805325535796_dbl_kind, 0.973827806416781_dbl_kind, 0.894628343801235_dbl_kind, 0.564402311563788_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1199) = (/ 0.9998683483207_dbl_kind, 0.996802970183816_dbl_kind, 0.973807745862606_dbl_kind, 0.894555632665603_dbl_kind, 0.564339601935049_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1200) = (/ 0.999868242827125_dbl_kind, 0.996800615112737_dbl_kind, 0.973787686959887_dbl_kind, 0.894482938973091_dbl_kind, 0.564277020156584_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1201) = (/ 0.999868137335973_dbl_kind, 0.996798260322492_dbl_kind, 0.973767629709375_dbl_kind, 0.894410262721959_dbl_kind, 0.564214565950079_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1202) = (/ 0.999868031847252_dbl_kind, 0.996795905813015_dbl_kind, 0.973747574111831_dbl_kind, 0.894337603910491_dbl_kind, 0.56415223903783_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1203) = (/ 0.999867926360966_dbl_kind, 0.99679355158424_dbl_kind, 0.973727520168025_dbl_kind, 0.894264962536994_dbl_kind, 0.564090039142758_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1204) = (/ 0.999867820877122_dbl_kind, 0.996791197636103_dbl_kind, 0.973707467878736_dbl_kind, 0.894192338599799_dbl_kind, 0.564027965988387_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1205) = (/ 0.999867715395727_dbl_kind, 0.996788843968543_dbl_kind, 0.973687417244749_dbl_kind, 0.894119732097259_dbl_kind, 0.563966019298854_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1206) = (/ 0.999867609916786_dbl_kind, 0.996786490581498_dbl_kind, 0.97366736826686_dbl_kind, 0.894047143027751_dbl_kind, 0.563904198798911_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1207) = (/ 0.999867504440306_dbl_kind, 0.996784137474909_dbl_kind, 0.973647320945873_dbl_kind, 0.893974571389674_dbl_kind, 0.563842504213916_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1208) = (/ 0.999867398966295_dbl_kind, 0.996781784648718_dbl_kind, 0.973627275282602_dbl_kind, 0.893902017181454_dbl_kind, 0.563780935269834_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1209) = (/ 0.999867293494755_dbl_kind, 0.996779432102867_dbl_kind, 0.973607231277867_dbl_kind, 0.893829480401538_dbl_kind, 0.56371949169324_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1210) = (/ 0.999867188025696_dbl_kind, 0.996777079837302_dbl_kind, 0.9735871889325_dbl_kind, 0.893756961048398_dbl_kind, 0.563658173211308_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1211) = (/ 0.999867082559124_dbl_kind, 0.996774727851966_dbl_kind, 0.97356714824734_dbl_kind, 0.893684459120527_dbl_kind, 0.563596979551823_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1212) = (/ 0.999866977095044_dbl_kind, 0.996772376146811_dbl_kind, 0.973547109223233_dbl_kind, 0.893611974616448_dbl_kind, 0.56353591044317_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1213) = (/ 0.999866871633464_dbl_kind, 0.996770024721782_dbl_kind, 0.973527071861039_dbl_kind, 0.893539507534702_dbl_kind, 0.563474965614336_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1214) = (/ 0.99986676617439_dbl_kind, 0.99676767357683_dbl_kind, 0.973507036161622_dbl_kind, 0.893467057873857_dbl_kind, 0.563414144794908_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1215) = (/ 0.999866660717829_dbl_kind, 0.996765322711908_dbl_kind, 0.973487002125857_dbl_kind, 0.893394625632505_dbl_kind, 0.56335344771507_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1216) = (/ 0.999866555263788_dbl_kind, 0.996762972126968_dbl_kind, 0.973466969754628_dbl_kind, 0.893322210809262_dbl_kind, 0.56329287410561_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1217) = (/ 0.999866449812272_dbl_kind, 0.996760621821962_dbl_kind, 0.973446939048827_dbl_kind, 0.893249813402768_dbl_kind, 0.563232423697906_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1218) = (/ 0.99986634436329_dbl_kind, 0.996758271796849_dbl_kind, 0.973426910009356_dbl_kind, 0.89317743341169_dbl_kind, 0.563172096223936_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1219) = (/ 0.999866238916847_dbl_kind, 0.996755922051586_dbl_kind, 0.973406882637126_dbl_kind, 0.893105070834715_dbl_kind, 0.56311189141627_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1220) = (/ 0.999866133472951_dbl_kind, 0.99675357258613_dbl_kind, 0.973386856933055_dbl_kind, 0.893032725670561_dbl_kind, 0.563051809008072_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1221) = (/ 0.999866028031607_dbl_kind, 0.99675122340044_dbl_kind, 0.973366832898074_dbl_kind, 0.892960397917963_dbl_kind, 0.562991848733097_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1222) = (/ 0.999865922592825_dbl_kind, 0.996748874494481_dbl_kind, 0.973346810533119_dbl_kind, 0.892888087575686_dbl_kind, 0.562932010325692_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1223) = (/ 0.99986581715661_dbl_kind, 0.996746525868214_dbl_kind, 0.973326789839138_dbl_kind, 0.892815794642521_dbl_kind, 0.562872293520791_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1224) = (/ 0.999865711722969_dbl_kind, 0.996744177521601_dbl_kind, 0.973306770817086_dbl_kind, 0.892743519117281_dbl_kind, 0.562812698053919_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1225) = (/ 0.99986560629191_dbl_kind, 0.996741829454611_dbl_kind, 0.973286753467929_dbl_kind, 0.892671260998804_dbl_kind, 0.562753223661186_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1226) = (/ 0.999865500863439_dbl_kind, 0.996739481667209_dbl_kind, 0.973266737792642_dbl_kind, 0.892599020285956_dbl_kind, 0.56269387007929_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1227) = (/ 0.999865395437565_dbl_kind, 0.996737134159365_dbl_kind, 0.973246723792206_dbl_kind, 0.892526796977625_dbl_kind, 0.562634637045509_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1228) = (/ 0.999865290014293_dbl_kind, 0.996734786931048_dbl_kind, 0.973226711467617_dbl_kind, 0.892454591072728_dbl_kind, 0.562575524297709_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1229) = (/ 0.999865184593632_dbl_kind, 0.99673243998223_dbl_kind, 0.973206700819874_dbl_kind, 0.892382402570205_dbl_kind, 0.562516531574337_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1230) = (/ 0.999865079175588_dbl_kind, 0.996730093312884_dbl_kind, 0.973186691849991_dbl_kind, 0.89231023146902_dbl_kind, 0.562457658614419_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1231) = (/ 0.999864973760169_dbl_kind, 0.996727746922983_dbl_kind, 0.973166684558986_dbl_kind, 0.892238077768168_dbl_kind, 0.56239890515756_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1232) = (/ 0.999864868347382_dbl_kind, 0.996725400812505_dbl_kind, 0.973146678947892_dbl_kind, 0.892165941466664_dbl_kind, 0.562340270943949_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1233) = (/ 0.999864762937235_dbl_kind, 0.996723054981425_dbl_kind, 0.973126675017746_dbl_kind, 0.892093822563554_dbl_kind, 0.562281755714348_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1234) = (/ 0.999864657529735_dbl_kind, 0.996720709429723_dbl_kind, 0.973106672769598_dbl_kind, 0.892021721057905_dbl_kind, 0.562223359210095_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1235) = (/ 0.99986455212489_dbl_kind, 0.99671836415738_dbl_kind, 0.973086672204505_dbl_kind, 0.891949636948814_dbl_kind, 0.562165081173105_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1236) = (/ 0.999864446722707_dbl_kind, 0.996716019164375_dbl_kind, 0.973066673323536_dbl_kind, 0.891877570235401_dbl_kind, 0.562106921345865_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1237) = (/ 0.999864341323195_dbl_kind, 0.996713674450693_dbl_kind, 0.973046676127767_dbl_kind, 0.891805520916815_dbl_kind, 0.562048879471434_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1238) = (/ 0.99986423592636_dbl_kind, 0.996711330016317_dbl_kind, 0.973026680618284_dbl_kind, 0.89173348899223_dbl_kind, 0.561990955293445_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1239) = (/ 0.99986413053221_dbl_kind, 0.996708985861235_dbl_kind, 0.973006686796185_dbl_kind, 0.891661474460845_dbl_kind, 0.561933148556099_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1240) = (/ 0.999864025140754_dbl_kind, 0.996706641985433_dbl_kind, 0.972986694662574_dbl_kind, 0.891589477321887_dbl_kind, 0.561875459004166_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1241) = (/ 0.999863919751999_dbl_kind, 0.9967042983889_dbl_kind, 0.972966704218566_dbl_kind, 0.89151749757461_dbl_kind, 0.561817886382988_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1242) = (/ 0.999863814365952_dbl_kind, 0.996701955071628_dbl_kind, 0.972946715465287_dbl_kind, 0.891445535218295_dbl_kind, 0.561760430438467_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1243) = (/ 0.999863708982622_dbl_kind, 0.996699612033607_dbl_kind, 0.97292672840387_dbl_kind, 0.891373590252246_dbl_kind, 0.561703090917073_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1244) = (/ 0.999863603602017_dbl_kind, 0.996697269274832_dbl_kind, 0.97290674303546_dbl_kind, 0.8913016626758_dbl_kind, 0.561645867565843_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1245) = (/ 0.999863498224145_dbl_kind, 0.996694926795296_dbl_kind, 0.97288675936121_dbl_kind, 0.891229752488314_dbl_kind, 0.561588760132373_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1246) = (/ 0.999863392849013_dbl_kind, 0.996692584594997_dbl_kind, 0.972866777382283_dbl_kind, 0.891157859689177_dbl_kind, 0.561531768364826_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1247) = (/ 0.999863287476631_dbl_kind, 0.996690242673932_dbl_kind, 0.972846797099853_dbl_kind, 0.891085984277803_dbl_kind, 0.56147489201192_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1248) = (/ 0.999863182107006_dbl_kind, 0.996687901032101_dbl_kind, 0.972826818515103_dbl_kind, 0.891014126253633_dbl_kind, 0.561418130822937_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1249) = (/ 0.999863076740146_dbl_kind, 0.996685559669504_dbl_kind, 0.972806841629224_dbl_kind, 0.890942285616137_dbl_kind, 0.561361484547714_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1250) = (/ 0.99986297137606_dbl_kind, 0.996683218586144_dbl_kind, 0.97278686644342_dbl_kind, 0.89087046236481_dbl_kind, 0.561304952936649_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1251) = (/ 0.999862866014755_dbl_kind, 0.996680877782025_dbl_kind, 0.972766892958903_dbl_kind, 0.890798656499175_dbl_kind, 0.561248535740693_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1252) = (/ 0.999862760656241_dbl_kind, 0.996678537257151_dbl_kind, 0.972746921176893_dbl_kind, 0.890726868018786_dbl_kind, 0.561192232711353_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1253) = (/ 0.999862655300527_dbl_kind, 0.996676197011531_dbl_kind, 0.972726951098624_dbl_kind, 0.890655096923217_dbl_kind, 0.561136043600691_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1254) = (/ 0.999862549947618_dbl_kind, 0.996673857045172_dbl_kind, 0.972706982725337_dbl_kind, 0.890583343212077_dbl_kind, 0.56107996816132_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1255) = (/ 0.999862444597526_dbl_kind, 0.996671517358085_dbl_kind, 0.972687016058284_dbl_kind, 0.890511606885_dbl_kind, 0.561024006146405_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1256) = (/ 0.999862339250258_dbl_kind, 0.99666917795028_dbl_kind, 0.972667051098726_dbl_kind, 0.890439887941646_dbl_kind, 0.560968157309662_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1257) = (/ 0.999862233905823_dbl_kind, 0.996666838821771_dbl_kind, 0.972647087847935_dbl_kind, 0.890368186381706_dbl_kind, 0.560912421405354_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1258) = (/ 0.99986212856423_dbl_kind, 0.996664499972572_dbl_kind, 0.972627126307193_dbl_kind, 0.890296502204897_dbl_kind, 0.560856798188293_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1259) = (/ 0.999862023225486_dbl_kind, 0.996662161402699_dbl_kind, 0.972607166477792_dbl_kind, 0.890224835410966_dbl_kind, 0.560801287413843_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1260) = (/ 0.999861917889603_dbl_kind, 0.996659823112169_dbl_kind, 0.972587208361032_dbl_kind, 0.890153185999685_dbl_kind, 0.560745888837904_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1261) = (/ 0.999861812556587_dbl_kind, 0.996657485101003_dbl_kind, 0.972567251958225_dbl_kind, 0.890081553970856_dbl_kind, 0.560690602216929_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1262) = (/ 0.999861707226448_dbl_kind, 0.996655147369219_dbl_kind, 0.972547297270694_dbl_kind, 0.890009939324312_dbl_kind, 0.560635427307911_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1263) = (/ 0.999861601899195_dbl_kind, 0.99665280991684_dbl_kind, 0.972527344299771_dbl_kind, 0.889938342059908_dbl_kind, 0.560580363868385_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1264) = (/ 0.999861496574836_dbl_kind, 0.996650472743892_dbl_kind, 0.972507393046797_dbl_kind, 0.889866762177534_dbl_kind, 0.560525411656427_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1265) = (/ 0.999861391253382_dbl_kind, 0.996648135850398_dbl_kind, 0.972487443513125_dbl_kind, 0.889795199677104_dbl_kind, 0.560470570430656_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1266) = (/ 0.99986128593484_dbl_kind, 0.996645799236383_dbl_kind, 0.972467495700118_dbl_kind, 0.889723654558564_dbl_kind, 0.560415839950226_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1267) = (/ 0.99986118061922_dbl_kind, 0.996643462901879_dbl_kind, 0.972447549609146_dbl_kind, 0.889652126821886_dbl_kind, 0.560361219974831_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1268) = (/ 0.999861075306532_dbl_kind, 0.996641126846914_dbl_kind, 0.972427605241596_dbl_kind, 0.889580616467073_dbl_kind, 0.560306710264702_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1269) = (/ 0.999860969996785_dbl_kind, 0.996638791071519_dbl_kind, 0.972407662598859_dbl_kind, 0.889509123494155_dbl_kind, 0.560252310580604_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1270) = (/ 0.999860864689987_dbl_kind, 0.996636455575728_dbl_kind, 0.972387721682338_dbl_kind, 0.889437647903193_dbl_kind, 0.560198020683838_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1271) = (/ 0.999860759386148_dbl_kind, 0.996634120359575_dbl_kind, 0.972367782493448_dbl_kind, 0.889366189694274_dbl_kind, 0.560143840336236_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1272) = (/ 0.999860654085279_dbl_kind, 0.996631785423095_dbl_kind, 0.972347845033612_dbl_kind, 0.889294748867517_dbl_kind, 0.560089769300164_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1273) = (/ 0.999860548787388_dbl_kind, 0.996629450766328_dbl_kind, 0.972327909304267_dbl_kind, 0.88922332542307_dbl_kind, 0.56003580733852_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1274) = (/ 0.999860443492484_dbl_kind, 0.996627116389312_dbl_kind, 0.972307975306855_dbl_kind, 0.889151919361108_dbl_kind, 0.559981954214728_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1275) = (/ 0.999860338200578_dbl_kind, 0.996624782292088_dbl_kind, 0.972288043042833_dbl_kind, 0.889080530681838_dbl_kind, 0.559928209692748_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1276) = (/ 0.999860232911678_dbl_kind, 0.996622448474697_dbl_kind, 0.972268112513667_dbl_kind, 0.889009159385495_dbl_kind, 0.559874573537058_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1277) = (/ 0.999860127625796_dbl_kind, 0.996620114937185_dbl_kind, 0.972248183720833_dbl_kind, 0.888937805472343_dbl_kind, 0.55982104551267_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1278) = (/ 0.999860022342939_dbl_kind, 0.996617781679596_dbl_kind, 0.972228256665818_dbl_kind, 0.888866468942678_dbl_kind, 0.55976762538512_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1279) = (/ 0.999859917063119_dbl_kind, 0.996615448701978_dbl_kind, 0.972208331350119_dbl_kind, 0.888795149796823_dbl_kind, 0.559714312920466_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1280) = (/ 0.999859811786345_dbl_kind, 0.996613116004379_dbl_kind, 0.972188407775244_dbl_kind, 0.888723848035133_dbl_kind, 0.559661107885292_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1281) = (/ 0.999859706512627_dbl_kind, 0.996610783586849_dbl_kind, 0.972168485942712_dbl_kind, 0.88865256365799_dbl_kind, 0.559608010046701_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1282) = (/ 0.999859601241976_dbl_kind, 0.996608451449441_dbl_kind, 0.972148565854052_dbl_kind, 0.888581296665809_dbl_kind, 0.55955501917232_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1283) = (/ 0.9998594959744_dbl_kind, 0.996606119592208_dbl_kind, 0.972128647510804_dbl_kind, 0.888510047059032_dbl_kind, 0.559502135030295_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1284) = (/ 0.99985939070991_dbl_kind, 0.996603788015205_dbl_kind, 0.972108730914516_dbl_kind, 0.888438814838136_dbl_kind, 0.559449357389291_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1285) = (/ 0.999859285448517_dbl_kind, 0.996601456718487_dbl_kind, 0.972088816066752_dbl_kind, 0.888367600003621_dbl_kind, 0.559396686018491_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1286) = (/ 0.999859180190231_dbl_kind, 0.996599125702115_dbl_kind, 0.972068902969083_dbl_kind, 0.888296402556024_dbl_kind, 0.559344120687593_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1287) = (/ 0.999859074935061_dbl_kind, 0.996596794966147_dbl_kind, 0.972048991623092_dbl_kind, 0.888225222495908_dbl_kind, 0.559291661166811_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1288) = (/ 0.999858969683018_dbl_kind, 0.996594464510644_dbl_kind, 0.972029082030371_dbl_kind, 0.888154059823868_dbl_kind, 0.559239307226877_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1289) = (/ 0.999858864434114_dbl_kind, 0.996592134335671_dbl_kind, 0.972009174192524_dbl_kind, 0.888082914540529_dbl_kind, 0.559187058639031_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1290) = (/ 0.999858759188357_dbl_kind, 0.99658980444129_dbl_kind, 0.971989268111167_dbl_kind, 0.888011786646548_dbl_kind, 0.559134915175028_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1291) = (/ 0.999858653945758_dbl_kind, 0.99658747482757_dbl_kind, 0.971969363787926_dbl_kind, 0.887940676142609_dbl_kind, 0.559082876607135_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1292) = (/ 0.999858548706329_dbl_kind, 0.996585145494577_dbl_kind, 0.971949461224435_dbl_kind, 0.887869583029431_dbl_kind, 0.559030942708128_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1293) = (/ 0.999858443470079_dbl_kind, 0.996582816442381_dbl_kind, 0.971929560422344_dbl_kind, 0.887798507307761_dbl_kind, 0.558979113251292_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1294) = (/ 0.999858338237019_dbl_kind, 0.996580487671052_dbl_kind, 0.971909661383309_dbl_kind, 0.887727448978378_dbl_kind, 0.55892738801042_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1295) = (/ 0.999858233007161_dbl_kind, 0.996578159180666_dbl_kind, 0.971889764109002_dbl_kind, 0.887656408042091_dbl_kind, 0.558875766759813_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1296) = (/ 0.999858127780516_dbl_kind, 0.996575830971293_dbl_kind, 0.971869868601102_dbl_kind, 0.887585384499741_dbl_kind, 0.558824249274275_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1297) = (/ 0.999858022557092_dbl_kind, 0.996573503043011_dbl_kind, 0.971849974861299_dbl_kind, 0.8875143783522_dbl_kind, 0.558772835329119_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1298) = (/ 0.999857917336902_dbl_kind, 0.996571175395898_dbl_kind, 0.971830082891296_dbl_kind, 0.88744338960037_dbl_kind, 0.558721524700157_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1299) = (/ 0.999857812119957_dbl_kind, 0.996568848030033_dbl_kind, 0.971810192692807_dbl_kind, 0.887372418245185_dbl_kind, 0.558670317163707_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1300) = (/ 0.999857706906268_dbl_kind, 0.996566520945496_dbl_kind, 0.971790304267555_dbl_kind, 0.88730146428761_dbl_kind, 0.558619212496586_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1301) = (/ 0.999857601695845_dbl_kind, 0.996564194142371_dbl_kind, 0.971770417617276_dbl_kind, 0.887230527728641_dbl_kind, 0.558568210476115_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1302) = (/ 0.999857496488701_dbl_kind, 0.99656186762074_dbl_kind, 0.971750532743716_dbl_kind, 0.887159608569308_dbl_kind, 0.558517310880112_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1303) = (/ 0.999857391284846_dbl_kind, 0.99655954138069_dbl_kind, 0.971730649648633_dbl_kind, 0.887088706810667_dbl_kind, 0.558466513486889_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1304) = (/ 0.999857286084291_dbl_kind, 0.996557215422308_dbl_kind, 0.971710768333796_dbl_kind, 0.887017822453813_dbl_kind, 0.558415818075265_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1305) = (/ 0.999857180887048_dbl_kind, 0.996554889745684_dbl_kind, 0.971690888800983_dbl_kind, 0.886946955499865_dbl_kind, 0.558365224424547_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1306) = (/ 0.999857075693128_dbl_kind, 0.996552564350908_dbl_kind, 0.971671011051987_dbl_kind, 0.88687610594998_dbl_kind, 0.558314732314542_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1307) = (/ 0.999856970502543_dbl_kind, 0.996550239238071_dbl_kind, 0.971651135088611_dbl_kind, 0.886805273805343_dbl_kind, 0.558264341525547_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1308) = (/ 0.999856865315305_dbl_kind, 0.996547914407269_dbl_kind, 0.971631260912665_dbl_kind, 0.886734459067171_dbl_kind, 0.558214051838356_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1309) = (/ 0.999856760131423_dbl_kind, 0.996545589858596_dbl_kind, 0.971611388525977_dbl_kind, 0.886663661736715_dbl_kind, 0.558163863034251_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1310) = (/ 0.999856654950912_dbl_kind, 0.996543265592151_dbl_kind, 0.971591517930382_dbl_kind, 0.886592881815257_dbl_kind, 0.558113774895008_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1311) = (/ 0.999856549773782_dbl_kind, 0.996540941608031_dbl_kind, 0.971571649127727_dbl_kind, 0.88652211930411_dbl_kind, 0.558063787202892_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1312) = (/ 0.999856444600045_dbl_kind, 0.996538617906338_dbl_kind, 0.971551782119872_dbl_kind, 0.886451374204621_dbl_kind, 0.558013899740656_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1313) = (/ 0.999856339429713_dbl_kind, 0.996536294487174_dbl_kind, 0.971531916908685_dbl_kind, 0.886380646518167_dbl_kind, 0.557964112291543_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1314) = (/ 0.999856234262798_dbl_kind, 0.996533971350642_dbl_kind, 0.97151205349605_dbl_kind, 0.886309936246159_dbl_kind, 0.557914424639278_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1315) = (/ 0.999856129099311_dbl_kind, 0.99653164849685_dbl_kind, 0.971492191883858_dbl_kind, 0.886239243390041_dbl_kind, 0.557864836568079_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1316) = (/ 0.999856023939265_dbl_kind, 0.996529325925901_dbl_kind, 0.971472332074014_dbl_kind, 0.886168567951286_dbl_kind, 0.557815347862641_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1317) = (/ 0.999855918782672_dbl_kind, 0.996527003637908_dbl_kind, 0.971452474068434_dbl_kind, 0.886097909931403_dbl_kind, 0.557765958308148_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1318) = (/ 0.999855813629543_dbl_kind, 0.99652468163298_dbl_kind, 0.971432617869045_dbl_kind, 0.886027269331932_dbl_kind, 0.557716667690264_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1319) = (/ 0.999855708479893_dbl_kind, 0.996522359911228_dbl_kind, 0.971412763477785_dbl_kind, 0.885956646154446_dbl_kind, 0.557667475795135_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1320) = (/ 0.99985560333373_dbl_kind, 0.996520038472768_dbl_kind, 0.971392910896607_dbl_kind, 0.885886040400549_dbl_kind, 0.557618382409387_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1321) = (/ 0.999855498191071_dbl_kind, 0.996517717317715_dbl_kind, 0.97137306012747_dbl_kind, 0.885815452071882_dbl_kind, 0.557569387320127_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1322) = (/ 0.999855393051926_dbl_kind, 0.996515396446185_dbl_kind, 0.971353211172348_dbl_kind, 0.885744881170113_dbl_kind, 0.55752049031494_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1323) = (/ 0.999855287916307_dbl_kind, 0.9965130758583_dbl_kind, 0.971333364033228_dbl_kind, 0.885674327696948_dbl_kind, 0.557471691181887_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1324) = (/ 0.999855182784227_dbl_kind, 0.996510755554178_dbl_kind, 0.971313518712104_dbl_kind, 0.885603791654122_dbl_kind, 0.557422989709507_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1325) = (/ 0.999855077655699_dbl_kind, 0.996508435533941_dbl_kind, 0.971293675210986_dbl_kind, 0.885533273043407_dbl_kind, 0.557374385686813_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1326) = (/ 0.999854972530737_dbl_kind, 0.996506115797716_dbl_kind, 0.971273833531893_dbl_kind, 0.885462771866603_dbl_kind, 0.557325878903293_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1327) = (/ 0.99985486740935_dbl_kind, 0.996503796345626_dbl_kind, 0.971253993676858_dbl_kind, 0.885392288125548_dbl_kind, 0.55727746914891_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1328) = (/ 0.999854762291555_dbl_kind, 0.996501477177799_dbl_kind, 0.971234155647923_dbl_kind, 0.885321821822111_dbl_kind, 0.557229156214095_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1329) = (/ 0.999854657177362_dbl_kind, 0.996499158294365_dbl_kind, 0.971214319447145_dbl_kind, 0.885251372958194_dbl_kind, 0.557180939889753_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1330) = (/ 0.999854552066785_dbl_kind, 0.996496839695455_dbl_kind, 0.971194485076588_dbl_kind, 0.885180941535733_dbl_kind, 0.557132819967264_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1331) = (/ 0.999854446959837_dbl_kind, 0.9964945213812_dbl_kind, 0.971174652538333_dbl_kind, 0.885110527556696_dbl_kind, 0.557084796238466_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1332) = (/ 0.999854341856532_dbl_kind, 0.996492203351736_dbl_kind, 0.97115482183447_dbl_kind, 0.885040131023087_dbl_kind, 0.557036868495674_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1333) = (/ 0.999854236756881_dbl_kind, 0.996489885607197_dbl_kind, 0.971134992967101_dbl_kind, 0.88496975193694_dbl_kind, 0.55698903653167_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1334) = (/ 0.999854131660898_dbl_kind, 0.996487568147722_dbl_kind, 0.97111516593834_dbl_kind, 0.884899390300328_dbl_kind, 0.556941300139697_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1335) = (/ 0.999854026568597_dbl_kind, 0.99648525097345_dbl_kind, 0.971095340750314_dbl_kind, 0.884829046115351_dbl_kind, 0.556893659113467_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1336) = (/ 0.999853921479991_dbl_kind, 0.996482934084522_dbl_kind, 0.97107551740516_dbl_kind, 0.884758719384147_dbl_kind, 0.556846113247157_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1337) = (/ 0.999853816395094_dbl_kind, 0.996480617481081_dbl_kind, 0.971055695905028_dbl_kind, 0.884688410108887_dbl_kind, 0.556798662335404_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1338) = (/ 0.999853711313917_dbl_kind, 0.996478301163272_dbl_kind, 0.97103587625208_dbl_kind, 0.884618118291775_dbl_kind, 0.556751306173309_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1339) = (/ 0.999853606236476_dbl_kind, 0.99647598513124_dbl_kind, 0.97101605844849_dbl_kind, 0.88454784393505_dbl_kind, 0.556704044556436_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1340) = (/ 0.999853501162784_dbl_kind, 0.996473669385133_dbl_kind, 0.970996242496444_dbl_kind, 0.884477587040983_dbl_kind, 0.556656877280804_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1341) = (/ 0.999853396092855_dbl_kind, 0.996471353925102_dbl_kind, 0.970976428398138_dbl_kind, 0.884407347611881_dbl_kind, 0.556609804142896_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1342) = (/ 0.999853291026701_dbl_kind, 0.996469038751296_dbl_kind, 0.970956616155784_dbl_kind, 0.884337125650084_dbl_kind, 0.556562824939653_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1343) = (/ 0.999853185964338_dbl_kind, 0.996466723863871_dbl_kind, 0.970936805771602_dbl_kind, 0.884266921157967_dbl_kind, 0.556515939468469_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1344) = (/ 0.999853080905779_dbl_kind, 0.99646440926298_dbl_kind, 0.970916997247827_dbl_kind, 0.884196734137939_dbl_kind, 0.5564691475272_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1345) = (/ 0.999852975851038_dbl_kind, 0.996462094948781_dbl_kind, 0.970897190586705_dbl_kind, 0.884126564592441_dbl_kind, 0.556422448914152_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1346) = (/ 0.999852870800129_dbl_kind, 0.99645978092143_dbl_kind, 0.970877385790494_dbl_kind, 0.884056412523951_dbl_kind, 0.556375843428089_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1347) = (/ 0.999852765753065_dbl_kind, 0.996457467181089_dbl_kind, 0.970857582861464_dbl_kind, 0.88398627793498_dbl_kind, 0.556329330868227_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1348) = (/ 0.999852660709862_dbl_kind, 0.996455153727918_dbl_kind, 0.970837781801897_dbl_kind, 0.883916160828074_dbl_kind, 0.556282911034233_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1349) = (/ 0.999852555670533_dbl_kind, 0.996452840562083_dbl_kind, 0.970817982614089_dbl_kind, 0.883846061205814_dbl_kind, 0.556236583726226_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1350) = (/ 0.999852450635092_dbl_kind, 0.996450527683746_dbl_kind, 0.970798185300346_dbl_kind, 0.883775979070814_dbl_kind, 0.556190348744777_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1351) = (/ 0.999852345603555_dbl_kind, 0.996448215093077_dbl_kind, 0.970778389862986_dbl_kind, 0.883705914425723_dbl_kind, 0.556144205890904_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1352) = (/ 0.999852240575935_dbl_kind, 0.996445902790243_dbl_kind, 0.970758596304341_dbl_kind, 0.883635867273224_dbl_kind, 0.556098154966075_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1353) = (/ 0.999852135552247_dbl_kind, 0.996443590775415_dbl_kind, 0.970738804626756_dbl_kind, 0.883565837616038_dbl_kind, 0.556052195772205_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1354) = (/ 0.999852030532505_dbl_kind, 0.996441279048765_dbl_kind, 0.970719014832585_dbl_kind, 0.883495825456917_dbl_kind, 0.556006328111654_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1355) = (/ 0.999851925516724_dbl_kind, 0.996438967610466_dbl_kind, 0.970699226924197_dbl_kind, 0.883425830798649_dbl_kind, 0.55596055178723_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1356) = (/ 0.999851820504919_dbl_kind, 0.996436656460695_dbl_kind, 0.970679440903972_dbl_kind, 0.883355853644056_dbl_kind, 0.555914866602183_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1357) = (/ 0.999851715497104_dbl_kind, 0.996434345599629_dbl_kind, 0.970659656774303_dbl_kind, 0.883285893995998_dbl_kind, 0.555869272360208_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1358) = (/ 0.999851610493296_dbl_kind, 0.996432035027448_dbl_kind, 0.970639874537594_dbl_kind, 0.883215951857365_dbl_kind, 0.555823768865443_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1359) = (/ 0.999851505493506_dbl_kind, 0.996429724744331_dbl_kind, 0.970620094196264_dbl_kind, 0.883146027231086_dbl_kind, 0.555778355922465_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1360) = (/ 0.999851400497752_dbl_kind, 0.996427414750463_dbl_kind, 0.970600315752743_dbl_kind, 0.883076120120125_dbl_kind, 0.555733033336293_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1361) = (/ 0.999851295506049_dbl_kind, 0.996425105046026_dbl_kind, 0.970580539209473_dbl_kind, 0.883006230527477_dbl_kind, 0.555687800912388_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1362) = (/ 0.999851190518412_dbl_kind, 0.996422795631208_dbl_kind, 0.970560764568909_dbl_kind, 0.882936358456178_dbl_kind, 0.555642658456646_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1363) = (/ 0.999851085534854_dbl_kind, 0.996420486506196_dbl_kind, 0.970540991833517_dbl_kind, 0.882866503909293_dbl_kind, 0.555597605775401_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1364) = (/ 0.999850980555393_dbl_kind, 0.99641817767118_dbl_kind, 0.970521221005778_dbl_kind, 0.882796666889927_dbl_kind, 0.555552642675429_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1365) = (/ 0.999850875580043_dbl_kind, 0.996415869126352_dbl_kind, 0.970501452088185_dbl_kind, 0.88272684740122_dbl_kind, 0.555507768963935_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1366) = (/ 0.999850770608819_dbl_kind, 0.996413560871906_dbl_kind, 0.970481685083242_dbl_kind, 0.882657045446343_dbl_kind, 0.555462984448562_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1367) = (/ 0.999850665641738_dbl_kind, 0.996411252908034_dbl_kind, 0.970461919993465_dbl_kind, 0.882587261028508_dbl_kind, 0.555418288937387_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1368) = (/ 0.999850560678813_dbl_kind, 0.996408945234936_dbl_kind, 0.970442156821386_dbl_kind, 0.882517494150958_dbl_kind, 0.555373682238919_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1369) = (/ 0.999850455720063_dbl_kind, 0.996406637852808_dbl_kind, 0.970422395569547_dbl_kind, 0.882447744816975_dbl_kind, 0.5553291641621_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1370) = (/ 0.999850350765501_dbl_kind, 0.996404330761852_dbl_kind, 0.970402636240502_dbl_kind, 0.882378013029873_dbl_kind, 0.555284734516302_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1371) = (/ 0.999850245815144_dbl_kind, 0.996402023962269_dbl_kind, 0.970382878836821_dbl_kind, 0.882308298793004_dbl_kind, 0.555240393111329_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1372) = (/ 0.999850140869007_dbl_kind, 0.996399717454264_dbl_kind, 0.970363123361081_dbl_kind, 0.882238602109757_dbl_kind, 0.555196139757413_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1373) = (/ 0.999850035927108_dbl_kind, 0.996397411238042_dbl_kind, 0.970343369815879_dbl_kind, 0.882168922983551_dbl_kind, 0.555151974265213_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1374) = (/ 0.999849930989461_dbl_kind, 0.996395105313811_dbl_kind, 0.970323618203817_dbl_kind, 0.882099261417847_dbl_kind, 0.555107896445817_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1375) = (/ 0.999849826056082_dbl_kind, 0.996392799681779_dbl_kind, 0.970303868527516_dbl_kind, 0.882029617416139_dbl_kind, 0.555063906110738_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1376) = (/ 0.999849721126987_dbl_kind, 0.996390494342158_dbl_kind, 0.970284120789606_dbl_kind, 0.881959990981956_dbl_kind, 0.555020003071916_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1377) = (/ 0.999849616202193_dbl_kind, 0.99638818929516_dbl_kind, 0.970264374992731_dbl_kind, 0.881890382118866_dbl_kind, 0.554976187141715_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1378) = (/ 0.999849511281717_dbl_kind, 0.996385884541_dbl_kind, 0.970244631139548_dbl_kind, 0.881820790830468_dbl_kind, 0.554932458132922_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1379) = (/ 0.999849406365574_dbl_kind, 0.996383580079894_dbl_kind, 0.970224889232726_dbl_kind, 0.881751217120401_dbl_kind, 0.554888815858747_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1380) = (/ 0.999849301453781_dbl_kind, 0.996381275912061_dbl_kind, 0.970205149274948_dbl_kind, 0.881681660992339_dbl_kind, 0.55484526013282_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1381) = (/ 0.999849196546355_dbl_kind, 0.99637897203772_dbl_kind, 0.970185411268908_dbl_kind, 0.88161212244999_dbl_kind, 0.554801790769196_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1382) = (/ 0.999849091643311_dbl_kind, 0.996376668457093_dbl_kind, 0.970165675217314_dbl_kind, 0.881542601497102_dbl_kind, 0.554758407582345_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1383) = (/ 0.999848986744667_dbl_kind, 0.996374365170403_dbl_kind, 0.970145941122887_dbl_kind, 0.881473098137456_dbl_kind, 0.55471511038716_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1384) = (/ 0.999848881850438_dbl_kind, 0.996372062177875_dbl_kind, 0.97012620898836_dbl_kind, 0.881403612374869_dbl_kind, 0.554671898998948_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1385) = (/ 0.999848776960644_dbl_kind, 0.996369759479738_dbl_kind, 0.970106478816481_dbl_kind, 0.881334144213196_dbl_kind, 0.554628773233437_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1386) = (/ 0.999848672075299_dbl_kind, 0.996367457076219_dbl_kind, 0.970086750610007_dbl_kind, 0.881264693656328_dbl_kind, 0.554585732906767_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1387) = (/ 0.999848567194422_dbl_kind, 0.996365154967549_dbl_kind, 0.970067024371711_dbl_kind, 0.881195260708191_dbl_kind, 0.554542777835499_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1388) = (/ 0.999848462318027_dbl_kind, 0.99636285315396_dbl_kind, 0.970047300104379_dbl_kind, 0.881125845372748_dbl_kind, 0.554499907836603_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1389) = (/ 0.999848357446135_dbl_kind, 0.996360551635688_dbl_kind, 0.970027577810808_dbl_kind, 0.881056447653998_dbl_kind, 0.554457122727463_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1390) = (/ 0.99984825257876_dbl_kind, 0.996358250412966_dbl_kind, 0.97000785749381_dbl_kind, 0.880987067555978_dbl_kind, 0.554414422325878_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1391) = (/ 0.99984814771592_dbl_kind, 0.996355949486035_dbl_kind, 0.969988139156208_dbl_kind, 0.880917705082758_dbl_kind, 0.554371806450057_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1392) = (/ 0.999848042857634_dbl_kind, 0.996353648855133_dbl_kind, 0.969968422800841_dbl_kind, 0.880848360238449_dbl_kind, 0.55432927491862_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1393) = (/ 0.999847938003916_dbl_kind, 0.996351348520501_dbl_kind, 0.969948708430556_dbl_kind, 0.880779033027196_dbl_kind, 0.554286827550598_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1394) = (/ 0.999847833154788_dbl_kind, 0.996349048482384_dbl_kind, 0.969928996048219_dbl_kind, 0.880709723453178_dbl_kind, 0.554244464165429_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1395) = (/ 0.999847728310263_dbl_kind, 0.996346748741024_dbl_kind, 0.969909285656704_dbl_kind, 0.880640431520616_dbl_kind, 0.554202184582958_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1396) = (/ 0.999847623470362_dbl_kind, 0.996344449296671_dbl_kind, 0.969889577258901_dbl_kind, 0.880571157233764_dbl_kind, 0.55415998862344_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1397) = (/ 0.999847518635102_dbl_kind, 0.996342150149572_dbl_kind, 0.969869870857712_dbl_kind, 0.880501900596913_dbl_kind, 0.554117876107536_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1398) = (/ 0.999847413804499_dbl_kind, 0.996339851299978_dbl_kind, 0.969850166456054_dbl_kind, 0.880432661614391_dbl_kind, 0.554075846856309_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1399) = (/ 0.999847308978572_dbl_kind, 0.99633755274814_dbl_kind, 0.969830464056853_dbl_kind, 0.880363440290564_dbl_kind, 0.554033900691229_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1400) = (/ 0.999847204157339_dbl_kind, 0.996335254494314_dbl_kind, 0.969810763663052_dbl_kind, 0.880294236629833_dbl_kind, 0.55399203743417_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1401) = (/ 0.999847099340819_dbl_kind, 0.996332956538754_dbl_kind, 0.969791065277604_dbl_kind, 0.880225050636636_dbl_kind, 0.553950256907406_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1402) = (/ 0.999846994529027_dbl_kind, 0.99633065888172_dbl_kind, 0.96977136890348_dbl_kind, 0.880155882315449_dbl_kind, 0.553908558933614_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1403) = (/ 0.999846889721985_dbl_kind, 0.996328361523468_dbl_kind, 0.969751674543659_dbl_kind, 0.880086731670782_dbl_kind, 0.553866943335873_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1404) = (/ 0.999846784919708_dbl_kind, 0.996326064464262_dbl_kind, 0.969731982201134_dbl_kind, 0.880017598707187_dbl_kind, 0.553825409937659_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1405) = (/ 0.999846680122217_dbl_kind, 0.996323767704366_dbl_kind, 0.969712291878915_dbl_kind, 0.879948483429248_dbl_kind, 0.553783958562852_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1406) = (/ 0.999846575329528_dbl_kind, 0.996321471244042_dbl_kind, 0.969692603580022_dbl_kind, 0.879879385841587_dbl_kind, 0.553742589035724_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1407) = (/ 0.99984647054166_dbl_kind, 0.996319175083557_dbl_kind, 0.969672917307487_dbl_kind, 0.879810305948866_dbl_kind, 0.553701301180948_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1408) = (/ 0.999846365758633_dbl_kind, 0.996316879223181_dbl_kind, 0.96965323306436_dbl_kind, 0.87974124375578_dbl_kind, 0.553660094823593_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1409) = (/ 0.999846260980464_dbl_kind, 0.996314583663185_dbl_kind, 0.9696335508537_dbl_kind, 0.879672199267063_dbl_kind, 0.553618969789122_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1410) = (/ 0.999846156207173_dbl_kind, 0.99631228840384_dbl_kind, 0.969613870678579_dbl_kind, 0.879603172487485_dbl_kind, 0.553577925903395_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1411) = (/ 0.999846051438777_dbl_kind, 0.99630999344542_dbl_kind, 0.969594192542086_dbl_kind, 0.879534163421857_dbl_kind, 0.553536962992663_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1412) = (/ 0.999845946675297_dbl_kind, 0.996307698788201_dbl_kind, 0.969574516447322_dbl_kind, 0.879465172075021_dbl_kind, 0.553496080883571_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1413) = (/ 0.999845841916751_dbl_kind, 0.99630540443246_dbl_kind, 0.969554842397398_dbl_kind, 0.87939619845186_dbl_kind, 0.553455279403157_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1414) = (/ 0.999845737163157_dbl_kind, 0.996303110378478_dbl_kind, 0.969535170395442_dbl_kind, 0.879327242557292_dbl_kind, 0.553414558378849_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1415) = (/ 0.999845632414535_dbl_kind, 0.996300816626535_dbl_kind, 0.969515500444594_dbl_kind, 0.879258304396276_dbl_kind, 0.553373917638465_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1416) = (/ 0.999845527670904_dbl_kind, 0.996298523176914_dbl_kind, 0.969495832548008_dbl_kind, 0.879189383973804_dbl_kind, 0.553333357010213_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1417) = (/ 0.999845422932283_dbl_kind, 0.9962962300299_dbl_kind, 0.969476166708851_dbl_kind, 0.879120481294907_dbl_kind, 0.553292876322688_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1418) = (/ 0.999845318198692_dbl_kind, 0.99629393718578_dbl_kind, 0.969456502930304_dbl_kind, 0.879051596364654_dbl_kind, 0.553252475404876_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1419) = (/ 0.99984521347015_dbl_kind, 0.996291644644844_dbl_kind, 0.969436841215558_dbl_kind, 0.87898272918815_dbl_kind, 0.553212154086147_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1420) = (/ 0.999845108746675_dbl_kind, 0.99628935240738_dbl_kind, 0.969417181567823_dbl_kind, 0.878913879770538_dbl_kind, 0.553171912196257_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1421) = (/ 0.999845004028289_dbl_kind, 0.996287060473682_dbl_kind, 0.969397523990318_dbl_kind, 0.878845048116996_dbl_kind, 0.553131749565346_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1422) = (/ 0.999844899315011_dbl_kind, 0.996284768844043_dbl_kind, 0.969377868486277_dbl_kind, 0.878776234232745_dbl_kind, 0.553091666023943_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1423) = (/ 0.999844794606859_dbl_kind, 0.996282477518759_dbl_kind, 0.969358215058948_dbl_kind, 0.878707438123037_dbl_kind, 0.553051661402955_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1424) = (/ 0.999844689903855_dbl_kind, 0.996280186498128_dbl_kind, 0.969338563711591_dbl_kind, 0.878638659793167_dbl_kind, 0.553011735533674_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1425) = (/ 0.999844585206018_dbl_kind, 0.996277895782449_dbl_kind, 0.969318914447482_dbl_kind, 0.878569899248462_dbl_kind, 0.552971888247772_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1426) = (/ 0.999844480513367_dbl_kind, 0.996275605372024_dbl_kind, 0.969299267269906_dbl_kind, 0.878501156494291_dbl_kind, 0.552932119377304_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1427) = (/ 0.999844375825923_dbl_kind, 0.996273315267157_dbl_kind, 0.969279622182166_dbl_kind, 0.878432431536056_dbl_kind, 0.552892428754704_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1428) = (/ 0.999844271143706_dbl_kind, 0.99627102546815_dbl_kind, 0.969259979187577_dbl_kind, 0.878363724379202_dbl_kind, 0.552852816212784_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1429) = (/ 0.999844166466736_dbl_kind, 0.996268735975313_dbl_kind, 0.969240338289467_dbl_kind, 0.878295035029207_dbl_kind, 0.552813281584733_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1430) = (/ 0.999844061795033_dbl_kind, 0.996266446788953_dbl_kind, 0.969220699491177_dbl_kind, 0.87822636349159_dbl_kind, 0.552773824704123_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1431) = (/ 0.999843957128618_dbl_kind, 0.996264157909381_dbl_kind, 0.969201062796064_dbl_kind, 0.878157709771902_dbl_kind, 0.552734445404897_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1432) = (/ 0.999843852467511_dbl_kind, 0.99626186933691_dbl_kind, 0.969181428207495_dbl_kind, 0.878089073875739_dbl_kind, 0.552695143521376_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1433) = (/ 0.999843747811732_dbl_kind, 0.996259581071852_dbl_kind, 0.969161795728853_dbl_kind, 0.878020455808728_dbl_kind, 0.552655918888253_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1434) = (/ 0.999843643161302_dbl_kind, 0.996257293114525_dbl_kind, 0.969142165363534_dbl_kind, 0.877951855576537_dbl_kind, 0.552616771340601_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1435) = (/ 0.999843538516243_dbl_kind, 0.996255005465247_dbl_kind, 0.969122537114948_dbl_kind, 0.877883273184872_dbl_kind, 0.55257770071386_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1436) = (/ 0.999843433876573_dbl_kind, 0.996252718124336_dbl_kind, 0.969102910986518_dbl_kind, 0.877814708639474_dbl_kind, 0.552538706843843_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1437) = (/ 0.999843329242314_dbl_kind, 0.996250431092115_dbl_kind, 0.96908328698168_dbl_kind, 0.877746161946125_dbl_kind, 0.55249978956674_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1438) = (/ 0.999843224613488_dbl_kind, 0.996248144368906_dbl_kind, 0.969063665103885_dbl_kind, 0.87767763311064_dbl_kind, 0.552460948719108_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1439) = (/ 0.999843119990115_dbl_kind, 0.996245857955035_dbl_kind, 0.969044045356598_dbl_kind, 0.877609122138878_dbl_kind, 0.552422184137868_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1440) = (/ 0.999843015372216_dbl_kind, 0.996243571850829_dbl_kind, 0.969024427743294_dbl_kind, 0.877540629036729_dbl_kind, 0.552383495660321_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1441) = (/ 0.999842910759811_dbl_kind, 0.996241286056617_dbl_kind, 0.969004812267466_dbl_kind, 0.877472153810126_dbl_kind, 0.55234488312413_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1442) = (/ 0.999842806152924_dbl_kind, 0.996239000572729_dbl_kind, 0.968985198932619_dbl_kind, 0.877403696465036_dbl_kind, 0.552306346367323_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1443) = (/ 0.999842701551575_dbl_kind, 0.996236715399498_dbl_kind, 0.968965587742271_dbl_kind, 0.877335257007466_dbl_kind, 0.552267885228301_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1444) = (/ 0.999842596955783_dbl_kind, 0.996234430537257_dbl_kind, 0.968945978699953_dbl_kind, 0.87726683544346_dbl_kind, 0.552229499545824_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1445) = (/ 0.999842492365573_dbl_kind, 0.996232145986344_dbl_kind, 0.968926371809212_dbl_kind, 0.8771984317791_dbl_kind, 0.552191189159023_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1446) = (/ 0.999842387780965_dbl_kind, 0.996229861747096_dbl_kind, 0.968906767073609_dbl_kind, 0.877130046020503_dbl_kind, 0.552152953907388_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1447) = (/ 0.99984228320198_dbl_kind, 0.996227577819854_dbl_kind, 0.968887164496713_dbl_kind, 0.877061678173829_dbl_kind, 0.552114793630775_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1448) = (/ 0.999842178628641_dbl_kind, 0.996225294204958_dbl_kind, 0.968867564082115_dbl_kind, 0.876993328245273_dbl_kind, 0.552076708169401_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1449) = (/ 0.999842074060968_dbl_kind, 0.996223010902751_dbl_kind, 0.968847965833414_dbl_kind, 0.876924996241064_dbl_kind, 0.552038697363846_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1450) = (/ 0.999841969498985_dbl_kind, 0.996220727913582_dbl_kind, 0.968828369754224_dbl_kind, 0.876856682167477_dbl_kind, 0.552000761055049_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1451) = (/ 0.999841864942712_dbl_kind, 0.996218445237794_dbl_kind, 0.968808775848173_dbl_kind, 0.876788386030817_dbl_kind, 0.551962899084311_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1452) = (/ 0.999841760392172_dbl_kind, 0.996216162875737_dbl_kind, 0.968789184118903_dbl_kind, 0.876720107837432_dbl_kind, 0.55192511129329_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1453) = (/ 0.999841655847387_dbl_kind, 0.996213880827764_dbl_kind, 0.96876959457007_dbl_kind, 0.876651847593705_dbl_kind, 0.551887397524003_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1454) = (/ 0.999841551308379_dbl_kind, 0.996211599094225_dbl_kind, 0.968750007205341_dbl_kind, 0.876583605306057_dbl_kind, 0.551849757618826_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1455) = (/ 0.999841446775171_dbl_kind, 0.996209317675477_dbl_kind, 0.968730422028401_dbl_kind, 0.876515380980947_dbl_kind, 0.55181219142049_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1456) = (/ 0.999841342247784_dbl_kind, 0.996207036571874_dbl_kind, 0.968710839042947_dbl_kind, 0.876447174624875_dbl_kind, 0.551774698772083_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1457) = (/ 0.999841237726241_dbl_kind, 0.996204755783775_dbl_kind, 0.968691258252687_dbl_kind, 0.876378986244373_dbl_kind, 0.551737279517044_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1458) = (/ 0.999841133210564_dbl_kind, 0.99620247531154_dbl_kind, 0.968671679661348_dbl_kind, 0.876310815846014_dbl_kind, 0.551699933499175_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1459) = (/ 0.999841028700777_dbl_kind, 0.996200195155531_dbl_kind, 0.968652103272666_dbl_kind, 0.876242663436409_dbl_kind, 0.551662660562623_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1460) = (/ 0.999840924196901_dbl_kind, 0.996197915316111_dbl_kind, 0.968632529090393_dbl_kind, 0.876174529022208_dbl_kind, 0.551625460551891_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1461) = (/ 0.99984081969896_dbl_kind, 0.996195635793647_dbl_kind, 0.968612957118295_dbl_kind, 0.876106412610094_dbl_kind, 0.551588333311834_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1462) = (/ 0.999840715206976_dbl_kind, 0.996193356588505_dbl_kind, 0.968593387360151_dbl_kind, 0.876038314206795_dbl_kind, 0.551551278687659_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1463) = (/ 0.999840610720973_dbl_kind, 0.996191077701055_dbl_kind, 0.968573819819754_dbl_kind, 0.87597023381907_dbl_kind, 0.551514296524921_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1464) = (/ 0.999840506240972_dbl_kind, 0.996188799131668_dbl_kind, 0.968554254500911_dbl_kind, 0.875902171453718_dbl_kind, 0.551477386669527_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1465) = (/ 0.999840401766998_dbl_kind, 0.996186520880715_dbl_kind, 0.968534691407442_dbl_kind, 0.875834127117579_dbl_kind, 0.55144054896773_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1466) = (/ 0.999840297299074_dbl_kind, 0.996184242948572_dbl_kind, 0.968515130543184_dbl_kind, 0.875766100817527_dbl_kind, 0.551403783266132_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1467) = (/ 0.999840192837221_dbl_kind, 0.996181965335617_dbl_kind, 0.968495571911982_dbl_kind, 0.875698092560474_dbl_kind, 0.551367089411684_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1468) = (/ 0.999840088381465_dbl_kind, 0.996179688042226_dbl_kind, 0.968476015517699_dbl_kind, 0.875630102353373_dbl_kind, 0.551330467251681_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1469) = (/ 0.999839983931828_dbl_kind, 0.996177411068779_dbl_kind, 0.968456461364212_dbl_kind, 0.875562130203211_dbl_kind, 0.551293916633764_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1470) = (/ 0.999839879488333_dbl_kind, 0.996175134415661_dbl_kind, 0.968436909455411_dbl_kind, 0.875494176117017_dbl_kind, 0.55125743740592_dbl_kind /) + iceSingleScatterAlbedoDiffuse(1:5 ,1471) = (/ 0.999839775051005_dbl_kind, 0.996172858083252_dbl_kind, 0.968417359795198_dbl_kind, 0.875426240101851_dbl_kind, 0.55122102941648_dbl_kind /) + + iceMassExtinctionCrossSectionDirect(1:5 ,1) = (/ 55.6583978509486_dbl_kind, 56.0679727369348_dbl_kind, 56.2944898958771_dbl_kind, 56.6269155829422_dbl_kind, 57.3031147376752_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,2) = (/ 53.8394031091931_dbl_kind, 54.2246989874223_dbl_kind, 54.4449624105993_dbl_kind, 54.7538929671849_dbl_kind, 55.3959310999853_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,3) = (/ 52.135223777981_dbl_kind, 52.4986136255096_dbl_kind, 52.7130042254717_dbl_kind, 52.9999857238108_dbl_kind, 53.6110291170098_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,4) = (/ 50.5353321168853_dbl_kind, 50.8789170971395_dbl_kind, 51.0876944545592_dbl_kind, 51.3542757126098_dbl_kind, 51.937026466008_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,5) = (/ 49.0304459537068_dbl_kind, 49.3560881500915_dbl_kind, 49.5594340506553_dbl_kind, 49.807134050534_dbl_kind, 50.363911364368_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,6) = (/ 47.6123504733374_dbl_kind, 47.921701760058_dbl_kind, 48.119751325712_dbl_kind, 48.3500345114793_dbl_kind, 48.8828426152653_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,7) = (/ 46.273749828545_dbl_kind, 46.5682771547488_dbl_kind, 46.7611403273823_dbl_kind, 46.9753991964612_dbl_kind, 47.4859834900578_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,8) = (/ 45.0081428349869_dbl_kind, 45.2891502663772_dbl_kind, 45.4769260062444_dbl_kind, 45.6764700060493_dbl_kind, 46.1663629933783_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,9) = (/ 43.8097182585985_dbl_kind, 44.0783661502744_dbl_kind, 44.26115129222_dbl_kind, 44.4472008777757_dbl_kind, 44.9177594226608_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,10) = (/ 42.6732661521873_dbl_kind, 42.9305878260895_dbl_kind, 43.1084821379949_dbl_kind, 43.2821668518427_dbl_kind, 43.7346021814445_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,11) = (/ 41.5941024253413_dbl_kind, 41.8410187043237_dbl_kind, 42.0141273383839_dbl_kind, 42.1764868748655_dbl_kind, 42.6118886162592_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,12) = (/ 40.5680043930911_dbl_kind, 40.8053363094196_dbl_kind, 40.9737705381366_dbl_kind, 41.1257579024492_dbl_kind, 41.5451132789504_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,13) = (/ 39.5911554850391_dbl_kind, 39.8196354406727_dbl_kind, 39.9835123269691_dbl_kind, 40.1259983627882_dbl_kind, 40.5302075128961_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,14) = (/ 38.6600976381445_dbl_kind, 38.8803792524134_dbl_kind, 39.0398207128447_dbl_kind, 39.1735994305259_dbl_kind, 39.5634876544334_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,15) = (/ 37.771690165576_dbl_kind, 37.9843570061869_dbl_kind, 38.139488581035_dbl_kind, 38.2652828600394_dbl_kind, 38.6416104535598_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,16) = (/ 36.9230741078629_dbl_kind, 37.1286474655505_dbl_kind, 37.2795970018794_dbl_kind, 37.3980643609764_dbl_kind, 37.7615345683746_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,17) = (/ 36.1116412436471_dbl_kind, 36.3105870802173_dbl_kind, 36.4574834562414_dbl_kind, 36.5692216821185_dbl_kind, 36.9204871892514_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,18) = (/ 35.3350070751978_dbl_kind, 35.5277422494114_dbl_kind, 35.670714214009_dbl_kind, 35.7762667144887_dbl_kind, 36.1159350116936_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,19) = (/ 34.5909872157426_dbl_kind, 34.7778850712087_dbl_kind, 34.9170602353605_dbl_kind, 35.0169210401103_dbl_kind, 35.3455589091815_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,20) = (/ 33.8775766970906_dbl_kind, 34.0589720805226_dbl_kind, 34.1944760732281_dbl_kind, 34.2890944457575_dbl_kind, 34.6072317652469_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,21) = (/ 33.1929317911994_dbl_kind, 33.3691255573638_dbl_kind, 33.5010813434994_dbl_kind, 33.5908659965052_dbl_kind, 33.8989990123658_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,22) = (/ 32.5353540015206_dbl_kind, 32.7066170522582_dbl_kind, 32.8351444011076_dbl_kind, 32.9204673257354_dbl_kind, 33.2190614978351_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,23) = (/ 31.9032759316672_dbl_kind, 32.0698528298226_dbl_kind, 32.1950679185504_dbl_kind, 32.276267849356_dbl_kind, 32.5657603566407_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,24) = (/ 31.2952487821571_dbl_kind, 31.4573609765161_dbl_kind, 31.5793761111663_dbl_kind, 31.6567616545356_dbl_kind, 31.9375636208108_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,25) = (/ 30.7099312622501_dbl_kind, 30.8677799561515_dbl_kind, 30.986703392774_dbl_kind, 31.0605558489194_dbl_kind, 31.3330543358233_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,26) = (/ 30.1460797344443_dbl_kind, 30.2998484282037_dbl_kind, 30.4157842777209_dbl_kind, 30.4863601863386_dbl_kind, 30.7509199888349_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,27) = (/ 29.6025394350215_dbl_kind, 29.7523961703595_dbl_kind, 29.8654443722935_dbl_kind, 29.9329778104856_dbl_kind, 30.189943082058_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,28) = (/ 29.078236635919_dbl_kind, 29.2243359689979_dbl_kind, 29.3345923208861_dbl_kind, 29.3992969796595_dbl_kind, 29.6489927085493_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,29) = (/ 28.5721716318121_dbl_kind, 28.7146563600861_dbl_kind, 28.8222125911289_dbl_kind, 28.8842836541462_dbl_kind, 29.1270170077924_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,30) = (/ 28.083412452138_dbl_kind, 28.222415118904_dbl_kind, 28.3273589980048_dbl_kind, 28.3869748435759_dbl_kind, 28.6230363954223_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,31) = (/ 27.6110892113198_dbl_kind, 27.7467334105505_dbl_kind, 27.8491488803839_dbl_kind, 27.9064726251257_dbl_kind, 28.1361374757934_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,32) = (/ 27.1543890220136_dbl_kind, 27.2867905247297_dbl_kind, 27.3867578547778_dbl_kind, 27.4419387550462_dbl_kind, 27.6654675582684_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,33) = (/ 26.712551406113_dbl_kind, 26.8418191281898_dbl_kind, 26.9394150808284_dbl_kind, 26.9925898059705_dbl_kind, 27.2102297084757_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,34) = (/ 26.2848641467388_dbl_kind, 26.411100976649_dbl_kind, 26.5063989813543_dbl_kind, 26.5576927710618_dbl_kind, 26.7696782746273_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,35) = (/ 25.8706595317462_dbl_kind, 25.9939630353286_dbl_kind, 26.0870333669252_dbl_kind, 26.1365610834651_dbl_kind, 26.3431148365723_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,36) = (/ 25.4693109455618_dbl_kind, 25.5897739634854_dbl_kind, 25.6806839210894_dbl_kind, 25.728551005925_dbl_kind, 25.9298845317636_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,37) = (/ 25.0802297715744_dbl_kind, 25.1979409237648_dbl_kind, 25.2867550077023_dbl_kind, 25.3330583509637_dbl_kind, 25.5293727179226_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,38) = (/ 24.7028625719744_dbl_kind, 24.8179066818945_dbl_kind, 24.9046867664176_dbl_kind, 24.9495154967974_dbl_kind, 25.1410019370217_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,39) = (/ 24.3366885159686_dbl_kind, 24.4491469663244_dbl_kind, 24.5339524664087_dbl_kind, 24.57738866832_dbl_kind, 24.7642291493982_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,40) = (/ 23.9812170307924_dbl_kind, 24.0911680609678_dbl_kind, 24.1740560918769_dbl_kind, 24.2161754560877_dbl_kind, 24.3985432104442_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,41) = (/ 23.6359856529655_dbl_kind, 23.7435046072997_dbl_kind, 23.8245301359436_dbl_kind, 23.8654025493661_dbl_kind, 24.0434625654858_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,42) = (/ 23.3005580598651_dbl_kind, 23.4057175947751_dbl_kind, 23.4849335821849_dbl_kind, 23.5246236620369_dbl_kind, 23.6985331412196_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,43) = (/ 22.9745222639755_dbl_kind, 23.077392520899_dbl_kind, 23.1548500553898_dbl_kind, 23.1934176325361_dbl_kind, 23.3633264144916_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,44) = (/ 22.6574889541655_dbl_kind, 22.7581377043581_dbl_kind, 22.8338861251674_dbl_kind, 22.8713866810842_dbl_kind, 23.0374376413117_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,45) = (/ 22.3490899700793_dbl_kind, 22.4475827364484_dbl_kind, 22.5216697478142_dbl_kind, 22.5581548092883_dbl_kind, 22.7204842308552_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,46) = (/ 22.0489768972482_dbl_kind, 22.1453770576383_dbl_kind, 22.2178488334334_dbl_kind, 22.2533663287995_dbl_kind, 22.4121042508336_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,47) = (/ 21.7568197718608_dbl_kind, 21.8511886475207_dbl_kind, 21.9220899266788_dbl_kind, 21.9566845071157_dbl_kind, 22.1119550520547_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,48) = (/ 21.4723058852967_dbl_kind, 21.5647028176518_dbl_kind, 21.6340769907233_dbl_kind, 21.6677903198619_dbl_kind, 21.81971200126_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,49) = (/ 21.1951386795593_dbl_kind, 21.2856210978822_dbl_kind, 21.3535102851308_dbl_kind, 21.3863812999742_dbl_kind, 21.5350673124547_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,50) = (/ 20.9250367256453_dbl_kind, 21.0136602077514_dbl_kind, 21.0801053292649_dbl_kind, 21.1121704751842_dbl_kind, 21.2577289679344_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,51) = (/ 20.6617327776923_dbl_kind, 20.7485511053884_dbl_kind, 20.8135919437143_dbl_kind, 20.8448853860589_dbl_kind, 20.9874197211009_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,52) = (/ 20.404972896452_dbl_kind, 20.4900381071184_dbl_kind, 20.5537133629667_dbl_kind, 20.5842671776148_dbl_kind, 20.7238761739405_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,53) = (/ 20.1545156362641_dbl_kind, 20.2378780716627_dbl_kind, 20.3002254132286_dbl_kind, 20.3300697582042_dbl_kind, 20.4668479227376_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,54) = (/ 19.9101312902675_dbl_kind, 19.9918396434149_dbl_kind, 20.052895749881_dbl_kind, 20.0820590199749_dbl_kind, 20.2160967662206_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,55) = (/ 19.6716011890774_dbl_kind, 19.7517025498211_dbl_kind, 19.811503149592_dbl_kind, 19.8400121157491_dbl_kind, 19.9713959708895_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,56) = (/ 19.438717048606_dbl_kind, 19.5172569483666_dbl_kind, 19.5758368525767_dbl_kind, 19.6037167876461_dbl_kind, 19.7325295887758_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,57) = (/ 19.211280363095_dbl_kind, 19.288302819101_dbl_kind, 19.3456959509175_dbl_kind, 19.3729707432087_dbl_kind, 19.4992918233248_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,58) = (/ 18.9891018397899_dbl_kind, 19.0646493990148_dbl_kind, 19.1208888192351_dbl_kind, 19.1475810751839_dbl_kind, 19.2714864394949_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,59) = (/ 18.7720008719985_dbl_kind, 18.8461146549241_dbl_kind, 18.9012325843383_dbl_kind, 18.9273637214516_dbl_kind, 19.0489262145201_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,60) = (/ 18.5598050475674_dbl_kind, 18.6325247918229_dbl_kind, 18.686552630785_dbl_kind, 18.7121429619164_dbl_kind, 18.8314324261099_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,61) = (/ 18.3523496900656_dbl_kind, 18.4237137939418_dbl_kind, 18.4766821395586_dbl_kind, 18.5017509494551_dbl_kind, 18.6188343751422_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,62) = (/ 18.149477430197_dbl_kind, 18.2195229959936_dbl_kind, 18.2714616573109_dbl_kind, 18.2960272722702_dbl_kind, 18.4109689401738_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,63) = (/ 17.9510378051771_dbl_kind, 18.0198006823127_dbl_kind, 18.0707386938438_dbl_kind, 18.0948185452303_dbl_kind, 18.2076801613202_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,64) = (/ 17.7568868839938_dbl_kind, 17.82440171179_dbl_kind, 17.8743673456997_dbl_kind, 17.8979780279863_dbl_kind, 18.0088188512735_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,65) = (/ 17.566886916651_dbl_kind, 17.633187166691_dbl_kind, 17.6822079439168_dbl_kind, 17.7053652678415_dbl_kind, 17.814242231417_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,66) = (/ 17.3809060056443_dbl_kind, 17.4460240236015_dbl_kind, 17.4941267241623_dbl_kind, 17.5168457655231_dbl_kind, 17.623813591168_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,67) = (/ 17.1988177980649_dbl_kind, 17.2627848448963_dbl_kind, 17.3099955176086_dbl_kind, 17.3322906621616_dbl_kind, 17.437401968838_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,68) = (/ 17.020501196854_dbl_kind, 17.0833474892565_dbl_kind, 17.1296914610535_dbl_kind, 17.1515764459202_dbl_kind, 17.2548818524416_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,69) = (/ 16.8458400898493_dbl_kind, 16.9075948398853_dbl_kind, 16.9530967249026_dbl_kind, 16.9745846768495_dbl_kind, 17.0761328990151_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,70) = (/ 16.6747230953719_dbl_kind, 16.735414549176_dbl_kind, 16.7800982577478_dbl_kind, 16.8012017286545_dbl_kind, 16.9010396711217_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,71) = (/ 16.5070433232002_dbl_kind, 16.5666987986904_dbl_kind, 16.6105875463755_dbl_kind, 16.6313185461719_dbl_kind, 16.7294913893287_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,72) = (/ 16.342698149867_dbl_kind, 16.401344073393_dbl_kind, 16.444460390128_dbl_kind, 16.4648304174465_dbl_kind, 16.5613816995377_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,73) = (/ 16.1815890072975_dbl_kind, 16.2392509491711_dbl_kind, 16.2816166886311_dbl_kind, 16.3016367593898_dbl_kind, 16.3966084541391_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,74) = (/ 16.0236211838821_dbl_kind, 16.0803238927417_dbl_kind, 16.1219602419706_dbl_kind, 16.1416409160782_dbl_kind, 16.2350735060403_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,75) = (/ 15.8687036371438_dbl_kind, 15.9244710731214_dbl_kind, 15.965398562478_dbl_kind, 15.9847499688269_dbl_kind, 16.0766825146931_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,76) = (/ 15.7167488172266_dbl_kind, 15.7716041838895_dbl_kind, 15.8118426973428_dbl_kind, 15.830874557239_dbl_kind, 15.9213447633126_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,77) = (/ 15.5676725004868_dbl_kind, 15.6216382755406_dbl_kind, 15.661207061335_dbl_kind, 15.6799287104924_dbl_kind, 15.7689729865401_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,78) = (/ 15.4213936325219_dbl_kind, 15.4744915972675_dbl_kind, 15.5134092789677_dbl_kind, 15.5318296881826_dbl_kind, 15.6194832078602_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,79) = (/ 15.2778341800225_dbl_kind, 15.3300854475687_dbl_kind, 15.3683700354857_dbl_kind, 15.3864978300915_dbl_kind, 15.4727945861335_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,80) = (/ 15.1369189908762_dbl_kind, 15.1883440331173_dbl_kind, 15.2260129361076_dbl_kind, 15.2438564142994_dbl_kind, 15.3288292706539_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,81) = (/ 14.9985756619925_dbl_kind, 15.0491943353666_dbl_kind, 15.0862643729913_dbl_kind, 15.103831523099_dbl_kind, 15.1875122641818_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,82) = (/ 14.8627344143596_dbl_kind, 14.9125659844084_dbl_kind, 14.9490533994327_dbl_kind, 14.9663519162136_dbl_kind, 15.0487712934465_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,83) = (/ 14.7293279748744_dbl_kind, 14.7783911396307_dbl_kind, 14.8143116108396_dbl_kind, 14.8313489108538_dbl_kind, 14.9125366866449_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,84) = (/ 14.5982914645225_dbl_kind, 14.6466043767575_dbl_kind, 14.6819730320595_dbl_kind, 14.6987562681834_dbl_kind, 14.7787412574998_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,85) = (/ 14.4695622925141_dbl_kind, 14.5171425808762_dbl_kind, 14.551974010666_dbl_kind, 14.5685100857954_dbl_kind, 14.6473201954706_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,86) = (/ 14.343080056008_dbl_kind, 14.3899448450927_dbl_kind, 14.4242531158377_dbl_kind, 14.4405486958275_dbl_kind, 14.5182109617394_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,87) = (/ 14.2187864450827_dbl_kind, 14.2649523744711_dbl_kind, 14.29875104249_dbl_kind, 14.3148125683707_dbl_kind, 14.3913531906186_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,88) = (/ 14.0966251526367_dbl_kind, 14.1421083949452_dbl_kind, 14.1754105203419_dbl_kind, 14.1912442198523_dbl_kind, 14.2666885960546_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,89) = (/ 13.9765417889214_dbl_kind, 14.0213580669039_dbl_kind, 14.054176227622_dbl_kind, 14.0697881260935_dbl_kind, 14.1441608829212_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,90) = (/ 13.8584838004307_dbl_kind, 13.902648403177_dbl_kind, 13.9349947091394_dbl_kind, 13.9503906397646_dbl_kind, 14.0237156628192_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,91) = (/ 13.7424003928892_dbl_kind, 13.7859281911634_dbl_kind, 13.8178142984622_dbl_kind, 13.8329999119766_dbl_kind, 13.9053003741161_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,92) = (/ 13.6282424580987_dbl_kind, 13.6711479188604_dbl_kind, 13.7025850439626_dbl_kind, 13.7175658177709_dbl_kind, 13.7888642059792_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,93) = (/ 13.5159625044189_dbl_kind, 13.5582597045716_dbl_kind, 13.5892586385077_dbl_kind, 13.6040398852787_dbl_kind, 13.6743580261704_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,94) = (/ 13.4055145906723_dbl_kind, 13.4472172300803_dbl_kind, 13.477788352584_dbl_kind, 13.4923752283406_dbl_kind, 13.5617343123869_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,95) = (/ 13.296854263277_dbl_kind, 13.3379756770938_dbl_kind, 13.3681289706622_dbl_kind, 13.3825264823901_dbl_kind, 13.4509470869464_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,96) = (/ 13.1899384964243_dbl_kind, 13.230491666773_dbl_kind, 13.2602367306181_dbl_kind, 13.2744497434173_dbl_kind, 13.3419518546268_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,97) = (/ 13.0847256351301_dbl_kind, 13.1247232021754_dbl_kind, 13.1540692660402_dbl_kind, 13.1681025098386_dbl_kind, 13.2347055434851_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,98) = (/ 12.9811753409986_dbl_kind, 13.0206296134484_dbl_kind, 13.0495855512626_dbl_kind, 13.0634436271153_dbl_kind, 13.1291664484892_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,99) = (/ 12.8792485405491_dbl_kind, 12.9181715056232_dbl_kind, 12.9467458489732_dbl_kind, 12.9604332349662_dbl_kind, 13.0252941778071_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,100) = (/ 12.7789073759642_dbl_kind, 12.8173107088647_dbl_kind, 12.8455116602581_dbl_kind, 12.8590327170361_dbl_kind, 12.9230496016095_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,101) = (/ 12.6801151581271_dbl_kind, 12.7180102310452_dbl_kind, 12.7458456769489_dbl_kind, 12.7592046528857_dbl_kind, 12.8223948032484_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,102) = (/ 12.5828363218254_dbl_kind, 12.620234212516_dbl_kind, 12.6477117361494_dbl_kind, 12.6609127721797_dbl_kind, 12.7232930326839_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,103) = (/ 12.4870363830041_dbl_kind, 12.5239478829586_dbl_kind, 12.5510747768269_dbl_kind, 12.5641219109564_dbl_kind, 12.6257086620399_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,104) = (/ 12.3926818979585_dbl_kind, 12.4291175202056_dbl_kind, 12.4559007983578_dbl_kind, 12.4687979698682_dbl_kind, 12.5296071431748_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,105) = (/ 12.2997404243659_dbl_kind, 12.3357104109264_dbl_kind, 12.3621568209252_dbl_kind, 12.3749078742913_dbl_kind, 12.4349549671618_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,106) = (/ 12.2081804840579_dbl_kind, 12.2436948130796_dbl_kind, 12.2698108476732_dbl_kind, 12.2824195362077_dbl_kind, 12.3417196255798_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,107) = (/ 12.1179715274444_dbl_kind, 12.1530399200415_dbl_kind, 12.1788318285264_dbl_kind, 12.1913018177669_dbl_kind, 12.2498695735193_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,108) = (/ 12.0290838995032_dbl_kind, 12.0637158263214_dbl_kind, 12.0891896255895_dbl_kind, 12.1015244964441_dbl_kind, 12.1593741942173_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,109) = (/ 11.9414888072549_dbl_kind, 11.9756934947841_dbl_kind, 12.0008549800478_dbl_kind, 12.0130582317116_dbl_kind, 12.0702037652362_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,110) = (/ 11.8551582886485_dbl_kind, 11.888944725302_dbl_kind, 11.9137994804909_dbl_kind, 11.9258745331491_dbl_kind, 11.98232942611_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,111) = (/ 11.7700651827853_dbl_kind, 11.8034421247639_dbl_kind, 11.8279955325912_dbl_kind, 11.8399457299212_dbl_kind, 11.8957231473828_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,112) = (/ 11.6861831014162_dbl_kind, 11.7191590783729_dbl_kind, 11.7434163300677_dbl_kind, 11.755244941553_dbl_kind, 11.8103577009711_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,113) = (/ 11.6034864016462_dbl_kind, 11.6360697221673_dbl_kind, 11.6600358268728_dbl_kind, 11.6717460499414_dbl_kind, 11.7262066317836_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,114) = (/ 11.5219501597895_dbl_kind, 11.5541489167068_dbl_kind, 11.5778287105431_dbl_kind, 11.5894236725423_dbl_kind, 11.6432442305368_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,115) = (/ 11.4415501463169_dbl_kind, 11.4733722218625_dbl_kind, 11.4967703766558_dbl_kind, 11.5082531366743_dbl_kind, 11.5614455077089_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,116) = (/ 11.3622628018437_dbl_kind, 11.39371587266_dbl_kind, 11.4168369043394_dbl_kind, 11.4282104548885_dbl_kind, 11.4807861685746_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,117) = (/ 11.284065214107_dbl_kind, 11.3151567561229_dbl_kind, 11.3380050327873_dbl_kind, 11.3492723013511_dbl_kind, 11.4012425892713_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,118) = (/ 11.2069350958858_dbl_kind, 11.2376723890676_dbl_kind, 11.2602521387272_dbl_kind, 11.271415989192_dbl_kind, 11.3227917938459_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,119) = (/ 11.1308507638185_dbl_kind, 11.1612408968056_dbl_kind, 11.1835562148012_dbl_kind, 11.1946194487733_dbl_kind, 11.2454114322356_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,120) = (/ 11.0557911180759_dbl_kind, 11.0858409927085_dbl_kind, 11.1078958488132_dbl_kind, 11.1188612068351_dbl_kind, 11.1690797591395_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,121) = (/ 10.9817356228495_dbl_kind, 11.0114519585952_dbl_kind, 11.0332502038051_dbl_kind, 11.0441203664781_dbl_kind, 11.0937756137382_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,122) = (/ 10.9086642876167_dbl_kind, 10.9380536259034_dbl_kind, 10.9595989989217_dbl_kind, 10.970376587943_dbl_kind, 11.019478400223_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,123) = (/ 10.836557649148_dbl_kind, 10.8656263576073_dbl_kind, 10.8869224910296_dbl_kind, 10.8976100701524_dbl_kind, 10.9461680690965_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,124) = (/ 10.7653967542211_dbl_kind, 10.7941510308487_dbl_kind, 10.8152014570551_dbl_kind, 10.8258015329786_dbl_kind, 10.8738250992094_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,125) = (/ 10.6951631430103_dbl_kind, 10.7236090202469_dbl_kind, 10.7444171770085_dbl_kind, 10.7549322002048_dbl_kind, 10.8024304805005_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,126) = (/ 10.6258388331207_dbl_kind, 10.6539821818575_dbl_kind, 10.674551417665_dbl_kind, 10.6849837831495_dbl_kind, 10.7319656974067_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,127) = (/ 10.5574063042378_dbl_kind, 10.5852528377501_dbl_kind, 10.6055864168715_dbl_kind, 10.6159384649233_dbl_kind, 10.6624127129143_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,128) = (/ 10.4898484833648_dbl_kind, 10.5174037611771_dbl_kind, 10.5375048684526_dbl_kind, 10.5477788852906_dbl_kind, 10.5937539532221_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,129) = (/ 10.4231487306228_dbl_kind, 10.4504181623069_dbl_kind, 10.4702899076898_dbl_kind, 10.4804881261091_dbl_kind, 10.5259722929894_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,130) = (/ 10.3572908255874_dbl_kind, 10.3842796744973_dbl_kind, 10.4039250973471_dbl_kind, 10.4140496973225_dbl_kind, 10.459051041143_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,131) = (/ 10.2922589541396_dbl_kind, 10.3189723410828_dbl_kind, 10.3383944142214_dbl_kind, 10.3484475234808_dbl_kind, 10.3929739272183_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,132) = (/ 10.2280376958074_dbl_kind, 10.2544806026572_dbl_kind, 10.2736822361938_dbl_kind, 10.2836659307672_dbl_kind, 10.3277250882118_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,133) = (/ 10.1646120115782_dbl_kind, 10.1907892848251_dbl_kind, 10.20977332976_dbl_kind, 10.2196896345081_dbl_kind, 10.2632890559231_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,134) = (/ 10.1019672321605_dbl_kind, 10.1278835864064_dbl_kind, 10.1466528380212_dbl_kind, 10.1565037271462_dbl_kind, 10.1996507447643_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,135) = (/ 10.0400890466764_dbl_kind, 10.0657490680711_dbl_kind, 10.0843062691136_dbl_kind, 10.0940936666573_dbl_kind, 10.136795440017_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,136) = (/ 9.97896349176657_dbl_kind, 10.0043716413876_dbl_kind, 10.0227194850599_dbl_kind, 10.032445265391_dbl_kind, 10.0747087865193_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,137) = (/ 9.91857694109034_dbl_kind, 9.94373755826693_dbl_kind, 9.961878691024_dbl_kind, 9.97154467931809_dbl_kind, 10.0133767777625_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,138) = (/ 9.85891609520377_dbl_kind, 9.88383340078473_dbl_kind, 9.90177042495308_dbl_kind, 9.91137839766772_dbl_kind, 9.9527857453818_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,139) = (/ 9.79996797180068_dbl_kind, 9.82464607136747_dbl_kind, 9.84238154759013_dbl_kind, 9.85193323293753_dbl_kind, 9.89292234902423_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,140) = (/ 9.74171989630109_dbl_kind, 9.76616278332551_dbl_kind, 9.78369923284212_dbl_kind, 9.79319631126151_dbl_kind, 9.83377356657727_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,141) = (/ 9.68415949277314_dbl_kind, 9.70837105172017_dbl_kind, 9.72571095848946_dbl_kind, 9.73515506312106_dbl_kind, 9.77532668474479_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,142) = (/ 9.6272746751743_dbl_kind, 9.65125868455012_dbl_kind, 9.66840449722239_dbl_kind, 9.67779721438463_dbl_kind, 9.71756928995467_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,143) = (/ 9.57105363889956_dbl_kind, 9.59481377424467_dbl_kind, 9.6117679079915_dbl_kind, 9.62111077766312_dbl_kind, 9.66048925958546_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,144) = (/ 9.51548485262343_dbl_kind, 9.53902468945109_dbl_kind, 9.55578952765946_dbl_kind, 9.56508404396761_dbl_kind, 9.60407475349861_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,145) = (/ 9.46055705042463_dbl_kind, 9.48388006710447_dbl_kind, 9.50045796294216_dbl_kind, 9.50970557465782_dbl_kind, 9.54831420586432_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,146) = (/ 9.40625922418144_dbl_kind, 9.42936880476818_dbl_kind, 9.44576208262742_dbl_kind, 9.45496419366895_dbl_kind, 9.49319631726889_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,147) = (/ 9.35258061622756_dbl_kind, 9.37548005323504_dbl_kind, 9.39169101006072_dbl_kind, 9.40084898000634_dbl_kind, 9.43871004709273_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,148) = (/ 9.29951071225777_dbl_kind, 9.32220320937798_dbl_kind, 9.33823411588694_dbl_kind, 9.34734926049695_dbl_kind, 9.3848446061479_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,149) = (/ 9.24703923447373_dbl_kind, 9.26952790924099_dbl_kind, 9.28538101103857_dbl_kind, 9.29445460278755_dbl_kind, 9.33158944956527_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,150) = (/ 9.19515613496035_dbl_kind, 9.21744402136063_dbl_kind, 9.23312153996036_dbl_kind, 9.24215480858002_dbl_kind, 9.27893426992126_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,151) = (/ 9.14385158928397_dbl_kind, 9.16594164030937_dbl_kind, 9.18144577406156_dbl_kind, 9.19043990709429_dbl_kind, 9.22686899059503_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,152) = (/ 9.09311599030359_dbl_kind, 9.11501108045197_dbl_kind, 9.13034400538685_dbl_kind, 9.13930014875019_dbl_kind, 9.17538375934707_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,153) = (/ 9.04293994218696_dbl_kind, 9.06464286990691_dbl_kind, 9.07980674049751_dbl_kind, 9.08872599905964_dbl_kind, 9.12446894211061_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,154) = (/ 8.99331425462374_dbl_kind, 9.01482774470485_dbl_kind, 9.02982469455491_dbl_kind, 9.03870813272102_dbl_kind, 9.07411511698775_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,155) = (/ 8.94422993722806_dbl_kind, 8.96555664313685_dbl_kind, 8.98038878559852_dbl_kind, 8.98923742790805_dbl_kind, 9.02431306844253_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,156) = (/ 8.89567819412362_dbl_kind, 8.91682070028504_dbl_kind, 8.93149012901129_dbl_kind, 8.9403049607457_dbl_kind, 8.97505378168337_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,157) = (/ 8.847650418704_dbl_kind, 8.868611242729_dbl_kind, 8.88312003216508_dbl_kind, 8.891901999966_dbl_kind, 8.9263284372279_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,158) = (/ 8.80013818856197_dbl_kind, 8.82091978342114_dbl_kind, 8.83526998923955_dbl_kind, 8.84402000173688_dbl_kind, 8.87812840564298_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,159) = (/ 8.75313326058127_dbl_kind, 8.77373801672507_dbl_kind, 8.78793167620815_dbl_kind, 8.79665060465778_dbl_kind, 8.83044524245376_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,160) = (/ 8.70662756618489_dbl_kind, 8.72705781361064_dbl_kind, 8.74109694598468_dbl_kind, 8.74978562491536_dbl_kind, 8.78327068321537_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,161) = (/ 8.66061320673413_dbl_kind, 8.68087121700019_dbl_kind, 8.69475782372485_dbl_kind, 8.70341705159368_dbl_kind, 8.736596638741_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,162) = (/ 8.61508244907281_dbl_kind, 8.6351704372604_dbl_kind, 8.64890650227704_dbl_kind, 8.65753704213315_dbl_kind, 8.69041519048105_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,163) = (/ 8.5700277212112_dbl_kind, 8.58994784783424_dbl_kind, 8.60353533777656_dbl_kind, 8.61213791793229_dbl_kind, 8.64471858604732_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,164) = (/ 8.52544160814494_dbl_kind, 8.54519598100845_dbl_kind, 8.55863684537855_dbl_kind, 8.56721216008774_dbl_kind, 8.59949923487737_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,165) = (/ 8.48131684780368_dbl_kind, 8.5009075238112_dbl_kind, 8.51420369512437_dbl_kind, 8.52275240526683_dbl_kind, 8.55474970403387_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,166) = (/ 8.43764632712494_dbl_kind, 8.45707531403558_dbl_kind, 8.47022870793641_dbl_kind, 8.47875144170832_dbl_kind, 8.51046271413379_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,167) = (/ 8.39442307824869_dbl_kind, 8.41369233638435_dbl_kind, 8.42670485173716_dbl_kind, 8.43520220534644_dbl_kind, 8.46663113540324_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,168) = (/ 8.35164027482832_dbl_kind, 8.37075171873174_dbl_kind, 8.38362523768774_dbl_kind, 8.39209777605392_dbl_kind, 8.42324798385315_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,169) = (/ 8.30929122845386_dbl_kind, 8.3282467284981_dbl_kind, 8.34098311654181_dbl_kind, 8.3494313739996_dbl_kind, 8.38030641757154_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,170) = (/ 8.26736938518348_dbl_kind, 8.28617076913351_dbl_kind, 8.29877187511065_dbl_kind, 8.30719635611673_dbl_kind, 8.33779973312842_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,171) = (/ 8.22586832217943_dbl_kind, 8.24451737670658_dbl_kind, 8.25698503283571_dbl_kind, 8.26538621267779_dbl_kind, 8.29572136208908_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,172) = (/ 8.18478174444492_dbl_kind, 8.20328021659481_dbl_kind, 8.21561623846459_dbl_kind, 8.22399456397238_dbl_kind, 8.25406486763242_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,173) = (/ 8.14410348165811_dbl_kind, 8.16245308027292_dbl_kind, 8.17465926682697_dbl_kind, 8.18301515708413_dbl_kind, 8.21282394127001_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,174) = (/ 8.10382748510024_dbl_kind, 8.12202988219599_dbl_kind, 8.13410801570715_dbl_kind, 8.14244186276372_dbl_kind, 8.17199239966319_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,175) = (/ 8.06394782467422_dbl_kind, 8.08200465677393_dbl_kind, 8.0939565028094_dbl_kind, 8.10226867239407_dbl_kind, 8.13156418153412_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,176) = (/ 8.02445868601102_dbl_kind, 8.04237155543441_dbl_kind, 8.05419886281361_dbl_kind, 8.06248969504499_dbl_kind, 8.09153334466783_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,177) = (/ 7.98535436766048_dbl_kind, 8.00312484377117_dbl_kind, 8.01482934451739_dbl_kind, 8.02309915461394_dbl_kind, 8.05189406300245_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,178) = (/ 7.94662927836383_dbl_kind, 7.96425889877483_dbl_kind, 7.97584230806231_dbl_kind, 7.98409138705006_dbl_kind, 8.01264062380404_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,179) = (/ 7.90827793440525_dbl_kind, 7.92576820614352_dbl_kind, 7.93723222224094_dbl_kind, 7.94546083765861_dbl_kind, 7.9737674249237_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,180) = (/ 7.87029495703957_dbl_kind, 7.88764735767054_dbl_kind, 7.89899366188225_dbl_kind, 7.90720205848296_dbl_kind, 7.93526897213372_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,181) = (/ 7.83267506999376_dbl_kind, 7.84989104870666_dbl_kind, 7.86112130531256_dbl_kind, 7.86930970576186_dbl_kind, 7.89713987654067_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,182) = (/ 7.79541309703969_dbl_kind, 7.81249407569456_dbl_kind, 7.82360993188965_dbl_kind, 7.831778537459_dbl_kind, 7.85937485207221_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,183) = (/ 7.7585039596357_dbl_kind, 7.77545133377295_dbl_kind, 7.78645441960738_dbl_kind, 7.79460341086279_dbl_kind, 7.8219687130358_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,184) = (/ 7.72194267463483_dbl_kind, 7.73875781444817_dbl_kind, 7.74964974276867_dbl_kind, 7.75777928025393_dbl_kind, 7.78491637174647_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,185) = (/ 7.68572435205743_dbl_kind, 7.70240860333117_dbl_kind, 7.71319096972445_dbl_kind, 7.72130119463836_dbl_kind, 7.74821283622157_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,186) = (/ 7.64984419292614_dbl_kind, 7.66639887793752_dbl_kind, 7.67707326067652_dbl_kind, 7.68516429554382_dbl_kind, 7.71185320794043_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,187) = (/ 7.61429748716108_dbl_kind, 7.63072390554874_dbl_kind, 7.64129186554197_dbl_kind, 7.64936381487745_dbl_kind, 7.67583267966649_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,188) = (/ 7.57907961153331_dbl_kind, 7.59537904113262_dbl_kind, 7.60584212187757_dbl_kind, 7.61389507284282_dbl_kind, 7.64014653333017_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,189) = (/ 7.54418602767489_dbl_kind, 7.56035972532104_dbl_kind, 7.57071945286167_dbl_kind, 7.57875347591437_dbl_kind, 7.60479013797044_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,190) = (/ 7.5096122801433_dbl_kind, 7.52566148244302_dbl_kind, 7.53591936533213_dbl_kind, 7.54393451486714_dbl_kind, 7.56975894773294_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,191) = (/ 7.47535399453902_dbl_kind, 7.49127991861181_dbl_kind, 7.50143744787842_dbl_kind, 7.50943376286058_dbl_kind, 7.53504849992347_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,192) = (/ 7.44140687567404_dbl_kind, 7.45721071986373_dbl_kind, 7.46726936898583_dbl_kind, 7.47524687357403_dbl_kind, 7.50065441311426_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,193) = (/ 7.40776670579003_dbl_kind, 7.42344965034752_dbl_kind, 7.43341087523059_dbl_kind, 7.44136957939278_dbl_kind, 7.46657238530205_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,194) = (/ 7.37442934282457_dbl_kind, 7.3899925505626_dbl_kind, 7.39985778952391_dbl_kind, 7.40779768964282_dbl_kind, 7.43279819211592_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,195) = (/ 7.3413907187237_dbl_kind, 7.35683533564446_dbl_kind, 7.36660600940355_dbl_kind, 7.37452708887281_dbl_kind, 7.39932768507355_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,196) = (/ 7.30864683779968_dbl_kind, 7.3239739936961_dbl_kind, 7.33365150537144_dbl_kind, 7.34155373518185_dbl_kind, 7.36615678988422_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,197) = (/ 7.27619377513222_dbl_kind, 7.29140458416375_dbl_kind, 7.30099031927581_dbl_kind, 7.3088736585915_dbl_kind, 7.33328150479716_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,198) = (/ 7.24402767501209_dbl_kind, 7.25912323625571_dbl_kind, 7.26861856273638_dbl_kind, 7.27648295946081_dbl_kind, 7.30069789899389_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,199) = (/ 7.21214474942565_dbl_kind, 7.22712614740297_dbl_kind, 7.23653241561163_dbl_kind, 7.24437780694295_dbl_kind, 7.26840211102316_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,200) = (/ 7.18054127657908_dbl_kind, 7.1954095817603_dbl_kind, 7.20472812450625_dbl_kind, 7.21255443748216_dbl_kind, 7.23639034727706_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,201) = (/ 7.14921359946117_dbl_kind, 7.16396986874656_dbl_kind, 7.17320200131809_dbl_kind, 7.18100915334985_dbl_kind, 7.20465888050729_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,202) = (/ 7.11815812444334_dbl_kind, 7.13280340162311_dbl_kind, 7.14195042182305_dbl_kind, 7.14973832121858_dbl_kind, 7.17320404838017_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,203) = (/ 7.08737131991588_dbl_kind, 7.10190663610915_dbl_kind, 7.11096982429687_dbl_kind, 7.11873837077281_dbl_kind, 7.14202225206912_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,204) = (/ 7.05684971495939_dbl_kind, 7.07127608903291_dbl_kind, 7.08025670817274_dbl_kind, 7.08800579335537_dbl_kind, 7.11110995488389_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,205) = (/ 7.02658989805009_dbl_kind, 7.04090833701745_dbl_kind, 7.04980763273347_dbl_kind, 7.05753714064844_dbl_kind, 7.08046368093498_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,206) = (/ 6.99658851579827_dbl_kind, 7.01080001520038_dbl_kind, 7.01961921583738_dbl_kind, 7.02732902338812_dbl_kind, 7.05008001383235_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,207) = (/ 6.96684227171875_dbl_kind, 6.98094781598614_dbl_kind, 6.98968813267671_dbl_kind, 6.99737811011159_dbl_kind, 7.01995559541762_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,208) = (/ 6.93734792503246_dbl_kind, 6.95134848783015_dbl_kind, 6.96001111456781_dbl_kind, 6.96768112593586_dbl_kind, 6.99008712452834_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,209) = (/ 6.90810228949811_dbl_kind, 6.9219988340536_dbl_kind, 6.93058494777182_dbl_kind, 6.93823485136709_dbl_kind, 6.96047135579378_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,210) = (/ 6.87910223227324_dbl_kind, 6.89289571168846_dbl_kind, 6.90140647234528_dbl_kind, 6.90903612113988_dbl_kind, 6.93110509846105_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,211) = (/ 6.85034467280365_dbl_kind, 6.86403603035119_dbl_kind, 6.87247258101956_dbl_kind, 6.88008182308528_dbl_kind, 6.90198521525079_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,212) = (/ 6.82182658174045_dbl_kind, 6.83541675114497_dbl_kind, 6.84378021810838_dbl_kind, 6.85136889702693_dbl_kind, 6.87310862124154_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,213) = (/ 6.79354497988385_dbl_kind, 6.80703488558905_dbl_kind, 6.81532637844246_dbl_kind, 6.82289433370447_dbl_kind, 6.84447228278184_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,214) = (/ 6.76549693715312_dbl_kind, 6.77888749457493_dbl_kind, 6.78710810633076_dbl_kind, 6.7946551737234_dbl_kind, 6.8160732164295_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,215) = (/ 6.73767957158162_dbl_kind, 6.75097168734821_dbl_kind, 6.75912249454715_dbl_kind, 6.76664850653069_dbl_kind, 6.78790848791703_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,216) = (/ 6.71009004833657_dbl_kind, 6.72328462051563_dbl_kind, 6.7313666833422_dbl_kind, 6.73887146941525_dbl_kind, 6.7599752111426_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,217) = (/ 6.68272557876258_dbl_kind, 6.69582349707642_dbl_kind, 6.70383785947905_dbl_kind, 6.71132124653287_dbl_kind, 6.73227054718563_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,218) = (/ 6.65558341944834_dbl_kind, 6.66858556547742_dbl_kind, 6.67653325529277_dbl_kind, 6.68399506795452_dbl_kind, 6.70479170334666_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,219) = (/ 6.6286608713159_dbl_kind, 6.64156811869118_dbl_kind, 6.64945014777269_dbl_kind, 6.65689020873778_dbl_kind, 6.67753593221039_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,220) = (/ 6.60195527873179_dbl_kind, 6.6147684933164_dbl_kind, 6.62258585766669_dbl_kind, 6.63000398802042_dbl_kind, 6.65050053073154_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,221) = (/ 6.57546402863938_dbl_kind, 6.58818406870017_dbl_kind, 6.59593774860718_dbl_kind, 6.60333376813563_dbl_kind, 6.62368283934269_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,222) = (/ 6.54918454971204_dbl_kind, 6.56181226608135_dbl_kind, 6.56950322625809_dbl_kind, 6.57687695374848_dbl_kind, 6.59708024108372_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,223) = (/ 6.52311431152624_dbl_kind, 6.53565054775444_dbl_kind, 6.54327973748198_dbl_kind, 6.55063099101265_dbl_kind, 6.57069016075187_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,224) = (/ 6.49725082375431_dbl_kind, 6.50969641625341_dbl_kind, 6.51726476952718_dbl_kind, 6.52459336674715_dbl_kind, 6.5445100640723_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,225) = (/ 6.47159163537621_dbl_kind, 6.4839474135551_dbl_kind, 6.49145584923397_dbl_kind, 6.49876160763248_dbl_kind, 6.51853745688819_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,226) = (/ 6.44613433390969_dbl_kind, 6.45840112030135_dbl_kind, 6.46585054225962_dbl_kind, 6.47313327942557_dbl_kind, 6.49276988437011_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,227) = (/ 6.42087654465857_dbl_kind, 6.43305515503959_dbl_kind, 6.44044645232151_dbl_kind, 6.44770598619305_dbl_kind, 6.46720493024399_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,228) = (/ 6.39581592997837_dbl_kind, 6.4079071734812_dbl_kind, 6.41524122045795_dbl_kind, 6.42247736956233_dbl_kind, 6.4418402160371_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,229) = (/ 6.37095018855906_dbl_kind, 6.38295486777744_dbl_kind, 6.39023252430621_dbl_kind, 6.39744510799013_dbl_kind, 6.4166734003419_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,230) = (/ 6.34627705472432_dbl_kind, 6.35819596581204_dbl_kind, 6.36541807739728_dbl_kind, 6.37260691604782_dbl_kind, 6.3917021780968_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,231) = (/ 6.32179429774695_dbl_kind, 6.33362823051046_dbl_kind, 6.34079562846696_dbl_kind, 6.34796054372321_dbl_kind, 6.36692427988379_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,232) = (/ 6.29749972117988_dbl_kind, 6.30924945916501_dbl_kind, 6.31636296078263_dbl_kind, 6.32350377573833_dbl_kind, 6.34233747124213_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,233) = (/ 6.27339116220255_dbl_kind, 6.28505748277567_dbl_kind, 6.29211789148562_dbl_kind, 6.2992344308829_dbl_kind, 6.31793955199801_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,234) = (/ 6.24946649098206_dbl_kind, 6.2610501654059_dbl_kind, 6.2680582709484_dbl_kind, 6.27515036136277_dbl_kind, 6.29372835560945_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,235) = (/ 6.22572361004888_dbl_kind, 6.23722540355346_dbl_kind, 6.2441819821466_dbl_kind, 6.25124945216334_dbl_kind, 6.26970174852629_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,236) = (/ 6.20216045368645_dbl_kind, 6.21358112553525_dbl_kind, 6.22048694004488_dbl_kind, 6.22752962042717_dbl_kind, 6.24585762956455_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,237) = (/ 6.17877498733477_dbl_kind, 6.19011529088652_dbl_kind, 6.19697109099703_dbl_kind, 6.20398881484578_dbl_kind, 6.22219392929521_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,238) = (/ 6.1555652070071_dbl_kind, 6.16682588977338_dbl_kind, 6.17363241215924_dbl_kind, 6.18062501506494_dbl_kind, 6.19870860944673_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,239) = (/ 6.13252913871982_dbl_kind, 6.14371094241874_dbl_kind, 6.15046891091665_dbl_kind, 6.15743623110337_dbl_kind, 6.1753996623208_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,240) = (/ 6.10966483793486_dbl_kind, 6.12076849854106_dbl_kind, 6.12747862432256_dbl_kind, 6.13442050278431_dbl_kind, 6.15226511022148_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,241) = (/ 6.08697038901452_dbl_kind, 6.09799663680578_dbl_kind, 6.10465961855015_dbl_kind, 6.11157589917972_dbl_kind, 6.12930300489697_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,242) = (/ 6.06444390468834_dbl_kind, 6.07539346428888_dbl_kind, 6.08200998835632_dbl_kind, 6.08890051806684_dbl_kind, 6.10651142699372_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,243) = (/ 6.04208352553161_dbl_kind, 6.05295711595243_dbl_kind, 6.05952785655726_dbl_kind, 6.06639248539661_dbl_kind, 6.08388848552279_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,244) = (/ 6.01988741945537_dbl_kind, 6.03068575413179_dbl_kind, 6.03721137351562_dbl_kind, 6.04404995477395_dbl_kind, 6.06143231733786_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,245) = (/ 5.99785378120748_dbl_kind, 6.00857756803401_dbl_kind, 6.01505871663875_dbl_kind, 6.02187110694917_dbl_kind, 6.03914108662483_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,246) = (/ 5.97598083188458_dbl_kind, 5.9866307732474_dbl_kind, 5.99306808988802_dbl_kind, 5.99985414932076_dbl_kind, 6.01701298440261_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,247) = (/ 5.95426681845455_dbl_kind, 5.96484361126175_dbl_kind, 5.97123772329862_dbl_kind, 5.97799731544872_dbl_kind, 5.99504622803461_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,248) = (/ 5.9327100132894_dbl_kind, 5.94321434899907_dbl_kind, 5.94956587250988_dbl_kind, 5.95629886457871_dbl_kind, 5.9732390607512_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,249) = (/ 5.91130871370805_dbl_kind, 5.92174127835453_dbl_kind, 5.92805081830556_dbl_kind, 5.9347570811762_dbl_kind, 5.95158975118226_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,250) = (/ 5.89006124152898_dbl_kind, 5.90042271574727_dbl_kind, 5.90669086616407_dbl_kind, 5.91337027447089_dbl_kind, 5.93009659289988_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,251) = (/ 5.86896594263251_dbl_kind, 5.87925700168113_dbl_kind, 5.88548434581836_dbl_kind, 5.89213677801082_dbl_kind, 5.90875790397104_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,252) = (/ 5.84802118653224_dbl_kind, 5.8582425003145_dbl_kind, 5.86442961082501_dbl_kind, 5.87105494922591_dbl_kind, 5.88757202651971_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,253) = (/ 5.82722536595567_dbl_kind, 5.83737759903971_dbl_kind, 5.84352503814261_dbl_kind, 5.85012316900103_dbl_kind, 5.8665373262984_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,254) = (/ 5.80657689643361_dbl_kind, 5.81666070807118_dbl_kind, 5.82276902771896_dbl_kind, 5.82933984125791_dbl_kind, 5.84565219226879_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,255) = (/ 5.78607421589839_dbl_kind, 5.79609026004248_dbl_kind, 5.80216000208704_dbl_kind, 5.80870339254609_dbl_kind, 5.82491503619134_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,256) = (/ 5.76571578429032_dbl_kind, 5.77566470961184_dbl_kind, 5.78169640596937_dbl_kind, 5.78821227164245_dbl_kind, 5.80432429222355_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,257) = (/ 5.74550008317241_dbl_kind, 5.75538253307604_dbl_kind, 5.76137670589071_dbl_kind, 5.76786494915904_dbl_kind, 5.78387841652653_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,258) = (/ 5.72542561535325_dbl_kind, 5.73524222799239_dbl_kind, 5.74119938979877_dbl_kind, 5.74765991715936_dbl_kind, 5.76357588688008_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,259) = (/ 5.70549090451757_dbl_kind, 5.71524231280877_dbl_kind, 5.72116296669284_dbl_kind, 5.72759568878255_dbl_kind, 5.74341520230567_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,260) = (/ 5.68569449486454_dbl_kind, 5.69538132650118_dbl_kind, 5.70126596626012_dbl_kind, 5.70767079787539_dbl_kind, 5.72339488269735_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,261) = (/ 5.66603495075343_dbl_kind, 5.67565782821905_dbl_kind, 5.68150693851942_dbl_kind, 5.68788379863194_dbl_kind, 5.7035134684602_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,262) = (/ 5.6465108563567_dbl_kind, 5.65607039693778_dbl_kind, 5.66188445347234_dbl_kind, 5.66823326524079_dbl_kind, 5.68376952015644_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,263) = (/ 5.62712081532007_dbl_kind, 5.63661763111859_dbl_kind, 5.64239710076155_dbl_kind, 5.64871779153941_dbl_kind, 5.66416161815882_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,264) = (/ 5.60786345042957_dbl_kind, 5.61729814837518_dbl_kind, 5.6230434893359_dbl_kind, 5.62933599067569_dbl_kind, 5.6446883623109_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,265) = (/ 5.58873740328542_dbl_kind, 5.59811058514752_dbl_kind, 5.60382224712259_dbl_kind, 5.61008649477653_dbl_kind, 5.62534837159467_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,266) = (/ 5.56974133398239_dbl_kind, 5.57905359638201_dbl_kind, 5.58473202070569_dbl_kind, 5.59096795462298_dbl_kind, 5.60614028380467_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,267) = (/ 5.55087392079684_dbl_kind, 5.56012585521844_dbl_kind, 5.56577147501145_dbl_kind, 5.57197903933225_dbl_kind, 5.58706275522882_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,268) = (/ 5.53213385987982_dbl_kind, 5.54132605268311_dbl_kind, 5.54693929299969_dbl_kind, 5.55311843604599_dbl_kind, 5.56811446033578_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,269) = (/ 5.5135198649565_dbl_kind, 5.52265289738824_dbl_kind, 5.52823417536157_dbl_kind, 5.53438484962507_dbl_kind, 5.54929409146857_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,270) = (/ 5.49503066703158_dbl_kind, 5.50410511523753_dbl_kind, 5.50965484022324_dbl_kind, 5.51577700235031_dbl_kind, 5.53060035854441_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,271) = (/ 5.47666501410057_dbl_kind, 5.48568144913747_dbl_kind, 5.49120002285556_dbl_kind, 5.49729363362948_dbl_kind, 5.51203198876057_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,272) = (/ 5.45842167086675_dbl_kind, 5.46738065871457_dbl_kind, 5.4728684753894_dbl_kind, 5.47893349970995_dbl_kind, 5.493587726306_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,273) = (/ 5.44029941846391_dbl_kind, 5.44920152003821_dbl_kind, 5.45465896653678_dbl_kind, 5.46069537339733_dbl_kind, 5.47526633207896_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,274) = (/ 5.42229705418437_dbl_kind, 5.43114282534898_dbl_kind, 5.43657028131732_dbl_kind, 5.44257804377949_dbl_kind, 5.45706658341002_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,275) = (/ 5.4044133912125_dbl_kind, 5.41320338279242_dbl_kind, 5.41860122079019_dbl_kind, 5.42458031595626_dbl_kind, 5.43898727379064_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,276) = (/ 5.38664725836341_dbl_kind, 5.39538201615807_dbl_kind, 5.4007506017913_dbl_kind, 5.40670101077439_dbl_kind, 5.42102721260716_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,277) = (/ 5.36899749982678_dbl_kind, 5.37767756462356_dbl_kind, 5.38301725667556_dbl_kind, 5.38893896456779_dbl_kind, 5.40318522487999_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,278) = (/ 5.3514629749157_dbl_kind, 5.36008888250387_dbl_kind, 5.36540003306423_dbl_kind, 5.37129302890288_dbl_kind, 5.38546015100784_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,279) = (/ 5.33404255782032_dbl_kind, 5.34261483900532_dbl_kind, 5.34789779359713_dbl_kind, 5.35376207032894_dbl_kind, 5.36785084651706_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,280) = (/ 5.31673513736641_dbl_kind, 5.32525431798454_dbl_kind, 5.33050941568968_dbl_kind, 5.3363449701334_dbl_kind, 5.35035618181586_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,281) = (/ 5.29953961677847_dbl_kind, 5.30800621771205_dbl_kind, 5.31323379129462_dbl_kind, 5.31904062410186_dbl_kind, 5.33297504195325_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,282) = (/ 5.28245491344743_dbl_kind, 5.29086945064029_dbl_kind, 5.29606982666824_dbl_kind, 5.30184794228274_dbl_kind, 5.31570632638262_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,283) = (/ 5.26547995870291_dbl_kind, 5.2738429431764_dbl_kind, 5.2790164421412_dbl_kind, 5.28476584875667_dbl_kind, 5.29854894873002_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,284) = (/ 5.24861369758967_dbl_kind, 5.25692563545917_dbl_kind, 5.26207257189368_dbl_kind, 5.26779328141017_dbl_kind, 5.28150183656674_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,285) = (/ 5.23185508864853_dbl_kind, 5.24011648114027_dbl_kind, 5.24523716373477_dbl_kind, 5.2509291917138_dbl_kind, 5.26456393118639_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,286) = (/ 5.21520310370123_dbl_kind, 5.22341444716981_dbl_kind, 5.22850917888614_dbl_kind, 5.23417254450451_dbl_kind, 5.24773418738615_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,287) = (/ 5.19865672763962_dbl_kind, 5.20681851358585_dbl_kind, 5.21188759176971_dbl_kind, 5.21752231777224_dbl_kind, 5.23101157325216_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,288) = (/ 5.18221495821866_dbl_kind, 5.19032767330795_dbl_kind, 5.19537138979942_dbl_kind, 5.2009775024506_dbl_kind, 5.21439506994922_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,289) = (/ 5.16587680585338_dbl_kind, 5.17394093193462_dbl_kind, 5.17895957317679_dbl_kind, 5.18453710221144_dbl_kind, 5.19788367151408_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,290) = (/ 5.1496412934197_dbl_kind, 5.15765730754464_dbl_kind, 5.16265115469047_dbl_kind, 5.16820013326346_dbl_kind, 5.18147638465301_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,291) = (/ 5.13350745605891_dbl_kind, 5.14147583050206_dbl_kind, 5.14644515951944_dbl_kind, 5.15196562415458_dbl_kind, 5.16517222854297_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,292) = (/ 5.11747434098585_dbl_kind, 5.12539554326489_dbl_kind, 5.13034062503985_dbl_kind, 5.13583261557801_dbl_kind, 5.14897023463653_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,293) = (/ 5.10154100730069_dbl_kind, 5.1094155001973_dbl_kind, 5.11433660063556_dbl_kind, 5.11980016018203_dbl_kind, 5.13286944647054_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,294) = (/ 5.08570652580417_dbl_kind, 5.09353476738544_dbl_kind, 5.09843214751207_dbl_kind, 5.10386732238338_dbl_kind, 5.11686891947823_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,295) = (/ 5.06996997881623_dbl_kind, 5.07775242245657_dbl_kind, 5.08262633851399_dbl_kind, 5.08803317818402_dbl_kind, 5.10096772080494_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,296) = (/ 5.05433045999809_dbl_kind, 5.06206755440157_dbl_kind, 5.06691825794581_dbl_kind, 5.07229681499147_dbl_kind, 5.08516492912716_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,297) = (/ 5.03878707417751_dbl_kind, 5.04647926340073_dbl_kind, 5.05130700139594_dbl_kind, 5.05665733144231_dbl_kind, 5.06945963447493_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,298) = (/ 5.02333893717732_dbl_kind, 5.03098666065279_dbl_kind, 5.03579167556405_dbl_kind, 5.0411138372292_dbl_kind, 5.05385093805754_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,299) = (/ 5.00798517564707_dbl_kind, 5.01558886820699_dbl_kind, 5.0203713980915_dbl_kind, 5.02566545293088_dbl_kind, 5.03833795209248_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,300) = (/ 4.99272492689777_dbl_kind, 5.00028501879833_dbl_kind, 5.00504529739486_dbl_kind, 5.01031130984543_dbl_kind, 5.02291979963738_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,301) = (/ 4.97755733873955_dbl_kind, 4.98507425568572_dbl_kind, 4.98981251250249_dbl_kind, 4.99505054982656_dbl_kind, 5.00759561442515_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,302) = (/ 4.96248156932246_dbl_kind, 4.96995573249316_dbl_kind, 4.974672192894_dbl_kind, 4.97988232512292_dbl_kind, 4.99236454070206_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,303) = (/ 4.94749678697992_dbl_kind, 4.95492861305369_dbl_kind, 4.95962349834268_dbl_kind, 4.96480579822035_dbl_kind, 4.97722573306872_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,304) = (/ 4.93260217007518_dbl_kind, 4.93999207125628_dbl_kind, 4.94466559876079_dbl_kind, 4.94982014168701_dbl_kind, 4.96217835632407_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,305) = (/ 4.91779690685043_dbl_kind, 4.92514529089534_dbl_kind, 4.92979767404744_dbl_kind, 4.93492453802128_dbl_kind, 4.94722158531203_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,306) = (/ 4.90308019527872_dbl_kind, 4.91038746552307_dbl_kind, 4.91501891393945_dbl_kind, 4.92011817950255_dbl_kind, 4.93235460477098_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,307) = (/ 4.88845124291839_dbl_kind, 4.89571779830433_dbl_kind, 4.90032851786466_dbl_kind, 4.90540026804454_dbl_kind, 4.91757660918596_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,308) = (/ 4.87390926677019_dbl_kind, 4.8811355018741_dbl_kind, 4.88572569479794_dbl_kind, 4.89077001505133_dbl_kind, 4.90288680264342_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,309) = (/ 4.85945349313703_dbl_kind, 4.86663979819762_dbl_kind, 4.87120966311977_dbl_kind, 4.87622664127611_dbl_kind, 4.88828439868871_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,310) = (/ 4.84508315748596_dbl_kind, 4.85222991843282_dbl_kind, 4.85677965047721_dbl_kind, 4.86176937668223_dbl_kind, 4.8737686201859_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,311) = (/ 4.8307975043129_dbl_kind, 4.83790510279528_dbl_kind, 4.84243489364749_dbl_kind, 4.84739746030689_dbl_kind, 4.85933869918032_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,312) = (/ 4.81659578700947_dbl_kind, 4.82366460042554_dbl_kind, 4.82817463840382_dbl_kind, 4.83311014012724_dbl_kind, 4.84499387676327_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,313) = (/ 4.80247726773243_dbl_kind, 4.80950766925877_dbl_kind, 4.81399813938367_dbl_kind, 4.81890667292885_dbl_kind, 4.83073340293936_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,314) = (/ 4.78844121727516_dbl_kind, 4.79543357589665_dbl_kind, 4.79990465995931_dbl_kind, 4.80478632417641_dbl_kind, 4.81655653649596_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,315) = (/ 4.77448691494159_dbl_kind, 4.78144159548159_dbl_kind, 4.78589347211062_dbl_kind, 4.79074836788694_dbl_kind, 4.80246254487513_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,316) = (/ 4.76061364842222_dbl_kind, 4.767531011573_dbl_kind, 4.77196385630003_dbl_kind, 4.77679208650499_dbl_kind, 4.78845070404763_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,317) = (/ 4.74682071367231_dbl_kind, 4.75370111602585_dbl_kind, 4.75811510134981_dbl_kind, 4.76291677078019_dbl_kind, 4.77452029838922_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,318) = (/ 4.73310741479223_dbl_kind, 4.73995120887123_dbl_kind, 4.74434650432127_dbl_kind, 4.7491217196469_dbl_kind, 4.76067062055906_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,319) = (/ 4.71947306390982_dbl_kind, 4.72628059819898_dbl_kind, 4.73065737039614_dbl_kind, 4.73540624010592_dbl_kind, 4.74690097138024_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,320) = (/ 4.70591698106479_dbl_kind, 4.7126886000424_dbl_kind, 4.71704701276002_dbl_kind, 4.72176964710834_dbl_kind, 4.73321065972232_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,321) = (/ 4.69243849409516_dbl_kind, 4.69917453826485_dbl_kind, 4.70351475248777_dbl_kind, 4.70821126344133_dbl_kind, 4.719599002386_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,322) = (/ 4.67903693852563_dbl_kind, 4.68573774444834_dbl_kind, 4.69005991843086_dbl_kind, 4.69473041961595_dbl_kind, 4.70606532398963_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,323) = (/ 4.6657116574578_dbl_kind, 4.67237755778404_dbl_kind, 4.67668184710667_dbl_kind, 4.68132645375692_dbl_kind, 4.6926089568578_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,324) = (/ 4.65246200146231_dbl_kind, 4.65909332496453_dbl_kind, 4.66337988258966_dbl_kind, 4.66799871149419_dbl_kind, 4.67922924091166_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,325) = (/ 4.63928732847282_dbl_kind, 4.64588440007803_dbl_kind, 4.65015337640431_dbl_kind, 4.65474654585644_dbl_kind, 4.66592552356133_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,326) = (/ 4.62618700368183_dbl_kind, 4.63275014450435_dbl_kind, 4.63700168742004_dbl_kind, 4.64156931716649_dbl_kind, 4.65269715959994_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,327) = (/ 4.61316039943813_dbl_kind, 4.6196899268125_dbl_kind, 4.62392418174773_dbl_kind, 4.62846639293828_dbl_kind, 4.63954351109953_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,328) = (/ 4.60020689514612_dbl_kind, 4.6067031226602_dbl_kind, 4.61092023263801_dbl_kind, 4.61543714777579_dbl_kind, 4.62646394730874_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,329) = (/ 4.58732587716677_dbl_kind, 4.59378911469493_dbl_kind, 4.59798922038138_dbl_kind, 4.6024809632736_dbl_kind, 4.6134578445522_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,330) = (/ 4.57451673872021_dbl_kind, 4.58094729245666_dbl_kind, 4.58513053220982_dbl_kind, 4.58959722791909_dbl_kind, 4.60052458613157_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,331) = (/ 4.56177887979004_dbl_kind, 4.56817705228225_dbl_kind, 4.57234356220017_dbl_kind, 4.57678533699644_dbl_kind, 4.58766356222826_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,332) = (/ 4.54911170702909_dbl_kind, 4.55547779721138_dbl_kind, 4.55962771117903_dbl_kind, 4.56404469249203_dbl_kind, 4.57487416980784_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,333) = (/ 4.53651463366694_dbl_kind, 4.54284893689405_dbl_kind, 4.54698238662931_dbl_kind, 4.55137470300159_dbl_kind, 4.56215581252588_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,334) = (/ 4.52398707941882_dbl_kind, 4.53028988749964_dbl_kind, 4.53440700259829_dbl_kind, 4.53877478363889_dbl_kind, 4.54950790063558_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,335) = (/ 4.51152847039609_dbl_kind, 4.51780007162743_dbl_kind, 4.52190097960718_dbl_kind, 4.52624435594583_dbl_kind, 4.53692985089666_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,336) = (/ 4.49913823901816_dbl_kind, 4.50537891821854_dbl_kind, 4.50946374456215_dbl_kind, 4.51378284780416_dbl_kind, 4.52442108648598_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,337) = (/ 4.48681582392594_dbl_kind, 4.49302586246948_dbl_kind, 4.4970947306669_dbl_kind, 4.5013896933486_dbl_kind, 4.51198103690953_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,338) = (/ 4.47456066989659_dbl_kind, 4.48074034574688_dbl_kind, 4.48479337733659_dbl_kind, 4.48906433288141_dbl_kind, 4.49960913791587_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,339) = (/ 4.46237222775979_dbl_kind, 4.46852181550382_dbl_kind, 4.47255913011319_dbl_kind, 4.47680621278837_dbl_kind, 4.48730483141099_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,340) = (/ 4.45024995431529_dbl_kind, 4.45636972519736_dbl_kind, 4.46039144058218_dbl_kind, 4.46461478545608_dbl_kind, 4.47506756537455_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,341) = (/ 4.43819331225184_dbl_kind, 4.44428353420746_dbl_kind, 4.44828976629069_dbl_kind, 4.45248950919074_dbl_kind, 4.46289679377751_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,342) = (/ 4.42620177006743_dbl_kind, 4.4322627077573_dbl_kind, 4.43625357066683_dbl_kind, 4.44042984813818_dbl_kind, 4.45079197650113_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,343) = (/ 4.41427480199087_dbl_kind, 4.42030671683467_dbl_kind, 4.42428232294046_dbl_kind, 4.42843527220515_dbl_kind, 4.43875257925714_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,344) = (/ 4.40241188790452_dbl_kind, 4.40841503811486_dbl_kind, 4.4123754980651_dbl_kind, 4.41650525698198_dbl_kind, 4.42677807350937_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,345) = (/ 4.39061251326842_dbl_kind, 4.3965871538846_dbl_kind, 4.40053257664125_dbl_kind, 4.40463928366644_dbl_kind, 4.41486793639652_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,346) = (/ 4.3788761690455_dbl_kind, 4.38482255196732_dbl_kind, 4.38875304484076_dbl_kind, 4.39283683898884_dbl_kind, 4.40302165065627_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,347) = (/ 4.36720235162808_dbl_kind, 4.37312072564954_dbl_kind, 4.37703639433252_dbl_kind, 4.38109741513833_dbl_kind, 4.39123870455049_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,348) = (/ 4.35559056276553_dbl_kind, 4.36148117360847_dbl_kind, 4.36538212220937_dbl_kind, 4.36942050969041_dbl_kind, 4.37951859179172_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,349) = (/ 4.34404030949304_dbl_kind, 4.34990339984072_dbl_kind, 4.35378973091601_dbl_kind, 4.35780562553557_dbl_kind, 4.36786081147086_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,350) = (/ 4.33255110406159_dbl_kind, 4.33838691359218_dbl_kind, 4.34225872817822_dbl_kind, 4.34625227080909_dbl_kind, 4.35626486798588_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,351) = (/ 4.32112246386899_dbl_kind, 4.32693122928895_dbl_kind, 4.33078862693312_dbl_kind, 4.33475995882192_dbl_kind, 4.34473027097181_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,352) = (/ 4.30975391139201_dbl_kind, 4.31553586646942_dbl_kind, 4.31937894526052_dbl_kind, 4.32332820799276_dbl_kind, 4.33325653523168_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,353) = (/ 4.29844497411961_dbl_kind, 4.30420034971732_dbl_kind, 4.30802920631537_dbl_kind, 4.31195654178106_dbl_kind, 4.32184318066872_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,354) = (/ 4.28719518448716_dbl_kind, 4.29292420859591_dbl_kind, 4.29673893826126_dbl_kind, 4.30064448862122_dbl_kind, 4.31048973221945_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,355) = (/ 4.27600407981183_dbl_kind, 4.28170697758315_dbl_kind, 4.28550767420498_dbl_kind, 4.28939158185774_dbl_kind, 4.299195719788_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,356) = (/ 4.2648712022288_dbl_kind, 4.27054819600787_dbl_kind, 4.27433495213208_dbl_kind, 4.27819735968142_dbl_kind, 4.28796067818126_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,357) = (/ 4.25379609862865_dbl_kind, 4.25944740798698_dbl_kind, 4.26322031484344_dbl_kind, 4.2670613650666_dbl_kind, 4.27678414704527_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,358) = (/ 4.24277832059558_dbl_kind, 4.24840416236355_dbl_kind, 4.2521633098928_dbl_kind, 4.25598314570925_dbl_kind, 4.26566567080232_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,359) = (/ 4.23181742434672_dbl_kind, 4.23741801264598_dbl_kind, 4.24116348952531_dbl_kind, 4.2449622539662_dbl_kind, 4.25460479858933_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,360) = (/ 4.22091297067227_dbl_kind, 4.22648851694796_dbl_kind, 4.23022041061697_dbl_kind, 4.23399824679516_dbl_kind, 4.24360108419694_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,361) = (/ 4.21006452487664_dbl_kind, 4.21561523792949_dbl_kind, 4.21933363461506_dbl_kind, 4.22309068569579_dbl_kind, 4.23265408600971_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,362) = (/ 4.19927165672045_dbl_kind, 4.20479774273868_dbl_kind, 4.20850272747939_dbl_kind, 4.21223913665155_dbl_kind, 4.22176336694706_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,363) = (/ 4.18853394036348_dbl_kind, 4.19403560295455_dbl_kind, 4.1977272596246_dbl_kind, 4.20144317007262_dbl_kind, 4.21092849440534_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,364) = (/ 4.17785095430844_dbl_kind, 4.18332839453058_dbl_kind, 4.1870068058632_dbl_kind, 4.1907023607395_dbl_kind, 4.20014904020062_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,365) = (/ 4.16722228134562_dbl_kind, 4.17267569773923_dbl_kind, 4.17634094534953_dbl_kind, 4.18001628774764_dbl_kind, 4.18942458051237_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,366) = (/ 4.15664750849841_dbl_kind, 4.16207709711725_dbl_kind, 4.16572926152462_dbl_kind, 4.16938453445279_dbl_kind, 4.17875469582811_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,367) = (/ 4.1461262269696_dbl_kind, 4.15153218141177_dbl_kind, 4.15517134206177_dbl_kind, 4.15880668841731_dbl_kind, 4.16813897088877_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,368) = (/ 4.13565803208857_dbl_kind, 4.14104054352731_dbl_kind, 4.1446667788131_dbl_kind, 4.14828234135715_dbl_kind, 4.15757699463498_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,369) = (/ 4.1252425232592_dbl_kind, 4.13060178047348_dbl_kind, 4.13421516775679_dbl_kind, 4.13781108908977_dbl_kind, 4.14706836015404_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,370) = (/ 4.11487930390861_dbl_kind, 4.12021549331352_dbl_kind, 4.12381610894516_dbl_kind, 4.12739253148274_dbl_kind, 4.1366126646279_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,371) = (/ 4.10456798143669_dbl_kind, 4.10988128711363_dbl_kind, 4.11346920645353_dbl_kind, 4.11702627240321_dbl_kind, 4.12620950928173_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,372) = (/ 4.09430816716637_dbl_kind, 4.09959877089297_dbl_kind, 4.10317406832984_dbl_kind, 4.10671191966806_dbl_kind, 4.11585849933333_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,373) = (/ 4.08409947629459_dbl_kind, 4.08936755757451_dbl_kind, 4.09293030654503_dbl_kind, 4.09644908499481_dbl_kind, 4.10555924394329_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,374) = (/ 4.0739415278441_dbl_kind, 4.07918726393652_dbl_kind, 4.08273753694412_dbl_kind, 4.08623738395331_dbl_kind, 4.09531135616599_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,375) = (/ 4.06383394461592_dbl_kind, 4.06905751056484_dbl_kind, 4.07259537919811_dbl_kind, 4.07607643591814_dbl_kind, 4.08511445290115_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,376) = (/ 4.05377635314252_dbl_kind, 4.05897792180582_dbl_kind, 4.06250345675649_dbl_kind, 4.06596586402166_dbl_kind, 4.07496815484623_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,377) = (/ 4.04376838364165_dbl_kind, 4.04894812571995_dbl_kind, 4.05246139680049_dbl_kind, 4.05590529510782_dbl_kind, 4.06487208644951_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,378) = (/ 4.03380966997097_dbl_kind, 4.03896775403621_dbl_kind, 4.04246883019707_dbl_kind, 4.04589435968661_dbl_kind, 4.05482587586387_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,379) = (/ 4.02389984958324_dbl_kind, 4.02903644210708_dbl_kind, 4.03252539145352_dbl_kind, 4.03593269188924_dbl_kind, 4.04482915490119_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,380) = (/ 4.01403856348222_dbl_kind, 4.01915382886412_dbl_kind, 4.02263071867273_dbl_kind, 4.0260199294239_dbl_kind, 4.03488155898753_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,381) = (/ 4.0042254561792_dbl_kind, 4.00931955677437_dbl_kind, 4.01278445350916_dbl_kind, 4.01615571353226_dbl_kind, 4.02498272711885_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,382) = (/ 3.99446017565021_dbl_kind, 3.99953327179719_dbl_kind, 4.00298624112544_dbl_kind, 4.00633968894648_dbl_kind, 4.01513230181747_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,383) = (/ 3.98474237329379_dbl_kind, 3.98979462334189_dbl_kind, 3.99323573014957_dbl_kind, 3.99657150384701_dbl_kind, 4.00532992908914_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,384) = (/ 3.97507170388944_dbl_kind, 3.98010326422588_dbl_kind, 3.98353257263277_dbl_kind, 3.98685080982088_dbl_kind, 3.99557525838071_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,385) = (/ 3.96544782555665_dbl_kind, 3.97045885063346_dbl_kind, 3.97387642400798_dbl_kind, 3.97717726182064_dbl_kind, 3.98586794253843_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,386) = (/ 3.95587039971449_dbl_kind, 3.96086104207516_dbl_kind, 3.96426694304882_dbl_kind, 3.96755051812387_dbl_kind, 3.97620763776688_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,387) = (/ 3.94633909104189_dbl_kind, 3.95130950134776_dbl_kind, 3.95470379182936_dbl_kind, 3.95797024029336_dbl_kind, 3.96659400358846_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,388) = (/ 3.93685356743833_dbl_kind, 3.94180389449477_dbl_kind, 3.94518663568426_dbl_kind, 3.9484360931377_dbl_kind, 3.95702670280347_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,389) = (/ 3.92741349998531_dbl_kind, 3.93234389076754_dbl_kind, 3.93571514316963_dbl_kind, 3.93894774467265_dbl_kind, 3.9475054014508_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,390) = (/ 3.91801856290814_dbl_kind, 3.92292916258694_dbl_kind, 3.92628898602434_dbl_kind, 3.92950486608284_dbl_kind, 3.93802976876912_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,391) = (/ 3.9086684335385_dbl_kind, 3.91355938550554_dbl_kind, 3.91690783913201_dbl_kind, 3.92010713168424_dbl_kind, 3.92859947715871_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,392) = (/ 3.89936279227737_dbl_kind, 3.90423423817035_dbl_kind, 3.90757138048341_dbl_kind, 3.91075421888695_dbl_kind, 3.91921420214376_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,393) = (/ 3.89010132255857_dbl_kind, 3.89495340228608_dbl_kind, 3.89827929113949_dbl_kind, 3.90144580815869_dbl_kind, 3.90987362233522_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,394) = (/ 3.88088371081283_dbl_kind, 3.88571656257893_dbl_kind, 3.88903125519489_dbl_kind, 3.8921815829887_dbl_kind, 3.90057741939427_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,395) = (/ 3.87170964643231_dbl_kind, 3.8765234067609_dbl_kind, 3.87982695974198_dbl_kind, 3.88296122985223_dbl_kind, 3.89132527799613_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,396) = (/ 3.86257882173568_dbl_kind, 3.86737362549459_dbl_kind, 3.87066609483543_dbl_kind, 3.87378443817546_dbl_kind, 3.88211688579459_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,397) = (/ 3.85349093193368_dbl_kind, 3.85826691235844_dbl_kind, 3.86154835345721_dbl_kind, 3.86465090030099_dbl_kind, 3.87295193338687_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,398) = (/ 3.84444567509513_dbl_kind, 3.8492029638126_dbl_kind, 3.85247343148218_dbl_kind, 3.85556031145372_dbl_kind, 3.86383011427908_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,399) = (/ 3.83544275211349_dbl_kind, 3.84018147916512_dbl_kind, 3.84344102764409_dbl_kind, 3.84651236970728_dbl_kind, 3.85475112485208_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,400) = (/ 3.82648186667384_dbl_kind, 3.83120216053872_dbl_kind, 3.83445084350209_dbl_kind, 3.83750677595095_dbl_kind, 3.84571466432799_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,401) = (/ 3.81756272522031_dbl_kind, 3.82226471283796_dbl_kind, 3.82550258340768_dbl_kind, 3.82854323385693_dbl_kind, 3.83672043473687_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,402) = (/ 3.80868503692401_dbl_kind, 3.81336884371689_dbl_kind, 3.81659595447217_dbl_kind, 3.81962144984821_dbl_kind, 3.82776814088422_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,403) = (/ 3.79984851365139_dbl_kind, 3.80451426354717_dbl_kind, 3.80773066653454_dbl_kind, 3.81074113306675_dbl_kind, 3.81885749031862_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,404) = (/ 3.79105286993302_dbl_kind, 3.79570068538659_dbl_kind, 3.79890643212978_dbl_kind, 3.80190199534221_dbl_kind, 3.80998819330003_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,405) = (/ 3.78229782293284_dbl_kind, 3.78692782494805_dbl_kind, 3.79012296645765_dbl_kind, 3.79310375116104_dbl_kind, 3.80115996276845_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,406) = (/ 3.77358309241783_dbl_kind, 3.77819540056896_dbl_kind, 3.78137998735188_dbl_kind, 3.78434611763604_dbl_kind, 3.79237251431299_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,407) = (/ 3.76490840072803_dbl_kind, 3.76950313318104_dbl_kind, 3.77267721524981_dbl_kind, 3.77562881447628_dbl_kind, 3.78362556614143_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,408) = (/ 3.75627347274712_dbl_kind, 3.76085074628062_dbl_kind, 3.76401437316242_dbl_kind, 3.76695156395754_dbl_kind, 3.77491883905013_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,409) = (/ 3.74767803587324_dbl_kind, 3.7522379658992_dbl_kind, 3.75539118664478_dbl_kind, 3.758314090893_dbl_kind, 3.76625205639444_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,410) = (/ 3.73912181999032_dbl_kind, 3.74366452057452_dbl_kind, 3.74680738376689_dbl_kind, 3.7497161226045_dbl_kind, 3.75762494405938_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,411) = (/ 3.73060455743977_dbl_kind, 3.73513014132203_dbl_kind, 3.73826269508501_dbl_kind, 3.74115738889405_dbl_kind, 3.74903723043091_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,412) = (/ 3.72212598299257_dbl_kind, 3.72663456160668_dbl_kind, 3.72975685361322_dbl_kind, 3.7326376220158_dbl_kind, 3.74048864636741_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,413) = (/ 3.7136858338217_dbl_kind, 3.71817751731514_dbl_kind, 3.72128959479551_dbl_kind, 3.7241565566484_dbl_kind, 3.73197892517167_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,414) = (/ 3.70528384947498_dbl_kind, 3.70975874672837_dbl_kind, 3.71286065647817_dbl_kind, 3.71571392986766_dbl_kind, 3.72350780256319_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,415) = (/ 3.69691977184831_dbl_kind, 3.7013779904946_dbl_kind, 3.70446977888258_dbl_kind, 3.70730948111966_dbl_kind, 3.7150750166509_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,416) = (/ 3.68859334515917_dbl_kind, 3.69303499160259_dbl_kind, 3.6961167045784_dbl_kind, 3.69894295219417_dbl_kind, 3.70668030790621_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,417) = (/ 3.68030431592061_dbl_kind, 3.68472949535538_dbl_kind, 3.68780117845704_dbl_kind, 3.69061408719846_dbl_kind, 3.69832341913648_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,418) = (/ 3.67205243291548_dbl_kind, 3.67646124934427_dbl_kind, 3.67952294770554_dbl_kind, 3.68232263253143_dbl_kind, 3.69000409545876_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,419) = (/ 3.66383744717106_dbl_kind, 3.6682300034232_dbl_kind, 3.67128176178085_dbl_kind, 3.67406833685812_dbl_kind, 3.68172208427401_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,420) = (/ 3.65565911193403_dbl_kind, 3.66003550968349_dbl_kind, 3.66307737238433_dbl_kind, 3.66585095108451_dbl_kind, 3.6734771352415_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,421) = (/ 3.64751718264578_dbl_kind, 3.65187752242888_dbl_kind, 3.6549095334367_dbl_kind, 3.65767022833272_dbl_kind, 3.66526900025371_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,422) = (/ 3.63941141691799_dbl_kind, 3.64375579815091_dbl_kind, 3.6467780010533_dbl_kind, 3.64952592391646_dbl_kind, 3.6570974334115_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,423) = (/ 3.63134157450863_dbl_kind, 3.63567009550465_dbl_kind, 3.6386825335196_dbl_kind, 3.6414177953169_dbl_kind, 3.64896219099954_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,424) = (/ 3.62330741729821_dbl_kind, 3.62762017528471_dbl_kind, 3.63062289126718_dbl_kind, 3.63334560215877_dbl_kind, 3.64086303146219_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,425) = (/ 3.61530870926638_dbl_kind, 3.61960580040164_dbl_kind, 3.62259883684991_dbl_kind, 3.62530910618683_dbl_kind, 3.63279971537968_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,426) = (/ 3.60734521646879_dbl_kind, 3.61162673585853_dbl_kind, 3.61461013492046_dbl_kind, 3.61730807124261_dbl_kind, 3.62477200544444_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,427) = (/ 3.59941670701435_dbl_kind, 3.60368274872803_dbl_kind, 3.6066565522072_dbl_kind, 3.60934226324151_dbl_kind, 3.61677966643804_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,428) = (/ 3.59152295104268_dbl_kind, 3.59577360812958_dbl_kind, 3.59873785749131_dbl_kind, 3.60141145015013_dbl_kind, 3.60882246520811_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,429) = (/ 3.58366372070195_dbl_kind, 3.58789908520705_dbl_kind, 3.59085382158422_dbl_kind, 3.59351540196396_dbl_kind, 3.60090017064584_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,430) = (/ 3.57583879012693_dbl_kind, 3.5800589531065_dbl_kind, 3.5830042173054_dbl_kind, 3.58565389068533_dbl_kind, 3.59301255366355_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,431) = (/ 3.56804793541741_dbl_kind, 3.57225298695445_dbl_kind, 3.57518881946035_dbl_kind, 3.57782669030162_dbl_kind, 3.58515938717276_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,432) = (/ 3.56029093461681_dbl_kind, 3.5644809638362_dbl_kind, 3.56740740481893_dbl_kind, 3.57003357676382_dbl_kind, 3.57734044606237_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,433) = (/ 3.55256756769118_dbl_kind, 3.55674266277465_dbl_kind, 3.55965975209402_dbl_kind, 3.56227432796529_dbl_kind, 3.56955550717718_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,434) = (/ 3.54487761650835_dbl_kind, 3.5490378647092_dbl_kind, 3.55194564192032_dbl_kind, 3.55454872372086_dbl_kind, 3.56180434929681_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,435) = (/ 3.53722086481746_dbl_kind, 3.54136635247512_dbl_kind, 3.54426485683356_dbl_kind, 3.54685654574618_dbl_kind, 3.55408675311468_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,436) = (/ 3.52959709822866_dbl_kind, 3.53372791078297_dbl_kind, 3.53661718124991_dbl_kind, 3.53919757763731_dbl_kind, 3.54640250121744_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,437) = (/ 3.52200610419316_dbl_kind, 3.52612232619847_dbl_kind, 3.5290024014457_dbl_kind, 3.53157160485056_dbl_kind, 3.53875137806454_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,438) = (/ 3.51444767198349_dbl_kind, 3.51854938712253_dbl_kind, 3.52142030553733_dbl_kind, 3.52397841468267_dbl_kind, 3.53113316996819_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,439) = (/ 3.50692159267401_dbl_kind, 3.51100888377159_dbl_kind, 3.51387068346152_dbl_kind, 3.51641779625119_dbl_kind, 3.52354766507345_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,440) = (/ 3.49942765912168_dbl_kind, 3.50350060815811_dbl_kind, 3.50635332695575_dbl_kind, 3.50888954047504_dbl_kind, 3.51599465333865_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,441) = (/ 3.49196566594707_dbl_kind, 3.49602435407147_dbl_kind, 3.49886802953902_dbl_kind, 3.50139344005547_dbl_kind, 3.50847392651607_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,442) = (/ 3.48453540951566_dbl_kind, 3.48857991705899_dbl_kind, 3.49141458649277_dbl_kind, 3.49392928945713_dbl_kind, 3.50098527813279_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,443) = (/ 3.47713668791929_dbl_kind, 3.48116709440721_dbl_kind, 3.4839927948421_dbl_kind, 3.48649688488944_dbl_kind, 3.4935285034719_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,444) = (/ 3.46976930095792_dbl_kind, 3.47378568512344_dbl_kind, 3.47660245333722_dbl_kind, 3.47909602428818_dbl_kind, 3.4861033995538_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,445) = (/ 3.46243305012159_dbl_kind, 3.46643548991755_dbl_kind, 3.46924336243517_dbl_kind, 3.47172650729734_dbl_kind, 3.47870976511793_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,446) = (/ 3.45512773857261_dbl_kind, 3.45911631118392_dbl_kind, 3.46191532428163_dbl_kind, 3.46438813525112_dbl_kind, 3.47134740060449_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,447) = (/ 3.44785317112801_dbl_kind, 3.45182795298373_dbl_kind, 3.45461814269321_dbl_kind, 3.45708071115625_dbl_kind, 3.46401610813667_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,448) = (/ 3.44060915424214_dbl_kind, 3.44457022102737_dbl_kind, 3.44735162313969_dbl_kind, 3.44980403967451_dbl_kind, 3.45671569150282_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,449) = (/ 3.43339549598954_dbl_kind, 3.4373429226571_dbl_kind, 3.44011557272667_dbl_kind, 3.44255792710538_dbl_kind, 3.44944595613907_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,450) = (/ 3.42621200604804_dbl_kind, 3.43014586683_dbl_kind, 3.4329098001784_dbl_kind, 3.43534218136904_dbl_kind, 3.44220670911207_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,451) = (/ 3.41905849568204_dbl_kind, 3.42297886410099_dbl_kind, 3.42573411582075_dbl_kind, 3.42815661198948_dbl_kind, 3.43499775910191_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,452) = (/ 3.41193477772597_dbl_kind, 3.41584172660623_dbl_kind, 3.4185883315645_dbl_kind, 3.42100103007788_dbl_kind, 3.42781891638536_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,453) = (/ 3.40484066656806_dbl_kind, 3.40873426804656_dbl_kind, 3.41147226088878_dbl_kind, 3.41387524831615_dbl_kind, 3.42066999281921_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,454) = (/ 3.39777597813418_dbl_kind, 3.40165630367131_dbl_kind, 3.40438571882468_dbl_kind, 3.40677908094071_dbl_kind, 3.41355080182391_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,455) = (/ 3.39074052987198_dbl_kind, 3.39460765026214_dbl_kind, 3.39732852193916_dbl_kind, 3.39971234372645_dbl_kind, 3.40646115836734_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,456) = (/ 3.38373414073521_dbl_kind, 3.38758812611727_dbl_kind, 3.39030048831912_dbl_kind, 3.39267485397089_dbl_kind, 3.39940087894878_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,457) = (/ 3.37675663116816_dbl_kind, 3.38059755103572_dbl_kind, 3.3833014375556_dbl_kind, 3.38566643047857_dbl_kind, 3.39236978158322_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,458) = (/ 3.36980782309041_dbl_kind, 3.37363574630188_dbl_kind, 3.37633119072827_dbl_kind, 3.37868689354553_dbl_kind, 3.38536768578564_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,459) = (/ 3.36288753988168_dbl_kind, 3.36670253467019_dbl_kind, 3.36938957039006_dbl_kind, 3.37173606494412_dbl_kind, 3.37839441255564_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,460) = (/ 3.35599560636688_dbl_kind, 3.35979774035006_dbl_kind, 3.36247640055204_dbl_kind, 3.3648137679079_dbl_kind, 3.37144978436224_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,461) = (/ 3.3491318488014_dbl_kind, 3.35292118899093_dbl_kind, 3.35559150666836_dbl_kind, 3.35791982711671_dbl_kind, 3.36453362512878_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,462) = (/ 3.34229609485648_dbl_kind, 3.34607270766758_dbl_kind, 3.34873471562151_dbl_kind, 3.35105406868204_dbl_kind, 3.35764576021817_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,463) = (/ 3.33548817360488_dbl_kind, 3.33925212486551_dbl_kind, 3.34190585570771_dbl_kind, 3.34421632013242_dbl_kind, 3.35078601641809_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,464) = (/ 3.3287079155066_dbl_kind, 3.33245927046664_dbl_kind, 3.33510475662244_dbl_kind, 3.33740641039911_dbl_kind, 3.3439542219266_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,465) = (/ 3.32195515239488_dbl_kind, 3.32569397573504_dbl_kind, 3.3283312494462_dbl_kind, 3.3306241698019_dbl_kind, 3.33715020633781_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,466) = (/ 3.31522971746231_dbl_kind, 3.31895607330294_dbl_kind, 3.32158516663042_dbl_kind, 3.32386943003511_dbl_kind, 3.33037380062765_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,467) = (/ 3.3085314452471_dbl_kind, 3.31224539715688_dbl_kind, 3.31486634198358_dbl_kind, 3.31714202415373_dbl_kind, 3.32362483714004_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,468) = (/ 3.30186017161959_dbl_kind, 3.30556178262399_dbl_kind, 3.30817461065739_dbl_kind, 3.31044178655975_dbl_kind, 3.31690314957298_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,469) = (/ 3.29521573376882_dbl_kind, 3.29890506635847_dbl_kind, 3.30150980913329_dbl_kind, 3.30376855298869_dbl_kind, 3.31020857296495_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,470) = (/ 3.28859797018935_dbl_kind, 3.29227508632827_dbl_kind, 3.29487177520898_dbl_kind, 3.29712216049616_dbl_kind, 3.30354094368146_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,471) = (/ 3.28200672066819_dbl_kind, 3.28567168180182_dbl_kind, 3.28826034798522_dbl_kind, 3.29050244744476_dbl_kind, 3.29690009940171_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,472) = (/ 3.2754418262719_dbl_kind, 3.27909469333505_dbl_kind, 3.28167536785267_dbl_kind, 3.28390925349098_dbl_kind, 3.29028587910546_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,473) = (/ 3.26890312933383_dbl_kind, 3.27254396275848_dbl_kind, 3.27511667647901_dbl_kind, 3.27734241957236_dbl_kind, 3.28369812306005_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,474) = (/ 3.26239047344155_dbl_kind, 3.26601933316448_dbl_kind, 3.26858411679615_dbl_kind, 3.27080178789477_dbl_kind, 3.27713667280751_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,475) = (/ 3.2559037034244_dbl_kind, 3.2595206488947_dbl_kind, 3.26207753298758_dbl_kind, 3.26428720191977_dbl_kind, 3.27060137115196_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,476) = (/ 3.24944266534118_dbl_kind, 3.25304775552764_dbl_kind, 3.2555967704759_dbl_kind, 3.25779850635229_dbl_kind, 3.26409206214702_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,477) = (/ 3.24300720646801_dbl_kind, 3.24660049986637_dbl_kind, 3.24914167591053_dbl_kind, 3.25133554712823_dbl_kind, 3.25760859108343_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,478) = (/ 3.23659717528635_dbl_kind, 3.24017872992641_dbl_kind, 3.24271209715547_dbl_kind, 3.24489817140243_dbl_kind, 3.25115080447685_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,479) = (/ 3.23021242147106_dbl_kind, 3.23378229492369_dbl_kind, 3.23630788327732_dbl_kind, 3.23848622753661_dbl_kind, 3.24471855005574_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,480) = (/ 3.22385279587879_dbl_kind, 3.22741104526277_dbl_kind, 3.22992888453333_dbl_kind, 3.23209956508756_dbl_kind, 3.23831167674942_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,481) = (/ 3.21751815053628_dbl_kind, 3.22106483252506_dbl_kind, 3.22357495235971_dbl_kind, 3.22573803479538_dbl_kind, 3.23193003467625_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,482) = (/ 3.211208338629_dbl_kind, 3.21474350945731_dbl_kind, 3.21724593935997_dbl_kind, 3.21940148857196_dbl_kind, 3.22557347513201_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,483) = (/ 3.20492321448976_dbl_kind, 3.20844692996012_dbl_kind, 3.21094169929346_dbl_kind, 3.21308977948948_dbl_kind, 3.2192418505783_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,484) = (/ 3.19866263358761_dbl_kind, 3.20217494907669_dbl_kind, 3.20466208706402_dbl_kind, 3.20680276176918_dbl_kind, 3.21293501463118_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,485) = (/ 3.19242645251672_dbl_kind, 3.19592742298162_dbl_kind, 3.19840695870881_dbl_kind, 3.20054029077008_dbl_kind, 3.20665282204993_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,486) = (/ 3.18621452898547_dbl_kind, 3.18970420896987_dbl_kind, 3.19217617138716_dbl_kind, 3.19430222297803_dbl_kind, 3.20039512872589_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,487) = (/ 3.18002672180569_dbl_kind, 3.18350516544585_dbl_kind, 3.18596958336968_dbl_kind, 3.18808841599473_dbl_kind, 3.19416179167143_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,488) = (/ 3.17386289088195_dbl_kind, 3.17733015191269_dbl_kind, 3.17978705402745_dbl_kind, 3.18189872852698_dbl_kind, 3.18795266900917_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,489) = (/ 3.16772289720104_dbl_kind, 3.17117902896151_dbl_kind, 3.17362844382129_dbl_kind, 3.17573302037596_dbl_kind, 3.18176761996112_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,490) = (/ 3.16160660282153_dbl_kind, 3.16505165826093_dbl_kind, 3.16749361429118_dbl_kind, 3.16959115242674_dbl_kind, 3.17560650483815_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,491) = (/ 3.15551387086346_dbl_kind, 3.15894790254663_dbl_kind, 3.16138242804586_dbl_kind, 3.16347298663781_dbl_kind, 3.16946918502942_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,492) = (/ 3.14944456549818_dbl_kind, 3.15286762561111_dbl_kind, 3.1552947487525_dbl_kind, 3.15737838603082_dbl_kind, 3.16335552299205_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,493) = (/ 3.14339855193827_dbl_kind, 3.14681069229348_dbl_kind, 3.14923044112645_dbl_kind, 3.15130721468034_dbl_kind, 3.15726538224085_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,494) = (/ 3.13737569642757_dbl_kind, 3.14077696846939_dbl_kind, 3.1431893709212_dbl_kind, 3.14525933770384_dbl_kind, 3.15119862733818_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,495) = (/ 3.13137586623136_dbl_kind, 3.13476632104114_dbl_kind, 3.13717140491838_dbl_kind, 3.13923462125169_dbl_kind, 3.14515512388389_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,496) = (/ 3.12539892962663_dbl_kind, 3.12877861792784_dbl_kind, 3.13117641091792_dbl_kind, 3.13323293249738_dbl_kind, 3.13913473850546_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,497) = (/ 3.11944475589249_dbl_kind, 3.12281372805566_dbl_kind, 3.1252042577283_dbl_kind, 3.1272541396277_dbl_kind, 3.13313733884818_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,498) = (/ 3.11351321530059_dbl_kind, 3.11687152134828_dbl_kind, 3.11925481515692_dbl_kind, 3.1212981118332_dbl_kind, 3.12716279356548_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,499) = (/ 3.10760417910582_dbl_kind, 3.11095186871739_dbl_kind, 3.11332795400057_dbl_kind, 3.11536471929865_dbl_kind, 3.12121097230932_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,500) = (/ 3.10171751953695_dbl_kind, 3.10505464205326_dbl_kind, 3.10742354603605_dbl_kind, 3.10945383319363_dbl_kind, 3.11528174572076_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,501) = (/ 3.09585310978746_dbl_kind, 3.09917971421553_dbl_kind, 3.10154146401082_dbl_kind, 3.10356532566323_dbl_kind, 3.10937498542061_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,502) = (/ 3.09001082400649_dbl_kind, 3.09332695902402_dbl_kind, 3.09568158163383_dbl_kind, 3.09769906981887_dbl_kind, 3.10349056400012_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,503) = (/ 3.08419053728981_dbl_kind, 3.08749625124962_dbl_kind, 3.08984377356641_dbl_kind, 3.0918549397292_dbl_kind, 3.0976283550119_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,504) = (/ 3.07839212567098_dbl_kind, 3.08168746660539_dbl_kind, 3.08402791541329_dbl_kind, 3.08603281041113_dbl_kind, 3.09178823296082_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,505) = (/ 3.07261546611256_dbl_kind, 3.07590048173765_dbl_kind, 3.07823388371372_dbl_kind, 3.08023255782092_dbl_kind, 3.08597007329514_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,506) = (/ 3.06686043649741_dbl_kind, 3.07013517421723_dbl_kind, 3.07246155593265_dbl_kind, 3.0744540588454_dbl_kind, 3.08017375239757_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,507) = (/ 3.06112691562017_dbl_kind, 3.06439142253085_dbl_kind, 3.06671081045207_dbl_kind, 3.06869719129329_dbl_kind, 3.07439914757662_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,508) = (/ 3.05541478317869_dbl_kind, 3.05866910607246_dbl_kind, 3.06098152656238_dbl_kind, 3.06296183388661_dbl_kind, 3.06864613705787_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,509) = (/ 3.04972391976568_dbl_kind, 3.05296810513486_dbl_kind, 3.05527358445395_dbl_kind, 3.05724786625214_dbl_kind, 3.0629145999755_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,510) = (/ 3.04405420686045_dbl_kind, 3.04728830090128_dbl_kind, 3.04958686520867_dbl_kind, 3.05155516891307_dbl_kind, 3.0572044163638_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,511) = (/ 3.03840552682062_dbl_kind, 3.0416295754371_dbl_kind, 3.04392125079166_dbl_kind, 3.04588362328068_dbl_kind, 3.05151546714881_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,512) = (/ 3.03277776287406_dbl_kind, 3.03599181168166_dbl_kind, 3.03827662404307_dbl_kind, 3.04023311164609_dbl_kind, 3.04584763414004_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,513) = (/ 3.02717079911087_dbl_kind, 3.03037489344019_dbl_kind, 3.03265286866993_dbl_kind, 3.03460351717216_dbl_kind, 3.04020080002233_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,514) = (/ 3.0215845204754_dbl_kind, 3.02477870537575_dbl_kind, 3.02704986923816_dbl_kind, 3.02899472388546_dbl_kind, 3.03457484834776_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,515) = (/ 3.01601881275845_dbl_kind, 3.01920313300135_dbl_kind, 3.02146751116458_dbl_kind, 3.02340661666828_dbl_kind, 3.02896966352763_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,516) = (/ 3.01047356258946_dbl_kind, 3.01364806267211_dbl_kind, 3.01590568070908_dbl_kind, 3.0178390812508_dbl_kind, 3.02338513082456_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,517) = (/ 3.00494865742889_dbl_kind, 3.00811338157751_dbl_kind, 3.01036426496685_dbl_kind, 3.01229200420334_dbl_kind, 3.01782113634471_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,518) = (/ 2.99944398556055_dbl_kind, 3.00259897773371_dbl_kind, 3.00484315186071_dbl_kind, 3.00676527292859_dbl_kind, 3.01227756702998_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,519) = (/ 2.99395943608417_dbl_kind, 2.99710473997603_dbl_kind, 2.9993422301335_dbl_kind, 3.00125877565407_dbl_kind, 3.00675431065043_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,520) = (/ 2.98849489890791_dbl_kind, 2.99163055795138_dbl_kind, 2.99386138934055_dbl_kind, 2.99577240142459_dbl_kind, 3.00125125579669_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,521) = (/ 2.98305026474105_dbl_kind, 2.98617632211093_dbl_kind, 2.98840051984231_dbl_kind, 2.99030604009481_dbl_kind, 2.99576829187242_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,522) = (/ 2.97762542508672_dbl_kind, 2.9807419237027_dbl_kind, 2.98295951279691_dbl_kind, 2.98485958232184_dbl_kind, 2.99030530908702_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,523) = (/ 2.97222027223466_dbl_kind, 2.9753272547644_dbl_kind, 2.97753826015297_dbl_kind, 2.97943291955801_dbl_kind, 2.98486219844823_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,524) = (/ 2.96683469925421_dbl_kind, 2.96993220811617_dbl_kind, 2.9721366546424_dbl_kind, 2.97402594404365_dbl_kind, 2.97943885175492_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,525) = (/ 2.96146859998717_dbl_kind, 2.96455667735355_dbl_kind, 2.96675458977324_dbl_kind, 2.96863854879996_dbl_kind, 2.97403516158988_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,526) = (/ 2.95612186904093_dbl_kind, 2.95920055684045_dbl_kind, 2.96139195982267_dbl_kind, 2.96327062762196_dbl_kind, 2.96865102131286_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,527) = (/ 2.95079440178151_dbl_kind, 2.9538637417022_dbl_kind, 2.95604865983005_dbl_kind, 2.95792207507151_dbl_kind, 2.96328632505339_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,528) = (/ 2.94548609432683_dbl_kind, 2.94854612781869_dbl_kind, 2.95072458559005_dbl_kind, 2.95259278647045_dbl_kind, 2.95794096770402_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,529) = (/ 2.94019684353991_dbl_kind, 2.94324761181759_dbl_kind, 2.94541963364577_dbl_kind, 2.94728265789373_dbl_kind, 2.95261484491331_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,530) = (/ 2.93492654702223_dbl_kind, 2.93796809106763_dbl_kind, 2.94013370128214_dbl_kind, 2.94199158616268_dbl_kind, 2.94730785307917_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,531) = (/ 2.92967510310717_dbl_kind, 2.93270746367195_dbl_kind, 2.93486668651912_dbl_kind, 2.93671946883835_dbl_kind, 2.94201988934208_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,532) = (/ 2.92444241085345_dbl_kind, 2.92746562846153_dbl_kind, 2.92961848810521_dbl_kind, 2.93146620421487_dbl_kind, 2.93675085157846_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,533) = (/ 2.91922837003866_dbl_kind, 2.92224248498871_dbl_kind, 2.92438900551089_dbl_kind, 2.92623169131292_dbl_kind, 2.93150063839414_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,534) = (/ 2.91403288115297_dbl_kind, 2.91703793352072_dbl_kind, 2.91917813892219_dbl_kind, 2.9210158298733_dbl_kind, 2.92626914911782_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,535) = (/ 2.90885584539269_dbl_kind, 2.91185187503334_dbl_kind, 2.9139857892343_dbl_kind, 2.9158185203505_dbl_kind, 2.92105628379465_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,536) = (/ 2.90369716465412_dbl_kind, 2.90668421120461_dbl_kind, 2.90881185804524_dbl_kind, 2.91063966390634_dbl_kind, 2.91586194317988_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,537) = (/ 2.89855674152733_dbl_kind, 2.9015348444086_dbl_kind, 2.90365624764968_dbl_kind, 2.90547916240377_dbl_kind, 2.9106860287326_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,538) = (/ 2.89343447929004_dbl_kind, 2.89640367770921_dbl_kind, 2.89851886103271_dbl_kind, 2.90033691840064_dbl_kind, 2.90552844260942_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,539) = (/ 2.88833028190159_dbl_kind, 2.89129061485415_dbl_kind, 2.89339960186375_dbl_kind, 2.89521283514358_dbl_kind, 2.90038908765844_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,540) = (/ 2.88324405399692_dbl_kind, 2.88619556026883_dbl_kind, 2.88829837449048_dbl_kind, 2.89010681656189_dbl_kind, 2.89526786741303_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,541) = (/ 2.87817570088069_dbl_kind, 2.88111841905046_dbl_kind, 2.88321508393292_dbl_kind, 2.88501876726161_dbl_kind, 2.89016468608591_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,542) = (/ 2.87312512852136_dbl_kind, 2.87605909696208_dbl_kind, 2.87814963587743_dbl_kind, 2.87994859251952_dbl_kind, 2.88507944856308_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,543) = (/ 2.86809224354544_dbl_kind, 2.87101750042677_dbl_kind, 2.87310193667093_dbl_kind, 2.87489619827728_dbl_kind, 2.88001206039801_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,544) = (/ 2.86307695323173_dbl_kind, 2.86599353652186_dbl_kind, 2.86807189331507_dbl_kind, 2.86986149113564_dbl_kind, 2.87496242780573_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,545) = (/ 2.85807916550564_dbl_kind, 2.86098711297317_dbl_kind, 2.86305941346049_dbl_kind, 2.86484437834863_dbl_kind, 2.86993045765709_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,546) = (/ 2.85309878893356_dbl_kind, 2.85599813814942_dbl_kind, 2.85806440540117_dbl_kind, 2.8598447678179_dbl_kind, 2.864916057473_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,547) = (/ 2.84813573271731_dbl_kind, 2.85102652105657_dbl_kind, 2.85308677806881_dbl_kind, 2.85486256808709_dbl_kind, 2.85991913541886_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,548) = (/ 2.84318990668863_dbl_kind, 2.84607217133229_dbl_kind, 2.84812644102727_dbl_kind, 2.84989768833624_dbl_kind, 2.85493960029881_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,549) = (/ 2.83826122130373_dbl_kind, 2.84113499924051_dbl_kind, 2.8431833044671_dbl_kind, 2.84495003837625_dbl_kind, 2.84997736155033_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,550) = (/ 2.83334958763792_dbl_kind, 2.83621491566594_dbl_kind, 2.83825727920005_dbl_kind, 2.84001952864344_dbl_kind, 2.84503232923868_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,551) = (/ 2.82845491738023_dbl_kind, 2.83131183210875_dbl_kind, 2.83334827665376_dbl_kind, 2.83510607019415_dbl_kind, 2.84010441405148_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,552) = (/ 2.82357712282817_dbl_kind, 2.82642566067923_dbl_kind, 2.82845620886637_dbl_kind, 2.83020957469938_dbl_kind, 2.83519352729334_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,553) = (/ 2.81871611688249_dbl_kind, 2.82155631409254_dbl_kind, 2.82358098848127_dbl_kind, 2.82532995443948_dbl_kind, 2.83029958088057_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,554) = (/ 2.813871813042_dbl_kind, 2.81670370566347_dbl_kind, 2.81872252874193_dbl_kind, 2.82046712229893_dbl_kind, 2.82542248733587_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,555) = (/ 2.80904412539846_dbl_kind, 2.81186774930135_dbl_kind, 2.81388074348667_dbl_kind, 2.81562099176112_dbl_kind, 2.82056215978315_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,556) = (/ 2.80423296863151_dbl_kind, 2.80704835950492_dbl_kind, 2.8090555471436_dbl_kind, 2.81079147690328_dbl_kind, 2.81571851194241_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,557) = (/ 2.79943825800365_dbl_kind, 2.80224545135726_dbl_kind, 2.80424685472552_dbl_kind, 2.80597849239133_dbl_kind, 2.81089145812456_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,558) = (/ 2.7946599093553_dbl_kind, 2.79745894052084_dbl_kind, 2.799454581825_dbl_kind, 2.80118195347488_dbl_kind, 2.80608091322641_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,559) = (/ 2.78989783909984_dbl_kind, 2.79268874323256_dbl_kind, 2.79467864460931_dbl_kind, 2.79640177598226_dbl_kind, 2.80128679272571_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,560) = (/ 2.7851519642188_dbl_kind, 2.78793477629886_dbl_kind, 2.78991895981564_dbl_kind, 2.79163787631557_dbl_kind, 2.79650901267615_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,561) = (/ 2.78042220225702_dbl_kind, 2.78319695709085_dbl_kind, 2.78517544474616_dbl_kind, 2.78689017144583_dbl_kind, 2.79174748970247_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,562) = (/ 2.77570847131785_dbl_kind, 2.77847520353958_dbl_kind, 2.78044801726328_dbl_kind, 2.78215857890812_dbl_kind, 2.78700214099565_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,563) = (/ 2.77101069005852_dbl_kind, 2.77376943413122_dbl_kind, 2.77573659578483_dbl_kind, 2.77744301679683_dbl_kind, 2.78227288430806_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,564) = (/ 2.76632877768538_dbl_kind, 2.76907956790246_dbl_kind, 2.77104109927944_dbl_kind, 2.7727434037609_dbl_kind, 2.77755963794878_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,565) = (/ 2.76166265394933_dbl_kind, 2.76440552443575_dbl_kind, 2.76636144726183_dbl_kind, 2.76805965899917_dbl_kind, 2.77286232077883_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,566) = (/ 2.75701223914126_dbl_kind, 2.75974722385479_dbl_kind, 2.76169755978822_dbl_kind, 2.76339170225571_dbl_kind, 2.76818085220654_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,567) = (/ 2.75237745408744_dbl_kind, 2.75510458681994_dbl_kind, 2.75704935745174_dbl_kind, 2.75873945381527_dbl_kind, 2.76351515218298_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,568) = (/ 2.74775822014514_dbl_kind, 2.75047753452372_dbl_kind, 2.75241676137798_dbl_kind, 2.75410283449871_dbl_kind, 2.75886514119736_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,569) = (/ 2.7431544591981_dbl_kind, 2.74586598868633_dbl_kind, 2.74779969322044_dbl_kind, 2.74948176565848_dbl_kind, 2.75423074027252_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,570) = (/ 2.7385660936522_dbl_kind, 2.74126987155125_dbl_kind, 2.74319807515618_dbl_kind, 2.74487616917423_dbl_kind, 2.74961187096048_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,571) = (/ 2.73399304643109_dbl_kind, 2.73668910588089_dbl_kind, 2.73861182988139_dbl_kind, 2.74028596744836_dbl_kind, 2.74500845533801_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,572) = (/ 2.72943524097185_dbl_kind, 2.7321236149522_dbl_kind, 2.73404088060707_dbl_kind, 2.73571108340165_dbl_kind, 2.74042041600223_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,573) = (/ 2.72489260122077_dbl_kind, 2.72757332255243_dbl_kind, 2.72948515105475_dbl_kind, 2.73115144046897_dbl_kind, 2.73584767606631_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,574) = (/ 2.72036505162911_dbl_kind, 2.72303815297491_dbl_kind, 2.72494456545222_dbl_kind, 2.72660696259498_dbl_kind, 2.73129015915515_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,575) = (/ 2.71585251714892_dbl_kind, 2.71851803101476_dbl_kind, 2.72041904852934_dbl_kind, 2.7220775742299_dbl_kind, 2.72674778940114_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,576) = (/ 2.7113549232289_dbl_kind, 2.71401288196484_dbl_kind, 2.71590852551388_dbl_kind, 2.71756320032532_dbl_kind, 2.72222049143997_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,577) = (/ 2.70687219581031_dbl_kind, 2.70952263161156_dbl_kind, 2.71141292212736_dbl_kind, 2.71306376633006_dbl_kind, 2.71770819040642_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,578) = (/ 2.70240426132291_dbl_kind, 2.70504720623082_dbl_kind, 2.70693216458102_dbl_kind, 2.70857919818603_dbl_kind, 2.71321081193028_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,579) = (/ 2.69795104668092_dbl_kind, 2.70058653258401_dbl_kind, 2.70246617957175_dbl_kind, 2.7041094223242_dbl_kind, 2.70872828213226_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,580) = (/ 2.69351247927908_dbl_kind, 2.69614053791394_dbl_kind, 2.69801489427809_dbl_kind, 2.69965436566052_dbl_kind, 2.70426052761989_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,581) = (/ 2.68908848698868_dbl_kind, 2.69170914994098_dbl_kind, 2.69357823635627_dbl_kind, 2.69521395559199_dbl_kind, 2.69980747548364_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,582) = (/ 2.68467899815369_dbl_kind, 2.68729229685904_dbl_kind, 2.68915613393631_dbl_kind, 2.69078811999267_dbl_kind, 2.69536905329279_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,583) = (/ 2.68028394158686_dbl_kind, 2.6828899073318_dbl_kind, 2.68474851561809_dbl_kind, 2.68637678720977_dbl_kind, 2.69094518909168_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,584) = (/ 2.67590324656594_dbl_kind, 2.67850191048877_dbl_kind, 2.68035531046755_dbl_kind, 2.6819798860598_dbl_kind, 2.68653581139567_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,585) = (/ 2.67153684282986_dbl_kind, 2.67412823592155_dbl_kind, 2.67597644801286_dbl_kind, 2.6775973458247_dbl_kind, 2.68214084918741_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,586) = (/ 2.66718466057497_dbl_kind, 2.66976881368005_dbl_kind, 2.67161185824065_dbl_kind, 2.67322909624807_dbl_kind, 2.67776023191295_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,587) = (/ 2.66284663045139_dbl_kind, 2.66542357426874_dbl_kind, 2.6672614715923_dbl_kind, 2.6688750675314_dbl_kind, 2.67339388947801_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,588) = (/ 2.65852268355924_dbl_kind, 2.66109244864299_dbl_kind, 2.66292521896021_dbl_kind, 2.66453519033037_dbl_kind, 2.66904175224422_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,589) = (/ 2.65421275144509_dbl_kind, 2.65677536820541_dbl_kind, 2.65860303168416_dbl_kind, 2.66020939575109_dbl_kind, 2.66470375102543_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,590) = (/ 2.64991676609828_dbl_kind, 2.6524722648022_dbl_kind, 2.65429484154769_dbl_kind, 2.65589761534655_dbl_kind, 2.66037981708405_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,591) = (/ 2.64563465994742_dbl_kind, 2.6481830707196_dbl_kind, 2.6500005807745_dbl_kind, 2.6515997811129_dbl_kind, 2.65606988212742_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,592) = (/ 2.64136636585675_dbl_kind, 2.64390771868031_dbl_kind, 2.64572018202489_dbl_kind, 2.64731582548594_dbl_kind, 2.6517738783042_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,593) = (/ 2.63711181712276_dbl_kind, 2.63964614184002_dbl_kind, 2.64145357839227_dbl_kind, 2.64304568133757_dbl_kind, 2.64749173820083_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,594) = (/ 2.63287094747063_dbl_kind, 2.63539827378385_dbl_kind, 2.63720070339963_dbl_kind, 2.63878928197221_dbl_kind, 2.643223394838_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,595) = (/ 2.62864369105083_dbl_kind, 2.631164048523_dbl_kind, 2.63296149099614_dbl_kind, 2.63454656112342_dbl_kind, 2.63896878166716_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,596) = (/ 2.62442998243571_dbl_kind, 2.62694340049125_dbl_kind, 2.62873587555369_dbl_kind, 2.63031745295037_dbl_kind, 2.63472783256706_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,597) = (/ 2.62022975661613_dbl_kind, 2.62273626454163_dbl_kind, 2.62452379186352_dbl_kind, 2.62610189203446_dbl_kind, 2.63050048184032_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,598) = (/ 2.61604294899814_dbl_kind, 2.61854257594305_dbl_kind, 2.62032517513287_dbl_kind, 2.62189981337595_dbl_kind, 2.62628666421005_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,599) = (/ 2.61186949539963_dbl_kind, 2.61436227037699_dbl_kind, 2.61613996098166_dbl_kind, 2.6177111523906_dbl_kind, 2.6220863148165_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,600) = (/ 2.6077093320471_dbl_kind, 2.6101952839342_dbl_kind, 2.61196808543919_dbl_kind, 2.61353584490636_dbl_kind, 2.61789936921371_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,601) = (/ 2.60356239557238_dbl_kind, 2.60604155311147_dbl_kind, 2.60780948494091_dbl_kind, 2.60937382716006_dbl_kind, 2.61372576336623_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,602) = (/ 2.59942862300946_dbl_kind, 2.6019010148084_dbl_kind, 2.60366409632516_dbl_kind, 2.60522503579422_dbl_kind, 2.60956543364586_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,603) = (/ 2.59530795179127_dbl_kind, 2.59777360632417_dbl_kind, 2.59953185683_dbl_kind, 2.60108940785376_dbl_kind, 2.60541831682841_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,604) = (/ 2.59120031974652_dbl_kind, 2.59365926535445_dbl_kind, 2.59541270409002_dbl_kind, 2.59696688078284_dbl_kind, 2.6012843500905_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,605) = (/ 2.58710566509663_dbl_kind, 2.58955792998822_dbl_kind, 2.59130657613326_dbl_kind, 2.59285739242171_dbl_kind, 2.59716347100639_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,606) = (/ 2.58302392645259_dbl_kind, 2.58546953870465_dbl_kind, 2.58721341137803_dbl_kind, 2.58876088100354_dbl_kind, 2.59305561754483_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,607) = (/ 2.57895504281191_dbl_kind, 2.58139403037008_dbl_kind, 2.58313314862991_dbl_kind, 2.58467728515138_dbl_kind, 2.58896072806598_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,608) = (/ 2.57489895355559_dbl_kind, 2.57733134423496_dbl_kind, 2.57906572707863_dbl_kind, 2.58060654387502_dbl_kind, 2.58487874131829_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,609) = (/ 2.57085559844511_dbl_kind, 2.57328141993079_dbl_kind, 2.57501108629512_dbl_kind, 2.576548596568_dbl_kind, 2.58080959643546_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,610) = (/ 2.56682491761944_dbl_kind, 2.56924419746721_dbl_kind, 2.57096916622849_dbl_kind, 2.57250338300456_dbl_kind, 2.57675323293343_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,611) = (/ 2.56280685159211_dbl_kind, 2.56521961722899_dbl_kind, 2.56693990720305_dbl_kind, 2.56847084333668_dbl_kind, 2.57270959070739_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,612) = (/ 2.55880134124828_dbl_kind, 2.56120761997309_dbl_kind, 2.56292324991544_dbl_kind, 2.56445091809111_dbl_kind, 2.56867861002875_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,613) = (/ 2.55480832784183_dbl_kind, 2.55720814682581_dbl_kind, 2.55891913543166_dbl_kind, 2.56044354816643_dbl_kind, 2.56466023154229_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,614) = (/ 2.55082775299253_dbl_kind, 2.55322113927986_dbl_kind, 2.55492750518422_dbl_kind, 2.55644867483017_dbl_kind, 2.56065439626318_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,615) = (/ 2.54685955868314_dbl_kind, 2.54924653919154_dbl_kind, 2.55094830096929_dbl_kind, 2.55246623971592_dbl_kind, 2.55666104557414_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,616) = (/ 2.54290368725664_dbl_kind, 2.54528428877794_dbl_kind, 2.54698146494389_dbl_kind, 2.54849618482048_dbl_kind, 2.55268012122254_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,617) = (/ 2.53896008141343_dbl_kind, 2.54133433061408_dbl_kind, 2.54302693962306_dbl_kind, 2.54453845250104_dbl_kind, 2.5487115653176_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,618) = (/ 2.53502868420856_dbl_kind, 2.53739660763019_dbl_kind, 2.5390846678771_dbl_kind, 2.54059298547238_dbl_kind, 2.54475532032758_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,619) = (/ 2.531109439049_dbl_kind, 2.53347106310896_dbl_kind, 2.53515459292885_dbl_kind, 2.53665972680411_dbl_kind, 2.540811329077_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,620) = (/ 2.52720228969092_dbl_kind, 2.52955764068281_dbl_kind, 2.53123665835096_dbl_kind, 2.53273861991791_dbl_kind, 2.53687953474385_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,621) = (/ 2.52330718023699_dbl_kind, 2.5256562843312_dbl_kind, 2.52733080806315_dbl_kind, 2.52882960858485_dbl_kind, 2.53295988085694_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,622) = (/ 2.51942405513377_dbl_kind, 2.52176693837796_dbl_kind, 2.5234369863296_dbl_kind, 2.52493263692262_dbl_kind, 2.52905231129312_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,623) = (/ 2.515552859169_dbl_kind, 2.51788954748867_dbl_kind, 2.51955513775629_dbl_kind, 2.52104764939295_dbl_kind, 2.52515677027465_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,624) = (/ 2.51169353746903_dbl_kind, 2.51402405666799_dbl_kind, 2.51568520728836_dbl_kind, 2.5171745907989_dbl_kind, 2.52127320236652_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,625) = (/ 2.50784603549623_dbl_kind, 2.51017041125711_dbl_kind, 2.51182714020752_dbl_kind, 2.51331340628226_dbl_kind, 2.51740155247385_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,626) = (/ 2.50401029904641_dbl_kind, 2.50632855693117_dbl_kind, 2.50798088212949_dbl_kind, 2.50946404132097_dbl_kind, 2.51354176583925_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,627) = (/ 2.50018627424626_dbl_kind, 2.5024984396967_dbl_kind, 2.50414637900146_dbl_kind, 2.50562644172652_dbl_kind, 2.50969378804026_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,628) = (/ 2.49637390755087_dbl_kind, 2.4986800058891_dbl_kind, 2.50032357709952_dbl_kind, 2.50180055364142_dbl_kind, 2.50585756498682_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,629) = (/ 2.49257314574123_dbl_kind, 2.49487320217013_dbl_kind, 2.49651242302621_dbl_kind, 2.49798632353668_dbl_kind, 2.50203304291867_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,630) = (/ 2.4887839359217_dbl_kind, 2.49107797552546_dbl_kind, 2.492712863708_dbl_kind, 2.49418369820928_dbl_kind, 2.49822016840289_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,631) = (/ 2.48500622551762_dbl_kind, 2.48729427326219_dbl_kind, 2.48892484639287_dbl_kind, 2.49039262477973_dbl_kind, 2.49441888833141_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,632) = (/ 2.48123996227288_dbl_kind, 2.48352204300642_dbl_kind, 2.48514831864785_dbl_kind, 2.48661305068956_dbl_kind, 2.49062914991852_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,633) = (/ 2.47748509424744_dbl_kind, 2.47976123270084_dbl_kind, 2.48138322835662_dbl_kind, 2.48284492369894_dbl_kind, 2.48685090069845_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,634) = (/ 2.47374156981505_dbl_kind, 2.47601179060235_dbl_kind, 2.47762952371709_dbl_kind, 2.47908819188424_dbl_kind, 2.48308408852294_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,635) = (/ 2.47000933766078_dbl_kind, 2.47227366527968_dbl_kind, 2.4738871532391_dbl_kind, 2.47534280363563_dbl_kind, 2.47932866155885_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,636) = (/ 2.46628834677878_dbl_kind, 2.46854680561104_dbl_kind, 2.470156065742_dbl_kind, 2.47160870765475_dbl_kind, 2.47558456828576_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,637) = (/ 2.46257854646987_dbl_kind, 2.46483116078182_dbl_kind, 2.46643621035237_dbl_kind, 2.4678858529523_dbl_kind, 2.47185175749365_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,638) = (/ 2.45887988633929_dbl_kind, 2.46112668028224_dbl_kind, 2.46272753650169_dbl_kind, 2.46417418884578_dbl_kind, 2.46813017828053_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,639) = (/ 2.4551923162944_dbl_kind, 2.45743331390513_dbl_kind, 2.45902999392408_dbl_kind, 2.46047366495714_dbl_kind, 2.46441978005017_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,640) = (/ 2.45151578654245_dbl_kind, 2.45375101174361_dbl_kind, 2.455343532654_dbl_kind, 2.45678423121052_dbl_kind, 2.46072051250975_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,641) = (/ 2.44785024758827_dbl_kind, 2.45007972418888_dbl_kind, 2.45166810302407_dbl_kind, 2.45310583782997_dbl_kind, 2.45703232566766_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,642) = (/ 2.44419565023214_dbl_kind, 2.44641940192798_dbl_kind, 2.44800365566277_dbl_kind, 2.44943843533719_dbl_kind, 2.45335516983116_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,643) = (/ 2.44055194556754_dbl_kind, 2.44276999594161_dbl_kind, 2.44435014149231_dbl_kind, 2.44578197454937_dbl_kind, 2.44968899560425_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,644) = (/ 2.43691908497896_dbl_kind, 2.43913145750191_dbl_kind, 2.44070751172639_dbl_kind, 2.44213640657691_dbl_kind, 2.44603375388538_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,645) = (/ 2.43329702013978_dbl_kind, 2.43550373817034_dbl_kind, 2.43707571786806_dbl_kind, 2.43850168282129_dbl_kind, 2.44238939586529_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,646) = (/ 2.42968570301008_dbl_kind, 2.43188678979551_dbl_kind, 2.4334547117076_dbl_kind, 2.43487775497288_dbl_kind, 2.43875587302483_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,647) = (/ 2.42608508583457_dbl_kind, 2.42828056451105_dbl_kind, 2.42984444532035_dbl_kind, 2.43126457500879_dbl_kind, 2.43513313713282_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,648) = (/ 2.42249512114043_dbl_kind, 2.42468501473354_dbl_kind, 2.42624487106463_dbl_kind, 2.42766209519075_dbl_kind, 2.43152114024391_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,649) = (/ 2.41891576173529_dbl_kind, 2.42110009316036_dbl_kind, 2.42265594157964_dbl_kind, 2.42407026806304_dbl_kind, 2.42791983469646_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,650) = (/ 2.4153469607051_dbl_kind, 2.4175257527677_dbl_kind, 2.41907760978343_dbl_kind, 2.42048904645033_dbl_kind, 2.42432917311044_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,651) = (/ 2.41178867141211_dbl_kind, 2.41396194680842_dbl_kind, 2.41550982887078_dbl_kind, 2.41691838345566_dbl_kind, 2.42074910838539_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,652) = (/ 2.40824084749285_dbl_kind, 2.41040862881012_dbl_kind, 2.41195255231123_dbl_kind, 2.41335823245838_dbl_kind, 2.4171795936983_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,653) = (/ 2.40470344285611_dbl_kind, 2.40686575257304_dbl_kind, 2.40840573384704_dbl_kind, 2.40980854711211_dbl_kind, 2.41362058250163_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,654) = (/ 2.40117641168092_dbl_kind, 2.40333327216809_dbl_kind, 2.40486932749119_dbl_kind, 2.40626928134271_dbl_kind, 2.41007202852123_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,655) = (/ 2.39765970841463_dbl_kind, 2.3998111419349_dbl_kind, 2.40134328752542_dbl_kind, 2.40274038934633_dbl_kind, 2.40653388575439_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,656) = (/ 2.39415328777088_dbl_kind, 2.3962993164798_dbl_kind, 2.39782756849824_dbl_kind, 2.39922182558735_dbl_kind, 2.40300610846782_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,657) = (/ 2.3906571047277_dbl_kind, 2.39279775067394_dbl_kind, 2.39432212522301_dbl_kind, 2.39571354479652_dbl_kind, 2.39948865119568_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,658) = (/ 2.38717111452558_dbl_kind, 2.38930639965131_dbl_kind, 2.390826912776_dbl_kind, 2.3922155019689_dbl_kind, 2.39598146873765_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,659) = (/ 2.38369527266556_dbl_kind, 2.38582521880688_dbl_kind, 2.3873418864945_dbl_kind, 2.38872765236204_dbl_kind, 2.39248451615697_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,660) = (/ 2.38022953490733_dbl_kind, 2.38235416379464_dbl_kind, 2.38386700197488_dbl_kind, 2.38524995149397_dbl_kind, 2.38899774877853_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,661) = (/ 2.37677385726734_dbl_kind, 2.37889319052579_dbl_kind, 2.38040221507077_dbl_kind, 2.3817823551414_dbl_kind, 2.38552112218697_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,662) = (/ 2.37332819601699_dbl_kind, 2.37544225516682_dbl_kind, 2.37694748189117_dbl_kind, 2.37832481933774_dbl_kind, 2.3820545922248_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,663) = (/ 2.36989250768074_dbl_kind, 2.37200131413772_dbl_kind, 2.37350275879859_dbl_kind, 2.37487730037133_dbl_kind, 2.37859811499054_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,664) = (/ 2.36646674903428_dbl_kind, 2.36857032411012_dbl_kind, 2.37006800240726_dbl_kind, 2.37143975478354_dbl_kind, 2.3751516468368_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,665) = (/ 2.36305087710276_dbl_kind, 2.36514924200547_dbl_kind, 2.36664316958129_dbl_kind, 2.36801213936696_dbl_kind, 2.37171514436857_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,666) = (/ 2.35964484915894_dbl_kind, 2.36173802499325_dbl_kind, 2.36322821743287_dbl_kind, 2.36459441116356_dbl_kind, 2.36828856444125_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,667) = (/ 2.35624862272147_dbl_kind, 2.35833663048921_dbl_kind, 2.35982310332051_dbl_kind, 2.36118652746292_dbl_kind, 2.36487186415899_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,668) = (/ 2.35286215555307_dbl_kind, 2.35494501615358_dbl_kind, 2.35642778484726_dbl_kind, 2.35778844580046_dbl_kind, 2.36146500087278_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,669) = (/ 2.3494854056588_dbl_kind, 2.35156313988931_dbl_kind, 2.35304221985896_dbl_kind, 2.3544001239556_dbl_kind, 2.35806793217876_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,670) = (/ 2.34611833128435_dbl_kind, 2.34819095984038_dbl_kind, 2.34966636644252_dbl_kind, 2.35102151995011_dbl_kind, 2.3546806159164_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,671) = (/ 2.34276089091427_dbl_kind, 2.34482843439_dbl_kind, 2.34630018292416_dbl_kind, 2.34765259204629_dbl_kind, 2.35130301016682_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,672) = (/ 2.33941304327029_dbl_kind, 2.34147552215899_dbl_kind, 2.34294362786774_dbl_kind, 2.34429329874527_dbl_kind, 2.34793507325099_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,673) = (/ 2.33607474730965_dbl_kind, 2.33813218200404_dbl_kind, 2.33959666007308_dbl_kind, 2.34094359878533_dbl_kind, 2.34457676372808_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,674) = (/ 2.33274596222338_dbl_kind, 2.33479837301602_dbl_kind, 2.33625923857423_dbl_kind, 2.33760345114018_dbl_kind, 2.34122804039372_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,675) = (/ 2.32942664743469_dbl_kind, 2.33147405451837_dbl_kind, 2.33293132263785_dbl_kind, 2.33427281501728_dbl_kind, 2.33788886227835_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,676) = (/ 2.32611676259725_dbl_kind, 2.32815918606538_dbl_kind, 2.32961287176155_dbl_kind, 2.33095164985618_dbl_kind, 2.3345591886455_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,677) = (/ 2.32281626759364_dbl_kind, 2.32485372744063_dbl_kind, 2.32630384567227_dbl_kind, 2.32763991532689_dbl_kind, 2.33123897899019_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,678) = (/ 2.31952512253367_dbl_kind, 2.32155763865531_dbl_kind, 2.32300420432463_dbl_kind, 2.32433757132822_dbl_kind, 2.32792819303723_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,679) = (/ 2.31624328775277_dbl_kind, 2.31827087994665_dbl_kind, 2.31971390789934_dbl_kind, 2.32104457798615_dbl_kind, 2.32462679073965_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,680) = (/ 2.31297072381045_dbl_kind, 2.3149934117763_dbl_kind, 2.31643291680161_dbl_kind, 2.31776089565227_dbl_kind, 2.32133473227707_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,681) = (/ 2.30970739148867_dbl_kind, 2.31172519482876_dbl_kind, 2.31316119165957_dbl_kind, 2.31448648490211_dbl_kind, 2.31805197805405_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,682) = (/ 2.3064532517903_dbl_kind, 2.30846619000982_dbl_kind, 2.30989869332269_dbl_kind, 2.31122130653363_dbl_kind, 2.31477848869858_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,683) = (/ 2.30320826593756_dbl_kind, 2.30521635844501_dbl_kind, 2.30664538286026_dbl_kind, 2.30796532156562_dbl_kind, 2.31151422506045_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,684) = (/ 2.29997239537047_dbl_kind, 2.30197566147804_dbl_kind, 2.3034012215598_dbl_kind, 2.30471849123613_dbl_kind, 2.30825914820971_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,685) = (/ 2.29674560174535_dbl_kind, 2.29874406066927_dbl_kind, 2.30016617092559_dbl_kind, 2.30148077700099_dbl_kind, 2.30501321943513_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,686) = (/ 2.29352784693326_dbl_kind, 2.29552151779424_dbl_kind, 2.2969401926771_dbl_kind, 2.29825214053218_dbl_kind, 2.30177640024266_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,687) = (/ 2.29031909301855_dbl_kind, 2.29230799484212_dbl_kind, 2.29372324874753_dbl_kind, 2.29503254371642_dbl_kind, 2.29854865235389_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,688) = (/ 2.28711930229733_dbl_kind, 2.28910345401422_dbl_kind, 2.29051530128231_dbl_kind, 2.2918219486536_dbl_kind, 2.29532993770457_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,689) = (/ 2.28392843727604_dbl_kind, 2.28590785772255_dbl_kind, 2.28731631263762_dbl_kind, 2.28862031765533_dbl_kind, 2.2921202184431_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,690) = (/ 2.28074646066993_dbl_kind, 2.28272116858835_dbl_kind, 2.28412624537892_dbl_kind, 2.2854276132434_dbl_kind, 2.28891945692908_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,691) = (/ 2.27757333540163_dbl_kind, 2.27954334944058_dbl_kind, 2.28094506227953_dbl_kind, 2.28224379814841_dbl_kind, 2.28572761573175_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,692) = (/ 2.27440902459975_dbl_kind, 2.27637436331456_dbl_kind, 2.27777272631912_dbl_kind, 2.27906883530823_dbl_kind, 2.28254465762865_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,693) = (/ 2.27125349159738_dbl_kind, 2.27321417345049_dbl_kind, 2.27460920068239_dbl_kind, 2.27590268786661_dbl_kind, 2.27937054560407_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,694) = (/ 2.26810669993074_dbl_kind, 2.27006274329204_dbl_kind, 2.27145444875753_dbl_kind, 2.27274531917172_dbl_kind, 2.27620524284769_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,695) = (/ 2.26496861333772_dbl_kind, 2.26692003648498_dbl_kind, 2.26830843413494_dbl_kind, 2.26959669277476_dbl_kind, 2.27304871275312_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,696) = (/ 2.26183919575654_dbl_kind, 2.26378601687573_dbl_kind, 2.26517112060574_dbl_kind, 2.26645677242854_dbl_kind, 2.26990091891649_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,697) = (/ 2.25871841132433_dbl_kind, 2.26066064851002_dbl_kind, 2.26204247216043_dbl_kind, 2.26332552208609_dbl_kind, 2.26676182513506_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,698) = (/ 2.25560622437577_dbl_kind, 2.25754389563152_dbl_kind, 2.25892245298752_dbl_kind, 2.26020290589927_dbl_kind, 2.26363139540584_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,699) = (/ 2.25250259944176_dbl_kind, 2.25443572268046_dbl_kind, 2.25581102747219_dbl_kind, 2.25708888821741_dbl_kind, 2.26050959392421_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,700) = (/ 2.249407501248_dbl_kind, 2.25133609429228_dbl_kind, 2.25270816019489_dbl_kind, 2.25398343358595_dbl_kind, 2.25739638508253_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,701) = (/ 2.24632089471375_dbl_kind, 2.24824497529633_dbl_kind, 2.24961381593006_dbl_kind, 2.25088650674508_dbl_kind, 2.25429173346883_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,702) = (/ 2.24324274495044_dbl_kind, 2.2451623307145_dbl_kind, 2.24652795964478_dbl_kind, 2.24779807262843_dbl_kind, 2.25119560386544_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,703) = (/ 2.24017301726035_dbl_kind, 2.24208812575994_dbl_kind, 2.24345055649745_dbl_kind, 2.2447180963617_dbl_kind, 2.24810796124765_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,704) = (/ 2.23711167713537_dbl_kind, 2.23902232583573_dbl_kind, 2.2403815718365_dbl_kind, 2.24164654326139_dbl_kind, 2.24502877078243_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,705) = (/ 2.23405869025564_dbl_kind, 2.23596489653361_dbl_kind, 2.2373209711991_dbl_kind, 2.23858337883348_dbl_kind, 2.24195799782709_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,706) = (/ 2.23101402248828_dbl_kind, 2.23291580363268_dbl_kind, 2.23426872030985_dbl_kind, 2.23552856877211_dbl_kind, 2.23889560792797_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,707) = (/ 2.22797763988617_dbl_kind, 2.22987501309812_dbl_kind, 2.23122478507956_dbl_kind, 2.23248207895835_dbl_kind, 2.23584156681918_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,708) = (/ 2.22494950868662_dbl_kind, 2.22684249107997_dbl_kind, 2.22818913160393_dbl_kind, 2.22944387545888_dbl_kind, 2.23279584042133_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,709) = (/ 2.22192959531015_dbl_kind, 2.22381820391182_dbl_kind, 2.22516172616236_dbl_kind, 2.22641392452474_dbl_kind, 2.22975839484021_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,710) = (/ 2.21891786635928_dbl_kind, 2.22080211810963_dbl_kind, 2.22214253521664_dbl_kind, 2.22339219259011_dbl_kind, 2.22672919636561_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,711) = (/ 2.21591428861722_dbl_kind, 2.21779420037044_dbl_kind, 2.2191315254098_dbl_kind, 2.22037864627101_dbl_kind, 2.22370821146999_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,712) = (/ 2.21291882904672_dbl_kind, 2.21479441757119_dbl_kind, 2.21612866356481_dbl_kind, 2.21737325236412_dbl_kind, 2.22069540680732_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,713) = (/ 2.20993145478884_dbl_kind, 2.21180273676749_dbl_kind, 2.21313391668342_dbl_kind, 2.21437597784554_dbl_kind, 2.21769074921179_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,714) = (/ 2.20695213316174_dbl_kind, 2.20881912519243_dbl_kind, 2.21014725194495_dbl_kind, 2.21138678986959_dbl_kind, 2.21469420569666_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,715) = (/ 2.20398083165948_dbl_kind, 2.20584355025537_dbl_kind, 2.20716863670509_dbl_kind, 2.20840565576756_dbl_kind, 2.21170574345299_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,716) = (/ 2.20101751795087_dbl_kind, 2.20287597954077_dbl_kind, 2.20419803849472_dbl_kind, 2.20543254304658_dbl_kind, 2.20872532984848_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,717) = (/ 2.19806215987824_dbl_kind, 2.19991638080702_dbl_kind, 2.20123542501875_dbl_kind, 2.20246741938841_dbl_kind, 2.20575293242625_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,718) = (/ 2.19511472545636_dbl_kind, 2.19696472198528_dbl_kind, 2.19828076415494_dbl_kind, 2.19951025264827_dbl_kind, 2.20278851890373_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,719) = (/ 2.19217518287121_dbl_kind, 2.19402097117829_dbl_kind, 2.19533402395275_dbl_kind, 2.19656101085368_dbl_kind, 2.19983205717141_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,720) = (/ 2.18924350047888_dbl_kind, 2.1910850966593_dbl_kind, 2.19239517263221_dbl_kind, 2.19361966220327_dbl_kind, 2.19688351529173_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,721) = (/ 2.1863196468044_dbl_kind, 2.18815706687083_dbl_kind, 2.18946417858278_dbl_kind, 2.19068617506572_dbl_kind, 2.19394286149794_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,722) = (/ 2.18340359054066_dbl_kind, 2.18523685042366_dbl_kind, 2.18654101036221_dbl_kind, 2.18776051797853_dbl_kind, 2.1910100641929_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,723) = (/ 2.18049530054725_dbl_kind, 2.1823244160956_dbl_kind, 2.18362563669543_dbl_kind, 2.18484265964695_dbl_kind, 2.18808509194803_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,724) = (/ 2.17759474584937_dbl_kind, 2.17941973283048_dbl_kind, 2.18071802647345_dbl_kind, 2.18193256894285_dbl_kind, 2.18516791350211_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,725) = (/ 2.17470189563674_dbl_kind, 2.17652276973696_dbl_kind, 2.17781814875227_dbl_kind, 2.1790302149036_dbl_kind, 2.18225849776022_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,726) = (/ 2.17181671926249_dbl_kind, 2.17363349608752_dbl_kind, 2.17492597275175_dbl_kind, 2.17613556673098_dbl_kind, 2.17935681379263_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,727) = (/ 2.16893918624208_dbl_kind, 2.17075188131732_dbl_kind, 2.17204146785458_dbl_kind, 2.17324859379011_dbl_kind, 2.17646283083368_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,728) = (/ 2.16606926625224_dbl_kind, 2.16787789502316_dbl_kind, 2.16916460360516_dbl_kind, 2.17036926560831_dbl_kind, 2.17357651828071_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,729) = (/ 2.16320692912989_dbl_kind, 2.16501150696239_dbl_kind, 2.16629534970857_dbl_kind, 2.16749755187409_dbl_kind, 2.17069784569298_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,730) = (/ 2.16035214487111_dbl_kind, 2.16215268705188_dbl_kind, 2.16343367602949_dbl_kind, 2.16463342243605_dbl_kind, 2.1678267827906_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,731) = (/ 2.15750488363004_dbl_kind, 2.15930140536694_dbl_kind, 2.16057955259118_dbl_kind, 2.16177684730184_dbl_kind, 2.16496329945346_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,732) = (/ 2.1546651157179_dbl_kind, 2.15645763214029_dbl_kind, 2.1577329495744_dbl_kind, 2.15892779663708_dbl_kind, 2.16210736572021_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,733) = (/ 2.15183281160192_dbl_kind, 2.15362133776106_dbl_kind, 2.15489383731641_dbl_kind, 2.15608624076436_dbl_kind, 2.15925895178716_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,734) = (/ 2.14900794190433_dbl_kind, 2.15079249277372_dbl_kind, 2.15206218630995_dbl_kind, 2.15325215016219_dbl_kind, 2.15641802800731_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,735) = (/ 2.14619047740134_dbl_kind, 2.14797106787709_dbl_kind, 2.1492379672022_dbl_kind, 2.15042549546398_dbl_kind, 2.15358456488926_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,736) = (/ 2.14338038902214_dbl_kind, 2.14515703392331_dbl_kind, 2.14642115079377_dbl_kind, 2.14760624745701_dbl_kind, 2.15075853309623_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,737) = (/ 2.14057764784787_dbl_kind, 2.14235036191687_dbl_kind, 2.14361170803777_dbl_kind, 2.14479437708145_dbl_kind, 2.14793990344505_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,738) = (/ 2.13778222511068_dbl_kind, 2.13955102301362_dbl_kind, 2.1408096100387_dbl_kind, 2.14198985542933_dbl_kind, 2.14512864690511_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,739) = (/ 2.13499409219272_dbl_kind, 2.13675898851972_dbl_kind, 2.13801482805157_dbl_kind, 2.13919265374357_dbl_kind, 2.14232473459742_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,740) = (/ 2.13221322062513_dbl_kind, 2.13397422989076_dbl_kind, 2.13522733348087_dbl_kind, 2.13640274341698_dbl_kind, 2.1395281377936_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,741) = (/ 2.12943958208714_dbl_kind, 2.1311967187307_dbl_kind, 2.13244709787963_dbl_kind, 2.13362009599132_dbl_kind, 2.13673882791489_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,742) = (/ 2.12667314840504_dbl_kind, 2.12842642679099_dbl_kind, 2.12967409294842_dbl_kind, 2.13084468315628_dbl_kind, 2.13395677653117_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,743) = (/ 2.12391389155128_dbl_kind, 2.12566332596955_dbl_kind, 2.12690829053445_dbl_kind, 2.12807647674854_dbl_kind, 2.13118195536006_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,744) = (/ 2.12116178364348_dbl_kind, 2.12290738830984_dbl_kind, 2.12414966263058_dbl_kind, 2.12531544875083_dbl_kind, 2.12841433626586_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,745) = (/ 2.11841679694355_dbl_kind, 2.12015858599997_dbl_kind, 2.12139818137438_dbl_kind, 2.12256157129098_dbl_kind, 2.12565389125867_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,746) = (/ 2.11567890385668_dbl_kind, 2.11741689137168_dbl_kind, 2.11865381904725_dbl_kind, 2.11981481664095_dbl_kind, 2.12290059249344_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,747) = (/ 2.11294807693047_dbl_kind, 2.1146822768995_dbl_kind, 2.11591654807344_dbl_kind, 2.11707515721595_dbl_kind, 2.12015441226901_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,748) = (/ 2.11022428885401_dbl_kind, 2.11195471519976_dbl_kind, 2.11318634101915_dbl_kind, 2.11434256557347_dbl_kind, 2.1174153230272_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,749) = (/ 2.10750751245695_dbl_kind, 2.10923417902975_dbl_kind, 2.11046317059163_dbl_kind, 2.11161701441239_dbl_kind, 2.11468329735188_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,750) = (/ 2.1047977207086_dbl_kind, 2.10652064128674_dbl_kind, 2.10774700963827_dbl_kind, 2.10889847657206_dbl_kind, 2.11195830796807_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,751) = (/ 2.10209488671704_dbl_kind, 2.10381407500716_dbl_kind, 2.10503783114571_dbl_kind, 2.10618692503139_dbl_kind, 2.10924032774102_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,752) = (/ 2.09939898372824_dbl_kind, 2.10111445336564_dbl_kind, 2.10233560823892_dbl_kind, 2.10348233290798_dbl_kind, 2.10652932967531_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,753) = (/ 2.09670998512515_dbl_kind, 2.09842174967418_dbl_kind, 2.09964031418036_dbl_kind, 2.10078467345719_dbl_kind, 2.10382528691396_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,754) = (/ 2.09402786442686_dbl_kind, 2.09573593738125_dbl_kind, 2.09695192236909_dbl_kind, 2.09809392007131_dbl_kind, 2.10112817273755_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,755) = (/ 2.09135259528771_dbl_kind, 2.09305699007091_dbl_kind, 2.09427040633989_dbl_kind, 2.09541004627862_dbl_kind, 2.09843796056333_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,756) = (/ 2.0886841514964_dbl_kind, 2.09038488146198_dbl_kind, 2.09159573976241_dbl_kind, 2.09273302574259_dbl_kind, 2.09575462394435_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,757) = (/ 2.0860225069752_dbl_kind, 2.08771958540715_dbl_kind, 2.08892789644029_dbl_kind, 2.09006283226095_dbl_kind, 2.0930781365686_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,758) = (/ 2.08336763577905_dbl_kind, 2.08506107589215_dbl_kind, 2.08626685031035_dbl_kind, 2.08739943976491_dbl_kind, 2.09040847225815_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,759) = (/ 2.08071951209473_dbl_kind, 2.08240932703489_dbl_kind, 2.08361257544171_dbl_kind, 2.08474282231824_dbl_kind, 2.08774560496829_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,760) = (/ 2.07807811024003_dbl_kind, 2.07976431308465_dbl_kind, 2.080965046035_dbl_kind, 2.08209295411646_dbl_kind, 2.08508950878668_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,761) = (/ 2.07544340466291_dbl_kind, 2.07712600842122_dbl_kind, 2.07832423642146_dbl_kind, 2.07944980948601_dbl_kind, 2.08244015793254_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,762) = (/ 2.07281536994068_dbl_kind, 2.07449438755408_dbl_kind, 2.07569012106219_dbl_kind, 2.0768133628834_dbl_kind, 2.07979752675578_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,763) = (/ 2.07019398077918_dbl_kind, 2.07186942512161_dbl_kind, 2.07306267454726_dbl_kind, 2.07418358889442_dbl_kind, 2.07716158973618_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,764) = (/ 2.067579212012_dbl_kind, 2.06925109589026_dbl_kind, 2.07044187159498_dbl_kind, 2.07156046223328_dbl_kind, 2.07453232148259_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,765) = (/ 2.06497103859961_dbl_kind, 2.06663937475371_dbl_kind, 2.06782768705102_dbl_kind, 2.06894395774183_dbl_kind, 2.07190969673211_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,766) = (/ 2.06236943562862_dbl_kind, 2.06403423673213_dbl_kind, 2.06522009588767_dbl_kind, 2.06633405038874_dbl_kind, 2.06929369034925_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,767) = (/ 2.05977437831096_dbl_kind, 2.06143565697135_dbl_kind, 2.06261907320298_dbl_kind, 2.0637307152687_dbl_kind, 2.06668427732516_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,768) = (/ 2.05718584198311_dbl_kind, 2.05884361074209_dbl_kind, 2.06002459422005_dbl_kind, 2.06113392760167_dbl_kind, 2.06408143277685_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,769) = (/ 2.05460380210527_dbl_kind, 2.05625807343916_dbl_kind, 2.05743663428619_dbl_kind, 2.058543662732_dbl_kind, 2.06148513194634_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,770) = (/ 2.05202823426067_dbl_kind, 2.05367902058068_dbl_kind, 2.05485516887217_dbl_kind, 2.05595989612776_dbl_kind, 2.05889535019993_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,771) = (/ 2.04945911415473_dbl_kind, 2.05110642780734_dbl_kind, 2.05228017357145_dbl_kind, 2.05338260337989_dbl_kind, 2.0563120630274_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,772) = (/ 2.04689641761431_dbl_kind, 2.04854027088163_dbl_kind, 2.04971162409941_dbl_kind, 2.05081176020144_dbl_kind, 2.05373524604124_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,773) = (/ 2.04434012058698_dbl_kind, 2.04598052568703_dbl_kind, 2.04714949629259_dbl_kind, 2.04824734242683_dbl_kind, 2.05116487497587_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,774) = (/ 2.04179019914022_dbl_kind, 2.04342716822734_dbl_kind, 2.04459376610793_dbl_kind, 2.0456893260111_dbl_kind, 2.04860092568693_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,775) = (/ 2.03924662946075_dbl_kind, 2.04088017462585_dbl_kind, 2.04204440962207_dbl_kind, 2.04313768702912_dbl_kind, 2.04604337415044_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,776) = (/ 2.03670938785369_dbl_kind, 2.03833952112468_dbl_kind, 2.03950140303052_dbl_kind, 2.04059240167486_dbl_kind, 2.04349219646212_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,777) = (/ 2.0341784507419_dbl_kind, 2.03580518408396_dbl_kind, 2.03696472264703_dbl_kind, 2.03805344626068_dbl_kind, 2.04094736883665_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,778) = (/ 2.03165379466524_dbl_kind, 2.03327713998116_dbl_kind, 2.03443434490276_dbl_kind, 2.03552079721654_dbl_kind, 2.03840886760685_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,779) = (/ 2.02913539627979_dbl_kind, 2.03075536541035_dbl_kind, 2.03191024634564_dbl_kind, 2.0329944310893_dbl_kind, 2.03587666922304_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,780) = (/ 2.02662323235721_dbl_kind, 2.02823983708146_dbl_kind, 2.02939240363959_dbl_kind, 2.03047432454202_dbl_kind, 2.03335075025226_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,781) = (/ 2.02411727978398_dbl_kind, 2.02573053181958_dbl_kind, 2.02688079356382_dbl_kind, 2.0279604543532_dbl_kind, 2.03083108737758_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,782) = (/ 2.02161751556068_dbl_kind, 2.02322742656427_dbl_kind, 2.02437539301216_dbl_kind, 2.02545279741608_dbl_kind, 2.02831765739735_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,783) = (/ 2.01912391680132_dbl_kind, 2.02073049836881_dbl_kind, 2.02187617899228_dbl_kind, 2.02295133073794_dbl_kind, 2.02581043722449_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,784) = (/ 2.01663646073264_dbl_kind, 2.01823972439956_dbl_kind, 2.01938312862508_dbl_kind, 2.0204560314394_dbl_kind, 2.02330940388584_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,785) = (/ 2.01415512469338_dbl_kind, 2.01575508193519_dbl_kind, 2.01689621914393_dbl_kind, 2.01796687675368_dbl_kind, 2.02081453452138_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,786) = (/ 2.01167988613363_dbl_kind, 2.01327654836607_dbl_kind, 2.014415427894_dbl_kind, 2.01548384402599_dbl_kind, 2.01832580638359_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,787) = (/ 2.00921072261414_dbl_kind, 2.01080410119354_dbl_kind, 2.01194073233159_dbl_kind, 2.01300691071275_dbl_kind, 2.01584319683673_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,788) = (/ 2.00674761180562_dbl_kind, 2.00833771802923_dbl_kind, 2.00947211002345_dbl_kind, 2.01053605438098_dbl_kind, 2.01336668335617_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,789) = (/ 2.0042905314881_dbl_kind, 2.00587737659442_dbl_kind, 2.00700953864607_dbl_kind, 2.00807125270759_dbl_kind, 2.01089624352771_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,790) = (/ 2.00183945955023_dbl_kind, 2.00342305471934_dbl_kind, 2.00455299598508_dbl_kind, 2.00561248347871_dbl_kind, 2.00843185504689_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,791) = (/ 1.99939437398865_dbl_kind, 2.0009747303425_dbl_kind, 2.00210245993451_dbl_kind, 2.00315972458901_dbl_kind, 2.00597349571834_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,792) = (/ 1.99695525290731_dbl_kind, 1.99853238151008_dbl_kind, 1.9996579084962_dbl_kind, 2.00071295404107_dbl_kind, 2.00352114345509_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,793) = (/ 1.99452207451681_dbl_kind, 1.99609598637522_dbl_kind, 1.99721931977909_dbl_kind, 1.9982721499447_dbl_kind, 2.00107477627794_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,794) = (/ 1.99209481713377_dbl_kind, 1.99366552319738_dbl_kind, 1.99478667199862_dbl_kind, 1.99583729051629_dbl_kind, 1.99863437231475_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,795) = (/ 1.98967345918018_dbl_kind, 1.99124097034175_dbl_kind, 1.99235994347603_dbl_kind, 1.99340835407817_dbl_kind, 1.99619990979988_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,796) = (/ 1.98725797918277_dbl_kind, 1.98882230627852_dbl_kind, 1.98993911263777_dbl_kind, 1.99098531905796_dbl_kind, 1.99377136707344_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,797) = (/ 1.98484835577234_dbl_kind, 1.98640950958234_dbl_kind, 1.98752415801486_dbl_kind, 1.98856816398792_dbl_kind, 1.99134872258073_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,798) = (/ 1.98244456768319_dbl_kind, 1.9840025589316_dbl_kind, 1.98511505824222_dbl_kind, 1.98615686750433_dbl_kind, 1.98893195487155_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,799) = (/ 1.98004659375243_dbl_kind, 1.98160143310787_dbl_kind, 1.98271179205807_dbl_kind, 1.98375140834688_dbl_kind, 1.98652104259959_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,800) = (/ 1.9776544129194_dbl_kind, 1.97920611099525_dbl_kind, 1.98031433830333_dbl_kind, 1.981351765358_dbl_kind, 1.98411596452181_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,801) = (/ 1.97526800422505_dbl_kind, 1.97681657157975_dbl_kind, 1.97792267592097_dbl_kind, 1.97895791748227_dbl_kind, 1.98171669949781_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,802) = (/ 1.97288734681133_dbl_kind, 1.9744327939487_dbl_kind, 1.97553678395541_dbl_kind, 1.97656984376581_dbl_kind, 1.97932322648919_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,803) = (/ 1.97051241992054_dbl_kind, 1.97205475729011_dbl_kind, 1.97315664155189_dbl_kind, 1.97418752335564_dbl_kind, 1.97693552455897_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,804) = (/ 1.96814320289481_dbl_kind, 1.96968244089208_dbl_kind, 1.97078222795593_dbl_kind, 1.97181093549911_dbl_kind, 1.97455357287097_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,805) = (/ 1.9657796751754_dbl_kind, 1.96731582414222_dbl_kind, 1.96841352251265_dbl_kind, 1.96944005954324_dbl_kind, 1.97217735068917_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,806) = (/ 1.96342181630221_dbl_kind, 1.96495488652702_dbl_kind, 1.96605050466623_dbl_kind, 1.96707487493421_dbl_kind, 1.96980683737715_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,807) = (/ 1.96106960591311_dbl_kind, 1.96259960763128_dbl_kind, 1.9636931539593_dbl_kind, 1.96471536121668_dbl_kind, 1.96744201239751_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,808) = (/ 1.95872302374338_dbl_kind, 1.96024996713753_dbl_kind, 1.96134145003235_dbl_kind, 1.96236149803324_dbl_kind, 1.96508285531122_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,809) = (/ 1.95638204962514_dbl_kind, 1.95790594482542_dbl_kind, 1.95899537262316_dbl_kind, 1.96001326512384_dbl_kind, 1.96272934577705_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,810) = (/ 1.95404666348678_dbl_kind, 1.95556752057117_dbl_kind, 1.9566549015662_dbl_kind, 1.95767064232516_dbl_kind, 1.96038146355104_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,811) = (/ 1.95171684535234_dbl_kind, 1.95323467434697_dbl_kind, 1.9543200167921_dbl_kind, 1.9553336095701_dbl_kind, 1.95803918848583_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,812) = (/ 1.94939257534099_dbl_kind, 1.95090738622044_dbl_kind, 1.95199069832701_dbl_kind, 1.95300214688714_dbl_kind, 1.95570250053016_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,813) = (/ 1.94707383366645_dbl_kind, 1.94858563635404_dbl_kind, 1.9496669262921_dbl_kind, 1.95067623439981_dbl_kind, 1.95337137972827_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,814) = (/ 1.94476060063641_dbl_kind, 1.94626940500452_dbl_kind, 1.94734868090297_dbl_kind, 1.94835585232612_dbl_kind, 1.95104580621931_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,815) = (/ 1.94245285665201_dbl_kind, 1.94395867252233_dbl_kind, 1.9450359424691_dbl_kind, 1.946040980978_dbl_kind, 1.94872576023682_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,816) = (/ 1.94015058220725_dbl_kind, 1.94165341935114_dbl_kind, 1.94272869139328_dbl_kind, 1.94373160076073_dbl_kind, 1.94641122210814_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,817) = (/ 1.93785375788845_dbl_kind, 1.9393536260272_dbl_kind, 1.94042690817106_dbl_kind, 1.94142769217241_dbl_kind, 1.94410217225388_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,818) = (/ 1.93556236437374_dbl_kind, 1.93705927317887_dbl_kind, 1.93813057339023_dbl_kind, 1.93912923580337_dbl_kind, 1.94179859118734_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,819) = (/ 1.93327638243245_dbl_kind, 1.934770341526_dbl_kind, 1.93583966773027_dbl_kind, 1.9368362123357_dbl_kind, 1.93950045951397_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,820) = (/ 1.93099579292464_dbl_kind, 1.93248681187949_dbl_kind, 1.93355417196178_dbl_kind, 1.93454860254262_dbl_kind, 1.93720775793085_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,821) = (/ 1.92872057680054_dbl_kind, 1.93020866514065_dbl_kind, 1.93127406694598_dbl_kind, 1.932266387288_dbl_kind, 1.93492046722611_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,822) = (/ 1.9264507151_dbl_kind, 1.92793588230075_dbl_kind, 1.92899933363416_dbl_kind, 1.92998954752583_dbl_kind, 1.93263856827845_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,823) = (/ 1.924186188952_dbl_kind, 1.92566844444046_dbl_kind, 1.92672995306719_dbl_kind, 1.92771806429966_dbl_kind, 1.93036204205652_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,824) = (/ 1.9219269795741_dbl_kind, 1.9234063327293_dbl_kind, 1.92446590637492_dbl_kind, 1.92545191874207_dbl_kind, 1.92809086961852_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,825) = (/ 1.91967306827193_dbl_kind, 1.92114952842519_dbl_kind, 1.92220717477573_dbl_kind, 1.92319109207419_dbl_kind, 1.92582503211153_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,826) = (/ 1.91742443643867_dbl_kind, 1.91889801287385_dbl_kind, 1.91995373957601_dbl_kind, 1.92093556560514_dbl_kind, 1.92356451077109_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,827) = (/ 1.91518106555457_dbl_kind, 1.91665176750837_dbl_kind, 1.91770558216958_dbl_kind, 1.91868532073155_dbl_kind, 1.92130928692069_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,828) = (/ 1.91294293718639_dbl_kind, 1.91441077384862_dbl_kind, 1.91546268403728_dbl_kind, 1.91644033893702_dbl_kind, 1.91905934197114_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,829) = (/ 1.91071003298692_dbl_kind, 1.9121750135008_dbl_kind, 1.91322502674638_dbl_kind, 1.91420060179163_dbl_kind, 1.91681465742021_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,830) = (/ 1.90848233469451_dbl_kind, 1.90994446815695_dbl_kind, 1.91099259195012_dbl_kind, 1.91196609095141_dbl_kind, 1.91457521485202_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,831) = (/ 1.90625982413251_dbl_kind, 1.90771911959437_dbl_kind, 1.9087653613872_dbl_kind, 1.90973678815788_dbl_kind, 1.91234099593658_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,832) = (/ 1.90404248320884_dbl_kind, 1.90549894967522_dbl_kind, 1.90654331688129_dbl_kind, 1.90751267523752_dbl_kind, 1.91011198242927_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,833) = (/ 1.90183029391543_dbl_kind, 1.90328394034598_dbl_kind, 1.90432644034054_dbl_kind, 1.90529373410131_dbl_kind, 1.90788815617035_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,834) = (/ 1.89962323832782_dbl_kind, 1.90107407363695_dbl_kind, 1.90211471375709_dbl_kind, 1.90307994674419_dbl_kind, 1.9056694990845_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,835) = (/ 1.89742129860459_dbl_kind, 1.89886933166181_dbl_kind, 1.89990811920657_dbl_kind, 1.90087129524463_dbl_kind, 1.90345599318029_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,836) = (/ 1.89522445698693_dbl_kind, 1.89666969661709_dbl_kind, 1.89770663884763_dbl_kind, 1.89866776176409_dbl_kind, 1.90124762054968_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,837) = (/ 1.89303269579816_dbl_kind, 1.89447515078172_dbl_kind, 1.89551025492149_dbl_kind, 1.89646932854659_dbl_kind, 1.89904436336761_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,838) = (/ 1.89084599744323_dbl_kind, 1.89228567651656_dbl_kind, 1.89331894975141_dbl_kind, 1.89427597791821_dbl_kind, 1.89684620389145_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,839) = (/ 1.8886643444083_dbl_kind, 1.8901012562639_dbl_kind, 1.89113270574226_dbl_kind, 1.89208769228661_dbl_kind, 1.89465312446055_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,840) = (/ 1.88648771926019_dbl_kind, 1.88792187254704_dbl_kind, 1.88895150538004_dbl_kind, 1.88990445414059_dbl_kind, 1.89246510749578_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,841) = (/ 1.88431610464601_dbl_kind, 1.88574750796976_dbl_kind, 1.88677533123141_dbl_kind, 1.88772624604958_dbl_kind, 1.89028213549904_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,842) = (/ 1.88214948329264_dbl_kind, 1.88357814521591_dbl_kind, 1.88460416594322_dbl_kind, 1.88555305066321_dbl_kind, 1.88810419105281_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,843) = (/ 1.87998783800629_dbl_kind, 1.88141376704893_dbl_kind, 1.88243799224209_dbl_kind, 1.88338485071084_dbl_kind, 1.88593125681967_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,844) = (/ 1.87783115167204_dbl_kind, 1.87925435631141_dbl_kind, 1.88027679293391_dbl_kind, 1.88122162900111_dbl_kind, 1.88376331554187_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,845) = (/ 1.87567940725338_dbl_kind, 1.8770998959246_dbl_kind, 1.8781205509034_dbl_kind, 1.87906336842146_dbl_kind, 1.88160035004084_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,846) = (/ 1.87353258779181_dbl_kind, 1.87495036888802_dbl_kind, 1.87596924911368_dbl_kind, 1.87691005193771_dbl_kind, 1.87944234321675_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,847) = (/ 1.87139067640633_dbl_kind, 1.87280575827896_dbl_kind, 1.8738228706058_dbl_kind, 1.8747616625936_dbl_kind, 1.87728927804808_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,848) = (/ 1.86925365629303_dbl_kind, 1.87066604725206_dbl_kind, 1.87168139849832_dbl_kind, 1.87261818351035_dbl_kind, 1.87514113759114_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,849) = (/ 1.86712151072466_dbl_kind, 1.86853121903887_dbl_kind, 1.86954481598683_dbl_kind, 1.8704795978862_dbl_kind, 1.87299790497964_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,850) = (/ 1.86499422305018_dbl_kind, 1.8664012569474_dbl_kind, 1.86741310634356_dbl_kind, 1.868345888996_dbl_kind, 1.87085956342428_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,851) = (/ 1.86287177669432_dbl_kind, 1.86427614436171_dbl_kind, 1.86528625291693_dbl_kind, 1.86621704019075_dbl_kind, 1.86872609621223_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,852) = (/ 1.86075415515718_dbl_kind, 1.86215586474147_dbl_kind, 1.86316423913108_dbl_kind, 1.86409303489718_dbl_kind, 1.8665974867068_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,853) = (/ 1.85864134201375_dbl_kind, 1.8600404016215_dbl_kind, 1.86104704848551_dbl_kind, 1.86197385661732_dbl_kind, 1.86447371834694_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,854) = (/ 1.85653332091355_dbl_kind, 1.8579297386114_dbl_kind, 1.85893466455461_dbl_kind, 1.85985948892808_dbl_kind, 1.8623547746468_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,855) = (/ 1.85443007558017_dbl_kind, 1.85582385939508_dbl_kind, 1.85682707098724_dbl_kind, 1.8577499154808_dbl_kind, 1.86024063919538_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,856) = (/ 1.85233158981084_dbl_kind, 1.85372274773037_dbl_kind, 1.85472425150632_dbl_kind, 1.85564512000086_dbl_kind, 1.85813129565602_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,857) = (/ 1.85023784747606_dbl_kind, 1.85162638744859_dbl_kind, 1.85262618990841_dbl_kind, 1.85354508628725_dbl_kind, 1.85602672776604_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,858) = (/ 1.84814883251914_dbl_kind, 1.84953476245412_dbl_kind, 1.85053287006329_dbl_kind, 1.85144979821213_dbl_kind, 1.85392691933628_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,859) = (/ 1.84606452895583_dbl_kind, 1.84744785672404_dbl_kind, 1.84844427591357_dbl_kind, 1.84935923972048_dbl_kind, 1.85183185425075_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,860) = (/ 1.84398492087386_dbl_kind, 1.84536565430767_dbl_kind, 1.84636039147426_dbl_kind, 1.84727339482962_dbl_kind, 1.84974151646612_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,861) = (/ 1.84190999243261_dbl_kind, 1.84328813932617_dbl_kind, 1.84428120083237_dbl_kind, 1.84519224762885_dbl_kind, 1.8476558900114_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,862) = (/ 1.83983972786265_dbl_kind, 1.84121529597219_dbl_kind, 1.8422066881465_dbl_kind, 1.84311578227902_dbl_kind, 1.8455749589875_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,863) = (/ 1.83777411146534_dbl_kind, 1.83914710850939_dbl_kind, 1.84013683764645_dbl_kind, 1.84104398301217_dbl_kind, 1.84349870756681_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,864) = (/ 1.83571312761249_dbl_kind, 1.83708356127209_dbl_kind, 1.83807163363284_dbl_kind, 1.83897683413106_dbl_kind, 1.84142711999284_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,865) = (/ 1.83365676074589_dbl_kind, 1.8350246386649_dbl_kind, 1.83601106047666_dbl_kind, 1.83691432000884_dbl_kind, 1.83936018057977_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,866) = (/ 1.83160499537698_dbl_kind, 1.83297032516225_dbl_kind, 1.83395510261894_dbl_kind, 1.83485642508863_dbl_kind, 1.83729787371211_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,867) = (/ 1.82955781608645_dbl_kind, 1.83092060530808_dbl_kind, 1.83190374457033_dbl_kind, 1.83280313388312_dbl_kind, 1.83524018384427_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,868) = (/ 1.8275152075238_dbl_kind, 1.8288754637154_dbl_kind, 1.82985697091069_dbl_kind, 1.83075443097422_dbl_kind, 1.83318709550016_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,869) = (/ 1.82547715440705_dbl_kind, 1.82683488506593_dbl_kind, 1.82781476628877_dbl_kind, 1.82871030101261_dbl_kind, 1.83113859327286_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,870) = (/ 1.82344364152229_dbl_kind, 1.82479885410973_dbl_kind, 1.82577711542175_dbl_kind, 1.82667072871743_dbl_kind, 1.82909466182418_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,871) = (/ 1.8214146537233_dbl_kind, 1.82276735566477_dbl_kind, 1.82374400309492_dbl_kind, 1.82463569887585_dbl_kind, 1.82705528588429_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,872) = (/ 1.81939017593124_dbl_kind, 1.8207403746166_dbl_kind, 1.82171541416129_dbl_kind, 1.82260519634271_dbl_kind, 1.82502045025135_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,873) = (/ 1.81737019313419_dbl_kind, 1.81871789591799_dbl_kind, 1.8196913335412_dbl_kind, 1.82057920604014_dbl_kind, 1.82299013979114_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,874) = (/ 1.81535469038685_dbl_kind, 1.8166999045885_dbl_kind, 1.81767174622194_dbl_kind, 1.81855771295719_dbl_kind, 1.82096433943666_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,875) = (/ 1.81334365281014_dbl_kind, 1.81468638571414_dbl_kind, 1.81565663725743_dbl_kind, 1.81654070214947_dbl_kind, 1.81894303418779_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,876) = (/ 1.81133706559083_dbl_kind, 1.81267732444703_dbl_kind, 1.81364599176778_dbl_kind, 1.81452815873876_dbl_kind, 1.81692620911088_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,877) = (/ 1.8093349139812_dbl_kind, 1.81067270600498_dbl_kind, 1.81163979493901_dbl_kind, 1.81252006791267_dbl_kind, 1.81491384933843_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,878) = (/ 1.80733718329865_dbl_kind, 1.80867251567118_dbl_kind, 1.8096380320226_dbl_kind, 1.81051641492424_dbl_kind, 1.81290594006869_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,879) = (/ 1.80534385892536_dbl_kind, 1.80667673879382_dbl_kind, 1.8076406883352_dbl_kind, 1.80851718509163_dbl_kind, 1.8109024665653_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,880) = (/ 1.80335492630794_dbl_kind, 1.80468536078571_dbl_kind, 1.80564774925823_dbl_kind, 1.80652236379772_dbl_kind, 1.80890341415695_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,881) = (/ 1.80137037095707_dbl_kind, 1.80269836712398_dbl_kind, 1.80365920023756_dbl_kind, 1.80453193648979_dbl_kind, 1.80690876823702_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,882) = (/ 1.79939017844712_dbl_kind, 1.80071574334966_dbl_kind, 1.80167502678312_dbl_kind, 1.80254588867912_dbl_kind, 1.8049185142632_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,883) = (/ 1.79741433441586_dbl_kind, 1.79873747506738_dbl_kind, 1.79969521446858_dbl_kind, 1.80056420594067_dbl_kind, 1.80293263775715_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,884) = (/ 1.79544282456405_dbl_kind, 1.79676354794502_dbl_kind, 1.79771974893097_dbl_kind, 1.79858687391276_dbl_kind, 1.80095112430418_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,885) = (/ 1.79347563465515_dbl_kind, 1.79479394771332_dbl_kind, 1.79574861587038_dbl_kind, 1.79661387829665_dbl_kind, 1.79897395955284_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,886) = (/ 1.79151275051493_dbl_kind, 1.7928286601656_dbl_kind, 1.79378180104957_dbl_kind, 1.79464520485626_dbl_kind, 1.79700112921464_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,887) = (/ 1.78955415803119_dbl_kind, 1.79086767115735_dbl_kind, 1.79181929029365_dbl_kind, 1.79268083941779_dbl_kind, 1.79503261906366_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,888) = (/ 1.78759984315334_dbl_kind, 1.78891096660596_dbl_kind, 1.78986106948975_dbl_kind, 1.79072076786942_dbl_kind, 1.79306841493621_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,889) = (/ 1.78564979189215_dbl_kind, 1.78695853249034_dbl_kind, 1.78790712458667_dbl_kind, 1.78876497616092_dbl_kind, 1.79110850273054_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,890) = (/ 1.78370399031934_dbl_kind, 1.78501035485059_dbl_kind, 1.78595744159453_dbl_kind, 1.78681345030336_dbl_kind, 1.78915286840644_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,891) = (/ 1.78176242456734_dbl_kind, 1.78306641978767_dbl_kind, 1.78401200658448_dbl_kind, 1.78486617636875_dbl_kind, 1.78720149798495_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,892) = (/ 1.77982508082884_dbl_kind, 1.78112671346309_dbl_kind, 1.78207080568833_dbl_kind, 1.78292314048974_dbl_kind, 1.78525437754799_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,893) = (/ 1.77789194535659_dbl_kind, 1.77919122209856_dbl_kind, 1.78013382509824_dbl_kind, 1.78098432885924_dbl_kind, 1.78331149323807_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,894) = (/ 1.77596300446298_dbl_kind, 1.77725993197566_dbl_kind, 1.7782010510664_dbl_kind, 1.77904972773015_dbl_kind, 1.78137283125794_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,895) = (/ 1.77403824451976_dbl_kind, 1.77533282943553_dbl_kind, 1.77627246990467_dbl_kind, 1.777119323415_dbl_kind, 1.77943837787026_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,896) = (/ 1.77211765195772_dbl_kind, 1.77340990087856_dbl_kind, 1.77434806798431_dbl_kind, 1.77519310228564_dbl_kind, 1.77750811939727_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,897) = (/ 1.77020121326637_dbl_kind, 1.77149113276404_dbl_kind, 1.77242783173563_dbl_kind, 1.77327105077292_dbl_kind, 1.77558204222052_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,898) = (/ 1.7682889149936_dbl_kind, 1.76957651160986_dbl_kind, 1.77051174764767_dbl_kind, 1.77135315536636_dbl_kind, 1.77366013278046_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,899) = (/ 1.7663807437454_dbl_kind, 1.76766602399219_dbl_kind, 1.7685998022679_dbl_kind, 1.76943940261385_dbl_kind, 1.77174237757622_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,900) = (/ 1.76447668618553_dbl_kind, 1.76575965654518_dbl_kind, 1.76669198220189_dbl_kind, 1.76752977912134_dbl_kind, 1.76982876316522_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,901) = (/ 1.76257672903519_dbl_kind, 1.76385739596062_dbl_kind, 1.764788274113_dbl_kind, 1.7656242715525_dbl_kind, 1.76791927616289_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,902) = (/ 1.76068085907277_dbl_kind, 1.76195922898767_dbl_kind, 1.76288866472209_dbl_kind, 1.76372286662845_dbl_kind, 1.76601390324235_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,903) = (/ 1.75878906313349_dbl_kind, 1.76006514243252_dbl_kind, 1.76099314080721_dbl_kind, 1.7618255511274_dbl_kind, 1.76411263113412_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,904) = (/ 1.7569013281091_dbl_kind, 1.75817512315808_dbl_kind, 1.75910168920324_dbl_kind, 1.75993231188441_dbl_kind, 1.76221544662577_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,905) = (/ 1.75501764094762_dbl_kind, 1.75628915808373_dbl_kind, 1.75721429680168_dbl_kind, 1.75804313579103_dbl_kind, 1.76032233656166_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,906) = (/ 1.75313798865297_dbl_kind, 1.75440723418494_dbl_kind, 1.75533095055025_dbl_kind, 1.75615800979501_dbl_kind, 1.75843328784261_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,907) = (/ 1.75126235828476_dbl_kind, 1.75252933849303_dbl_kind, 1.75345163745269_dbl_kind, 1.75427692090004_dbl_kind, 1.7565482874256_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,908) = (/ 1.74939073695792_dbl_kind, 1.75065545809487_dbl_kind, 1.75157634456836_dbl_kind, 1.75239985616539_dbl_kind, 1.75466732232347_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,909) = (/ 1.74752311184242_dbl_kind, 1.74878558013254_dbl_kind, 1.74970505901203_dbl_kind, 1.75052680270565_dbl_kind, 1.75279037960466_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,910) = (/ 1.74565947016302_dbl_kind, 1.74691969180307_dbl_kind, 1.74783776795352_dbl_kind, 1.74865774769046_dbl_kind, 1.75091744639285_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,911) = (/ 1.74379979919892_dbl_kind, 1.74505778035816_dbl_kind, 1.74597445861747_dbl_kind, 1.74679267834415_dbl_kind, 1.74904850986671_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,912) = (/ 1.74194408628352_dbl_kind, 1.74319983310386_dbl_kind, 1.74411511828299_dbl_kind, 1.74493158194551_dbl_kind, 1.74718355725959_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,913) = (/ 1.74009231880409_dbl_kind, 1.74134583740029_dbl_kind, 1.74225973428341_dbl_kind, 1.74307444582747_dbl_kind, 1.74532257585924_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,914) = (/ 1.73824448420154_dbl_kind, 1.73949578066136_dbl_kind, 1.74040829400599_dbl_kind, 1.74122125737682_dbl_kind, 1.74346555300752_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,915) = (/ 1.73640056997006_dbl_kind, 1.73764965035449_dbl_kind, 1.73856078489161_dbl_kind, 1.73937200403394_dbl_kind, 1.74161247610011_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,916) = (/ 1.73456056365692_dbl_kind, 1.73580743400032_dbl_kind, 1.73671719443451_dbl_kind, 1.73752667329249_dbl_kind, 1.73976333258622_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,917) = (/ 1.73272445286214_dbl_kind, 1.73396911917241_dbl_kind, 1.734877510182_dbl_kind, 1.73568525269915_dbl_kind, 1.73791810996831_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,918) = (/ 1.7308922252382_dbl_kind, 1.73213469349701_dbl_kind, 1.7330417197342_dbl_kind, 1.73384772985333_dbl_kind, 1.73607679580184_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,919) = (/ 1.72906386848984_dbl_kind, 1.73030414465274_dbl_kind, 1.73120981074373_dbl_kind, 1.73201409240692_dbl_kind, 1.73423937769493_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,920) = (/ 1.72723937037368_dbl_kind, 1.72847746037033_dbl_kind, 1.72938177091546_dbl_kind, 1.73018432806393_dbl_kind, 1.73240584330813_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,921) = (/ 1.72541871869802_dbl_kind, 1.72665462843232_dbl_kind, 1.7275575880062_dbl_kind, 1.72835842458035_dbl_kind, 1.73057618035414_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,922) = (/ 1.72360190132257_dbl_kind, 1.72483563667284_dbl_kind, 1.72573724982448_dbl_kind, 1.72653636976374_dbl_kind, 1.7287503765975_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,923) = (/ 1.72178890615813_dbl_kind, 1.72302047297731_dbl_kind, 1.72392074423024_dbl_kind, 1.72471815147306_dbl_kind, 1.72692841985437_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,924) = (/ 1.71997972116637_dbl_kind, 1.72120912528216_dbl_kind, 1.72210805913458_dbl_kind, 1.72290375761835_dbl_kind, 1.72511029799223_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,925) = (/ 1.71817433435954_dbl_kind, 1.71940158157458_dbl_kind, 1.72029918249948_dbl_kind, 1.72109317616047_dbl_kind, 1.72329599892959_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,926) = (/ 1.71637273380021_dbl_kind, 1.71759782989225_dbl_kind, 1.71849410233754_dbl_kind, 1.71928639511086_dbl_kind, 1.72148551063578_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,927) = (/ 1.71457490760101_dbl_kind, 1.71579785832306_dbl_kind, 1.71669280671171_dbl_kind, 1.71748340253123_dbl_kind, 1.71967882113063_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,928) = (/ 1.71278084392439_dbl_kind, 1.7140016550049_dbl_kind, 1.71489528373505_dbl_kind, 1.71568418653334_dbl_kind, 1.71787591848424_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,929) = (/ 1.7109905309823_dbl_kind, 1.71220920812533_dbl_kind, 1.71310152157043_dbl_kind, 1.71388873527873_dbl_kind, 1.7160767908167_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,930) = (/ 1.709203957036_dbl_kind, 1.71042050592137_dbl_kind, 1.71131150843031_dbl_kind, 1.71209703697842_dbl_kind, 1.71428142629783_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,931) = (/ 1.70742111039578_dbl_kind, 1.70863553667922_dbl_kind, 1.70952523257646_dbl_kind, 1.71030907989273_dbl_kind, 1.71248981314694_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,932) = (/ 1.70564197942067_dbl_kind, 1.70685428873403_dbl_kind, 1.70774268231972_dbl_kind, 1.70852485233095_dbl_kind, 1.71070193963255_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,933) = (/ 1.70386655251825_dbl_kind, 1.7050767504696_dbl_kind, 1.70596384601971_dbl_kind, 1.70674434265114_dbl_kind, 1.70891779407216_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,934) = (/ 1.70209481814436_dbl_kind, 1.70330291031819_dbl_kind, 1.70418871208463_dbl_kind, 1.70496753925982_dbl_kind, 1.70713736483197_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,935) = (/ 1.70032676480283_dbl_kind, 1.70153275676019_dbl_kind, 1.70241726897096_dbl_kind, 1.70319443061179_dbl_kind, 1.70536064032661_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,936) = (/ 1.69856238104531_dbl_kind, 1.69976627832397_dbl_kind, 1.70064950518324_dbl_kind, 1.70142500520982_dbl_kind, 1.70358760901897_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,937) = (/ 1.69680165547092_dbl_kind, 1.69800346358553_dbl_kind, 1.69888540927384_dbl_kind, 1.69965925160443_dbl_kind, 1.70181825941985_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,938) = (/ 1.6950445767261_dbl_kind, 1.69624430116834_dbl_kind, 1.69712496984264_dbl_kind, 1.69789715839364_dbl_kind, 1.7000525800878_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,939) = (/ 1.69329113350429_dbl_kind, 1.69448877974302_dbl_kind, 1.69536817553687_dbl_kind, 1.69613871422272_dbl_kind, 1.6982905596288_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,940) = (/ 1.69154131454575_dbl_kind, 1.69273688802716_dbl_kind, 1.6936150150508_dbl_kind, 1.69438390778397_dbl_kind, 1.69653218669608_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,941) = (/ 1.68979510863727_dbl_kind, 1.69098861478506_dbl_kind, 1.69186547712555_dbl_kind, 1.69263272781644_dbl_kind, 1.69477744998981_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,942) = (/ 1.68805250461195_dbl_kind, 1.68924394882745_dbl_kind, 1.69011955054883_dbl_kind, 1.69088516310571_dbl_kind, 1.69302633825693_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,943) = (/ 1.686313491349_dbl_kind, 1.68750287901132_dbl_kind, 1.68837722415467_dbl_kind, 1.68914120248365_dbl_kind, 1.69127884029085_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,944) = (/ 1.68457805777343_dbl_kind, 1.68576539423963_dbl_kind, 1.68663848682323_dbl_kind, 1.68740083482819_dbl_kind, 1.68953494493125_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,945) = (/ 1.68284619285586_dbl_kind, 1.68403148346108_dbl_kind, 1.68490332748054_dbl_kind, 1.68566404906307_dbl_kind, 1.68779464106382_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,946) = (/ 1.68111788561231_dbl_kind, 1.6823011356699_dbl_kind, 1.68317173509828_dbl_kind, 1.68393083415762_dbl_kind, 1.68605791762004_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,947) = (/ 1.67939312510389_dbl_kind, 1.68057433990562_dbl_kind, 1.68144369869351_dbl_kind, 1.68220117912651_dbl_kind, 1.68432476357693_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,948) = (/ 1.67767190043667_dbl_kind, 1.67885108525278_dbl_kind, 1.67971920732848_dbl_kind, 1.68047507302952_dbl_kind, 1.68259516795683_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,949) = (/ 1.67595420076136_dbl_kind, 1.6771313608408_dbl_kind, 1.6779982501104_dbl_kind, 1.67875250497135_dbl_kind, 1.68086911982718_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,950) = (/ 1.67424001527314_dbl_kind, 1.67541515584364_dbl_kind, 1.67628081619116_dbl_kind, 1.67703346410133_dbl_kind, 1.67914660830024_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,951) = (/ 1.67252933321142_dbl_kind, 1.67370245947966_dbl_kind, 1.67456689476717_dbl_kind, 1.67531793961322_dbl_kind, 1.67742762253294_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,952) = (/ 1.67082214385961_dbl_kind, 1.67199326101136_dbl_kind, 1.67285647507909_dbl_kind, 1.67360592074501_dbl_kind, 1.67571215172656_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,953) = (/ 1.66911843654488_dbl_kind, 1.67028754974515_dbl_kind, 1.6711495464116_dbl_kind, 1.67189739677864_dbl_kind, 1.6740001851266_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,954) = (/ 1.66741820063797_dbl_kind, 1.66858531503112_dbl_kind, 1.66944609809323_dbl_kind, 1.67019235703985_dbl_kind, 1.67229171202249_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,955) = (/ 1.66572142555297_dbl_kind, 1.66688654626286_dbl_kind, 1.66774611949606_dbl_kind, 1.66849079089786_dbl_kind, 1.67058672174736_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,956) = (/ 1.66402810074706_dbl_kind, 1.66519123287721_dbl_kind, 1.66604960003557_dbl_kind, 1.66679268776526_dbl_kind, 1.66888520367789_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,957) = (/ 1.66233821572033_dbl_kind, 1.66349936435402_dbl_kind, 1.66435652917038_dbl_kind, 1.66509803709771_dbl_kind, 1.66718714723403_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,958) = (/ 1.66065176001556_dbl_kind, 1.66181093021597_dbl_kind, 1.66266689640206_dbl_kind, 1.66340682839375_dbl_kind, 1.66549254187877_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,959) = (/ 1.65896872321797_dbl_kind, 1.66012592002836_dbl_kind, 1.66098069127486_dbl_kind, 1.66171905119459_dbl_kind, 1.66380137711797_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,960) = (/ 1.65728909495507_dbl_kind, 1.65844432339884_dbl_kind, 1.65929790337557_dbl_kind, 1.66003469508387_dbl_kind, 1.66211364250014_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,961) = (/ 1.65561286489639_dbl_kind, 1.65676612997725_dbl_kind, 1.65761852233325_dbl_kind, 1.6583537496875_dbl_kind, 1.66042932761616_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,962) = (/ 1.65394002275327_dbl_kind, 1.65509132945539_dbl_kind, 1.65594253781904_dbl_kind, 1.65667620467337_dbl_kind, 1.65874842209916_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,963) = (/ 1.6522705582787_dbl_kind, 1.65341991156681_dbl_kind, 1.65426993954594_dbl_kind, 1.65500204975121_dbl_kind, 1.65707091562422_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,964) = (/ 1.65060446126707_dbl_kind, 1.65175186608659_dbl_kind, 1.65260071726859_dbl_kind, 1.65333127467234_dbl_kind, 1.65539679790823_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,965) = (/ 1.64894172155396_dbl_kind, 1.65008718283114_dbl_kind, 1.65093486078311_dbl_kind, 1.65166386922947_dbl_kind, 1.65372605870964_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,966) = (/ 1.64728232901596_dbl_kind, 1.648425851658_dbl_kind, 1.64927235992682_dbl_kind, 1.6499998232565_dbl_kind, 1.65205868782827_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,967) = (/ 1.64562627357045_dbl_kind, 1.64676786246562_dbl_kind, 1.64761320457809_dbl_kind, 1.6483391266283_dbl_kind, 1.65039467510507_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,968) = (/ 1.64397354517538_dbl_kind, 1.64511320519318_dbl_kind, 1.64595738465611_dbl_kind, 1.64668176926051_dbl_kind, 1.64873401042197_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,969) = (/ 1.6423241338291_dbl_kind, 1.64346186982033_dbl_kind, 1.64430489012069_dbl_kind, 1.64502774110937_dbl_kind, 1.64707668370162_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,970) = (/ 1.64067802957014_dbl_kind, 1.64181384636706_dbl_kind, 1.64265571097206_dbl_kind, 1.64337703217145_dbl_kind, 1.64542268490722_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,971) = (/ 1.63903522247702_dbl_kind, 1.64016912489347_dbl_kind, 1.64100983725066_dbl_kind, 1.64172963248351_dbl_kind, 1.64377200404231_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,972) = (/ 1.63739570266803_dbl_kind, 1.63852769549953_dbl_kind, 1.63936725903697_dbl_kind, 1.64008553212226_dbl_kind, 1.64212463115057_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,973) = (/ 1.63575946030105_dbl_kind, 1.63688954832494_dbl_kind, 1.63772796645127_dbl_kind, 1.63844472120419_dbl_kind, 1.6404805563156_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,974) = (/ 1.63412648557335_dbl_kind, 1.63525467354892_dbl_kind, 1.63609194965345_dbl_kind, 1.63680718988535_dbl_kind, 1.63883976966075_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,975) = (/ 1.6324967687214_dbl_kind, 1.63362306138998_dbl_kind, 1.63445919884284_dbl_kind, 1.63517292836119_dbl_kind, 1.63720226134892_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,976) = (/ 1.63087030002067_dbl_kind, 1.63199470210575_dbl_kind, 1.63282970425799_dbl_kind, 1.6335419268663_dbl_kind, 1.63556802158235_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,977) = (/ 1.62924706978542_dbl_kind, 1.63036958599281_dbl_kind, 1.63120345617649_dbl_kind, 1.63191417567428_dbl_kind, 1.63393704060242_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,978) = (/ 1.62762706836855_dbl_kind, 1.62874770338644_dbl_kind, 1.62958044491476_dbl_kind, 1.6302896650975_dbl_kind, 1.63230930868948_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,979) = (/ 1.62601028616137_dbl_kind, 1.62712904466048_dbl_kind, 1.62796066082788_dbl_kind, 1.62866838548697_dbl_kind, 1.63068481616262_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,980) = (/ 1.62439671359342_dbl_kind, 1.6255136002271_dbl_kind, 1.62634409430938_dbl_kind, 1.62705032723206_dbl_kind, 1.62906355337954_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,981) = (/ 1.6227863411323_dbl_kind, 1.62390136053666_dbl_kind, 1.62473073579105_dbl_kind, 1.6254354807604_dbl_kind, 1.62744551073628_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,982) = (/ 1.62117915928345_dbl_kind, 1.62229231607745_dbl_kind, 1.62312057574278_dbl_kind, 1.62382383653762_dbl_kind, 1.62583067866711_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,983) = (/ 1.61957515859001_dbl_kind, 1.62068645737559_dbl_kind, 1.62151360467233_dbl_kind, 1.62221538506722_dbl_kind, 1.62421904764426_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,984) = (/ 1.61797432963259_dbl_kind, 1.61908377499476_dbl_kind, 1.61990981312517_dbl_kind, 1.62061011689034_dbl_kind, 1.62261060817783_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,985) = (/ 1.6163766630291_dbl_kind, 1.61748425953608_dbl_kind, 1.61830919168431_dbl_kind, 1.61900802258561_dbl_kind, 1.62100535081551_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,986) = (/ 1.61478214943457_dbl_kind, 1.61588790163788_dbl_kind, 1.61671173097006_dbl_kind, 1.61740909276893_dbl_kind, 1.61940326614245_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,987) = (/ 1.61319077954098_dbl_kind, 1.61429469197555_dbl_kind, 1.6151174216399_dbl_kind, 1.61581331809332_dbl_kind, 1.61780434478105_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,988) = (/ 1.61160254407707_dbl_kind, 1.61270462126135_dbl_kind, 1.61352625438829_dbl_kind, 1.61422068924872_dbl_kind, 1.61620857739082_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,989) = (/ 1.61001743380813_dbl_kind, 1.61111768024421_dbl_kind, 1.61193821994647_dbl_kind, 1.61263119696182_dbl_kind, 1.61461595466814_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,990) = (/ 1.6084354395359_dbl_kind, 1.60953385970957_dbl_kind, 1.61035330908228_dbl_kind, 1.61104483199587_dbl_kind, 1.61302646734612_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,991) = (/ 1.60685655209828_dbl_kind, 1.6079531504792_dbl_kind, 1.60877151260001_dbl_kind, 1.6094615851505_dbl_kind, 1.6114401061944_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,992) = (/ 1.60528076236927_dbl_kind, 1.60637554341104_dbl_kind, 1.60719282134018_dbl_kind, 1.60788144726156_dbl_kind, 1.60985686201898_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,993) = (/ 1.60370806125871_dbl_kind, 1.60480102939895_dbl_kind, 1.60561722617941_dbl_kind, 1.60630440920093_dbl_kind, 1.60827672566206_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,994) = (/ 1.60213843971213_dbl_kind, 1.60322959937265_dbl_kind, 1.6040447180302_dbl_kind, 1.60473046187634_dbl_kind, 1.60669968800182_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,995) = (/ 1.60057188871062_dbl_kind, 1.60166124429745_dbl_kind, 1.60247528784078_dbl_kind, 1.60315959623121_dbl_kind, 1.60512573995228_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,996) = (/ 1.59900839927057_dbl_kind, 1.6000959551741_dbl_kind, 1.60090892659495_dbl_kind, 1.60159180324447_dbl_kind, 1.60355487246315_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,997) = (/ 1.59744796244358_dbl_kind, 1.59853372303866_dbl_kind, 1.59934562531186_dbl_kind, 1.60002707393038_dbl_kind, 1.60198707651955_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,998) = (/ 1.59589056931625_dbl_kind, 1.59697453896228_dbl_kind, 1.59778537504589_dbl_kind, 1.59846539933838_dbl_kind, 1.60042234314199_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,999) = (/ 1.59433621101002_dbl_kind, 1.59541839405105_dbl_kind, 1.59622816688645_dbl_kind, 1.59690677055288_dbl_kind, 1.59886066338606_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1000) = (/ 1.592784878681_dbl_kind, 1.59386527944582_dbl_kind, 1.59467399195782_dbl_kind, 1.59535117869314_dbl_kind, 1.59730202834236_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1001) = (/ 1.59123656351978_dbl_kind, 1.59231518632205_dbl_kind, 1.59312284141897_dbl_kind, 1.59379861491308_dbl_kind, 1.59574642913628_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1002) = (/ 1.58969125675133_dbl_kind, 1.59076810588963_dbl_kind, 1.5915747064634_dbl_kind, 1.59224907040108_dbl_kind, 1.59419385692782_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1003) = (/ 1.58814894963475_dbl_kind, 1.58922402939272_dbl_kind, 1.59002957831899_dbl_kind, 1.59070253637988_dbl_kind, 1.59264430291149_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1004) = (/ 1.58660963346318_dbl_kind, 1.58768294810958_dbl_kind, 1.58848744824782_dbl_kind, 1.58915900410636_dbl_kind, 1.59109775831604_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1005) = (/ 1.58507329956356_dbl_kind, 1.58614485335239_dbl_kind, 1.58694830754597_dbl_kind, 1.5876184648714_dbl_kind, 1.58955421440442_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1006) = (/ 1.58353993929655_dbl_kind, 1.58460973646712_dbl_kind, 1.58541214754343_dbl_kind, 1.58608090999971_dbl_kind, 1.58801366247349_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1007) = (/ 1.5820095440563_dbl_kind, 1.58307758883336_dbl_kind, 1.58387895960388_dbl_kind, 1.58454633084967_dbl_kind, 1.58647609385397_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1008) = (/ 1.58048210527034_dbl_kind, 1.58154840186412_dbl_kind, 1.58234873512454_dbl_kind, 1.58301471881316_dbl_kind, 1.58494149991017_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1009) = (/ 1.57895761439938_dbl_kind, 1.58002216700573_dbl_kind, 1.58082146553603_dbl_kind, 1.58148606531542_dbl_kind, 1.58340987203993_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1010) = (/ 1.57743606293718_dbl_kind, 1.57849887573762_dbl_kind, 1.57929714230218_dbl_kind, 1.57996036181486_dbl_kind, 1.58188120167438_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1011) = (/ 1.57591744241037_dbl_kind, 1.57697851957222_dbl_kind, 1.57777575691989_dbl_kind, 1.57843759980294_dbl_kind, 1.58035548027783_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1012) = (/ 1.57440174437832_dbl_kind, 1.57546109005475_dbl_kind, 1.57625730091897_dbl_kind, 1.57691777080398_dbl_kind, 1.57883269934759_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1013) = (/ 1.57288896043294_dbl_kind, 1.5739465787631_dbl_kind, 1.57474176586197_dbl_kind, 1.575400866375_dbl_kind, 1.5773128504138_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1014) = (/ 1.57137908219858_dbl_kind, 1.57243497730765_dbl_kind, 1.57322914334406_dbl_kind, 1.57388687810559_dbl_kind, 1.57579592503933_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1015) = (/ 1.56987210133184_dbl_kind, 1.57092627733113_dbl_kind, 1.57171942499281_dbl_kind, 1.57237579761775_dbl_kind, 1.57428191481953_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1016) = (/ 1.56836800952141_dbl_kind, 1.56942047050845_dbl_kind, 1.57021260246811_dbl_kind, 1.57086761656572_dbl_kind, 1.57277081138218_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1017) = (/ 1.56686679848795_dbl_kind, 1.56791754854659_dbl_kind, 1.56870866746194_dbl_kind, 1.56936232663583_dbl_kind, 1.57126260638724_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1018) = (/ 1.5653684599839_dbl_kind, 1.56641750318438_dbl_kind, 1.5672076116983_dbl_kind, 1.56785991954635_dbl_kind, 1.56975729152676_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1019) = (/ 1.56387298579339_dbl_kind, 1.56492032619239_dbl_kind, 1.56570942693299_dbl_kind, 1.56636038704736_dbl_kind, 1.56825485852473_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1020) = (/ 1.56238036773199_dbl_kind, 1.56342600937279_dbl_kind, 1.56421410495348_dbl_kind, 1.56486372092055_dbl_kind, 1.56675529913687_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1021) = (/ 1.56089059764667_dbl_kind, 1.56193454455917_dbl_kind, 1.56272163757878_dbl_kind, 1.56336991297914_dbl_kind, 1.56525860515053_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1022) = (/ 1.55940366741559_dbl_kind, 1.56044592361641_dbl_kind, 1.56123201665927_dbl_kind, 1.56187895506766_dbl_kind, 1.56376476838454_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1023) = (/ 1.55791956894794_dbl_kind, 1.55896013844051_dbl_kind, 1.55974523407654_dbl_kind, 1.56039083906184_dbl_kind, 1.56227378068904_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1024) = (/ 1.55643829418385_dbl_kind, 1.55747718095848_dbl_kind, 1.55826128174328_dbl_kind, 1.55890555686846_dbl_kind, 1.56078563394534_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1025) = (/ 1.55495983509419_dbl_kind, 1.55599704312818_dbl_kind, 1.5567801516031_dbl_kind, 1.5574231004252_dbl_kind, 1.55930032006575_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1026) = (/ 1.55348418368047_dbl_kind, 1.55451971693813_dbl_kind, 1.55530183563039_dbl_kind, 1.55594346170049_dbl_kind, 1.5578178309935_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1027) = (/ 1.55201133197464_dbl_kind, 1.55304519440743_dbl_kind, 1.55382632583021_dbl_kind, 1.55446663269337_dbl_kind, 1.55633815870251_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1028) = (/ 1.55054127203902_dbl_kind, 1.55157346758559_dbl_kind, 1.55235361423807_dbl_kind, 1.55299260543334_dbl_kind, 1.55486129519733_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1029) = (/ 1.54907399596609_dbl_kind, 1.55010452855237_dbl_kind, 1.55088369291987_dbl_kind, 1.55152137198023_dbl_kind, 1.5533872325129_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1030) = (/ 1.54760949587838_dbl_kind, 1.54863836941767_dbl_kind, 1.54941655397171_dbl_kind, 1.55005292442406_dbl_kind, 1.5519159627145_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1031) = (/ 1.54614776392833_dbl_kind, 1.54717498232136_dbl_kind, 1.54795218951974_dbl_kind, 1.54858725488486_dbl_kind, 1.55044747789755_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1032) = (/ 1.54468879229815_dbl_kind, 1.54571435943315_dbl_kind, 1.54649059172007_dbl_kind, 1.54712435551259_dbl_kind, 1.54898177018749_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1033) = (/ 1.54323257319966_dbl_kind, 1.54425649295246_dbl_kind, 1.54503175275856_dbl_kind, 1.54566421848693_dbl_kind, 1.54751883173964_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1034) = (/ 1.54177909887419_dbl_kind, 1.54280137510827_dbl_kind, 1.54357566485076_dbl_kind, 1.54420683601721_dbl_kind, 1.54605865473904_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1035) = (/ 1.54032836159241_dbl_kind, 1.54134899815898_dbl_kind, 1.54212232024169_dbl_kind, 1.54275220034223_dbl_kind, 1.54460123140033_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1036) = (/ 1.53888035365419_dbl_kind, 1.53989935439228_dbl_kind, 1.54067171120575_dbl_kind, 1.54130030373014_dbl_kind, 1.54314655396763_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1037) = (/ 1.53743506738849_dbl_kind, 1.538452436125_dbl_kind, 1.53922383004659_dbl_kind, 1.53985113847827_dbl_kind, 1.54169461471436_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1038) = (/ 1.53599249515322_dbl_kind, 1.53700823570301_dbl_kind, 1.53777866909695_dbl_kind, 1.53840469691305_dbl_kind, 1.54024540594311_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1039) = (/ 1.53455262933508_dbl_kind, 1.53556674550102_dbl_kind, 1.53633622071852_dbl_kind, 1.53696097138982_dbl_kind, 1.53879891998557_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1040) = (/ 1.53311546234945_dbl_kind, 1.53412795792252_dbl_kind, 1.53489647730183_dbl_kind, 1.53551995429275_dbl_kind, 1.53735514920228_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1041) = (/ 1.53168098664026_dbl_kind, 1.53269186539958_dbl_kind, 1.53345943126609_dbl_kind, 1.53408163803466_dbl_kind, 1.5359140859826_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1042) = (/ 1.53024919467983_dbl_kind, 1.53125846039278_dbl_kind, 1.53202507505909_dbl_kind, 1.53264601505688_dbl_kind, 1.53447572274452_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1043) = (/ 1.52882007896876_dbl_kind, 1.52982773539103_dbl_kind, 1.53059340115702_dbl_kind, 1.53121307782919_dbl_kind, 1.53304005193455_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1044) = (/ 1.52739363203582_dbl_kind, 1.52839968291144_dbl_kind, 1.5291644020644_dbl_kind, 1.52978281884959_dbl_kind, 1.53160706602756_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1045) = (/ 1.52596984643777_dbl_kind, 1.52697429549922_dbl_kind, 1.52773807031387_dbl_kind, 1.52835523064426_dbl_kind, 1.5301767575267_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1046) = (/ 1.52454871475925_dbl_kind, 1.52555156572753_dbl_kind, 1.52631439846615_dbl_kind, 1.52693030576737_dbl_kind, 1.5287491189632_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1047) = (/ 1.52313022961268_dbl_kind, 1.52413148619736_dbl_kind, 1.52489337910984_dbl_kind, 1.52550803680097_dbl_kind, 1.52732414289632_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1048) = (/ 1.5217143836381_dbl_kind, 1.52271404953739_dbl_kind, 1.5234750048613_dbl_kind, 1.52408841635486_dbl_kind, 1.52590182191315_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1049) = (/ 1.52030116950305_dbl_kind, 1.52129924840387_dbl_kind, 1.52205926836456_dbl_kind, 1.52267143706647_dbl_kind, 1.52448214862851_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1050) = (/ 1.51889057990245_dbl_kind, 1.51988707548048_dbl_kind, 1.52064616229118_dbl_kind, 1.52125709160073_dbl_kind, 1.52306511568483_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1051) = (/ 1.51748260755846_dbl_kind, 1.51847752347823_dbl_kind, 1.51923567934008_dbl_kind, 1.51984537264992_dbl_kind, 1.52165071575203_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1052) = (/ 1.51607724522039_dbl_kind, 1.51707058513531_dbl_kind, 1.51782781223747_dbl_kind, 1.51843627293359_dbl_kind, 1.52023894152735_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1053) = (/ 1.51467448566452_dbl_kind, 1.51566625321698_dbl_kind, 1.5164225537367_dbl_kind, 1.51702978519838_dbl_kind, 1.51882978573527_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1054) = (/ 1.51327432169402_dbl_kind, 1.51426452051544_dbl_kind, 1.51501989661812_dbl_kind, 1.51562590221796_dbl_kind, 1.51742324112737_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1055) = (/ 1.51187674613882_dbl_kind, 1.5128653798497_dbl_kind, 1.513619833689_dbl_kind, 1.51422461679285_dbl_kind, 1.5160193004822_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1056) = (/ 1.51048175185548_dbl_kind, 1.51146882406547_dbl_kind, 1.51222235778335_dbl_kind, 1.51282592175032_dbl_kind, 1.51461795660517_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1057) = (/ 1.50908933172705_dbl_kind, 1.51007484603502_dbl_kind, 1.51082746176186_dbl_kind, 1.51142980994426_dbl_kind, 1.51321920232839_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1058) = (/ 1.507699478663_dbl_kind, 1.50868343865708_dbl_kind, 1.50943513851171_dbl_kind, 1.51003627425508_dbl_kind, 1.51182303051062_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1059) = (/ 1.50631218559904_dbl_kind, 1.50729459485672_dbl_kind, 1.50804538094651_dbl_kind, 1.50864530758956_dbl_kind, 1.51042943403706_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1060) = (/ 1.50492744549705_dbl_kind, 1.50590830758519_dbl_kind, 1.50665818200614_dbl_kind, 1.50725690288076_dbl_kind, 1.5090384058193_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1061) = (/ 1.50354525134493_dbl_kind, 1.50452456981984_dbl_kind, 1.50527353465664_dbl_kind, 1.50587105308786_dbl_kind, 1.50764993879516_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1062) = (/ 1.50216559615649_dbl_kind, 1.50314337456402_dbl_kind, 1.50389143189013_dbl_kind, 1.50448775119609_dbl_kind, 1.5062640259286_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1063) = (/ 1.50078847297134_dbl_kind, 1.50176471484688_dbl_kind, 1.5025118667246_dbl_kind, 1.50310699021657_dbl_kind, 1.50488066020958_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1064) = (/ 1.49941387485477_dbl_kind, 1.50038858372334_dbl_kind, 1.50113483220388_dbl_kind, 1.50172876318622_dbl_kind, 1.50349983465393_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1065) = (/ 1.4980417948976_dbl_kind, 1.49901497427394_dbl_kind, 1.4997603213975_dbl_kind, 1.50035306316762_dbl_kind, 1.50212154230326_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1066) = (/ 1.49667222621615_dbl_kind, 1.4976438796047_dbl_kind, 1.49838832740054_dbl_kind, 1.49897988324891_dbl_kind, 1.50074577622484_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1067) = (/ 1.49530516195201_dbl_kind, 1.49627529284703_dbl_kind, 1.49701884333354_dbl_kind, 1.49760921654368_dbl_kind, 1.49937252951147_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1068) = (/ 1.49394059527203_dbl_kind, 1.49490920715763_dbl_kind, 1.4956518623424_dbl_kind, 1.49624105619084_dbl_kind, 1.49800179528137_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1069) = (/ 1.49257851936814_dbl_kind, 1.49354561571834_dbl_kind, 1.49428737759824_dbl_kind, 1.49487539535449_dbl_kind, 1.49663356667806_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1070) = (/ 1.49121892745727_dbl_kind, 1.49218451173604_dbl_kind, 1.49292538229729_dbl_kind, 1.49351222722387_dbl_kind, 1.49526783687026_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1071) = (/ 1.4898618127812_dbl_kind, 1.49082588844256_dbl_kind, 1.49156586966077_dbl_kind, 1.49215154501316_dbl_kind, 1.49390459905178_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1072) = (/ 1.4885071686065_dbl_kind, 1.48946973909452_dbl_kind, 1.49020883293481_dbl_kind, 1.49079334196144_dbl_kind, 1.49254384644135_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1073) = (/ 1.48715498822438_dbl_kind, 1.48811605697326_dbl_kind, 1.4888542653903_dbl_kind, 1.48943761133253_dbl_kind, 1.4911855722826_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1074) = (/ 1.48580526495059_dbl_kind, 1.48676483538471_dbl_kind, 1.48750216032279_dbl_kind, 1.48808434641492_dbl_kind, 1.48982976984387_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1075) = (/ 1.48445799212532_dbl_kind, 1.4854160676593_dbl_kind, 1.48615251105241_dbl_kind, 1.48673354052162_dbl_kind, 1.48847643241815_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1076) = (/ 1.48311316311308_dbl_kind, 1.48406974715181_dbl_kind, 1.48480531092369_dbl_kind, 1.48538518699007_dbl_kind, 1.48712555332294_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1077) = (/ 1.48177077130258_dbl_kind, 1.48272586724129_dbl_kind, 1.48346055330552_dbl_kind, 1.48403927918203_dbl_kind, 1.48577712590013_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1078) = (/ 1.48043081010664_dbl_kind, 1.48138442133095_dbl_kind, 1.48211823159101_dbl_kind, 1.48269581048347_dbl_kind, 1.48443114351594_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1079) = (/ 1.47909327296208_dbl_kind, 1.48004540284805_dbl_kind, 1.48077833919738_dbl_kind, 1.48135477430446_dbl_kind, 1.48308759956076_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1080) = (/ 1.47775815332961_dbl_kind, 1.47870880524378_dbl_kind, 1.47944086956586_dbl_kind, 1.48001616407906_dbl_kind, 1.48174648744905_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1081) = (/ 1.47642544469371_dbl_kind, 1.47737462199317_dbl_kind, 1.47810581616157_dbl_kind, 1.47867997326522_dbl_kind, 1.48040780061929_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1082) = (/ 1.47509514056255_dbl_kind, 1.47604284659497_dbl_kind, 1.47677317247343_dbl_kind, 1.47734619534466_dbl_kind, 1.47907153253377_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1083) = (/ 1.47376723446787_dbl_kind, 1.47471347257155_dbl_kind, 1.47544293201404_dbl_kind, 1.47601482382277_dbl_kind, 1.47773767667859_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1084) = (/ 1.47244171996487_dbl_kind, 1.4733864934688_dbl_kind, 1.47411508831959_dbl_kind, 1.47468585222854_dbl_kind, 1.47640622656346_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1085) = (/ 1.4711185906321_dbl_kind, 1.47206190285601_dbl_kind, 1.47278963494973_dbl_kind, 1.47335927411439_dbl_kind, 1.47507717572167_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1086) = (/ 1.4697978400714_dbl_kind, 1.47073969432578_dbl_kind, 1.4714665654875_dbl_kind, 1.4720350830561_dbl_kind, 1.47375051770995_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1087) = (/ 1.46847946190772_dbl_kind, 1.46941986149391_dbl_kind, 1.47014587353918_dbl_kind, 1.47071327265271_dbl_kind, 1.47242624610835_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1088) = (/ 1.4671634497891_dbl_kind, 1.46810239799931_dbl_kind, 1.46882755273424_dbl_kind, 1.46939383652643_dbl_kind, 1.47110435452019_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1089) = (/ 1.46584979738652_dbl_kind, 1.46678729750387_dbl_kind, 1.46751159672519_dbl_kind, 1.46807676832249_dbl_kind, 1.46978483657189_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1090) = (/ 1.4645384983938_dbl_kind, 1.46547455369238_dbl_kind, 1.46619799918751_dbl_kind, 1.46676206170908_dbl_kind, 1.46846768591292_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1091) = (/ 1.4632295465275_dbl_kind, 1.46416416027243_dbl_kind, 1.46488675381952_dbl_kind, 1.46544971037724_dbl_kind, 1.46715289621567_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1092) = (/ 1.46192293552684_dbl_kind, 1.46285611097429_dbl_kind, 1.46357785434232_dbl_kind, 1.46413970804075_dbl_kind, 1.46584046117537_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1093) = (/ 1.46061865915359_dbl_kind, 1.46155039955082_dbl_kind, 1.46227129449963_dbl_kind, 1.46283204843602_dbl_kind, 1.46453037450996_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1094) = (/ 1.45931671119196_dbl_kind, 1.46024701977738_dbl_kind, 1.46096706805776_dbl_kind, 1.46152672532203_dbl_kind, 1.46322262996001_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1095) = (/ 1.45801708544849_dbl_kind, 1.45894596545172_dbl_kind, 1.45966516880544_dbl_kind, 1.46022373248018_dbl_kind, 1.46191722128863_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1096) = (/ 1.45671977575201_dbl_kind, 1.45764723039389_dbl_kind, 1.45836559055378_dbl_kind, 1.45892306371424_dbl_kind, 1.46061414228134_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1097) = (/ 1.45542477595347_dbl_kind, 1.45635080844612_dbl_kind, 1.45706832713613_dbl_kind, 1.45762471285021_dbl_kind, 1.459313386746_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1098) = (/ 1.45413207992587_dbl_kind, 1.45505669347274_dbl_kind, 1.45577337240801_dbl_kind, 1.45632867373624_dbl_kind, 1.45801494851268_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1099) = (/ 1.4528416815642_dbl_kind, 1.4537648793601_dbl_kind, 1.454480720247_dbl_kind, 1.45503494024254_dbl_kind, 1.45671882143361_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1100) = (/ 1.45155357478529_dbl_kind, 1.45247536001643_dbl_kind, 1.45319036455263_dbl_kind, 1.45374350626128_dbl_kind, 1.45542499938303_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1101) = (/ 1.45026775352773_dbl_kind, 1.45118812937177_dbl_kind, 1.4519022992463_dbl_kind, 1.45245436570647_dbl_kind, 1.45413347625715_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1102) = (/ 1.4489842117518_dbl_kind, 1.4499031813779_dbl_kind, 1.45061651827121_dbl_kind, 1.45116751251389_dbl_kind, 1.45284424597398_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1103) = (/ 1.44770294343933_dbl_kind, 1.44862051000817_dbl_kind, 1.44933301559219_dbl_kind, 1.44988294064102_dbl_kind, 1.45155730247331_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1104) = (/ 1.44642394259366_dbl_kind, 1.44734010925749_dbl_kind, 1.44805178519569_dbl_kind, 1.44860064406687_dbl_kind, 1.45027263971656_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1105) = (/ 1.44514720323949_dbl_kind, 1.44606197314218_dbl_kind, 1.44677282108962_dbl_kind, 1.44732061679195_dbl_kind, 1.44899025168673_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1106) = (/ 1.44387271942284_dbl_kind, 1.44478609569991_dbl_kind, 1.44549611730329_dbl_kind, 1.44604285283815_dbl_kind, 1.44771013238826_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1107) = (/ 1.44260048521091_dbl_kind, 1.44351247098957_dbl_kind, 1.44422166788733_dbl_kind, 1.44476734624867_dbl_kind, 1.44643227584696_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1108) = (/ 1.44133049469203_dbl_kind, 1.44224109309121_dbl_kind, 1.44294946691353_dbl_kind, 1.44349409108789_dbl_kind, 1.44515667610994_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1109) = (/ 1.44006274197552_dbl_kind, 1.44097195610594_dbl_kind, 1.44167950847484_dbl_kind, 1.44222308144131_dbl_kind, 1.44388332724546_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1110) = (/ 1.43879722119166_dbl_kind, 1.43970505415583_dbl_kind, 1.44041178668521_dbl_kind, 1.44095431141543_dbl_kind, 1.44261222334291_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1111) = (/ 1.43753392649153_dbl_kind, 1.43844038138382_dbl_kind, 1.43914629567951_dbl_kind, 1.43968777513769_dbl_kind, 1.44134335851263_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1112) = (/ 1.43627285204698_dbl_kind, 1.43717793195364_dbl_kind, 1.43788302961347_dbl_kind, 1.43842346675637_dbl_kind, 1.44007672688591_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1113) = (/ 1.43501399205051_dbl_kind, 1.43591770004971_dbl_kind, 1.43662198266356_dbl_kind, 1.43716138044047_dbl_kind, 1.43881232261485_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1114) = (/ 1.43375734071518_dbl_kind, 1.43465967987704_dbl_kind, 1.43536314902691_dbl_kind, 1.43590151037966_dbl_kind, 1.43755013987225_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1115) = (/ 1.43250289227454_dbl_kind, 1.43340386566119_dbl_kind, 1.4341065229212_dbl_kind, 1.43464385078418_dbl_kind, 1.43629017285157_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1116) = (/ 1.4312506409825_dbl_kind, 1.4321502516481_dbl_kind, 1.43285209858462_dbl_kind, 1.43338839588473_dbl_kind, 1.43503241576683_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1117) = (/ 1.4300005811133_dbl_kind, 1.43089883210407_dbl_kind, 1.43159987027573_dbl_kind, 1.43213513993242_dbl_kind, 1.43377686285248_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1118) = (/ 1.42875270696138_dbl_kind, 1.42964960131566_dbl_kind, 1.43034983227341_dbl_kind, 1.43088407719863_dbl_kind, 1.43252350836336_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1119) = (/ 1.42750701284131_dbl_kind, 1.42840255358957_dbl_kind, 1.42910197887672_dbl_kind, 1.42963520197496_dbl_kind, 1.4312723465746_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1120) = (/ 1.42626349308769_dbl_kind, 1.42715768325257_dbl_kind, 1.4278563044049_dbl_kind, 1.42838850857316_dbl_kind, 1.43002337178148_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1121) = (/ 1.42502214205508_dbl_kind, 1.42591498465145_dbl_kind, 1.42661280319719_dbl_kind, 1.427143991325_dbl_kind, 1.42877657829946_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1122) = (/ 1.42378295411791_dbl_kind, 1.42467445215286_dbl_kind, 1.42537146961279_dbl_kind, 1.42590164458219_dbl_kind, 1.42753196046396_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1123) = (/ 1.42254592367039_dbl_kind, 1.42343608014331_dbl_kind, 1.42413229803079_dbl_kind, 1.42466146271632_dbl_kind, 1.42628951263037_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1124) = (/ 1.42131104512641_dbl_kind, 1.42219986302899_dbl_kind, 1.42289528285003_dbl_kind, 1.42342344011876_dbl_kind, 1.42504922917392_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1125) = (/ 1.4200783129195_dbl_kind, 1.4209657952358_dbl_kind, 1.42166041848909_dbl_kind, 1.42218757120059_dbl_kind, 1.42381110448961_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1126) = (/ 1.4188477215027_dbl_kind, 1.41973387120914_dbl_kind, 1.42042769938613_dbl_kind, 1.42095385039247_dbl_kind, 1.4225751329921_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1127) = (/ 1.4176192653485_dbl_kind, 1.41850408541392_dbl_kind, 1.41919711999884_dbl_kind, 1.41972227214461_dbl_kind, 1.42134130911568_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1128) = (/ 1.41639293894876_dbl_kind, 1.41727643233444_dbl_kind, 1.41796867480438_dbl_kind, 1.41849283092667_dbl_kind, 1.42010962731414_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1129) = (/ 1.41516873681461_dbl_kind, 1.41605090647432_dbl_kind, 1.41674235829926_dbl_kind, 1.41726552122766_dbl_kind, 1.41888008206067_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1130) = (/ 1.41394665347637_dbl_kind, 1.4148275023564_dbl_kind, 1.41551816499926_dbl_kind, 1.41604033755587_dbl_kind, 1.41765266784784_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1131) = (/ 1.41272668348349_dbl_kind, 1.41360621452265_dbl_kind, 1.41429608943936_dbl_kind, 1.41481727443878_dbl_kind, 1.41642737918748_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1132) = (/ 1.41150882140445_dbl_kind, 1.41238703753415_dbl_kind, 1.41307612617367_dbl_kind, 1.413596326423_dbl_kind, 1.4152042106106_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1133) = (/ 1.41029306182668_dbl_kind, 1.41116996597092_dbl_kind, 1.41185826977532_dbl_kind, 1.41237748807418_dbl_kind, 1.41398315666728_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1134) = (/ 1.40907939935649_dbl_kind, 1.40995499443191_dbl_kind, 1.4106425148364_dbl_kind, 1.41116075397689_dbl_kind, 1.41276421192666_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1135) = (/ 1.40786782861896_dbl_kind, 1.40874211753487_dbl_kind, 1.40942885596787_dbl_kind, 1.4099461187346_dbl_kind, 1.4115473709768_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1136) = (/ 1.4066583442579_dbl_kind, 1.40753132991633_dbl_kind, 1.40821728779947_dbl_kind, 1.40873357696957_dbl_kind, 1.41033262842461_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1137) = (/ 1.40545094093576_dbl_kind, 1.40632262623145_dbl_kind, 1.40700780497967_dbl_kind, 1.40752312332277_dbl_kind, 1.40911997889578_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1138) = (/ 1.40424561333353_dbl_kind, 1.40511600115398_dbl_kind, 1.40580040217556_dbl_kind, 1.40631475245378_dbl_kind, 1.40790941703471_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1139) = (/ 1.40304235615069_dbl_kind, 1.40391144937618_dbl_kind, 1.40459507407279_dbl_kind, 1.40510845904078_dbl_kind, 1.40670093750441_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1140) = (/ 1.40184116410509_dbl_kind, 1.40270896560875_dbl_kind, 1.40339181537547_dbl_kind, 1.40390423778038_dbl_kind, 1.40549453498642_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1141) = (/ 1.40064203193293_dbl_kind, 1.40150854458073_dbl_kind, 1.40219062080613_dbl_kind, 1.40270208338762_dbl_kind, 1.40429020418074_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1142) = (/ 1.39944495438863_dbl_kind, 1.40031018103941_dbl_kind, 1.40099148510561_dbl_kind, 1.40150199059584_dbl_kind, 1.40308793980578_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1143) = (/ 1.3982499262448_dbl_kind, 1.3991138697503_dbl_kind, 1.39979440303297_dbl_kind, 1.40030395415665_dbl_kind, 1.40188773659823_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1144) = (/ 1.39705694229212_dbl_kind, 1.39791960549702_dbl_kind, 1.39859936936546_dbl_kind, 1.39910796883978_dbl_kind, 1.40068958931302_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1145) = (/ 1.39586599733929_dbl_kind, 1.39672738308124_dbl_kind, 1.39740637889841_dbl_kind, 1.3979140294331_dbl_kind, 1.39949349272321_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1146) = (/ 1.39467708621294_dbl_kind, 1.39553719732259_dbl_kind, 1.39621542644515_dbl_kind, 1.39672213074247_dbl_kind, 1.39829944161996_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1147) = (/ 1.39349020375757_dbl_kind, 1.39434904305857_dbl_kind, 1.39502650683695_dbl_kind, 1.39553226759167_dbl_kind, 1.39710743081242_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1148) = (/ 1.39230534483547_dbl_kind, 1.39316291514452_dbl_kind, 1.39383961492296_dbl_kind, 1.39434443482238_dbl_kind, 1.39591745512766_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1149) = (/ 1.39112250432663_dbl_kind, 1.39197880845351_dbl_kind, 1.39265474557008_dbl_kind, 1.39315862729404_dbl_kind, 1.39472950941061_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1150) = (/ 1.38994167712868_dbl_kind, 1.39079671787628_dbl_kind, 1.39147189366295_dbl_kind, 1.39197483988382_dbl_kind, 1.39354358852394_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1151) = (/ 1.38876285815683_dbl_kind, 1.38961663832116_dbl_kind, 1.39029105410382_dbl_kind, 1.3907930674865_dbl_kind, 1.39235968734807_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1152) = (/ 1.38758604234377_dbl_kind, 1.38843856471398_dbl_kind, 1.38911222181252_dbl_kind, 1.38961330501447_dbl_kind, 1.391177800781_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1153) = (/ 1.38641122463959_dbl_kind, 1.38726249199804_dbl_kind, 1.38793539172636_dbl_kind, 1.38843554739757_dbl_kind, 1.3899979237383_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1154) = (/ 1.38523840001176_dbl_kind, 1.386088415134_dbl_kind, 1.38676055880006_dbl_kind, 1.38725978958308_dbl_kind, 1.38882005115301_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1155) = (/ 1.384067563445_dbl_kind, 1.38491632909981_dbl_kind, 1.38558771800568_dbl_kind, 1.38608602653562_dbl_kind, 1.38764417797558_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1156) = (/ 1.38289870994124_dbl_kind, 1.38374622889067_dbl_kind, 1.38441686433258_dbl_kind, 1.3849142532371_dbl_kind, 1.38647029917379_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1157) = (/ 1.38173183451952_dbl_kind, 1.3825781095189_dbl_kind, 1.38324799278727_dbl_kind, 1.3837444646866_dbl_kind, 1.38529840973268_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1158) = (/ 1.38056693221597_dbl_kind, 1.38141196601393_dbl_kind, 1.38208109839342_dbl_kind, 1.38257665590035_dbl_kind, 1.38412850465448_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1159) = (/ 1.37940399808368_dbl_kind, 1.3802477934222_dbl_kind, 1.38091617619173_dbl_kind, 1.38141082191163_dbl_kind, 1.38296057895853_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1160) = (/ 1.37824302719266_dbl_kind, 1.37908558680707_dbl_kind, 1.37975322123991_dbl_kind, 1.38024695777073_dbl_kind, 1.38179462768121_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1161) = (/ 1.37708401462979_dbl_kind, 1.3779253412488_dbl_kind, 1.37859222861256_dbl_kind, 1.37908505854483_dbl_kind, 1.38063064587589_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1162) = (/ 1.37592695549869_dbl_kind, 1.37676705184443_dbl_kind, 1.37743319340112_dbl_kind, 1.37792511931797_dbl_kind, 1.37946862861283_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1163) = (/ 1.37477184491971_dbl_kind, 1.37561071370774_dbl_kind, 1.37627611071381_dbl_kind, 1.37676713519096_dbl_kind, 1.37830857097913_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1164) = (/ 1.37361867802983_dbl_kind, 1.37445632196916_dbl_kind, 1.37512097567557_dbl_kind, 1.37561110128133_dbl_kind, 1.37715046807865_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1165) = (/ 1.3724674499826_dbl_kind, 1.37330387177573_dbl_kind, 1.37396778342794_dbl_kind, 1.37445701272324_dbl_kind, 1.37599431503195_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1166) = (/ 1.37131815594808_dbl_kind, 1.372153358291_dbl_kind, 1.37281652912904_dbl_kind, 1.37330486466742_dbl_kind, 1.3748401069762_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1167) = (/ 1.37017079111275_dbl_kind, 1.37100477669498_dbl_kind, 1.37166720795348_dbl_kind, 1.37215465228111_dbl_kind, 1.37368783906515_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1168) = (/ 1.36902535067945_dbl_kind, 1.36985812218408_dbl_kind, 1.37051981509232_dbl_kind, 1.37100637074798_dbl_kind, 1.37253750646902_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1169) = (/ 1.36788182986733_dbl_kind, 1.36871338997099_dbl_kind, 1.36937434575294_dbl_kind, 1.36986001526805_dbl_kind, 1.37138910437445_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1170) = (/ 1.36674022391176_dbl_kind, 1.36757057528471_dbl_kind, 1.36823079515905_dbl_kind, 1.36871558105767_dbl_kind, 1.37024262798444_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1171) = (/ 1.36560052806429_dbl_kind, 1.36642967337038_dbl_kind, 1.36708915855055_dbl_kind, 1.36757306334938_dbl_kind, 1.36909807251828_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1172) = (/ 1.36446273759255_dbl_kind, 1.36529067948928_dbl_kind, 1.36594943118352_dbl_kind, 1.36643245739194_dbl_kind, 1.36795543321147_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1173) = (/ 1.36332684778019_dbl_kind, 1.36415358891873_dbl_kind, 1.36481160833014_dbl_kind, 1.36529375845015_dbl_kind, 1.36681470531565_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1174) = (/ 1.36219285392686_dbl_kind, 1.36301839695206_dbl_kind, 1.36367568527858_dbl_kind, 1.36415696180488_dbl_kind, 1.36567588409856_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1175) = (/ 1.36106075134808_dbl_kind, 1.36188509889849_dbl_kind, 1.362541657333_dbl_kind, 1.36302206275295_dbl_kind, 1.36453896484397_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1176) = (/ 1.35993053537521_dbl_kind, 1.36075369008312_dbl_kind, 1.36140951981344_dbl_kind, 1.36188905660709_dbl_kind, 1.36340394285157_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1177) = (/ 1.35880220135539_dbl_kind, 1.35962416584683_dbl_kind, 1.36027926805577_dbl_kind, 1.36075793869586_dbl_kind, 1.36227081343697_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1178) = (/ 1.35767574465145_dbl_kind, 1.35849652154623_dbl_kind, 1.35915089741163_dbl_kind, 1.3596287043636_dbl_kind, 1.36113957193159_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1179) = (/ 1.35655116064187_dbl_kind, 1.35737075255359_dbl_kind, 1.35802440324835_dbl_kind, 1.35850134897034_dbl_kind, 1.3600102136826_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1180) = (/ 1.35542844472071_dbl_kind, 1.35624685425678_dbl_kind, 1.35689978094889_dbl_kind, 1.35737586789177_dbl_kind, 1.35888273405287_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1181) = (/ 1.35430759229754_dbl_kind, 1.35512482205919_dbl_kind, 1.3557770259118_dbl_kind, 1.35625225651916_dbl_kind, 1.35775712842092_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1182) = (/ 1.35318859879737_dbl_kind, 1.35400465137971_dbl_kind, 1.35465613355111_dbl_kind, 1.35513051025926_dbl_kind, 1.35663339218079_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1183) = (/ 1.35207145966061_dbl_kind, 1.35288633765261_dbl_kind, 1.35353709929633_dbl_kind, 1.35401062453432_dbl_kind, 1.35551152074207_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1184) = (/ 1.350956170343_dbl_kind, 1.35176987632752_dbl_kind, 1.3524199185923_dbl_kind, 1.35289259478195_dbl_kind, 1.35439150952975_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1185) = (/ 1.34984272631552_dbl_kind, 1.35065526286935_dbl_kind, 1.35130458689923_dbl_kind, 1.3517764164551_dbl_kind, 1.35327335398424_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1186) = (/ 1.34873112306437_dbl_kind, 1.34954249275822_dbl_kind, 1.35019109969254_dbl_kind, 1.35066208502198_dbl_kind, 1.35215704956122_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1187) = (/ 1.34762135609088_dbl_kind, 1.34843156148942_dbl_kind, 1.34907945246289_dbl_kind, 1.349549595966_dbl_kind, 1.35104259173165_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1188) = (/ 1.34651342091145_dbl_kind, 1.34732246457333_dbl_kind, 1.34796964071603_dbl_kind, 1.3484389447857_dbl_kind, 1.34992997598166_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1189) = (/ 1.34540731305752_dbl_kind, 1.34621519753537_dbl_kind, 1.34686165997279_dbl_kind, 1.34733012699473_dbl_kind, 1.34881919781253_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1190) = (/ 1.34430302807547_dbl_kind, 1.34510975591594_dbl_kind, 1.34575550576903_dbl_kind, 1.34622313812172_dbl_kind, 1.34771025274059_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1191) = (/ 1.34320056152657_dbl_kind, 1.34400613527034_dbl_kind, 1.34465117365554_dbl_kind, 1.3451179737103_dbl_kind, 1.34660313629718_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1192) = (/ 1.34209990898693_dbl_kind, 1.34290433116872_dbl_kind, 1.343548659198_dbl_kind, 1.34401462931896_dbl_kind, 1.34549784402859_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1193) = (/ 1.34100106604744_dbl_kind, 1.34180433919606_dbl_kind, 1.34244795797691_dbl_kind, 1.34291310052105_dbl_kind, 1.34439437149599_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1194) = (/ 1.33990402831369_dbl_kind, 1.34070615495203_dbl_kind, 1.34134906558755_dbl_kind, 1.34181338290468_dbl_kind, 1.34329271427538_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1195) = (/ 1.33880879140595_dbl_kind, 1.339609774051_dbl_kind, 1.3402519776399_dbl_kind, 1.34071547207269_dbl_kind, 1.34219286795751_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1196) = (/ 1.33771535095907_dbl_kind, 1.33851519212194_dbl_kind, 1.33915668975859_dbl_kind, 1.33961936364257_dbl_kind, 1.34109482814786_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1197) = (/ 1.33662370262244_dbl_kind, 1.33742240480839_dbl_kind, 1.33806319758285_dbl_kind, 1.33852505324642_dbl_kind, 1.33999859046653_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1198) = (/ 1.33553384205992_dbl_kind, 1.33633140776837_dbl_kind, 1.33697149676641_dbl_kind, 1.33743253653088_dbl_kind, 1.33890415054823_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1199) = (/ 1.33444576494981_dbl_kind, 1.33524219667437_dbl_kind, 1.3358815829775_dbl_kind, 1.33634180915705_dbl_kind, 1.33781150404217_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1200) = (/ 1.33335946698478_dbl_kind, 1.33415476721323_dbl_kind, 1.33479345189876_dbl_kind, 1.33525286680049_dbl_kind, 1.33672064661207_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1201) = (/ 1.33227494387177_dbl_kind, 1.33306911508613_dbl_kind, 1.33370709922717_dbl_kind, 1.33416570515109_dbl_kind, 1.33563157393602_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1202) = (/ 1.33119219133201_dbl_kind, 1.3319852360085_dbl_kind, 1.33262252067402_dbl_kind, 1.33308031991306_dbl_kind, 1.3345442817065_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1203) = (/ 1.33011120510089_dbl_kind, 1.33090312571001_dbl_kind, 1.33153971196483_dbl_kind, 1.33199670680489_dbl_kind, 1.33345876563026_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1204) = (/ 1.32903198092794_dbl_kind, 1.32982277993444_dbl_kind, 1.33045866883932_dbl_kind, 1.33091486155922_dbl_kind, 1.3323750214283_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1205) = (/ 1.3279545145768_dbl_kind, 1.32874419443971_dbl_kind, 1.32937938705132_dbl_kind, 1.32983477992285_dbl_kind, 1.3312930448358_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1206) = (/ 1.32687880182508_dbl_kind, 1.32766736499774_dbl_kind, 1.32830186236874_dbl_kind, 1.32875645765667_dbl_kind, 1.33021283160208_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1207) = (/ 1.3258048384644_dbl_kind, 1.32659228739445_dbl_kind, 1.3272260905735_dbl_kind, 1.32767989053556_dbl_kind, 1.3291343774905_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1208) = (/ 1.32473262030027_dbl_kind, 1.3255189574297_dbl_kind, 1.32615206746146_dbl_kind, 1.32660507434842_dbl_kind, 1.32805767827847_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1209) = (/ 1.32366214315206_dbl_kind, 1.32444737091719_dbl_kind, 1.32507978884242_dbl_kind, 1.32553200489801_dbl_kind, 1.32698272975731_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1210) = (/ 1.32259340285293_dbl_kind, 1.32337752368447_dbl_kind, 1.32400925053999_dbl_kind, 1.32446067800099_dbl_kind, 1.32590952773229_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1211) = (/ 1.32152639524981_dbl_kind, 1.32230941157282_dbl_kind, 1.32294044839158_dbl_kind, 1.3233910894878_dbl_kind, 1.3248380680225_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1212) = (/ 1.32046111620328_dbl_kind, 1.32124303043726_dbl_kind, 1.32187337824835_dbl_kind, 1.32232323520262_dbl_kind, 1.32376834646081_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1213) = (/ 1.3193975615876_dbl_kind, 1.32017837614642_dbl_kind, 1.32080803597514_dbl_kind, 1.32125711100335_dbl_kind, 1.32270035889386_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1214) = (/ 1.31833572729059_dbl_kind, 1.31911544458257_dbl_kind, 1.31974441745038_dbl_kind, 1.32019271276151_dbl_kind, 1.32163410118195_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1215) = (/ 1.31727560921358_dbl_kind, 1.31805423164149_dbl_kind, 1.31868251856612_dbl_kind, 1.31913003636221_dbl_kind, 1.32056956919901_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1216) = (/ 1.31621720327141_dbl_kind, 1.31699473323247_dbl_kind, 1.31762233522791_dbl_kind, 1.31806907770409_dbl_kind, 1.31950675883253_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1217) = (/ 1.31516050539232_dbl_kind, 1.31593694527824_dbl_kind, 1.31656386335475_dbl_kind, 1.31700983269926_dbl_kind, 1.31844566598355_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1218) = (/ 1.31410551151792_dbl_kind, 1.31488086371489_dbl_kind, 1.31550709887907_dbl_kind, 1.31595229727327_dbl_kind, 1.31738628656655_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1219) = (/ 1.31305221760314_dbl_kind, 1.31382648449185_dbl_kind, 1.31445203774666_dbl_kind, 1.31489646736502_dbl_kind, 1.31632861650944_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1220) = (/ 1.31200061961617_dbl_kind, 1.31277380357185_dbl_kind, 1.3133986759166_dbl_kind, 1.31384233892675_dbl_kind, 1.31527265175346_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1221) = (/ 1.3109507135384_dbl_kind, 1.31172281693081_dbl_kind, 1.31234700936123_dbl_kind, 1.31278990792394_dbl_kind, 1.31421838825321_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1222) = (/ 1.30990249536439_dbl_kind, 1.31067352055784_dbl_kind, 1.3112970340661_dbl_kind, 1.31173917033532_dbl_kind, 1.31316582197649_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1223) = (/ 1.30885596110182_dbl_kind, 1.30962591045518_dbl_kind, 1.31024874602989_dbl_kind, 1.31069012215273_dbl_kind, 1.31211494890433_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1224) = (/ 1.30781110677138_dbl_kind, 1.30857998263813_dbl_kind, 1.30920214126439_dbl_kind, 1.30964275938117_dbl_kind, 1.31106576503091_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1225) = (/ 1.30676792840682_dbl_kind, 1.30753573313499_dbl_kind, 1.30815721579443_dbl_kind, 1.30859707803867_dbl_kind, 1.31001826636349_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1226) = (/ 1.30572642205479_dbl_kind, 1.30649315798706_dbl_kind, 1.30711396565783_dbl_kind, 1.30755307415626_dbl_kind, 1.30897244892241_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1227) = (/ 1.30468658377487_dbl_kind, 1.30545225324854_dbl_kind, 1.30607238690536_dbl_kind, 1.30651074377795_dbl_kind, 1.30792830874096_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1228) = (/ 1.30364840963948_dbl_kind, 1.30441301498647_dbl_kind, 1.30503247560067_dbl_kind, 1.30547008296063_dbl_kind, 1.30688584186542_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1229) = (/ 1.30261189573386_dbl_kind, 1.30337543928076_dbl_kind, 1.30399422782026_dbl_kind, 1.30443108777407_dbl_kind, 1.30584504435492_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1230) = (/ 1.30157703815597_dbl_kind, 1.30233952222403_dbl_kind, 1.30295763965342_dbl_kind, 1.3033937543008_dbl_kind, 1.30480591228148_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1231) = (/ 1.3005438330165_dbl_kind, 1.30130525992165_dbl_kind, 1.30192270720217_dbl_kind, 1.30235807863616_dbl_kind, 1.30376844172988_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1232) = (/ 1.29951227643875_dbl_kind, 1.30027264849162_dbl_kind, 1.30088942658122_dbl_kind, 1.30132405688815_dbl_kind, 1.30273262879764_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1233) = (/ 1.29848236455867_dbl_kind, 1.2992416840646_dbl_kind, 1.29985779391794_dbl_kind, 1.30029168517743_dbl_kind, 1.301698469595_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1234) = (/ 1.29745409352472_dbl_kind, 1.29821236278377_dbl_kind, 1.29882780535227_dbl_kind, 1.29926095963729_dbl_kind, 1.30066596024481_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1235) = (/ 1.29642745949788_dbl_kind, 1.29718468080485_dbl_kind, 1.29779945703669_dbl_kind, 1.29823187641354_dbl_kind, 1.29963509688254_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1236) = (/ 1.2954024586516_dbl_kind, 1.29615863429604_dbl_kind, 1.29677274513619_dbl_kind, 1.29720443166452_dbl_kind, 1.2986058756562_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1237) = (/ 1.29437908717171_dbl_kind, 1.29513421943792_dbl_kind, 1.29574766582819_dbl_kind, 1.29617862156101_dbl_kind, 1.29757829272627_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1238) = (/ 1.2933573412564_dbl_kind, 1.29411143242347_dbl_kind, 1.29472421530251_dbl_kind, 1.29515444228622_dbl_kind, 1.29655234426572_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1239) = (/ 1.29233721711618_dbl_kind, 1.29309026945799_dbl_kind, 1.2937023897613_dbl_kind, 1.2941318900357_dbl_kind, 1.29552802645988_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1240) = (/ 1.29131871097381_dbl_kind, 1.29207072675904_dbl_kind, 1.29268218541904_dbl_kind, 1.29311096101733_dbl_kind, 1.29450533550645_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1241) = (/ 1.29030181906428_dbl_kind, 1.29105280055642_dbl_kind, 1.29166359850243_dbl_kind, 1.29209165145123_dbl_kind, 1.29348426761542_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1242) = (/ 1.28928653763473_dbl_kind, 1.29003648709211_dbl_kind, 1.29064662525039_dbl_kind, 1.29107395756977_dbl_kind, 1.29246481900906_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1243) = (/ 1.28827286294442_dbl_kind, 1.28902178262021_dbl_kind, 1.28963126191399_dbl_kind, 1.29005787561746_dbl_kind, 1.29144698592181_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1244) = (/ 1.28726079126469_dbl_kind, 1.2880086834069_dbl_kind, 1.28861750475641_dbl_kind, 1.28904340185094_dbl_kind, 1.2904307646003_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1245) = (/ 1.2862503188789_dbl_kind, 1.28699718573043_dbl_kind, 1.28760535005289_dbl_kind, 1.28803053253894_dbl_kind, 1.28941615130325_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1246) = (/ 1.2852414420824_dbl_kind, 1.28598728588099_dbl_kind, 1.28659479409067_dbl_kind, 1.2870192639622_dbl_kind, 1.28840314230146_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1247) = (/ 1.28423415718244_dbl_kind, 1.28497898016077_dbl_kind, 1.28558583316899_dbl_kind, 1.28600959241344_dbl_kind, 1.28739173387774_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1248) = (/ 1.28322846049819_dbl_kind, 1.28397226488383_dbl_kind, 1.28457846359898_dbl_kind, 1.28500151419735_dbl_kind, 1.28638192232688_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1249) = (/ 1.28222434836065_dbl_kind, 1.28296713637606_dbl_kind, 1.28357268170366_dbl_kind, 1.28399502563046_dbl_kind, 1.28537370395559_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1250) = (/ 1.2812218171126_dbl_kind, 1.28196359097521_dbl_kind, 1.28256848381788_dbl_kind, 1.28299012304118_dbl_kind, 1.28436707508246_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1251) = (/ 1.2802208631086_dbl_kind, 1.28096162503075_dbl_kind, 1.28156586628826_dbl_kind, 1.2819868027697_dbl_kind, 1.28336203203791_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1252) = (/ 1.27922148271488_dbl_kind, 1.27996123490387_dbl_kind, 1.28056482547318_dbl_kind, 1.28098506116797_dbl_kind, 1.28235857116416_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1253) = (/ 1.27822367230934_dbl_kind, 1.27896241696745_dbl_kind, 1.27956535774268_dbl_kind, 1.27998489459965_dbl_kind, 1.28135668881517_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1254) = (/ 1.27722742828151_dbl_kind, 1.27796516760599_dbl_kind, 1.27856745947849_dbl_kind, 1.27898629944006_dbl_kind, 1.28035638135658_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1255) = (/ 1.27623274703247_dbl_kind, 1.27696948321555_dbl_kind, 1.27757112707391_dbl_kind, 1.27798927207612_dbl_kind, 1.27935764516571_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1256) = (/ 1.27523962497483_dbl_kind, 1.27597536020375_dbl_kind, 1.2765763569338_dbl_kind, 1.27699380890636_dbl_kind, 1.27836047663146_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1257) = (/ 1.27424805853269_dbl_kind, 1.27498279498969_dbl_kind, 1.27558314547455_dbl_kind, 1.2759999063408_dbl_kind, 1.27736487215432_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1258) = (/ 1.27325804414156_dbl_kind, 1.27399178400392_dbl_kind, 1.27459148912401_dbl_kind, 1.27500756080096_dbl_kind, 1.27637082814628_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1259) = (/ 1.27226957824837_dbl_kind, 1.27300232368841_dbl_kind, 1.27360138432145_dbl_kind, 1.27401676871981_dbl_kind, 1.2753783410308_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1260) = (/ 1.27128265731139_dbl_kind, 1.27201441049646_dbl_kind, 1.27261282751753_dbl_kind, 1.2730275265417_dbl_kind, 1.2743874072428_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1261) = (/ 1.2702972778002_dbl_kind, 1.27102804089272_dbl_kind, 1.27162581517424_dbl_kind, 1.27203983072234_dbl_kind, 1.27339802322856_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1262) = (/ 1.26931343619562_dbl_kind, 1.27004321135308_dbl_kind, 1.27064034376487_dbl_kind, 1.27105367772876_dbl_kind, 1.2724101854457_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1263) = (/ 1.26833112898972_dbl_kind, 1.26905991836468_dbl_kind, 1.26965640977396_dbl_kind, 1.27006906403922_dbl_kind, 1.27142389036317_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1264) = (/ 1.26735035268572_dbl_kind, 1.26807815842585_dbl_kind, 1.26867400969725_dbl_kind, 1.26908598614325_dbl_kind, 1.27043913446114_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1265) = (/ 1.266371103798_dbl_kind, 1.26709792804607_dbl_kind, 1.26769314004166_dbl_kind, 1.26810444054152_dbl_kind, 1.26945591423102_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1266) = (/ 1.265393378852_dbl_kind, 1.26611922374589_dbl_kind, 1.26671379732521_dbl_kind, 1.26712442374587_dbl_kind, 1.26847422617538_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1267) = (/ 1.26441717438424_dbl_kind, 1.26514204205695_dbl_kind, 1.26573597807703_dbl_kind, 1.26614593227921_dbl_kind, 1.26749406680791_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1268) = (/ 1.26344248694223_dbl_kind, 1.26416637952191_dbl_kind, 1.26475967883726_dbl_kind, 1.26516896267551_dbl_kind, 1.26651543265342_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1269) = (/ 1.26246931308444_dbl_kind, 1.26319223269438_dbl_kind, 1.26378489615704_dbl_kind, 1.26419351147976_dbl_kind, 1.26553832024771_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1270) = (/ 1.26149764938028_dbl_kind, 1.26221959813893_dbl_kind, 1.26281162659847_dbl_kind, 1.2632195752479_dbl_kind, 1.26456272613764_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1271) = (/ 1.26052749241002_dbl_kind, 1.26124847243101_dbl_kind, 1.26183986673457_dbl_kind, 1.26224715054682_dbl_kind, 1.26358864688097_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1272) = (/ 1.25955883876479_dbl_kind, 1.26027885215692_dbl_kind, 1.26086961314922_dbl_kind, 1.26127623395429_dbl_kind, 1.26261607904643_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1273) = (/ 1.25859168504651_dbl_kind, 1.25931073391377_dbl_kind, 1.25990086243711_dbl_kind, 1.2603068220589_dbl_kind, 1.2616450192136_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1274) = (/ 1.25762602786786_dbl_kind, 1.25834411430944_dbl_kind, 1.25893361120376_dbl_kind, 1.25933891146007_dbl_kind, 1.2606754639729_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1275) = (/ 1.25666186385224_dbl_kind, 1.25737898996255_dbl_kind, 1.25796785606539_dbl_kind, 1.25837249876797_dbl_kind, 1.25970740992555_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1276) = (/ 1.25569918963373_dbl_kind, 1.2564153575024_dbl_kind, 1.25700359364896_dbl_kind, 1.2574075806035_dbl_kind, 1.2587408536835_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1277) = (/ 1.25473800185702_dbl_kind, 1.25545321356892_dbl_kind, 1.25604082059209_dbl_kind, 1.25644415359824_dbl_kind, 1.25777579186945_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1278) = (/ 1.25377829717744_dbl_kind, 1.25449255481266_dbl_kind, 1.25507953354301_dbl_kind, 1.25548221439439_dbl_kind, 1.25681222111674_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1279) = (/ 1.25282007226084_dbl_kind, 1.25353337789475_dbl_kind, 1.25411972916055_dbl_kind, 1.25452175964479_dbl_kind, 1.25585013806937_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1280) = (/ 1.25186332378361_dbl_kind, 1.25257567948683_dbl_kind, 1.25316140411407_dbl_kind, 1.25356278601279_dbl_kind, 1.2548895393819_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1281) = (/ 1.2509080484326_dbl_kind, 1.25161945627103_dbl_kind, 1.25220455508345_dbl_kind, 1.2526052901723_dbl_kind, 1.25393042171946_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1282) = (/ 1.2499542429051_dbl_kind, 1.25066470493992_dbl_kind, 1.25124917875901_dbl_kind, 1.2516492688077_dbl_kind, 1.2529727817577_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1283) = (/ 1.24900190390881_dbl_kind, 1.2497114221965_dbl_kind, 1.25029527184154_dbl_kind, 1.25069471861381_dbl_kind, 1.25201661618271_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1284) = (/ 1.24805102816178_dbl_kind, 1.24875960475412_dbl_kind, 1.24934283104216_dbl_kind, 1.24974163629584_dbl_kind, 1.25106192169106_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1285) = (/ 1.24710161239237_dbl_kind, 1.24780924933646_dbl_kind, 1.24839185308239_dbl_kind, 1.24879001856939_dbl_kind, 1.25010869498967_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1286) = (/ 1.24615365333924_dbl_kind, 1.2468603526775_dbl_kind, 1.24744233469401_dbl_kind, 1.24783986216035_dbl_kind, 1.24915693279583_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1287) = (/ 1.24520714775128_dbl_kind, 1.24591291152146_dbl_kind, 1.24649427261911_dbl_kind, 1.24689116380491_dbl_kind, 1.24820663183716_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1288) = (/ 1.24426209238759_dbl_kind, 1.24496692262279_dbl_kind, 1.24554766360999_dbl_kind, 1.24594392024953_dbl_kind, 1.24725778885153_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1289) = (/ 1.24331848401743_dbl_kind, 1.24402238274611_dbl_kind, 1.24460250442914_dbl_kind, 1.24499812825083_dbl_kind, 1.24631040058707_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1290) = (/ 1.24237631942019_dbl_kind, 1.24307928866616_dbl_kind, 1.24365879184921_dbl_kind, 1.24405378457564_dbl_kind, 1.24536446380209_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1291) = (/ 1.24143559538535_dbl_kind, 1.24213763716781_dbl_kind, 1.24271652265296_dbl_kind, 1.24311088600091_dbl_kind, 1.24441997526508_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1292) = (/ 1.24049630871244_dbl_kind, 1.24119742504596_dbl_kind, 1.24177569363324_dbl_kind, 1.24216942931367_dbl_kind, 1.24347693175465_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1293) = (/ 1.23955845621101_dbl_kind, 1.24025864910555_dbl_kind, 1.24083630159292_dbl_kind, 1.24122941131102_dbl_kind, 1.24253533005948_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1294) = (/ 1.23862203470057_dbl_kind, 1.2393213061615_dbl_kind, 1.23989834334489_dbl_kind, 1.24029082880008_dbl_kind, 1.24159516697831_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1295) = (/ 1.23768704101059_dbl_kind, 1.2383853930387_dbl_kind, 1.23896181571199_dbl_kind, 1.23935367859793_dbl_kind, 1.24065643931988_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1296) = (/ 1.23675347198043_dbl_kind, 1.23745090657192_dbl_kind, 1.23802671552701_dbl_kind, 1.23841795753162_dbl_kind, 1.23971914390293_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1297) = (/ 1.23582132445932_dbl_kind, 1.23651784360582_dbl_kind, 1.2370930396326_dbl_kind, 1.2374836624381_dbl_kind, 1.2387832775561_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1298) = (/ 1.23489059530632_dbl_kind, 1.23558620099491_dbl_kind, 1.23616078488129_dbl_kind, 1.23655079016416_dbl_kind, 1.23784883711794_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1299) = (/ 1.23396128139027_dbl_kind, 1.23465597560346_dbl_kind, 1.23522994813541_dbl_kind, 1.23561933756647_dbl_kind, 1.23691581943688_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1300) = (/ 1.23303337958977_dbl_kind, 1.23372716430556_dbl_kind, 1.23430052626707_dbl_kind, 1.23468930151147_dbl_kind, 1.23598422137115_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1301) = (/ 1.23210688679316_dbl_kind, 1.23279976398499_dbl_kind, 1.23337251615813_dbl_kind, 1.23376067887534_dbl_kind, 1.23505403978877_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1302) = (/ 1.23118179989843_dbl_kind, 1.23187377153523_dbl_kind, 1.23244591470016_dbl_kind, 1.23283346654403_dbl_kind, 1.23412527156753_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1303) = (/ 1.23025811581324_dbl_kind, 1.23094918385942_dbl_kind, 1.23152071879439_dbl_kind, 1.23190766141313_dbl_kind, 1.23319791359492_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1304) = (/ 1.22933583145484_dbl_kind, 1.23002599787032_dbl_kind, 1.2305969253517_dbl_kind, 1.23098326038792_dbl_kind, 1.23227196276811_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1305) = (/ 1.22841494375009_dbl_kind, 1.22910421049027_dbl_kind, 1.22967453129255_dbl_kind, 1.23006026038326_dbl_kind, 1.23134741599392_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1306) = (/ 1.22749544963535_dbl_kind, 1.22818381865116_dbl_kind, 1.22875353354697_dbl_kind, 1.22913865832362_dbl_kind, 1.23042427018878_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1307) = (/ 1.2265773460565_dbl_kind, 1.22726481929441_dbl_kind, 1.22783392905453_dbl_kind, 1.228218451143_dbl_kind, 1.22950252227866_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1308) = (/ 1.22566062996891_dbl_kind, 1.22634720937088_dbl_kind, 1.22691571476428_dbl_kind, 1.2272996357849_dbl_kind, 1.22858216919912_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1309) = (/ 1.22474529833735_dbl_kind, 1.22543098584092_dbl_kind, 1.22599888763473_dbl_kind, 1.22638220920231_dbl_kind, 1.22766320789517_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1310) = (/ 1.22383134813601_dbl_kind, 1.22451614567424_dbl_kind, 1.22508344463381_dbl_kind, 1.22546616835765_dbl_kind, 1.22674563532132_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1311) = (/ 1.22291877634843_dbl_kind, 1.22360268584997_dbl_kind, 1.22416938273884_dbl_kind, 1.22455151022273_dbl_kind, 1.22582944844149_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1312) = (/ 1.2220075799675_dbl_kind, 1.22269060335654_dbl_kind, 1.22325669893649_dbl_kind, 1.22363823177876_dbl_kind, 1.22491464422901_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1313) = (/ 1.2210977559954_dbl_kind, 1.22177989519171_dbl_kind, 1.22234539022276_dbl_kind, 1.22272633001626_dbl_kind, 1.22400121966656_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1314) = (/ 1.22018930144354_dbl_kind, 1.22087055836249_dbl_kind, 1.22143545360291_dbl_kind, 1.22181580193505_dbl_kind, 1.22308917174615_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1315) = (/ 1.2192822133326_dbl_kind, 1.21996258988515_dbl_kind, 1.22052688609147_dbl_kind, 1.22090664454423_dbl_kind, 1.22217849746909_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1316) = (/ 1.21837648869243_dbl_kind, 1.21905598678513_dbl_kind, 1.21961968471217_dbl_kind, 1.21999885486212_dbl_kind, 1.22126919384593_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1317) = (/ 1.21747212456204_dbl_kind, 1.21815074609706_dbl_kind, 1.21871384649792_dbl_kind, 1.21909242991623_dbl_kind, 1.22036125789646_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1318) = (/ 1.21656911798957_dbl_kind, 1.2172468648647_dbl_kind, 1.21780936849081_dbl_kind, 1.21818736674325_dbl_kind, 1.21945468664965_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1319) = (/ 1.21566746603226_dbl_kind, 1.21634434014092_dbl_kind, 1.216906247742_dbl_kind, 1.21728366238899_dbl_kind, 1.21854947714364_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1320) = (/ 1.21476716575638_dbl_kind, 1.21544316898762_dbl_kind, 1.21600448131175_dbl_kind, 1.21638131390836_dbl_kind, 1.21764562642567_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1321) = (/ 1.21386821423725_dbl_kind, 1.21454334847578_dbl_kind, 1.21510406626936_dbl_kind, 1.21548031836532_dbl_kind, 1.21674313155208_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1322) = (/ 1.21297060855918_dbl_kind, 1.21364487568535_dbl_kind, 1.21420499969315_dbl_kind, 1.21458067283287_dbl_kind, 1.21584198958827_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1323) = (/ 1.21207434581543_dbl_kind, 1.21274774770525_dbl_kind, 1.21330727867041_dbl_kind, 1.21368237439301_dbl_kind, 1.21494219760865_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1324) = (/ 1.21117942310819_dbl_kind, 1.21185196163335_dbl_kind, 1.2124109002974_dbl_kind, 1.2127854201367_dbl_kind, 1.21404375269664_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1325) = (/ 1.21028583754853_dbl_kind, 1.2109575145764_dbl_kind, 1.21151586167926_dbl_kind, 1.21188980716382_dbl_kind, 1.21314665194458_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1326) = (/ 1.20939358625641_dbl_kind, 1.21006440365005_dbl_kind, 1.21062215993004_dbl_kind, 1.21099553258315_dbl_kind, 1.21225089245378_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1327) = (/ 1.20850266636059_dbl_kind, 1.20917262597875_dbl_kind, 1.20972979217261_dbl_kind, 1.21010259351235_dbl_kind, 1.21135647133438_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1328) = (/ 1.20761307499863_dbl_kind, 1.20828217869577_dbl_kind, 1.20883875553869_dbl_kind, 1.2092109870779_dbl_kind, 1.21046338570544_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1329) = (/ 1.20672480931688_dbl_kind, 1.20739305894317_dbl_kind, 1.20794904716876_dbl_kind, 1.20832071041508_dbl_kind, 1.20957163269481_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1330) = (/ 1.20583786647038_dbl_kind, 1.20650526387171_dbl_kind, 1.20706066421206_dbl_kind, 1.20743176066793_dbl_kind, 1.20868120943913_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1331) = (/ 1.2049522436229_dbl_kind, 1.20561879064089_dbl_kind, 1.20617360382654_dbl_kind, 1.20654413498925_dbl_kind, 1.20779211308383_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1332) = (/ 1.20406793794688_dbl_kind, 1.20473363641888_dbl_kind, 1.20528786317885_dbl_kind, 1.20565783054052_dbl_kind, 1.20690434078302_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1333) = (/ 1.20318494662336_dbl_kind, 1.20384979838249_dbl_kind, 1.2044034394443_dbl_kind, 1.2047728444919_dbl_kind, 1.20601788969957_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1334) = (/ 1.20230326684203_dbl_kind, 1.20296727371714_dbl_kind, 1.20352032980681_dbl_kind, 1.20388917402219_dbl_kind, 1.20513275700495_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1335) = (/ 1.20142289580112_dbl_kind, 1.20208605961683_dbl_kind, 1.2026385314589_dbl_kind, 1.20300681631881_dbl_kind, 1.20424893987932_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1336) = (/ 1.20054383070742_dbl_kind, 1.20120615328413_dbl_kind, 1.20175804160164_dbl_kind, 1.20212576857774_dbl_kind, 1.2033664355114_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1337) = (/ 1.19966606877622_dbl_kind, 1.2003275519301_dbl_kind, 1.20087885744466_dbl_kind, 1.20124602800352_dbl_kind, 1.20248524109851_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1338) = (/ 1.19878960723131_dbl_kind, 1.19945025277432_dbl_kind, 1.20000097620605_dbl_kind, 1.2003675918092_dbl_kind, 1.20160535384649_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1339) = (/ 1.1979144433049_dbl_kind, 1.19857425304479_dbl_kind, 1.19912439511241_dbl_kind, 1.1994904572163_dbl_kind, 1.2007267709697_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1340) = (/ 1.19704057423764_dbl_kind, 1.19769954997796_dbl_kind, 1.19824911139874_dbl_kind, 1.19861462145482_dbl_kind, 1.19984948969097_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1341) = (/ 1.19616799727857_dbl_kind, 1.19682614081869_dbl_kind, 1.19737512230846_dbl_kind, 1.19774008176317_dbl_kind, 1.19897350724158_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1342) = (/ 1.19529670968506_dbl_kind, 1.19595402282017_dbl_kind, 1.19650242509339_dbl_kind, 1.19686683538815_dbl_kind, 1.19809882086122_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1343) = (/ 1.19442670872284_dbl_kind, 1.19508319324394_dbl_kind, 1.19563101701365_dbl_kind, 1.19599487958492_dbl_kind, 1.19722542779799_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1344) = (/ 1.19355799166591_dbl_kind, 1.19421364935986_dbl_kind, 1.19476089533771_dbl_kind, 1.19512421161698_dbl_kind, 1.19635332530832_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1345) = (/ 1.19269055579657_dbl_kind, 1.19334538844605_dbl_kind, 1.19389205734232_dbl_kind, 1.19425482875613_dbl_kind, 1.19548251065696_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1346) = (/ 1.19182439840532_dbl_kind, 1.19247840778888_dbl_kind, 1.19302450031248_dbl_kind, 1.19338672828243_dbl_kind, 1.19461298111697_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1347) = (/ 1.19095951679088_dbl_kind, 1.19161270468292_dbl_kind, 1.19215822154141_dbl_kind, 1.19251990748419_dbl_kind, 1.19374473396968_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1348) = (/ 1.19009590826017_dbl_kind, 1.19074827643095_dbl_kind, 1.19129321833053_dbl_kind, 1.19165436365794_dbl_kind, 1.19287776650464_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1349) = (/ 1.18923357012823_dbl_kind, 1.18988512034388_dbl_kind, 1.19042948798943_dbl_kind, 1.19079009410838_dbl_kind, 1.19201207601962_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1350) = (/ 1.18837249971822_dbl_kind, 1.18902323374078_dbl_kind, 1.18956702783583_dbl_kind, 1.18992709614835_dbl_kind, 1.19114765982054_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1351) = (/ 1.1875126943614_dbl_kind, 1.18816261394878_dbl_kind, 1.18870583519557_dbl_kind, 1.18906536709884_dbl_kind, 1.19028451522148_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1352) = (/ 1.1866541513971_dbl_kind, 1.1873032583031_dbl_kind, 1.18784590740255_dbl_kind, 1.18820490428892_dbl_kind, 1.18942263954466_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1353) = (/ 1.18579686817265_dbl_kind, 1.18644516414698_dbl_kind, 1.18698724179873_dbl_kind, 1.18734570505572_dbl_kind, 1.18856203012034_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1354) = (/ 1.1849408420434_dbl_kind, 1.18558832883171_dbl_kind, 1.18612983573409_dbl_kind, 1.18648776674441_dbl_kind, 1.18770268428688_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1355) = (/ 1.18408607037268_dbl_kind, 1.1847327497165_dbl_kind, 1.18527368656657_dbl_kind, 1.18563108670816_dbl_kind, 1.18684459939064_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1356) = (/ 1.18323255053175_dbl_kind, 1.18387842416857_dbl_kind, 1.18441879166213_dbl_kind, 1.18477566230814_dbl_kind, 1.18598777278599_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1357) = (/ 1.1823802798998_dbl_kind, 1.18302534956303_dbl_kind, 1.18356514839461_dbl_kind, 1.18392149091344_dbl_kind, 1.18513220183529_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1358) = (/ 1.18152925586389_dbl_kind, 1.18217352328289_dbl_kind, 1.18271275414578_dbl_kind, 1.18306856990108_dbl_kind, 1.1842778839088_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1359) = (/ 1.18067947581895_dbl_kind, 1.18132294271904_dbl_kind, 1.18186160630528_dbl_kind, 1.18221689665598_dbl_kind, 1.18342481638474_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1360) = (/ 1.17983093716774_dbl_kind, 1.18047360527018_dbl_kind, 1.1810117022706_dbl_kind, 1.18136646857091_dbl_kind, 1.18257299664917_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1361) = (/ 1.17898363732082_dbl_kind, 1.17962550834285_dbl_kind, 1.18016303944704_dbl_kind, 1.18051728304649_dbl_kind, 1.18172242209605_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1362) = (/ 1.17813757369653_dbl_kind, 1.17877864935136_dbl_kind, 1.1793156152477_dbl_kind, 1.17966933749112_dbl_kind, 1.18087309012714_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1363) = (/ 1.17729274372095_dbl_kind, 1.17793302571777_dbl_kind, 1.17846942709344_dbl_kind, 1.17882262932102_dbl_kind, 1.18002499815202_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1364) = (/ 1.17644914482787_dbl_kind, 1.17708863487187_dbl_kind, 1.17762447241285_dbl_kind, 1.17797715596011_dbl_kind, 1.17917814358801_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1365) = (/ 1.17560677445879_dbl_kind, 1.17624547425116_dbl_kind, 1.17678074864225_dbl_kind, 1.17713291484009_dbl_kind, 1.17833252386022_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1366) = (/ 1.17476563006287_dbl_kind, 1.17540354130079_dbl_kind, 1.17593825322561_dbl_kind, 1.1762899034003_dbl_kind, 1.17748813640144_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1367) = (/ 1.1739257090969_dbl_kind, 1.17456283347356_dbl_kind, 1.17509698361457_dbl_kind, 1.17544811908779_dbl_kind, 1.17664497865217_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1368) = (/ 1.17308700902526_dbl_kind, 1.17372334822989_dbl_kind, 1.17425693726839_dbl_kind, 1.17460755935723_dbl_kind, 1.17580304806056_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1369) = (/ 1.17224952731996_dbl_kind, 1.1728850830378_dbl_kind, 1.17341811165392_dbl_kind, 1.1737682216709_dbl_kind, 1.1749623420824_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1370) = (/ 1.17141326146052_dbl_kind, 1.17204803537286_dbl_kind, 1.17258050424559_dbl_kind, 1.17293010349868_dbl_kind, 1.1741228581811_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1371) = (/ 1.17057820893401_dbl_kind, 1.17121220271817_dbl_kind, 1.17174411252538_dbl_kind, 1.172093202318_dbl_kind, 1.17328459382761_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1372) = (/ 1.16974436723499_dbl_kind, 1.17037758256434_dbl_kind, 1.17090893398277_dbl_kind, 1.17125751561382_dbl_kind, 1.17244754650048_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1373) = (/ 1.16891173386549_dbl_kind, 1.16954417240947_dbl_kind, 1.17007496611473_dbl_kind, 1.17042304087862_dbl_kind, 1.17161171368576_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1374) = (/ 1.168080306335_dbl_kind, 1.1687119697591_dbl_kind, 1.16924220642572_dbl_kind, 1.16958977561233_dbl_kind, 1.170777092877_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1375) = (/ 1.16725008216044_dbl_kind, 1.16788097212623_dbl_kind, 1.16841065242759_dbl_kind, 1.16875771732235_dbl_kind, 1.16994368157523_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1376) = (/ 1.16642105886609_dbl_kind, 1.16705117703122_dbl_kind, 1.16758030163965_dbl_kind, 1.16792686352351_dbl_kind, 1.16911147728892_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1377) = (/ 1.16559323398362_dbl_kind, 1.16622258200182_dbl_kind, 1.16675115158854_dbl_kind, 1.16709721173802_dbl_kind, 1.16828047753396_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1378) = (/ 1.16476660505204_dbl_kind, 1.16539518457315_dbl_kind, 1.16592319980831_dbl_kind, 1.16626875949548_dbl_kind, 1.16745067983364_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1379) = (/ 1.16394116961768_dbl_kind, 1.16456898228763_dbl_kind, 1.16509644384029_dbl_kind, 1.16544150433283_dbl_kind, 1.1666220817186_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1380) = (/ 1.16311692523415_dbl_kind, 1.16374397269498_dbl_kind, 1.16427088123316_dbl_kind, 1.16461544379432_dbl_kind, 1.16579468072683_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1381) = (/ 1.16229386946232_dbl_kind, 1.16292015335218_dbl_kind, 1.16344650954285_dbl_kind, 1.16379057543151_dbl_kind, 1.16496847440364_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1382) = (/ 1.16147199987031_dbl_kind, 1.16209752182349_dbl_kind, 1.16262332633254_dbl_kind, 1.16296689680321_dbl_kind, 1.16414346030161_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1383) = (/ 1.16065131403344_dbl_kind, 1.16127607568035_dbl_kind, 1.16180132917266_dbl_kind, 1.16214440547549_dbl_kind, 1.16331963598061_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1384) = (/ 1.15983180953423_dbl_kind, 1.16045581250143_dbl_kind, 1.16098051564083_dbl_kind, 1.16132309902162_dbl_kind, 1.16249699900771_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1385) = (/ 1.15901348396235_dbl_kind, 1.15963672987252_dbl_kind, 1.16016088332183_dbl_kind, 1.16050297502207_dbl_kind, 1.16167554695723_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1386) = (/ 1.1581963349146_dbl_kind, 1.15881882538661_dbl_kind, 1.1593424298076_dbl_kind, 1.15968403106447_dbl_kind, 1.16085527741064_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1387) = (/ 1.15738035999491_dbl_kind, 1.15800209664376_dbl_kind, 1.15852515269722_dbl_kind, 1.15886626474359_dbl_kind, 1.16003618795659_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1388) = (/ 1.15656555681427_dbl_kind, 1.15718654125114_dbl_kind, 1.15770904959685_dbl_kind, 1.15804967366132_dbl_kind, 1.15921827619087_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1389) = (/ 1.15575192299076_dbl_kind, 1.156372156823_dbl_kind, 1.15689411811973_dbl_kind, 1.15723425542664_dbl_kind, 1.15840153971634_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1390) = (/ 1.15493945614946_dbl_kind, 1.15555894098061_dbl_kind, 1.15608035588615_dbl_kind, 1.15642000765558_dbl_kind, 1.15758597614299_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1391) = (/ 1.15412815392249_dbl_kind, 1.15474689135227_dbl_kind, 1.15526776052342_dbl_kind, 1.15560692797123_dbl_kind, 1.15677158308785_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1392) = (/ 1.15331801394894_dbl_kind, 1.15393600557327_dbl_kind, 1.15445632966586_dbl_kind, 1.15479501400367_dbl_kind, 1.15595835817498_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1393) = (/ 1.15250903387485_dbl_kind, 1.15312628128587_dbl_kind, 1.15364606095475_dbl_kind, 1.15398426338999_dbl_kind, 1.15514629903544_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1394) = (/ 1.15170121135323_dbl_kind, 1.15231771613926_dbl_kind, 1.15283695203833_dbl_kind, 1.15317467377423_dbl_kind, 1.1543354033073_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1395) = (/ 1.15089454404396_dbl_kind, 1.15151030778956_dbl_kind, 1.15202900057175_dbl_kind, 1.15236624280738_dbl_kind, 1.15352566863557_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1396) = (/ 1.15008902961384_dbl_kind, 1.15070405389978_dbl_kind, 1.15122220421709_dbl_kind, 1.15155896814734_dbl_kind, 1.1527170926722_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1397) = (/ 1.14928466573651_dbl_kind, 1.14989895213981_dbl_kind, 1.15041656064328_dbl_kind, 1.1507528474589_dbl_kind, 1.15190967307605_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1398) = (/ 1.14848145009246_dbl_kind, 1.14909500018638_dbl_kind, 1.14961206752611_dbl_kind, 1.14994787841373_dbl_kind, 1.15110340751287_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1399) = (/ 1.14767938036899_dbl_kind, 1.14829219572302_dbl_kind, 1.1488087225482_dbl_kind, 1.14914405869032_dbl_kind, 1.15029829365525_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1400) = (/ 1.14687845426019_dbl_kind, 1.14749053644009_dbl_kind, 1.14800652339897_dbl_kind, 1.14834138597399_dbl_kind, 1.14949432918265_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1401) = (/ 1.14607866946693_dbl_kind, 1.1466900200347_dbl_kind, 1.14720546777462_dbl_kind, 1.14753985795687_dbl_kind, 1.14869151178131_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1402) = (/ 1.1452800236968_dbl_kind, 1.14589064421073_dbl_kind, 1.1464055533781_dbl_kind, 1.14673947233783_dbl_kind, 1.1478898391443_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1403) = (/ 1.14448251466412_dbl_kind, 1.14509240667877_dbl_kind, 1.14560677791912_dbl_kind, 1.1459402268225_dbl_kind, 1.14708930897141_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1404) = (/ 1.1436861400899_dbl_kind, 1.14429530515611_dbl_kind, 1.14480913911406_dbl_kind, 1.14514211912325_dbl_kind, 1.14628991896921_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1405) = (/ 1.14289089770183_dbl_kind, 1.14349933736673_dbl_kind, 1.144012634686_dbl_kind, 1.14434514695912_dbl_kind, 1.14549166685096_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1406) = (/ 1.14209678523425_dbl_kind, 1.14270450104126_dbl_kind, 1.1432172623647_dbl_kind, 1.14354930805585_dbl_kind, 1.14469455033662_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1407) = (/ 1.14130380042811_dbl_kind, 1.14191079391697_dbl_kind, 1.14242301988652_dbl_kind, 1.14275460014581_dbl_kind, 1.14389856715284_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1408) = (/ 1.14051194103097_dbl_kind, 1.14111821373771_dbl_kind, 1.14162990499447_dbl_kind, 1.14196102096802_dbl_kind, 1.14310371503289_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1409) = (/ 1.13972120479697_dbl_kind, 1.14032675825396_dbl_kind, 1.14083791543813_dbl_kind, 1.1411685682681_dbl_kind, 1.14230999171668_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1410) = (/ 1.1389315894868_dbl_kind, 1.13953642522272_dbl_kind, 1.14004704897366_dbl_kind, 1.14037723979823_dbl_kind, 1.14151739495072_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1411) = (/ 1.13814309286769_dbl_kind, 1.13874721240755_dbl_kind, 1.13925730336376_dbl_kind, 1.13958703331718_dbl_kind, 1.14072592248809_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1412) = (/ 1.13735571271338_dbl_kind, 1.13795911757853_dbl_kind, 1.13846867637764_dbl_kind, 1.13879794659025_dbl_kind, 1.13993557208842_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1413) = (/ 1.13656944680407_dbl_kind, 1.13717213851223_dbl_kind, 1.13768116579102_dbl_kind, 1.13800997738924_dbl_kind, 1.1391463415179_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1414) = (/ 1.13578429292646_dbl_kind, 1.13638627299167_dbl_kind, 1.13689476938611_dbl_kind, 1.13722312349245_dbl_kind, 1.13835822854919_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1415) = (/ 1.13500024887368_dbl_kind, 1.13560151880636_dbl_kind, 1.13610948495155_dbl_kind, 1.13643738268464_dbl_kind, 1.13757123096147_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1416) = (/ 1.13421731244526_dbl_kind, 1.13481787375219_dbl_kind, 1.13532531028243_dbl_kind, 1.13565275275702_dbl_kind, 1.13678534654035_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1417) = (/ 1.13343548144714_dbl_kind, 1.13403533563148_dbl_kind, 1.13454224318023_dbl_kind, 1.13486923150724_dbl_kind, 1.1360005730779_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1418) = (/ 1.13265475369165_dbl_kind, 1.13325390225293_dbl_kind, 1.13376028145282_dbl_kind, 1.13408681673932_dbl_kind, 1.13521690837261_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1419) = (/ 1.13187512699744_dbl_kind, 1.13247357143159_dbl_kind, 1.13297942291446_dbl_kind, 1.13330550626367_dbl_kind, 1.13443435022936_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1420) = (/ 1.13109659918951_dbl_kind, 1.13169434098885_dbl_kind, 1.13219966538571_dbl_kind, 1.13252529789707_dbl_kind, 1.1336528964594_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1421) = (/ 1.13031916809917_dbl_kind, 1.13091620875242_dbl_kind, 1.13142100669348_dbl_kind, 1.13174618946261_dbl_kind, 1.13287254488033_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1422) = (/ 1.12954283156399_dbl_kind, 1.13013917255628_dbl_kind, 1.13064344467096_dbl_kind, 1.1309681787897_dbl_kind, 1.13209329331609_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1423) = (/ 1.12876758742782_dbl_kind, 1.1293632302407_dbl_kind, 1.12986697715762_dbl_kind, 1.13019126371405_dbl_kind, 1.13131513959691_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1424) = (/ 1.12799343354076_dbl_kind, 1.12858837965221_dbl_kind, 1.1290916019992_dbl_kind, 1.12941544207761_dbl_kind, 1.13053808155932_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1425) = (/ 1.12722036775912_dbl_kind, 1.12781461864353_dbl_kind, 1.12831731704764_dbl_kind, 1.12864071172862_dbl_kind, 1.12976211704609_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1426) = (/ 1.12644838794541_dbl_kind, 1.12704194507361_dbl_kind, 1.12754412016111_dbl_kind, 1.12786707052149_dbl_kind, 1.12898724390627_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1427) = (/ 1.1256774919683_dbl_kind, 1.12627035680759_dbl_kind, 1.12677200920397_dbl_kind, 1.12709451631688_dbl_kind, 1.12821345999508_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1428) = (/ 1.12490767770264_dbl_kind, 1.12549985171674_dbl_kind, 1.12600098204674_dbl_kind, 1.12632304698159_dbl_kind, 1.12744076317398_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1429) = (/ 1.1241389430294_dbl_kind, 1.1247304276785_dbl_kind, 1.12523103656607_dbl_kind, 1.12555266038861_dbl_kind, 1.12666915131057_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1430) = (/ 1.12337128583566_dbl_kind, 1.12396208257642_dbl_kind, 1.12446217064477_dbl_kind, 1.12478335441705_dbl_kind, 1.12589862227864_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1431) = (/ 1.12260470401459_dbl_kind, 1.12319481430014_dbl_kind, 1.12369438217172_dbl_kind, 1.12401512695214_dbl_kind, 1.12512917395807_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1432) = (/ 1.12183919546545_dbl_kind, 1.12242862074539_dbl_kind, 1.12292766904189_dbl_kind, 1.1232479758852_dbl_kind, 1.1243608042349_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1433) = (/ 1.12107475809352_dbl_kind, 1.12166349981394_dbl_kind, 1.12216202915631_dbl_kind, 1.12248189911364_dbl_kind, 1.12359351100122_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1434) = (/ 1.12031138981011_dbl_kind, 1.1208994494136_dbl_kind, 1.12139746042206_dbl_kind, 1.12171689454091_dbl_kind, 1.1228272921552_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1435) = (/ 1.11954908853257_dbl_kind, 1.1201364674582_dbl_kind, 1.12063396075221_dbl_kind, 1.12095296007648_dbl_kind, 1.12206214560107_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1436) = (/ 1.11878785218419_dbl_kind, 1.11937455186756_dbl_kind, 1.11987152806586_dbl_kind, 1.12019009363585_dbl_kind, 1.12129806924908_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1437) = (/ 1.11802767869425_dbl_kind, 1.11861370056745_dbl_kind, 1.11911016028807_dbl_kind, 1.1194282931405_dbl_kind, 1.12053506101548_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1438) = (/ 1.11726856599797_dbl_kind, 1.11785391148963_dbl_kind, 1.11834985534985_dbl_kind, 1.11866755651788_dbl_kind, 1.1197731188225_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1439) = (/ 1.1165105120365_dbl_kind, 1.11709518257176_dbl_kind, 1.11759061118815_dbl_kind, 1.11790788170139_dbl_kind, 1.11901224059836_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1440) = (/ 1.11575351475687_dbl_kind, 1.11633751175742_dbl_kind, 1.11683242574583_dbl_kind, 1.11714926663035_dbl_kind, 1.11825242427719_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1441) = (/ 1.11499757211202_dbl_kind, 1.11558089699608_dbl_kind, 1.11607529697165_dbl_kind, 1.11639170925_dbl_kind, 1.11749366779907_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1442) = (/ 1.11424268206073_dbl_kind, 1.11482533624307_dbl_kind, 1.11531922282025_dbl_kind, 1.11563520751146_dbl_kind, 1.11673596910997_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1443) = (/ 1.11348884256764_dbl_kind, 1.11407082745958_dbl_kind, 1.1145642012521_dbl_kind, 1.1148797593717_dbl_kind, 1.11597932616174_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1444) = (/ 1.1127360516032_dbl_kind, 1.11331736861262_dbl_kind, 1.11381023023351_dbl_kind, 1.11412536279356_dbl_kind, 1.11522373691209_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1445) = (/ 1.11198430714366_dbl_kind, 1.11256495767501_dbl_kind, 1.11305730773663_dbl_kind, 1.1133720157457_dbl_kind, 1.11446919932458_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1446) = (/ 1.11123360717105_dbl_kind, 1.11181359262537_dbl_kind, 1.11230543173935_dbl_kind, 1.11261971620257_dbl_kind, 1.11371571136859_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1447) = (/ 1.11048394967318_dbl_kind, 1.11106327144807_dbl_kind, 1.11155460022538_dbl_kind, 1.11186846214442_dbl_kind, 1.11296327101929_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1448) = (/ 1.10973533264357_dbl_kind, 1.11031399213322_dbl_kind, 1.11080481118415_dbl_kind, 1.11111825155725_dbl_kind, 1.11221187625765_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1449) = (/ 1.10898775408148_dbl_kind, 1.1095657526767_dbl_kind, 1.11005606261085_dbl_kind, 1.11036908243283_dbl_kind, 1.11146152507038_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1450) = (/ 1.10824121199188_dbl_kind, 1.10881855108005_dbl_kind, 1.10930835250635_dbl_kind, 1.10962095276863_dbl_kind, 1.11071221544994_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1451) = (/ 1.10749570438541_dbl_kind, 1.10807238535053_dbl_kind, 1.10856167887723_dbl_kind, 1.10887386056785_dbl_kind, 1.1099639453945_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1452) = (/ 1.10675122927836_dbl_kind, 1.10732725350106_dbl_kind, 1.10781603973576_dbl_kind, 1.10812780383934_dbl_kind, 1.10921671290797_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1453) = (/ 1.10600778469268_dbl_kind, 1.1065831535502_dbl_kind, 1.10707143309982_dbl_kind, 1.10738278059765_dbl_kind, 1.10847051599988_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1454) = (/ 1.10526536865595_dbl_kind, 1.10584008352216_dbl_kind, 1.10632785699296_dbl_kind, 1.10663878886297_dbl_kind, 1.10772535268548_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1455) = (/ 1.10452397920133_dbl_kind, 1.10509804144673_dbl_kind, 1.10558530944433_dbl_kind, 1.10589582666109_dbl_kind, 1.10698122098562_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1456) = (/ 1.10378361436759_dbl_kind, 1.10435702535933_dbl_kind, 1.10484378848867_dbl_kind, 1.10515389202345_dbl_kind, 1.1062381189268_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1457) = (/ 1.10304427219904_dbl_kind, 1.10361703330091_dbl_kind, 1.10410329216632_dbl_kind, 1.10441298298704_dbl_kind, 1.1054960445411_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1458) = (/ 1.10230595074554_dbl_kind, 1.10287806331801_dbl_kind, 1.10336381852314_dbl_kind, 1.10367309759445_dbl_kind, 1.10475499586621_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1459) = (/ 1.10156864806251_dbl_kind, 1.10214011346269_dbl_kind, 1.10262536561055_dbl_kind, 1.10293423389379_dbl_kind, 1.10401497094537_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1460) = (/ 1.10083236221083_dbl_kind, 1.10140318179251_dbl_kind, 1.10188793148549_dbl_kind, 1.10219638993873_dbl_kind, 1.10327596782736_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1461) = (/ 1.1000970912569_dbl_kind, 1.10066726637054_dbl_kind, 1.10115151421039_dbl_kind, 1.10145956378843_dbl_kind, 1.1025379845665_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1462) = (/ 1.09936283327258_dbl_kind, 1.09993236526533_dbl_kind, 1.10041611185316_dbl_kind, 1.10072375350755_dbl_kind, 1.10180101922261_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1463) = (/ 1.09862958633518_dbl_kind, 1.09919847655088_dbl_kind, 1.09968172248716_dbl_kind, 1.09998895716622_dbl_kind, 1.101065069861_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1464) = (/ 1.09789734852744_dbl_kind, 1.09846559830662_dbl_kind, 1.09894834419123_dbl_kind, 1.09925517284003_dbl_kind, 1.10033013455245_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1465) = (/ 1.09716611793753_dbl_kind, 1.09773372861743_dbl_kind, 1.09821597504959_dbl_kind, 1.09852239861002_dbl_kind, 1.09959621137319_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1466) = (/ 1.09643589265899_dbl_kind, 1.09700286557356_dbl_kind, 1.09748461315189_dbl_kind, 1.09779063256261_dbl_kind, 1.09886329840488_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1467) = (/ 1.09570667079075_dbl_kind, 1.09627300727066_dbl_kind, 1.09675425659316_dbl_kind, 1.09705987278965_dbl_kind, 1.0981313937346_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1468) = (/ 1.0949784504371_dbl_kind, 1.09554415180974_dbl_kind, 1.09602490347379_dbl_kind, 1.09633011738836_dbl_kind, 1.09740049545481_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1469) = (/ 1.09425122970767_dbl_kind, 1.09481629729715_dbl_kind, 1.09529655189954_dbl_kind, 1.09560136446132_dbl_kind, 1.09667060166336_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1470) = (/ 1.0935250067174_dbl_kind, 1.09408944184459_dbl_kind, 1.09456919998148_dbl_kind, 1.09487361211646_dbl_kind, 1.09594171046346_dbl_kind /) + iceMassExtinctionCrossSectionDirect(1:5 ,1471) = (/ 1.09279977958654_dbl_kind, 1.09336358356903_dbl_kind, 1.093842845836_dbl_kind, 1.09414685846702_dbl_kind, 1.09521381996365_dbl_kind /) + + iceMassExtinctionCrossSectionDiffuse(1:5 ,1) = (/ 55.6524964732346_dbl_kind, 56.0653537700654_dbl_kind, 56.2866767293928_dbl_kind, 56.5956509951432_dbl_kind, 57.0420395068337_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,2) = (/ 53.833774536561_dbl_kind, 54.2222733573191_dbl_kind, 54.4375490183943_dbl_kind, 54.7241079131626_dbl_kind, 55.1495188852908_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,3) = (/ 52.1298603819672_dbl_kind, 52.4963322939501_dbl_kind, 52.7059338119213_dbl_kind, 52.9717745215122_dbl_kind, 53.3780039015646_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,4) = (/ 50.5302257747063_dbl_kind, 50.8767423325002_dbl_kind, 51.0809177238782_dbl_kind, 51.3276934107836_dbl_kind, 51.7162465433611_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,5) = (/ 49.0255880807078_dbl_kind, 49.3539917181981_dbl_kind, 49.5529090254278_dbl_kind, 49.7821985249428_dbl_kind, 50.1543534915553_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,6) = (/ 47.6077320771379_dbl_kind, 47.9196632443183_dbl_kind, 48.113442904337_dbl_kind, 48.3267307540219_dbl_kind, 48.6835884319454_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,7) = (/ 46.2693615774291_dbl_kind, 46.5662824426093_dbl_kind, 46.7550196761374_dbl_kind, 46.953684761009_dbl_kind, 47.2962077407603_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,8) = (/ 45.0039751345932_dbl_kind, 45.2871902191149_dbl_kind, 45.4709698631616_dbl_kind, 45.656280840582_dbl_kind, 45.9853232208021_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,9) = (/ 43.805761332147_dbl_kind, 44.0764354588974_dbl_kind, 44.2553412413482_dbl_kind, 44.4284570084981_dbl_kind, 44.744786890247_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,10) = (/ 42.6695101204903_dbl_kind, 42.9286840464988_dbl_kind, 43.1028038959269_dbl_kind, 43.2647775798482_dbl_kind, 43.569093844793_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,11) = (/ 41.5905373837371_dbl_kind, 41.8391414588098_dbl_kind, 42.0085700810054_dbl_kind, 42.1603552973197_dbl_kind, 42.453300004242_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,12) = (/ 40.5646204832251_dbl_kind, 40.8034866381358_dbl_kind, 40.9683262845872_dbl_kind, 41.1107846813768_dbl_kind, 41.3929521731241_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,13) = (/ 39.5879429600938_dbl_kind, 39.8178152851982_dbl_kind, 39.9781753895541_dbl_kind, 40.112084741251_dbl_kind, 40.3840283327193_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,14) = (/ 38.6570469206855_dbl_kind, 38.8785910533226_dbl_kind, 39.0345872157156_dbl_kind, 39.160649545067_dbl_kind, 39.4228864690693_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,15) = (/ 37.7687918976377_dbl_kind, 37.9826033972372_dbl_kind, 38.1343560464104_dbl_kind, 38.2532054263157_dbl_kind, 38.5062205508485_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,16) = (/ 36.920319193253_dbl_kind, 37.126931048348_dbl_kind, 37.274563999985_dbl_kind, 37.3867738223053_dbl_kind, 37.6310225192633_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,17) = (/ 36.109020882712_dbl_kind, 36.3089102647856_dbl_kind, 36.4525493136329_dbl_kind, 36.5586389130111_dbl_kind, 36.7945493524132_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,18) = (/ 35.3325127924763_dbl_kind, 35.5261071477934_dbl_kind, 35.6658787741987_dbl_kind, 35.7663193668761_dbl_kind, 35.994294428725_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,19) = (/ 34.5886108810556_dbl_kind, 34.7762934329454_dbl_kind, 34.9123236654646_dbl_kind, 35.0075436116964_dbl_kind, 35.2279625458981_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,20) = (/ 33.8753105406839_dbl_kind, 34.0574252605135_dbl_kind, 34.1898387104906_dbl_kind, 34.2802281397541_dbl_kind, 34.4934480593154_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,21) = (/ 33.1907684135842_dbl_kind, 33.3676245081471_dbl_kind, 33.4965435759129_dbl_kind, 33.5824584312931_dbl_kind, 33.7888156918682_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,22) = (/ 32.5332863786576_dbl_kind, 32.7051623341428_dbl_kind, 32.8307065768341_dbl_kind, 32.9124721426238_dbl_kind, 33.1122836393651_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,23) = (/ 31.9012974161172_dbl_kind, 32.0684446335389_dbl_kind, 32.1907302793836_dbl_kind, 32.2686442570971_dbl_kind, 32.4622086551855_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,24) = (/ 31.293353100786_dbl_kind, 31.4559991541224_dbl_kind, 31.5751387458289_dbl_kind, 31.649473940856_dbl_kind, 31.8370728469707_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,25) = (/ 30.7081125110323_dbl_kind, 30.8664640568541_dbl_kind, 30.9825662063807_dbl_kind, 31.0535728821374_dbl_kind, 31.2354719588801_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,26) = (/ 30.1443323708606_dbl_kind, 30.2985777365195_dbl_kind, 30.4117469742368_dbl_kind, 30.4796549241332_dbl_kind, 30.6561049467981_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,27) = (/ 29.6008582684957_dbl_kind, 29.7511697446936_dbl_kind, 29.8615064472829_dbl_kind, 29.9265268279745_dbl_kind, 30.0977646821304_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,28) = (/ 29.0766168166907_dbl_kind, 29.2231526792326_dbl_kind, 29.3307530622583_dbl_kind, 29.393080025012_dbl_kind, 29.5593296434729_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,29) = (/ 28.5706086385945_dbl_kind, 28.7135149232035_dbl_kind, 28.8184710859566_dbl_kind, 28.8782832368722_dbl_kind, 29.0397564752945_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,30) = (/ 28.0819020788656_dbl_kind, 28.221314131998_dbl_kind, 28.3237141438167_dbl_kind, 28.3811758582548_dbl_kind, 28.5380733095115_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,31) = (/ 27.6096275532497_dbl_kind, 27.745671380848_dbl_kind, 27.8455993996122_dbl_kind, 27.9008620115531_dbl_kind, 28.0533737599765_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,32) = (/ 27.1529724614095_dbl_kind, 27.2857658964416_dbl_kind, 27.383302311286_dbl_kind, 27.4365051944641_dbl_kind, 27.5848115119072_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,33) = (/ 26.7111765977034_dbl_kind, 26.8408303061596_dbl_kind, 26.936051897653_dbl_kind, 26.9873234521196_dbl_kind, 27.1315954384973_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,34) = (/ 26.2835280031164_dbl_kind, 26.4101463468786_dbl_kind, 26.5031264589724_dbl_kind, 26.5525850141629_dbl_kind, 26.6929851856659_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,35) = (/ 25.8693592088436_dbl_kind, 25.9930409825337_dbl_kind, 26.0838497015084_dbl_kind, 26.13160434484_dbl_kind, 26.268287173374_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,36) = (/ 25.4680438283206_dbl_kind, 25.5888828858832_dbl_kind, 25.6775872223308_dbl_kind, 25.7237385607461_dbl_kind, 25.856850968347_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,37) = (/ 25.0789934599_dbl_kind, 25.1970792453267_dbl_kind, 25.2837433159089_dbl_kind, 25.328384176532_dbl_kind, 25.4580659885681_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,38) = (/ 24.7016548670536_dbl_kind, 24.8170728623091_dbl_kind, 24.9017580686462_dbl_kind, 24.9449741437573_dbl_kind, 25.0713585046782_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,39) = (/ 24.3355074070109_dbl_kind, 24.4483395089184_dbl_kind, 24.5311047114934_dbl_kind, 24.5729751522936_dbl_kind, 24.6961889075472_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,40) = (/ 23.9800606822416_dbl_kind, 24.0903855188287_dbl_kind, 24.1712872042559_dbl_kind, 24.211885167336_dbl_kind, 24.3320492148742_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,41) = (/ 23.6348523922178_dbl_kind, 23.7427455878307_dbl_kind, 23.8218380282361_dbl_kind, 23.8612311782355_dbl_kind, 23.9784607927887_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,42) = (/ 23.2994463655178_dbl_kind, 23.4049807628977_dbl_kind, 23.482316166507_dbl_kind, 23.5205671381207_dbl_kind, 23.6349722711523_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,43) = (/ 22.9734307546251_dbl_kind, 23.0766766011029_dbl_kind, 23.1523052534261_dbl_kind, 23.1894720756596_dbl_kind, 23.3011576336366_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,44) = (/ 22.6564163777629_dbl_kind, 22.7574414817784_dbl_kind, 22.8314118770345_dbl_kind, 22.8675483624005_dbl_kind, 22.9766144657406_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,45) = (/ 22.3480351938457_dbl_kind, 22.4469050571314_dbl_kind, 22.5192640197709_dbl_kind, 22.554420120948_dbl_kind, 22.6609623457357_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,46) = (/ 22.0479388981504_dbl_kind, 22.1447168281405_dbl_kind, 22.2155096245001_dbl_kind, 22.2497317608271_dbl_kind, 22.3538413651401_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,47) = (/ 21.7557976276374_dbl_kind, 21.8505448339664_dbl_kind, 21.9198152742386_dbl_kind, 21.9531466302829_dbl_kind, 22.0549107667377_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,48) = (/ 21.4712987660272_dbl_kind, 21.5640744443609_dbl_kind, 21.6318649751799_dbl_kind, 21.6643457734975_dbl_kind, 21.7638476894076_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,49) = (/ 21.1941458397615_dbl_kind, 21.2850072456622_dbl_kind, 21.3513590337004_dbl_kind, 21.3830267837864_dbl_kind, 21.4803460101387_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,50) = (/ 20.9240574968853_dbl_kind, 21.0130600119367_dbl_kind, 21.0780130189791_dbl_kind, 21.108902744296_dbl_kind, 21.2041152745793_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,51) = (/ 20.6607665616901_dbl_kind, 20.7479637536954_dbl_kind, 20.8115568037106_dbl_kind, 20.8417012485701_dbl_kind, 20.934879708342_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,52) = (/ 20.4040191586632_dbl_kind, 20.4894628373769_dbl_kind, 20.5517336761392_dbl_kind, 20.581163494106_dbl_kind, 20.6723773020556_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,53) = (/ 20.1535738999186_dbl_kind, 20.2373141694702_dbl_kind, 20.2982995173085_dbl_kind, 20.327043442688_dbl_kind, 20.4163589638405_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,54) = (/ 19.9092011308425_dbl_kind, 19.9912864397575_dbl_kind, 20.0510220380135_dbl_kind, 20.0791070418821_dbl_kind, 20.1665877334985_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,55) = (/ 19.6706822291856_dbl_kind, 19.7511594186919_dbl_kind, 19.809680070471_dbl_kind, 19.8371315026053_dbl_kind, 19.9228380532498_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,56) = (/ 19.437808953276_dbl_kind, 19.5167233044102_dbl_kind, 19.5740629101948_dbl_kind, 19.6009046281594_dbl_kind, 19.6848950903414_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,57) = (/ 19.2103828354231_dbl_kind, 19.2877781153044_dbl_kind, 19.3439697039841_dbl_kind, 19.3702241905414_dbl_kind, 19.4525541072843_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,58) = (/ 18.9882146169423_dbl_kind, 19.0641331244625_dbl_kind, 19.1192088803115_dbl_kind, 19.1448973502277_dbl_kind, 19.2256198758719_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,59) = (/ 18.7711237215422_dbl_kind, 18.8456063326292_dbl_kind, 18.8995976187336_dbl_kind, 18.924740115968_dbl_kind, 19.0039061314772_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,60) = (/ 18.5589377641106_dbl_kind, 18.6320239766447_dbl_kind, 18.6849613552537_dbl_kind, 18.7095768414346_dbl_kind, 18.7872350644485_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,61) = (/ 18.3514920921865_dbl_kind, 18.423220070595_dbl_kind, 18.4751333208352_dbl_kind, 18.4992397558521_dbl_kind, 18.5754368457012_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,62) = (/ 18.148629357643_dbl_kind, 18.2190359771546_dbl_kind, 18.2699541105145_dbl_kind, 18.2935685259803_dbl_kind, 18.3683491838621_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,63) = (/ 17.9501991163152_dbl_kind, 18.0193200068241_dbl_kind, 18.0692712807821_dbl_kind, 18.0924098470506_dbl_kind, 18.1658169115532_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,64) = (/ 17.7560574534947_dbl_kind, 17.823927042965_dbl_kind, 17.8729389730977_dbl_kind, 17.8956170604628_dbl_kind, 17.967691598606_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,65) = (/ 17.5660666333899_dbl_kind, 17.6327181907159_dbl_kind, 17.6808175615932_dbl_kind, 17.7030497962325_dbl_kind, 17.7738311901933_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,66) = (/ 17.3800947708032_dbl_kind, 17.4455604480352_dbl_kind, 17.4927733231733_dbl_kind, 17.5145736383479_dbl_kind, 17.5840996680267_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,67) = (/ 17.1980155234198_dbl_kind, 17.2623263972635_dbl_kind, 17.3086781283784_dbl_kind, 17.3300598113499_dbl_kind, 17.3983667329292_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,68) = (/ 17.0197078032334_dbl_kind, 17.082893915733_dbl_kind, 17.1284091515039_dbl_kind, 17.1493848865842_dbl_kind, 17.2165075072295_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,69) = (/ 16.8450555057503_dbl_kind, 16.9071459040692_dbl_kind, 16.9518485985976_dbl_kind, 16.9724305067054_dbl_kind, 17.0384022555514_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,70) = (/ 16.6739472557212_dbl_kind, 16.734970030943_dbl_kind, 16.7788834520633_dbl_kind, 16.7990831271227_dbl_kind, 16.8639361226892_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,71) = (/ 16.5062761682476_dbl_kind, 16.5662584931277_dbl_kind, 16.6094052307031_dbl_kind, 16.6292337731868_dbl_kind, 16.6929988873622_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,72) = (/ 16.3419396242008_dbl_kind, 16.4009077898079_dbl_kind, 16.443309764123_dbl_kind, 16.4627778120088_dbl_kind, 16.5254847307403_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,73) = (/ 16.1808390589709_dbl_kind, 16.2388185101694_dbl_kind, 16.2804969805089_dbl_kind, 16.2996147378927_dbl_kind, 16.3612920187185_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,74) = (/ 16.0228797636406_dbl_kind, 16.0798951333724_dbl_kind, 16.120870706859_dbl_kind, 16.1396479704401_dbl_kind, 16.2003230969976_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,75) = (/ 15.8679706977451_dbl_kind, 15.9240458400816_dbl_kind, 15.9643384808281_dbl_kind, 15.9827846644605_dbl_kind, 16.0424840981014_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,76) = (/ 15.7160243128445_dbl_kind, 15.7711823347876_dbl_kind, 15.810811373404_dbl_kind, 15.828935530886_dbl_kind, 15.8876847595283_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,77) = (/ 15.5669563861908_dbl_kind, 15.6212196782108_dbl_kind, 15.6602038216939_dbl_kind, 15.6780146679519_dbl_kind, 15.7358382522944_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,78) = (/ 15.4206858638256_dbl_kind, 15.4740761291344_dbl_kind, 15.512433471155_dbl_kind, 15.5299394019579_dbl_kind, 15.5868610191828_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,79) = (/ 15.2771347124948_dbl_kind, 15.3296729950566_dbl_kind, 15.3674210266511_dbl_kind, 15.38463013698_dbl_kind, 15.440672622063_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,80) = (/ 15.1362277798073_dbl_kind, 15.1879344911007_dbl_kind, 15.225090111763_dbl_kind, 15.2420102129454_dbl_kind, 15.2971955976932_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,81) = (/ 14.9978926621116_dbl_kind, 15.0487876066585_dbl_kind, 15.0853671358231_dbl_kind, 15.102005771531_dbl_kind, 15.1563553214595_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,82) = (/ 14.8620595795972_dbl_kind, 14.912161979284_dbl_kind, 14.9481811681813_dbl_kind, 14.9645456293812_dbl_kind, 15.0180798785478_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,83) = (/ 14.7286612581651_dbl_kind, 14.7779897753829_dbl_kind, 14.8134638192476_dbl_kind, 14.8295611581808_dbl_kind, 14.8822999420777_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,84) = (/ 14.5976328176444_dbl_kind, 14.6462055772805_dbl_kind, 14.6811491278847_dbl_kind, 14.6969861711506_dbl_kind, 14.7489486577638_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,85) = (/ 14.4689116659598_dbl_kind, 14.5167462762771_dbl_kind, 14.5511734547591_dbl_kind, 14.566756815564_dbl_kind, 14.6179615346992_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,86) = (/ 14.3424373988847_dbl_kind, 14.3895509713257_dbl_kind, 14.4234753812836_dbl_kind, 14.4388114709124_dbl_kind, 14.4892763418853_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,87) = (/ 14.2181517050377_dbl_kind, 14.2645608729946_dbl_kind, 14.2979956138091_dbl_kind, 14.313090652374_dbl_kind, 14.3628330101569_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,88) = (/ 14.0959982758049_dbl_kind, 14.1417192123984_dbl_kind, 14.1746768927507_dbl_kind, 14.1895369192611_dbl_kind, 14.2385735391767_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,89) = (/ 13.9759227198931_dbl_kind, 14.0209711548016_dbl_kind, 14.0534639063505_dbl_kind, 14.0680947881493_dbl_kind, 14.1164419091967_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,90) = (/ 13.8578724822358_dbl_kind, 13.9022637176208_dbl_kind, 13.9343032088027_dbl_kind, 13.948710650407_dbl_kind, 13.9963839973013_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,91) = (/ 13.7417967669972_dbl_kind, 13.785545692568_dbl_kind, 13.8171431424836_dbl_kind, 13.8313326938659_dbl_kind, 13.8783474978702_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,92) = (/ 13.6276464644313_dbl_kind, 13.6707675716935_dbl_kind, 13.7019337640474_dbl_kind, 13.7159108283898_dbl_kind, 13.7622818470129_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,93) = (/ 13.5153740813742_dbl_kind, 13.5578814771063_dbl_kind, 13.5886267741627_dbl_kind, 13.6023966151152_dbl_kind, 13.6481381507458_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,94) = (/ 13.4049336751582_dbl_kind, 13.4468410941589_dbl_kind, 13.477175450683_dbl_kind, 13.4907431991528_dbl_kind, 13.5358691166973_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,95) = (/ 13.296280790753_dbl_kind, 13.3376016079019_dbl_kind, 13.3675345850526_dbl_kind, 13.3809052455515_dbl_kind, 13.4254289891382_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,96) = (/ 13.1893724009503_dbl_kind, 13.2301196426237_dbl_kind, 13.2596604217683_dbl_kind, 13.2728388783422_dbl_kind, 13.3167734871516_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,97) = (/ 13.0841668494208_dbl_kind, 13.1243532043017_dbl_kind, 13.1535106007233_dbl_kind, 13.1665016224864_dbl_kind, 13.2098597457649_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,98) = (/ 12.9806237964826_dbl_kind, 13.0202616258048_dbl_kind, 13.049044102276_dbl_kind, 13.0618523485715_dbl_kind, 13.1046462598804_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,99) = (/ 12.8787041674318_dbl_kind, 12.9178055146944_dbl_kind, 12.9462211948905_dbl_kind, 12.9588512200979_dbl_kind, 13.0010928308483_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,100) = (/ 12.7783701032938_dbl_kind, 12.8169467034816_dbl_kind, 12.8450033852116_dbl_kind, 12.8574596432196_dbl_kind, 12.8991605155404_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,101) = (/ 12.6795849138625_dbl_kind, 12.7176482022083_dbl_kind, 12.7453533704398_dbl_kind, 12.7576402188038_dbl_kind, 12.7988115777866_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,102) = (/ 12.5823130329061_dbl_kind, 12.6198741532247_dbl_kind, 12.6472349928851_dbl_kind, 12.6593566966857_dbl_kind, 12.7000094420467_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,103) = (/ 12.4865199754211_dbl_kind, 12.5235897880473_dbl_kind, 12.5506131965819_dbl_kind, 12.562573932001_dbl_kind, 12.6027186492011_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,104) = (/ 12.3921722968254_dbl_kind, 12.4287613861855_dbl_kind, 12.4554539858563_dbl_kind, 12.4672578434877_dbl_kind, 12.5069048143438_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,105) = (/ 12.2992375539905_dbl_kind, 12.3353562358331_dbl_kind, 12.3617243857445_dbl_kind, 12.3733753736535_dbl_kind, 12.4125345864764_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,106) = (/ 12.2076842680138_dbl_kind, 12.2433425963267_dbl_kind, 12.2693924041657_dbl_kind, 12.2808944507115_dbl_kind, 12.3195756100013_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,107) = (/ 12.1174818886412_dbl_kind, 12.1526896622793_dbl_kind, 12.1784269957577_dbl_kind, 12.1897839521941_dbl_kind, 12.2279964879217_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,108) = (/ 12.0286007602567_dbl_kind, 12.063367529301_dbl_kind, 12.0887980272919_dbl_kind, 12.100013670159_dbl_kind, 12.137766746661_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,109) = (/ 11.9410120893559_dbl_kind, 11.9753471612274_dbl_kind, 12.0004762445872_dbl_kind, 12.0115542779066_dbl_kind, 12.0488568024186_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,110) = (/ 11.8546879134302_dbl_kind, 11.8886003587763_dbl_kind, 11.9134332408461_dbl_kind, 11.924377298133_dbl_kind, 11.9612379289844_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,111) = (/ 11.7696010711898_dbl_kind, 11.803099729562_dbl_kind, 11.8276414263431_dbl_kind, 11.8384550724467_dbl_kind, 11.8748822269387_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,112) = (/ 11.6857251740587_dbl_kind, 11.7188186593979_dbl_kind, 11.7430739993986_dbl_kind, 11.7537607321822_dbl_kind, 11.7897625941681_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,113) = (/ 11.6030345788779_dbl_kind, 11.6357312848234_dbl_kind, 11.6597049185737_dbl_kind, 11.6702681704462_dbl_kind, 11.7058526976331_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,114) = (/ 11.5215043617589_dbl_kind, 11.5538124667941_dbl_kind, 11.5775088760273_dbl_kind, 11.5879520153358_dbl_kind, 11.6231269463243_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,115) = (/ 11.441110293029_dbl_kind, 11.4730377654774_dbl_kind, 11.496461271979_dbl_kind, 11.5067876042741_dbl_kind, 11.5415604653508_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,116) = (/ 11.3618288132173_dbl_kind, 11.3933834161005_dbl_kind, 11.4165381902247_dbl_kind, 11.4267509594066_dbl_kind, 11.4611290711051_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,117) = (/ 11.28363701003_dbl_kind, 11.3148263057986_dbl_kind, 11.3377163746538_dbl_kind, 11.3478187640102_dbl_kind, 11.3818092474519_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,118) = (/ 11.2065125962688_dbl_kind, 11.2373439514148_dbl_kind, 11.2599732067221_dbl_kind, 11.2699683398657_dbl_kind, 11.3035781228943_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,119) = (/ 11.1304338886462_dbl_kind, 11.1609144782072_dbl_kind, 11.1832866838336_dbl_kind, 11.1931776255484_dbl_kind, 11.2264134486679_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,120) = (/ 11.0553797874566_dbl_kind, 11.0855165994185_dbl_kind, 11.1076353985902_dbl_kind, 11.1174251555947_dbl_kind, 11.1502935777211_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,121) = (/ 10.9813297570624_dbl_kind, 11.0111295966681_dbl_kind, 11.0329985188683_dbl_kind, 11.0426900405036_dbl_kind, 11.0751974445401_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,122) = (/ 10.9082638071576_dbl_kind, 10.9377333011283_dbl_kind, 10.9593557686842_dbl_kind, 10.9689519475339_dbl_kind, 11.0011045457777_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,123) = (/ 10.8361624747727_dbl_kind, 10.8653080754465_dbl_kind, 10.8866874098128_dbl_kind, 10.896191082262_dbl_kind, 10.927994921651_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,124) = (/ 10.7650068069873_dbl_kind, 10.7938347963809_dbl_kind, 10.8149742241243_dbl_kind, 10.824388170865_dbl_kind, 10.8558491380704_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,125) = (/ 10.694778344317_dbl_kind, 10.7232948381146_dbl_kind, 10.744197496608_dbl_kind, 10.7535244430965_dbl_kind, 10.7846482694687_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,126) = (/ 10.6254591047464_dbl_kind, 10.653670056219_dbl_kind, 10.6743389990509_dbl_kind, 10.6835816159233_dbl_kind, 10.7143738822972_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,127) = (/ 10.5570315683759_dbl_kind, 10.5849427722358_dbl_kind, 10.6053809743432_dbl_kind, 10.6145418777946_dbl_kind, 10.6450080191587_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,128) = (/ 10.4894786626587_dbl_kind, 10.5170957588499_dbl_kind, 10.5373061213817_dbl_kind, 10.5463878735148_dbl_kind, 10.5765331835506_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,129) = (/ 10.4227837481976_dbl_kind, 10.4501122256264_dbl_kind, 10.470097580546_dbl_kind, 10.4791026896941_dbl_kind, 10.5089323251883_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,130) = (/ 10.3569306050812_dbl_kind, 10.3839758052881_dbl_kind, 10.4037389197223_dbl_kind, 10.4126698407503_dbl_kind, 10.4421888258864_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,131) = (/ 10.2919034197323_dbl_kind, 10.3186705405072_dbl_kind, 10.33821412085_dbl_kind, 10.3470732554393_dbl_kind, 10.3762864859702_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,132) = (/ 10.2276867722482_dbl_kind, 10.2541808711905_dbl_kind, 10.2735075669701_dbl_kind, 10.2822972638899_dbl_kind, 10.3112095111969_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,133) = (/ 10.1642656242117_dbl_kind, 10.1904916222354_dbl_kind, 10.2096040297527_dbl_kind, 10.2183265851225_dbl_kind, 10.2469425001624_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,134) = (/ 10.1016253069506_dbl_kind, 10.1275879917374_dbl_kind, 10.1464886574837_dbl_kind, 10.1551463150301_dbl_kind, 10.1834704321748_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,135) = (/ 10.0397515102298_dbl_kind, 10.0654555396284_dbl_kind, 10.0841469634917_dbl_kind, 10.0927419148023_dbl_kind, 10.1207786555723_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,136) = (/ 9.9786302713538_dbl_kind, 10.0040801767283_dbl_kind, 10.0225648149951_dbl_kind, 10.0310991997732_dbl_kind, 10.058852876469_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,137) = (/ 9.91824796466585_dbl_kind, 9.94344815419176_dbl_kind, 9.96172842235406_dbl_kind, 9.97020432867604_dbl_kind, 9.99767914790886_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,138) = (/ 9.85859129142467_dbl_kind, 9.88354605333375_dbl_kind, 9.90162432870847_dbl_kind, 9.91004379328636_dbl_kind, 9.93724385941079_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,139) = (/ 9.79964727004408_dbl_kind, 9.82436077581819_dbl_kind, 9.842239399987_dbl_kind, 9.8506044084389_dbl_kind, 9.87753372688978_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,140) = (/ 9.74140322668023_dbl_kind, 9.7658795341937_dbl_kind, 9.78356081527173_dbl_kind, 9.79187330240152_dbl_kind, 9.81853578293683_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,141) = (/ 9.68384678615227_dbl_kind, 9.70808984276318_dbl_kind, 9.72557605750413_dbl_kind, 9.73383790759229_dbl_kind, 9.76023736744408_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,142) = (/ 9.62696586318243_dbl_kind, 9.65097950877256_dbl_kind, 9.66827290451788_dbl_kind, 9.67648595162503_dbl_kind, 9.70262611856024_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,143) = (/ 9.570748653943_dbl_kind, 9.59453662390628_dbl_kind, 9.61163942038601_dbl_kind, 9.61980544867042_dbl_kind, 9.64568996396331_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,144) = (/ 9.51518362789728_dbl_kind, 9.53874955607673_dbl_kind, 9.5556639470693_dbl_kind, 9.56378469111941_dbl_kind, 9.58941711243732_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,145) = (/ 9.46025951992321_dbl_kind, 9.483606941496_dbl_kind, 9.50033509635411_dbl_kind, 9.50841224153728_dbl_kind, 9.53379604574135_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,146) = (/ 9.40596532270769_dbl_kind, 9.4290976770182_dbl_kind, 9.44564174206796_dbl_kind, 9.45367692489584_dbl_kind, 9.47881551075833_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,147) = (/ 9.3522902794015_dbl_kind, 9.37521091274224_dbl_kind, 9.39157301256212_dbl_kind, 9.39956782107363_dbl_kind, 9.42446451191328_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,148) = (/ 9.29922387652396_dbl_kind, 9.32193604486407_dbl_kind, 9.33811828345044_dbl_kind, 9.34607425761269_dbl_kind, 9.37073230384982_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,149) = (/ 9.24675583710787_dbl_kind, 9.26926270876902_dbl_kind, 9.28526717059463_dbl_kind, 9.29318580272208_dbl_kind, 9.31760838435475_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,150) = (/ 9.19487611407497_dbl_kind, 9.21718077235464_dbl_kind, 9.23300952332623_dbl_kind, 9.24089225851839_dbl_kind, 9.26508248752132_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,151) = (/ 9.14357488383336_dbl_kind, 9.16568032957513_dbl_kind, 9.18133541789617_dbl_kind, 9.18918365449398_dbl_kind, 9.21314457714133_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,152) = (/ 9.09284254008783_dbl_kind, 9.11475169419882_dbl_kind, 9.13023515114318_dbl_kind, 9.1380502412039_dbl_kind, 9.16178484031785_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,153) = (/ 9.04266968785526_dbl_kind, 9.06438539377052_dbl_kind, 9.0796992343726_dbl_kind, 9.0874824841633_dbl_kind, 9.11099368128951_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,154) = (/ 8.99304713767696_dbl_kind, 9.01457216377078_dbl_kind, 9.0297183874376_dbl_kind, 9.03747105794687_dbl_kind, 9.06076171545825_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,155) = (/ 8.94396590002065_dbl_kind, 8.96530294196483_dbl_kind, 8.98028353301504_dbl_kind, 8.98800684048278_dbl_kind, 9.01107976361337_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,156) = (/ 8.89541717986475_dbl_kind, 8.91656886293386_dbl_kind, 8.93138579106883_dbl_kind, 8.9390809075336_dbl_kind, 8.9619388463435_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,157) = (/ 8.84739237145813_dbl_kind, 8.8683612527819_dbl_kind, 8.88301647349351_dbl_kind, 8.89068452735714_dbl_kind, 8.91333017863029_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,158) = (/ 8.79988305324873_dbl_kind, 8.82067162401163_dbl_kind, 8.83516707893135_dbl_kind, 8.8428091555402_dbl_kind, 8.86524516461627_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,159) = (/ 8.75288098297483_dbl_kind, 8.77349167056301_dbl_kind, 8.78782928775667_dbl_kind, 8.79544642999905_dbl_kind, 8.81767539254086_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,160) = (/ 8.7063780929127_dbl_kind, 8.72681326300862_dbl_kind, 8.74099495722097_dbl_kind, 8.74858816614006_dbl_kind, 8.77061262983803_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,161) = (/ 8.66036648527515_dbl_kind, 8.68062844390005_dbl_kind, 8.69465611675303_dbl_kind, 8.70222635217464_dbl_kind, 8.72404881838966_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,162) = (/ 8.6148384277552_dbl_kind, 8.63492942325975_dbl_kind, 8.64880496340841_dbl_kind, 8.65635314458295_dbl_kind, 8.67797606992907_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,163) = (/ 8.56978634920955_dbl_kind, 8.58970857421305_dbl_kind, 8.60343385746254_dbl_kind, 8.61096086372035_dbl_kind, 8.63238666158876_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,164) = (/ 8.52520283547701_dbl_kind, 8.54495842875555_dbl_kind, 8.55853531814267_dbl_kind, 8.56604198956204_dbl_kind, 8.5872730315877_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,165) = (/ 8.48108062532671_dbl_kind, 8.5006716736506_dbl_kind, 8.51410201949316_dbl_kind, 8.52158915758019_dbl_kind, 8.54262777505266_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,166) = (/ 8.43741260653152_dbl_kind, 8.45684114645263_dbl_kind, 8.47012678636962_dbl_kind, 8.47759515474921_dbl_kind, 8.49844363996891_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,167) = (/ 8.39419181206225_dbl_kind, 8.41345983165162_dbl_kind, 8.42660259055723_dbl_kind, 8.4340529156742_dbl_kind, 8.45471352325566_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,168) = (/ 8.35141141639821_dbl_kind, 8.37052085693456_dbl_kind, 8.38352254700858_dbl_kind, 8.39095551883832_dbl_kind, 8.41143046696179_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,169) = (/ 8.30906473195011_dbl_kind, 8.32801748955977_dbl_kind, 8.34087991019715_dbl_kind, 8.34829618296474_dbl_kind, 8.36858765457753_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,170) = (/ 8.2671452055912_dbl_kind, 8.28594313284009_dbl_kind, 8.29866807058199_dbl_kind, 8.30606826348904_dbl_kind, 8.32617840745803_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,171) = (/ 8.22564641529285_dbl_kind, 8.2442913227312_dbl_kind, 8.25688055117983_dbl_kind, 8.26426524913824_dbl_kind, 8.28419618135494_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,172) = (/ 8.18456206686118_dbl_kind, 8.20305572452151_dbl_kind, 8.21551100424096_dbl_kind, 8.22288075861265_dbl_kind, 8.24263456305215_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,173) = (/ 8.14388599077076_dbl_kind, 8.16223012961993_dbl_kind, 8.17455320802492_dbl_kind, 8.18190853736678_dbl_kind, 8.20148726710198_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,174) = (/ 8.10361213909242_dbl_kind, 8.1218084524385_dbl_kind, 8.13400106367301_dbl_kind, 8.14134245448611_dbl_kind, 8.16074813265869_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,175) = (/ 8.06373458251167_dbl_kind, 8.08178472736617_dbl_kind, 8.09384859217369_dbl_kind, 8.10117649965612_dbl_kind, 8.12041112040531_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,176) = (/ 8.02424750743474_dbl_kind, 8.04215310583122_dbl_kind, 8.05408993141821_dbl_kind, 8.06140478022055_dbl_kind, 8.08047030957142_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,177) = (/ 7.98514521317929_dbl_kind, 8.00290785344888_dbl_kind, 8.01471933334299_dbl_kind, 8.02202151832573_dbl_kind, 8.04091989503801_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,178) = (/ 7.94642210924661_dbl_kind, 7.96404334725147_dbl_kind, 7.97573116115602_dbl_kind, 7.98302104814806_dbl_kind, 8.00175418452685_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,179) = (/ 7.90807271267311_dbl_kind, 7.92555407299834_dbl_kind, 7.93711988664423_dbl_kind, 7.94439781320176_dbl_kind, 7.96296759587163_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,180) = (/ 7.8700916454577_dbl_kind, 7.88743462256286_dbl_kind, 7.89888008755919_dbl_kind, 7.90614636372421_dbl_kind, 7.92455465436756_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,181) = (/ 7.83247363206325_dbl_kind, 7.84967969139406_dbl_kind, 7.86100644507854_dbl_kind, 7.86826135413626_dbl_kind, 7.88650999019757_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,182) = (/ 7.79521349698909_dbl_kind, 7.81228407605025_dbl_kind, 7.82349374134055_dbl_kind, 7.83073754057487_dbl_kind, 7.84882833593188_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,183) = (/ 7.75830616241251_dbl_kind, 7.77524267180248_dbl_kind, 7.78633685704924_dbl_kind, 7.79356977849585_dbl_kind, 7.81150452409883_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,184) = (/ 7.72174664589682_dbl_kind, 7.73855047030546_dbl_kind, 7.74953076914796_dbl_kind, 7.75675302034421_dbl_kind, 7.77453348482468_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,185) = (/ 7.6855300581639_dbl_kind, 7.70220255733367_dbl_kind, 7.71307054855892_dbl_kind, 7.72028231328988_dbl_kind, 7.73791024353978_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,186) = (/ 7.64965160092899_dbl_kind, 7.66619411058083_dbl_kind, 7.67695135798672_dbl_kind, 7.68415279702683_dbl_kind, 7.70162991874939_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,187) = (/ 7.61410656479585_dbl_kind, 7.63052039752029_dbl_kind, 7.64116844978356_dbl_kind, 7.64835970163325_dbl_kind, 7.66568771986659_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,188) = (/ 7.57889032721012_dbl_kind, 7.59517677332481_dbl_kind, 7.60571716387417_dbl_kind, 7.61289834549093_dbl_kind, 7.63007894510559_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,189) = (/ 7.54399835046929_dbl_kind, 7.56015867884354_dbl_kind, 7.57059292573869_dbl_kind, 7.577764133262_dbl_kind, 7.59479897943339_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,190) = (/ 7.5094261797871_dbl_kind, 7.5254616386344_dbl_kind, 7.5357912444513_dbl_kind, 7.54295255392092_dbl_kind, 7.55984329257773_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,191) = (/ 7.47516944141099_dbl_kind, 7.49108125905041_dbl_kind, 7.50130771077312_dbl_kind, 7.50845917884028_dbl_kind, 7.52520743709_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,192) = (/ 7.44122384079065_dbl_kind, 7.45701322637792_dbl_kind, 7.46713799529738_dbl_kind, 7.47427965992836_dbl_kind, 7.49088704646077_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,193) = (/ 7.40758516079607_dbl_kind, 7.42325330502516_dbl_kind, 7.43327784664533_dbl_kind, 7.44040972781703_dbl_kind, 7.45687783328665_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,194) = (/ 7.37424925998382_dbl_kind, 7.38979733575988_dbl_kind, 7.39972308971125_dbl_kind, 7.40684519009833_dbl_kind, 7.42317558748685_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,195) = (/ 7.3412120709095_dbl_kind, 7.3566412339941_dbl_kind, 7.3664696239549_dbl_kind, 7.37358192960807_dbl_kind, 7.38977617456766_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,196) = (/ 7.30846959848553_dbl_kind, 7.32378098811477_dbl_kind, 7.33351342174015_dbl_kind, 7.34061590275525_dbl_kind, 7.35667553393368_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,197) = (/ 7.27601791838241_dbl_kind, 7.29121265785899_dbl_kind, 7.30085052671795_dbl_kind, 7.30794313789557_dbl_kind, 7.32386967724379_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,198) = (/ 7.24385317547221_dbl_kind, 7.2589323727321_dbl_kind, 7.26847705225265_dbl_kind, 7.27555973374782_dbl_kind, 7.29135468681127_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,199) = (/ 7.21197158231324_dbl_kind, 7.22693633046778_dbl_kind, 7.23638917989014_dbl_kind, 7.24346185785191_dbl_kind, 7.25912671404596_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,200) = (/ 7.18036941767423_dbl_kind, 7.19522079552846_dbl_kind, 7.20458315786633_dbl_kind, 7.21164574506696_dbl_kind, 7.22718197793754_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,201) = (/ 7.14904302509712_dbl_kind, 7.16378209764509_dbl_kind, 7.17305529965511_dbl_kind, 7.18010769610858_dbl_kind, 7.19551676357863_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,202) = (/ 7.11798881149714_dbl_kind, 7.13261663039498_dbl_kind, 7.14180198255427_dbl_kind, 7.14884407612392_dbl_kind, 7.16412742072659_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,203) = (/ 7.08720324579908_dbl_kind, 7.10172084981655_dbl_kind, 7.11081964630827_dbl_kind, 7.11785131330334_dbl_kind, 7.13301036240237_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,204) = (/ 7.05668285760873_dbl_kind, 7.07109127306002_dbl_kind, 7.08010479176691_dbl_kind, 7.08712589752781_dbl_kind, 7.1021620635261_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,205) = (/ 7.02642423591827_dbl_kind, 7.04072447707271_dbl_kind, 7.04965397957847_dbl_kind, 7.05666437905068_dbl_kind, 7.07157905958749_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,206) = (/ 6.99642402784474_dbl_kind, 7.01061709731821_dbl_kind, 7.01946382891668_dbl_kind, 7.02646336721299_dbl_kind, 7.04125794535054_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,207) = (/ 6.96667893740057_dbl_kind, 6.9807658265282_dbl_kind, 6.98953101624014_dbl_kind, 6.99651952919128_dbl_kind, 7.0111953735914_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,208) = (/ 6.9371857242952_dbl_kind, 6.95116741348611_dbl_kind, 6.95985227408354_dbl_kind, 6.96682958877693_dbl_kind, 6.98138805386818_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,209) = (/ 6.9079412027668_dbl_kind, 6.92181866184154_dbl_kind, 6.93042438987931_dbl_kind, 6.93739032518602_dbl_kind, 6.95183275132213_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,210) = (/ 6.87894224044341_dbl_kind, 6.89271642895474_dbl_kind, 6.90124420480934_dbl_kind, 6.90819857189902_dbl_kind, 6.92252628550897_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,211) = (/ 6.85018575723239_dbl_kind, 6.86385762476999_dbl_kind, 6.87230861268535_dbl_kind, 6.87925121552921_dbl_kind, 6.8934655292596_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,212) = (/ 6.82166872423759_dbl_kind, 6.83523921071734_dbl_kind, 6.84361455885744_dbl_kind, 6.85054519471918_dbl_kind, 6.86464740756939_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,213) = (/ 6.79338816270319_dbl_kind, 6.80685819864172_dbl_kind, 6.81515903914977_dbl_kind, 6.82207749906442_dbl_kind, 6.83606889651508_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,214) = (/ 6.7653411429837_dbl_kind, 6.77871164975863_dbl_kind, 6.78693909882274_dbl_kind, 6.79384516806345_dbl_kind, 6.80772702219859_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,215) = (/ 6.73752478353915_dbl_kind, 6.7507966736357_dbl_kind, 6.75895183156072_dbl_kind, 6.76584529009353_dbl_kind, 6.77961885971695_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,216) = (/ 6.70993624995486_dbl_kind, 6.72311042719943_dbl_kind, 6.73119437848477_dbl_kind, 6.7380750014113_dbl_kind, 6.75174153215756_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,217) = (/ 6.68257275398508_dbl_kind, 6.69565011376619_dbl_kind, 6.70366392718948_dbl_kind, 6.71053148517765_dbl_kind, 6.72409220961812_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,218) = (/ 6.65543155261981_dbl_kind, 6.66841298209707_dbl_kind, 6.67635771080335_dbl_kind, 6.68321197050608_dbl_kind, 6.69666810825036_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,219) = (/ 6.62850994717407_dbl_kind, 6.64139632547567_dbl_kind, 6.64927300707196_dbl_kind, 6.65611373153411_dbl_kind, 6.66946648932732_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,220) = (/ 6.60180528239923_dbl_kind, 6.61459748080838_dbl_kind, 6.62240713746333_dbl_kind, 6.62923408651667_dbl_kind, 6.64248465833283_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,221) = (/ 6.57531494561535_dbl_kind, 6.58801382774621_dbl_kind, 6.59575746629475_dbl_kind, 6.60257039694127_dbl_kind, 6.61571996407322_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,222) = (/ 6.54903636586451_dbl_kind, 6.56164278782812_dbl_kind, 6.5693213998807_dbl_kind, 6.57612006666424_dbl_kind, 6.5891697978103_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,223) = (/ 6.52296701308396_dbl_kind, 6.53548182364452_dbl_kind, 6.54309638570089_dbl_kind, 6.54988054106721_dbl_kind, 6.56283159241506_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,224) = (/ 6.49710439729904_dbl_kind, 6.50952843802104_dbl_kind, 6.51707991158825_dbl_kind, 6.52384930623368_dbl_kind, 6.53670282154151_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,225) = (/ 6.47144606783493_dbl_kind, 6.48378017322165_dbl_kind, 6.49126950493605_dbl_kind, 6.49802388814478_dbl_kind, 6.5107809988202_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,226) = (/ 6.44598961254703_dbl_kind, 6.45823461017062_dbl_kind, 6.46566273192375_dbl_kind, 6.47240185189392_dbl_kind, 6.48506367707081_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,227) = (/ 6.42073265706929_dbl_kind, 6.43288936769303_dbl_kind, 6.44025719676104_dbl_kind, 6.44698080091972_dbl_kind, 6.45954844753319_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,228) = (/ 6.3956728640799_dbl_kind, 6.40774210177292_dbl_kind, 6.41505054094941_dbl_kind, 6.42175837625673_dbl_kind, 6.43423293911648_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,229) = (/ 6.37080793258426_dbl_kind, 6.38279050482909_dbl_kind, 6.39004044256111_dbl_kind, 6.39673225580351_dbl_kind, 6.40911481766584_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,230) = (/ 6.34613559721418_dbl_kind, 6.35803230500761_dbl_kind, 6.36522461553467_dbl_kind, 6.37190015360752_dbl_kind, 6.38419178524614_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,231) = (/ 6.32165362754353_dbl_kind, 6.33346526549095_dbl_kind, 6.34060080898676_dbl_kind, 6.34725981916652_dbl_kind, 6.35946157944236_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,232) = (/ 6.29735982741929_dbl_kind, 6.30908718382302_dbl_kind, 6.31616680653982_dbl_kind, 6.32280903674585_dbl_kind, 6.33492197267599_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,233) = (/ 6.27325203430807_dbl_kind, 6.28489589124985_dbl_kind, 6.29192042566515_dbl_kind, 6.29854562471133_dbl_kind, 6.31057077153739_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,234) = (/ 6.24932811865728_dbl_kind, 6.26088925207544_dbl_kind, 6.2678595170409_dbl_kind, 6.27446743487729_dbl_kind, 6.28640581613314_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,235) = (/ 6.22558598327106_dbl_kind, 6.23706516303236_dbl_kind, 6.24398196392476_dbl_kind, 6.2505723518694_dbl_kind, 6.26242497944866_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,236) = (/ 6.20202356269992_dbl_kind, 6.21342155266674_dbl_kind, 6.22028568154064_dbl_kind, 6.22685829250171_dbl_kind, 6.23862616672498_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,237) = (/ 6.17863882264442_dbl_kind, 6.18995638073724_dbl_kind, 6.19676861647945_dbl_kind, 6.20332320516794_dbl_kind, 6.21500731484979_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,238) = (/ 6.15542975937204_dbl_kind, 6.16666763762764_dbl_kind, 6.17342874611306_dbl_kind, 6.17996506924616_dbl_kind, 6.19156639176226_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,239) = (/ 6.13239439914707_dbl_kind, 6.14355334377274_dbl_kind, 6.15026407802157_dbl_kind, 6.15678189451691_dbl_kind, 6.16830139587125_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,240) = (/ 6.10953079767318_dbl_kind, 6.12061154909708_dbl_kind, 6.12727264943314_dbl_kind, 6.13377172059414_dbl_kind, 6.14521035548633_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,241) = (/ 6.08683703954837_dbl_kind, 6.09784033246635_dbl_kind, 6.10445252667644_dbl_kind, 6.1109326163689_dbl_kind, 6.12229132826183_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,242) = (/ 6.06431123773191_dbl_kind, 6.075237801151_dbl_kind, 6.08180180464508_dbl_kind, 6.08826267946514_dbl_kind, 6.09954240065303_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,243) = (/ 6.04195153302292_dbl_kind, 6.05280209030173_dbl_kind, 6.05931860627381_dbl_kind, 6.06576003570768_dbl_kind, 6.07696168738442_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,244) = (/ 6.01975609355058_dbl_kind, 6.03053136243676_dbl_kind, 6.03700108202634_dbl_kind, 6.04342283860168_dbl_kind, 6.0545473309298_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,245) = (/ 5.99772311427518_dbl_kind, 6.00842380694023_dbl_kind, 6.01484740939415_dbl_kind, 6.02124926882359_dbl_kind, 6.03229750100366_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,246) = (/ 5.97585081650027_dbl_kind, 5.98647763957179_dbl_kind, 5.99285579240644_dbl_kind, 5.99923753372316_dbl_kind, 6.01021039406384_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,247) = (/ 5.9541374473952_dbl_kind, 5.96469110198688_dbl_kind, 5.97102446115046_dbl_kind, 5.97738586683627_dbl_kind, 5.98828423282497_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,248) = (/ 5.93258127952808_dbl_kind, 5.9430624612675_dbl_kind, 5.94935167130242_dbl_kind, 5.95569252740829_dbl_kind, 5.96651726578251_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,249) = (/ 5.91118061040869_dbl_kind, 5.92159000946316_dbl_kind, 5.9278357036683_dbl_kind, 5.93415579992776_dbl_kind, 5.94490776674708_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,250) = (/ 5.88993376204122_dbl_kind, 5.9002720631418_dbl_kind, 5.90647486373467_dbl_kind, 5.91277399367001_dbl_kind, 5.92345403438885_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,251) = (/ 5.86883908048668_dbl_kind, 5.87910696295051_dbl_kind, 5.88526748122901_dbl_kind, 5.89154544225073_dbl_kind, 5.90215439179189_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,252) = (/ 5.84789493543435_dbl_kind, 5.85809307318553_dbl_kind, 5.86421190968939_dbl_kind, 5.87046850318886_dbl_kind, 5.88100718601769_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,253) = (/ 5.82709971978261_dbl_kind, 5.83722878137159_dbl_kind, 5.84330652604331_dbl_kind, 5.84954155747898_dbl_kind, 5.86001078767846_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,254) = (/ 5.80645184922841_dbl_kind, 5.81651249785023_dbl_kind, 5.82254973019539_dbl_kind, 5.82876300917266_dbl_kind, 5.83916359051914_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,255) = (/ 5.78594976186549_dbl_kind, 5.79594265537685_dbl_kind, 5.8019399446238_dbl_kind, 5.8081312849687_dbl_kind, 5.81846401100855_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,256) = (/ 5.76559191779105_dbl_kind, 5.77551770872637_dbl_kind, 5.78147561398513_dbl_kind, 5.78764483381208_dbl_kind, 5.79791048793899_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,257) = (/ 5.74537679872055_dbl_kind, 5.75523613430713_dbl_kind, 5.76115520472746_dbl_kind, 5.7673021265012_dbl_kind, 5.77750148203433_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,258) = (/ 5.72530290761057_dbl_kind, 5.73509642978301_dbl_kind, 5.74097720471157_dbl_kind, 5.74710165530349_dbl_kind, 5.75723547556638_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,259) = (/ 5.70536876828964_dbl_kind, 5.71509711370348_dbl_kind, 5.72094012283999_dbl_kind, 5.72704193357901_dbl_kind, 5.73711097197923_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,260) = (/ 5.68557292509645_dbl_kind, 5.69523672514134_dbl_kind, 5.70104248869368_dbl_kind, 5.70712149541182_dbl_kind, 5.71712649552143_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,261) = (/ 5.66591394252573_dbl_kind, 5.67551382333799_dbl_kind, 5.68128285217625_dbl_kind, 5.68733889524912_dbl_kind, 5.69728059088573_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,262) = (/ 5.64639040488137_dbl_kind, 5.65592698735619_dbl_kind, 5.66165978316541_dbl_kind, 5.66769270754777_dbl_kind, 5.67757182285646_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,263) = (/ 5.62700091593662_dbl_kind, 5.63647481573989_dbl_kind, 5.6421718711717_dbl_kind, 5.6481815264282_dbl_kind, 5.65799877596404_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,264) = (/ 5.60774409860114_dbl_kind, 5.61715592618107_dbl_kind, 5.62281772500396_dbl_kind, 5.62880396533526_dbl_kind, 5.63856005414656_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,265) = (/ 5.58861859459509_dbl_kind, 5.59796895519356_dbl_kind, 5.60359597244183_dbl_kind, 5.60955865670629_dbl_kind, 5.61925428041846_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,266) = (/ 5.56962306412948_dbl_kind, 5.57891255779333_dbl_kind, 5.58450525991469_dbl_kind, 5.59044425164572_dbl_kind, 5.60008009654578_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,267) = (/ 5.55075618559329_dbl_kind, 5.55998540718554_dbl_kind, 5.56554425218723_dbl_kind, 5.57145941960651_dbl_kind, 5.58103616272817_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,268) = (/ 5.53201665524673_dbl_kind, 5.54118619445773_dbl_kind, 5.5467116320512_dbl_kind, 5.55260284807787_dbl_kind, 5.56212115728723_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,269) = (/ 5.5134031869207_dbl_kind, 5.52251362827941_dbl_kind, 5.52800610002352_dbl_kind, 5.53387324227953_dbl_kind, 5.54333377636124_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,270) = (/ 5.49491451172227_dbl_kind, 5.50396643460762_dbl_kind, 5.50942637405023_dbl_kind, 5.51526932486199_dbl_kind, 5.52467273360603_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,271) = (/ 5.47654937774605_dbl_kind, 5.48554335639839_dbl_kind, 5.49097118921649_dbl_kind, 5.49678983561287_dbl_kind, 5.50613675990175_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,272) = (/ 5.45830654979125_dbl_kind, 5.46724315332404_dbl_kind, 5.4726392974622_dbl_kind, 5.47843353116924_dbl_kind, 5.48772460306559_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,273) = (/ 5.44018480908446_dbl_kind, 5.44906460149619_dbl_kind, 5.45442946730341_dbl_kind, 5.4601991847356_dbl_kind, 5.4694350275703_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,274) = (/ 5.42218295300779_dbl_kind, 5.43100649319414_dbl_kind, 5.43634048355906_dbl_kind, 5.44208558580752_dbl_kind, 5.45126681426816_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,275) = (/ 5.40429979483241_dbl_kind, 5.41306763659872_dbl_kind, 5.41837114708319_dbl_kind, 5.42409153990082_dbl_kind, 5.43321876012046_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,276) = (/ 5.38653416345735_dbl_kind, 5.39524685553143_dbl_kind, 5.40052027450235_dbl_kind, 5.40621586828606_dbl_kind, 5.4152896779324_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,277) = (/ 5.36888490315342_dbl_kind, 5.37754298919869_dbl_kind, 5.38278669795819_dbl_kind, 5.38845740772836_dbl_kind, 5.3974783960931_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,278) = (/ 5.35135087331204_dbl_kind, 5.35995489194109_dbl_kind, 5.365169264855_dbl_kind, 5.37081501023226_dbl_kind, 5.37978375832081_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,279) = (/ 5.33393094819906_dbl_kind, 5.3424814329876_dbl_kind, 5.34766683761214_dbl_kind, 5.35328754279167_dbl_kind, 5.36220462341297_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,280) = (/ 5.31662401671331_dbl_kind, 5.32512149621455_dbl_kind, 5.33027829342136_dbl_kind, 5.33587388714472_dbl_kind, 5.3447398650013_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,281) = (/ 5.29942898214983_dbl_kind, 5.3078739799093_dbl_kind, 5.31300252400869_dbl_kind, 5.31857293953333_dbl_kind, 5.32738837131155_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,282) = (/ 5.28234476196762_dbl_kind, 5.29073779653845_dbl_kind, 5.29583843540092_dbl_kind, 5.30138361046753_dbl_kind, 5.31014904492786_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,283) = (/ 5.26537028756192_dbl_kind, 5.27371187252063_dbl_kind, 5.27878494769662_dbl_kind, 5.2843048244944_dbl_kind, 5.29302080256179_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,284) = (/ 5.24850450404082_dbl_kind, 5.25679514800355_dbl_kind, 5.26184099484146_dbl_kind, 5.26733551997136_dbl_kind, 5.2760025748257_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,285) = (/ 5.23174637000613_dbl_kind, 5.23998657664539_dbl_kind, 5.24500552440783_dbl_kind, 5.25047464884396_dbl_kind, 5.25909330601054_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,286) = (/ 5.2150948573384_dbl_kind, 5.22328512540038_dbl_kind, 5.22827749737866_dbl_kind, 5.23372117642787_dbl_kind, 5.24229195386779_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,287) = (/ 5.1985489509861_dbl_kind, 5.2066897743084_dbl_kind, 5.21165588793533_dbl_kind, 5.21707408119513_dbl_kind, 5.22559748939567_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,288) = (/ 5.18210764875874_dbl_kind, 5.1901995162887_dbl_kind, 5.19513968324953_dbl_kind, 5.20053235456443_dbl_kind, 5.20900889662938_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,289) = (/ 5.16576996112382_dbl_kind, 5.17381335693733_dbl_kind, 5.17872788327906_dbl_kind, 5.18409500069542_dbl_kind, 5.19252517243519_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,290) = (/ 5.14953491100773_dbl_kind, 5.15753031432862_dbl_kind, 5.16241950056752_dbl_kind, 5.16776103628693_dbl_kind, 5.17614532630863_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,291) = (/ 5.13340153360036_dbl_kind, 5.14134941882024_dbl_kind, 5.14621356004763_dbl_kind, 5.15152949037906_dbl_kind, 5.15986838017633_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,292) = (/ 5.11736887616323_dbl_kind, 5.12526971286193_dbl_kind, 5.13010909884827_dbl_kind, 5.13539940415891_dbl_kind, 5.14369336820156_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,293) = (/ 5.10143599784136_dbl_kind, 5.10929025080788_dbl_kind, 5.11410516610514_dbl_kind, 5.11936983077012_dbl_kind, 5.12761933659355_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,294) = (/ 5.08560196947858_dbl_kind, 5.09341009873255_dbl_kind, 5.09820082277486_dbl_kind, 5.10343983512587_dbl_kind, 5.11164534342019_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,295) = (/ 5.06986587343621_dbl_kind, 5.07762833424989_dbl_kind, 5.08239514145253_dbl_kind, 5.08760849372546_dbl_kind, 5.09577045842436_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,296) = (/ 5.05422680341518_dbl_kind, 5.06194404633596_dbl_kind, 5.06668720619265_dbl_kind, 5.07187489447431_dbl_kind, 5.07999376284357_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,297) = (/ 5.03868386428131_dbl_kind, 5.04635633515476_dbl_kind, 5.0510761123333_dbl_kind, 5.05623813650725_dbl_kind, 5.06431434923293_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,298) = (/ 5.02323617189397_dbl_kind, 5.03086431188735_dbl_kind, 5.03556096632358_dbl_kind, 5.04069733001521_dbl_kind, 5.0487313212915_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,299) = (/ 5.00788285293768_dbl_kind, 5.01546709856401_dbl_kind, 5.02014088555418_dbl_kind, 5.02525159607506_dbl_kind, 5.03324379369163_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,300) = (/ 4.99262304475696_dbl_kind, 5.00016382789951_dbl_kind, 5.00481499819098_dbl_kind, 5.00990006648258_dbl_kind, 5.0178508919116_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,301) = (/ 4.97745589519405_dbl_kind, 4.98495364313139_dbl_kind, 4.98958244301174_dbl_kind, 4.99464188358854_dbl_kind, 5.00255175207124_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,302) = (/ 4.96238056242965_dbl_kind, 4.96983569786114_dbl_kind, 4.97444236924571_dbl_kind, 4.97947620013776_dbl_kind, 4.98734552077051_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,303) = (/ 4.94739621482656_dbl_kind, 4.95480915589829_dbl_kind, 4.95939393641612_dbl_kind, 4.9644021791112_dbl_kind, 4.97223135493108_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,304) = (/ 4.93250203077609_dbl_kind, 4.9398731911073_dbl_kind, 4.94443631418554_dbl_kind, 4.94941899357083_dbl_kind, 4.95720842164074_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,305) = (/ 4.91769719854719_dbl_kind, 4.92502698725718_dbl_kind, 4.92956868220391_dbl_kind, 4.93452582650738_dbl_kind, 4.94227589800059_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,306) = (/ 4.90298091613849_dbl_kind, 4.91026973787389_dbl_kind, 4.91479022995946_dbl_kind, 4.91972187069087_dbl_kind, 4.92743297097502_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,307) = (/ 4.88835239113273_dbl_kind, 4.89560064609523_dbl_kind, 4.9001001566321_dbl_kind, 4.90500632852384_dbl_kind, 4.91267883724437_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,308) = (/ 4.87381084055391_dbl_kind, 4.88101892452841_dbl_kind, 4.8854976709495_dbl_kind, 4.89037841189715_dbl_kind, 4.89801270306013_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,309) = (/ 4.85935549072708_dbl_kind, 4.86652379511024_dbl_kind, 4.87098199104577_dbl_kind, 4.87583734204856_dbl_kind, 4.88343378410298_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,310) = (/ 4.8449855771404_dbl_kind, 4.85211448896957_dbl_kind, 4.85655234432251_dbl_kind, 4.86138234942361_dbl_kind, 4.86894130534296_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,311) = (/ 4.83070034430981_dbl_kind, 4.83779024629235_dbl_kind, 4.84220796731243_dbl_kind, 4.84701267353924_dbl_kind, 4.8545345009025_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,312) = (/ 4.81649904564602_dbl_kind, 4.82355031618899_dbl_kind, 4.82794810554527_dbl_kind, 4.8327275628496_dbl_kind, 4.84021261392162_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,313) = (/ 4.80238094332388_dbl_kind, 4.80939395656404_dbl_kind, 4.81377201341613_dbl_kind, 4.8185262746145_dbl_kind, 4.82597489642561_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,314) = (/ 4.78834530815396_dbl_kind, 4.79532043398816_dbl_kind, 4.79967895405607_dbl_kind, 4.80440807476994_dbl_kind, 4.81182060919498_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,315) = (/ 4.77439141945647_dbl_kind, 4.78132902357238_dbl_kind, 4.78566819920495_dbl_kind, 4.79037223780115_dbl_kind, 4.79774902163775_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,316) = (/ 4.76051856493732_dbl_kind, 4.76741900884438_dbl_kind, 4.7717390290865_dbl_kind, 4.77641804661773_dbl_kind, 4.78375941166391_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,317) = (/ 4.7467260405664_dbl_kind, 4.75358968162715_dbl_kind, 4.75789073228558_dbl_kind, 4.76254479243104_dbl_kind, 4.76985106556211_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,318) = (/ 4.73301315045784_dbl_kind, 4.73984034191955_dbl_kind, 4.74412260562748_dbl_kind, 4.74875177463377_dbl_kind, 4.75602327787845_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,319) = (/ 4.71937920675252_dbl_kind, 4.72617029777902_dbl_kind, 4.73043395405935_dbl_kind, 4.73503830068153_dbl_kind, 4.7422753512974_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,320) = (/ 4.70582352950245_dbl_kind, 4.71257886520627_dbl_kind, 4.71682409053366_dbl_kind, 4.72140368597658_dbl_kind, 4.72860659652472_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,321) = (/ 4.69234544655722_dbl_kind, 4.69906536803197_dbl_kind, 4.70329233589367_dbl_kind, 4.70784725375357_dbl_kind, 4.71501633217251_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,322) = (/ 4.67894429345242_dbl_kind, 4.68562913780538_dbl_kind, 4.68983801876081_dbl_kind, 4.69436833496724_dbl_kind, 4.70150388464611_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,323) = (/ 4.66561941329988_dbl_kind, 4.67226951368484_dbl_kind, 4.67646047542401_dbl_kind, 4.68096626818209_dbl_kind, 4.688068588033_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,324) = (/ 4.65237015667985_dbl_kind, 4.65898584233014_dbl_kind, 4.6631590497309_dbl_kind, 4.66764039946389_dbl_kind, 4.67470978399355_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,325) = (/ 4.63919588153499_dbl_kind, 4.6457774777967_dbl_kind, 4.64993309298084_dbl_kind, 4.65439008227315_dbl_kind, 4.66142682165369_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,326) = (/ 4.6260959530662_dbl_kind, 4.63264378143158_dbl_kind, 4.63678196381979_dbl_kind, 4.64121467736035_dbl_kind, 4.64821905749939_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,327) = (/ 4.61306974363015_dbl_kind, 4.61958412177117_dbl_kind, 4.6237050281369_dbl_kind, 4.62811355266295_dbl_kind, 4.63508585527284_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,328) = (/ 4.60011663263854_dbl_kind, 4.60659787444065_dbl_kind, 4.61070165896289_dbl_kind, 4.61508608320423_dbl_kind, 4.62202658587047_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,329) = (/ 4.58723600645918_dbl_kind, 4.59368442205511_dbl_kind, 4.59777123637008_dbl_kind, 4.60213165099379_dbl_kind, 4.60904062724274_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,330) = (/ 4.5744272583185_dbl_kind, 4.58084315412231_dbl_kind, 4.5849131473741_dbl_kind, 4.58924964492968_dbl_kind, 4.59612736429538_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,331) = (/ 4.56168978820596_dbl_kind, 4.5680734669471_dbl_kind, 4.57212678583728_dbl_kind, 4.57643946070237_dbl_kind, 4.58328618879259_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,332) = (/ 4.54902300277982_dbl_kind, 4.55537476353737_dbl_kind, 4.5594115523736_dbl_kind, 4.56370050070012_dbl_kind, 4.57051649926159_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,333) = (/ 4.53642631527462_dbl_kind, 4.54274645351157_dbl_kind, 4.54676685425519_dbl_kind, 4.55103217391606_dbl_kind, 4.55781770089891_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,334) = (/ 4.52389914541018_dbl_kind, 4.53018795300781_dbl_kind, 4.53419210532048_dbl_kind, 4.53843389585687_dbl_kind, 4.54518920547821_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,335) = (/ 4.51144091930205_dbl_kind, 4.51769868459437_dbl_kind, 4.52168672588375_dbl_kind, 4.52590508845283_dbl_kind, 4.53263043125959_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,336) = (/ 4.49905106937346_dbl_kind, 4.5052780771817_dbl_kind, 4.50925014264615_dbl_kind, 4.51344517996949_dbl_kind, 4.52014080290039_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,337) = (/ 4.48672903426878_dbl_kind, 4.49292556593594_dbl_kind, 4.49688178860835_dbl_kind, 4.50105360492083_dbl_kind, 4.50771975136754_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,338) = (/ 4.47447425876832_dbl_kind, 4.48064059219375_dbl_kind, 4.48458110298441_dbl_kind, 4.4887298039837_dbl_kind, 4.49536671385123_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,339) = (/ 4.46228619370459_dbl_kind, 4.46842260337855_dbl_kind, 4.47234753111721_dbl_kind, 4.47647322391388_dbl_kind, 4.48308113368011_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,340) = (/ 4.45016429587984_dbl_kind, 4.45627105291814_dbl_kind, 4.46018052439513_dbl_kind, 4.46428331746335_dbl_kind, 4.47086246023775_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,341) = (/ 4.43810802798505_dbl_kind, 4.44418540016364_dbl_kind, 4.44807954017015_dbl_kind, 4.452159543299_dbl_kind, 4.45871014888061_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,342) = (/ 4.42611685852023_dbl_kind, 4.43216511030975_dbl_kind, 4.43604404167731_dbl_kind, 4.44010136592268_dbl_kind, 4.44662366085722_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,343) = (/ 4.41419026171586_dbl_kind, 4.42020965431626_dbl_kind, 4.42407349795537_dbl_kind, 4.42810825559252_dbl_kind, 4.43460246322868_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,344) = (/ 4.4023277174558_dbl_kind, 4.40831850883085_dbl_kind, 4.41216738376881_dbl_kind, 4.41617968824553_dbl_kind, 4.42264602879052_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,345) = (/ 4.39052871120133_dbl_kind, 4.39649115611312_dbl_kind, 4.40032517953108_dbl_kind, 4.40431514542148_dbl_kind, 4.41075383599574_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,346) = (/ 4.37879273391644_dbl_kind, 4.3847270839598_dbl_kind, 4.38854637122904_dbl_kind, 4.39251411418802_dbl_kind, 4.39892536887915_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,347) = (/ 4.36711928199428_dbl_kind, 4.37302578563121_dbl_kind, 4.37683045034865_dbl_kind, 4.38077608706694_dbl_kind, 4.38716011698283_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,348) = (/ 4.3555078571849_dbl_kind, 4.36138675977883_dbl_kind, 4.36517691380181_dbl_kind, 4.36910056196174_dbl_kind, 4.3754575752829_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,349) = (/ 4.34395796652396_dbl_kind, 4.34980951037402_dbl_kind, 4.35358526385439_dbl_kind, 4.35748704208621_dbl_kind, 4.36381724411738_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,350) = (/ 4.33246912226279_dbl_kind, 4.33829354663792_dbl_kind, 4.34205500805534_dbl_kind, 4.34593503589429_dbl_kind, 4.35223862911519_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,351) = (/ 4.32104084179937_dbl_kind, 4.32683838297241_dbl_kind, 4.33058565916702_dbl_kind, 4.33444405701098_dbl_kind, 4.34072124112633_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,352) = (/ 4.3096726476105_dbl_kind, 4.3154435388921_dbl_kind, 4.31917673509651_dbl_kind, 4.32301362416433_dbl_kind, 4.32926459615309_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,353) = (/ 4.29836406718507_dbl_kind, 4.30410853895754_dbl_kind, 4.3078277588281_dbl_kind, 4.3116432611186_dbl_kind, 4.31786821528244_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,354) = (/ 4.28711463295825_dbl_kind, 4.29283291270927_dbl_kind, 4.29653825835676_dbl_kind, 4.30033249660833_dbl_kind, 4.30653162461937_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,355) = (/ 4.27592388224689_dbl_kind, 4.28161619460309_dbl_kind, 4.2853077666227_dbl_kind, 4.28908086427363_dbl_kind, 4.29525435522141_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,356) = (/ 4.26479135718578_dbl_kind, 4.2704579239462_dbl_kind, 4.27413582144692_dbl_kind, 4.27788790259634_dbl_kind, 4.28403594303403_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,357) = (/ 4.25371660466501_dbl_kind, 4.2593576448344_dbl_kind, 4.26302196546783_dbl_kind, 4.26675315483728_dbl_kind, 4.27287592882715_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,358) = (/ 4.2426991762682_dbl_kind, 4.24831490609019_dbl_kind, 4.25196574607868_dbl_kind, 4.25567616897441_dbl_kind, 4.2617738581326_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,359) = (/ 4.23173862821184_dbl_kind, 4.23732926120193_dbl_kind, 4.24096671536618_dbl_kind, 4.24465649764204_dbl_kind, 4.25072928118255_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,360) = (/ 4.22083452128544_dbl_kind, 4.22640026826385_dbl_kind, 4.23002443004994_dbl_kind, 4.23369369807091_dbl_kind, 4.23974175284892_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,361) = (/ 4.20998642079265_dbl_kind, 4.21552748991699_dbl_kind, 4.21913845142283_dbl_kind, 4.22278733202925_dbl_kind, 4.22881083258368_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,362) = (/ 4.19919389649329_dbl_kind, 4.20471049329108_dbl_kind, 4.20830834529228_dbl_kind, 4.21193696576471_dbl_kind, 4.21793608436012_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,363) = (/ 4.1884565225463_dbl_kind, 4.19394884994727_dbl_kind, 4.19753368192257_dbl_kind, 4.20114216994724_dbl_kind, 4.20711707661499_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,364) = (/ 4.17777387745353_dbl_kind, 4.18324213582174_dbl_kind, 4.18681403597782_dbl_kind, 4.19040251961281_dbl_kind, 4.19635338219149_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,365) = (/ 4.16714554400438_dbl_kind, 4.1725899311702_dbl_kind, 4.17614898646599_dbl_kind, 4.17971759410795_dbl_kind, 4.18564457828324_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,366) = (/ 4.15657110922132_dbl_kind, 4.16199182051317_dbl_kind, 4.1655381166837_dbl_kind, 4.1690869770353_dbl_kind, 4.17499024637903_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,367) = (/ 4.14605016430622_dbl_kind, 4.15144739258211_dbl_kind, 4.15498101416183_dbl_kind, 4.15851025619975_dbl_kind, 4.16438997220837_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,368) = (/ 4.13558230458754_dbl_kind, 4.14095624026641_dbl_kind, 4.14447727061205_dbl_kind, 4.14798702355565_dbl_kind, 4.15384334568797_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,369) = (/ 4.12516712946823_dbl_kind, 4.13051796056108_dbl_kind, 4.13402648187402_dbl_kind, 4.13751687515463_dbl_kind, 4.14334996086894_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,370) = (/ 4.1148042423745_dbl_kind, 4.12013215451532_dbl_kind, 4.1236282478635_dbl_kind, 4.1270994110943_dbl_kind, 4.13290941588484_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,371) = (/ 4.10449325070532_dbl_kind, 4.1097984271818_dbl_kind, 4.11328217252121_dbl_kind, 4.11673423546773_dbl_kind, 4.1225213129005_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,372) = (/ 4.09423376578274_dbl_kind, 4.09951638756671_dbl_kind, 4.10298786376239_dbl_kind, 4.10642095631364_dbl_kind, 4.11218525806158_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,373) = (/ 4.08402540280282_dbl_kind, 4.08928564858055_dbl_kind, 4.09274493342718_dbl_kind, 4.09615918556736_dbl_kind, 4.10190086144493_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,374) = (/ 4.07386778078749_dbl_kind, 4.07910582698965_dbl_kind, 4.08255299723177_dbl_kind, 4.08594853901258_dbl_kind, 4.09166773700966_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,375) = (/ 4.06376052253693_dbl_kind, 4.06897654336846_dbl_kind, 4.07241167472016_dbl_kind, 4.07578863623373_dbl_kind, 4.08148550254897_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,376) = (/ 4.05370325458285_dbl_kind, 4.05889742205244_dbl_kind, 4.06232058921676_dbl_kind, 4.0656791005691_dbl_kind, 4.07135377964263_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,377) = (/ 4.04369560714226_dbl_kind, 4.0488680910917_dbl_kind, 4.05227936777958_dbl_kind, 4.0556195590647_dbl_kind, 4.06127219361026_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,378) = (/ 4.03373721407212_dbl_kind, 4.03888818220536_dbl_kind, 4.04228764115422_dbl_kind, 4.04560964242876_dbl_kind, 4.05124037346521_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,379) = (/ 4.02382771282454_dbl_kind, 4.02895733073653_dbl_kind, 4.03234504372846_dbl_kind, 4.03564898498692_dbl_kind, 4.04125795186923_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,380) = (/ 4.01396674440268_dbl_kind, 4.01907517560794_dbl_kind, 4.0224512134875_dbl_kind, 4.02573722463803_dbl_kind, 4.03132456508763_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,381) = (/ 4.00415395331729_dbl_kind, 4.00924135927823_dbl_kind, 4.01260579196999_dbl_kind, 4.01587400281071_dbl_kind, 4.02143985294532_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,382) = (/ 3.99438898754391_dbl_kind, 3.99945552769892_dbl_kind, 4.00280842422448_dbl_kind, 4.00605896442042_dbl_kind, 4.01160345878332_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,383) = (/ 3.98467149848063_dbl_kind, 3.98971733027193_dbl_kind, 3.99305875876675_dbl_kind, 3.99629175782727_dbl_kind, 4.00181502941598_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,384) = (/ 3.9750011409066_dbl_kind, 3.98002641980775_dbl_kind, 3.98335644753756_dbl_kind, 3.98657203479435_dbl_kind, 3.99207421508879_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,385) = (/ 3.965377572941_dbl_kind, 3.97038245248426_dbl_kind, 3.97370114586116_dbl_kind, 3.97689945044673_dbl_kind, 3.98238066943693_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,386) = (/ 3.95580045600266_dbl_kind, 3.96078508780601_dbl_kind, 3.96409251240426_dbl_kind, 3.96727366323102_dbl_kind, 3.97273404944414_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,387) = (/ 3.94626945477034_dbl_kind, 3.9512339885643_dbl_kind, 3.95453020913574_dbl_kind, 3.95769433487555_dbl_kind, 3.96313401540251_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,388) = (/ 3.93678423714342_dbl_kind, 3.94172882079758_dbl_kind, 3.9450139012868_dbl_kind, 3.94816113035108_dbl_kind, 3.95358023087263_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,389) = (/ 3.92734447420336_dbl_kind, 3.93226925375261_dbl_kind, 3.93554325731184_dbl_kind, 3.93867371783213_dbl_kind, 3.94407236264442_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,390) = (/ 3.91794984017555_dbl_kind, 3.92285495984612_dbl_kind, 3.9261179488497_dbl_kind, 3.92923176865879_dbl_kind, 3.93461008069847_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,391) = (/ 3.90860001239177_dbl_kind, 3.91348561462695_dbl_kind, 3.91673765068566_dbl_kind, 3.91983495729915_dbl_kind, 3.92519305816795_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,392) = (/ 3.89929467125322_dbl_kind, 3.90416089673884_dbl_kind, 3.90740204071384_dbl_kind, 3.91048296131223_dbl_kind, 3.91582097130109_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,393) = (/ 3.890033500194_dbl_kind, 3.89488048788364_dbl_kind, 3.89811079990018_dbl_kind, 3.90117546131147_dbl_kind, 3.90649349942415_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,394) = (/ 3.88081618564519_dbl_kind, 3.88564407278511_dbl_kind, 3.88886361224599_dbl_kind, 3.89191214092865_dbl_kind, 3.89721032490494_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,395) = (/ 3.87164241699941_dbl_kind, 3.87645133915322_dbl_kind, 3.87966016475192_dbl_kind, 3.88269268677847_dbl_kind, 3.88797113311688_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,396) = (/ 3.86251188657587_dbl_kind, 3.86730197764895_dbl_kind, 3.87050014738254_dbl_kind, 3.87351678842346_dbl_kind, 3.87877561240354_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,397) = (/ 3.8534242895859_dbl_kind, 3.85819568184951_dbl_kind, 3.86138325303134_dbl_kind, 3.86438413833956_dbl_kind, 3.86962345404367_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,398) = (/ 3.84437932409905_dbl_kind, 3.84913214821423_dbl_kind, 3.85230917748628_dbl_kind, 3.85529443188202_dbl_kind, 3.86051435221675_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,399) = (/ 3.83537669100955_dbl_kind, 3.84011107605069_dbl_kind, 3.84327761939579_dbl_kind, 3.84624736725188_dbl_kind, 3.851448003969_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,400) = (/ 3.82641609400334_dbl_kind, 3.83113216748155_dbl_kind, 3.83428828023525_dbl_kind, 3.83724264546291_dbl_kind, 3.84242410917995_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,401) = (/ 3.81749723952554_dbl_kind, 3.82219512741166_dbl_kind, 3.82534086427397_dbl_kind, 3.82827997030899_dbl_kind, 3.83344237052932_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,402) = (/ 3.80861983674828_dbl_kind, 3.81329966349575_dbl_kind, 3.81643507854257_dbl_kind, 3.81935904833192_dbl_kind, 3.82450249346451_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,403) = (/ 3.79978359753917_dbl_kind, 3.80444548610648_dbl_kind, 3.80757063280087_dbl_kind, 3.81047958878972_dbl_kind, 3.81560418616844_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,404) = (/ 3.79098823642999_dbl_kind, 3.79563230830301_dbl_kind, 3.79874723950621_dbl_kind, 3.80164130362539_dbl_kind, 3.80674715952795_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,405) = (/ 3.78223347058602_dbl_kind, 3.78685984579996_dbl_kind, 3.78996461378218_dbl_kind, 3.79284390743601_dbl_kind, 3.79793112710252_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,406) = (/ 3.7735190197756_dbl_kind, 3.77812781693678_dbl_kind, 3.78122247338782_dbl_kind, 3.78408711744236_dbl_kind, 3.78915580509345_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,407) = (/ 3.76484460634031_dbl_kind, 3.76943594264759_dbl_kind, 3.77252053868723_dbl_kind, 3.77537065345891_dbl_kind, 3.78042091231358_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,408) = (/ 3.75620995516538_dbl_kind, 3.76078394643137_dbl_kind, 3.76385853261961_dbl_kind, 3.76669423786423_dbl_kind, 3.77172617015723_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,409) = (/ 3.74761479365064_dbl_kind, 3.75217155432267_dbl_kind, 3.75523618066967_dbl_kind, 3.75805759557182_dbl_kind, 3.76307130257075_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,410) = (/ 3.73905885168178_dbl_kind, 3.74359849486254_dbl_kind, 3.74665321083848_dbl_kind, 3.74946045400129_dbl_kind, 3.75445603602331_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,411) = (/ 3.73054186160205_dbl_kind, 3.73506449907006_dbl_kind, 3.73810935361475_dbl_kind, 3.74090254305004_dbl_kind, 3.7458800994782_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,412) = (/ 3.72206355818438_dbl_kind, 3.72656930041409_dbl_kind, 3.7296043419464_dbl_kind, 3.73238359506516_dbl_kind, 3.73734322436449_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,413) = (/ 3.71362367860377_dbl_kind, 3.71811263478551_dbl_kind, 3.72113791121265_dbl_kind, 3.72390334481589_dbl_kind, 3.72884514454904_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,414) = (/ 3.70522196241017_dbl_kind, 3.70969424046977_dbl_kind, 3.71270979919637_dbl_kind, 3.7154615294663_dbl_kind, 3.72038559630896_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,415) = (/ 3.69685815150166_dbl_kind, 3.70131385811985_dbl_kind, 3.70431974605686_dbl_kind, 3.70705788854844_dbl_kind, 3.71196431830434_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,416) = (/ 3.68853199009804_dbl_kind, 3.69297123072956_dbl_kind, 3.69596749430301_dbl_kind, 3.69869216393583_dbl_kind, 3.70358105155148_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,417) = (/ 3.68024322471472_dbl_kind, 3.68466610360722_dbl_kind, 3.68765278876681_dbl_kind, 3.69036409981725_dbl_kind, 3.69523553939639_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,418) = (/ 3.67199160413701_dbl_kind, 3.67639822434966_dbl_kind, 3.67937537657717_dbl_kind, 3.68207344267095_dbl_kind, 3.68692752748861_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,419) = (/ 3.66377687939476_dbl_kind, 3.66816734281664_dbl_kind, 3.67113500713416_dbl_kind, 3.67381994123916_dbl_kind, 3.67865676375557_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,420) = (/ 3.65559880373728_dbl_kind, 3.65997321110551_dbl_kind, 3.66293143208357_dbl_kind, 3.665603346503_dbl_kind, 3.67042299837702_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,421) = (/ 3.64745713260867_dbl_kind, 3.65181558352627_dbl_kind, 3.6547644052918_dbl_kind, 3.65742341165764_dbl_kind, 3.66222598376005_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,422) = (/ 3.63935162362344_dbl_kind, 3.64369421657697_dbl_kind, 3.64663368282109_dbl_kind, 3.64927989208782_dbl_kind, 3.6540654745143_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,423) = (/ 3.63128203654241_dbl_kind, 3.63560886891939_dbl_kind, 3.63853902290508_dbl_kind, 3.64117254534376_dbl_kind, 3.64594122742751_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,424) = (/ 3.62324813324909_dbl_kind, 3.6275593013551_dbl_kind, 3.63048018592468_dbl_kind, 3.63310113111729_dbl_kind, 3.6378530014415_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,425) = (/ 3.61524967772617_dbl_kind, 3.61954527680178_dbl_kind, 3.62245693438432_dbl_kind, 3.62506541121834_dbl_kind, 3.62980055762834_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,426) = (/ 3.60728643603244_dbl_kind, 3.61156656026989_dbl_kind, 3.61446903288843_dbl_kind, 3.61706514955176_dbl_kind, 3.62178365916687_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,427) = (/ 3.59935817628_dbl_kind, 3.60362291883962_dbl_kind, 3.60651624811827_dbl_kind, 3.60910011209441_dbl_kind, 3.61380207131959_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,428) = (/ 3.59146466861179_dbl_kind, 3.59571412163817_dbl_kind, 3.59859834880909_dbl_kind, 3.60117006687252_dbl_kind, 3.60585556140979_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,429) = (/ 3.58360568517933_dbl_kind, 3.58783993981732_dbl_kind, 3.59071510572756_dbl_kind, 3.59327478393948_dbl_kind, 3.59794389879903_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,430) = (/ 3.57578100012084_dbl_kind, 3.58000014653126_dbl_kind, 3.58286629164946_dbl_kind, 3.58541403535372_dbl_kind, 3.59006685486483_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,431) = (/ 3.56799038953964_dbl_kind, 3.57219451691479_dbl_kind, 3.57505168133777_dbl_kind, 3.57758759515707_dbl_kind, 3.58222420297876_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,432) = (/ 3.56023363148274_dbl_kind, 3.56442282806167_dbl_kind, 3.56727105152091_dbl_kind, 3.56979523935324_dbl_kind, 3.57441571848473_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,433) = (/ 3.55251050591986_dbl_kind, 3.55668485900341_dbl_kind, 3.55952418087139_dbl_kind, 3.56203674588673_dbl_kind, 3.56664117867763_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,434) = (/ 3.54482079472258_dbl_kind, 3.54898039068821_dbl_kind, 3.55181084998465_dbl_kind, 3.55431189462185_dbl_kind, 3.55890036278218_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,435) = (/ 3.53716428164384_dbl_kind, 3.54130920596025_dbl_kind, 3.54413084135819_dbl_kind, 3.54662046732216_dbl_kind, 3.55119305193212_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,436) = (/ 3.52954075229769_dbl_kind, 3.53367108953918_dbl_kind, 3.53648393937103_dbl_kind, 3.53896224763009_dbl_kind, 3.54351902914961_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,437) = (/ 3.52194999413931_dbl_kind, 3.52606582799993_dbl_kind, 3.52886993026336_dbl_kind, 3.53133702104681_dbl_kind, 3.53587807932496_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,438) = (/ 3.51439179644523_dbl_kind, 3.51849320975278_dbl_kind, 3.52128860211645_dbl_kind, 3.52374457491244_dbl_kind, 3.52826998919651_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,439) = (/ 3.50686595029391_dbl_kind, 3.51095302502365_dbl_kind, 3.51373974483294_dbl_kind, 3.51618469838642_dbl_kind, 3.52069454733096_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,440) = (/ 3.49937224854647_dbl_kind, 3.50344506583463_dbl_kind, 3.50622315011718_dbl_kind, 3.50865718242819_dbl_kind, 3.5131515441037_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,441) = (/ 3.49191048582771_dbl_kind, 3.49596912598483_dbl_kind, 3.49873861145606_dbl_kind, 3.50116181977808_dbl_kind, 3.50564077167966_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,442) = (/ 3.4844804585074_dbl_kind, 3.48852500103142_dbl_kind, 3.49128592409984_dbl_kind, 3.49369840493847_dbl_kind, 3.49816202399416_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,443) = (/ 3.47708196468172_dbl_kind, 3.48111248827092_dbl_kind, 3.48386488504343_dbl_kind, 3.48626673415518_dbl_kind, 3.49071509673418_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,444) = (/ 3.46971480415504_dbl_kind, 3.4737313867207_dbl_kind, 3.47647529300778_dbl_kind, 3.47886660539908_dbl_kind, 3.48329978731979_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,445) = (/ 3.4623787784219_dbl_kind, 3.46638149710081_dbl_kind, 3.46911694842157_dbl_kind, 3.47149781834796_dbl_kind, 3.47591589488581_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,446) = (/ 3.45507369064912_dbl_kind, 3.45906262181593_dbl_kind, 3.4617896534031_dbl_kind, 3.46416017436857_dbl_kind, 3.46856322026373_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,447) = (/ 3.44779934565833_dbl_kind, 3.4517745649376_dbl_kind, 3.45449321174245_dbl_kind, 3.45685347649899_dbl_kind, 3.46124156596388_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,448) = (/ 3.44055554990852_dbl_kind, 3.44451713218665_dbl_kind, 3.44722742888378_dbl_kind, 3.44957752943111_dbl_kind, 3.45395073615776_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,449) = (/ 3.43334211147894_dbl_kind, 3.43729013091591_dbl_kind, 3.43999211190797_dbl_kind, 3.44233213949338_dbl_kind, 3.44669053666063_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,450) = (/ 3.42615884005219_dbl_kind, 3.43009337009306_dbl_kind, 3.43278706951537_dbl_kind, 3.4351171146338_dbl_kind, 3.4394607749143_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,451) = (/ 3.41900554689747_dbl_kind, 3.42292666028375_dbl_kind, 3.42561211200887_dbl_kind, 3.42793226440306_dbl_kind, 3.43226125997021_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,452) = (/ 3.41188204485408_dbl_kind, 3.4157898136349_dbl_kind, 3.41846705127706_dbl_kind, 3.42077739993794_dbl_kind, 3.42509180247259_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,453) = (/ 3.40478814831516_dbl_kind, 3.4086826438582_dbl_kind, 3.41135170077772_dbl_kind, 3.41365233394489_dbl_kind, 3.41795221464195_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,454) = (/ 3.39772367321154_dbl_kind, 3.40160496621389_dbl_kind, 3.40426587552143_dbl_kind, 3.40655688068382_dbl_kind, 3.41084231025872_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,455) = (/ 3.39068843699591_dbl_kind, 3.3945565974946_dbl_kind, 3.39720939205544_dbl_kind, 3.3994908559521_dbl_kind, 3.40376190464706_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,456) = (/ 3.38368225862705_dbl_kind, 3.38753735600957_dbl_kind, 3.39018206844771_dbl_kind, 3.39245407706872_dbl_kind, 3.39671081465897_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,457) = (/ 3.37670495855438_dbl_kind, 3.38054706156892_dbl_kind, 3.38318372427115_dbl_kind, 3.38544636285873_dbl_kind, 3.3896888586585_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,458) = (/ 3.36975635870262_dbl_kind, 3.37358553546814_dbl_kind, 3.37621418058808_dbl_kind, 3.37846753363774_dbl_kind, 3.38269585650622_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,459) = (/ 3.36283628245669_dbl_kind, 3.36665260047287_dbl_kind, 3.36927325993482_dbl_kind, 3.37151741119673_dbl_kind, 3.37573162954382_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,460) = (/ 3.35594455464676_dbl_kind, 3.35974808080374_dbl_kind, 3.36236078630657_dbl_kind, 3.36459581878698_dbl_kind, 3.36879600057895_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,461) = (/ 3.34908100153346_dbl_kind, 3.35287180212145_dbl_kind, 3.35547658514237_dbl_kind, 3.35770258110521_dbl_kind, 3.36188879387025_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,462) = (/ 3.34224545079339_dbl_kind, 3.34602359151207_dbl_kind, 3.34862048331033_dbl_kind, 3.35083752427888_dbl_kind, 3.35500983511249_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,463) = (/ 3.33543773150465_dbl_kind, 3.33920327747243_dbl_kind, 3.34179230909298_dbl_kind, 3.3440004758517_dbl_kind, 3.34815895142202_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,464) = (/ 3.32865767413264_dbl_kind, 3.33241068989582_dbl_kind, 3.33499189217284_dbl_kind, 3.33719126476925_dbl_kind, 3.34133597132225_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,465) = (/ 3.32190511051605_dbl_kind, 3.32564566005768_dbl_kind, 3.32821906361811_dbl_kind, 3.3304097213649_dbl_kind, 3.3345407247294_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,466) = (/ 3.31517987385291_dbl_kind, 3.31890802060167_dbl_kind, 3.32147365586866_dbl_kind, 3.32365567734571_dbl_kind, 3.32777304293843_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,467) = (/ 3.30848179868696_dbl_kind, 3.31219760552574_dbl_kind, 3.314755502722_dbl_kind, 3.31692896577873_dbl_kind, 3.32103275860908_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,468) = (/ 3.30181072089407_dbl_kind, 3.30551425016848_dbl_kind, 3.30806443931961_dbl_kind, 3.31022942107722_dbl_kind, 3.3143197057521_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,469) = (/ 3.29516647766886_dbl_kind, 3.29885779119557_dbl_kind, 3.3014003021333_dbl_kind, 3.30355687898727_dbl_kind, 3.30763371971572_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,470) = (/ 3.28854890751148_dbl_kind, 3.2922280665864_dbl_kind, 3.2947629289518_dbl_kind, 3.29691117657438_dbl_kind, 3.30097463717213_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,471) = (/ 3.28195785021458_dbl_kind, 3.28562491562093_dbl_kind, 3.28815215886751_dbl_kind, 3.29029215221036_dbl_kind, 3.29434229610429_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,472) = (/ 3.27539314685037_dbl_kind, 3.27904817886656_dbl_kind, 3.28156783226339_dbl_kind, 3.28369964556025_dbl_kind, 3.28773653579275_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,473) = (/ 3.26885463975789_dbl_kind, 3.27249769816531_dbl_kind, 3.27500979079998_dbl_kind, 3.27713349756949_dbl_kind, 3.28115719680279_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,474) = (/ 3.26234217253044_dbl_kind, 3.26597331662104_dbl_kind, 3.26847787740267_dbl_kind, 3.27059355045123_dbl_kind, 3.27460412097153_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,475) = (/ 3.25585559000308_dbl_kind, 3.25947487858693_dbl_kind, 3.26197193624902_dbl_kind, 3.26407964767376_dbl_kind, 3.26807715139532_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,476) = (/ 3.2493947382404_dbl_kind, 3.25300222965297_dbl_kind, 3.25549181275629_dbl_kind, 3.25759163394805_dbl_kind, 3.26157613241727_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,477) = (/ 3.24295946452429_dbl_kind, 3.24655521663371_dbl_kind, 3.2490373535691_dbl_kind, 3.25112935521558_dbl_kind, 3.25510090961486_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,478) = (/ 3.23654961734201_dbl_kind, 3.24013368755618_dbl_kind, 3.24260840654723_dbl_kind, 3.24469265863615_dbl_kind, 3.24865132978779_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,479) = (/ 3.23016504637429_dbl_kind, 3.23373749164777_dbl_kind, 3.23620482075359_dbl_kind, 3.23828139257593_dbl_kind, 3.24222724094586_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,480) = (/ 3.22380560248359_dbl_kind, 3.22736647932451_dbl_kind, 3.22982644644232_dbl_kind, 3.23189540659564_dbl_kind, 3.23582849229712_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,481) = (/ 3.21747113770254_dbl_kind, 3.22102050217927_dbl_kind, 3.223473135047_dbl_kind, 3.22553455143879_dbl_kind, 3.22945493423606_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,482) = (/ 3.2111615052225_dbl_kind, 3.21469941297023_dbl_kind, 3.21714473916906_dbl_kind, 3.21919867902022_dbl_kind, 3.22310641833199_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,483) = (/ 3.20487655938219_dbl_kind, 3.20840306560943_dbl_kind, 3.21084111256627_dbl_kind, 3.21288764241457_dbl_kind, 3.21678279731753_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,484) = (/ 3.19861615565658_dbl_kind, 3.20213131515146_dbl_kind, 3.20456211014141_dbl_kind, 3.20660129584507_dbl_kind, 3.21048392507726_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,485) = (/ 3.19238015064577_dbl_kind, 3.1958840177823_dbl_kind, 3.19830758793103_dbl_kind, 3.20033949467233_dbl_kind, 3.20420965663649_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,486) = (/ 3.18616840206411_dbl_kind, 3.18966103080827_dbl_kind, 3.19207740309438_dbl_kind, 3.19410209538333_dbl_kind, 3.19795984815013_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,487) = (/ 3.17998076872938_dbl_kind, 3.18346221264514_dbl_kind, 3.18587141390247_dbl_kind, 3.18788895558048_dbl_kind, 3.19173435689178_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,488) = (/ 3.17381711055214_dbl_kind, 3.17728742280732_dbl_kind, 3.17968947972719_dbl_kind, 3.1816999339709_dbl_kind, 3.18553304124282_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,489) = (/ 3.16767728852517_dbl_kind, 3.17113652189722_dbl_kind, 3.17353146103067_dbl_kind, 3.17553489035572_dbl_kind, 3.17935576068174_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,490) = (/ 3.16156116471303_dbl_kind, 3.16500937159472_dbl_kind, 3.16739721935465_dbl_kind, 3.16939368561957_dbl_kind, 3.17320237577354_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,491) = (/ 3.15546860224178_dbl_kind, 3.15890583464673_dbl_kind, 3.16128661731007_dbl_kind, 3.16327618172014_dbl_kind, 3.16707274815922_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,492) = (/ 3.14939946528878_dbl_kind, 3.15282577485694_dbl_kind, 3.15519951856669_dbl_kind, 3.15718224167794_dbl_kind, 3.16096674054551_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,493) = (/ 3.14335361907264_dbl_kind, 3.1467690570756_dbl_kind, 3.14913578784293_dbl_kind, 3.15111172956606_dbl_kind, 3.15488421669453_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,494) = (/ 3.13733092984324_dbl_kind, 3.1407355471895_dbl_kind, 3.14309529089573_dbl_kind, 3.14506451050017_dbl_kind, 3.14882504141379_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,495) = (/ 3.13133126487189_dbl_kind, 3.13472511211204_dbl_kind, 3.13707789451059_dbl_kind, 3.13904045062855_dbl_kind, 3.14278908054612_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,496) = (/ 3.12535449244164_dbl_kind, 3.12873761977335_dbl_kind, 3.1310834664917_dbl_kind, 3.13303941712226_dbl_kind, 3.1367762009598_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,497) = (/ 3.11940048183763_dbl_kind, 3.12277293911064_dbl_kind, 3.12511187565221_dbl_kind, 3.12706127816541_dbl_kind, 3.13078627053882_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,498) = (/ 3.11346910333758_dbl_kind, 3.11683094005856_dbl_kind, 3.11916299180454_dbl_kind, 3.12110590294559_dbl_kind, 3.12481915817317_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,499) = (/ 3.10756022820243_dbl_kind, 3.11091149353971_dbl_kind, 3.11323668575092_dbl_kind, 3.11517316164433_dbl_kind, 3.11887473374936_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,500) = (/ 3.10167372866701_dbl_kind, 3.10501447145529_dbl_kind, 3.10733282927391_dbl_kind, 3.10926292542773_dbl_kind, 3.11295286814091_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,501) = (/ 3.09580947793085_dbl_kind, 3.09913974667577_dbl_kind, 3.10145129512711_dbl_kind, 3.10337506643716_dbl_kind, 3.10705343319905_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,502) = (/ 3.08996735014916_dbl_kind, 3.09328719303176_dbl_kind, 3.09559195702597_dbl_kind, 3.09750945778009_dbl_kind, 3.10117630174351_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,503) = (/ 3.08414722042376_dbl_kind, 3.08745668530494_dbl_kind, 3.08975468963866_dbl_kind, 3.091665973521_dbl_kind, 3.09532134755335_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,504) = (/ 3.07834896479427_dbl_kind, 3.08164809921906_dbl_kind, 3.08393936857708_dbl_kind, 3.0858444886724_dbl_kind, 3.089488445358_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,505) = (/ 3.07257246022931_dbl_kind, 3.07586131143112_dbl_kind, 3.07814587038797_dbl_kind, 3.08004487918598_dbl_kind, 3.08367747082828_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,506) = (/ 3.06681758461781_dbl_kind, 3.07009619952259_dbl_kind, 3.07237407254412_dbl_kind, 3.07426702194378_dbl_kind, 3.07788830056761_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,507) = (/ 3.06108421676043_dbl_kind, 3.06435264199073_dbl_kind, 3.06662385343566_dbl_kind, 3.06851079474956_dbl_kind, 3.07212081210331_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,508) = (/ 3.05537223636108_dbl_kind, 3.05863051824005_dbl_kind, 3.06089509236143_dbl_kind, 3.06277607632021_dbl_kind, 3.06637488387794_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,509) = (/ 3.04968152401852_dbl_kind, 3.0529297085738_dbl_kind, 3.05518766952055_dbl_kind, 3.05706274627722_dbl_kind, 3.06065039524079_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,510) = (/ 3.04401196121809_dbl_kind, 3.04725009418564_dbl_kind, 3.04950146600397_dbl_kind, 3.05137068513834_dbl_kind, 3.05494722643945_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,511) = (/ 3.03836343032343_dbl_kind, 3.04159155715133_dbl_kind, 3.04383636378613_dbl_kind, 3.04569977430923_dbl_kind, 3.04926525861149_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,512) = (/ 3.03273581456845_dbl_kind, 3.03595398042054_dbl_kind, 3.03819224571678_dbl_kind, 3.04004989607529_dbl_kind, 3.04360437377617_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,513) = (/ 3.02712899804926_dbl_kind, 3.03033724780876_dbl_kind, 3.03256899551287_dbl_kind, 3.03442093359352_dbl_kind, 3.03796445482632_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,514) = (/ 3.02154286571621_dbl_kind, 3.02474124398927_dbl_kind, 3.02696649775043_dbl_kind, 3.02881277088449_dbl_kind, 3.03234538552029_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,515) = (/ 3.01597730336612_dbl_kind, 3.01916585448525_dbl_kind, 3.02138463785673_dbl_kind, 3.02322529282441_dbl_kind, 3.02674705047394_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,516) = (/ 3.01043219763441_dbl_kind, 3.01361096566194_dbl_kind, 3.0158233021023_dbl_kind, 3.01765838513726_dbl_kind, 3.02116933515277_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,517) = (/ 3.00490743598751_dbl_kind, 3.00807646471885_dbl_kind, 3.01028237759328_dbl_kind, 3.01211193438702_dbl_kind, 3.01561212586412_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,518) = (/ 2.99940290671522_dbl_kind, 3.00256223968218_dbl_kind, 3.00476175226363_dbl_kind, 3.00658582797003_dbl_kind, 3.01007530974946_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,519) = (/ 2.99391849892322_dbl_kind, 2.99706817939717_dbl_kind, 2.99926131486759_dbl_kind, 3.00107995410732_dbl_kind, 3.00455877477678_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,520) = (/ 2.98845410252563_dbl_kind, 2.99159417352064_dbl_kind, 2.99378095497212_dbl_kind, 2.99559420183713_dbl_kind, 2.99906240973298_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,521) = (/ 2.98300960823765_dbl_kind, 2.98614011251359_dbl_kind, 2.98832056294949_dbl_kind, 2.9901284610075_dbl_kind, 2.99358610421648_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,522) = (/ 2.97758490756833_dbl_kind, 2.98070588763382_dbl_kind, 2.98288002996994_dbl_kind, 2.98468262226886_dbl_kind, 2.98812974862978_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,523) = (/ 2.97217989281335_dbl_kind, 2.97529139092877_dbl_kind, 2.97745924799436_dbl_kind, 2.97925657706679_dbl_kind, 2.98269323417223_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,524) = (/ 2.96679445704792_dbl_kind, 2.96989651522824_dbl_kind, 2.97205810976712_dbl_kind, 2.97385021763484_dbl_kind, 2.97727645283272_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,525) = (/ 2.96142849411973_dbl_kind, 2.96452115413739_dbl_kind, 2.96667650880896_dbl_kind, 2.96846343698734_dbl_kind, 2.97187929738259_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,526) = (/ 2.95608189864204_dbl_kind, 2.95916520202969_dbl_kind, 2.96131433940996_dbl_kind, 2.96309612891244_dbl_kind, 2.96650166136857_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,527) = (/ 2.95075456598673_dbl_kind, 2.95382855403994_dbl_kind, 2.95597149662253_dbl_kind, 2.9577481879651_dbl_kind, 2.96114343910576_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,528) = (/ 2.94544639227755_dbl_kind, 2.94851110605749_dbl_kind, 2.95064787625459_dbl_kind, 2.95241950946021_dbl_kind, 2.95580452567072_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,529) = (/ 2.94015727438334_dbl_kind, 2.94321275471939_dbl_kind, 2.9453433748627_dbl_kind, 2.94710998946575_dbl_kind, 2.95048481689464_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,530) = (/ 2.9348871099114_dbl_kind, 2.93793339740369_dbl_kind, 2.94005788974536_dbl_kind, 2.9418195247961_dbl_kind, 2.94518420935659_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,531) = (/ 2.92963579720088_dbl_kind, 2.93267293222279_dbl_kind, 2.93479131893634_dbl_kind, 2.93654801300528_dbl_kind, 2.93990260037677_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,532) = (/ 2.92440323531628_dbl_kind, 2.92743125801689_dbl_kind, 2.92954356119807_dbl_kind, 2.93129535238045_dbl_kind, 2.93463988800996_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,533) = (/ 2.91918932404095_dbl_kind, 2.92220827434747_dbl_kind, 2.92431451601511_dbl_kind, 2.9260614419353_dbl_kind, 2.92939597103891_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,534) = (/ 2.91399396387077_dbl_kind, 2.91700388149084_dbl_kind, 2.91910408358775_dbl_kind, 2.92084618140363_dbl_kind, 2.92417074896788_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,535) = (/ 2.9088170560078_dbl_kind, 2.91181798043183_dbl_kind, 2.91391216482558_dbl_kind, 2.91564947123292_dbl_kind, 2.91896412201625_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,536) = (/ 2.90365850235401_dbl_kind, 2.90665047285744_dbl_kind, 2.90873866134116_dbl_kind, 2.91047121257805_dbl_kind, 2.91377599111211_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,537) = (/ 2.89851820550517_dbl_kind, 2.90150126115065_dbl_kind, 2.90358347544383_dbl_kind, 2.90531130729501_dbl_kind, 2.90860625788606_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,538) = (/ 2.89339606874465_dbl_kind, 2.89637024838424_dbl_kind, 2.8984465101335_dbl_kind, 2.90016965793471_dbl_kind, 2.90345482466494_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,539) = (/ 2.88829199603743_dbl_kind, 2.8912573383147_dbl_kind, 2.89332766909452_dbl_kind, 2.89504616773687_dbl_kind, 2.89832159446574_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,540) = (/ 2.88320589202406_dbl_kind, 2.88616243537617_dbl_kind, 2.88822685668965_dbl_kind, 2.88994074062392_dbl_kind, 2.89320647098945_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,541) = (/ 2.87813766201481_dbl_kind, 2.88108544467456_dbl_kind, 2.88314397795409_dbl_kind, 2.88485328119505_dbl_kind, 2.88810935861513_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,542) = (/ 2.8730872119837_dbl_kind, 2.87602627198151_dbl_kind, 2.8780789385895_dbl_kind, 2.87978369472024_dbl_kind, 2.88303016239385_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,543) = (/ 2.86805444856281_dbl_kind, 2.87098482372869_dbl_kind, 2.87303164495821_dbl_kind, 2.87473188713439_dbl_kind, 2.87796878804291_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,544) = (/ 2.86303927903648_dbl_kind, 2.86596100700191_dbl_kind, 2.86800200407738_dbl_kind, 2.86969776503151_dbl_kind, 2.87292514193993_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,545) = (/ 2.8580416113356_dbl_kind, 2.86095472953546_dbl_kind, 2.86298992361329_dbl_kind, 2.86468123565896_dbl_kind, 2.86789913111713_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,546) = (/ 2.85306135403208_dbl_kind, 2.85596589970642_dbl_kind, 2.85799531187562_dbl_kind, 2.85968220691179_dbl_kind, 2.86289066325561_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,547) = (/ 2.84809841633319_dbl_kind, 2.85099442652909_dbl_kind, 2.8530180778119_dbl_kind, 2.85470058732705_dbl_kind, 2.85789964667968_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,548) = (/ 2.84315270807612_dbl_kind, 2.84604021964943_dbl_kind, 2.84805813100189_dbl_kind, 2.84973628607828_dbl_kind, 2.8529259903513_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,549) = (/ 2.83822413972251_dbl_kind, 2.84110318933956_dbl_kind, 2.84311538165211_dbl_kind, 2.84478921296993_dbl_kind, 2.84796960386454_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,550) = (/ 2.83331262235304_dbl_kind, 2.83618324649237_dbl_kind, 2.8381897405904_dbl_kind, 2.83985927843194_dbl_kind, 2.8430303974401_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,551) = (/ 2.82841806766213_dbl_kind, 2.83128030261611_dbl_kind, 2.83328111926055_dbl_kind, 2.83494639351432_dbl_kind, 2.83810828191991_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,552) = (/ 2.82354038795264_dbl_kind, 2.82639426982912_dbl_kind, 2.82838942971691_dbl_kind, 2.83005046988183_dbl_kind, 2.83320316876174_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,553) = (/ 2.81867949613065_dbl_kind, 2.82152506085454_dbl_kind, 2.82351458461919_dbl_kind, 2.82517141980863_dbl_kind, 2.82831497003393_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,554) = (/ 2.81383530570025_dbl_kind, 2.81667258901509_dbl_kind, 2.81865649722719_dbl_kind, 2.82030915617311_dbl_kind, 2.8234435984101_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,555) = (/ 2.80900773075849_dbl_kind, 2.81183676822798_dbl_kind, 2.81381508139568_dbl_kind, 2.81546359245263_dbl_kind, 2.818588967164_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,556) = (/ 2.80419668599027_dbl_kind, 2.80701751299974_dbl_kind, 2.80899025156924_dbl_kind, 2.81063464271846_dbl_kind, 2.81375099016433_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,557) = (/ 2.7994020866633_dbl_kind, 2.80221473842123_dbl_kind, 2.80418192277724_dbl_kind, 2.80582222163066_dbl_kind, 2.80892958186967_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,558) = (/ 2.79462384862321_dbl_kind, 2.79742836016262_dbl_kind, 2.79939001062881_dbl_kind, 2.80102624443307_dbl_kind, 2.8041246573234_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,559) = (/ 2.78986188828856_dbl_kind, 2.79265829446845_dbl_kind, 2.79461443130788_dbl_kind, 2.7962466269483_dbl_kind, 2.79933613214879_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,560) = (/ 2.78511612264601_dbl_kind, 2.78790445815273_dbl_kind, 2.78985510156834_dbl_kind, 2.79148328557284_dbl_kind, 2.79456392254401_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,561) = (/ 2.78038646924554_dbl_kind, 2.78316676859414_dbl_kind, 2.78511193872908_dbl_kind, 2.7867361372722_dbl_kind, 2.78980794527723_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,562) = (/ 2.7756728461956_dbl_kind, 2.77844514373118_dbl_kind, 2.78038486066928_dbl_kind, 2.78200509957602_dbl_kind, 2.78506811768182_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,563) = (/ 2.77097517215849_dbl_kind, 2.77373950205747_dbl_kind, 2.7756737858236_dbl_kind, 2.77729009057334_dbl_kind, 2.78034435765156_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,564) = (/ 2.7662933663456_dbl_kind, 2.76904976261703_dbl_kind, 2.77097863317751_dbl_kind, 2.77259102890787_dbl_kind, 2.77563658363589_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,565) = (/ 2.76162734851286_dbl_kind, 2.76437584499966_dbl_kind, 2.76629932226259_dbl_kind, 2.7679078337733_dbl_kind, 2.77094471463523_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,566) = (/ 2.75697703895614_dbl_kind, 2.75971766933631_dbl_kind, 2.76163577315196_dbl_kind, 2.76324042490864_dbl_kind, 2.7662686701963_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,567) = (/ 2.75234235850669_dbl_kind, 2.75507515629455_dbl_kind, 2.75698790645571_dbl_kind, 2.7585887225937_dbl_kind, 2.76160837040757_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,568) = (/ 2.7477232285267_dbl_kind, 2.75044822707403_dbl_kind, 2.75235564331634_dbl_kind, 2.75395264764447_dbl_kind, 2.75696373589472_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,569) = (/ 2.74311957090484_dbl_kind, 2.74583680340207_dbl_kind, 2.74773890540435_dbl_kind, 2.74933212140866_dbl_kind, 2.75233468781605_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,570) = (/ 2.73853130805188_dbl_kind, 2.74124080752919_dbl_kind, 2.74313761491376_dbl_kind, 2.74472706576126_dbl_kind, 2.74772114785813_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,571) = (/ 2.7339583628963_dbl_kind, 2.73666016222479_dbl_kind, 2.73855169455776_dbl_kind, 2.74013740310014_dbl_kind, 2.7431230382313_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,572) = (/ 2.72940065888005_dbl_kind, 2.73209479077275_dbl_kind, 2.73398106756438_dbl_kind, 2.73556305634163_dbl_kind, 2.73854028166537_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,573) = (/ 2.72485811995419_dbl_kind, 2.72754461696724_dbl_kind, 2.72942565767214_dbl_kind, 2.73100394891626_dbl_kind, 2.73397280140522_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,574) = (/ 2.72033067057478_dbl_kind, 2.72300956510839_dbl_kind, 2.72488538912586_dbl_kind, 2.72646000476447_dbl_kind, 2.72942052120658_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,575) = (/ 2.71581823569861_dbl_kind, 2.71848955999814_dbl_kind, 2.72036018667244_dbl_kind, 2.72193114833235_dbl_kind, 2.72488336533174_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,576) = (/ 2.7113207407791_dbl_kind, 2.71398452693604_dbl_kind, 2.71584997555665_dbl_kind, 2.71741730456748_dbl_kind, 2.72036125854541_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,577) = (/ 2.70683811176221_dbl_kind, 2.70949439171521_dbl_kind, 2.71135468151705_dbl_kind, 2.71291839891478_dbl_kind, 2.71585412611048_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,578) = (/ 2.70237027508234_dbl_kind, 2.70501908061818_dbl_kind, 2.7068742307819_dbl_kind, 2.70843435731237_dbl_kind, 2.71136189378399_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,579) = (/ 2.69791715765839_dbl_kind, 2.70055852041291_dbl_kind, 2.7024085500651_dbl_kind, 2.70396510618752_dbl_kind, 2.70688448781299_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,580) = (/ 2.69347868688968_dbl_kind, 2.69611263834875_dbl_kind, 2.6979575665622_dbl_kind, 2.69951057245263_dbl_kind, 2.70242183493055_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,581) = (/ 2.68905479065209_dbl_kind, 2.69168136215253_dbl_kind, 2.69352120794642_dbl_kind, 2.69507068350122_dbl_kind, 2.69797386235173_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,582) = (/ 2.68464539729415_dbl_kind, 2.68726462002462_dbl_kind, 2.68909940236475_dbl_kind, 2.690645367204_dbl_kind, 2.69354049776965_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,583) = (/ 2.68025043563313_dbl_kind, 2.68286234063506_dbl_kind, 2.68469207843404_dbl_kind, 2.68623455190496_dbl_kind, 2.68912166935154_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,584) = (/ 2.67586983495129_dbl_kind, 2.6784744531197_dbl_kind, 2.68029916523719_dbl_kind, 2.68183816641747_dbl_kind, 2.68471730573492_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,585) = (/ 2.671503524992_dbl_kind, 2.67410088707643_dbl_kind, 2.67592059231928_dbl_kind, 2.67745614002046_dbl_kind, 2.68032733602369_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,586) = (/ 2.66715143595609_dbl_kind, 2.66974157256138_dbl_kind, 2.67155628968386_dbl_kind, 2.67308840245465_dbl_kind, 2.67595168978437_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,587) = (/ 2.66281349849807_dbl_kind, 2.66539644008522_dbl_kind, 2.66720618778919_dbl_kind, 2.66873488391873_dbl_kind, 2.67159029704232_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,588) = (/ 2.65848964372246_dbl_kind, 2.66106542060946_dbl_kind, 2.66287021754452_dbl_kind, 2.66439551506571_dbl_kind, 2.66724308827802_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,589) = (/ 2.65417980318018_dbl_kind, 2.6567484455428_dbl_kind, 2.65854831030647_dbl_kind, 2.66007022699917_dbl_kind, 2.66290999442337_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,590) = (/ 2.6498839088649_dbl_kind, 2.65244544673749_dbl_kind, 2.65424039787537_dbl_kind, 2.65575895126961_dbl_kind, 2.65859094685802_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,591) = (/ 2.64560189320952_dbl_kind, 2.64815635648576_dbl_kind, 2.6499464124917_dbl_kind, 2.65146161987089_dbl_kind, 2.65428587740577_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,592) = (/ 2.64133368908258_dbl_kind, 2.64388110751628_dbl_kind, 2.64566628683249_dbl_kind, 2.6471781652366_dbl_kind, 2.64999471833097_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,593) = (/ 2.6370792297848_dbl_kind, 2.63961963299063_dbl_kind, 2.64139995400786_dbl_kind, 2.64290852023651_dbl_kind, 2.64571740233498_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,594) = (/ 2.63283844904557_dbl_kind, 2.63537186649981_dbl_kind, 2.63714734755746_dbl_kind, 2.63865261817309_dbl_kind, 2.64145386255264_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,595) = (/ 2.62861128101957_dbl_kind, 2.63113774206082_dbl_kind, 2.6329084014471_dbl_kind, 2.634410392778_dbl_kind, 2.63720403254878_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,596) = (/ 2.62439766028329_dbl_kind, 2.62691719411321_dbl_kind, 2.62868305006524_dbl_kind, 2.63018177820866_dbl_kind, 2.6329678463148_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,597) = (/ 2.62019752183174_dbl_kind, 2.62271015751576_dbl_kind, 2.62447122821969_dbl_kind, 2.62596670904483_dbl_kind, 2.62874523826521_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,598) = (/ 2.61601080107505_dbl_kind, 2.61851656754304_dbl_kind, 2.62027287113418_dbl_kind, 2.62176512028524_dbl_kind, 2.62453614323428_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,599) = (/ 2.61183743383522_dbl_kind, 2.61433635988217_dbl_kind, 2.6160879144451_dbl_kind, 2.61757694734424_dbl_kind, 2.62034049647268_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,600) = (/ 2.60767735634277_dbl_kind, 2.61016947062951_dbl_kind, 2.61191629419817_dbl_kind, 2.61340212604846_dbl_kind, 2.61615823364415_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,601) = (/ 2.60353050523356_dbl_kind, 2.6060158362874_dbl_kind, 2.60775794684521_dbl_kind, 2.60924059263355_dbl_kind, 2.61198929082221_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,602) = (/ 2.59939681754558_dbl_kind, 2.60187539376093_dbl_kind, 2.60361280924087_dbl_kind, 2.60509228374096_dbl_kind, 2.60783360448692_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,603) = (/ 2.59527623071571_dbl_kind, 2.59774808035477_dbl_kind, 2.59948081863949_dbl_kind, 2.60095713641461_dbl_kind, 2.60369111152163_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,604) = (/ 2.59116868257661_dbl_kind, 2.59363383376999_dbl_kind, 2.59536191269189_dbl_kind, 2.59683508809784_dbl_kind, 2.59956174920982_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,605) = (/ 2.58707411135361_dbl_kind, 2.58953259210097_dbl_kind, 2.59125602944226_dbl_kind, 2.59272607663013_dbl_kind, 2.5954454552319_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,606) = (/ 2.58299245566157_dbl_kind, 2.58544429383221_dbl_kind, 2.58716310732505_dbl_kind, 2.58863004024404_dbl_kind, 2.59134216766209_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,607) = (/ 2.57892365450187_dbl_kind, 2.58136887783537_dbl_kind, 2.58308308516187_dbl_kind, 2.58454691756207_dbl_kind, 2.5872518249653_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,608) = (/ 2.57486764725932_dbl_kind, 2.57730628336612_dbl_kind, 2.57901590215849_dbl_kind, 2.58047664759362_dbl_kind, 2.5831743659941_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,609) = (/ 2.5708243736992_dbl_kind, 2.57325645006122_dbl_kind, 2.57496149790177_dbl_kind, 2.5764191697319_dbl_kind, 2.5791097299856_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,610) = (/ 2.56679377396426_dbl_kind, 2.56921931793546_dbl_kind, 2.5709198123567_dbl_kind, 2.57237442375097_dbl_kind, 2.57505785655851_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,611) = (/ 2.56277578857177_dbl_kind, 2.56519482737874_dbl_kind, 2.56689078586345_dbl_kind, 2.56834234980273_dbl_kind, 2.57101868571006_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,612) = (/ 2.5587703584106_dbl_kind, 2.56118291915314_dbl_kind, 2.56287435913441_dbl_kind, 2.56432288841393_dbl_kind, 2.56699215781313_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,613) = (/ 2.55477742473833_dbl_kind, 2.55718353439_dbl_kind, 2.55887047325129_dbl_kind, 2.56031598048329_dbl_kind, 2.56297821361327_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,614) = (/ 2.55079692917838_dbl_kind, 2.55319661458706_dbl_kind, 2.55487906966226_dbl_kind, 2.55632156727857_dbl_kind, 2.55897679422578_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,615) = (/ 2.54682881371715_dbl_kind, 2.5492221016056_dbl_kind, 2.55090009017906_dbl_kind, 2.55233959043368_dbl_kind, 2.55498784113285_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,616) = (/ 2.54287302070123_dbl_kind, 2.54525993766764_dbl_kind, 2.54693347697423_dbl_kind, 2.54836999194588_dbl_kind, 2.55101129618071_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,617) = (/ 2.5389294928346_dbl_kind, 2.5413100653531_dbl_kind, 2.54297917257827_dbl_kind, 2.5444127141729_dbl_kind, 2.54704710157681_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,618) = (/ 2.53499817317586_dbl_kind, 2.53737242759709_dbl_kind, 2.53903711987688_dbl_kind, 2.54046769983018_dbl_kind, 2.54309519988698_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,619) = (/ 2.5310790051355_dbl_kind, 2.53344696768712_dbl_kind, 2.53510726210822_dbl_kind, 2.53653489198806_dbl_kind, 2.5391555340327_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,620) = (/ 2.5271719324732_dbl_kind, 2.5295336292604_dbl_kind, 2.53118954286017_dbl_kind, 2.53261423406911_dbl_kind, 2.53522804728833_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,621) = (/ 2.5232768992951_dbl_kind, 2.52563235630114_dbl_kind, 2.52728390606766_dbl_kind, 2.52870566984531_dbl_kind, 2.53131268327841_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,622) = (/ 2.51939385005121_dbl_kind, 2.5217430931379_dbl_kind, 2.52339029600998_dbl_kind, 2.52480914343544_dbl_kind, 2.52740938597491_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,623) = (/ 2.51552272953267_dbl_kind, 2.51786578444092_dbl_kind, 2.51950865730816_dbl_kind, 2.52092459930237_dbl_kind, 2.52351809969462_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,624) = (/ 2.51166348286926_dbl_kind, 2.51400037521951_dbl_kind, 2.51563893492231_dbl_kind, 2.51705198225042_dbl_kind, 2.51963876909646_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,625) = (/ 2.50781605552668_dbl_kind, 2.51014681081949_dbl_kind, 2.51178107414905_dbl_kind, 2.51319123742272_dbl_kind, 2.51577133917888_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,626) = (/ 2.5039803933041_dbl_kind, 2.50630503692054_dbl_kind, 2.50793502061894_dbl_kind, 2.50934231029867_dbl_kind, 2.51191575527723_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,627) = (/ 2.50015644233153_dbl_kind, 2.50247499953374_dbl_kind, 2.50410072029391_dbl_kind, 2.5055051466913_dbl_kind, 2.50807196306122_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,628) = (/ 2.49634414906734_dbl_kind, 2.49865664499899_dbl_kind, 2.50027811946475_dbl_kind, 2.50167969274477_dbl_kind, 2.50423990853234_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,629) = (/ 2.49254346029577_dbl_kind, 2.49484991998252_dbl_kind, 2.49646716474862_dbl_kind, 2.49786589493181_dbl_kind, 2.50041953802135_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,630) = (/ 2.48875432312445_dbl_kind, 2.49105477147444_dbl_kind, 2.49266780308652_dbl_kind, 2.49406370005123_dbl_kind, 2.49661079818575_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,631) = (/ 2.48497668498191_dbl_kind, 2.48727114678625_dbl_kind, 2.48887998174089_dbl_kind, 2.49027305522545_dbl_kind, 2.49281363600734_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,632) = (/ 2.48121049361522_dbl_kind, 2.4834989935484_dbl_kind, 2.48510364829315_dbl_kind, 2.48649390789803_dbl_kind, 2.48902799878971_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,633) = (/ 2.47745569708752_dbl_kind, 2.47973825970793_dbl_kind, 2.48133875064129_dbl_kind, 2.48272620583124_dbl_kind, 2.48525383415582_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,634) = (/ 2.47371224377567_dbl_kind, 2.47598889352602_dbl_kind, 2.47758523699747_dbl_kind, 2.47896989710363_dbl_kind, 2.48149109004561_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,635) = (/ 2.46998008236789_dbl_kind, 2.47225084357567_dbl_kind, 2.47384305588568_dbl_kind, 2.47522493010767_dbl_kind, 2.47773971471355_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,636) = (/ 2.46625916186137_dbl_kind, 2.46852405873934_dbl_kind, 2.47011215613934_dbl_kind, 2.47149125354734_dbl_kind, 2.47399965672633_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,637) = (/ 2.46254943156001_dbl_kind, 2.46480848820659_dbl_kind, 2.46639248689904_dbl_kind, 2.46776881643583_dbl_kind, 2.47027086496046_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,638) = (/ 2.45885084107209_dbl_kind, 2.46110408147184_dbl_kind, 2.46268399761019_dbl_kind, 2.46405756809316_dbl_kind, 2.46655328859997_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,639) = (/ 2.45516334030798_dbl_kind, 2.45741078833204_dbl_kind, 2.45898663802074_dbl_kind, 2.4603574581439_dbl_kind, 2.46284687713409_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,640) = (/ 2.4514868794779_dbl_kind, 2.45372855888442_dbl_kind, 2.45530035817895_dbl_kind, 2.45666843651492_dbl_kind, 2.45915158035496_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,641) = (/ 2.44782140908967_dbl_kind, 2.45005734352425_dbl_kind, 2.45162510843109_dbl_kind, 2.45299045343304_dbl_kind, 2.45546734835535_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,642) = (/ 2.44416687994648_dbl_kind, 2.44639709294261_dbl_kind, 2.44796083941928_dbl_kind, 2.44932345942287_dbl_kind, 2.45179413152645_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,643) = (/ 2.44052324314473_dbl_kind, 2.4427477581242_dbl_kind, 2.44430750207923_dbl_kind, 2.44566740530452_dbl_kind, 2.44813188055562_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,644) = (/ 2.4368904500718_dbl_kind, 2.43910929034517_dbl_kind, 2.4406650476381_dbl_kind, 2.44202224219145_dbl_kind, 2.44448054642415_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,645) = (/ 2.43326845240393_dbl_kind, 2.43548164117091_dbl_kind, 2.43703342761231_dbl_kind, 2.43838792148824_dbl_kind, 2.44084008040513_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,646) = (/ 2.42965720210406_dbl_kind, 2.43186476245396_dbl_kind, 2.43341259380542_dbl_kind, 2.43476439488847_dbl_kind, 2.43721043406128_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,647) = (/ 2.42605665141968_dbl_kind, 2.42825860633183_dbl_kind, 2.42980249830598_dbl_kind, 2.4311516143725_dbl_kind, 2.43359155924272_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,648) = (/ 2.4224667528808_dbl_kind, 2.42466312522495_dbl_kind, 2.42620309348542_dbl_kind, 2.42754953220543_dbl_kind, 2.42998340808494_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,649) = (/ 2.41888745929779_dbl_kind, 2.42107827183456_dbl_kind, 2.42261433199601_dbl_kind, 2.42395810093494_dbl_kind, 2.42638593300665_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,650) = (/ 2.41531872375937_dbl_kind, 2.41750399914063_dbl_kind, 2.41903616676873_dbl_kind, 2.4203772733892_dbl_kind, 2.42279908670766_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,651) = (/ 2.4117604996305_dbl_kind, 2.41394026039982_dbl_kind, 2.41546855101126_dbl_kind, 2.41680700267483_dbl_kind, 2.41922282216684_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,652) = (/ 2.40821274055041_dbl_kind, 2.41038700914344_dbl_kind, 2.41191143820593_dbl_kind, 2.4132472421748_dbl_kind, 2.41565709264008_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,653) = (/ 2.40467540043057_dbl_kind, 2.40684419917546_dbl_kind, 2.40836478210771_dbl_kind, 2.40969794554646_dbl_kind, 2.41210185165819_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,654) = (/ 2.40114843345267_dbl_kind, 2.40331178457048_dbl_kind, 2.40482853674223_dbl_kind, 2.40615906671945_dbl_kind, 2.40855705302495_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,655) = (/ 2.39763179406668_dbl_kind, 2.39978971967179_dbl_kind, 2.40130265640375_dbl_kind, 2.40263055989374_dbl_kind, 2.40502265081507_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,656) = (/ 2.39412543698885_dbl_kind, 2.39627795908935_dbl_kind, 2.39778709565327_dbl_kind, 2.39911237953767_dbl_kind, 2.40149859937221_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,657) = (/ 2.39062931719979_dbl_kind, 2.39277645769791_dbl_kind, 2.39428180931653_dbl_kind, 2.39560448038593_dbl_kind, 2.39798485330703_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,658) = (/ 2.38714338994258_dbl_kind, 2.38928517063505_dbl_kind, 2.39078675248211_dbl_kind, 2.39210681743767_dbl_kind, 2.39448136749521_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,659) = (/ 2.38366761072077_dbl_kind, 2.38580405329927_dbl_kind, 2.38730188049949_dbl_kind, 2.38861934595452_dbl_kind, 2.39098809707555_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,660) = (/ 2.38020193529659_dbl_kind, 2.38233306134811_dbl_kind, 2.38382714897722_dbl_kind, 2.38514202145872_dbl_kind, 2.38750499744805_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,661) = (/ 2.37674631968898_dbl_kind, 2.37887215069623_dbl_kind, 2.38036251378096_dbl_kind, 2.38167479973118_dbl_kind, 2.38403202427198_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,662) = (/ 2.37330072017182_dbl_kind, 2.37542127751363_dbl_kind, 2.37690793103168_dbl_kind, 2.37821763680965_dbl_kind, 2.38056913346405_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,663) = (/ 2.36986509327201_dbl_kind, 2.37198039822372_dbl_kind, 2.3734633571038_dbl_kind, 2.37477048898681_dbl_kind, 2.37711628119648_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,664) = (/ 2.3664393957677_dbl_kind, 2.36854946950154_dbl_kind, 2.37002874862332_dbl_kind, 2.37133331280846_dbl_kind, 2.37367342389522_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,665) = (/ 2.36302358468642_dbl_kind, 2.36512844827195_dbl_kind, 2.36660406246611_dbl_kind, 2.36790606507167_dbl_kind, 2.37024051823805_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,666) = (/ 2.35961761730334_dbl_kind, 2.36171729170779_dbl_kind, 2.36318925575597_dbl_kind, 2.36448870282294_dbl_kind, 2.36681752115283_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,667) = (/ 2.35622145113947_dbl_kind, 2.35831595722816_dbl_kind, 2.359784285863_dbl_kind, 2.36108118335646_dbl_kind, 2.36340438981563_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,668) = (/ 2.35283504395989_dbl_kind, 2.35492440249658_dbl_kind, 2.35638911040171_dbl_kind, 2.35768346421227_dbl_kind, 2.360001081649_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,669) = (/ 2.34945835377198_dbl_kind, 2.35154258541932_dbl_kind, 2.35300368722934_dbl_kind, 2.35429550317453_dbl_kind, 2.35660755432016_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,670) = (/ 2.34609133882372_dbl_kind, 2.3481704641436_dbl_kind, 2.34962797444409_dbl_kind, 2.35091725826975_dbl_kind, 2.35322376573928_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,671) = (/ 2.34273395760196_dbl_kind, 2.3448079970559_dbl_kind, 2.34626193038343_dbl_kind, 2.34754868776503_dbl_kind, 2.34984967405768_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,672) = (/ 2.33938616883071_dbl_kind, 2.34145514278023_dbl_kind, 2.34290551362238_dbl_kind, 2.34418975016638_dbl_kind, 2.3464852376662_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,673) = (/ 2.33604793146943_dbl_kind, 2.33811186017649_dbl_kind, 2.33955868297179_dbl_kind, 2.34084040421698_dbl_kind, 2.34313041519338_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,674) = (/ 2.3327192047114_dbl_kind, 2.3347781083387_dbl_kind, 2.33622139747671_dbl_kind, 2.3375006088955_dbl_kind, 2.33978516550383_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,675) = (/ 2.32939994798201_dbl_kind, 2.33145384659346_dbl_kind, 2.33289361641471_dbl_kind, 2.33417032341442_dbl_kind, 2.33644944769657_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,676) = (/ 2.32609012093713_dbl_kind, 2.32813903449819_dbl_kind, 2.32957529929421_dbl_kind, 2.33084950721834_dbl_kind, 2.33312322110329_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,677) = (/ 2.3227896834615_dbl_kind, 2.32483363183954_dbl_kind, 2.32626640585289_dbl_kind, 2.32753811998237_dbl_kind, 2.32980644528674_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,678) = (/ 2.31949859566707_dbl_kind, 2.32153759863179_dbl_kind, 2.32296689605603_dbl_kind, 2.32423612161048_dbl_kind, 2.3264990800391_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,679) = (/ 2.31621681789141_dbl_kind, 2.31825089511522_dbl_kind, 2.3196767300949_dbl_kind, 2.32094347223383_dbl_kind, 2.32320108538032_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,680) = (/ 2.31294431069614_dbl_kind, 2.31497348175451_dbl_kind, 2.31639586838523_dbl_kind, 2.31766013220925_dbl_kind, 2.31991242155654_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,681) = (/ 2.30968103486529_dbl_kind, 2.31170531923717_dbl_kind, 2.31312427156554_dbl_kind, 2.31438606211756_dbl_kind, 2.3166330490385_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,682) = (/ 2.30642695140381_dbl_kind, 2.30844636847196_dbl_kind, 2.30986190049566_dbl_kind, 2.31112122276203_dbl_kind, 2.31336292851989_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,683) = (/ 2.30318202153597_dbl_kind, 2.30519659058738_dbl_kind, 2.30660871625511_dbl_kind, 2.30786557516681_dbl_kind, 2.31010202091587_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,684) = (/ 2.29994620670381_dbl_kind, 2.30195594693007_dbl_kind, 2.30336468014159_dbl_kind, 2.30461908057538_dbl_kind, 2.30685028736146_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,685) = (/ 2.29671946856567_dbl_kind, 2.29872439906332_dbl_kind, 2.30012975366947_dbl_kind, 2.30138170044896_dbl_kind, 2.30360768920998_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,686) = (/ 2.29350176899461_dbl_kind, 2.29550190876555_dbl_kind, 2.29690389856824_dbl_kind, 2.29815339646505_dbl_kind, 2.30037418803157_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,687) = (/ 2.29029307007694_dbl_kind, 2.2922884380288_dbl_kind, 2.29368707678104_dbl_kind, 2.29493413051586_dbl_kind, 2.29714974561163_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,688) = (/ 2.28709333411075_dbl_kind, 2.28908394905725_dbl_kind, 2.29047925046314_dbl_kind, 2.29172386470685_dbl_kind, 2.29393432394935_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,689) = (/ 2.28390252360441_dbl_kind, 2.28588840426574_dbl_kind, 2.28728038198051_dbl_kind, 2.2885225613552_dbl_kind, 2.29072788525616_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,690) = (/ 2.28072060127507_dbl_kind, 2.28270176627828_dbl_kind, 2.2840904339083_dbl_kind, 2.28533018298834_dbl_kind, 2.28753039195432_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,691) = (/ 2.2775475300473_dbl_kind, 2.27952399792667_dbl_kind, 2.28090936902943_dbl_kind, 2.2821466923425_dbl_kind, 2.28434180667539_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,692) = (/ 2.27438327305157_dbl_kind, 2.27635506224896_dbl_kind, 2.27773715033315_dbl_kind, 2.27897205236125_dbl_kind, 2.28116209225882_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,693) = (/ 2.27122779362285_dbl_kind, 2.2731949224881_dbl_kind, 2.27457374101359_dbl_kind, 2.27580622619405_dbl_kind, 2.27799121175048_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,694) = (/ 2.2680810552992_dbl_kind, 2.2700435420905_dbl_kind, 2.27141910446834_dbl_kind, 2.27264917719483_dbl_kind, 2.27482912840123_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,695) = (/ 2.26494302182036_dbl_kind, 2.26690088470462_dbl_kind, 2.2682732042971_dbl_kind, 2.26950086892056_dbl_kind, 2.27167580566552_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,696) = (/ 2.26181365712635_dbl_kind, 2.26376691417958_dbl_kind, 2.26513600430023_dbl_kind, 2.26636126512985_dbl_kind, 2.26853120719994_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,697) = (/ 2.2586929253561_dbl_kind, 2.26064159456377_dbl_kind, 2.26200746847737_dbl_kind, 2.26323032978158_dbl_kind, 2.26539529686188_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,698) = (/ 2.2555807908461_dbl_kind, 2.25752489010348_dbl_kind, 2.25888756102613_dbl_kind, 2.26010802703345_dbl_kind, 2.2622680387081_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,699) = (/ 2.25247721812897_dbl_kind, 2.25441676524159_dbl_kind, 2.25577624634066_dbl_kind, 2.2569943212407_dbl_kind, 2.25914939699338_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,700) = (/ 2.2493821719322_dbl_kind, 2.25131718461615_dbl_kind, 2.25267348901036_dbl_kind, 2.25388917695466_dbl_kind, 2.25603933616915_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,701) = (/ 2.24629561717676_dbl_kind, 2.24822611305907_dbl_kind, 2.24957925381852_dbl_kind, 2.25079255892149_dbl_kind, 2.25293782088212_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,702) = (/ 2.2432175189758_dbl_kind, 2.24514351559483_dbl_kind, 2.24649350574098_dbl_kind, 2.24770443208075_dbl_kind, 2.24984481597299_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,703) = (/ 2.24014784263332_dbl_kind, 2.24206935743912_dbl_kind, 2.24341620994485_dbl_kind, 2.24462476156414_dbl_kind, 2.24676028647507_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,704) = (/ 2.23708655364286_dbl_kind, 2.23900360399753_dbl_kind, 2.24034733178718_dbl_kind, 2.24155351269416_dbl_kind, 2.24368419761299_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,705) = (/ 2.23403361768625_dbl_kind, 2.23594622086433_dbl_kind, 2.23728683681369_dbl_kind, 2.23849065098283_dbl_kind, 2.24061651480139_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,706) = (/ 2.23098900063226_dbl_kind, 2.2328971738211_dbl_kind, 2.23423469075748_dbl_kind, 2.23543614213032_dbl_kind, 2.23755720364361_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,707) = (/ 2.2279526685354_dbl_kind, 2.22985642883549_dbl_kind, 2.23119085953773_dbl_kind, 2.23238995202378_dbl_kind, 2.23450622993042_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,708) = (/ 2.22492458763461_dbl_kind, 2.22682395206_dbl_kind, 2.22815530925849_dbl_kind, 2.22935204673597_dbl_kind, 2.23146355963873_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,709) = (/ 2.22190472435202_dbl_kind, 2.22379970983065_dbl_kind, 2.22512800620742_dbl_kind, 2.22632239252405_dbl_kind, 2.22842915893035_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,710) = (/ 2.21889304529171_dbl_kind, 2.22078366866582_dbl_kind, 2.22210891685449_dbl_kind, 2.2233009558283_dbl_kind, 2.22540299415071_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,711) = (/ 2.2158895172385_dbl_kind, 2.21777579526493_dbl_kind, 2.21909800785084_dbl_kind, 2.2202877032709_dbl_kind, 2.22238503182762_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,712) = (/ 2.21289410715669_dbl_kind, 2.21477605650732_dbl_kind, 2.21609524602748_dbl_kind, 2.21728260165467_dbl_kind, 2.21937523867006_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,713) = (/ 2.20990678218888_dbl_kind, 2.21178441945096_dbl_kind, 2.21310059839415_dbl_kind, 2.21428561796189_dbl_kind, 2.21637358156692_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,714) = (/ 2.20692750965475_dbl_kind, 2.20880085133126_dbl_kind, 2.21011403213805_dbl_kind, 2.21129671935305_dbl_kind, 2.21338002758581_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,715) = (/ 2.2039562570499_dbl_kind, 2.20582531955993_dbl_kind, 2.20713551462271_dbl_kind, 2.20831587316565_dbl_kind, 2.21039454397183_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,716) = (/ 2.20099299204462_dbl_kind, 2.20285779172374_dbl_kind, 2.20416501338677_dbl_kind, 2.20534304691303_dbl_kind, 2.20741709814643_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,717) = (/ 2.19803768248274_dbl_kind, 2.19989823558336_dbl_kind, 2.20120249614282_dbl_kind, 2.20237820828317_dbl_kind, 2.20444765770614_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,718) = (/ 2.19509029638049_dbl_kind, 2.19694661907223_dbl_kind, 2.19824793077623_dbl_kind, 2.19942132513752_dbl_kind, 2.2014861904215_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,719) = (/ 2.19215080192532_dbl_kind, 2.19400291029535_dbl_kind, 2.19530128534404_dbl_kind, 2.19647236550985_dbl_kind, 2.19853266423578_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,720) = (/ 2.18921916747475_dbl_kind, 2.1910670775282_dbl_kind, 2.19236252807374_dbl_kind, 2.19353129760505_dbl_kind, 2.19558704726393_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,721) = (/ 2.18629536155526_dbl_kind, 2.18813908921554_dbl_kind, 2.1894316273622_dbl_kind, 2.19059808979805_dbl_kind, 2.19264930779134_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,722) = (/ 2.18337935286114_dbl_kind, 2.18521891397033_dbl_kind, 2.18650855177453_dbl_kind, 2.18767271063263_dbl_kind, 2.18971941427278_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,723) = (/ 2.18047111025339_dbl_kind, 2.18230652057259_dbl_kind, 2.18359327004293_dbl_kind, 2.18475512882033_dbl_kind, 2.18679733533122_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,724) = (/ 2.1775706027586_dbl_kind, 2.17940187796831_dbl_kind, 2.18068575106563_dbl_kind, 2.18184531323929_dbl_kind, 2.18388303975672_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,725) = (/ 2.17467779956786_dbl_kind, 2.17650495526833_dbl_kind, 2.17778596390576_dbl_kind, 2.17894323293319_dbl_kind, 2.18097649650532_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,726) = (/ 2.17179267003566_dbl_kind, 2.17361572174725_dbl_kind, 2.17489387779027_dbl_kind, 2.17604885711012_dbl_kind, 2.17807767469797_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,727) = (/ 2.16891518367882_dbl_kind, 2.17073414684236_dbl_kind, 2.17200946210886_dbl_kind, 2.17316215514147_dbl_kind, 2.17518654361939_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,728) = (/ 2.16604531017539_dbl_kind, 2.16786020015256_dbl_kind, 2.16913268641287_dbl_kind, 2.17028309656091_dbl_kind, 2.17230307271699_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,729) = (/ 2.16318301936362_dbl_kind, 2.16499385143731_dbl_kind, 2.16626352041426_dbl_kind, 2.16741165106325_dbl_kind, 2.16942723159984_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,730) = (/ 2.1603282812409_dbl_kind, 2.16213507061554_dbl_kind, 2.16340193398453_dbl_kind, 2.1645477885034_dbl_kind, 2.16655899003754_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,731) = (/ 2.15748106596268_dbl_kind, 2.15928382776463_dbl_kind, 2.16054789715369_dbl_kind, 2.16169147889534_dbl_kind, 2.16369831795921_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,732) = (/ 2.15464134384145_dbl_kind, 2.15644009311934_dbl_kind, 2.1577013801092_dbl_kind, 2.15884269241102_dbl_kind, 2.16084518545242_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,733) = (/ 2.15180908534571_dbl_kind, 2.15360383707084_dbl_kind, 2.15486235319493_dbl_kind, 2.15600139937935_dbl_kind, 2.15799956276213_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,734) = (/ 2.14898426109895_dbl_kind, 2.1507750301656_dbl_kind, 2.15203078691018_dbl_kind, 2.15316757028517_dbl_kind, 2.15516142028969_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,735) = (/ 2.14616684187863_dbl_kind, 2.14795364310444_dbl_kind, 2.14920665190864_dbl_kind, 2.15034117576821_dbl_kind, 2.1523307285918_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,736) = (/ 2.14335679861518_dbl_kind, 2.14513964674149_dbl_kind, 2.14638991899736_dbl_kind, 2.14752218662208_dbl_kind, 2.14950745837947_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,737) = (/ 2.14055410239096_dbl_kind, 2.14233301208322_dbl_kind, 2.1435805591358_dbl_kind, 2.14471057379328_dbl_kind, 2.14669158051706_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,738) = (/ 2.13775872443933_dbl_kind, 2.1395337102874_dbl_kind, 2.14077854343479_dbl_kind, 2.14190630838016_dbl_kind, 2.14388306602122_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,739) = (/ 2.13497063614363_dbl_kind, 2.13674171266217_dbl_kind, 2.1379838431556_dbl_kind, 2.13910936163198_dbl_kind, 2.14108188605992_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,740) = (/ 2.1321898090362_dbl_kind, 2.13395699066501_dbl_kind, 2.1351964297089_dbl_kind, 2.13631970494786_dbl_kind, 2.1382880119515_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,741) = (/ 2.12941621479743_dbl_kind, 2.13117951590181_dbl_kind, 2.13241627465385_dbl_kind, 2.13353730987587_dbl_kind, 2.13550141516362_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,742) = (/ 2.1266498252548_dbl_kind, 2.1284092601259_dbl_kind, 2.1296433496971_dbl_kind, 2.13076214811202_dbl_kind, 2.13272206731235_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,743) = (/ 2.12389061238189_dbl_kind, 2.12564619523709_dbl_kind, 2.12687762669186_dbl_kind, 2.12799419149931_dbl_kind, 2.12994994016118_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,744) = (/ 2.12113854829747_dbl_kind, 2.12289029328072_dbl_kind, 2.12411907763694_dbl_kind, 2.12523341202678_dbl_kind, 2.12718500562006_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,745) = (/ 2.11839360526458_dbl_kind, 2.12014152644672_dbl_kind, 2.12136767467583_dbl_kind, 2.12247978182855_dbl_kind, 2.12442723574447_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,746) = (/ 2.11565575568952_dbl_kind, 2.11739986706868_dbl_kind, 2.11862339009574_dbl_kind, 2.11973327318288_dbl_kind, 2.12167660273444_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,747) = (/ 2.11292497212101_dbl_kind, 2.11466528762296_dbl_kind, 2.1158861963267_dbl_kind, 2.11699385851129_dbl_kind, 2.11893307893369_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,748) = (/ 2.11020122724923_dbl_kind, 2.1119377607277_dbl_kind, 2.11315606594064_dbl_kind, 2.11426151037753_dbl_kind, 2.11619663682861_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,749) = (/ 2.10748449390491_dbl_kind, 2.10921725914198_dbl_kind, 2.11043297165047_dbl_kind, 2.11153620148677_dbl_kind, 2.11346724904742_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,750) = (/ 2.10477474505845_dbl_kind, 2.10650375576485_dbl_kind, 2.10771688630919_dbl_kind, 2.10881790468462_dbl_kind, 2.11074488835921_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,751) = (/ 2.10207195381898_dbl_kind, 2.10379722363451_dbl_kind, 2.10500778290898_dbl_kind, 2.10610659295628_dbl_kind, 2.10802952767305_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,752) = (/ 2.09937609343354_dbl_kind, 2.10109763592735_dbl_kind, 2.10230563458032_dbl_kind, 2.10340223942558_dbl_kind, 2.10532114003709_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,753) = (/ 2.09668713728611_dbl_kind, 2.0984049659571_dbl_kind, 2.09961041459111_dbl_kind, 2.10070481735414_dbl_kind, 2.10261969863768_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,754) = (/ 2.09400505889683_dbl_kind, 2.09571918717397_dbl_kind, 2.09692209634578_dbl_kind, 2.09801430014048_dbl_kind, 2.09992517679847_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,755) = (/ 2.09132983192103_dbl_kind, 2.09304027316373_dbl_kind, 2.09424065338446_dbl_kind, 2.09533066131912_dbl_kind, 2.09723754797953_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,756) = (/ 2.08866143014846_dbl_kind, 2.09036819764689_dbl_kind, 2.09156605938205_dbl_kind, 2.09265387455973_dbl_kind, 2.09455678577649_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,757) = (/ 2.08599982750238_dbl_kind, 2.08770293447785_dbl_kind, 2.08889828814743_dbl_kind, 2.08998391366627_dbl_kind, 2.09188286391968_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,758) = (/ 2.08334499803872_dbl_kind, 2.08504445764399_dbl_kind, 2.0862373136226_dbl_kind, 2.08732075257613_dbl_kind, 2.08921575627326_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,759) = (/ 2.08069691594524_dbl_kind, 2.0823927412649_dbl_kind, 2.08358310988178_dbl_kind, 2.08466436535926_dbl_kind, 2.08655543683436_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,760) = (/ 2.07805555554071_dbl_kind, 2.0797477595915_dbl_kind, 2.08093565113066_dbl_kind, 2.08201472621737_dbl_kind, 2.08390187973228_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,761) = (/ 2.07542089127404_dbl_kind, 2.07710948700521_dbl_kind, 2.07829491170551_dbl_kind, 2.07937180948307_dbl_kind, 2.08125505922758_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,762) = (/ 2.07279289772352_dbl_kind, 2.07447789801716_dbl_kind, 2.07566086607236_dbl_kind, 2.07673558961901_dbl_kind, 2.07861494971131_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,763) = (/ 2.07017154959592_dbl_kind, 2.07185296726732_dbl_kind, 2.07303348882623_dbl_kind, 2.07410604121711_dbl_kind, 2.07598152570417_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,764) = (/ 2.06755682172576_dbl_kind, 2.06923466952373_dbl_kind, 2.07041275469026_dbl_kind, 2.07148313899772_dbl_kind, 2.07335476185567_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,765) = (/ 2.06494868907445_dbl_kind, 2.06662297968167_dbl_kind, 2.06779863851494_dbl_kind, 2.06886685780878_dbl_kind, 2.07073463294333_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,766) = (/ 2.06234712672951_dbl_kind, 2.06401787276289_dbl_kind, 2.06519111527729_dbl_kind, 2.06625717262509_dbl_kind, 2.06812111387187_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,767) = (/ 2.05975210990377_dbl_kind, 2.06141932391477_dbl_kind, 2.06259016008011_dbl_kind, 2.0636540585474_dbl_kind, 2.06551417967242_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,768) = (/ 2.05716361393462_dbl_kind, 2.05882730840958_dbl_kind, 2.05999574815114_dbl_kind, 2.06105749080174_dbl_kind, 2.06291380550172_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,769) = (/ 2.05458161428316_dbl_kind, 2.05624180164367_dbl_kind, 2.0574078548423_dbl_kind, 2.05846744473853_dbl_kind, 2.06031996664132_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,770) = (/ 2.05200608653348_dbl_kind, 2.05366277913668_dbl_kind, 2.05482645562892_dbl_kind, 2.05588389583187_dbl_kind, 2.05773263849681_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,771) = (/ 2.04943700639188_dbl_kind, 2.05109021653082_dbl_kind, 2.05225152610898_dbl_kind, 2.05330681967871_dbl_kind, 2.05515179659704_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,772) = (/ 2.04687434968609_dbl_kind, 2.04852408959007_dbl_kind, 2.04968304200231_dbl_kind, 2.05073619199812_dbl_kind, 2.05257741659336_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,773) = (/ 2.04431809236453_dbl_kind, 2.04596437419942_dbl_kind, 2.04712097914988_dbl_kind, 2.04817198863053_dbl_kind, 2.0500094742588_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,774) = (/ 2.04176821049553_dbl_kind, 2.04341104636413_dbl_kind, 2.044565313513_dbl_kind, 2.04561418553693_dbl_kind, 2.04744794548739_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,775) = (/ 2.03922468026663_dbl_kind, 2.04086408220897_dbl_kind, 2.04201602117263_dbl_kind, 2.04306275879816_dbl_kind, 2.04489280629336_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,776) = (/ 2.03668747798381_dbl_kind, 2.03832345797749_dbl_kind, 2.03947307832858_dbl_kind, 2.04051768461414_dbl_kind, 2.04234403281041_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,777) = (/ 2.03415658007075_dbl_kind, 2.03578915003129_dbl_kind, 2.0369364612988_dbl_kind, 2.03797893930313_dbl_kind, 2.03980160129095_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,778) = (/ 2.03163196306809_dbl_kind, 2.03326113484927_dbl_kind, 2.03440614651867_dbl_kind, 2.03544649930102_dbl_kind, 2.03726548810536_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,779) = (/ 2.02911360363276_dbl_kind, 2.03073938902689_dbl_kind, 2.03188211054024_dbl_kind, 2.03292034116056_dbl_kind, 2.03473566974126_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,780) = (/ 2.02660147853718_dbl_kind, 2.02822388927552_dbl_kind, 2.02936433003153_dbl_kind, 2.03040044155067_dbl_kind, 2.03221212280285_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,781) = (/ 2.02409556466864_dbl_kind, 2.02571461242165_dbl_kind, 2.02685278177582_dbl_kind, 2.02788677725572_dbl_kind, 2.02969482401007_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,782) = (/ 2.0215958390285_dbl_kind, 2.0232115354062_dbl_kind, 2.02434744267093_dbl_kind, 2.02537932517476_dbl_kind, 2.02718375019797_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,783) = (/ 2.01910227873155_dbl_kind, 2.02071463528386_dbl_kind, 2.02184828972852_dbl_kind, 2.02287806232091_dbl_kind, 2.02467887831597_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,784) = (/ 2.01661486100528_dbl_kind, 2.01822388922231_dbl_kind, 2.01935530007339_dbl_kind, 2.02038296582057_dbl_kind, 2.02218018542718_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,785) = (/ 2.0141335631892_dbl_kind, 2.01573927450162_dbl_kind, 2.01686845094281_dbl_kind, 2.01789401291276_dbl_kind, 2.01968764870767_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,786) = (/ 2.01165836273416_dbl_kind, 2.01326076851349_dbl_kind, 2.01438771968578_dbl_kind, 2.01541118094842_dbl_kind, 2.01720124544579_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,787) = (/ 2.00918923720163_dbl_kind, 2.01078834876058_dbl_kind, 2.01191308376239_dbl_kind, 2.01293444738973_dbl_kind, 2.01472095304146_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,788) = (/ 2.00672616426308_dbl_kind, 2.00832199285585_dbl_kind, 2.00944452074315_dbl_kind, 2.01046378980942_dbl_kind, 2.01224674900553_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,789) = (/ 2.00426912169926_dbl_kind, 2.0058616785219_dbl_kind, 2.00698200830828_dbl_kind, 2.0079991858901_dbl_kind, 2.00977861095907_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,790) = (/ 2.00181808739955_dbl_kind, 2.00340738359024_dbl_kind, 2.00452552424707_dbl_kind, 2.00554061342358_dbl_kind, 2.00731651663269_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,791) = (/ 1.99937303936129_dbl_kind, 2.0009590860007_dbl_kind, 2.00207504645718_dbl_kind, 2.00308805031018_dbl_kind, 2.00486044386587_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,792) = (/ 1.99693395568915_dbl_kind, 1.99851676380071_dbl_kind, 1.99963055294404_dbl_kind, 2.00064147455813_dbl_kind, 2.00241037060635_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,793) = (/ 1.99450081459443_dbl_kind, 1.9960803951447_dbl_kind, 1.99719202182015_dbl_kind, 1.99820086428285_dbl_kind, 1.99996627490938_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,794) = (/ 1.99207359439444_dbl_kind, 1.99364995829339_dbl_kind, 1.99475943130446_dbl_kind, 1.99576619770632_dbl_kind, 1.99752813493713_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,795) = (/ 1.98965227351187_dbl_kind, 1.9912254316132_dbl_kind, 1.99233275972169_dbl_kind, 1.99333745315645_dbl_kind, 1.99509592895805_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,796) = (/ 1.98723683047412_dbl_kind, 1.98880679357559_dbl_kind, 1.98991198550173_dbl_kind, 1.9909146090664_dbl_kind, 1.99266963534614_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,797) = (/ 1.98482724391267_dbl_kind, 1.98639402275642_dbl_kind, 1.98749708717898_dbl_kind, 1.98849764397398_dbl_kind, 1.99024923258042_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,798) = (/ 1.98242349256247_dbl_kind, 1.9839870978353_dbl_kind, 1.98508804339172_dbl_kind, 1.98608653652097_dbl_kind, 1.9878346992442_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,799) = (/ 1.98002555526131_dbl_kind, 1.98158599759502_dbl_kind, 1.98268483288151_dbl_kind, 1.98368126545253_dbl_kind, 1.98542601402453_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,800) = (/ 1.97763341094918_dbl_kind, 1.97919070092088_dbl_kind, 1.98028743449255_dbl_kind, 1.98128180961657_dbl_kind, 1.9830231557115_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,801) = (/ 1.97524703866769_dbl_kind, 1.97680118680007_dbl_kind, 1.97789582717104_dbl_kind, 1.97888814796312_dbl_kind, 1.98062610319768_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,802) = (/ 1.9728664175594_dbl_kind, 1.97441743432111_dbl_kind, 1.97550998996463_dbl_kind, 1.9765002595437_dbl_kind, 1.97823483547744_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,803) = (/ 1.97049152686727_dbl_kind, 1.97203942267317_dbl_kind, 1.97312990202173_dbl_kind, 1.97411812351074_dbl_kind, 1.97584933164639_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,804) = (/ 1.96812234593405_dbl_kind, 1.96966713114553_dbl_kind, 1.97075554259099_dbl_kind, 1.97174171911695_dbl_kind, 1.97346957090077_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,805) = (/ 1.96575885420164_dbl_kind, 1.96730053912694_dbl_kind, 1.96838689102064_dbl_kind, 1.96937102571471_dbl_kind, 1.97109553253678_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,806) = (/ 1.96340103121054_dbl_kind, 1.96493962610504_dbl_kind, 1.96602392675793_dbl_kind, 1.96700602275553_dbl_kind, 1.96872719595008_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,807) = (/ 1.96104885659923_dbl_kind, 1.96258437166576_dbl_kind, 1.96366662934852_dbl_kind, 1.96464668978937_dbl_kind, 1.96636454063511_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,808) = (/ 1.9587023101036_dbl_kind, 1.96023475549275_dbl_kind, 1.9613149784359_dbl_kind, 1.96229300646411_dbl_kind, 1.96400754618454_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,809) = (/ 1.95636137155638_dbl_kind, 1.95789075736679_dbl_kind, 1.95896895376081_dbl_kind, 1.95994495252495_dbl_kind, 1.96165619228867_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,810) = (/ 1.95402602088653_dbl_kind, 1.95555235716518_dbl_kind, 1.95662853516065_dbl_kind, 1.95760250781381_dbl_kind, 1.95931045873485_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,811) = (/ 1.9516962381187_dbl_kind, 1.95321953486124_dbl_kind, 1.95429370256895_dbl_kind, 1.95526565226879_dbl_kind, 1.95697032540692_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,812) = (/ 1.94937200337263_dbl_kind, 1.95089227052367_dbl_kind, 1.95196443601472_dbl_kind, 1.95293436592356_dbl_kind, 1.9546357722846_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,813) = (/ 1.94705329686262_dbl_kind, 1.94857054431599_dbl_kind, 1.94964071562198_dbl_kind, 1.95060862890683_dbl_kind, 1.95230677944294_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,814) = (/ 1.94474009889693_dbl_kind, 1.94625433649602_dbl_kind, 1.9473225216091_dbl_kind, 1.94828842144173_dbl_kind, 1.94998332705176_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,815) = (/ 1.94243238987726_dbl_kind, 1.94394362741531_dbl_kind, 1.94500983428834_dbl_kind, 1.94597372384531_dbl_kind, 1.94766539537508_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,816) = (/ 1.94013015029818_dbl_kind, 1.94163839751855_dbl_kind, 1.94270263406521_dbl_kind, 1.94366451652794_dbl_kind, 1.94535296477053_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,817) = (/ 1.93783336074656_dbl_kind, 1.93933862734304_dbl_kind, 1.94040090143798_dbl_kind, 1.94136077999279_dbl_kind, 1.94304601568887_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,818) = (/ 1.93554200190107_dbl_kind, 1.93704429751817_dbl_kind, 1.9381046169971_dbl_kind, 1.93906249483525_dbl_kind, 1.94074452867337_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,819) = (/ 1.93325605453159_dbl_kind, 1.93475538876484_dbl_kind, 1.93581376142468_dbl_kind, 1.93676964174239_dbl_kind, 1.93844848435929_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,820) = (/ 1.93097549949874_dbl_kind, 1.93247188189495_dbl_kind, 1.93352831549395_dbl_kind, 1.93448220149246_dbl_kind, 1.93615786347336_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,821) = (/ 1.92870031775325_dbl_kind, 1.93019375781083_dbl_kind, 1.9312482600687_dbl_kind, 1.93220015495429_dbl_kind, 1.93387264683319_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,822) = (/ 1.92643049033551_dbl_kind, 1.92792099750474_dbl_kind, 1.92897357610278_dbl_kind, 1.92992348308681_dbl_kind, 1.93159281534677_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,823) = (/ 1.92416599837503_dbl_kind, 1.92565358205835_dbl_kind, 1.92670424463954_dbl_kind, 1.92765216693848_dbl_kind, 1.92931835001196_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,824) = (/ 1.92190682308988_dbl_kind, 1.92339149264218_dbl_kind, 1.92444024681135_dbl_kind, 1.92538618764679_dbl_kind, 1.92704923191589_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,825) = (/ 1.9196529457862_dbl_kind, 1.9211347105151_dbl_kind, 1.92218156383905_dbl_kind, 1.92312552643774_dbl_kind, 1.92478544223451_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,826) = (/ 1.9174043478577_dbl_kind, 1.91888321702382_dbl_kind, 1.91992817703143_dbl_kind, 1.9208701646253_dbl_kind, 1.92252696223204_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,827) = (/ 1.91516101078511_dbl_kind, 1.91663699360238_dbl_kind, 1.91768006778476_dbl_kind, 1.91862008361091_dbl_kind, 1.92027377326044_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,828) = (/ 1.9129229161357_dbl_kind, 1.91439602177161_dbl_kind, 1.91543721758221_dbl_kind, 1.91637526488298_dbl_kind, 1.91802585675894_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,829) = (/ 1.91069004556275_dbl_kind, 1.91216028313866_dbl_kind, 1.91319960799341_dbl_kind, 1.91413569001634_dbl_kind, 1.91578319425347_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,830) = (/ 1.9084623808051_dbl_kind, 1.90992975939649_dbl_kind, 1.91096722067392_dbl_kind, 1.9119013406718_dbl_kind, 1.9135457673562_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,831) = (/ 1.90623990368659_dbl_kind, 1.90770443232335_dbl_kind, 1.90874003736473_dbl_kind, 1.90967219859557_dbl_kind, 1.91131355776505_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,832) = (/ 1.9040225961156_dbl_kind, 1.90548428378231_dbl_kind, 1.90651803989178_dbl_kind, 1.90744824561886_dbl_kind, 1.90908654726313_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,833) = (/ 1.90181044008457_dbl_kind, 1.90326929572077_dbl_kind, 1.90430121016544_dbl_kind, 1.90522946365728_dbl_kind, 1.9068647177183_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,834) = (/ 1.89960341766948_dbl_kind, 1.90105945016993_dbl_kind, 1.90208953018006_dbl_kind, 1.90301583471046_dbl_kind, 1.90464805108267_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,835) = (/ 1.89740151102939_dbl_kind, 1.89885472924436_dbl_kind, 1.89988298201346_dbl_kind, 1.90080734086145_dbl_kind, 1.90243652939207_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,836) = (/ 1.89520470240595_dbl_kind, 1.8966551151415_dbl_kind, 1.89768154782646_dbl_kind, 1.89860396427634_dbl_kind, 1.90023013476564_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,837) = (/ 1.89301297412294_dbl_kind, 1.89446059014117_dbl_kind, 1.89548520986238_dbl_kind, 1.89640568720372_dbl_kind, 1.89802884940529_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,838) = (/ 1.89082630858577_dbl_kind, 1.89227113660508_dbl_kind, 1.8932939504466_dbl_kind, 1.89421249197419_dbl_kind, 1.89583265559522_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,839) = (/ 1.88864468828102_dbl_kind, 1.89008673697642_dbl_kind, 1.89110775198608_dbl_kind, 1.89202436099997_dbl_kind, 1.89364153570148_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,840) = (/ 1.886468095776_dbl_kind, 1.88790737377931_dbl_kind, 1.88892659696885_dbl_kind, 1.88984127677432_dbl_kind, 1.89145547217149_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,841) = (/ 1.88429651371823_dbl_kind, 1.88573302961842_dbl_kind, 1.88675046796362_dbl_kind, 1.88766322187116_dbl_kind, 1.88927444753355_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,842) = (/ 1.88212992483503_dbl_kind, 1.88356368717844_dbl_kind, 1.88457934761924_dbl_kind, 1.88549017894456_dbl_kind, 1.8870984443964_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,843) = (/ 1.87996831193305_dbl_kind, 1.88139932922365_dbl_kind, 1.88241321866431_dbl_kind, 1.88332213072831_dbl_kind, 1.88492744544873_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,844) = (/ 1.87781165789779_dbl_kind, 1.87923993859746_dbl_kind, 1.88025206390667_dbl_kind, 1.88115906003543_dbl_kind, 1.88276143345878_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,845) = (/ 1.87565994569318_dbl_kind, 1.87708549822197_dbl_kind, 1.87809586623299_dbl_kind, 1.87900094975775_dbl_kind, 1.88060039127379_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,846) = (/ 1.87351315836113_dbl_kind, 1.87493599109749_dbl_kind, 1.87594460860828_dbl_kind, 1.87684778286543_dbl_kind, 1.87844430181964_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,847) = (/ 1.87137127902105_dbl_kind, 1.87279140030214_dbl_kind, 1.8737982740755_dbl_kind, 1.87469954240653_dbl_kind, 1.87629314810035_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,848) = (/ 1.86923429086947_dbl_kind, 1.87065170899136_dbl_kind, 1.87165684575504_dbl_kind, 1.87255621150655_dbl_kind, 1.87414691319764_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,849) = (/ 1.86710217717952_dbl_kind, 1.8685169003975_dbl_kind, 1.86952030684437_dbl_kind, 1.87041777336803_dbl_kind, 1.87200558027052_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,850) = (/ 1.86497492130059_dbl_kind, 1.86638695782937_dbl_kind, 1.86738864061751_dbl_kind, 1.86828421127004_dbl_kind, 1.86986913255479_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,851) = (/ 1.86285250665779_dbl_kind, 1.8642618646718_dbl_kind, 1.86526183042467_dbl_kind, 1.86615550856781_dbl_kind, 1.86773755336265_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,852) = (/ 1.86073491675163_dbl_kind, 1.86214160438524_dbl_kind, 1.8631398596918_dbl_kind, 1.86403164869228_dbl_kind, 1.86561082608227_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,853) = (/ 1.85862213515749_dbl_kind, 1.8600261605053_dbl_kind, 1.86102271192012_dbl_kind, 1.86191261514964_dbl_kind, 1.86348893417731_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,854) = (/ 1.8565141455253_dbl_kind, 1.85791551664232_dbl_kind, 1.85891037068575_dbl_kind, 1.85979839152093_dbl_kind, 1.86137186118656_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,855) = (/ 1.854410931579_dbl_kind, 1.85580965648099_dbl_kind, 1.85680281963928_dbl_kind, 1.85768896146164_dbl_kind, 1.85925959072345_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,856) = (/ 1.85231247711624_dbl_kind, 1.85370856377987_dbl_kind, 1.8547000425053_dbl_kind, 1.85558430870122_dbl_kind, 1.85715210647566_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,857) = (/ 1.85021876600788_dbl_kind, 1.85161222237104_dbl_kind, 1.85260202308205_dbl_kind, 1.85348441704274_dbl_kind, 1.85504939220472_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,858) = (/ 1.84812978219762_dbl_kind, 1.84952061615962_dbl_kind, 1.85050874524095_dbl_kind, 1.85138927036243_dbl_kind, 1.85295143174555_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,859) = (/ 1.84604550970157_dbl_kind, 1.84743372912342_dbl_kind, 1.84842019292624_dbl_kind, 1.84929885260926_dbl_kind, 1.85085820900606_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,860) = (/ 1.84396593260785_dbl_kind, 1.84535154531248_dbl_kind, 1.84633635015453_dbl_kind, 1.84721314780457_dbl_kind, 1.84876970796678_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,861) = (/ 1.84189103507619_dbl_kind, 1.84327404884869_dbl_kind, 1.84425720101441_dbl_kind, 1.84513214004162_dbl_kind, 1.84668591268039_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,862) = (/ 1.83982080133752_dbl_kind, 1.8412012239254_dbl_kind, 1.84218272966606_dbl_kind, 1.84305581348522_dbl_kind, 1.84460680727134_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,863) = (/ 1.83775521569359_dbl_kind, 1.839133054807_dbl_kind, 1.84011292034083_dbl_kind, 1.84098415237131_dbl_kind, 1.84253237593547_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,864) = (/ 1.83569426251653_dbl_kind, 1.8370695258285_dbl_kind, 1.83804775734085_dbl_kind, 1.83891714100657_dbl_kind, 1.84046260293958_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,865) = (/ 1.83363792624851_dbl_kind, 1.8350106213952_dbl_kind, 1.83598722503864_dbl_kind, 1.83685476376803_dbl_kind, 1.83839747262105_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,866) = (/ 1.83158619140131_dbl_kind, 1.83295632598223_dbl_kind, 1.8339313078767_dbl_kind, 1.83479700510264_dbl_kind, 1.83633696938742_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,867) = (/ 1.82953904255597_dbl_kind, 1.8309066241342_dbl_kind, 1.83187999036715_dbl_kind, 1.83274384952694_dbl_kind, 1.83428107771605_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,868) = (/ 1.82749646436234_dbl_kind, 1.82886150046481_dbl_kind, 1.82983325709132_dbl_kind, 1.83069528162662_dbl_kind, 1.83222978215367_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,869) = (/ 1.82545844153878_dbl_kind, 1.82682093965646_dbl_kind, 1.82779109269938_dbl_kind, 1.82865128605616_dbl_kind, 1.83018306731602_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,870) = (/ 1.82342495887171_dbl_kind, 1.82478492645986_dbl_kind, 1.82575348190993_dbl_kind, 1.82661184753843_dbl_kind, 1.82814091788749_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,871) = (/ 1.82139600121527_dbl_kind, 1.82275344569364_dbl_kind, 1.82372040950967_dbl_kind, 1.82457695086435_dbl_kind, 1.8261033186207_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,872) = (/ 1.81937155349091_dbl_kind, 1.82072648224403_dbl_kind, 1.82169186035298_dbl_kind, 1.82254658089245_dbl_kind, 1.82407025433613_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,873) = (/ 1.81735160068709_dbl_kind, 1.81870402106441_dbl_kind, 1.81966781936155_dbl_kind, 1.82052072254856_dbl_kind, 1.82204170992177_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,874) = (/ 1.8153361278588_dbl_kind, 1.81668604717501_dbl_kind, 1.81764827152404_dbl_kind, 1.81849936082537_dbl_kind, 1.82001767033271_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,875) = (/ 1.81332512012731_dbl_kind, 1.81467254566248_dbl_kind, 1.81563320189569_dbl_kind, 1.81648248078213_dbl_kind, 1.81799812059081_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,876) = (/ 1.8113185626797_dbl_kind, 1.81266350167955_dbl_kind, 1.81362259559792_dbl_kind, 1.81447006754424_dbl_kind, 1.81598304578426_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,877) = (/ 1.80931644076856_dbl_kind, 1.81065890044469_dbl_kind, 1.81161643781804_dbl_kind, 1.81246210630288_dbl_kind, 1.81397243106731_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,878) = (/ 1.80731873971162_dbl_kind, 1.80865872724168_dbl_kind, 1.80961471380882_dbl_kind, 1.81045858231467_dbl_kind, 1.81196626165982_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,879) = (/ 1.80532544489137_dbl_kind, 1.80666296741934_dbl_kind, 1.80761740888817_dbl_kind, 1.8084594809013_dbl_kind, 1.80996452284695_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,880) = (/ 1.80333654175474_dbl_kind, 1.8046716063911_dbl_kind, 1.80562450843876_dbl_kind, 1.80646478744918_dbl_kind, 1.8079671999788_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,881) = (/ 1.80135201581269_dbl_kind, 1.80268462963468_dbl_kind, 1.80363599790769_dbl_kind, 1.80447448740906_dbl_kind, 1.80597427847_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,882) = (/ 1.79937185263993_dbl_kind, 1.80070202269172_dbl_kind, 1.8016518628061_dbl_kind, 1.80248856629571_dbl_kind, 1.80398574379943_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,883) = (/ 1.79739603787451_dbl_kind, 1.79872377116744_dbl_kind, 1.79967208870886_dbl_kind, 1.80050700968754_dbl_kind, 1.80200158150981_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,884) = (/ 1.7954245572175_dbl_kind, 1.7967498607303_dbl_kind, 1.79769666125419_dbl_kind, 1.79852980322627_dbl_kind, 1.80002177720738_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,885) = (/ 1.79345739643265_dbl_kind, 1.79478027711165_dbl_kind, 1.79572556614334_dbl_kind, 1.79655693261658_dbl_kind, 1.79804631656154_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,886) = (/ 1.79149454134605_dbl_kind, 1.79281500610537_dbl_kind, 1.79375878914024_dbl_kind, 1.79458838362576_dbl_kind, 1.79607518530452_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,887) = (/ 1.78953597784576_dbl_kind, 1.79085403356753_dbl_kind, 1.79179631607113_dbl_kind, 1.79262414208337_dbl_kind, 1.79410836923101_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,888) = (/ 1.7875816918815_dbl_kind, 1.78889734541609_dbl_kind, 1.78983813282426_dbl_kind, 1.79066419388091_dbl_kind, 1.79214585419785_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,889) = (/ 1.78563166946432_dbl_kind, 1.78694492763052_dbl_kind, 1.78788422534955_dbl_kind, 1.78870852497148_dbl_kind, 1.79018762612367_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,890) = (/ 1.78368589666625_dbl_kind, 1.78499676625148_dbl_kind, 1.78593457965822_dbl_kind, 1.78675712136943_dbl_kind, 1.78823367098856_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,891) = (/ 1.78174435961996_dbl_kind, 1.7830528473805_dbl_kind, 1.78398918182249_dbl_kind, 1.78480996915003_dbl_kind, 1.78628397483375_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,892) = (/ 1.77980704451846_dbl_kind, 1.78111315717962_dbl_kind, 1.78204801797524_dbl_kind, 1.78286705444917_dbl_kind, 1.78433852376123_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,893) = (/ 1.77787393761475_dbl_kind, 1.7791776818711_dbl_kind, 1.78011107430969_dbl_kind, 1.78092836346299_dbl_kind, 1.78239730393351_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,894) = (/ 1.77594502522152_dbl_kind, 1.77724640773707_dbl_kind, 1.77817833707907_dbl_kind, 1.77899388244757_dbl_kind, 1.78046030157319_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,895) = (/ 1.77402029371078_dbl_kind, 1.77531932111921_dbl_kind, 1.77624979259627_dbl_kind, 1.77706359771864_dbl_kind, 1.7785275029627_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,896) = (/ 1.7720997295136_dbl_kind, 1.77339640841841_dbl_kind, 1.77432542723356_dbl_kind, 1.77513749565119_dbl_kind, 1.77659889444396_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,897) = (/ 1.77018331911976_dbl_kind, 1.77147765609452_dbl_kind, 1.77240522742226_dbl_kind, 1.77321556267919_dbl_kind, 1.77467446241806_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,898) = (/ 1.76827104907741_dbl_kind, 1.76956305066593_dbl_kind, 1.77048917965238_dbl_kind, 1.77129778529529_dbl_kind, 1.77275419334493_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,899) = (/ 1.76636290599281_dbl_kind, 1.76765257870934_dbl_kind, 1.76857727047238_dbl_kind, 1.76938415005047_dbl_kind, 1.77083807374304_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,900) = (/ 1.76445887652998_dbl_kind, 1.7657462268594_dbl_kind, 1.76666948648878_dbl_kind, 1.76747464355373_dbl_kind, 1.76892609018908_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,901) = (/ 1.7625589474104_dbl_kind, 1.76384398180842_dbl_kind, 1.76476581436592_dbl_kind, 1.7655692524718_dbl_kind, 1.76701822931763_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,902) = (/ 1.7606631054127_dbl_kind, 1.76194583030606_dbl_kind, 1.76286624082557_dbl_kind, 1.7636679635288_dbl_kind, 1.76511447782088_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,903) = (/ 1.75877133737236_dbl_kind, 1.760051759159_dbl_kind, 1.7609707526467_dbl_kind, 1.76177076350598_dbl_kind, 1.76321482244829_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,904) = (/ 1.75688363018139_dbl_kind, 1.75816175523066_dbl_kind, 1.75907933666513_dbl_kind, 1.75987763924135_dbl_kind, 1.76131925000631_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,905) = (/ 1.75499997078805_dbl_kind, 1.7562758054409_dbl_kind, 1.75719197977324_dbl_kind, 1.75798857762943_dbl_kind, 1.75942774735805_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,906) = (/ 1.75312034619654_dbl_kind, 1.75439389676568_dbl_kind, 1.75530866891966_dbl_kind, 1.75610356562091_dbl_kind, 1.75754030142299_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,907) = (/ 1.75124474346669_dbl_kind, 1.7525160162368_dbl_kind, 1.75342939110899_dbl_kind, 1.7542225902224_dbl_kind, 1.75565689917669_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,908) = (/ 1.74937314971369_dbl_kind, 1.75064215094161_dbl_kind, 1.75155413340147_dbl_kind, 1.75234563849606_dbl_kind, 1.75377752765048_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,909) = (/ 1.74750555210776_dbl_kind, 1.74877228802266_dbl_kind, 1.74968288291271_dbl_kind, 1.75047269755938_dbl_kind, 1.75190217393115_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,910) = (/ 1.74564193787389_dbl_kind, 1.74690641467746_dbl_kind, 1.7478156268134_dbl_kind, 1.74860375458482_dbl_kind, 1.75003082516067_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,911) = (/ 1.74378229429154_dbl_kind, 1.74504451815816_dbl_kind, 1.74595235232899_dbl_kind, 1.74673879679957_dbl_kind, 1.7481634685359_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,912) = (/ 1.74192660869433_dbl_kind, 1.74318658577127_dbl_kind, 1.74409304673942_dbl_kind, 1.74487781148523_dbl_kind, 1.74630009130828_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,913) = (/ 1.7400748684698_dbl_kind, 1.74133260487738_dbl_kind, 1.74223769737884_dbl_kind, 1.74302078597752_dbl_kind, 1.74444068078358_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,914) = (/ 1.73822706105905_dbl_kind, 1.73948256289085_dbl_kind, 1.7403862916353_dbl_kind, 1.74116770766601_dbl_kind, 1.74258522432155_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,915) = (/ 1.73638317395654_dbl_kind, 1.73763644727954_dbl_kind, 1.73853881695047_dbl_kind, 1.73931856399383_dbl_kind, 1.7407337093357_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,916) = (/ 1.73454319470977_dbl_kind, 1.73579424556455_dbl_kind, 1.73669526081938_dbl_kind, 1.73747334245738_dbl_kind, 1.73888612329296_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,917) = (/ 1.73270711091896_dbl_kind, 1.73395594531987_dbl_kind, 1.73485561079012_dbl_kind, 1.73563203060606_dbl_kind, 1.73704245371343_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,918) = (/ 1.73087491023687_dbl_kind, 1.73212153417219_dbl_kind, 1.73301985446355_dbl_kind, 1.73379461604197_dbl_kind, 1.7352026881701_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,919) = (/ 1.72904658036842_dbl_kind, 1.73029099980056_dbl_kind, 1.73118797949304_dbl_kind, 1.73196108641965_dbl_kind, 1.73336681428857_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,920) = (/ 1.72722210907048_dbl_kind, 1.72846432993613_dbl_kind, 1.7293599735842_dbl_kind, 1.73013142944581_dbl_kind, 1.73153481974674_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,921) = (/ 1.72540148415158_dbl_kind, 1.7266415123619_dbl_kind, 1.72753582449459_dbl_kind, 1.72830563287905_dbl_kind, 1.72970669227459_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,922) = (/ 1.72358469347164_dbl_kind, 1.72482253491239_dbl_kind, 1.72571552003345_dbl_kind, 1.72648368452955_dbl_kind, 1.72788241965385_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,923) = (/ 1.72177172494168_dbl_kind, 1.72300738547345_dbl_kind, 1.72389904806143_dbl_kind, 1.72466557225888_dbl_kind, 1.72606198971778_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,924) = (/ 1.71996256652359_dbl_kind, 1.72119605198193_dbl_kind, 1.72208639649033_dbl_kind, 1.72285128397964_dbl_kind, 1.72424539035088_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,925) = (/ 1.71815720622985_dbl_kind, 1.71938852242541_dbl_kind, 1.72027755328282_dbl_kind, 1.72104080765527_dbl_kind, 1.72243260948858_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,926) = (/ 1.71635563212323_dbl_kind, 1.71758478484199_dbl_kind, 1.7184725064522_dbl_kind, 1.71923413129973_dbl_kind, 1.72062363511706_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,927) = (/ 1.71455783231659_dbl_kind, 1.71578482731998_dbl_kind, 1.71667124406208_dbl_kind, 1.71743124297727_dbl_kind, 1.7188184552729_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,928) = (/ 1.71276379497257_dbl_kind, 1.71398863799764_dbl_kind, 1.71487375422618_dbl_kind, 1.71563213080214_dbl_kind, 1.71701705804287_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,929) = (/ 1.71097350830336_dbl_kind, 1.71219620506295_dbl_kind, 1.71308002510805_dbl_kind, 1.71383678293837_dbl_kind, 1.71521943156366_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,930) = (/ 1.70918696057042_dbl_kind, 1.71040751675332_dbl_kind, 1.71129004492079_dbl_kind, 1.71204518759946_dbl_kind, 1.71342556402158_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,931) = (/ 1.70740414008422_dbl_kind, 1.70862256135533_dbl_kind, 1.7095038019268_dbl_kind, 1.71025733304817_dbl_kind, 1.71163544365237_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,932) = (/ 1.70562503520405_dbl_kind, 1.70684132720452_dbl_kind, 1.70772128443755_dbl_kind, 1.70847320759621_dbl_kind, 1.70984905874089_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,933) = (/ 1.70384963433766_dbl_kind, 1.70506380268508_dbl_kind, 1.7059424808133_dbl_kind, 1.70669279960405_dbl_kind, 1.70806639762087_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,934) = (/ 1.70207792594109_dbl_kind, 1.70328997622964_dbl_kind, 1.70416737946285_dbl_kind, 1.70491609748063_dbl_kind, 1.7062874486747_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,935) = (/ 1.7003098985184_dbl_kind, 1.70151983631897_dbl_kind, 1.7023959688433_dbl_kind, 1.70314308968309_dbl_kind, 1.70451220033311_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,936) = (/ 1.69854554062142_dbl_kind, 1.69975337148181_dbl_kind, 1.70062823745979_dbl_kind, 1.70137376471659_dbl_kind, 1.70274064107498_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,937) = (/ 1.69678484084948_dbl_kind, 1.69799057029454_dbl_kind, 1.69886417386526_dbl_kind, 1.69960811113398_dbl_kind, 1.70097275942706_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,938) = (/ 1.69502778784921_dbl_kind, 1.69623142138098_dbl_kind, 1.69710376666019_dbl_kind, 1.6978461175356_dbl_kind, 1.69920854396373_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,939) = (/ 1.69327437031426_dbl_kind, 1.69447591341213_dbl_kind, 1.69534700449238_dbl_kind, 1.69608777256904_dbl_kind, 1.69744798330676_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,940) = (/ 1.69152457698507_dbl_kind, 1.69272403510593_dbl_kind, 1.69359387605668_dbl_kind, 1.69433306492886_dbl_kind, 1.69569106612504_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,941) = (/ 1.68977839664863_dbl_kind, 1.69097577522704_dbl_kind, 1.69184437009476_dbl_kind, 1.6925819833564_dbl_kind, 1.69393778113439_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,942) = (/ 1.68803581813825_dbl_kind, 1.68923112258654_dbl_kind, 1.69009847539488_dbl_kind, 1.6908345166395_dbl_kind, 1.69218811709726_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,943) = (/ 1.68629683033331_dbl_kind, 1.68749006604178_dbl_kind, 1.68835618079162_dbl_kind, 1.68909065361225_dbl_kind, 1.69044206282252_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,944) = (/ 1.68456142215902_dbl_kind, 1.68575259449605_dbl_kind, 1.68661747516568_dbl_kind, 1.68735038315482_dbl_kind, 1.68869960716524_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,945) = (/ 1.68282958258619_dbl_kind, 1.68401869689841_dbl_kind, 1.68488234744362_dbl_kind, 1.68561369419314_dbl_kind, 1.6869607390264_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,946) = (/ 1.68110130063102_dbl_kind, 1.68228836224343_dbl_kind, 1.68315078659765_dbl_kind, 1.68388057569873_dbl_kind, 1.68522544735272_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,947) = (/ 1.67937656535482_dbl_kind, 1.68056157957097_dbl_kind, 1.68142278164534_dbl_kind, 1.68215101668842_dbl_kind, 1.68349372113635_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,948) = (/ 1.67765536586383_dbl_kind, 1.67883833796592_dbl_kind, 1.67969832164946_dbl_kind, 1.68042500622418_dbl_kind, 1.68176554941474_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,949) = (/ 1.67593769130897_dbl_kind, 1.67711862655802_dbl_kind, 1.67797739571771_dbl_kind, 1.6787025334128_dbl_kind, 1.68004092127029_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,950) = (/ 1.67422353088558_dbl_kind, 1.67540243452156_dbl_kind, 1.67625999300249_dbl_kind, 1.67698358740576_dbl_kind, 1.67831982583022_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,951) = (/ 1.67251287383326_dbl_kind, 1.67368975107524_dbl_kind, 1.6745461027007_dbl_kind, 1.67526815739892_dbl_kind, 1.67660225226629_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,952) = (/ 1.67080570943559_dbl_kind, 1.67198056548186_dbl_kind, 1.67283571405348_dbl_kind, 1.67355623263236_dbl_kind, 1.67488818979457_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,953) = (/ 1.66910202701994_dbl_kind, 1.67027486704817_dbl_kind, 1.67112881634599_dbl_kind, 1.6718478023901_dbl_kind, 1.67317762767526_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,954) = (/ 1.66740181595722_dbl_kind, 1.66857264512457_dbl_kind, 1.66942539890723_dbl_kind, 1.67014285599992_dbl_kind, 1.67147055521242_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,955) = (/ 1.66570506566169_dbl_kind, 1.66687388910498_dbl_kind, 1.66772545110975_dbl_kind, 1.66844138283311_dbl_kind, 1.66976696175376_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,956) = (/ 1.66401176559071_dbl_kind, 1.66517858842653_dbl_kind, 1.66602896236949_dbl_kind, 1.66674337230425_dbl_kind, 1.66806683669043_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,957) = (/ 1.66232190524456_dbl_kind, 1.6634867325694_dbl_kind, 1.66433592214553_dbl_kind, 1.66504881387104_dbl_kind, 1.6663701694568_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,958) = (/ 1.66063547416617_dbl_kind, 1.66179831105658_dbl_kind, 1.66264631993987_dbl_kind, 1.66335769703401_dbl_kind, 1.66467694953022_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,959) = (/ 1.65895246194095_dbl_kind, 1.66011331345364_dbl_kind, 1.66096014529722_dbl_kind, 1.66167001133634_dbl_kind, 1.66298716643081_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,960) = (/ 1.65727285819658_dbl_kind, 1.65843172936857_dbl_kind, 1.65927738780479_dbl_kind, 1.65998574636365_dbl_kind, 1.66130080972128_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,961) = (/ 1.65559665260274_dbl_kind, 1.6567535484515_dbl_kind, 1.65759803709208_dbl_kind, 1.65830489174379_dbl_kind, 1.65961786900668_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,962) = (/ 1.65392383487098_dbl_kind, 1.65507876039452_dbl_kind, 1.65592208283065_dbl_kind, 1.65662743714659_dbl_kind, 1.65793833393417_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,963) = (/ 1.65225439475443_dbl_kind, 1.65340735493148_dbl_kind, 1.65424951473393_dbl_kind, 1.6549533722837_dbl_kind, 1.65626219419285_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,964) = (/ 1.65058832204765_dbl_kind, 1.65173932183774_dbl_kind, 1.65258032255696_dbl_kind, 1.65328268690835_dbl_kind, 1.65458943951353_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,965) = (/ 1.64892560658639_dbl_kind, 1.65007465093001_dbl_kind, 1.65091449609628_dbl_kind, 1.65161537081514_dbl_kind, 1.65292005966854_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,966) = (/ 1.64726623824741_dbl_kind, 1.64841333206612_dbl_kind, 1.6492520251896_dbl_kind, 1.64995141383984_dbl_kind, 1.65125404447146_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,967) = (/ 1.64561020694825_dbl_kind, 1.6467553551448_dbl_kind, 1.64759289971571_dbl_kind, 1.64829080585919_dbl_kind, 1.64959138377699_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,968) = (/ 1.64395750264702_dbl_kind, 1.64510071010549_dbl_kind, 1.64593710959417_dbl_kind, 1.64663353679069_dbl_kind, 1.64793206748072_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,969) = (/ 1.64230811534225_dbl_kind, 1.64344938692816_dbl_kind, 1.64428464478519_dbl_kind, 1.64497959659239_dbl_kind, 1.64627608551888_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,970) = (/ 1.64066203507262_dbl_kind, 1.64180137563306_dbl_kind, 1.64263549528938_dbl_kind, 1.64332897526269_dbl_kind, 1.64462342786822_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,971) = (/ 1.63901925191681_dbl_kind, 1.64015666628055_dbl_kind, 1.64098965114756_dbl_kind, 1.64168166284017_dbl_kind, 1.64297408454572_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,972) = (/ 1.63737975599326_dbl_kind, 1.63851524897089_dbl_kind, 1.63934710244058_dbl_kind, 1.64003764940331_dbl_kind, 1.64132804560846_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,973) = (/ 1.63574353746003_dbl_kind, 1.63687711384405_dbl_kind, 1.63770783928908_dbl_kind, 1.63839692507041_dbl_kind, 1.63968530115338_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,974) = (/ 1.63411058651454_dbl_kind, 1.6352422510795_dbl_kind, 1.63607185185332_dbl_kind, 1.63675947999926_dbl_kind, 1.63804584131711_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,975) = (/ 1.63248089339341_dbl_kind, 1.63361065089603_dbl_kind, 1.634439130333_dbl_kind, 1.63512530438707_dbl_kind, 1.63640965627572_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,976) = (/ 1.63085444837227_dbl_kind, 1.63198230355154_dbl_kind, 1.63280966496702_dbl_kind, 1.63349438847016_dbl_kind, 1.63477673624461_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,977) = (/ 1.62923124176554_dbl_kind, 1.63035719934285_dbl_kind, 1.6311834460333_dbl_kind, 1.63186672252387_dbl_kind, 1.63314707147823_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,978) = (/ 1.62761126392628_dbl_kind, 1.62873532860551_dbl_kind, 1.62956046384863_dbl_kind, 1.63024229686229_dbl_kind, 1.63152065226993_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,979) = (/ 1.62599450524593_dbl_kind, 1.62711668171361_dbl_kind, 1.62794070876842_dbl_kind, 1.62862110183809_dbl_kind, 1.62989746895179_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,980) = (/ 1.62438095615421_dbl_kind, 1.62550124907959_dbl_kind, 1.62632417118653_dbl_kind, 1.62700312784237_dbl_kind, 1.62827751189435_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,981) = (/ 1.62277060711885_dbl_kind, 1.62388902115404_dbl_kind, 1.62471084153509_dbl_kind, 1.6253883653044_dbl_kind, 1.62666077150651_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,982) = (/ 1.62116344864546_dbl_kind, 1.62227998842552_dbl_kind, 1.62310071028432_dbl_kind, 1.6237768046915_dbl_kind, 1.62504723823529_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,983) = (/ 1.61955947127732_dbl_kind, 1.62067414142039_dbl_kind, 1.6214937679423_dbl_kind, 1.6221684365088_dbl_kind, 1.62343690256563_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,984) = (/ 1.61795866559519_dbl_kind, 1.61907147070257_dbl_kind, 1.61989000505482_dbl_kind, 1.62056325129907_dbl_kind, 1.62182975502026_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,985) = (/ 1.61636102221712_dbl_kind, 1.61747196687342_dbl_kind, 1.61828941220519_dbl_kind, 1.61896123964258_dbl_kind, 1.62022578615947_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,986) = (/ 1.61476653179831_dbl_kind, 1.61587562057153_dbl_kind, 1.61669198001406_dbl_kind, 1.61736239215682_dbl_kind, 1.61862498658091_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,987) = (/ 1.61317518503087_dbl_kind, 1.61428242247252_dbl_kind, 1.61509769913921_dbl_kind, 1.61576669949643_dbl_kind, 1.61702734691947_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,988) = (/ 1.61158697264368_dbl_kind, 1.61269236328888_dbl_kind, 1.6135065602754_dbl_kind, 1.61417415235293_dbl_kind, 1.61543285784703_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,989) = (/ 1.6100018854022_dbl_kind, 1.61110543376978_dbl_kind, 1.61191855415416_dbl_kind, 1.61258474145457_dbl_kind, 1.61384151007234_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,990) = (/ 1.60841991410829_dbl_kind, 1.60952162470091_dbl_kind, 1.61033367154364_dbl_kind, 1.61099845756617_dbl_kind, 1.61225329434078_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,991) = (/ 1.60684104960001_dbl_kind, 1.60794092690425_dbl_kind, 1.60875190324841_dbl_kind, 1.60941529148892_dbl_kind, 1.61066820143422_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,992) = (/ 1.6052652827515_dbl_kind, 1.60636333123796_dbl_kind, 1.60717324010929_dbl_kind, 1.6078352340602_dbl_kind, 1.60908622217083_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,993) = (/ 1.60369260447273_dbl_kind, 1.60478882859617_dbl_kind, 1.60559767300318_dbl_kind, 1.60625827615342_dbl_kind, 1.60750734740492_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,994) = (/ 1.60212300570939_dbl_kind, 1.60321740990878_dbl_kind, 1.60402519284286_dbl_kind, 1.60468440867782_dbl_kind, 1.60593156802673_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,995) = (/ 1.60055647744269_dbl_kind, 1.60164906614134_dbl_kind, 1.60245579057685_dbl_kind, 1.60311362257832_dbl_kind, 1.60435887496227_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,996) = (/ 1.59899301068918_dbl_kind, 1.60008378829484_dbl_kind, 1.60088945718922_dbl_kind, 1.60154590883536_dbl_kind, 1.60278925917317_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,997) = (/ 1.59743259650059_dbl_kind, 1.59852156740554_dbl_kind, 1.59932618369938_dbl_kind, 1.59998125846466_dbl_kind, 1.60122271165648_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,998) = (/ 1.59587522596366_dbl_kind, 1.5969623945448_dbl_kind, 1.59776596116199_dbl_kind, 1.59841966251714_dbl_kind, 1.59965922344449_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,999) = (/ 1.59432089019997_dbl_kind, 1.59540626081895_dbl_kind, 1.59620878066673_dbl_kind, 1.59686111207867_dbl_kind, 1.5980987856046_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1000) = (/ 1.59276958036575_dbl_kind, 1.59385315736904_dbl_kind, 1.59465463333812_dbl_kind, 1.59530559826995_dbl_kind, 1.5965413892391_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1001) = (/ 1.59122128765176_dbl_kind, 1.59230307537076_dbl_kind, 1.5931035103354_dbl_kind, 1.59375311224634_dbl_kind, 1.59498702548504_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1002) = (/ 1.58967600328308_dbl_kind, 1.59075600603419_dbl_kind, 1.59155540285234_dbl_kind, 1.59220364519766_dbl_kind, 1.59343568551405_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1003) = (/ 1.58813371851895_dbl_kind, 1.5892119406037_dbl_kind, 1.59001030211705_dbl_kind, 1.59065718834804_dbl_kind, 1.59188736053215_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1004) = (/ 1.58659442465264_dbl_kind, 1.58767087035776_dbl_kind, 1.58846819939187_dbl_kind, 1.58911373295578_dbl_kind, 1.59034204177964_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1005) = (/ 1.58505811301124_dbl_kind, 1.58613278660878_dbl_kind, 1.58692908597313_dbl_kind, 1.58757327031316_dbl_kind, 1.58879972053088_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1006) = (/ 1.58352477495553_dbl_kind, 1.5845976807029_dbl_kind, 1.58539295319105_dbl_kind, 1.58603579174626_dbl_kind, 1.58726038809413_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1007) = (/ 1.5819944018798_dbl_kind, 1.58306554401993_dbl_kind, 1.58385979240957_dbl_kind, 1.58450128861483_dbl_kind, 1.58572403581144_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1008) = (/ 1.58046698521171_dbl_kind, 1.58153636797308_dbl_kind, 1.58232959502613_dbl_kind, 1.58296975231213_dbl_kind, 1.58419065505841_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1009) = (/ 1.57894251641209_dbl_kind, 1.58001014400887_dbl_kind, 1.58080235247159_dbl_kind, 1.58144117426475_dbl_kind, 1.58266023724411_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1010) = (/ 1.57742098697485_dbl_kind, 1.57848686360695_dbl_kind, 1.57927805621002_dbl_kind, 1.57991554593243_dbl_kind, 1.58113277381086_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1011) = (/ 1.57590238842673_dbl_kind, 1.57696651827992_dbl_kind, 1.57775669773854_dbl_kind, 1.57839285880797_dbl_kind, 1.57960825623408_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1012) = (/ 1.57438671232724_dbl_kind, 1.5754490995732_dbl_kind, 1.57623826858719_dbl_kind, 1.57687310441701_dbl_kind, 1.57808667602217_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1013) = (/ 1.57287395026843_dbl_kind, 1.57393459906488_dbl_kind, 1.57472276031874_dbl_kind, 1.57535627431789_dbl_kind, 1.57656802471629_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1014) = (/ 1.57136409387475_dbl_kind, 1.57242300836553_dbl_kind, 1.57321016452859_dbl_kind, 1.5738423601015_dbl_kind, 1.57505229389027_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1015) = (/ 1.56985713480295_dbl_kind, 1.57091431911807_dbl_kind, 1.57170047284452_dbl_kind, 1.57233135339112_dbl_kind, 1.5735394751504_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1016) = (/ 1.56835306474183_dbl_kind, 1.56940852299761_dbl_kind, 1.57019367692664_dbl_kind, 1.57082324584229_dbl_kind, 1.57202956013532_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1017) = (/ 1.56685187541219_dbl_kind, 1.56790561171128_dbl_kind, 1.56868976846715_dbl_kind, 1.56931802914261_dbl_kind, 1.57052254051582_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1018) = (/ 1.56535355856661_dbl_kind, 1.56640557699813_dbl_kind, 1.56718873919026_dbl_kind, 1.56781569501162_dbl_kind, 1.56901840799474_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1019) = (/ 1.5638581059893_dbl_kind, 1.5649084106289_dbl_kind, 1.56569058085196_dbl_kind, 1.56631623520064_dbl_kind, 1.56751715430674_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1020) = (/ 1.562365509496_dbl_kind, 1.56341410440594_dbl_kind, 1.56419528523995_dbl_kind, 1.56481964149264_dbl_kind, 1.56601877121825_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1021) = (/ 1.56087576093378_dbl_kind, 1.56192265016303_dbl_kind, 1.56270284417343_dbl_kind, 1.56332590570203_dbl_kind, 1.56452325052725_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1022) = (/ 1.55938885218093_dbl_kind, 1.56043403976521_dbl_kind, 1.56121324950299_dbl_kind, 1.56183501967461_dbl_kind, 1.56303058406313_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1023) = (/ 1.55790477514676_dbl_kind, 1.55894826510869_dbl_kind, 1.55972649311042_dbl_kind, 1.5603469752873_dbl_kind, 1.56154076368655_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1024) = (/ 1.55642352177152_dbl_kind, 1.55746531812063_dbl_kind, 1.5582425669086_dbl_kind, 1.55886176444811_dbl_kind, 1.5600537812893_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1025) = (/ 1.55494508402621_dbl_kind, 1.55598519075906_dbl_kind, 1.55676146284135_dbl_kind, 1.55737937909591_dbl_kind, 1.55856962879415_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1026) = (/ 1.55346945391245_dbl_kind, 1.5545078750127_dbl_kind, 1.55528317288324_dbl_kind, 1.55589981120033_dbl_kind, 1.55708829815467_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1027) = (/ 1.55199662346232_dbl_kind, 1.55303336290081_dbl_kind, 1.55380768903951_dbl_kind, 1.55442305276159_dbl_kind, 1.55560978135514_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1028) = (/ 1.55052658473825_dbl_kind, 1.55156164647306_dbl_kind, 1.55233500334589_dbl_kind, 1.55294909581037_dbl_kind, 1.55413407041038_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1029) = (/ 1.54905932983285_dbl_kind, 1.5500927178094_dbl_kind, 1.55086510786845_dbl_kind, 1.55147793240767_dbl_kind, 1.55266115736559_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1030) = (/ 1.54759485086877_dbl_kind, 1.54862656901987_dbl_kind, 1.54939799470347_dbl_kind, 1.55000955464465_dbl_kind, 1.55119103429624_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1031) = (/ 1.54613313999856_dbl_kind, 1.54716319224453_dbl_kind, 1.5479336559773_dbl_kind, 1.54854395464251_dbl_kind, 1.54972369330789_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1032) = (/ 1.54467418940456_dbl_kind, 1.54570257965325_dbl_kind, 1.5464720838462_dbl_kind, 1.54708112455234_dbl_kind, 1.54825912653608_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1033) = (/ 1.54321799129869_dbl_kind, 1.54424472344562_dbl_kind, 1.54501327049625_dbl_kind, 1.54562105655497_dbl_kind, 1.54679732614619_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1034) = (/ 1.54176453792241_dbl_kind, 1.54278961585077_dbl_kind, 1.54355720814315_dbl_kind, 1.54416374286084_dbl_kind, 1.54533828433328_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1035) = (/ 1.5403138215465_dbl_kind, 1.54133724912726_dbl_kind, 1.54210388903209_dbl_kind, 1.54270917570988_dbl_kind, 1.54388199332195_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1036) = (/ 1.53886583447095_dbl_kind, 1.53988761556295_dbl_kind, 1.54065330543767_dbl_kind, 1.54125734737133_dbl_kind, 1.54242844536622_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1037) = (/ 1.53742056902484_dbl_kind, 1.53844070747484_dbl_kind, 1.5392054496637_dbl_kind, 1.53980825014364_dbl_kind, 1.54097763274941_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1038) = (/ 1.53597801756618_dbl_kind, 1.53699651720892_dbl_kind, 1.53776031404307_dbl_kind, 1.53836187635433_dbl_kind, 1.53952954778394_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1039) = (/ 1.53453817248179_dbl_kind, 1.5355550371401_dbl_kind, 1.53631789093767_dbl_kind, 1.53691821835984_dbl_kind, 1.53808418281126_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1040) = (/ 1.53310102618718_dbl_kind, 1.534116259672_dbl_kind, 1.53487817273817_dbl_kind, 1.5354772685454_dbl_kind, 1.53664153020168_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1041) = (/ 1.53166657112637_dbl_kind, 1.53268017723686_dbl_kind, 1.53344115186397_dbl_kind, 1.53403901932489_dbl_kind, 1.53520158235424_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1042) = (/ 1.53023479977181_dbl_kind, 1.5312467822954_dbl_kind, 1.532006820763_dbl_kind, 1.53260346314073_dbl_kind, 1.5337643316966_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1043) = (/ 1.52880570462421_dbl_kind, 1.52981606733667_dbl_kind, 1.53057517191163_dbl_kind, 1.53117059246374_dbl_kind, 1.53232977068487_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1044) = (/ 1.52737927821243_dbl_kind, 1.52838802487796_dbl_kind, 1.52914619781453_dbl_kind, 1.52974039979299_dbl_kind, 1.53089789180349_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1045) = (/ 1.52595551309337_dbl_kind, 1.52696264746461_dbl_kind, 1.5277198910045_dbl_kind, 1.52831287765568_dbl_kind, 1.52946868756513_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1046) = (/ 1.52453440185177_dbl_kind, 1.52553992766994_dbl_kind, 1.52629624404242_dbl_kind, 1.52688801860702_dbl_kind, 1.52804215051053_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1047) = (/ 1.52311593710017_dbl_kind, 1.52411985809508_dbl_kind, 1.52487524951703_dbl_kind, 1.52546581523008_dbl_kind, 1.52661827320835_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1048) = (/ 1.5217001114787_dbl_kind, 1.52270243136886_dbl_kind, 1.52345690004487_dbl_kind, 1.5240462601357_dbl_kind, 1.5251970482551_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1049) = (/ 1.52028691765503_dbl_kind, 1.52128764014766_dbl_kind, 1.52204118827012_dbl_kind, 1.52262934596231_dbl_kind, 1.52377846827495_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1050) = (/ 1.51887634832418_dbl_kind, 1.51987547711532_dbl_kind, 1.52062810686446_dbl_kind, 1.52121506537583_dbl_kind, 1.52236252591966_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1051) = (/ 1.51746839620842_dbl_kind, 1.518465934983_dbl_kind, 1.51921764852699_dbl_kind, 1.51980341106958_dbl_kind, 1.5209492138684_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1052) = (/ 1.51606305405716_dbl_kind, 1.51705900648902_dbl_kind, 1.51780980598406_dbl_kind, 1.51839437576406_dbl_kind, 1.51953852482765_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1053) = (/ 1.5146603146468_dbl_kind, 1.51565468439877_dbl_kind, 1.51640457198916_dbl_kind, 1.51698795220694_dbl_kind, 1.51813045153109_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1054) = (/ 1.51326017078062_dbl_kind, 1.51425296150461_dbl_kind, 1.51500193932279_dbl_kind, 1.51558413317283_dbl_kind, 1.51672498673945_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1055) = (/ 1.51186261528865_dbl_kind, 1.51285383062568_dbl_kind, 1.51360190079237_dbl_kind, 1.51418291146323_dbl_kind, 1.51532212324038_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1056) = (/ 1.51046764102755_dbl_kind, 1.51145728460782_dbl_kind, 1.51220444923205_dbl_kind, 1.51278427990639_dbl_kind, 1.51392185384835_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1057) = (/ 1.5090752408805_dbl_kind, 1.51006331632345_dbl_kind, 1.51080957750264_dbl_kind, 1.51138823135715_dbl_kind, 1.51252417140452_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1058) = (/ 1.50768540775704_dbl_kind, 1.50867191867144_dbl_kind, 1.5094172784915_dbl_kind, 1.50999475869687_dbl_kind, 1.51112906877663_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1059) = (/ 1.50629813459302_dbl_kind, 1.50728308457697_dbl_kind, 1.50802754511235_dbl_kind, 1.50860385483329_dbl_kind, 1.50973653885882_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1060) = (/ 1.50491341435041_dbl_kind, 1.50589680699144_dbl_kind, 1.50664037030522_dbl_kind, 1.5072155127004_dbl_kind, 1.50834657457161_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1061) = (/ 1.50353124001721_dbl_kind, 1.50451307889234_dbl_kind, 1.50525574703629_dbl_kind, 1.50582972525832_dbl_kind, 1.50695916886168_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1062) = (/ 1.50215160460734_dbl_kind, 1.50313189328312_dbl_kind, 1.5038736682978_dbl_kind, 1.5044464854932_dbl_kind, 1.50557431470182_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1063) = (/ 1.50077450116052_dbl_kind, 1.5017532431931_dbl_kind, 1.50249412710789_dbl_kind, 1.50306578641709_dbl_kind, 1.50419200509078_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1064) = (/ 1.49939992274213_dbl_kind, 1.50037712167731_dbl_kind, 1.50111711651052_dbl_kind, 1.50168762106781_dbl_kind, 1.50281223305316_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1065) = (/ 1.49802786244311_dbl_kind, 1.49900352181641_dbl_kind, 1.49974262957533_dbl_kind, 1.50031198250887_dbl_kind, 1.50143499163927_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1066) = (/ 1.49665831337986_dbl_kind, 1.49763243671657_dbl_kind, 1.49837065939757_dbl_kind, 1.49893886382931_dbl_kind, 1.50006027392507_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1067) = (/ 1.4952912686941_dbl_kind, 1.49626385950931_dbl_kind, 1.49700119909788_dbl_kind, 1.4975682581436_dbl_kind, 1.49868807301199_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1068) = (/ 1.49392672155276_dbl_kind, 1.49489778335146_dbl_kind, 1.49563424182231_dbl_kind, 1.49620015859156_dbl_kind, 1.49731838202686_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1069) = (/ 1.49256466514788_dbl_kind, 1.49353420142499_dbl_kind, 1.49426978074209_dbl_kind, 1.49483455833818_dbl_kind, 1.49595119412176_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1070) = (/ 1.49120509269648_dbl_kind, 1.4921731069369_dbl_kind, 1.49290780905357_dbl_kind, 1.49347145057356_dbl_kind, 1.49458650247394_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1071) = (/ 1.48984799744046_dbl_kind, 1.49081449311913_dbl_kind, 1.49154831997813_dbl_kind, 1.49211082851277_dbl_kind, 1.49322430028569_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1072) = (/ 1.48849337264648_dbl_kind, 1.48945835322844_dbl_kind, 1.490191306762_dbl_kind, 1.49075268539576_dbl_kind, 1.49186458078421_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1073) = (/ 1.48714121160585_dbl_kind, 1.4881046805463_dbl_kind, 1.48883676267619_dbl_kind, 1.48939701448722_dbl_kind, 1.49050733722154_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1074) = (/ 1.48579150763443_dbl_kind, 1.48675346837874_dbl_kind, 1.4874846810164_dbl_kind, 1.48804380907648_dbl_kind, 1.4891525628744_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1075) = (/ 1.4844442540725_dbl_kind, 1.48540471005631_dbl_kind, 1.48613505510285_dbl_kind, 1.48669306247741_dbl_kind, 1.48780025104412_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1076) = (/ 1.48309944428466_dbl_kind, 1.48405839893392_dbl_kind, 1.48478787828021_dbl_kind, 1.48534476802831_dbl_kind, 1.4864503950565_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1077) = (/ 1.48175707165973_dbl_kind, 1.48271452839074_dbl_kind, 1.48344314391748_dbl_kind, 1.48399891909177_dbl_kind, 1.48510298826173_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1078) = (/ 1.48041712961063_dbl_kind, 1.48137309183009_dbl_kind, 1.4821008454079_dbl_kind, 1.48265550905459_dbl_kind, 1.48375802403423_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1079) = (/ 1.47907961157428_dbl_kind, 1.48003408267934_dbl_kind, 1.48076097616881_dbl_kind, 1.48131453132769_dbl_kind, 1.48241549577261_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1080) = (/ 1.47774451101147_dbl_kind, 1.47869749438981_dbl_kind, 1.47942352964154_dbl_kind, 1.47997597934595_dbl_kind, 1.48107539689951_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1081) = (/ 1.4764118214068_dbl_kind, 1.47736332043663_dbl_kind, 1.47808849929134_dbl_kind, 1.47863984656814_dbl_kind, 1.47973772086151_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1082) = (/ 1.47508153626853_dbl_kind, 1.47603155431867_dbl_kind, 1.47675587860724_dbl_kind, 1.47730612647679_dbl_kind, 1.47840246112902_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1083) = (/ 1.47375364912848_dbl_kind, 1.47470218955842_dbl_kind, 1.47542566110197_dbl_kind, 1.47597481257813_dbl_kind, 1.47706961119617_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1084) = (/ 1.47242815354196_dbl_kind, 1.47337521970187_dbl_kind, 1.47409784031182_dbl_kind, 1.47464589840192_dbl_kind, 1.47573916458073_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1085) = (/ 1.47110504308762_dbl_kind, 1.47205063831843_dbl_kind, 1.47277240979656_dbl_kind, 1.4733193775014_dbl_kind, 1.47441111482396_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1086) = (/ 1.46978431136739_dbl_kind, 1.47072843900081_dbl_kind, 1.47144936313934_dbl_kind, 1.47199524345315_dbl_kind, 1.47308545549056_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1087) = (/ 1.46846595200632_dbl_kind, 1.46940861536492_dbl_kind, 1.47012869394655_dbl_kind, 1.470673489857_dbl_kind, 1.47176218016849_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1088) = (/ 1.46714995865254_dbl_kind, 1.46809116104977_dbl_kind, 1.46881039584778_dbl_kind, 1.46935411033594_dbl_kind, 1.47044128246895_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1089) = (/ 1.46583632497712_dbl_kind, 1.46677606971737_dbl_kind, 1.46749446249564_dbl_kind, 1.46803709853599_dbl_kind, 1.46912275602624_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1090) = (/ 1.46452504467397_dbl_kind, 1.46546333505262_dbl_kind, 1.46618088756572_dbl_kind, 1.46672244812612_dbl_kind, 1.46780659449765_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1091) = (/ 1.46321611145976_dbl_kind, 1.4641529507632_dbl_kind, 1.46486966475647_dbl_kind, 1.46541015279813_dbl_kind, 1.46649279156334_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1092) = (/ 1.46190951907381_dbl_kind, 1.46284491057949_dbl_kind, 1.46356078778907_dbl_kind, 1.46410020626658_dbl_kind, 1.4651813409263_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1093) = (/ 1.46060526127795_dbl_kind, 1.46153920825448_dbl_kind, 1.46225425040737_dbl_kind, 1.46279260226866_dbl_kind, 1.4638722363122_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1094) = (/ 1.45930333185651_dbl_kind, 1.46023583756361_dbl_kind, 1.46095004637777_dbl_kind, 1.46148733456409_dbl_kind, 1.4625654714693_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1095) = (/ 1.45800372461612_dbl_kind, 1.45893479230474_dbl_kind, 1.45964816948913_dbl_kind, 1.46018439693503_dbl_kind, 1.46126104016836_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1096) = (/ 1.4567064333857_dbl_kind, 1.45763606629802_dbl_kind, 1.45834861355264_dbl_kind, 1.458883783186_dbl_kind, 1.45995893620253_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1097) = (/ 1.45541145201628_dbl_kind, 1.45633965338579_dbl_kind, 1.45705137240178_dbl_kind, 1.45758548714375_dbl_kind, 1.45865915338726_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1098) = (/ 1.45411877438097_dbl_kind, 1.45504554743248_dbl_kind, 1.45575643989215_dbl_kind, 1.45628950265718_dbl_kind, 1.45736168556018_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1099) = (/ 1.45282839437484_dbl_kind, 1.45375374232453_dbl_kind, 1.45446380990145_dbl_kind, 1.45499582359722_dbl_kind, 1.45606652658105_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1100) = (/ 1.45154030591481_dbl_kind, 1.45246423197029_dbl_kind, 1.45317347632931_dbl_kind, 1.45370444385679_dbl_kind, 1.4547736703316_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1101) = (/ 1.45025450293957_dbl_kind, 1.45117701029989_dbl_kind, 1.45188543309724_dbl_kind, 1.45241535735063_dbl_kind, 1.45348311071551_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1102) = (/ 1.44897097940948_dbl_kind, 1.4498920712652_dbl_kind, 1.45059967414853_dbl_kind, 1.45112855801525_dbl_kind, 1.45219484165822_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1103) = (/ 1.44768972930647_dbl_kind, 1.44860940883968_dbl_kind, 1.44931619344812_dbl_kind, 1.44984403980883_dbl_kind, 1.45090885710692_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1104) = (/ 1.44641074663396_dbl_kind, 1.44732901701834_dbl_kind, 1.44803498498256_dbl_kind, 1.44856179671112_dbl_kind, 1.44962515103042_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1105) = (/ 1.44513402541675_dbl_kind, 1.44605088981759_dbl_kind, 1.44675604275986_dbl_kind, 1.44728182272334_dbl_kind, 1.44834371741904_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1106) = (/ 1.44385955970094_dbl_kind, 1.4447750212752_dbl_kind, 1.44547936080944_dbl_kind, 1.44600411186809_dbl_kind, 1.44706455028453_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1107) = (/ 1.44258734355382_dbl_kind, 1.44350140545015_dbl_kind, 1.44420493318201_dbl_kind, 1.44472865818928_dbl_kind, 1.44578764365999_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1108) = (/ 1.44131737106381_dbl_kind, 1.4422300364226_dbl_kind, 1.44293275394949_dbl_kind, 1.44345545575198_dbl_kind, 1.44451299159976_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1109) = (/ 1.44004963634033_dbl_kind, 1.44096090829374_dbl_kind, 1.44166281720489_dbl_kind, 1.44218449864239_dbl_kind, 1.44324058817935_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1110) = (/ 1.43878413351373_dbl_kind, 1.43969401518573_dbl_kind, 1.44039511706229_dbl_kind, 1.44091578096773_dbl_kind, 1.44197042749529_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1111) = (/ 1.43752085673519_dbl_kind, 1.43842935124162_dbl_kind, 1.43912964765665_dbl_kind, 1.43964929685611_dbl_kind, 1.44070250366513_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1112) = (/ 1.43625980017665_dbl_kind, 1.43716691062522_dbl_kind, 1.43786640314379_dbl_kind, 1.43838504045649_dbl_kind, 1.43943681082725_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1113) = (/ 1.43500095803068_dbl_kind, 1.43590668752105_dbl_kind, 1.43660537770028_dbl_kind, 1.43712300593857_dbl_kind, 1.43817334314085_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1114) = (/ 1.43374432451045_dbl_kind, 1.43464867613421_dbl_kind, 1.43534656552334_dbl_kind, 1.43586318749271_dbl_kind, 1.43691209478583_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1115) = (/ 1.43248989384956_dbl_kind, 1.43339287069034_dbl_kind, 1.43408996083077_dbl_kind, 1.4346055793298_dbl_kind, 1.43565305996267_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1116) = (/ 1.43123766030205_dbl_kind, 1.43213926543549_dbl_kind, 1.43283555786084_dbl_kind, 1.43335017568124_dbl_kind, 1.43439623289238_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1117) = (/ 1.42998761814223_dbl_kind, 1.43088785463604_dbl_kind, 1.4315833508722_dbl_kind, 1.43209697079878_dbl_kind, 1.43314160781643_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1118) = (/ 1.42873976166462_dbl_kind, 1.42963863257863_dbl_kind, 1.43033333414383_dbl_kind, 1.4308459589545_dbl_kind, 1.43188917899658_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1119) = (/ 1.42749408518387_dbl_kind, 1.42839159357005_dbl_kind, 1.4290855019749_dbl_kind, 1.42959713444065_dbl_kind, 1.43063894071489_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1120) = (/ 1.42625058303468_dbl_kind, 1.42714673193718_dbl_kind, 1.42783984868472_dbl_kind, 1.42835049156963_dbl_kind, 1.42939088727356_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1121) = (/ 1.42500924957169_dbl_kind, 1.42590404202687_dbl_kind, 1.42659636861264_dbl_kind, 1.42710602467387_dbl_kind, 1.42814501299488_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1122) = (/ 1.4237700791694_dbl_kind, 1.42466351820588_dbl_kind, 1.42535505611794_dbl_kind, 1.42586372810573_dbl_kind, 1.42690131222114_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1123) = (/ 1.42253306622213_dbl_kind, 1.42342515486079_dbl_kind, 1.42411590557982_dbl_kind, 1.42462359623748_dbl_kind, 1.42565977931452_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1124) = (/ 1.42129820514384_dbl_kind, 1.42218894639789_dbl_kind, 1.42287891139721_dbl_kind, 1.4233856234611_dbl_kind, 1.42442040865703_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1125) = (/ 1.42006549036815_dbl_kind, 1.42095488724314_dbl_kind, 1.42164406798876_dbl_kind, 1.42214980418832_dbl_kind, 1.42318319465043_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1126) = (/ 1.41883491634818_dbl_kind, 1.41972297184205_dbl_kind, 1.42041136979275_dbl_kind, 1.42091613285046_dbl_kind, 1.42194813171612_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1127) = (/ 1.41760647755651_dbl_kind, 1.41849319465961_dbl_kind, 1.41918081126695_dbl_kind, 1.41968460389836_dbl_kind, 1.42071521429507_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1128) = (/ 1.41638016848506_dbl_kind, 1.41726555018019_dbl_kind, 1.41795238688861_dbl_kind, 1.4184552118023_dbl_kind, 1.41948443684774_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1129) = (/ 1.41515598364507_dbl_kind, 1.41604003290751_dbl_kind, 1.41672609115433_dbl_kind, 1.41722795105193_dbl_kind, 1.41825579385398_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1130) = (/ 1.41393391756693_dbl_kind, 1.41481663736447_dbl_kind, 1.41550191857999_dbl_kind, 1.41600281615616_dbl_kind, 1.41702927981297_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1131) = (/ 1.41271396480018_dbl_kind, 1.41359535809315_dbl_kind, 1.41427986370066_dbl_kind, 1.41477980164312_dbl_kind, 1.41580488924312_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1132) = (/ 1.41149611991338_dbl_kind, 1.41237618965468_dbl_kind, 1.41305992107053_dbl_kind, 1.41355890206002_dbl_kind, 1.414582616682_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1133) = (/ 1.41028037749403_dbl_kind, 1.41115912662919_dbl_kind, 1.41184208526283_dbl_kind, 1.41234011197312_dbl_kind, 1.41336245668626_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1134) = (/ 1.40906673214853_dbl_kind, 1.4099441636157_dbl_kind, 1.41062635086973_dbl_kind, 1.41112342596764_dbl_kind, 1.41214440383151_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1135) = (/ 1.40785517850205_dbl_kind, 1.40873129523204_dbl_kind, 1.40941271250228_dbl_kind, 1.40990883864764_dbl_kind, 1.41092845271231_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1136) = (/ 1.40664571119847_dbl_kind, 1.40752051611481_dbl_kind, 1.40820116479032_dbl_kind, 1.40869634463599_dbl_kind, 1.40971459794203_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1137) = (/ 1.40543832490033_dbl_kind, 1.40631182091926_dbl_kind, 1.4069917023824_dbl_kind, 1.40748593857426_dbl_kind, 1.40850283415279_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1138) = (/ 1.40423301428869_dbl_kind, 1.40510520431921_dbl_kind, 1.4057843199457_dbl_kind, 1.40627761512267_dbl_kind, 1.40729315599538_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1139) = (/ 1.40302977406311_dbl_kind, 1.40390066100702_dbl_kind, 1.40457901216596_dbl_kind, 1.40507136895996_dbl_kind, 1.4060855581392_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1140) = (/ 1.40182859894154_dbl_kind, 1.40269818569344_dbl_kind, 1.40337577374738_dbl_kind, 1.40386719478337_dbl_kind, 1.40488003527214_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1141) = (/ 1.40062948366024_dbl_kind, 1.40149777310758_dbl_kind, 1.40217459941258_dbl_kind, 1.40266508730852_dbl_kind, 1.40367658210053_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1142) = (/ 1.39943242297372_dbl_kind, 1.40029941799684_dbl_kind, 1.40097548390247_dbl_kind, 1.40146504126935_dbl_kind, 1.40247519334908_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1143) = (/ 1.39823741165466_dbl_kind, 1.39910311512679_dbl_kind, 1.39977842197622_dbl_kind, 1.40026705141806_dbl_kind, 1.40127586376075_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1144) = (/ 1.39704444449383_dbl_kind, 1.39790885928113_dbl_kind, 1.39858340841115_dbl_kind, 1.39907111252497_dbl_kind, 1.40007858809672_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1145) = (/ 1.39585351629999_dbl_kind, 1.3967166452616_dbl_kind, 1.39739043800268_dbl_kind, 1.39787721937854_dbl_kind, 1.39888336113629_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1146) = (/ 1.39466462189988_dbl_kind, 1.39552646788789_dbl_kind, 1.39619950556424_dbl_kind, 1.3966853667852_dbl_kind, 1.39769017767681_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1147) = (/ 1.39347775613805_dbl_kind, 1.39433832199759_dbl_kind, 1.39501060592718_dbl_kind, 1.39549554956932_dbl_kind, 1.39649903253361_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1148) = (/ 1.39229291387688_dbl_kind, 1.39315220244612_dbl_kind, 1.39382373394073_dbl_kind, 1.39430776257317_dbl_kind, 1.3953099205399_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1149) = (/ 1.39111008999644_dbl_kind, 1.39196810410662_dbl_kind, 1.39263888447188_dbl_kind, 1.39312200065674_dbl_kind, 1.39412283654674_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1150) = (/ 1.38992927939444_dbl_kind, 1.39078602186989_dbl_kind, 1.39145605240534_dbl_kind, 1.39193825869779_dbl_kind, 1.39293777542292_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1151) = (/ 1.38875047698616_dbl_kind, 1.38960595064434_dbl_kind, 1.39027523264348_dbl_kind, 1.39075653159168_dbl_kind, 1.3917547320549_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1152) = (/ 1.38757367770436_dbl_kind, 1.38842788535588_dbl_kind, 1.38909642010618_dbl_kind, 1.38957681425135_dbl_kind, 1.39057370134676_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1153) = (/ 1.38639887649923_dbl_kind, 1.38725182094786_dbl_kind, 1.38791960973086_dbl_kind, 1.38839910160721_dbl_kind, 1.38939467822009_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1154) = (/ 1.38522606833831_dbl_kind, 1.38607775238103_dbl_kind, 1.38674479647231_dbl_kind, 1.38722338860712_dbl_kind, 1.38821765761395_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1155) = (/ 1.38405524820638_dbl_kind, 1.38490567463341_dbl_kind, 1.3855719753027_dbl_kind, 1.38604967021625_dbl_kind, 1.38704263448475_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1156) = (/ 1.38288641110546_dbl_kind, 1.38373558270026_dbl_kind, 1.38440114121143_dbl_kind, 1.38487794141706_dbl_kind, 1.38586960380623_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1157) = (/ 1.38171955205467_dbl_kind, 1.38256747159397_dbl_kind, 1.38323228920514_dbl_kind, 1.3837081972092_dbl_kind, 1.38469856056937_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1158) = (/ 1.38055466609021_dbl_kind, 1.38140133634405_dbl_kind, 1.38206541430755_dbl_kind, 1.38254043260945_dbl_kind, 1.3835294997823_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1159) = (/ 1.37939174826524_dbl_kind, 1.380237171997_dbl_kind, 1.38090051155947_dbl_kind, 1.38137464265165_dbl_kind, 1.38236241647026_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1160) = (/ 1.37823079364986_dbl_kind, 1.37907497361626_dbl_kind, 1.37973757601868_dbl_kind, 1.38021082238663_dbl_kind, 1.38119730567548_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1161) = (/ 1.377071797331_dbl_kind, 1.37791473628213_dbl_kind, 1.37857660275985_dbl_kind, 1.37904896688212_dbl_kind, 1.38003416245717_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1162) = (/ 1.37591475441239_dbl_kind, 1.37675645509175_dbl_kind, 1.37741758687454_dbl_kind, 1.37788907122271_dbl_kind, 1.37887298189141_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1163) = (/ 1.37475966001443_dbl_kind, 1.37560012515894_dbl_kind, 1.37626052347103_dbl_kind, 1.37673113050975_dbl_kind, 1.37771375907109_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1164) = (/ 1.37360650927418_dbl_kind, 1.37444574161422_dbl_kind, 1.37510540767434_dbl_kind, 1.37557513986132_dbl_kind, 1.37655648910585_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1165) = (/ 1.37245529734528_dbl_kind, 1.37329329960468_dbl_kind, 1.3739522346261_dbl_kind, 1.37442109441211_dbl_kind, 1.37540116712198_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1166) = (/ 1.37130601939784_dbl_kind, 1.37214279429395_dbl_kind, 1.37280099948452_dbl_kind, 1.37326898931339_dbl_kind, 1.37424778826239_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1167) = (/ 1.37015867061843_dbl_kind, 1.37099422086209_dbl_kind, 1.37165169742429_dbl_kind, 1.37211881973294_dbl_kind, 1.37309634768653_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1168) = (/ 1.36901324620996_dbl_kind, 1.36984757450557_dbl_kind, 1.37050432363653_dbl_kind, 1.37097058085495_dbl_kind, 1.37194684057029_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1169) = (/ 1.36786974139165_dbl_kind, 1.36870285043718_dbl_kind, 1.36935887332874_dbl_kind, 1.36982426787999_dbl_kind, 1.37079926210598_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1170) = (/ 1.36672815139895_dbl_kind, 1.36756004388595_dbl_kind, 1.36821534172468_dbl_kind, 1.36867987602493_dbl_kind, 1.36965360750223_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1171) = (/ 1.36558847148348_dbl_kind, 1.36641915009709_dbl_kind, 1.36707372406435_dbl_kind, 1.36753740052284_dbl_kind, 1.36850987198394_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1172) = (/ 1.36445069691293_dbl_kind, 1.36528016433195_dbl_kind, 1.36593401560391_dbl_kind, 1.36639683662299_dbl_kind, 1.36736805079219_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1173) = (/ 1.36331482297106_dbl_kind, 1.36414308186791_dbl_kind, 1.36479621161562_dbl_kind, 1.36525817959073_dbl_kind, 1.36622813918421_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1174) = (/ 1.36218084495755_dbl_kind, 1.36300789799837_dbl_kind, 1.36366030738773_dbl_kind, 1.36412142470743_dbl_kind, 1.36509013243329_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1175) = (/ 1.36104875818801_dbl_kind, 1.3618746080326_dbl_kind, 1.36252629822448_dbl_kind, 1.36298656727044_dbl_kind, 1.36395402582871_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1176) = (/ 1.35991855799388_dbl_kind, 1.36074320729577_dbl_kind, 1.36139417944601_dbl_kind, 1.36185360259301_dbl_kind, 1.36281981467567_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1177) = (/ 1.35879023972236_dbl_kind, 1.35961369112882_dbl_kind, 1.36026394638825_dbl_kind, 1.36072252600421_dbl_kind, 1.36168749429526_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1178) = (/ 1.35766379873637_dbl_kind, 1.35848605488842_dbl_kind, 1.35913559440292_dbl_kind, 1.35959333284889_dbl_kind, 1.36055706002436_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1179) = (/ 1.35653923041444_dbl_kind, 1.3573602939469_dbl_kind, 1.35800911885745_dbl_kind, 1.35846601848761_dbl_kind, 1.35942850721558_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1180) = (/ 1.35541653015071_dbl_kind, 1.35623640369218_dbl_kind, 1.35688451513487_dbl_kind, 1.35734057829654_dbl_kind, 1.35830183123722_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1181) = (/ 1.35429569335482_dbl_kind, 1.35511437952774_dbl_kind, 1.35576177863381_dbl_kind, 1.35621700766748_dbl_kind, 1.35717702747318_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1182) = (/ 1.35317671545186_dbl_kind, 1.35399421687251_dbl_kind, 1.35464090476839_dbl_kind, 1.35509530200769_dbl_kind, 1.35605409132289_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1183) = (/ 1.3520595918823_dbl_kind, 1.35287591116081_dbl_kind, 1.35352188896818_dbl_kind, 1.35397545673991_dbl_kind, 1.35493301820129_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1184) = (/ 1.35094431810195_dbl_kind, 1.35175945784235_dbl_kind, 1.35240472667814_dbl_kind, 1.35285746730227_dbl_kind, 1.35381380353871_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1185) = (/ 1.34983088958186_dbl_kind, 1.35064485238207_dbl_kind, 1.35128941335852_dbl_kind, 1.35174132914821_dbl_kind, 1.35269644278087_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1186) = (/ 1.34871930180831_dbl_kind, 1.34953209026018_dbl_kind, 1.35017594448484_dbl_kind, 1.35062703774644_dbl_kind, 1.35158093138874_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1187) = (/ 1.3476095502827_dbl_kind, 1.34842116697201_dbl_kind, 1.34906431554784_dbl_kind, 1.34951458858086_dbl_kind, 1.35046726483855_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1188) = (/ 1.3465016305215_dbl_kind, 1.347312078028_dbl_kind, 1.34795452205334_dbl_kind, 1.34840397715053_dbl_kind, 1.34935543862171_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1189) = (/ 1.34539553805621_dbl_kind, 1.34620481895363_dbl_kind, 1.34684655952227_dbl_kind, 1.34729519896958_dbl_kind, 1.3482454482447_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1190) = (/ 1.34429126843327_dbl_kind, 1.34509938528936_dbl_kind, 1.34574042349055_dbl_kind, 1.34618824956714_dbl_kind, 1.34713728922907_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1191) = (/ 1.34318881721404_dbl_kind, 1.34399577259053_dbl_kind, 1.34463610950906_dbl_kind, 1.34508312448731_dbl_kind, 1.34603095711137_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1192) = (/ 1.3420881799747_dbl_kind, 1.34289397642738_dbl_kind, 1.34353361314356_dbl_kind, 1.34397981928909_dbl_kind, 1.34492644744305_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1193) = (/ 1.34098935230619_dbl_kind, 1.3417939923849_dbl_kind, 1.34243292997463_dbl_kind, 1.34287832954632_dbl_kind, 1.34382375579043_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1194) = (/ 1.33989232981419_dbl_kind, 1.34069581606285_dbl_kind, 1.34133405559763_dbl_kind, 1.34177865084758_dbl_kind, 1.34272287773464_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1195) = (/ 1.33879710811903_dbl_kind, 1.33959944307564_dbl_kind, 1.34023698562262_dbl_kind, 1.34068077879621_dbl_kind, 1.34162380887156_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1196) = (/ 1.33770368285562_dbl_kind, 1.3385048690523_dbl_kind, 1.33914171567431_dbl_kind, 1.33958470901019_dbl_kind, 1.34052654481174_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1197) = (/ 1.33661204967342_dbl_kind, 1.33741208963642_dbl_kind, 1.338048241392_dbl_kind, 1.33849043712208_dbl_kind, 1.33943108118037_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1198) = (/ 1.33552220423637_dbl_kind, 1.33632110048609_dbl_kind, 1.33695655842952_dbl_kind, 1.33739795877901_dbl_kind, 1.33833741361721_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1199) = (/ 1.33443414222284_dbl_kind, 1.33523189727383_dbl_kind, 1.33586666245516_dbl_kind, 1.33630726964256_dbl_kind, 1.33724553777651_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1200) = (/ 1.33334785932554_dbl_kind, 1.33414447568654_dbl_kind, 1.33477854915165_dbl_kind, 1.33521836538876_dbl_kind, 1.33615544932699_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1201) = (/ 1.33226335125151_dbl_kind, 1.33305883142546_dbl_kind, 1.33369221421604_dbl_kind, 1.33413124170799_dbl_kind, 1.33506714395176_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1202) = (/ 1.33118061372202_dbl_kind, 1.33197496020608_dbl_kind, 1.33260765335972_dbl_kind, 1.33304589430493_dbl_kind, 1.33398061734826_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1203) = (/ 1.33009964247254_dbl_kind, 1.33089285775809_dbl_kind, 1.33152486230827_dbl_kind, 1.33196231889853_dbl_kind, 1.3328958652282_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1204) = (/ 1.32902043325269_dbl_kind, 1.32981251982537_dbl_kind, 1.33044383680149_dbl_kind, 1.33088051122191_dbl_kind, 1.33181288331753_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1205) = (/ 1.32794298182613_dbl_kind, 1.32873394216585_dbl_kind, 1.3293645725933_dbl_kind, 1.32980046702235_dbl_kind, 1.33073166735635_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1206) = (/ 1.32686728397057_dbl_kind, 1.32765712055152_dbl_kind, 1.32828706545167_dbl_kind, 1.32872218206118_dbl_kind, 1.32965221309887_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1207) = (/ 1.32579333547768_dbl_kind, 1.32658205076836_dbl_kind, 1.32721131115862_dbl_kind, 1.32764565211379_dbl_kind, 1.32857451631335_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1208) = (/ 1.32472113215305_dbl_kind, 1.32550872861625_dbl_kind, 1.32613730551008_dbl_kind, 1.3265708729695_dbl_kind, 1.32749857278204_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1209) = (/ 1.3236506698161_dbl_kind, 1.32443714990898_dbl_kind, 1.32506504431593_dbl_kind, 1.32549784043157_dbl_kind, 1.32642437830114_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1210) = (/ 1.32258194430007_dbl_kind, 1.32336731047411_dbl_kind, 1.32399452339985_dbl_kind, 1.3244265503171_dbl_kind, 1.32535192868072_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1211) = (/ 1.32151495145195_dbl_kind, 1.32229920615301_dbl_kind, 1.32292573859936_dbl_kind, 1.323356998457_dbl_kind, 1.32428121974469_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1212) = (/ 1.32044968713239_dbl_kind, 1.32123283280071_dbl_kind, 1.32185868576566_dbl_kind, 1.32228918069592_dbl_kind, 1.32321224733073_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1213) = (/ 1.3193861472157_dbl_kind, 1.32016818628592_dbl_kind, 1.32079336076368_dbl_kind, 1.3212230928922_dbl_kind, 1.32214500729022_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1214) = (/ 1.31832432758977_dbl_kind, 1.31910526249094_dbl_kind, 1.31972975947194_dbl_kind, 1.32015873091782_dbl_kind, 1.32107949548824_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1215) = (/ 1.31726422415602_dbl_kind, 1.31804405731162_dbl_kind, 1.31866787778256_dbl_kind, 1.31909609065836_dbl_kind, 1.32001570780345_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1216) = (/ 1.31620583282933_dbl_kind, 1.31698456665728_dbl_kind, 1.31760771160117_dbl_kind, 1.3180351680129_dbl_kind, 1.31895364012806_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1217) = (/ 1.315149149538_dbl_kind, 1.31592678645069_dbl_kind, 1.31654925684685_dbl_kind, 1.31697595889401_dbl_kind, 1.31789328836782_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1218) = (/ 1.31409417022372_dbl_kind, 1.314870712628_dbl_kind, 1.3154925094521_dbl_kind, 1.31591845922769_dbl_kind, 1.31683464844188_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1219) = (/ 1.31304089084148_dbl_kind, 1.3138163411387_dbl_kind, 1.3144374653628_dbl_kind, 1.31486266495329_dbl_kind, 1.31577771628283_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1220) = (/ 1.31198930735953_dbl_kind, 1.31276366794555_dbl_kind, 1.3133841205381_dbl_kind, 1.31380857202351_dbl_kind, 1.31472248783656_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1221) = (/ 1.31093941575933_dbl_kind, 1.31171268902452_dbl_kind, 1.31233247095043_dbl_kind, 1.31275617640427_dbl_kind, 1.31366895906228_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1222) = (/ 1.3098912120355_dbl_kind, 1.31066340036477_dbl_kind, 1.3112825125854_dbl_kind, 1.31170547407473_dbl_kind, 1.31261712593244_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1223) = (/ 1.30884469219577_dbl_kind, 1.30961579796859_dbl_kind, 1.31023424144178_dbl_kind, 1.31065646102721_dbl_kind, 1.31156698443264_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1224) = (/ 1.30779985226092_dbl_kind, 1.3085698778513_dbl_kind, 1.30918765353144_dbl_kind, 1.30960913326712_dbl_kind, 1.31051853056165_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1225) = (/ 1.30675668826474_dbl_kind, 1.30752563604129_dbl_kind, 1.30814274487927_dbl_kind, 1.30856348681296_dbl_kind, 1.30947176033129_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1226) = (/ 1.30571519625396_dbl_kind, 1.30648306857986_dbl_kind, 1.30709951152319_dbl_kind, 1.30751951769619_dbl_kind, 1.30842666976644_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1227) = (/ 1.30467537228822_dbl_kind, 1.30544217152128_dbl_kind, 1.30605794951404_dbl_kind, 1.30647722196126_dbl_kind, 1.30738325490494_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1228) = (/ 1.30363721244_dbl_kind, 1.30440294093264_dbl_kind, 1.30501805491554_dbl_kind, 1.3054365956655_dbl_kind, 1.30634151179757_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1229) = (/ 1.30260071279459_dbl_kind, 1.30336537289388_dbl_kind, 1.30397982380428_dbl_kind, 1.30439763487912_dbl_kind, 1.30530143650796_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1230) = (/ 1.30156586945003_dbl_kind, 1.30232946349767_dbl_kind, 1.30294325226962_dbl_kind, 1.30336033568509_dbl_kind, 1.30426302511259_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1231) = (/ 1.30053267851705_dbl_kind, 1.30129520884942_dbl_kind, 1.30190833641366_dbl_kind, 1.30232469417918_dbl_kind, 1.30322627370072_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1232) = (/ 1.29950113611905_dbl_kind, 1.30026260506718_dbl_kind, 1.30087507235119_dbl_kind, 1.30129070646982_dbl_kind, 1.30219117837431_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1233) = (/ 1.298471238392_dbl_kind, 1.29923164828165_dbl_kind, 1.29984345620966_dbl_kind, 1.30025836867812_dbl_kind, 1.30115773524803_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1234) = (/ 1.29744298148445_dbl_kind, 1.29820233463605_dbl_kind, 1.29881348412907_dbl_kind, 1.29922767693778_dbl_kind, 1.30012594044915_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1235) = (/ 1.29641636155744_dbl_kind, 1.29717466028615_dbl_kind, 1.297785152262_dbl_kind, 1.29819862739506_dbl_kind, 1.29909579011752_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1236) = (/ 1.29539137478447_dbl_kind, 1.29614862140018_dbl_kind, 1.2967584567735_dbl_kind, 1.29717121620873_dbl_kind, 1.29806728040554_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1237) = (/ 1.29436801735142_dbl_kind, 1.29512421415878_dbl_kind, 1.29573339384107_dbl_kind, 1.29614543954999_dbl_kind, 1.29704040747806_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1238) = (/ 1.29334628545657_dbl_kind, 1.29410143475496_dbl_kind, 1.29470995965461_dbl_kind, 1.29512129360248_dbl_kind, 1.29601516751238_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1239) = (/ 1.29232617531047_dbl_kind, 1.29308027939406_dbl_kind, 1.29368815041636_dbl_kind, 1.29409877456217_dbl_kind, 1.29499155669818_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1240) = (/ 1.29130768313596_dbl_kind, 1.29206074429369_dbl_kind, 1.29266796234086_dbl_kind, 1.29307787863738_dbl_kind, 1.29396957123746_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1241) = (/ 1.29029080516807_dbl_kind, 1.29104282568368_dbl_kind, 1.2916493916549_dbl_kind, 1.29205860204865_dbl_kind, 1.29294920734452_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1242) = (/ 1.289275537654_dbl_kind, 1.29002651980606_dbl_kind, 1.29063243459746_dbl_kind, 1.29104094102875_dbl_kind, 1.29193046124591_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1243) = (/ 1.28826187685309_dbl_kind, 1.28901182291497_dbl_kind, 1.28961708741971_dbl_kind, 1.29002489182265_dbl_kind, 1.29091332918034_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1244) = (/ 1.28724981903673_dbl_kind, 1.28799873127663_dbl_kind, 1.28860334638488_dbl_kind, 1.28901045068739_dbl_kind, 1.28989780739869_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1245) = (/ 1.28623936048833_dbl_kind, 1.28698724116932_dbl_kind, 1.2875912077683_dbl_kind, 1.28799761389211_dbl_kind, 1.28888389216392_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1246) = (/ 1.28523049750331_dbl_kind, 1.28597734888329_dbl_kind, 1.2865806678573_dbl_kind, 1.28698637771799_dbl_kind, 1.28787157975104_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1247) = (/ 1.28422322638898_dbl_kind, 1.28496905072075_dbl_kind, 1.28557172295117_dbl_kind, 1.28597673845817_dbl_kind, 1.28686086644709_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1248) = (/ 1.28321754346457_dbl_kind, 1.2839623429958_dbl_kind, 1.28456436936114_dbl_kind, 1.28496869241773_dbl_kind, 1.28585174855102_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1249) = (/ 1.28221344506113_dbl_kind, 1.28295722203439_dbl_kind, 1.2835586034103_dbl_kind, 1.28396223591364_dbl_kind, 1.28484422237373_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1250) = (/ 1.28121092752151_dbl_kind, 1.28195368417428_dbl_kind, 1.28255442143356_dbl_kind, 1.28295736527471_dbl_kind, 1.28383828423798_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1251) = (/ 1.28020998720032_dbl_kind, 1.280951725765_dbl_kind, 1.28155181977765_dbl_kind, 1.28195407684155_dbl_kind, 1.28283393047832_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1252) = (/ 1.27921062046385_dbl_kind, 1.27995134316777_dbl_kind, 1.28055079480099_dbl_kind, 1.28095236696653_dbl_kind, 1.28183115744111_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1253) = (/ 1.27821282369008_dbl_kind, 1.27895253275551_dbl_kind, 1.27955134287373_dbl_kind, 1.27995223201371_dbl_kind, 1.2808299614844_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1254) = (/ 1.27721659326857_dbl_kind, 1.27795529091275_dbl_kind, 1.27855346037765_dbl_kind, 1.27895366835882_dbl_kind, 1.27983033897796_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1255) = (/ 1.27622192560047_dbl_kind, 1.2769596140356_dbl_kind, 1.27755714370614_dbl_kind, 1.2779566723892_dbl_kind, 1.27883228630317_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1256) = (/ 1.27522881709844_dbl_kind, 1.27596549853171_dbl_kind, 1.27656238926413_dbl_kind, 1.27696124050377_dbl_kind, 1.27783579985302_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1257) = (/ 1.27423726418665_dbl_kind, 1.27497294082022_dbl_kind, 1.27556919346809_dbl_kind, 1.27596736911298_dbl_kind, 1.27684087603204_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1258) = (/ 1.27324726330066_dbl_kind, 1.27398193733172_dbl_kind, 1.27457755274595_dbl_kind, 1.27497505463874_dbl_kind, 1.27584751125626_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1259) = (/ 1.27225881088747_dbl_kind, 1.27299248450819_dbl_kind, 1.27358746353705_dbl_kind, 1.27398429351443_dbl_kind, 1.27485570195318_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1260) = (/ 1.27127190340539_dbl_kind, 1.27200457880301_dbl_kind, 1.27259892229213_dbl_kind, 1.27299508218481_dbl_kind, 1.27386544456171_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1261) = (/ 1.27028653732406_dbl_kind, 1.27101821668082_dbl_kind, 1.27161192547325_dbl_kind, 1.27200741710599_dbl_kind, 1.27287673553214_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1262) = (/ 1.26930270912437_dbl_kind, 1.27003339461758_dbl_kind, 1.27062646955378_dbl_kind, 1.27102129474538_dbl_kind, 1.27188957132607_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1263) = (/ 1.26832041529844_dbl_kind, 1.26905010910046_dbl_kind, 1.26964255101834_dbl_kind, 1.27003671158168_dbl_kind, 1.27090394841641_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1264) = (/ 1.26733965234955_dbl_kind, 1.26806835662782_dbl_kind, 1.26866016636274_dbl_kind, 1.26905366410479_dbl_kind, 1.26991986328729_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1265) = (/ 1.26636041679213_dbl_kind, 1.26708813370916_dbl_kind, 1.26767931209398_dbl_kind, 1.26807214881581_dbl_kind, 1.26893731243406_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1266) = (/ 1.26538270515169_dbl_kind, 1.26610943686509_dbl_kind, 1.26669998473016_dbl_kind, 1.26709216222694_dbl_kind, 1.26795629236321_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1267) = (/ 1.26440651396479_dbl_kind, 1.26513226262727_dbl_kind, 1.26572218080047_dbl_kind, 1.26611370086151_dbl_kind, 1.26697679959234_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1268) = (/ 1.263431839779_dbl_kind, 1.26415660753839_dbl_kind, 1.26474589684513_dbl_kind, 1.26513676125388_dbl_kind, 1.26599883065015_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1269) = (/ 1.26245867915285_dbl_kind, 1.26318246815211_dbl_kind, 1.26377112941537_dbl_kind, 1.26416133994945_dbl_kind, 1.26502238207634_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1270) = (/ 1.2614870286558_dbl_kind, 1.26220984103302_dbl_kind, 1.26279787507336_dbl_kind, 1.26318743350454_dbl_kind, 1.26404745042161_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1271) = (/ 1.26051688486819_dbl_kind, 1.26123872275661_dbl_kind, 1.26182613039219_dbl_kind, 1.26221503848643_dbl_kind, 1.2630740322476_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1272) = (/ 1.2595482443812_dbl_kind, 1.2602691099092_dbl_kind, 1.2608558919558_dbl_kind, 1.26124415147328_dbl_kind, 1.26210212412688_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1273) = (/ 1.2585811037968_dbl_kind, 1.25930099908796_dbl_kind, 1.259887156359_dbl_kind, 1.2602747690541_dbl_kind, 1.26113172264283_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1274) = (/ 1.25761545972773_dbl_kind, 1.25833438690078_dbl_kind, 1.25891992020734_dbl_kind, 1.25930688782867_dbl_kind, 1.26016282438971_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1275) = (/ 1.25665130879745_dbl_kind, 1.25736926996632_dbl_kind, 1.25795418011714_dbl_kind, 1.25834050440756_dbl_kind, 1.25919542597252_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1276) = (/ 1.25568864764007_dbl_kind, 1.25640564491391_dbl_kind, 1.25698993271543_dbl_kind, 1.25737561541207_dbl_kind, 1.25822952400701_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1277) = (/ 1.25472747290037_dbl_kind, 1.25544350838351_dbl_kind, 1.2560271746399_dbl_kind, 1.25641221747414_dbl_kind, 1.25726511511964_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1278) = (/ 1.25376778123372_dbl_kind, 1.25448285702572_dbl_kind, 1.25506590253887_dbl_kind, 1.25545030723639_dbl_kind, 1.25630219594752_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1279) = (/ 1.25280956930602_dbl_kind, 1.25352368750167_dbl_kind, 1.25410611307122_dbl_kind, 1.25448988135201_dbl_kind, 1.25534076313839_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1280) = (/ 1.25185283379371_dbl_kind, 1.25256599648306_dbl_kind, 1.25314780290641_dbl_kind, 1.25353093648477_dbl_kind, 1.25438081335053_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1281) = (/ 1.25089757138371_dbl_kind, 1.25160978065202_dbl_kind, 1.25219096872437_dbl_kind, 1.25257346930895_dbl_kind, 1.25342234325281_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1282) = (/ 1.24994377877336_dbl_kind, 1.25065503670119_dbl_kind, 1.25123560721553_dbl_kind, 1.25161747650931_dbl_kind, 1.25246534952456_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1283) = (/ 1.24899145267041_dbl_kind, 1.24970176133357_dbl_kind, 1.25028171508072_dbl_kind, 1.25066295478104_dbl_kind, 1.25150982885559_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1284) = (/ 1.24804058979296_dbl_kind, 1.24874995126255_dbl_kind, 1.24932928903115_dbl_kind, 1.24970990082976_dbl_kind, 1.25055577794613_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1285) = (/ 1.24709118686944_dbl_kind, 1.24779960321185_dbl_kind, 1.24837832578842_dbl_kind, 1.24875831137143_dbl_kind, 1.24960319350676_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1286) = (/ 1.24614324063855_dbl_kind, 1.24685071391546_dbl_kind, 1.24742882208438_dbl_kind, 1.24780818313232_dbl_kind, 1.24865207225845_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1287) = (/ 1.24519674784924_dbl_kind, 1.24590328011765_dbl_kind, 1.24648077466119_dbl_kind, 1.24685951284902_dbl_kind, 1.24770241093242_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1288) = (/ 1.24425170526065_dbl_kind, 1.24495729857288_dbl_kind, 1.24553418027123_dbl_kind, 1.24591229726834_dbl_kind, 1.2467542062702_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1289) = (/ 1.24330810964211_dbl_kind, 1.24401276604581_dbl_kind, 1.24458903567706_dbl_kind, 1.24496653314729_dbl_kind, 1.24580745502351_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1290) = (/ 1.24236595777306_dbl_kind, 1.24306967931121_dbl_kind, 1.2436453376514_dbl_kind, 1.24402221725308_dbl_kind, 1.24486215395429_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1291) = (/ 1.24142524644303_dbl_kind, 1.24212803515397_dbl_kind, 1.2427030829771_dbl_kind, 1.24307934636302_dbl_kind, 1.24391829983459_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1292) = (/ 1.2404859724516_dbl_kind, 1.24118783036903_dbl_kind, 1.24176226844707_dbl_kind, 1.24213791726453_dbl_kind, 1.2429758894466_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1293) = (/ 1.23954813260838_dbl_kind, 1.24024906176136_dbl_kind, 1.24082289086427_dbl_kind, 1.24119792675508_dbl_kind, 1.24203491958257_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1294) = (/ 1.23861172373293_dbl_kind, 1.23931172614591_dbl_kind, 1.23988494704165_dbl_kind, 1.24025937164215_dbl_kind, 1.24109538704479_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1295) = (/ 1.23767674265476_dbl_kind, 1.23837582034757_dbl_kind, 1.23894843380213_dbl_kind, 1.23932224874321_dbl_kind, 1.24015728864554_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1296) = (/ 1.23674318621331_dbl_kind, 1.23744134120116_dbl_kind, 1.23801334797856_dbl_kind, 1.23838655488566_dbl_kind, 1.23922062120707_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1297) = (/ 1.23581105125784_dbl_kind, 1.23650828555137_dbl_kind, 1.23707968641369_dbl_kind, 1.23745228690683_dbl_kind, 1.23828538156155_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1298) = (/ 1.23488033464746_dbl_kind, 1.23557665025272_dbl_kind, 1.23614744596011_dbl_kind, 1.23651944165389_dbl_kind, 1.23735156655103_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1299) = (/ 1.23395103325108_dbl_kind, 1.23464643216954_dbl_kind, 1.23521662348022_dbl_kind, 1.23558801598386_dbl_kind, 1.23641917302741_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1300) = (/ 1.23302314394734_dbl_kind, 1.23371762817591_dbl_kind, 1.23428721584621_dbl_kind, 1.23465800676355_dbl_kind, 1.23548819785242_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1301) = (/ 1.23209666362463_dbl_kind, 1.23279023515565_dbl_kind, 1.23335921994001_dbl_kind, 1.23372941086952_dbl_kind, 1.23455863789752_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1302) = (/ 1.231171589181_dbl_kind, 1.23186425000227_dbl_kind, 1.23243263265327_dbl_kind, 1.23280222518807_dbl_kind, 1.23363049004397_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1303) = (/ 1.23024791752415_dbl_kind, 1.23093966961894_dbl_kind, 1.23150745088729_dbl_kind, 1.23187644661516_dbl_kind, 1.23270375118269_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1304) = (/ 1.2293256455714_dbl_kind, 1.23001649091844_dbl_kind, 1.23058367155301_dbl_kind, 1.23095207205643_dbl_kind, 1.23177841821428_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1305) = (/ 1.22840477024964_dbl_kind, 1.22909471082313_dbl_kind, 1.22966129157099_dbl_kind, 1.23002909842711_dbl_kind, 1.23085448804897_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1306) = (/ 1.2274852884953_dbl_kind, 1.22817432626494_dbl_kind, 1.22874030787132_dbl_kind, 1.22910752265203_dbl_kind, 1.22993195760659_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1307) = (/ 1.2265671972543_dbl_kind, 1.2272553341853_dbl_kind, 1.22782071739364_dbl_kind, 1.22818734166554_dbl_kind, 1.22901082381652_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1308) = (/ 1.22565049348205_dbl_kind, 1.22633773153511_dbl_kind, 1.22690251708708_dbl_kind, 1.22726855241152_dbl_kind, 1.22809108361767_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1309) = (/ 1.2247351741434_dbl_kind, 1.22542151527472_dbl_kind, 1.22598570391021_dbl_kind, 1.2263511518433_dbl_kind, 1.22717273395845_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1310) = (/ 1.22382123621256_dbl_kind, 1.2245066823739_dbl_kind, 1.22507027483105_dbl_kind, 1.22543513692366_dbl_kind, 1.22625577179671_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1311) = (/ 1.22290867667314_dbl_kind, 1.22359322981177_dbl_kind, 1.22415622682699_dbl_kind, 1.22452050462479_dbl_kind, 1.22534019409971_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1312) = (/ 1.22199749251808_dbl_kind, 1.22268115457681_dbl_kind, 1.22324355688476_dbl_kind, 1.22360725192824_dbl_kind, 1.22442599784411_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1313) = (/ 1.22108768074959_dbl_kind, 1.22177045366679_dbl_kind, 1.22233226200045_dbl_kind, 1.22269537582487_dbl_kind, 1.22351318001593_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1314) = (/ 1.22017923837915_dbl_kind, 1.22086112408875_dbl_kind, 1.22142233917938_dbl_kind, 1.22178487331489_dbl_kind, 1.22260173761047_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1315) = (/ 1.21927216242749_dbl_kind, 1.21995316285897_dbl_kind, 1.22051378543615_dbl_kind, 1.22087574140772_dbl_kind, 1.22169166763234_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1316) = (/ 1.2183664499245_dbl_kind, 1.21904656700293_dbl_kind, 1.21960659779458_dbl_kind, 1.21996797712205_dbl_kind, 1.22078296709539_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1317) = (/ 1.21746209790925_dbl_kind, 1.21814133355529_dbl_kind, 1.21870077328766_dbl_kind, 1.21906157748575_dbl_kind, 1.21987563302267_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1318) = (/ 1.21655910342992_dbl_kind, 1.21723745955981_dbl_kind, 1.21779630895751_dbl_kind, 1.21815653953585_dbl_kind, 1.21896966244642_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1319) = (/ 1.2156574635438_dbl_kind, 1.21633494206939_dbl_kind, 1.2168932018554_dbl_kind, 1.21725286031851_dbl_kind, 1.21806505240803_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1320) = (/ 1.21475717531722_dbl_kind, 1.21543377814596_dbl_kind, 1.21599144904165_dbl_kind, 1.21635053688899_dbl_kind, 1.21716179995798_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1321) = (/ 1.21385823582554_dbl_kind, 1.21453396486052_dbl_kind, 1.21509104758563_dbl_kind, 1.2154495663116_dbl_kind, 1.21625990215584_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1322) = (/ 1.21296064215311_dbl_kind, 1.21363549929304_dbl_kind, 1.21419199456574_dbl_kind, 1.2145499456597_dbl_kind, 1.21535935607023_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1323) = (/ 1.21206439139326_dbl_kind, 1.21273837853246_dbl_kind, 1.21329428706935_dbl_kind, 1.21365167201562_dbl_kind, 1.21446015877878_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1324) = (/ 1.21116948064821_dbl_kind, 1.21184259967668_dbl_kind, 1.21239792219276_dbl_kind, 1.21275474247068_dbl_kind, 1.21356230736807_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1325) = (/ 1.21027590702909_dbl_kind, 1.21094815983247_dbl_kind, 1.21150289704121_dbl_kind, 1.21185915412509_dbl_kind, 1.21266579893367_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1326) = (/ 1.2093836676559_dbl_kind, 1.21005505611548_dbl_kind, 1.21060920872881_dbl_kind, 1.210964904088_dbl_kind, 1.21177063058002_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1327) = (/ 1.20849275965746_dbl_kind, 1.20916328565021_dbl_kind, 1.20971685437851_dbl_kind, 1.21007198947738_dbl_kind, 1.21087679942046_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1328) = (/ 1.20760318017138_dbl_kind, 1.20827284556994_dbl_kind, 1.2088258311221_dbl_kind, 1.20918040742008_dbl_kind, 1.20998430257719_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1329) = (/ 1.20671492634403_dbl_kind, 1.20738373301674_dbl_kind, 1.20793613610013_dbl_kind, 1.20829015505171_dbl_kind, 1.20909313718119_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1330) = (/ 1.20582799533054_dbl_kind, 1.20649594514141_dbl_kind, 1.2070477664619_dbl_kind, 1.20740122951666_dbl_kind, 1.20820330037225_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1331) = (/ 1.20494238429469_dbl_kind, 1.20560947910346_dbl_kind, 1.20616071936546_dbl_kind, 1.20651362796806_dbl_kind, 1.20731478929889_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1332) = (/ 1.20405809040898_dbl_kind, 1.20472433207108_dbl_kind, 1.20527499197751_dbl_kind, 1.20562734756774_dbl_kind, 1.20642760111836_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1333) = (/ 1.20317511085452_dbl_kind, 1.2038405012211_dbl_kind, 1.20439058147343_dbl_kind, 1.20474238548619_dbl_kind, 1.20554173299661_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1334) = (/ 1.20229344282101_dbl_kind, 1.20295798373896_dbl_kind, 1.20350748503722_dbl_kind, 1.20385873890256_dbl_kind, 1.20465718210822_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1335) = (/ 1.20141308350676_dbl_kind, 1.20207677681869_dbl_kind, 1.20262569986147_dbl_kind, 1.2029764050046_dbl_kind, 1.2037739456364_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1336) = (/ 1.20053403011859_dbl_kind, 1.20119687766286_dbl_kind, 1.20174522314733_dbl_kind, 1.20209538098862_dbl_kind, 1.20289202077295_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1337) = (/ 1.19965627987184_dbl_kind, 1.20031828348257_dbl_kind, 1.20086605210447_dbl_kind, 1.2012156640595_dbl_kind, 1.20201140471824_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1338) = (/ 1.19877982999034_dbl_kind, 1.19944099149739_dbl_kind, 1.19998818395109_dbl_kind, 1.20033725143062_dbl_kind, 1.20113209468116_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1339) = (/ 1.19790467770637_dbl_kind, 1.19856499893537_dbl_kind, 1.19911161591383_dbl_kind, 1.19946014032386_dbl_kind, 1.2002540878791_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1340) = (/ 1.1970308202606_dbl_kind, 1.19769030303297_dbl_kind, 1.19823634522779_dbl_kind, 1.19858432796952_dbl_kind, 1.19937738153792_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1341) = (/ 1.19615825490213_dbl_kind, 1.19681690103505_dbl_kind, 1.19736236913644_dbl_kind, 1.19770981160636_dbl_kind, 1.19850197289192_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1342) = (/ 1.19528697888838_dbl_kind, 1.19594479019484_dbl_kind, 1.19648968489166_dbl_kind, 1.1968365884815_dbl_kind, 1.19762785918379_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1343) = (/ 1.19441698948511_dbl_kind, 1.19507396777389_dbl_kind, 1.19561828975368_dbl_kind, 1.19596465585045_dbl_kind, 1.19675503766462_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1344) = (/ 1.19354828396639_dbl_kind, 1.19420443104209_dbl_kind, 1.19474818099101_dbl_kind, 1.19509401097702_dbl_kind, 1.19588350559382_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1345) = (/ 1.19268085961455_dbl_kind, 1.19333617727755_dbl_kind, 1.19387935588047_dbl_kind, 1.19422465113335_dbl_kind, 1.19501326023912_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1346) = (/ 1.19181471372014_dbl_kind, 1.19246920376668_dbl_kind, 1.19301181170714_dbl_kind, 1.19335657359983_dbl_kind, 1.19414429887655_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1347) = (/ 1.19094984358193_dbl_kind, 1.19160350780406_dbl_kind, 1.19214554576431_dbl_kind, 1.19248977566509_dbl_kind, 1.19327661879038_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1348) = (/ 1.19008624650687_dbl_kind, 1.19073908669249_dbl_kind, 1.19128055535347_dbl_kind, 1.19162425462598_dbl_kind, 1.19241021727311_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1349) = (/ 1.18922391981006_dbl_kind, 1.1898759377429_dbl_kind, 1.19041683778428_dbl_kind, 1.19076000778754_dbl_kind, 1.19154509162543_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1350) = (/ 1.18836286081471_dbl_kind, 1.18901405827436_dbl_kind, 1.18955439037453_dbl_kind, 1.18989703246293_dbl_kind, 1.19068123915621_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1351) = (/ 1.18750306685212_dbl_kind, 1.18815344561404_dbl_kind, 1.18869321045012_dbl_kind, 1.18903532597346_dbl_kind, 1.18981865718243_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1352) = (/ 1.18664453526165_dbl_kind, 1.18729409709716_dbl_kind, 1.18783329534504_dbl_kind, 1.18817488564853_dbl_kind, 1.1889573430292_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1353) = (/ 1.1857872633907_dbl_kind, 1.18643601006699_dbl_kind, 1.1869746424013_dbl_kind, 1.18731570882559_dbl_kind, 1.18809729402969_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1354) = (/ 1.18493124859466_dbl_kind, 1.18557918187482_dbl_kind, 1.18611724896895_dbl_kind, 1.18645779285013_dbl_kind, 1.18723850752514_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1355) = (/ 1.18407648823689_dbl_kind, 1.18472360987989_dbl_kind, 1.18526111240603_dbl_kind, 1.18560113507565_dbl_kind, 1.18638098086479_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1356) = (/ 1.18322297968871_dbl_kind, 1.18386929144942_dbl_kind, 1.18440623007853_dbl_kind, 1.18474573286362_dbl_kind, 1.18552471140586_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1357) = (/ 1.18237072032935_dbl_kind, 1.18301622395855_dbl_kind, 1.18355259936038_dbl_kind, 1.18389158358347_dbl_kind, 1.18466969651357_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1358) = (/ 1.18151970754591_dbl_kind, 1.1821644047903_dbl_kind, 1.18270021763342_dbl_kind, 1.18303868461252_dbl_kind, 1.18381593356104_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1359) = (/ 1.18066993873337_dbl_kind, 1.18131383133557_dbl_kind, 1.18184908228736_dbl_kind, 1.18218703333602_dbl_kind, 1.1829634199293_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1360) = (/ 1.17982141129453_dbl_kind, 1.18046450099309_dbl_kind, 1.18099919071974_dbl_kind, 1.18133662714706_dbl_kind, 1.18211215300726_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1361) = (/ 1.17897412264_dbl_kind, 1.17961641116941_dbl_kind, 1.18015054033595_dbl_kind, 1.18048746344656_dbl_kind, 1.18126213019168_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1362) = (/ 1.17812807018816_dbl_kind, 1.17876955927884_dbl_kind, 1.17930312854916_dbl_kind, 1.17963953964325_dbl_kind, 1.18041334888713_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1363) = (/ 1.17728325136513_dbl_kind, 1.17792394274347_dbl_kind, 1.17845695278028_dbl_kind, 1.17879285315365_dbl_kind, 1.17956580650598_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1364) = (/ 1.17643966360476_dbl_kind, 1.17707955899309_dbl_kind, 1.177612010458_dbl_kind, 1.17794740140201_dbl_kind, 1.17871950046837_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1365) = (/ 1.17559730434858_dbl_kind, 1.17623640546523_dbl_kind, 1.17676829901867_dbl_kind, 1.17710318182033_dbl_kind, 1.17787442820215_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1366) = (/ 1.1747561710458_dbl_kind, 1.17539447960504_dbl_kind, 1.17592581590636_dbl_kind, 1.17626019184827_dbl_kind, 1.1770305871429_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1367) = (/ 1.17391626115324_dbl_kind, 1.17455377886535_dbl_kind, 1.17508455857275_dbl_kind, 1.17541842893319_dbl_kind, 1.17618797473386_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1368) = (/ 1.17307757213535_dbl_kind, 1.17371430070659_dbl_kind, 1.17424452447719_dbl_kind, 1.17457789053006_dbl_kind, 1.17534658842596_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1369) = (/ 1.17224010146416_dbl_kind, 1.17287604259678_dbl_kind, 1.1734057110866_dbl_kind, 1.17373857410148_dbl_kind, 1.17450642567772_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1370) = (/ 1.17140384661925_dbl_kind, 1.17203900201151_dbl_kind, 1.17256811587548_dbl_kind, 1.17290047711764_dbl_kind, 1.17366748395526_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1371) = (/ 1.17056880508771_dbl_kind, 1.17120317643389_dbl_kind, 1.17173173632585_dbl_kind, 1.17206359705627_dbl_kind, 1.17282976073229_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1372) = (/ 1.16973497436416_dbl_kind, 1.17036856335456_dbl_kind, 1.17089656992729_dbl_kind, 1.17122793140264_dbl_kind, 1.17199325349006_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1373) = (/ 1.16890235195068_dbl_kind, 1.16953516027161_dbl_kind, 1.17006261417683_dbl_kind, 1.17039347764952_dbl_kind, 1.17115795971731_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1374) = (/ 1.1680709353568_dbl_kind, 1.16870296469062_dbl_kind, 1.16922986657897_dbl_kind, 1.16956023329718_dbl_kind, 1.1703238769103_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1375) = (/ 1.16724072209946_dbl_kind, 1.16787197412457_dbl_kind, 1.16839832464568_dbl_kind, 1.1687281958533_dbl_kind, 1.16949100257274_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1376) = (/ 1.16641170970301_dbl_kind, 1.16704218609385_dbl_kind, 1.16756798589628_dbl_kind, 1.16789736283302_dbl_kind, 1.16865933421579_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1377) = (/ 1.16558389569915_dbl_kind, 1.16621359812623_dbl_kind, 1.16673884785753_dbl_kind, 1.16706773175886_dbl_kind, 1.16782886935799_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1378) = (/ 1.16475727762694_dbl_kind, 1.16538620775683_dbl_kind, 1.16591090806351_dbl_kind, 1.16623930016071_dbl_kind, 1.1669996055253_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1379) = (/ 1.16393185303273_dbl_kind, 1.16456001252808_dbl_kind, 1.16508416405564_dbl_kind, 1.16541206557581_dbl_kind, 1.16617154025102_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1380) = (/ 1.1631076194702_dbl_kind, 1.16373500998971_dbl_kind, 1.16425861338266_dbl_kind, 1.16458602554871_dbl_kind, 1.16534467107577_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1381) = (/ 1.16228457450025_dbl_kind, 1.16291119769873_dbl_kind, 1.16343425360055_dbl_kind, 1.16376117763129_dbl_kind, 1.16451899554749_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1382) = (/ 1.16146271569104_dbl_kind, 1.16208857321939_dbl_kind, 1.16261108227259_dbl_kind, 1.16293751938263_dbl_kind, 1.16369451122141_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1383) = (/ 1.16064204061794_dbl_kind, 1.16126713412316_dbl_kind, 1.16178909696926_dbl_kind, 1.16211504836912_dbl_kind, 1.16287121565998_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1384) = (/ 1.15982254686351_dbl_kind, 1.1604468779887_dbl_kind, 1.16096829526823_dbl_kind, 1.16129376216431_dbl_kind, 1.16204910643292_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1385) = (/ 1.15900423201745_dbl_kind, 1.15962780240183_dbl_kind, 1.16014867475437_dbl_kind, 1.16047365834898_dbl_kind, 1.1612281811171_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1386) = (/ 1.15818709367662_dbl_kind, 1.15880990495553_dbl_kind, 1.15933023301969_dbl_kind, 1.15965473451106_dbl_kind, 1.16040843729662_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1387) = (/ 1.15737112944497_dbl_kind, 1.15799318324989_dbl_kind, 1.15851296766332_dbl_kind, 1.1588369882456_dbl_kind, 1.15958987256269_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1388) = (/ 1.15655633693356_dbl_kind, 1.1571776348921_dbl_kind, 1.15769687629149_dbl_kind, 1.15802041715479_dbl_kind, 1.15877248451367_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1389) = (/ 1.15574271376048_dbl_kind, 1.15636325749638_dbl_kind, 1.15688195651751_dbl_kind, 1.1572050188479_dbl_kind, 1.15795627075501_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1390) = (/ 1.15493025755087_dbl_kind, 1.15555004868405_dbl_kind, 1.15606820596174_dbl_kind, 1.15639079094125_dbl_kind, 1.15714122889923_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1391) = (/ 1.15411896593689_dbl_kind, 1.1547380060834_dbl_kind, 1.15525562225156_dbl_kind, 1.15557773105823_dbl_kind, 1.15632735656592_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1392) = (/ 1.15330883655766_dbl_kind, 1.15392712732974_dbl_kind, 1.15444420302133_dbl_kind, 1.15476583682921_dbl_kind, 1.15551465138166_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1393) = (/ 1.15249986705928_dbl_kind, 1.15311741006532_dbl_kind, 1.15363394591243_dbl_kind, 1.15395510589156_dbl_kind, 1.15470311098008_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1394) = (/ 1.15169205509478_dbl_kind, 1.15230885193936_dbl_kind, 1.15282484857314_dbl_kind, 1.15314553588962_dbl_kind, 1.15389273300174_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1395) = (/ 1.1508853983241_dbl_kind, 1.15150145060798_dbl_kind, 1.15201690865869_dbl_kind, 1.15233712447466_dbl_kind, 1.15308351509418_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1396) = (/ 1.15007989441406_dbl_kind, 1.15069520373421_dbl_kind, 1.15121012383123_dbl_kind, 1.15152986930487_dbl_kind, 1.15227545491184_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1397) = (/ 1.14927554103836_dbl_kind, 1.14989010898794_dbl_kind, 1.15040449175973_dbl_kind, 1.15072376804534_dbl_kind, 1.15146855011609_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1398) = (/ 1.14847233587751_dbl_kind, 1.1490861640459_dbl_kind, 1.14960001012007_dbl_kind, 1.149918818368_dbl_kind, 1.15066279837515_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1399) = (/ 1.14767027661887_dbl_kind, 1.14828336659165_dbl_kind, 1.14879667659493_dbl_kind, 1.14911501795164_dbl_kind, 1.14985819736412_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1400) = (/ 1.14686936095657_dbl_kind, 1.14748171431554_dbl_kind, 1.14799448887379_dbl_kind, 1.14831236448187_dbl_kind, 1.14905474476492_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1401) = (/ 1.1460695865915_dbl_kind, 1.1466812049147_dbl_kind, 1.14719344465292_dbl_kind, 1.14751085565108_dbl_kind, 1.14825243826626_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1402) = (/ 1.14527095123131_dbl_kind, 1.14588183609301_dbl_kind, 1.14639354163534_dbl_kind, 1.14671048915845_dbl_kind, 1.14745127556365_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1403) = (/ 1.14447345259035_dbl_kind, 1.14508360556108_dbl_kind, 1.1455947775308_dbl_kind, 1.14591126270989_dbl_kind, 1.14665125435935_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1404) = (/ 1.14367708838967_dbl_kind, 1.14428651103619_dbl_kind, 1.14479715005578_dbl_kind, 1.14511317401802_dbl_kind, 1.14585237236235_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1405) = (/ 1.142881856357_dbl_kind, 1.14349055024235_dbl_kind, 1.14400065693341_dbl_kind, 1.14431622080219_dbl_kind, 1.14505462728835_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1406) = (/ 1.14208775422672_dbl_kind, 1.14269572091018_dbl_kind, 1.1432052958935_dbl_kind, 1.14352040078841_dbl_kind, 1.14425801685975_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1407) = (/ 1.14129477973983_dbl_kind, 1.14190202077695_dbl_kind, 1.14241106467249_dbl_kind, 1.14272571170933_dbl_kind, 1.14346253880559_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1408) = (/ 1.14050293064391_dbl_kind, 1.14110944758656_dbl_kind, 1.14161796101346_dbl_kind, 1.14193215130424_dbl_kind, 1.14266819086158_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1409) = (/ 1.13971220469315_dbl_kind, 1.14031799908944_dbl_kind, 1.14082598266604_dbl_kind, 1.14113971731904_dbl_kind, 1.14187497077_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1410) = (/ 1.13892259964829_dbl_kind, 1.13952767304264_dbl_kind, 1.14003512738646_dbl_kind, 1.14034840750619_dbl_kind, 1.14108287627977_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1411) = (/ 1.13813411327657_dbl_kind, 1.13873846720972_dbl_kind, 1.13924539293747_dbl_kind, 1.13955821962475_dbl_kind, 1.14029190514635_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1412) = (/ 1.13734674335179_dbl_kind, 1.13795037936075_dbl_kind, 1.13845677708838_dbl_kind, 1.13876915144026_dbl_kind, 1.13950205513176_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1413) = (/ 1.13656048765419_dbl_kind, 1.13716340727231_dbl_kind, 1.13766927761495_dbl_kind, 1.13798120072481_dbl_kind, 1.13871332400454_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1414) = (/ 1.13577534397051_dbl_kind, 1.13637754872745_dbl_kind, 1.13688289229944_dbl_kind, 1.13719436525698_dbl_kind, 1.13792570953973_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1415) = (/ 1.1349913100939_dbl_kind, 1.13559280151565_dbl_kind, 1.13609761893058_dbl_kind, 1.1364086428218_dbl_kind, 1.13713920951884_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1416) = (/ 1.13420838382395_dbl_kind, 1.13480916343284_dbl_kind, 1.13531345530351_dbl_kind, 1.13562403121076_dbl_kind, 1.13635382172985_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1417) = (/ 1.13342656296663_dbl_kind, 1.13402663228133_dbl_kind, 1.13453039921978_dbl_kind, 1.13484052822175_dbl_kind, 1.13556954396716_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1418) = (/ 1.1326458453343_dbl_kind, 1.13324520586983_dbl_kind, 1.13374844848732_dbl_kind, 1.13405813165908_dbl_kind, 1.1347863740316_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1419) = (/ 1.13186622874566_dbl_kind, 1.13246488201339_dbl_kind, 1.13296760092044_dbl_kind, 1.13327683933343_dbl_kind, 1.13400430973036_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1420) = (/ 1.13108771102575_dbl_kind, 1.13168565853341_dbl_kind, 1.13218785433979_dbl_kind, 1.13249664906184_dbl_kind, 1.13322334887701_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1421) = (/ 1.1303102900059_dbl_kind, 1.1309075332576_dbl_kind, 1.13140920657232_dbl_kind, 1.13171755866767_dbl_kind, 1.13244348929147_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1422) = (/ 1.12953396352374_dbl_kind, 1.13013050401996_dbl_kind, 1.1306316554513_dbl_kind, 1.13093956598061_dbl_kind, 1.13166472879996_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1423) = (/ 1.12875872942315_dbl_kind, 1.12935456866076_dbl_kind, 1.12985519881626_dbl_kind, 1.13016266883661_dbl_kind, 1.13088706523502_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1424) = (/ 1.12798458555427_dbl_kind, 1.12857972502653_dbl_kind, 1.12907983451298_dbl_kind, 1.12938686507791_dbl_kind, 1.13011049643547_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1425) = (/ 1.12721152977343_dbl_kind, 1.12780597096999_dbl_kind, 1.12830556039349_dbl_kind, 1.12861215255299_dbl_kind, 1.12933502024635_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1426) = (/ 1.12643955994319_dbl_kind, 1.12703330435011_dbl_kind, 1.12753237431602_dbl_kind, 1.12783852911654_dbl_kind, 1.12856063451898_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1427) = (/ 1.12566867393227_dbl_kind, 1.12626172303202_dbl_kind, 1.12676027414497_dbl_kind, 1.12706599262947_dbl_kind, 1.12778733711085_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1428) = (/ 1.12489886961555_dbl_kind, 1.12549122488701_dbl_kind, 1.12598925775094_dbl_kind, 1.12629454095886_dbl_kind, 1.12701512588567_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1429) = (/ 1.12413014487402_dbl_kind, 1.12472180779252_dbl_kind, 1.12521932301065_dbl_kind, 1.12552417197794_dbl_kind, 1.1262439987133_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1430) = (/ 1.12336249759482_dbl_kind, 1.12395346963209_dbl_kind, 1.12445046780695_dbl_kind, 1.12475488356609_dbl_kind, 1.12547395346976_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1431) = (/ 1.12259592567115_dbl_kind, 1.12318620829539_dbl_kind, 1.12368269002879_dbl_kind, 1.1239866736088_dbl_kind, 1.12470498803719_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1432) = (/ 1.1218304270023_dbl_kind, 1.12242002167812_dbl_kind, 1.12291598757121_dbl_kind, 1.12321953999765_dbl_kind, 1.12393710030382_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1433) = (/ 1.12106599949359_dbl_kind, 1.12165490768209_dbl_kind, 1.1221503583353_dbl_kind, 1.1224534806303_dbl_kind, 1.12317028816398_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1434) = (/ 1.12030264105638_dbl_kind, 1.12089086421509_dbl_kind, 1.12138580022819_dbl_kind, 1.12168849341045_dbl_kind, 1.12240454951807_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1435) = (/ 1.11954034960803_dbl_kind, 1.12012788919097_dbl_kind, 1.12062231116303_dbl_kind, 1.12092457624785_dbl_kind, 1.1216398822725_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1436) = (/ 1.11877912307189_dbl_kind, 1.11936598052953_dbl_kind, 1.11985988905896_dbl_kind, 1.12016172705823_dbl_kind, 1.12087628433973_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1437) = (/ 1.11801895937728_dbl_kind, 1.11860513615658_dbl_kind, 1.11909853184112_dbl_kind, 1.11939994376335_dbl_kind, 1.1201137536382_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1438) = (/ 1.11725985645943_dbl_kind, 1.11784535400386_dbl_kind, 1.11833823744057_dbl_kind, 1.11863922429089_dbl_kind, 1.11935228809234_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1439) = (/ 1.11650181225954_dbl_kind, 1.11708663200902_dbl_kind, 1.11757900379432_dbl_kind, 1.11787956657451_dbl_kind, 1.11859188563252_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1440) = (/ 1.11574482472469_dbl_kind, 1.11632896811567_dbl_kind, 1.1168208288453_dbl_kind, 1.11712096855378_dbl_kind, 1.11783254419507_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1441) = (/ 1.11498889180784_dbl_kind, 1.11557236027327_dbl_kind, 1.11606371054233_dbl_kind, 1.1163634281742_dbl_kind, 1.11707426172222_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1442) = (/ 1.11423401146781_dbl_kind, 1.11481680643716_dbl_kind, 1.1153076468401_dbl_kind, 1.11560694338713_dbl_kind, 1.11631703616209_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1443) = (/ 1.11348018166928_dbl_kind, 1.11406230456853_dbl_kind, 1.11455263569914_dbl_kind, 1.1148515121498_dbl_kind, 1.1155608654687_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1444) = (/ 1.11272740038272_dbl_kind, 1.11330885263439_dbl_kind, 1.11379867508584_dbl_kind, 1.11409713242528_dbl_kind, 1.11480574760189_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1445) = (/ 1.11197566558443_dbl_kind, 1.11255644860757_dbl_kind, 1.11304576297239_dbl_kind, 1.1133438021825_dbl_kind, 1.11405168052736_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1446) = (/ 1.11122497525649_dbl_kind, 1.11180509046668_dbl_kind, 1.11229389733675_dbl_kind, 1.11259151939614_dbl_kind, 1.11329866221662_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1447) = (/ 1.11047532738671_dbl_kind, 1.1110547761961_dbl_kind, 1.11154307616269_dbl_kind, 1.1118402820467_dbl_kind, 1.11254669064697_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1448) = (/ 1.10972671996868_dbl_kind, 1.11030550378595_dbl_kind, 1.1107932974397_dbl_kind, 1.11109008812044_dbl_kind, 1.11179576380148_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1449) = (/ 1.10897915100168_dbl_kind, 1.10955727123209_dbl_kind, 1.11004455916302_dbl_kind, 1.11034093560936_dbl_kind, 1.11104587966898_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1450) = (/ 1.10823261849071_dbl_kind, 1.10881007653609_dbl_kind, 1.10929685933359_dbl_kind, 1.10959282251117_dbl_kind, 1.11029703624403_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1451) = (/ 1.10748712044644_dbl_kind, 1.1080639177052_dbl_kind, 1.10855019595806_dbl_kind, 1.10884574682932_dbl_kind, 1.10954923152691_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1452) = (/ 1.10674265488522_dbl_kind, 1.10731879275233_dbl_kind, 1.10780456704872_dbl_kind, 1.1080997065729_dbl_kind, 1.10880246352359_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1453) = (/ 1.10599921982903_dbl_kind, 1.10657469969605_dbl_kind, 1.10705997062356_dbl_kind, 1.10735469975671_dbl_kind, 1.10805673024572_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1454) = (/ 1.10525681330546_dbl_kind, 1.10583163656058_dbl_kind, 1.10631640470615_dbl_kind, 1.10661072440116_dbl_kind, 1.10731202971059_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1455) = (/ 1.10451543334773_dbl_kind, 1.10508960137571_dbl_kind, 1.10557386732572_dbl_kind, 1.10586777853231_dbl_kind, 1.10656835994115_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1456) = (/ 1.10377507799463_dbl_kind, 1.10434859217685_dbl_kind, 1.10483235651707_dbl_kind, 1.10512586018181_dbl_kind, 1.10582571896594_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1457) = (/ 1.10303574529052_dbl_kind, 1.10360860700496_dbl_kind, 1.10409187032058_dbl_kind, 1.10438496738691_dbl_kind, 1.10508410481912_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1458) = (/ 1.10229743328528_dbl_kind, 1.10286964390658_dbl_kind, 1.10335240678219_dbl_kind, 1.10364509819042_dbl_kind, 1.1043435155404_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1459) = (/ 1.10156014003437_dbl_kind, 1.10213170093377_dbl_kind, 1.10261396395337_dbl_kind, 1.1029062506407_dbl_kind, 1.10360394917509_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1460) = (/ 1.10082386359871_dbl_kind, 1.10139477614409_dbl_kind, 1.10187653989112_dbl_kind, 1.10216842279165_dbl_kind, 1.10286540377399_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1461) = (/ 1.10008860204472_dbl_kind, 1.10065886760062_dbl_kind, 1.10114013265792_dbl_kind, 1.10143161270266_dbl_kind, 1.10212787739347_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1462) = (/ 1.09935435344431_dbl_kind, 1.0999239733719_dbl_kind, 1.10040474032174_dbl_kind, 1.10069581843863_dbl_kind, 1.10139136809535_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1463) = (/ 1.09862111587482_dbl_kind, 1.09919009153193_dbl_kind, 1.09967036095602_dbl_kind, 1.09996103806993_dbl_kind, 1.10065587394697_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1464) = (/ 1.09788888741902_dbl_kind, 1.09845722016015_dbl_kind, 1.09893699263963_dbl_kind, 1.09922726967237_dbl_kind, 1.09992139302113_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1465) = (/ 1.09715766616511_dbl_kind, 1.09772535734143_dbl_kind, 1.09820463345686_dbl_kind, 1.09849451132722_dbl_kind, 1.09918792339604_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1466) = (/ 1.09642745020668_dbl_kind, 1.09699450116603_dbl_kind, 1.09747328149742_dbl_kind, 1.09776276112115_dbl_kind, 1.09845546315539_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1467) = (/ 1.09569823764268_dbl_kind, 1.0962646497296_dbl_kind, 1.0967429348564_dbl_kind, 1.09703201714622_dbl_kind, 1.09772401038822_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1468) = (/ 1.09497002657744_dbl_kind, 1.09553580113314_dbl_kind, 1.09601359163424_dbl_kind, 1.09630227749989_dbl_kind, 1.096993563189_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1469) = (/ 1.09424281512062_dbl_kind, 1.09480795348301_dbl_kind, 1.09528524993676_dbl_kind, 1.09557354028497_dbl_kind, 1.09626411965756_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1470) = (/ 1.09351660138719_dbl_kind, 1.0940811048909_dbl_kind, 1.09455790787508_dbl_kind, 1.09484580360961_dbl_kind, 1.09553567789908_dbl_kind /) + iceMassExtinctionCrossSectionDiffuse(1:5 ,1471) = (/ 1.09279138349745_dbl_kind, 1.0933552534738_dbl_kind, 1.09383156356567_dbl_kind, 1.09411906558729_dbl_kind, 1.09480823602405_dbl_kind /) + + modalAsymmetryParameter5band(1:5 ,1) = (/ 0.283180657713357_dbl_kind, 0.209482088735706_dbl_kind, 0.166441061642889_dbl_kind, 0.138879205492097_dbl_kind, 0.0862017497093632_dbl_kind /) + modalAsymmetryParameter5band(1:5 ,2) = (/ 0.444732109704644_dbl_kind, 0.342651789871816_dbl_kind, 0.285303488980226_dbl_kind, 0.247698976619574_dbl_kind, 0.167948761949466_dbl_kind /) + modalAsymmetryParameter5band(1:5 ,3) = (/ 0.547091281292997_dbl_kind, 0.433969936661441_dbl_kind, 0.368367957620211_dbl_kind, 0.324886781461864_dbl_kind, 0.229171714711908_dbl_kind /) + modalAsymmetryParameter5band(1:5 ,4) = (/ 0.616967685845435_dbl_kind, 0.503089780780303_dbl_kind, 0.433284180500838_dbl_kind, 0.386200764739288_dbl_kind, 0.279644654892079_dbl_kind /) + modalAsymmetryParameter5band(1:5 ,5) = (/ 0.666598670419791_dbl_kind, 0.557497118318872_dbl_kind, 0.486364162004934_dbl_kind, 0.437315965706898_dbl_kind, 0.32323402731446_dbl_kind /) + modalAsymmetryParameter5band(1:5 ,6) = (/ 0.702842367361724_dbl_kind, 0.601186554981124_dbl_kind, 0.530715174055473_dbl_kind, 0.480926756372334_dbl_kind, 0.361764440902239_dbl_kind /) + modalAsymmetryParameter5band(1:5 ,7) = (/ 0.729916826617441_dbl_kind, 0.636706604014777_dbl_kind, 0.568216759394959_dbl_kind, 0.5185983947025_dbl_kind, 0.396259725869959_dbl_kind /) + modalAsymmetryParameter5band(1:5 ,8) = (/ 0.750549324881687_dbl_kind, 0.665849031271645_dbl_kind, 0.60016461579108_dbl_kind, 0.551378204757893_dbl_kind, 0.427376921191516_dbl_kind /) + modalAsymmetryParameter5band(1:5 ,9) = (/ 0.766559757465102_dbl_kind, 0.689942199993075_dbl_kind, 0.627527163812553_dbl_kind, 0.580037712812519_dbl_kind, 0.455582792418271_dbl_kind /) + modalAsymmetryParameter5band(1:5 ,10) = (/ 0.779191279240598_dbl_kind, 0.71000026362677_dbl_kind, 0.651064109101405_dbl_kind, 0.605182083087546_dbl_kind, 0.48123462598527_dbl_kind /) + + modalMassExtinctionCrossSection5band(1:5 ,1) = (/ 12944.1191669303_dbl_kind, 6433.8546129199_dbl_kind, 4379.35815079177_dbl_kind, 3492.51850776132_dbl_kind, 2271.71785345005_dbl_kind /) + modalMassExtinctionCrossSection5band(1:5 ,2) = (/ 12080.1397436577_dbl_kind, 7942.86489089621_dbl_kind, 5812.47284115357_dbl_kind, 4685.4656136674_dbl_kind, 2943.75841342826_dbl_kind /) + modalMassExtinctionCrossSection5band(1:5 ,3) = (/ 9752.02484228556_dbl_kind, 7698.94532514882_dbl_kind, 6190.90781492957_dbl_kind, 5232.51964498223_dbl_kind, 3463.69216361937_dbl_kind /) + modalMassExtinctionCrossSection5band(1:5 ,4) = (/ 7815.10345723545_dbl_kind, 6881.58135306449_dbl_kind, 5939.77102314034_dbl_kind, 5240.81549971547_dbl_kind, 3712.12933475335_dbl_kind /) + modalMassExtinctionCrossSection5band(1:5 ,5) = (/ 6381.18061078149_dbl_kind, 6007.04138576162_dbl_kind, 5453.04529077459_dbl_kind, 4977.11342455862_dbl_kind, 3753.42937518735_dbl_kind /) + modalMassExtinctionCrossSection5band(1:5 ,6) = (/ 5327.05076509938_dbl_kind, 5229.1647601636_dbl_kind, 4920.29504756471_dbl_kind, 4609.03071475928_dbl_kind, 3667.92739329671_dbl_kind /) + modalMassExtinctionCrossSection5band(1:5 ,7) = (/ 4538.29991082855_dbl_kind, 4575.50607606948_dbl_kind, 4417.44045147505_dbl_kind, 4220.99458200724_dbl_kind, 3514.14534131843_dbl_kind /) + modalMassExtinctionCrossSection5band(1:5 ,8) = (/ 3934.40205337053_dbl_kind, 4035.52102830084_dbl_kind, 3969.24444889817_dbl_kind, 3850.95782137369_dbl_kind, 3328.91108844436_dbl_kind /) + modalMassExtinctionCrossSection5band(1:5 ,9) = (/ 3461.43069443711_dbl_kind, 3590.1138938721_dbl_kind, 3579.26043074527_dbl_kind, 3513.60273858667_dbl_kind, 3133.888122911_dbl_kind /) + modalMassExtinctionCrossSection5band(1:5 ,10) = (/ 3083.24574223473_dbl_kind, 3220.83851695162_dbl_kind, 3243.02488284297_dbl_kind, 3212.5874258974_dbl_kind, 2941.20365863075_dbl_kind /) + + modalSingleScatterAlbedo5band(1:5 ,1) = (/ 0.260958704071654_dbl_kind, 0.16805845111727_dbl_kind, 0.11411468355425_dbl_kind, 0.0845902711417414_dbl_kind, 0.0447050517464244_dbl_kind /) + modalSingleScatterAlbedo5band(1:5 ,2) = (/ 0.375522113298175_dbl_kind, 0.31235052399053_dbl_kind, 0.26288498209907_dbl_kind, 0.22723691750397_dbl_kind, 0.159075641626696_dbl_kind /) + modalSingleScatterAlbedo5band(1:5 ,3) = (/ 0.422185378147481_dbl_kind, 0.376555779043625_dbl_kind, 0.33936407097995_dbl_kind, 0.310215627605754_dbl_kind, 0.245905521445928_dbl_kind /) + modalSingleScatterAlbedo5band(1:5 ,4) = (/ 0.447724362399737_dbl_kind, 0.411125469751176_dbl_kind, 0.382216922622453_dbl_kind, 0.358710570753989_dbl_kind, 0.302535187827444_dbl_kind /) + modalSingleScatterAlbedo5band(1:5 ,5) = (/ 0.464398385288602_dbl_kind, 0.432573637322427_dbl_kind, 0.40912325097991_dbl_kind, 0.389777582190663_dbl_kind, 0.340897831337878_dbl_kind /) + modalSingleScatterAlbedo5band(1:5 ,6) = (/ 0.476625494212487_dbl_kind, 0.447308005754231_dbl_kind, 0.427510535024552_dbl_kind, 0.411226212689519_dbl_kind, 0.368348762641282_dbl_kind /) + modalSingleScatterAlbedo5band(1:5 ,7) = (/ 0.486304785993923_dbl_kind, 0.458261662359298_dbl_kind, 0.440925436651717_dbl_kind, 0.426916054656286_dbl_kind, 0.38894085673284_dbl_kind /) + modalSingleScatterAlbedo5band(1:5 ,8) = (/ 0.494354868140575_dbl_kind, 0.4669281500285_dbl_kind, 0.451247969458627_dbl_kind, 0.43894010429319_dbl_kind, 0.40499178204751_dbl_kind /) + modalSingleScatterAlbedo5band(1:5 ,9) = (/ 0.501264988054309_dbl_kind, 0.47412360289998_dbl_kind, 0.459551339156444_dbl_kind, 0.448519783558473_dbl_kind, 0.417901240195357_dbl_kind /) + modalSingleScatterAlbedo5band(1:5 ,10) = (/ 0.507319636821098_dbl_kind, 0.480317417860846_dbl_kind, 0.466481312779405_dbl_kind, 0.456408044720941_dbl_kind, 0.428557864653526_dbl_kind /) + + modalBCabsorptionParameter5band(1:5 ,1,1) = (/ 2.01085868366548_dbl_kind, 2.04133313210786_dbl_kind, 2.07508000300547_dbl_kind, 1.96633438024084_dbl_kind, 1.41689382160734_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,2,1) = (/ 2.06240193763163_dbl_kind, 2.00779624447446_dbl_kind, 2.03535206238544_dbl_kind, 1.93696335633222_dbl_kind, 1.42085892146856_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,3,1) = (/ 2.16245417515345_dbl_kind, 2.03367512749659_dbl_kind, 2.03217185662912_dbl_kind, 1.92216538758257_dbl_kind, 1.41057880313765_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,4,1) = (/ 2.26075013581323_dbl_kind, 2.08270396815669_dbl_kind, 2.05598320187322_dbl_kind, 1.93005028646658_dbl_kind, 1.40362921606229_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,5,1) = (/ 2.34824623202129_dbl_kind, 2.13751008192628_dbl_kind, 2.09204530638863_dbl_kind, 1.95135851042228_dbl_kind, 1.4023767146298_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,6,1) = (/ 2.4245821026032_dbl_kind, 2.19151236157797_dbl_kind, 2.13262602986381_dbl_kind, 1.97935233613122_dbl_kind, 1.40560606928656_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,7,1) = (/ 2.49120967497054_dbl_kind, 2.24239779808293_dbl_kind, 2.17377807033259_dbl_kind, 2.01017733622214_dbl_kind, 1.41189694037042_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,8,1) = (/ 2.54974120400747_dbl_kind, 2.2895387842995_dbl_kind, 2.21382769032984_dbl_kind, 2.04172990500999_dbl_kind, 1.42017827052267_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,9,1) = (/ 2.60156969843265_dbl_kind, 2.33296656241086_dbl_kind, 2.25201772913892_dbl_kind, 2.07288930404508_dbl_kind, 1.42971387107226_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,10,1) = (/ 2.64782205756202_dbl_kind, 2.37295227907137_dbl_kind, 2.28808322951764_dbl_kind, 2.10308108574029_dbl_kind, 1.44000988888373_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,1,2) = (/ 1.93095248830255_dbl_kind, 2.00671847586146_dbl_kind, 2.00719477963142_dbl_kind, 1.84522141815519_dbl_kind, 1.0759084306113_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,2,2) = (/ 1.9692253934491_dbl_kind, 1.97261097531431_dbl_kind, 1.97018044809597_dbl_kind, 1.81698805576196_dbl_kind, 1.07910761278501_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,3,2) = (/ 2.0569305238012_dbl_kind, 1.99733517977522_dbl_kind, 1.96791189681145_dbl_kind, 1.80196522204901_dbl_kind, 1.07130151751929_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,4,2) = (/ 2.14496096212491_dbl_kind, 2.04502142936022_dbl_kind, 1.99149039012804_dbl_kind, 1.80835190349595_dbl_kind, 1.06588237810724_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,5,2) = (/ 2.22407771486646_dbl_kind, 2.09850387281167_dbl_kind, 2.02679018049782_dbl_kind, 1.82750693049481_dbl_kind, 1.06472566849715_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,6,2) = (/ 2.29354361051981_dbl_kind, 2.15127410474977_dbl_kind, 2.06629477010126_dbl_kind, 1.85307952087923_dbl_kind, 1.06695130591868_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,7,2) = (/ 2.35447198629787_dbl_kind, 2.20103710784166_dbl_kind, 2.10637650326798_dbl_kind, 1.88142263401342_dbl_kind, 1.07150133206641_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,8,2) = (/ 2.40820994383032_dbl_kind, 2.24716243339933_dbl_kind, 2.14535203369221_dbl_kind, 1.91053883285925_dbl_kind, 1.07757202807584_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,9,2) = (/ 2.45595109315931_dbl_kind, 2.28967140910979_dbl_kind, 2.18249764512321_dbl_kind, 1.93935882511077_dbl_kind, 1.08460855322213_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,10,2) = (/ 2.49867376345289_dbl_kind, 2.32882370197717_dbl_kind, 2.21756305829645_dbl_kind, 1.96733017018785_dbl_kind, 1.09223739315287_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,1,3) = (/ 1.91585309392631_dbl_kind, 1.96967352324366_dbl_kind, 1.96009968122517_dbl_kind, 1.68080965604958_dbl_kind, 0.59179696632248_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,2,3) = (/ 1.95350884507749_dbl_kind, 1.93742852972506_dbl_kind, 1.92365694040103_dbl_kind, 1.65420258116929_dbl_kind, 0.593740739460229_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,3,3) = (/ 2.04035073356608_dbl_kind, 1.96236202642718_dbl_kind, 1.92122593826873_dbl_kind, 1.6389418244479_dbl_kind, 0.589846868165608_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,4,3) = (/ 2.12759603009265_dbl_kind, 2.00961752368397_dbl_kind, 1.94409212769693_dbl_kind, 1.6433504376276_dbl_kind, 0.587192323341285_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,5,3) = (/ 2.20604474780993_dbl_kind, 2.06245283901475_dbl_kind, 1.97843797212714_dbl_kind, 1.65962990443543_dbl_kind, 0.586790173437158_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,6,3) = (/ 2.27494671729217_dbl_kind, 2.11452075480442_dbl_kind, 2.01700243919087_dbl_kind, 1.68195669719917_dbl_kind, 0.588180543026505_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,7,3) = (/ 2.33539514630735_dbl_kind, 2.16358888576982_dbl_kind, 2.05606743772564_dbl_kind, 1.70696657730997_dbl_kind, 0.590803092976719_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,8,3) = (/ 2.38871953142276_dbl_kind, 2.20905043144983_dbl_kind, 2.09406451723796_dbl_kind, 1.7328071260566_dbl_kind, 0.594230523360484_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,9,3) = (/ 2.43609975131583_dbl_kind, 2.25093431540464_dbl_kind, 2.1302842143625_dbl_kind, 1.75847955247898_dbl_kind, 0.598167328207445_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,10,3) = (/ 2.47850378585028_dbl_kind, 2.28950111063737_dbl_kind, 2.16448018258101_dbl_kind, 1.78346181192778_dbl_kind, 0.602414429295388_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,1,4) = (/ 1.90672644767849_dbl_kind, 1.95728818232617_dbl_kind, 1.91897760144748_dbl_kind, 1.52351339105988_dbl_kind, 0.2856750536761_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,2,4) = (/ 1.94433061417967_dbl_kind, 1.92520391124637_dbl_kind, 1.88324629837065_dbl_kind, 1.49885892176041_dbl_kind, 0.286675433333491_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,3,4) = (/ 2.03088473930652_dbl_kind, 1.94993972535292_dbl_kind, 1.88079705335263_dbl_kind, 1.4841126290055_dbl_kind, 0.285045919810642_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,4,4) = (/ 2.11781824183707_dbl_kind, 1.99686494434747_dbl_kind, 1.90313037410511_dbl_kind, 1.48729958815793_dbl_kind, 0.283994128672286_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,5,4) = (/ 2.19597517944483_dbl_kind, 2.04934129186202_dbl_kind, 1.93671708289151_dbl_kind, 1.50138740089174_dbl_kind, 0.283979887790801_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,6,4) = (/ 2.26461303017531_dbl_kind, 2.10106009736148_dbl_kind, 1.97435597077173_dbl_kind, 1.521073249671_dbl_kind, 0.284789256577519_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,7,4) = (/ 2.3248240816686_dbl_kind, 2.14980196580654_dbl_kind, 2.01256991861794_dbl_kind, 1.54328272090356_dbl_kind, 0.286162594084878_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,8,4) = (/ 2.3779349732592_dbl_kind, 2.1949631106279_dbl_kind, 2.04974391892188_dbl_kind, 1.56631751882822_dbl_kind, 0.287901980282528_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,9,4) = (/ 2.42512255483062_dbl_kind, 2.23657164478165_dbl_kind, 2.08518221689877_dbl_kind, 1.58925799258076_dbl_kind, 0.2898706320179_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,10,4) = (/ 2.46735205354131_dbl_kind, 2.274886005391_dbl_kind, 2.1186427508733_dbl_kind, 1.61162011811624_dbl_kind, 0.291976528925237_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,1,5) = (/ 1.89867647191471_dbl_kind, 1.94807456713651_dbl_kind, 1.881998255131_dbl_kind, 1.4042673172787_dbl_kind, 0.160591841632584_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,2,5) = (/ 1.93619524467095_dbl_kind, 1.91604124756277_dbl_kind, 1.84690908713309_dbl_kind, 1.38128161669944_dbl_kind, 0.161178869198082_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,3,5) = (/ 2.0223409055861_dbl_kind, 1.94057626469304_dbl_kind, 1.84443760681477_dbl_kind, 1.3673028890037_dbl_kind, 0.160360280890161_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,4,5) = (/ 2.10882091872199_dbl_kind, 1.98721817857084_dbl_kind, 1.86628271260137_dbl_kind, 1.36990699665007_dbl_kind, 0.159858752620932_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,5,5) = (/ 2.18654488079119_dbl_kind, 2.03940039330662_dbl_kind, 1.89917614160759_dbl_kind, 1.38261979356805_dbl_kind, 0.159921181308761_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,6,5) = (/ 2.25478556857455_dbl_kind, 2.09083933491043_dbl_kind, 1.93605537053396_dbl_kind, 1.40054119827002_dbl_kind, 0.160430275376893_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,7,5) = (/ 2.31463677856253_dbl_kind, 2.13932311562854_dbl_kind, 1.97350315915034_dbl_kind, 1.42082635090228_dbl_kind, 0.161244236354913_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,8,5) = (/ 2.36742266598385_dbl_kind, 2.18424880883966_dbl_kind, 2.00993636804643_dbl_kind, 1.44190170672523_dbl_kind, 0.162255036646285_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,9,5) = (/ 2.41431655157797_dbl_kind, 2.22564299805269_dbl_kind, 2.04467151274813_dbl_kind, 1.46291363103416_dbl_kind, 0.163388069865313_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,10,5) = (/ 2.45628005869902_dbl_kind, 2.26376189572524_dbl_kind, 2.07747034796467_dbl_kind, 1.48341153176869_dbl_kind, 0.164593206197625_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,1,6) = (/ 1.89418663016821_dbl_kind, 1.94091710412984_dbl_kind, 1.84622848287114_dbl_kind, 1.30255089681936_dbl_kind, 0.098483858462836_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,2,6) = (/ 1.93159232417903_dbl_kind, 1.90886115724064_dbl_kind, 1.81172529149757_dbl_kind, 1.28111548264923_dbl_kind, 0.0988562059622643_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,3,6) = (/ 2.01753914444024_dbl_kind, 1.93319311880197_dbl_kind, 1.80921451143445_dbl_kind, 1.26796068554138_dbl_kind, 0.0983978116731492_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,4,6) = (/ 2.10383351130493_dbl_kind, 1.97958216029892_dbl_kind, 1.83057653581059_dbl_kind, 1.27021211695359_dbl_kind, 0.0981299700083134_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,5,6) = (/ 2.18140322971526_dbl_kind, 2.03149297511205_dbl_kind, 1.86279162835321_dbl_kind, 1.28187019646779_dbl_kind, 0.098199185372061_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,6,6) = (/ 2.24951550749452_dbl_kind, 2.08269363694761_dbl_kind, 1.89892485058734_dbl_kind, 1.29838388707867_dbl_kind, 0.0985349399895448_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,7,6) = (/ 2.30926076563282_dbl_kind, 2.13096027537119_dbl_kind, 1.93562599960626_dbl_kind, 1.3171088717836_dbl_kind, 0.0990521610544031_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,8,6) = (/ 2.36195834728809_dbl_kind, 2.17568957538176_dbl_kind, 1.97133789840367_dbl_kind, 1.33658147936655_dbl_kind, 0.0996860550013943_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,9,6) = (/ 2.40877775516896_dbl_kind, 2.21690619911267_dbl_kind, 2.0053887500366_dbl_kind, 1.35600690986615_dbl_kind, 0.100391895795296_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,10,6) = (/ 2.45067776198751_dbl_kind, 2.25486408585975_dbl_kind, 2.03754387915688_dbl_kind, 1.37496497414564_dbl_kind, 0.101139658510172_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,1,7) = (/ 1.8898407988674_dbl_kind, 1.93349866190539_dbl_kind, 1.81165805631067_dbl_kind, 1.21086211627226_dbl_kind, 0.0639927299752619_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,2,7) = (/ 1.92726743592625_dbl_kind, 1.90143347118491_dbl_kind, 1.77772917537379_dbl_kind, 1.19106001747711_dbl_kind, 0.064241780706825_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,3,7) = (/ 2.01310466603341_dbl_kind, 1.92556961967173_dbl_kind, 1.77518652640106_dbl_kind, 1.17869634139483_dbl_kind, 0.0639657849860226_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,4,7) = (/ 2.09927399606475_dbl_kind, 1.97170510850255_dbl_kind, 1.79608613617107_dbl_kind, 1.18057464600288_dbl_kind, 0.0638113078299023_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,5,7) = (/ 2.17672489152732_dbl_kind, 2.02337778137591_dbl_kind, 1.82764917978241_dbl_kind, 1.19116266115224_dbl_kind, 0.0638713068477278_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,6,7) = (/ 2.2447323037953_dbl_kind, 2.07433923799976_dbl_kind, 1.86305867559311_dbl_kind, 1.20841096309504_dbl_kind, 0.0641007406105561_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,7,7) = (/ 2.30438425846541_dbl_kind, 2.12238686220719_dbl_kind, 1.89904000093039_dbl_kind, 1.22579100032108_dbl_kind, 0.0644452998987116_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,8,7) = (/ 2.3569984474224_dbl_kind, 2.16691740841079_dbl_kind, 1.93405621565909_dbl_kind, 1.24387586495275_dbl_kind, 0.0648636211415022_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,9,7) = (/ 2.4037427324266_dbl_kind, 2.20795386848329_dbl_kind, 1.96744690263512_dbl_kind, 1.2619237632143_dbl_kind, 0.0653271600625114_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,10,7) = (/ 2.44557448046568_dbl_kind, 2.24574805834547_dbl_kind, 1.99898089500271_dbl_kind, 1.27954213788229_dbl_kind, 0.0658167678826765_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,1,8) = (/ 1.88623754217592_dbl_kind, 1.9263648659218_dbl_kind, 1.77795918152236_dbl_kind, 1.13227177143423_dbl_kind, 0.0434147123324349_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,2,8) = (/ 1.92369424467697_dbl_kind, 1.8942558864284_dbl_kind, 1.74459158351539_dbl_kind, 1.1135113265668_dbl_kind, 0.0435893033924684_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,3,8) = (/ 2.00945846267708_dbl_kind, 1.91818299493273_dbl_kind, 1.74202123236172_dbl_kind, 1.10187775406683_dbl_kind, 0.043414854260165_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,4,8) = (/ 2.09554589746963_dbl_kind, 1.96406200367393_dbl_kind, 1.76247271743548_dbl_kind, 1.10366507349996_dbl_kind, 0.0433211088148566_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,5,8) = (/ 2.17292182481109_dbl_kind, 2.01547921320266_dbl_kind, 1.79340178912967_dbl_kind, 1.11366185926902_dbl_kind, 0.0433701544141689_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,6,8) = (/ 2.24086221282091_dbl_kind, 2.06620238481792_dbl_kind, 1.82812292792437_dbl_kind, 1.12790506098243_dbl_kind, 0.0435319637410063_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,7,8) = (/ 2.30045372513647_dbl_kind, 2.11403292203795_dbl_kind, 1.86340498643423_dbl_kind, 1.14408997199748_dbl_kind, 0.0437702684169416_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,8,8) = (/ 2.35301272208646_dbl_kind, 2.15836713295615_dbl_kind, 1.89774509946483_dbl_kind, 1.16093986738741_dbl_kind, 0.0440574325725808_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,9,8) = (/ 2.39970609592023_dbl_kind, 2.19922606974399_dbl_kind, 1.9304940073545_dbl_kind, 1.17776068893983_dbl_kind, 0.044374386922134_dbl_kind /) + modalBCabsorptionParameter5band(1:5 ,10,8) = (/ 2.44149053760016_dbl_kind, 2.23685927813827_dbl_kind, 1.96142401595058_dbl_kind, 1.19418484664932_dbl_kind, 0.0447083456286085_dbl_kind /) + + bcEffectiveRadius (1:nModal1) = (/ 0.05_dbl_kind, 0.1_dbl_kind, 0.15_dbl_kind, 0.2_dbl_kind, 0.25_dbl_kind, 0.3_dbl_kind, 0.35_dbl_kind, 0.4_dbl_kind, 0.45_dbl_kind, 0.5_dbl_kind /) + + iceGrainEffectiveRadius (1:nModal2) = (/ 50_dbl_kind, 100_dbl_kind, 250_dbl_kind, 500_dbl_kind, 750_dbl_kind, 1000_dbl_kind, 1250_dbl_kind, 1500_dbl_kind /) + + aerosolAsymmetryParameter5band(1:5 ,1) = (/ 0.350231881885906_dbl_kind, 0.211924244128064_dbl_kind, 0.146188682542913_dbl_kind, 0.112009439045293_dbl_kind, 0.060565694843084_dbl_kind /) + aerosolAsymmetryParameter5band(1:5 ,2) = (/ 0.521517715996158_dbl_kind, 0.34457189840306_dbl_kind, 0.244048159248401_dbl_kind, 0.188518513380877_dbl_kind, 0.103316928297739_dbl_kind /) + aerosolAsymmetryParameter5band(1:5 ,3) = (/ 0.690908112844937_dbl_kind, 0.717759065247993_dbl_kind, 0.671511248292627_dbl_kind, 0.614225462567888_dbl_kind, 0.436682950958558_dbl_kind /) + aerosolAsymmetryParameter5band(1:5 ,4) = (/ 0.699478684452806_dbl_kind, 0.651992387581091_dbl_kind, 0.695738438913831_dbl_kind, 0.724417176862696_dbl_kind, 0.701481090364134_dbl_kind /) + aerosolAsymmetryParameter5band(1:5 ,5) = (/ 0.785636278417498_dbl_kind, 0.749796744517699_dbl_kind, 0.683301177698451_dbl_kind, 0.629720518882672_dbl_kind, 0.665531587501598_dbl_kind /) + aerosolAsymmetryParameter5band(1:5 ,6) = (/ 0.829747716843613_dbl_kind, 0.785685490791679_dbl_kind, 0.772583689570701_dbl_kind, 0.757648539242581_dbl_kind, 0.728843851070574_dbl_kind /) + + aerosolMassExtinctionCrossSection5band(1:5 ,1) = (/ 11398.4540724821_dbl_kind, 5922.76076637376_dbl_kind, 4039.88947595266_dbl_kind, 3261.62137894056_dbl_kind, 2223.60028513459_dbl_kind /) + aerosolMassExtinctionCrossSection5band(1:5 ,2) = (/ 25368.6111954733_dbl_kind, 12520.3846877849_dbl_kind, 7738.643174918_dbl_kind, 5744.35461327268_dbl_kind, 3526.76546641382_dbl_kind /) + aerosolMassExtinctionCrossSection5band(1:5 ,3) = (/ 2686.90326329624_dbl_kind, 2419.98140297723_dbl_kind, 1627.51690973548_dbl_kind, 1138.23252303209_dbl_kind, 466.104227277046_dbl_kind /) + aerosolMassExtinctionCrossSection5band(1:5 ,4) = (/ 841.089434044834_dbl_kind, 987.406197502421_dbl_kind, 1183.52284776972_dbl_kind, 1267.30625580205_dbl_kind, 993.497508579304_dbl_kind /) + aerosolMassExtinctionCrossSection5band(1:5 ,5) = (/ 387.85423560755_dbl_kind, 419.109723948302_dbl_kind, 399.559447343404_dbl_kind, 397.191283865122_dbl_kind, 503.14317519429_dbl_kind /) + aerosolMassExtinctionCrossSection5band(1:5 ,6) = (/ 196.638063554016_dbl_kind, 202.877379461792_dbl_kind, 208.304425287341_dbl_kind, 204.723737634461_dbl_kind, 228.755667038372_dbl_kind /) + + aerosolSingleScatterAlbedo5band(1:5 ,1) = (/ 0.287685315976181_dbl_kind, 0.186577277125224_dbl_kind, 0.123152237089201_dbl_kind, 0.0883462885905543_dbl_kind, 0.0403421562269378_dbl_kind /) + aerosolSingleScatterAlbedo5band(1:5 ,2) = (/ 0.515945305512804_dbl_kind, 0.434313626536424_dbl_kind, 0.346103765992635_dbl_kind, 0.275522926330555_dbl_kind, 0.138576096442815_dbl_kind /) + aerosolSingleScatterAlbedo5band(1:5 ,3) = (/ 0.97891105715305_dbl_kind, 0.994175916042451_dbl_kind, 0.993357580762207_dbl_kind, 0.992545751316266_dbl_kind, 0.953291550046772_dbl_kind /) + aerosolSingleScatterAlbedo5band(1:5 ,4) = (/ 0.943752248802793_dbl_kind, 0.984191668599419_dbl_kind, 0.989309063917025_dbl_kind, 0.991793946836264_dbl_kind, 0.982999590668913_dbl_kind /) + aerosolSingleScatterAlbedo5band(1:5 ,5) = (/ 0.904044530646049_dbl_kind, 0.964651629694555_dbl_kind, 0.968275809551522_dbl_kind, 0.972598419874107_dbl_kind, 0.977612418329876_dbl_kind /) + aerosolSingleScatterAlbedo5band(1:5 ,6) = (/ 0.849818195355416_dbl_kind, 0.940460325044343_dbl_kind, 0.948316305534169_dbl_kind, 0.952841175117807_dbl_kind, 0.955379528193802_dbl_kind /) + +! Copy to local variables + + if (nSpectralIntervalsSNICAR /= nspint_5bd) then + call icepack_warnings_setabort(.true.,__FILE__,__LINE__) + call icepack_warnings_add(subname//' ERROR: nSpectralIntervalsSNICAR ne nspint_5bd') + return + endif + + nmbrad_snicar = nSnowGrainRadiusSNICAR + nmodal1_snicar = nModal1 + nmodal2_snicar = nModal2 + nmaeros_snicar = maxAerosolType + +!echmod - this might not be needed + rsnw_snicar_min = 30 ! minimum snow grain radius + rsnw_snicar_max = 1500 ! maximum snow grain radius + allocate(rsnw_snicar_tab(nmbrad_snicar)) + rsnw_snicar_tab(1) = real(rsnw_snicar_min,dbl_kind) + do n = 1, nmbrad_snicar-1 + rsnw_snicar_tab(n+1) = rsnw_snicar_tab(n) + 1.0_dbl_kind + enddo + + if (allocated(ssp_bcerad )) deallocate(ssp_bcerad ) + if (allocated(ssp_bcgrerad)) deallocate(ssp_bcgrerad) + if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) + if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) + if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) + if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) + if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) + if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) + if (allocated(ssp_aasymmmd)) deallocate(ssp_aasymmmd) + if (allocated(ssp_aerextmd)) deallocate(ssp_aerextmd) + if (allocated(ssp_aeralbmd)) deallocate(ssp_aeralbmd) + if (allocated(ssp_aasymm )) deallocate(ssp_aasymm ) + if (allocated(ssp_aerext )) deallocate(ssp_aerext ) + if (allocated(ssp_aeralb )) deallocate(ssp_aeralb ) + if (allocated(ssp_abcenhmd)) deallocate(ssp_abcenhmd) + + allocate(ssp_bcerad (nmodal1_snicar)) ! ?, bcEffectiveRadius + allocate(ssp_bcgrerad(nmodal2_snicar)) ! ?, iceGrainEffectiveRadius + allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, direct + allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, diffuse + allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, direct + allocate(ssp_snwalbdf(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, diffuse + allocate(ssp_sasymmdr(nspint_5bd,nmbrad_snicar )) ! snow asymmetry factor, direct + allocate(ssp_sasymmdf(nspint_5bd,nmbrad_snicar )) ! snow asymmetry factor, diffuse + allocate(ssp_aasymmmd(nspint_5bd,nmodal1_snicar)) ! gaer_bc_5bd, modalAsymmetryParameter5band + allocate(ssp_aerextmd(nspint_5bd,nmodal1_snicar)) ! kaer_bc_5bd, modalMassExtinctionCrossSection5band + allocate(ssp_aeralbmd(nspint_5bd,nmodal1_snicar)) ! waer_bc_5bd, modalSingleScatterAlbedo5band + allocate(ssp_aasymm (nspint_5bd,nmaeros_snicar)) ! gaer_5bd, aerosolAsymmetryParameter5band + allocate(ssp_aerext (nspint_5bd,nmaeros_snicar)) ! kaer_5bd, aerosolMassExtinctionCrossSection5band + allocate(ssp_aeralb (nspint_5bd,nmaeros_snicar)) ! waer_5bd, aerosolSingleScatterAlbedo5band + allocate(ssp_abcenhmd(nspint_5bd,nmodal1_snicar,nmodal2_snicar)) ! bcenh_5bd, modalBCabsorptionParameter5band + + ssp_bcerad (:) = bcEffectiveRadius(:) + ssp_bcgrerad(:) = iceGrainEffectiveRadius(:) + ssp_snwextdr(:,:) = iceMassExtinctionCrossSectionDirect(:,:) + ssp_snwextdf(:,:) = iceMassExtinctionCrossSectionDiffuse(:,:) + ssp_snwalbdr(:,:) = iceSingleScatterAlbedoDirect(:,:) + ssp_snwalbdf(:,:) = iceSingleScatterAlbedoDiffuse(:,:) + ssp_sasymmdr(:,:) = iceAsymmetryParameterDirect(:,:) + ssp_sasymmdf(:,:) = iceAsymmetryParameterDiffuse(:,:) + ssp_aasymmmd(:,:) = modalAsymmetryParameter5band(:,:) + ssp_aerextmd(:,:) = modalMassExtinctionCrossSection5band(:,:) + ssp_aeralbmd(:,:) = modalSingleScatterAlbedo5band(:,:) + ssp_aasymm (:,:) = aerosolAsymmetryParameter5band(:,:) + ssp_aerext (:,:) = aerosolMassExtinctionCrossSection5band(:,:) + ssp_aeralb (:,:) = aerosolSingleScatterAlbedo5band(:,:) + ssp_abcenhmd(:,:,:) = modalBCabsorptionParameter5band(:,:,:) + + deallocate(iceAsymmetryParameterDirect) + deallocate(iceAsymmetryParameterDiffuse) + deallocate(iceSingleScatterAlbedoDirect) + deallocate(iceSingleScatterAlbedoDiffuse) + deallocate(iceMassExtinctionCrossSectionDirect) + deallocate(iceMassExtinctionCrossSectionDiffuse) + deallocate(modalAsymmetryParameter5band) + deallocate(modalMassExtinctionCrossSection5band) + deallocate(modalSingleScatterAlbedo5band) + deallocate(modalBCabsorptionParameter5band) + deallocate(bcEffectiveRadius) + deallocate(iceGrainEffectiveRadius) + deallocate(aerosolAsymmetryParameter5band) + deallocate(aerosolMassExtinctionCrossSection5band) + deallocate(aerosolSingleScatterAlbedo5band) + + end subroutine icepack_shortwave_init_snicar + +!======================================================================= + + end module icepack_shortwave_data + +!======================================================================= diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90 index b5a66d7a7..67ff654b7 100644 --- a/configuration/driver/icedrv_init.F90 +++ b/configuration/driver/icedrv_init.F90 @@ -758,7 +758,7 @@ subroutine input_data if (trim(shortwave) == 'dEdd_snicar') then write(nu_diag,1030) ' snw_ssp_table = ', trim(snw_ssp_table) - if (trim(snw_ssp_table) /= 'test') then + if (trim(snw_ssp_table) == 'snicarfile') then write(nu_diag,1030) ' ssp_filename = ', trim(ssp_filename) write(nu_diag,1030) ' ssp_nsrad_fname = ', trim(ssp_nsrad_fname) write(nu_diag,1030) ' ssp_nspint_fname = ', trim(ssp_nspint_fname) diff --git a/configuration/driver/icedrv_init_column.F90 b/configuration/driver/icedrv_init_column.F90 index 86c1cdf86..11630c1cc 100644 --- a/configuration/driver/icedrv_init_column.F90 +++ b/configuration/driver/icedrv_init_column.F90 @@ -234,7 +234,7 @@ subroutine init_shortwave call icepack_warnings_flush(nu_diag) if (icepack_warnings_aborted()) call icedrv_system_abort(string=subname, & file=__FILE__,line= __LINE__) - if (trim(snw_ssp_table) /= 'test') then + if (trim(snw_ssp_table) == 'snicarfile') then call init_snicarssptable() endif endif diff --git a/configuration/scripts/options/set_env.snicarfile b/configuration/scripts/options/set_env.snicarfile new file mode 100644 index 000000000..7ac74351d --- /dev/null +++ b/configuration/scripts/options/set_env.snicarfile @@ -0,0 +1,2 @@ +setenv ICE_IOTYPE netcdf +setenv ICE_NXGLOB 1 diff --git a/configuration/scripts/options/set_env.snicartest b/configuration/scripts/options/set_env.snicartest new file mode 100644 index 000000000..7ac74351d --- /dev/null +++ b/configuration/scripts/options/set_env.snicartest @@ -0,0 +1,2 @@ +setenv ICE_IOTYPE netcdf +setenv ICE_NXGLOB 1 diff --git a/configuration/scripts/options/set_nml.snicar b/configuration/scripts/options/set_nml.snicar index ce1521d04..488cdfd9e 100644 --- a/configuration/scripts/options/set_nml.snicar +++ b/configuration/scripts/options/set_nml.snicar @@ -1,23 +1,2 @@ shortwave = 'dEdd_snicar' snw_ssp_table = 'snicar' - ssp_filename = 'ICE_MACHINE_INPUTDATA/CICE_data/forcing/snicar_optics_5bnd_snow_and_aerosols.nc' - ssp_nsrad_fname = 'nSnowGrainRadiusSNICAR' - ssp_nspint_fname = 'nSpectralIntervalsSNICAR' - ssp_nmodal1_fname = 'nModal1' - ssp_nmodal2_fname = 'nModal2' - ssp_nmaeros_fname = 'maxAerosolType' - ssp_bcerad_fname = 'bcEffectiveRadius' - ssp_bcgrerad_fname = 'iceGrainEffectiveRadius' - ssp_snwextdr_fname = 'iceMassExtinctionCrossSectionDirect' - ssp_snwextdf_fname = 'iceMassExtinctionCrossSectionDiffuse' - ssp_snwalbdr_fname = 'iceSingleScatterAlbedoDirect' - ssp_snwalbdf_fname = 'iceSingleScatterAlbedoDiffuse' - ssp_sasymmdr_fname = 'iceAsymmetryParameterDirect' - ssp_sasymmdf_fname = 'iceAsymmetryParameterDiffuse' - ssp_aasymmmd_fname = 'modalAsymmetryParameter5band' - ssp_aerextmd_fname = 'modalMassExtinctionCrossSection5band' - ssp_aeralbmd_fname = 'modalSingleScatterAlbedo5band' - ssp_aasymm_fname = 'aerosolAsymmetryParameter5band' - ssp_aerext_fname = 'aerosolMassExtinctionCrossSection5band' - ssp_aeralb_fname = 'aerosolSingleScatterAlbedo5band' - ssp_abcenhmd_fname = 'modalBCabsorptionParameter5band' diff --git a/configuration/scripts/options/set_nml.snicarfile b/configuration/scripts/options/set_nml.snicarfile new file mode 100644 index 000000000..a12203bba --- /dev/null +++ b/configuration/scripts/options/set_nml.snicarfile @@ -0,0 +1,23 @@ + shortwave = 'dEdd_snicar' + snw_ssp_table = 'snicarfile' + ssp_filename = 'ICE_MACHINE_INPUTDATA/CICE_data/forcing/snicar_optics_5bnd_snow_and_aerosols.nc' + ssp_nsrad_fname = 'nSnowGrainRadiusSNICAR' + ssp_nspint_fname = 'nSpectralIntervalsSNICAR' + ssp_nmodal1_fname = 'nModal1' + ssp_nmodal2_fname = 'nModal2' + ssp_nmaeros_fname = 'maxAerosolType' + ssp_bcerad_fname = 'bcEffectiveRadius' + ssp_bcgrerad_fname = 'iceGrainEffectiveRadius' + ssp_snwextdr_fname = 'iceMassExtinctionCrossSectionDirect' + ssp_snwextdf_fname = 'iceMassExtinctionCrossSectionDiffuse' + ssp_snwalbdr_fname = 'iceSingleScatterAlbedoDirect' + ssp_snwalbdf_fname = 'iceSingleScatterAlbedoDiffuse' + ssp_sasymmdr_fname = 'iceAsymmetryParameterDirect' + ssp_sasymmdf_fname = 'iceAsymmetryParameterDiffuse' + ssp_aasymmmd_fname = 'modalAsymmetryParameter5band' + ssp_aerextmd_fname = 'modalMassExtinctionCrossSection5band' + ssp_aeralbmd_fname = 'modalSingleScatterAlbedo5band' + ssp_aasymm_fname = 'aerosolAsymmetryParameter5band' + ssp_aerext_fname = 'aerosolMassExtinctionCrossSection5band' + ssp_aeralb_fname = 'aerosolSingleScatterAlbedo5band' + ssp_abcenhmd_fname = 'modalBCabsorptionParameter5band' From a0f0e493c764dc8d4cd68181dadbe2cd7e79fb5b Mon Sep 17 00:00:00 2001 From: apcraig Date: Fri, 2 Sep 2022 09:10:51 -0600 Subject: [PATCH 27/64] - Add USE_SNICARHC (snicar ssp hard coded tables) to reduce compile time when they're not needed - Add ability to reuse icepack binary in test suites to reduce time to test. Uses mp5sum of modified icepack.settings file to establish same binary. --- columnphysics/icepack_shortwave.F90 | 1 + columnphysics/icepack_shortwave_data.F90 | 8 ++++ configuration/scripts/icepack.build | 42 ++++++++++++++++++++ configuration/scripts/icepack.settings | 3 +- configuration/scripts/options/set_env.snicar | 1 + icepack.setup | 22 +++++++++- 6 files changed, 75 insertions(+), 2 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index fb58630b7..33036e66e 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -174,6 +174,7 @@ subroutine icepack_init_radiation() if (use_snicar) then call icepack_shortwave_init_dEdd5band() + if (icepack_warnings_aborted(subname)) return call data_dEdd_snicar() if (icepack_warnings_aborted(subname)) return diff --git a/columnphysics/icepack_shortwave_data.F90 b/columnphysics/icepack_shortwave_data.F90 index 953fa0d00..39ea1a146 100644 --- a/columnphysics/icepack_shortwave_data.F90 +++ b/columnphysics/icepack_shortwave_data.F90 @@ -420,6 +420,13 @@ end subroutine icepack_shortwave_init_snicartest subroutine icepack_shortwave_init_snicar() +! USE_SNICARHC turns on big hardcoded tables but also increases compile time +#ifndef USE_SNICARHC + character(len=*),parameter :: subname='(icepack_shortwave_init_snicar)' + call icepack_warnings_setabort(.true.,__FILE__,__LINE__) + call icepack_warnings_add(subname//' ERROR: USE_SNICARHC CPP required') + return +#else integer (kind=int_kind) :: & n ! loop counter @@ -9531,6 +9538,7 @@ subroutine icepack_shortwave_init_snicar() deallocate(aerosolAsymmetryParameter5band) deallocate(aerosolMassExtinctionCrossSection5band) deallocate(aerosolSingleScatterAlbedo5band) +#endif end subroutine icepack_shortwave_init_snicar diff --git a/configuration/scripts/icepack.build b/configuration/scripts/icepack.build index 43a47661b..40799c3d5 100755 --- a/configuration/scripts/icepack.build +++ b/configuration/scripts/icepack.build @@ -1,5 +1,44 @@ #!/bin/csh -f +#==================================== +# If the icepack binary is passed via the --exe argument and the file exists, +# copy it into the run directory and don't build the model. + +set icepexe = "UnDEFineD" +if ($#argv == 0) then + # continue, standard way to build +else + if ("$1" == "--exe") then + if ($#argv > 2) then + echo "${0}: ERROR: --exe icepackexe without other arguments is required" + exit -99 + endif + set icepexe = $2 + echo "${0}: icepexe = ${icepexe}" + if (-e ${icepexe}) then + + source ./icepack.settings + source ${ICE_CASEDIR}/env.${ICE_MACHCOMP} -nomodules || exit 2 + if !(-d ${ICE_RUNDIR}) mkdir -p ${ICE_RUNDIR} + cp -p ${icepexe} ${ICE_RUNDIR}/icepack + + echo "`date` ${0}:${ICE_CASENAME} build copied ${icepexe}" >> ${ICE_CASEDIR}/README.case + if ( ${ICE_TEST} != ${ICE_SPVAL} ) then + echo "#---" >! ${ICE_CASEDIR}/test_output + echo "COPY ${ICE_TESTNAME} build" >> ${ICE_CASEDIR}/test_output + echo "PEND ${ICE_TESTNAME} run" >> ${ICE_CASEDIR}/test_output + endif + + exit 0 + endif + else + echo "${0}: ERROR: invalid arguments" + exit -99 + endif +endif + +#==================================== + source ./icepack.settings source ${ICE_CASEDIR}/env.${ICE_MACHCOMP} || exit 2 @@ -29,6 +68,9 @@ setenv ICE_CPPDEFS "${ICE_CPPDEFS} -DNXGLOB=${ICE_NXGLOB} -DNICELYR=${NICELYR} - if (${ICE_IOTYPE} == 'netcdf') then setenv ICE_CPPDEFS "${ICE_CPPDEFS} -DUSE_NETCDF" endif +if (${ICE_SNICARHC} == 'true') then + setenv ICE_CPPDEFS "${ICE_CPPDEFS} -DUSE_SNICARHC" +endif ### List of source code directories (in order of importance). cat >! Filepath << EOF diff --git a/configuration/scripts/icepack.settings b/configuration/scripts/icepack.settings index dab7276fc..764124cac 100755 --- a/configuration/scripts/icepack.settings +++ b/configuration/scripts/icepack.settings @@ -78,7 +78,8 @@ setenv TRFED 0 # number of dissolved iron tracers # (up to max_fe = 2) ### Specialty code +setenv ICE_SNICARHC false # include hardcoded (HC) snicar tables setenv ICE_BLDDEBUG false # build debug flags -setenv ICE_COVERAGE false # code coverage flag +setenv ICE_COVERAGE false # code coverage flag diff --git a/configuration/scripts/options/set_env.snicar b/configuration/scripts/options/set_env.snicar index 7ac74351d..13cd94861 100644 --- a/configuration/scripts/options/set_env.snicar +++ b/configuration/scripts/options/set_env.snicar @@ -1,2 +1,3 @@ setenv ICE_IOTYPE netcdf setenv ICE_NXGLOB 1 +setenv ICE_SNICARHC true diff --git a/icepack.setup b/icepack.setup index 4fee72006..e79cd26d4 100755 --- a/icepack.setup +++ b/icepack.setup @@ -429,6 +429,9 @@ else cat >! ${tsdir}/suite.run << EOF0 #!/bin/csh -f + +set nonomatch && rm -f icepexe.* && unset nonomatch + EOF0 set remote = `git remote -v | grep -i origin | grep -i push | sed "s|.*\(https.*\)\s.*|\1|g"` @@ -908,8 +911,18 @@ endif EOF cat >> ${tsdir}/suite.run << EOF + +echo "-------test--------------" +echo "${testname_base}" cd ${testname_base} -./icepack.build +source ./icepack.settings +set md5file = icepack.settings.md5 +grep -v " ICE_CASENAME " icepack.settings | grep -v " ICE_CASEDIR " | grep -v " ICE_RUNDIR " | grep -v " ICE_TESTNAME " | grep -v " ICE_TEST " >! \${md5file} +set icepsetmd5 = \` md5sum \${md5file} | cut -d " " -f 1 \` +#rm \${md5file} +set icepexe = "../icepexe.\${icepsetmd5}" +./icepack.build --exe \${icepexe} +if !(-e \${icepexe}) cp -p \${ICE_RUNDIR}/icepack \${icepexe} ./icepack.submit | tee -a ../suite.jobs cd .. EOF @@ -932,6 +945,13 @@ end if ( ${dosuite} == 1 ) then + # Delete reused icepexe files at the end to save space + cat >> ${tsdir}/suite.run << EOF0 + +set nonomatch && rm -f icepexe.* && unset nonomatch + +EOF0 + # Add code to post processing scripts if ($?ICE_MACHINE_QSTAT) then From 247a8cefae673ae9fe4e438fd98ae5adf0a68641 Mon Sep 17 00:00:00 2001 From: apcraig Date: Fri, 2 Sep 2022 11:52:09 -0600 Subject: [PATCH 28/64] - Remove ssp_bcerad, ssp_bcgrerad from implementation - Add snicar_suite --- columnphysics/icepack_parameters.F90 | 31 ++----------------- columnphysics/icepack_shortwave.F90 | 7 ++--- columnphysics/icepack_shortwave_data.F90 | 14 --------- configuration/driver/icedrv_forcing.F90 | 21 ------------- configuration/driver/icedrv_init.F90 | 6 ---- configuration/scripts/icepack_in | 2 -- .../scripts/options/set_nml.snicarfile | 2 -- icepack.setup | 5 ++- 8 files changed, 8 insertions(+), 80 deletions(-) diff --git a/columnphysics/icepack_parameters.F90 b/columnphysics/icepack_parameters.F90 index 707a60ff4..0425eb4a8 100644 --- a/columnphysics/icepack_parameters.F90 +++ b/columnphysics/icepack_parameters.F90 @@ -13,7 +13,6 @@ module icepack_parameters use_snicar , & nspint_3bd , nspint_5bd , & snw_ssp_table, & - ssp_bcerad , ssp_bcgrerad, & ssp_snwextdr , ssp_snwextdf, & ssp_snwalbdr , ssp_snwalbdf, & ssp_sasymmdr , ssp_sasymmdf, & @@ -500,8 +499,7 @@ subroutine icepack_init_parameters( & ssp_snwextdr_in, ssp_snwextdf_in, ssp_snwalbdr_in, ssp_snwalbdf_in, & ssp_sasymmdr_in, ssp_sasymmdf_in, & ssp_aasymmmd_in, ssp_aerextmd_in, ssp_aeralbmd_in, ssp_abcenhmd_in, & - ssp_aasymm_in, ssp_aerext_in, ssp_aeralb_in, & - ssp_bcerad_in, ssp_bcgrerad_in ) + ssp_aasymm_in, ssp_aerext_in, ssp_aeralb_in ) !----------------------------------------------------------------- ! control settings @@ -859,9 +857,6 @@ subroutine icepack_init_parameters( & character (len=char_len), intent(in), optional :: & snw_ssp_table_in ! lookup table: 'snicar' or 'test' or 'file' - real (kind=dbl_kind), dimension(:), intent(in), optional :: & - ssp_bcerad_in, & ! ?, bcEffectiveRadius - ssp_bcgrerad_in ! ?, iceGrainEffectiveRadius real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & ssp_snwextdr_in, & ! snow mass extinction cross section (m2/kg), direct ssp_snwextdf_in, & ! snow mass extinction cross section (m2/kg), diffuse @@ -1133,20 +1128,6 @@ subroutine icepack_init_parameters( & ! allocate and copy SNICAR SSP table data - if (present(ssp_bcerad_in) ) then - if (allocated(ssp_bcerad)) deallocate(ssp_bcerad) - dim1 = size(ssp_bcerad_in,dim=1) - allocate(ssp_bcerad(dim1)) - ssp_bcerad = ssp_bcerad_in - endif - - if (present(ssp_bcgrerad_in) ) then - if (allocated(ssp_bcgrerad)) deallocate(ssp_bcgrerad) - dim1 = size(ssp_bcgrerad_in,dim=1) - allocate(ssp_bcgrerad(dim1)) - ssp_bcgrerad = ssp_bcgrerad_in - endif - if (present(ssp_snwextdr_in) ) then if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) dim1 = size(ssp_snwextdr_in,dim=1) @@ -1369,8 +1350,7 @@ subroutine icepack_query_parameters( & ssp_snwalbdr_out, ssp_snwalbdf_out, & ssp_sasymmdr_out, ssp_sasymmdf_out, & ssp_aasymmmd_out, ssp_aerextmd_out, ssp_aeralbmd_out, ssp_abcenhmd_out, & - ssp_aasymm_out, ssp_aerext_out, ssp_aeralb_out, & - ssp_bcerad_out, ssp_bcgrerad_out ) + ssp_aasymm_out, ssp_aerext_out, ssp_aeralb_out ) !----------------------------------------------------------------- ! control settings @@ -1737,9 +1717,6 @@ subroutine icepack_query_parameters( & character (len=char_len), intent(out), optional :: & snw_ssp_table_out ! lookup table: 'snicar' or 'test' or 'file' - real (kind=dbl_kind), dimension(:), intent(out), optional :: & - ssp_bcerad_out, & ! ?, bcEffectiveRadius - ssp_bcgrerad_out ! ?, iceGrainEffectiveRadius real (kind=dbl_kind), dimension(:,:), intent(out), optional :: & ssp_snwextdr_out, & ! snow mass extinction cross section (m2/kg), direct ssp_snwextdf_out, & ! snow mass extinction cross section (m2/kg), diffuse @@ -1946,8 +1923,6 @@ subroutine icepack_query_parameters( & if (present(ssp_snwalbdf_out) ) ssp_snwalbdf_out = ssp_snwalbdf if (present(ssp_sasymmdr_out) ) ssp_sasymmdr_out = ssp_sasymmdr if (present(ssp_sasymmdf_out) ) ssp_sasymmdf_out = ssp_sasymmdf - if (present(ssp_bcerad_out) ) ssp_bcerad_out = ssp_bcerad - if (present(ssp_bcgrerad_out) ) ssp_bcgrerad_out = ssp_bcgrerad if (present(ssp_aasymmmd_out) ) ssp_aasymmmd_out = ssp_aasymmmd if (present(ssp_aerextmd_out) ) ssp_aerextmd_out = ssp_aerextmd if (present(ssp_aeralbmd_out) ) ssp_aeralbmd_out = ssp_aeralbmd @@ -2179,8 +2154,6 @@ subroutine icepack_write_parameters(iounit) write(iounit,*) " ssp_aasymm = ", ssp_aasymm (1,1) write(iounit,*) " ssp_aerext = ", ssp_aerext (1,1) write(iounit,*) " ssp_aeralb = ", ssp_aeralb (1,1) - write(iounit,*) " ssp_bcerad = ", ssp_bcerad (1) - write(iounit,*) " ssp_bcgrerad = ", ssp_bcgrerad(1) write(iounit,*) " bgc_flux_type = ", bgc_flux_type write(iounit,*) " z_tracers = ", z_tracers write(iounit,*) " scale_bgc = ", scale_bgc diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 33036e66e..c6fb23a71 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -84,8 +84,7 @@ module icepack_shortwave use icepack_shortwave_data, only: & snw_ssp_table, ssp_snwextdr, ssp_snwalbdr, ssp_sasymmdr, & ssp_snwextdf, ssp_snwalbdf, ssp_sasymmdf, ssp_aasymmmd, ssp_aerextmd, & - ssp_aeralbmd, ssp_abcenhmd, & - ssp_aasymm, ssp_aerext, ssp_aeralb, ssp_bcerad, ssp_bcgrerad, & + ssp_aeralbmd, ssp_abcenhmd, ssp_aasymm, ssp_aerext, ssp_aeralb, & rsnw_snicar_tab ! dEdd 3-band data @@ -260,9 +259,7 @@ subroutine data_dEdd_snicar ! Check SNICAR SSP data !------------------------------ - if ((size(ssp_bcerad,dim=1) /= nmodal1_snicar) .or. & - (size(ssp_bcgrerad,dim=1) /= nmodal2_snicar) .or. & - (size(ssp_snwextdr,dim=1) /= nspint_5bd ) .or. & + if ((size(ssp_snwextdr,dim=1) /= nspint_5bd ) .or. & (size(ssp_snwextdr,dim=2) /= nmbrad_snicar ) .or. & (size(ssp_snwextdf,dim=1) /= nspint_5bd ) .or. & (size(ssp_snwextdf,dim=2) /= nmbrad_snicar ) .or. & diff --git a/columnphysics/icepack_shortwave_data.F90 b/columnphysics/icepack_shortwave_data.F90 index 39ea1a146..2ce697d81 100644 --- a/columnphysics/icepack_shortwave_data.F90 +++ b/columnphysics/icepack_shortwave_data.F90 @@ -56,8 +56,6 @@ module icepack_shortwave_data real (kind=dbl_kind), allocatable, public :: & rsnw_snicar_tab(:), & ! snow grain radii (10^-6 m) - ssp_bcerad (:), & ! ?, bcEffectiveRadius - ssp_bcgrerad(:), & ! ?, iceGrainEffectiveRadius ssp_snwextdr(:,:), & ! snow mass extinction cross section (m2/kg), direct ssp_snwextdf(:,:), & ! snow mass extinction cross section (m2/kg), diffuse ssp_snwalbdr(:,:), & ! snow single scatter albedo (fraction), direct @@ -320,8 +318,6 @@ subroutine icepack_shortwave_init_snicartest() rsnw_snicar_min = rsnw_snicar_tab(1) ! minimum snow radius - integer value used for indexing rsnw_snicar_max = rsnw_snicar_tab(nmbrad_snicar) ! maximum snow radius - integer value used for indexing - if (allocated(ssp_bcerad )) deallocate(ssp_bcerad ) - if (allocated(ssp_bcgrerad)) deallocate(ssp_bcgrerad) if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) @@ -336,8 +332,6 @@ subroutine icepack_shortwave_init_snicartest() if (allocated(ssp_aeralb )) deallocate(ssp_aeralb ) if (allocated(ssp_abcenhmd)) deallocate(ssp_abcenhmd) - allocate(ssp_bcerad (nmodal1_snicar)) ! ?, bcEffectiveRadius - allocate(ssp_bcgrerad(nmodal2_snicar)) ! ?, iceGrainEffectiveRadius allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, direct allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, diffuse allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, direct @@ -404,8 +398,6 @@ subroutine icepack_shortwave_init_snicartest() (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) ! tcraig, what should these be set to? TODO - ssp_bcerad = 0._dbl_kind - ssp_bcgrerad = 0._dbl_kind ssp_aasymmmd = 0._dbl_kind ssp_aerextmd = 0._dbl_kind ssp_aeralbmd = 0._dbl_kind @@ -9475,8 +9467,6 @@ subroutine icepack_shortwave_init_snicar() rsnw_snicar_tab(n+1) = rsnw_snicar_tab(n) + 1.0_dbl_kind enddo - if (allocated(ssp_bcerad )) deallocate(ssp_bcerad ) - if (allocated(ssp_bcgrerad)) deallocate(ssp_bcgrerad) if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) @@ -9491,8 +9481,6 @@ subroutine icepack_shortwave_init_snicar() if (allocated(ssp_aeralb )) deallocate(ssp_aeralb ) if (allocated(ssp_abcenhmd)) deallocate(ssp_abcenhmd) - allocate(ssp_bcerad (nmodal1_snicar)) ! ?, bcEffectiveRadius - allocate(ssp_bcgrerad(nmodal2_snicar)) ! ?, iceGrainEffectiveRadius allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, direct allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, diffuse allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, direct @@ -9507,8 +9495,6 @@ subroutine icepack_shortwave_init_snicar() allocate(ssp_aeralb (nspint_5bd,nmaeros_snicar)) ! waer_5bd, aerosolSingleScatterAlbedo5band allocate(ssp_abcenhmd(nspint_5bd,nmodal1_snicar,nmodal2_snicar)) ! bcenh_5bd, modalBCabsorptionParameter5band - ssp_bcerad (:) = bcEffectiveRadius(:) - ssp_bcgrerad(:) = iceGrainEffectiveRadius(:) ssp_snwextdr(:,:) = iceMassExtinctionCrossSectionDirect(:,:) ssp_snwextdf(:,:) = iceMassExtinctionCrossSectionDiffuse(:,:) ssp_snwalbdr(:,:) = iceSingleScatterAlbedoDirect(:,:) diff --git a/configuration/driver/icedrv_forcing.F90 b/configuration/driver/icedrv_forcing.F90 index f70c86549..4338f6603 100644 --- a/configuration/driver/icedrv_forcing.F90 +++ b/configuration/driver/icedrv_forcing.F90 @@ -120,8 +120,6 @@ module icedrv_forcing ssp_snwalbdf_fname, & ! snow single scatter albedo (fraction) field name ssp_sasymmdr_fname, & ! snow asymmetry factor (cos(theta)) field name ssp_sasymmdf_fname, & ! snow asymmetry factor (cos(theta)) field name - ssp_bcerad_fname, & ! ?, bcEffectiveRadius - ssp_bcgrerad_fname, & ! ?, iceGrainEffectiveRadius ssp_aasymmmd_fname, & ! gaer_bc_5bd, modalAsymmetryParameter5band ssp_aerextmd_fname, & ! kaer_bc_5bd, modalMassExtinctionCrossSection5band ssp_aeralbmd_fname, & ! waer_bc_5bd, modalSingleScatterAlbedo5band @@ -1198,8 +1196,6 @@ subroutine init_snicarssptable nsrad, & ! Table dimensions nspint, nmodal1, nmodal2, nmaeros real (kind=dbl_kind), allocatable :: & - ssp_bcerad (:), & ! ?, bcEffectiveRadius - ssp_bcgrerad(:), & ! ?, iceGrainEffectiveRadius ssp_snwextdr(:,:), & ! snow mass extinction cross section (m2/kg), direct ssp_snwextdf(:,:), & ! snow mass extinction cross section (m2/kg), diffuse ssp_snwalbdr(:,:), & ! snow single scatter albedo (fraction), direct @@ -1270,8 +1266,6 @@ subroutine init_snicarssptable status=nf90_inquire_dimension(fid, dimid, len=nmaeros) if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_dim '//trim(fieldname)) - if (allocated(ssp_bcerad) ) deallocate(ssp_bcerad) - if (allocated(ssp_bcgrerad)) deallocate(ssp_bcgrerad) if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) @@ -1286,8 +1280,6 @@ subroutine init_snicarssptable if (allocated(ssp_aeralb) ) deallocate(ssp_aeralb) if (allocated(ssp_abcenhmd)) deallocate(ssp_abcenhmd) - allocate(ssp_bcerad(nmodal1)) - allocate(ssp_bcgrerad(nmodal2)) allocate(ssp_snwextdr(nspint,nsrad)) allocate(ssp_snwextdf(nspint,nsrad)) allocate(ssp_snwalbdr(nspint,nsrad)) @@ -1302,16 +1294,6 @@ subroutine init_snicarssptable allocate(ssp_aeralb (nspint,nmaeros)) allocate(ssp_abcenhmd(nspint,nmodal1,nmodal2)) - fieldname = trim(ssp_bcerad_fname) - status = nf90_inq_varid(fid, trim(fieldname), varid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) - status = nf90_get_var(fid, varid, ssp_bcerad) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) - - fieldname = trim(ssp_bcgrerad_fname) - status = nf90_inq_varid(fid, trim(fieldname), varid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) - status = nf90_get_var(fid, varid, ssp_bcgrerad) if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) fieldname = trim(ssp_snwextdr_fname) @@ -1438,7 +1420,6 @@ subroutine init_snicarssptable write(nu_diag,*) subname,' ssp_sasymmdf(m1,m2) = ',ssp_sasymmdf(nspint,nsrad) call icepack_init_parameters( & - ssp_bcerad_in = ssp_bcerad , ssp_bcgrerad_in = ssp_bcgrerad, & ssp_snwextdr_in = ssp_snwextdr, ssp_snwextdf_in = ssp_snwextdf, & ssp_snwalbdr_in = ssp_snwalbdr, ssp_snwalbdf_in = ssp_snwalbdf, & ssp_sasymmdr_in = ssp_sasymmdr, ssp_sasymmdf_in = ssp_sasymmdf, & @@ -1450,8 +1431,6 @@ subroutine init_snicarssptable if (icepack_warnings_aborted()) call icedrv_system_abort(string=subname, & file=__FILE__,line= __LINE__) - deallocate(ssp_bcerad) - deallocate(ssp_bcgrerad) deallocate(ssp_snwextdr) deallocate(ssp_snwextdf) deallocate(ssp_snwalbdr) diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90 index 67ff654b7..cb037f85d 100644 --- a/configuration/driver/icedrv_init.F90 +++ b/configuration/driver/icedrv_init.F90 @@ -78,7 +78,6 @@ subroutine input_data use icedrv_forcing, only: ssp_snwextdr_fname, ssp_snwextdf_fname use icedrv_forcing, only: ssp_snwalbdr_fname, ssp_snwalbdf_fname use icedrv_forcing, only: ssp_sasymmdr_fname, ssp_sasymmdf_fname - use icedrv_forcing, only: ssp_bcerad_fname, ssp_bcgrerad_fname use icedrv_forcing, only: ssp_aasymmmd_fname, ssp_aerextmd_fname use icedrv_forcing, only: ssp_aeralbmd_fname, ssp_aasymm_fname use icedrv_forcing, only: ssp_aerext_fname, ssp_aeralb_fname @@ -176,7 +175,6 @@ subroutine input_data ssp_snwextdr_fname, ssp_snwextdf_fname, & ssp_snwalbdr_fname, ssp_snwalbdf_fname, & ssp_sasymmdr_fname, ssp_sasymmdf_fname, & - ssp_bcerad_fname, ssp_bcgrerad_fname, & ssp_aasymmmd_fname, ssp_aerextmd_fname, & ssp_aeralbmd_fname, ssp_aasymm_fname, & ssp_aerext_fname, ssp_aeralb_fname, & @@ -321,8 +319,6 @@ subroutine input_data ssp_snwalbdf_fname = 'iceSingleScatterAlbedoDiffuse' ! snow single scatter albedo (fraction) ssp_sasymmdr_fname = 'iceAsymmetryParameterDirect' ! snow asymmetry factor (cos(theta)) ssp_sasymmdf_fname = 'iceAsymmetryParameterDiffuse' ! snow asymmetry factor (cos(theta)) - ssp_bcerad_fname = 'bcEffectiveRadius' - ssp_bcgrerad_fname = 'iceGrainEffectiveRadius' ssp_aasymmmd_fname = 'modalAsymmetryParameter5band' ssp_aerextmd_fname = 'modalMassExtinctionCrossSection5band' ssp_aeralbmd_fname = 'modalSingleScatterAlbedo5band' @@ -771,8 +767,6 @@ subroutine input_data write(nu_diag,1030) ' ssp_snwalbdf_fname = ', trim(ssp_snwalbdf_fname) write(nu_diag,1030) ' ssp_sasymmdr_fname = ', trim(ssp_sasymmdr_fname) write(nu_diag,1030) ' ssp_sasymmdf_fname = ', trim(ssp_sasymmdf_fname) - write(nu_diag,1030) ' ssp_bcerad_fname = ', trim(ssp_bcerad_fname) - write(nu_diag,1030) ' ssp_bcgrerad_fname = ', trim(ssp_bcgrerad_fname) write(nu_diag,1030) ' ssp_aasymmmd_fname = ', trim(ssp_aasymmmd_fname) write(nu_diag,1030) ' ssp_aerextmd_fname = ', trim(ssp_aerextmd_fname) write(nu_diag,1030) ' ssp_aeralbmd_fname = ', trim(ssp_aeralbmd_fname) diff --git a/configuration/scripts/icepack_in b/configuration/scripts/icepack_in index 17167e9b1..a21046cf5 100644 --- a/configuration/scripts/icepack_in +++ b/configuration/scripts/icepack_in @@ -73,8 +73,6 @@ ssp_nmodal1_fname = 'unknown' ssp_nmodal2_fname = 'unknown' ssp_nmaeros_fname = 'unknown' - ssp_bcerad_fname = 'unknown' - ssp_bcgrerad_fname = 'unknown' ssp_snwextdr_fname = 'unknown' ssp_snwextdf_fname = 'unknown' ssp_snwalbdr_fname = 'unknown' diff --git a/configuration/scripts/options/set_nml.snicarfile b/configuration/scripts/options/set_nml.snicarfile index a12203bba..f1583cc6d 100644 --- a/configuration/scripts/options/set_nml.snicarfile +++ b/configuration/scripts/options/set_nml.snicarfile @@ -6,8 +6,6 @@ ssp_nmodal1_fname = 'nModal1' ssp_nmodal2_fname = 'nModal2' ssp_nmaeros_fname = 'maxAerosolType' - ssp_bcerad_fname = 'bcEffectiveRadius' - ssp_bcgrerad_fname = 'iceGrainEffectiveRadius' ssp_snwextdr_fname = 'iceMassExtinctionCrossSectionDirect' ssp_snwextdf_fname = 'iceMassExtinctionCrossSectionDiffuse' ssp_snwalbdr_fname = 'iceSingleScatterAlbedoDirect' diff --git a/icepack.setup b/icepack.setup index e79cd26d4..126524d7a 100755 --- a/icepack.setup +++ b/icepack.setup @@ -922,8 +922,11 @@ set icepsetmd5 = \` md5sum \${md5file} | cut -d " " -f 1 \` #rm \${md5file} set icepexe = "../icepexe.\${icepsetmd5}" ./icepack.build --exe \${icepexe} +set bldstat = \${status} if !(-e \${icepexe}) cp -p \${ICE_RUNDIR}/icepack \${icepexe} -./icepack.submit | tee -a ../suite.jobs +if (\$bldstat == 0) then + ./icepack.submit | tee -a ../suite.jobs +endif cd .. EOF From 147201a60fc3b3597f36b90b80cc5f34794de8a1 Mon Sep 17 00:00:00 2001 From: apcraig Date: Fri, 2 Sep 2022 11:56:31 -0600 Subject: [PATCH 29/64] remove trailing blanks --- columnphysics/icepack_shortwave.F90 | 4 +-- columnphysics/icepack_shortwave_data.F90 | 34 ++++++++++----------- configuration/scripts/tests/snicar_suite.ts | 9 ++++++ 3 files changed, 28 insertions(+), 19 deletions(-) create mode 100644 configuration/scripts/tests/snicar_suite.ts diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index c6fb23a71..38f0bab0e 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -4643,7 +4643,7 @@ real(kind=dbl_kind) function asys(gg,f) asys = (gg - f)/(c1 - f) end function asys - + !======================================================================= ! --- Begin 5 band dEdd subroutine --- ! Evaluate snow/ice/ponded ice inherent optical properties (IOPs), and @@ -5850,7 +5850,7 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & enddo ! k endif ! tr_aero ! --------------------------------------------------------------------------- - + ! set reflectivities for ocean underlying sea ice ! if ns == 1 (visible), albedo is 0.1, else, albedo is zero rns = real(ns-1, kind=dbl_kind) diff --git a/columnphysics/icepack_shortwave_data.F90 b/columnphysics/icepack_shortwave_data.F90 index 2ce697d81..d72ddd3f7 100644 --- a/columnphysics/icepack_shortwave_data.F90 +++ b/columnphysics/icepack_shortwave_data.F90 @@ -9,7 +9,7 @@ module icepack_shortwave_data private - ! Parameters for dEdd_snicar + ! Parameters for dEdd_snicar logical (kind=log_kind), public :: & use_snicar = .false. ! .true. use 5-band SNICAR-AD approach @@ -449,7 +449,7 @@ subroutine icepack_shortwave_init_snicar() character(len=*),parameter :: subname='(icepack_shortwave_init_snicar)' - !--- extracted from netcdf file + !--- extracted from netcdf file !--- snicar_optics_5bnd_snow_and_aerosols.nc nSpectralIntervalsSNICAR = 5 @@ -1945,7 +1945,7 @@ subroutine icepack_shortwave_init_snicar() iceAsymmetryParameterDirect(1:5 ,1469) = (/ 0.891378154824403_dbl_kind, 0.895093364156276_dbl_kind, 0.900872585463475_dbl_kind, 0.922787612057341_dbl_kind, 0.972254768174833_dbl_kind /) iceAsymmetryParameterDirect(1:5 ,1470) = (/ 0.891378275007743_dbl_kind, 0.89509405048468_dbl_kind, 0.900875812139181_dbl_kind, 0.922796872772046_dbl_kind, 0.972258811876922_dbl_kind /) iceAsymmetryParameterDirect(1:5 ,1471) = (/ 0.891378395060407_dbl_kind, 0.895094736478766_dbl_kind, 0.900879038151421_dbl_kind, 0.922806130551648_dbl_kind, 0.972262848842506_dbl_kind /) - + iceAsymmetryParameterDiffuse(1:5 ,1) = (/ 0.883796988056542_dbl_kind, 0.883342090644533_dbl_kind, 0.882303225047584_dbl_kind, 0.882254720448352_dbl_kind, 0.891906690982411_dbl_kind /) iceAsymmetryParameterDiffuse(1:5 ,2) = (/ 0.884028281638843_dbl_kind, 0.883650540642183_dbl_kind, 0.882710900566814_dbl_kind, 0.882764613086411_dbl_kind, 0.892694276417957_dbl_kind /) iceAsymmetryParameterDiffuse(1:5 ,3) = (/ 0.88424663334592_dbl_kind, 0.883940569462334_dbl_kind, 0.883094503579836_dbl_kind, 0.883248326043141_dbl_kind, 0.893450073209044_dbl_kind /) @@ -3417,7 +3417,7 @@ subroutine icepack_shortwave_init_snicar() iceAsymmetryParameterDiffuse(1:5 ,1469) = (/ 0.891305959431592_dbl_kind, 0.895036579713415_dbl_kind, 0.900769118076048_dbl_kind, 0.918967867813943_dbl_kind, 0.973386319810258_dbl_kind /) iceAsymmetryParameterDiffuse(1:5 ,1470) = (/ 0.891306078762026_dbl_kind, 0.89503724421769_dbl_kind, 0.900772306975637_dbl_kind, 0.918977588947379_dbl_kind, 0.973391373612288_dbl_kind /) iceAsymmetryParameterDiffuse(1:5 ,1471) = (/ 0.891306197962551_dbl_kind, 0.895037908394608_dbl_kind, 0.900775495201171_dbl_kind, 0.918987307247229_dbl_kind, 0.973396418948797_dbl_kind /) - + iceSingleScatterAlbedoDirect(1:5 ,1) = (/ 0.999996473539642_dbl_kind, 0.999897920739992_dbl_kind, 0.999240565661103_dbl_kind, 0.993823361190655_dbl_kind, 0.941294661423717_dbl_kind /) iceSingleScatterAlbedoDirect(1:5 ,2) = (/ 0.999996361173434_dbl_kind, 0.999894735419621_dbl_kind, 0.999216637256531_dbl_kind, 0.993697069727296_dbl_kind, 0.939921805058392_dbl_kind /) iceSingleScatterAlbedoDirect(1:5 ,3) = (/ 0.999996249406051_dbl_kind, 0.999891558786757_dbl_kind, 0.999192716658491_dbl_kind, 0.993572481152941_dbl_kind, 0.938560323564721_dbl_kind /) @@ -4889,7 +4889,7 @@ subroutine icepack_shortwave_init_snicar() iceSingleScatterAlbedoDirect(1:5 ,1469) = (/ 0.999837987013184_dbl_kind, 0.995973431107561_dbl_kind, 0.968081763476731_dbl_kind, 0.873129073931769_dbl_kind, 0.550066138113734_dbl_kind /) iceSingleScatterAlbedoDirect(1:5 ,1470) = (/ 0.999837881244465_dbl_kind, 0.995971027476527_dbl_kind, 0.968062024102947_dbl_kind, 0.873060374927594_dbl_kind, 0.55003697840789_dbl_kind /) iceSingleScatterAlbedoDirect(1:5 ,1471) = (/ 0.999837775481967_dbl_kind, 0.995968624181001_dbl_kind, 0.968042287049291_dbl_kind, 0.872991694196043_dbl_kind, 0.550007878986191_dbl_kind /) - + iceSingleScatterAlbedoDiffuse(1:5 ,1) = (/ 0.99999652090225_dbl_kind, 0.999902541003866_dbl_kind, 0.999252020157292_dbl_kind, 0.995412713638889_dbl_kind, 0.949846089277264_dbl_kind /) iceSingleScatterAlbedoDiffuse(1:5 ,2) = (/ 0.999996410054143_dbl_kind, 0.999899503226746_dbl_kind, 0.999228399618862_dbl_kind, 0.995303298087803_dbl_kind, 0.948509250075099_dbl_kind /) iceSingleScatterAlbedoDiffuse(1:5 ,3) = (/ 0.999996299750575_dbl_kind, 0.999896473321404_dbl_kind, 0.99920477600596_dbl_kind, 0.995194732374268_dbl_kind, 0.947183340709259_dbl_kind /) @@ -6361,7 +6361,7 @@ subroutine icepack_shortwave_init_snicar() iceSingleScatterAlbedoDiffuse(1:5 ,1469) = (/ 0.999839983931828_dbl_kind, 0.996177411068779_dbl_kind, 0.968456461364212_dbl_kind, 0.875562130203211_dbl_kind, 0.551293916633764_dbl_kind /) iceSingleScatterAlbedoDiffuse(1:5 ,1470) = (/ 0.999839879488333_dbl_kind, 0.996175134415661_dbl_kind, 0.968436909455411_dbl_kind, 0.875494176117017_dbl_kind, 0.55125743740592_dbl_kind /) iceSingleScatterAlbedoDiffuse(1:5 ,1471) = (/ 0.999839775051005_dbl_kind, 0.996172858083252_dbl_kind, 0.968417359795198_dbl_kind, 0.875426240101851_dbl_kind, 0.55122102941648_dbl_kind /) - + iceMassExtinctionCrossSectionDirect(1:5 ,1) = (/ 55.6583978509486_dbl_kind, 56.0679727369348_dbl_kind, 56.2944898958771_dbl_kind, 56.6269155829422_dbl_kind, 57.3031147376752_dbl_kind /) iceMassExtinctionCrossSectionDirect(1:5 ,2) = (/ 53.8394031091931_dbl_kind, 54.2246989874223_dbl_kind, 54.4449624105993_dbl_kind, 54.7538929671849_dbl_kind, 55.3959310999853_dbl_kind /) iceMassExtinctionCrossSectionDirect(1:5 ,3) = (/ 52.135223777981_dbl_kind, 52.4986136255096_dbl_kind, 52.7130042254717_dbl_kind, 52.9999857238108_dbl_kind, 53.6110291170098_dbl_kind /) @@ -7833,7 +7833,7 @@ subroutine icepack_shortwave_init_snicar() iceMassExtinctionCrossSectionDirect(1:5 ,1469) = (/ 1.09425122970767_dbl_kind, 1.09481629729715_dbl_kind, 1.09529655189954_dbl_kind, 1.09560136446132_dbl_kind, 1.09667060166336_dbl_kind /) iceMassExtinctionCrossSectionDirect(1:5 ,1470) = (/ 1.0935250067174_dbl_kind, 1.09408944184459_dbl_kind, 1.09456919998148_dbl_kind, 1.09487361211646_dbl_kind, 1.09594171046346_dbl_kind /) iceMassExtinctionCrossSectionDirect(1:5 ,1471) = (/ 1.09279977958654_dbl_kind, 1.09336358356903_dbl_kind, 1.093842845836_dbl_kind, 1.09414685846702_dbl_kind, 1.09521381996365_dbl_kind /) - + iceMassExtinctionCrossSectionDiffuse(1:5 ,1) = (/ 55.6524964732346_dbl_kind, 56.0653537700654_dbl_kind, 56.2866767293928_dbl_kind, 56.5956509951432_dbl_kind, 57.0420395068337_dbl_kind /) iceMassExtinctionCrossSectionDiffuse(1:5 ,2) = (/ 53.833774536561_dbl_kind, 54.2222733573191_dbl_kind, 54.4375490183943_dbl_kind, 54.7241079131626_dbl_kind, 55.1495188852908_dbl_kind /) iceMassExtinctionCrossSectionDiffuse(1:5 ,3) = (/ 52.1298603819672_dbl_kind, 52.4963322939501_dbl_kind, 52.7059338119213_dbl_kind, 52.9717745215122_dbl_kind, 53.3780039015646_dbl_kind /) @@ -9305,7 +9305,7 @@ subroutine icepack_shortwave_init_snicar() iceMassExtinctionCrossSectionDiffuse(1:5 ,1469) = (/ 1.09424281512062_dbl_kind, 1.09480795348301_dbl_kind, 1.09528524993676_dbl_kind, 1.09557354028497_dbl_kind, 1.09626411965756_dbl_kind /) iceMassExtinctionCrossSectionDiffuse(1:5 ,1470) = (/ 1.09351660138719_dbl_kind, 1.0940811048909_dbl_kind, 1.09455790787508_dbl_kind, 1.09484580360961_dbl_kind, 1.09553567789908_dbl_kind /) iceMassExtinctionCrossSectionDiffuse(1:5 ,1471) = (/ 1.09279138349745_dbl_kind, 1.0933552534738_dbl_kind, 1.09383156356567_dbl_kind, 1.09411906558729_dbl_kind, 1.09480823602405_dbl_kind /) - + modalAsymmetryParameter5band(1:5 ,1) = (/ 0.283180657713357_dbl_kind, 0.209482088735706_dbl_kind, 0.166441061642889_dbl_kind, 0.138879205492097_dbl_kind, 0.0862017497093632_dbl_kind /) modalAsymmetryParameter5band(1:5 ,2) = (/ 0.444732109704644_dbl_kind, 0.342651789871816_dbl_kind, 0.285303488980226_dbl_kind, 0.247698976619574_dbl_kind, 0.167948761949466_dbl_kind /) modalAsymmetryParameter5band(1:5 ,3) = (/ 0.547091281292997_dbl_kind, 0.433969936661441_dbl_kind, 0.368367957620211_dbl_kind, 0.324886781461864_dbl_kind, 0.229171714711908_dbl_kind /) @@ -9316,7 +9316,7 @@ subroutine icepack_shortwave_init_snicar() modalAsymmetryParameter5band(1:5 ,8) = (/ 0.750549324881687_dbl_kind, 0.665849031271645_dbl_kind, 0.60016461579108_dbl_kind, 0.551378204757893_dbl_kind, 0.427376921191516_dbl_kind /) modalAsymmetryParameter5band(1:5 ,9) = (/ 0.766559757465102_dbl_kind, 0.689942199993075_dbl_kind, 0.627527163812553_dbl_kind, 0.580037712812519_dbl_kind, 0.455582792418271_dbl_kind /) modalAsymmetryParameter5band(1:5 ,10) = (/ 0.779191279240598_dbl_kind, 0.71000026362677_dbl_kind, 0.651064109101405_dbl_kind, 0.605182083087546_dbl_kind, 0.48123462598527_dbl_kind /) - + modalMassExtinctionCrossSection5band(1:5 ,1) = (/ 12944.1191669303_dbl_kind, 6433.8546129199_dbl_kind, 4379.35815079177_dbl_kind, 3492.51850776132_dbl_kind, 2271.71785345005_dbl_kind /) modalMassExtinctionCrossSection5band(1:5 ,2) = (/ 12080.1397436577_dbl_kind, 7942.86489089621_dbl_kind, 5812.47284115357_dbl_kind, 4685.4656136674_dbl_kind, 2943.75841342826_dbl_kind /) modalMassExtinctionCrossSection5band(1:5 ,3) = (/ 9752.02484228556_dbl_kind, 7698.94532514882_dbl_kind, 6190.90781492957_dbl_kind, 5232.51964498223_dbl_kind, 3463.69216361937_dbl_kind /) @@ -9327,7 +9327,7 @@ subroutine icepack_shortwave_init_snicar() modalMassExtinctionCrossSection5band(1:5 ,8) = (/ 3934.40205337053_dbl_kind, 4035.52102830084_dbl_kind, 3969.24444889817_dbl_kind, 3850.95782137369_dbl_kind, 3328.91108844436_dbl_kind /) modalMassExtinctionCrossSection5band(1:5 ,9) = (/ 3461.43069443711_dbl_kind, 3590.1138938721_dbl_kind, 3579.26043074527_dbl_kind, 3513.60273858667_dbl_kind, 3133.888122911_dbl_kind /) modalMassExtinctionCrossSection5band(1:5 ,10) = (/ 3083.24574223473_dbl_kind, 3220.83851695162_dbl_kind, 3243.02488284297_dbl_kind, 3212.5874258974_dbl_kind, 2941.20365863075_dbl_kind /) - + modalSingleScatterAlbedo5band(1:5 ,1) = (/ 0.260958704071654_dbl_kind, 0.16805845111727_dbl_kind, 0.11411468355425_dbl_kind, 0.0845902711417414_dbl_kind, 0.0447050517464244_dbl_kind /) modalSingleScatterAlbedo5band(1:5 ,2) = (/ 0.375522113298175_dbl_kind, 0.31235052399053_dbl_kind, 0.26288498209907_dbl_kind, 0.22723691750397_dbl_kind, 0.159075641626696_dbl_kind /) modalSingleScatterAlbedo5band(1:5 ,3) = (/ 0.422185378147481_dbl_kind, 0.376555779043625_dbl_kind, 0.33936407097995_dbl_kind, 0.310215627605754_dbl_kind, 0.245905521445928_dbl_kind /) @@ -9338,7 +9338,7 @@ subroutine icepack_shortwave_init_snicar() modalSingleScatterAlbedo5band(1:5 ,8) = (/ 0.494354868140575_dbl_kind, 0.4669281500285_dbl_kind, 0.451247969458627_dbl_kind, 0.43894010429319_dbl_kind, 0.40499178204751_dbl_kind /) modalSingleScatterAlbedo5band(1:5 ,9) = (/ 0.501264988054309_dbl_kind, 0.47412360289998_dbl_kind, 0.459551339156444_dbl_kind, 0.448519783558473_dbl_kind, 0.417901240195357_dbl_kind /) modalSingleScatterAlbedo5band(1:5 ,10) = (/ 0.507319636821098_dbl_kind, 0.480317417860846_dbl_kind, 0.466481312779405_dbl_kind, 0.456408044720941_dbl_kind, 0.428557864653526_dbl_kind /) - + modalBCabsorptionParameter5band(1:5 ,1,1) = (/ 2.01085868366548_dbl_kind, 2.04133313210786_dbl_kind, 2.07508000300547_dbl_kind, 1.96633438024084_dbl_kind, 1.41689382160734_dbl_kind /) modalBCabsorptionParameter5band(1:5 ,2,1) = (/ 2.06240193763163_dbl_kind, 2.00779624447446_dbl_kind, 2.03535206238544_dbl_kind, 1.93696335633222_dbl_kind, 1.42085892146856_dbl_kind /) modalBCabsorptionParameter5band(1:5 ,3,1) = (/ 2.16245417515345_dbl_kind, 2.03367512749659_dbl_kind, 2.03217185662912_dbl_kind, 1.92216538758257_dbl_kind, 1.41057880313765_dbl_kind /) @@ -9419,32 +9419,32 @@ subroutine icepack_shortwave_init_snicar() modalBCabsorptionParameter5band(1:5 ,8,8) = (/ 2.35301272208646_dbl_kind, 2.15836713295615_dbl_kind, 1.89774509946483_dbl_kind, 1.16093986738741_dbl_kind, 0.0440574325725808_dbl_kind /) modalBCabsorptionParameter5band(1:5 ,9,8) = (/ 2.39970609592023_dbl_kind, 2.19922606974399_dbl_kind, 1.9304940073545_dbl_kind, 1.17776068893983_dbl_kind, 0.044374386922134_dbl_kind /) modalBCabsorptionParameter5band(1:5 ,10,8) = (/ 2.44149053760016_dbl_kind, 2.23685927813827_dbl_kind, 1.96142401595058_dbl_kind, 1.19418484664932_dbl_kind, 0.0447083456286085_dbl_kind /) - + bcEffectiveRadius (1:nModal1) = (/ 0.05_dbl_kind, 0.1_dbl_kind, 0.15_dbl_kind, 0.2_dbl_kind, 0.25_dbl_kind, 0.3_dbl_kind, 0.35_dbl_kind, 0.4_dbl_kind, 0.45_dbl_kind, 0.5_dbl_kind /) - + iceGrainEffectiveRadius (1:nModal2) = (/ 50_dbl_kind, 100_dbl_kind, 250_dbl_kind, 500_dbl_kind, 750_dbl_kind, 1000_dbl_kind, 1250_dbl_kind, 1500_dbl_kind /) - + aerosolAsymmetryParameter5band(1:5 ,1) = (/ 0.350231881885906_dbl_kind, 0.211924244128064_dbl_kind, 0.146188682542913_dbl_kind, 0.112009439045293_dbl_kind, 0.060565694843084_dbl_kind /) aerosolAsymmetryParameter5band(1:5 ,2) = (/ 0.521517715996158_dbl_kind, 0.34457189840306_dbl_kind, 0.244048159248401_dbl_kind, 0.188518513380877_dbl_kind, 0.103316928297739_dbl_kind /) aerosolAsymmetryParameter5band(1:5 ,3) = (/ 0.690908112844937_dbl_kind, 0.717759065247993_dbl_kind, 0.671511248292627_dbl_kind, 0.614225462567888_dbl_kind, 0.436682950958558_dbl_kind /) aerosolAsymmetryParameter5band(1:5 ,4) = (/ 0.699478684452806_dbl_kind, 0.651992387581091_dbl_kind, 0.695738438913831_dbl_kind, 0.724417176862696_dbl_kind, 0.701481090364134_dbl_kind /) aerosolAsymmetryParameter5band(1:5 ,5) = (/ 0.785636278417498_dbl_kind, 0.749796744517699_dbl_kind, 0.683301177698451_dbl_kind, 0.629720518882672_dbl_kind, 0.665531587501598_dbl_kind /) aerosolAsymmetryParameter5band(1:5 ,6) = (/ 0.829747716843613_dbl_kind, 0.785685490791679_dbl_kind, 0.772583689570701_dbl_kind, 0.757648539242581_dbl_kind, 0.728843851070574_dbl_kind /) - + aerosolMassExtinctionCrossSection5band(1:5 ,1) = (/ 11398.4540724821_dbl_kind, 5922.76076637376_dbl_kind, 4039.88947595266_dbl_kind, 3261.62137894056_dbl_kind, 2223.60028513459_dbl_kind /) aerosolMassExtinctionCrossSection5band(1:5 ,2) = (/ 25368.6111954733_dbl_kind, 12520.3846877849_dbl_kind, 7738.643174918_dbl_kind, 5744.35461327268_dbl_kind, 3526.76546641382_dbl_kind /) aerosolMassExtinctionCrossSection5band(1:5 ,3) = (/ 2686.90326329624_dbl_kind, 2419.98140297723_dbl_kind, 1627.51690973548_dbl_kind, 1138.23252303209_dbl_kind, 466.104227277046_dbl_kind /) aerosolMassExtinctionCrossSection5band(1:5 ,4) = (/ 841.089434044834_dbl_kind, 987.406197502421_dbl_kind, 1183.52284776972_dbl_kind, 1267.30625580205_dbl_kind, 993.497508579304_dbl_kind /) aerosolMassExtinctionCrossSection5band(1:5 ,5) = (/ 387.85423560755_dbl_kind, 419.109723948302_dbl_kind, 399.559447343404_dbl_kind, 397.191283865122_dbl_kind, 503.14317519429_dbl_kind /) aerosolMassExtinctionCrossSection5band(1:5 ,6) = (/ 196.638063554016_dbl_kind, 202.877379461792_dbl_kind, 208.304425287341_dbl_kind, 204.723737634461_dbl_kind, 228.755667038372_dbl_kind /) - + aerosolSingleScatterAlbedo5band(1:5 ,1) = (/ 0.287685315976181_dbl_kind, 0.186577277125224_dbl_kind, 0.123152237089201_dbl_kind, 0.0883462885905543_dbl_kind, 0.0403421562269378_dbl_kind /) aerosolSingleScatterAlbedo5band(1:5 ,2) = (/ 0.515945305512804_dbl_kind, 0.434313626536424_dbl_kind, 0.346103765992635_dbl_kind, 0.275522926330555_dbl_kind, 0.138576096442815_dbl_kind /) aerosolSingleScatterAlbedo5band(1:5 ,3) = (/ 0.97891105715305_dbl_kind, 0.994175916042451_dbl_kind, 0.993357580762207_dbl_kind, 0.992545751316266_dbl_kind, 0.953291550046772_dbl_kind /) aerosolSingleScatterAlbedo5band(1:5 ,4) = (/ 0.943752248802793_dbl_kind, 0.984191668599419_dbl_kind, 0.989309063917025_dbl_kind, 0.991793946836264_dbl_kind, 0.982999590668913_dbl_kind /) aerosolSingleScatterAlbedo5band(1:5 ,5) = (/ 0.904044530646049_dbl_kind, 0.964651629694555_dbl_kind, 0.968275809551522_dbl_kind, 0.972598419874107_dbl_kind, 0.977612418329876_dbl_kind /) aerosolSingleScatterAlbedo5band(1:5 ,6) = (/ 0.849818195355416_dbl_kind, 0.940460325044343_dbl_kind, 0.948316305534169_dbl_kind, 0.952841175117807_dbl_kind, 0.955379528193802_dbl_kind /) - + ! Copy to local variables if (nSpectralIntervalsSNICAR /= nspint_5bd) then diff --git a/configuration/scripts/tests/snicar_suite.ts b/configuration/scripts/tests/snicar_suite.ts new file mode 100644 index 000000000..8779131ab --- /dev/null +++ b/configuration/scripts/tests/snicar_suite.ts @@ -0,0 +1,9 @@ +# Test Grid PEs Sets BFB-compare +smoke col 1x1 diag1,run1year +smoke col 1x1 debug,run1year +smoke col 1x1 diag1,run1year,snicartest +smoke col 1x1 debug,run1year,snicartest +smoke col 1x1 diag1,run1year,snicar +smoke col 1x1 debug,run1year,snicar +smoke col 1x1 diag1,run1year,snicarfile +smoke col 1x1 debug,run1year,snicarfile From f270c730d479b2fbd85fd017e11b165bcce52b15 Mon Sep 17 00:00:00 2001 From: apcraig Date: Tue, 6 Sep 2022 14:00:59 -0600 Subject: [PATCH 30/64] Cleanup icepack_shortwave_data - Rename variables to gaer/kaer/waer/bcenh for 3 and 5 band - Add 3 band gaer/kaer/waer/bcenh data - Eliminate ability to pass SSP SNICAR data in thru icepack_parameters - Remove nmodal1, nmodal2, max_aero redundant definitions, use values in icepack_tracers - Change module hierarchy, icepack_parameters now "under" icepack_shortwave_data - Rename nmbrad in icepack_shortwave_data to nmbrad_snw --- columnphysics/icepack_parameters.F90 | 208 +------ columnphysics/icepack_shortwave.F90 | 112 +--- columnphysics/icepack_shortwave_data.F90 | 632 +++++++++++--------- configuration/driver/icedrv_forcing.F90 | 303 +--------- configuration/driver/icedrv_init.F90 | 64 +- configuration/driver/icedrv_init_column.F90 | 5 +- icepack.setup | 2 +- 7 files changed, 399 insertions(+), 927 deletions(-) diff --git a/columnphysics/icepack_parameters.F90 b/columnphysics/icepack_parameters.F90 index 0425eb4a8..ce9a5f35d 100644 --- a/columnphysics/icepack_parameters.F90 +++ b/columnphysics/icepack_parameters.F90 @@ -9,17 +9,6 @@ module icepack_parameters use icepack_kinds use icepack_warnings, only: icepack_warnings_aborted, & icepack_warnings_add, icepack_warnings_setabort - use icepack_shortwave_data, only: & - use_snicar , & - nspint_3bd , nspint_5bd , & - snw_ssp_table, & - ssp_snwextdr , ssp_snwextdf, & - ssp_snwalbdr , ssp_snwalbdf, & - ssp_sasymmdr , ssp_sasymmdf, & - ssp_aasymmmd , ssp_aerextmd, & - ssp_aeralbmd , ssp_aasymm , & - ssp_aerext , ssp_aeralb , & - ssp_abcenhmd implicit none private @@ -237,6 +226,12 @@ module icepack_parameters sw_frac = 0.9_dbl_kind , & ! Fraction of internal shortwave moved to surface sw_dtemp = 0.02_dbl_kind ! temperature difference from melting + ! Parameters for dEdd_snicar + logical (kind=log_kind), public :: & + use_snicar = .false. ! .true. use 5-band SNICAR-AD approach + character (len=char_len), public :: & + snw_ssp_table = 'test' ! lookup table: 'snicar' or 'test' + !----------------------------------------------------------------------- ! Parameters for dynamics, including ridging and strength !----------------------------------------------------------------------- @@ -495,11 +490,7 @@ subroutine icepack_init_parameters( & snwlvlfac_in, isnw_T_in, isnw_Tgrd_in, isnw_rhos_in, & snowage_rhos_in, snowage_Tgrd_in, snowage_T_in, & snowage_tau_in, snowage_kappa_in, snowage_drdt0_in, & - snw_aging_table_in, snw_ssp_table_in, & - ssp_snwextdr_in, ssp_snwextdf_in, ssp_snwalbdr_in, ssp_snwalbdf_in, & - ssp_sasymmdr_in, ssp_sasymmdf_in, & - ssp_aasymmmd_in, ssp_aerextmd_in, ssp_aeralbmd_in, ssp_abcenhmd_in, & - ssp_aasymm_in, ssp_aerext_in, ssp_aeralb_in ) + snw_aging_table_in, snw_ssp_table_in ) !----------------------------------------------------------------- ! control settings @@ -853,26 +844,8 @@ subroutine icepack_init_parameters( & snowage_kappa_in, &! snowage_drdt0_in ! (10^-6 m/hr) - ! Parameters for dEdd_snicar character (len=char_len), intent(in), optional :: & - snw_ssp_table_in ! lookup table: 'snicar' or 'test' or 'file' - - real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & - ssp_snwextdr_in, & ! snow mass extinction cross section (m2/kg), direct - ssp_snwextdf_in, & ! snow mass extinction cross section (m2/kg), diffuse - ssp_snwalbdr_in, & ! snow single scatter albedo (fraction), direct - ssp_snwalbdf_in, & ! snow single scatter albedo (fraction), diffuse - ssp_sasymmdr_in, & ! snow asymmetry factor (cos(theta)), direct - ssp_sasymmdf_in, & ! snow asymmetry factor (cos(theta)), diffuse - ssp_aasymmmd_in, & ! gaer_bc_5bd, modalAsymmetryParameter5band - ssp_aerextmd_in, & ! kaer_bc_5bd, modalMassExtinctionCrossSection5band - ssp_aeralbmd_in, & ! waer_bc_5bd, modalSingleScatterAlbedo5band - ssp_aasymm_in, & ! gaer_5bd, aerosolAsymmetryParameter5band - ssp_aerext_in, & ! kaer_5bd, aerosolMassExtinctionCrossSection5band - ssp_aeralb_in ! waer_5bd, aerosolSingleScatterAlbedo5band - real (kind=dbl_kind), dimension(:,:,:), intent(in), optional :: & - ssp_abcenhmd_in ! bcenh_5bd, modalBCabsorptionParameter5band - + snw_ssp_table_in ! lookup table: 'snicar' or 'test' !autodocument_end @@ -1121,118 +1094,7 @@ subroutine icepack_init_parameters( & endif endif - !------------------- - ! SNICAR SSP table - !------------------- - if (present(snw_ssp_table_in) ) snw_ssp_table = snw_ssp_table_in - - ! allocate and copy SNICAR SSP table data - - if (present(ssp_snwextdr_in) ) then - if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) - dim1 = size(ssp_snwextdr_in,dim=1) - dim2 = size(ssp_snwextdr_in,dim=2) - allocate(ssp_snwextdr(dim1,dim2)) - ssp_snwextdr = ssp_snwextdr_in - endif - - if (present(ssp_snwextdf_in) ) then - if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) - dim1 = size(ssp_snwextdf_in,dim=1) - dim2 = size(ssp_snwextdf_in,dim=2) - allocate(ssp_snwextdf(dim1,dim2)) - ssp_snwextdf = ssp_snwextdf_in - endif - - if (present(ssp_snwalbdr_in) ) then - if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) - dim1 = size(ssp_snwalbdr_in,dim=1) - dim2 = size(ssp_snwalbdr_in,dim=2) - allocate(ssp_snwalbdr(dim1,dim2)) - ssp_snwalbdr = ssp_snwalbdr_in - endif - - if (present(ssp_snwalbdf_in) ) then - if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) - dim1 = size(ssp_snwalbdf_in,dim=1) - dim2 = size(ssp_snwalbdf_in,dim=2) - allocate(ssp_snwalbdf(dim1,dim2)) - ssp_snwalbdf = ssp_snwalbdf_in - endif - - if (present(ssp_sasymmdr_in) ) then - if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) - dim1 = size(ssp_sasymmdr_in,dim=1) - dim2 = size(ssp_sasymmdr_in,dim=2) - allocate(ssp_sasymmdr(dim1,dim2)) - ssp_sasymmdr = ssp_sasymmdr_in - endif - - if (present(ssp_sasymmdf_in) ) then - if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) - dim1 = size(ssp_sasymmdf_in,dim=1) - dim2 = size(ssp_sasymmdf_in,dim=2) - allocate(ssp_sasymmdf(dim1,dim2)) - ssp_sasymmdf = ssp_sasymmdf_in - endif - - if (present(ssp_aasymmmd_in) ) then - if (allocated(ssp_aasymmmd)) deallocate(ssp_aasymmmd) - dim1 = size(ssp_aasymmmd_in,dim=1) - dim2 = size(ssp_aasymmmd_in,dim=2) - allocate(ssp_aasymmmd(dim1,dim2)) - ssp_aasymmmd = ssp_aasymmmd_in - endif - - if (present(ssp_aerextmd_in) ) then - if (allocated(ssp_aerextmd)) deallocate(ssp_aerextmd) - dim1 = size(ssp_aerextmd_in,dim=1) - dim2 = size(ssp_aerextmd_in,dim=2) - allocate(ssp_aerextmd(dim1,dim2)) - ssp_aerextmd = ssp_aerextmd_in - endif - - if (present(ssp_aeralbmd_in) ) then - if (allocated(ssp_aeralbmd)) deallocate(ssp_aeralbmd) - dim1 = size(ssp_aeralbmd_in,dim=1) - dim2 = size(ssp_aeralbmd_in,dim=2) - allocate(ssp_aeralbmd(dim1,dim2)) - ssp_aeralbmd = ssp_aeralbmd_in - endif - - if (present(ssp_aasymm_in) ) then - if (allocated(ssp_aasymm)) deallocate(ssp_aasymm) - dim1 = size(ssp_aasymm_in,dim=1) - dim2 = size(ssp_aasymm_in,dim=2) - allocate(ssp_aasymm(dim1,dim2)) - ssp_aasymm = ssp_aasymm_in - endif - - if (present(ssp_aerext_in) ) then - if (allocated(ssp_aerext)) deallocate(ssp_aerext) - dim1 = size(ssp_aerext_in,dim=1) - dim2 = size(ssp_aerext_in,dim=2) - allocate(ssp_aerext(dim1,dim2)) - ssp_aerext = ssp_aerext_in - endif - - if (present(ssp_aeralb_in) ) then - if (allocated(ssp_aeralb)) deallocate(ssp_aeralb) - dim1 = size(ssp_aeralb_in,dim=1) - dim2 = size(ssp_aeralb_in,dim=2) - allocate(ssp_aeralb(dim1,dim2)) - ssp_aeralb = ssp_aeralb_in - endif - - if (present(ssp_abcenhmd_in) ) then - if (allocated(ssp_abcenhmd)) deallocate(ssp_abcenhmd) - dim1 = size(ssp_abcenhmd_in,dim=1) - dim2 = size(ssp_abcenhmd_in,dim=2) - dim3 = size(ssp_abcenhmd_in,dim=3) - allocate(ssp_abcenhmd(dim1,dim2,dim3)) - ssp_abcenhmd = ssp_abcenhmd_in - endif - + if (present(snw_ssp_table_in) ) snw_ssp_table = snw_ssp_table_in if (present(bgc_flux_type_in) ) bgc_flux_type = bgc_flux_type_in if (present(z_tracers_in) ) z_tracers = z_tracers_in if (present(scale_bgc_in) ) scale_bgc = scale_bgc_in @@ -1345,12 +1207,7 @@ subroutine icepack_query_parameters( & snwlvlfac_out, isnw_T_out, isnw_Tgrd_out, isnw_rhos_out, & snowage_rhos_out, snowage_Tgrd_out, snowage_T_out, & snowage_tau_out, snowage_kappa_out, snowage_drdt0_out, & - snw_aging_table_out, snw_ssp_table_out, & - ssp_snwextdr_out, ssp_snwextdf_out, & - ssp_snwalbdr_out, ssp_snwalbdf_out, & - ssp_sasymmdr_out, ssp_sasymmdf_out, & - ssp_aasymmmd_out, ssp_aerextmd_out, ssp_aeralbmd_out, ssp_abcenhmd_out, & - ssp_aasymm_out, ssp_aerext_out, ssp_aeralb_out ) + snw_aging_table_out, snw_ssp_table_out ) !----------------------------------------------------------------- ! control settings @@ -1713,25 +1570,8 @@ subroutine icepack_query_parameters( & snowage_kappa_out, &! snowage_drdt0_out ! (10^-6 m/hr) - ! Parameters for dEdd_snicar character (len=char_len), intent(out), optional :: & - snw_ssp_table_out ! lookup table: 'snicar' or 'test' or 'file' - - real (kind=dbl_kind), dimension(:,:), intent(out), optional :: & - ssp_snwextdr_out, & ! snow mass extinction cross section (m2/kg), direct - ssp_snwextdf_out, & ! snow mass extinction cross section (m2/kg), diffuse - ssp_snwalbdr_out, & ! snow single scatter albedo (fraction), direct - ssp_snwalbdf_out, & ! snow single scatter albedo (fraction), diffuse - ssp_sasymmdr_out, & ! snow asymmetry factor (cos(theta)), direct - ssp_sasymmdf_out, & ! snow asymmetry factor (cos(theta)), diffuse - ssp_aasymmmd_out, & ! gaer_bc_5bd, modalAsymmetryParameter5band - ssp_aerextmd_out, & ! kaer_bc_5bd, modalMassExtinctionCrossSection5band - ssp_aeralbmd_out, & ! waer_bc_5bd, modalSingleScatterAlbedo5band - ssp_aasymm_out, & ! gaer_5bd, aerosolAsymmetryParameter5band - ssp_aerext_out, & ! kaer_5bd, aerosolMassExtinctionCrossSection5band - ssp_aeralb_out ! waer_5bd, aerosolSingleScatterAlbedo5band - real (kind=dbl_kind), dimension(:,:,:), intent(out), optional :: & - ssp_abcenhmd_out ! bcenh_5bd, modalBCabsorptionParameter5band + snw_ssp_table_out ! lookup table: 'snicar' or 'test' !autodocument_end @@ -1917,19 +1757,6 @@ subroutine icepack_query_parameters( & if (present(snowage_kappa_out) ) snowage_kappa_out= snowage_kappa if (present(snowage_drdt0_out) ) snowage_drdt0_out= snowage_drdt0 if (present(snw_ssp_table_out) ) snw_ssp_table_out= snw_ssp_table - if (present(ssp_snwextdr_out) ) ssp_snwextdr_out = ssp_snwextdr - if (present(ssp_snwextdf_out) ) ssp_snwextdf_out = ssp_snwextdf - if (present(ssp_snwalbdr_out) ) ssp_snwalbdr_out = ssp_snwalbdr - if (present(ssp_snwalbdf_out) ) ssp_snwalbdf_out = ssp_snwalbdf - if (present(ssp_sasymmdr_out) ) ssp_sasymmdr_out = ssp_sasymmdr - if (present(ssp_sasymmdf_out) ) ssp_sasymmdf_out = ssp_sasymmdf - if (present(ssp_aasymmmd_out) ) ssp_aasymmmd_out = ssp_aasymmmd - if (present(ssp_aerextmd_out) ) ssp_aerextmd_out = ssp_aerextmd - if (present(ssp_aeralbmd_out) ) ssp_aeralbmd_out = ssp_aeralbmd - if (present(ssp_aasymm_out) ) ssp_aasymm_out = ssp_aasymm - if (present(ssp_aerext_out) ) ssp_aerext_out = ssp_aerext - if (present(ssp_aeralb_out) ) ssp_aeralb_out = ssp_aeralb - if (present(ssp_abcenhmd_out) ) ssp_abcenhmd_out = ssp_abcenhmd if (present(bgc_flux_type_out) ) bgc_flux_type_out= bgc_flux_type if (present(z_tracers_out) ) z_tracers_out = z_tracers if (present(scale_bgc_out) ) scale_bgc_out = scale_bgc @@ -2141,19 +1968,6 @@ subroutine icepack_write_parameters(iounit) write(iounit,*) " snowage_kappa = ", snowage_kappa(1,1,1) write(iounit,*) " snowage_drdt0 = ", snowage_drdt0(1,1,1) write(iounit,*) " snw_ssp_table = ", trim(snw_ssp_table) - write(iounit,*) " ssp_snwextdr = ", ssp_snwextdr(1,1) - write(iounit,*) " ssp_snwextdf = ", ssp_snwextdf(1,1) - write(iounit,*) " ssp_snwalbdr = ", ssp_snwalbdr(1,1) - write(iounit,*) " ssp_snwalbdf = ", ssp_snwalbdf(1,1) - write(iounit,*) " ssp_sasymmdr = ", ssp_sasymmdr(1,1) - write(iounit,*) " ssp_sasymmdf = ", ssp_sasymmdf(1,1) - write(iounit,*) " ssp_aasymmmd = ", ssp_aasymmmd(1,1) - write(iounit,*) " ssp_aerextmd = ", ssp_aerextmd(1,1) - write(iounit,*) " ssp_aeralbmd = ", ssp_aeralbmd(1,1) - write(iounit,*) " ssp_abcenhmd = ", ssp_abcenhmd(1,1,1) - write(iounit,*) " ssp_aasymm = ", ssp_aasymm (1,1) - write(iounit,*) " ssp_aerext = ", ssp_aerext (1,1) - write(iounit,*) " ssp_aeralb = ", ssp_aeralb (1,1) write(iounit,*) " bgc_flux_type = ", bgc_flux_type write(iounit,*) " z_tracers = ", z_tracers write(iounit,*) " scale_bgc = ", scale_bgc diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 38f0bab0e..59fd869dc 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -54,7 +54,7 @@ module icepack_shortwave #endif use icepack_parameters, only: R_ice, R_pnd, R_snw, dT_mlt, rsnw_mlt, hs0, hs1, hp1 use icepack_parameters, only: pndaspect, albedo_type, albicev, albicei, albsnowv, albsnowi, ahmax - use icepack_shortwave_data, only: nspint_3bd, nspint_5bd, use_snicar + use icepack_parameters, only: snw_ssp_table, use_snicar use icepack_tracers, only: ntrcr, nbtrcr_sw #ifdef UNDEPRECATE_CESMPONDS @@ -66,6 +66,7 @@ module icepack_shortwave use icepack_tracers, only: nt_bgc_N, nt_zaero use icepack_tracers, only: tr_zaero, nlt_chl_sw, nlt_zaero_sw use icepack_tracers, only: n_algae, n_aero, n_zaero + use icepack_tracers, only: nmodal1, nmodal2, max_aero use icepack_warnings, only: warnstr, icepack_warnings_add use icepack_warnings, only: icepack_warnings_setabort, icepack_warnings_aborted @@ -74,18 +75,11 @@ module icepack_shortwave use icepack_orbital, only: compute_coszen ! SNICAR SSP data + use icepack_shortwave_data, only: nspint_3bd, nspint_5bd use icepack_shortwave_data, only: & nmbrad_snicar , & ! number of snow grain radii in SNICAR SSP tables - nmodal1_snicar , & ! nModal1 in SNICAR SSP tables - nmodal2_snicar , & ! nModal2 in SNICAR SSP tables - nmaeros_snicar , & ! maxAerosolType in SNICAR SSP tables rsnw_snicar_min, & ! minimum snow radius - integer value used for indexing rsnw_snicar_max ! maximum snow radius - integer value used for indexing - use icepack_shortwave_data, only: & - snw_ssp_table, ssp_snwextdr, ssp_snwalbdr, ssp_sasymmdr, & - ssp_snwextdf, ssp_snwalbdf, ssp_sasymmdf, ssp_aasymmmd, ssp_aerextmd, & - ssp_aeralbmd, ssp_abcenhmd, ssp_aasymm, ssp_aerext, ssp_aeralb, & - rsnw_snicar_tab ! dEdd 3-band data use icepack_shortwave_data, only: & @@ -100,17 +94,22 @@ module icepack_shortwave ki_p_int_mn, wi_p_int_mn, gi_p_int_mn , & ! ponded ice interior layer (int) iops kw, ww, gw ! iops for pond water and underlying ocean use icepack_shortwave_data, only: & - nmbrad, & ! number of snow grain radii in tables - rsnw_tab, & ! snow grain radii (micro-meters) for table - Qs_tab, & ! snow extinction efficiency (unitless) - ws_tab, & ! snow single scattering albedo (unitless) - gs_tab ! snow asymmetry parameter (unitless) + nmbrad_snw, & ! number of snow grain radii in tables + rsnw_tab, & ! snow grain radii (micro-meters) for table + Qs_tab, & ! snow extinction efficiency (unitless) + ws_tab, & ! snow single scattering albedo (unitless) + gs_tab ! snow asymmetry parameter (unitless) ! dEdd 5-band data use icepack_shortwave_data, only: & ki_ssl_mn_5bd, wi_ssl_mn_5bd, gi_ssl_mn_5bd, & ! ice surface scattering layer (ssl) iops ki_dl_mn_5bd, wi_dl_mn_5bd, gi_dl_mn_5bd , & ! ice drained layer (dl) iops ki_int_mn_5bd, wi_int_mn_5bd, gi_int_mn_5bd ! ice interior layer (int) iops + use icepack_shortwave_data, only: & + ssp_snwextdr, ssp_snwalbdr, ssp_sasymmdr, & + ssp_snwextdf, ssp_snwalbdf, ssp_sasymmdf, gaer_bc_5bd, kaer_bc_5bd, & + waer_bc_5bd, bcenh_5bd, gaer_5bd, kaer_5bd, waer_5bd, & + rsnw_snicar_tab implicit none @@ -206,15 +205,6 @@ subroutine data_dEdd_snicar ! 1471 snow grain radii ! 5 spectral intervals - ! if snw_ssp_table = 'snicarfile' - ! best-fit parameters are read from a file and passed to Icepack - ! 1471 snow grain radii - ! 5 spectral intervals - - ! if snw_ssp_table = 'file' - ! all data has to be passed into icepack_parameters - ! not yet supported - if (trim(snw_ssp_table) == 'test') then ! 5x5 table call icepack_shortwave_init_snicartest() @@ -225,30 +215,6 @@ subroutine data_dEdd_snicar call icepack_shortwave_init_snicar() if (icepack_warnings_aborted(subname)) return - elseif (trim(snw_ssp_table) == 'snicarfile') then - ! table passed in, hardwired 1471 x 5 table with 10/8/6/30/1500 expected - ! set data NOT passed in - nmbrad_snicar = 1471 ! snow grain radius number SNICAR SSP tables - nmodal1_snicar = 10 ! nModal1 in SNICAR SSP tables - nmodal2_snicar = 8 ! nModal2 in SNICAR SSP tables - nmaeros_snicar = 6 ! maxAerosolType in SNICAR SSP tables - -!echmod - this might not be needed - rsnw_snicar_min = 30 ! minimum snow grain radius - rsnw_snicar_max = 1500 ! maximum snow grain radius - allocate(rsnw_snicar_tab(nmbrad_snicar)) ! snow grain radii - rsnw_snicar_tab(1) = real(rsnw_snicar_min,dbl_kind) - do n = 1, nmbrad_snicar-1 - rsnw_snicar_tab(n+1) = rsnw_snicar_tab(n) + c1 - enddo - - elseif (trim(snw_ssp_table) == 'file') then - ! table passed in, table lookup + interpolate, not yet supported - nmbrad_snicar = size(ssp_snwextdr,dim=2) ! maximum snow grain radius index - call icepack_warnings_setabort(.true.,__FILE__,__LINE__) - call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)//' not supported') - return - else call icepack_warnings_setabort(.true.,__FILE__,__LINE__) call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)//' not supported') @@ -259,48 +225,15 @@ subroutine data_dEdd_snicar ! Check SNICAR SSP data !------------------------------ - if ((size(ssp_snwextdr,dim=1) /= nspint_5bd ) .or. & - (size(ssp_snwextdr,dim=2) /= nmbrad_snicar ) .or. & - (size(ssp_snwextdf,dim=1) /= nspint_5bd ) .or. & - (size(ssp_snwextdf,dim=2) /= nmbrad_snicar ) .or. & - (size(ssp_snwalbdr,dim=1) /= nspint_5bd ) .or. & - (size(ssp_snwalbdr,dim=2) /= nmbrad_snicar ) .or. & - (size(ssp_snwalbdf,dim=1) /= nspint_5bd ) .or. & - (size(ssp_snwalbdf,dim=2) /= nmbrad_snicar ) .or. & - (size(ssp_sasymmdr,dim=1) /= nspint_5bd ) .or. & - (size(ssp_sasymmdr,dim=2) /= nmbrad_snicar ) .or. & - (size(ssp_sasymmdf,dim=1) /= nspint_5bd ) .or. & - (size(ssp_sasymmdf,dim=2) /= nmbrad_snicar ) .or. & - (size(ssp_aasymmmd,dim=1) /= nspint_5bd ) .or. & - (size(ssp_aasymmmd,dim=2) /= nmodal1_snicar) .or. & - (size(ssp_aerextmd,dim=1) /= nspint_5bd ) .or. & - (size(ssp_aerextmd,dim=2) /= nmodal1_snicar) .or. & - (size(ssp_aeralbmd,dim=1) /= nspint_5bd ) .or. & - (size(ssp_aeralbmd,dim=2) /= nmodal1_snicar) .or. & - (size(ssp_aasymm ,dim=1) /= nspint_5bd ) .or. & - (size(ssp_aasymm ,dim=2) /= nmaeros_snicar) .or. & - (size(ssp_aerext ,dim=1) /= nspint_5bd ) .or. & - (size(ssp_aerext ,dim=2) /= nmaeros_snicar) .or. & - (size(ssp_aeralb ,dim=1) /= nspint_5bd ) .or. & - (size(ssp_aeralb ,dim=2) /= nmaeros_snicar) .or. & - (size(ssp_abcenhmd,dim=1) /= nspint_5bd ) .or. & - (size(ssp_abcenhmd,dim=2) /= nmodal1_snicar) .or. & - (size(ssp_abcenhmd,dim=3) /= nmodal2_snicar)) then - call icepack_warnings_setabort(.true.,__FILE__,__LINE__) - call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)) - call icepack_warnings_add(subname//'ERROR: snw_ssp_table array size error') - return - endif - write(warnstr,'(2a,i8)') subname, ' nmbrad_snicar = ',nmbrad_snicar call icepack_warnings_add(warnstr) write(warnstr,'(2a,i8)') subname, ' nspint = ',nspint_5bd call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i8)') subname, ' nmodal1_snicar = ',nmodal1_snicar + write(warnstr,'(2a,i8)') subname, ' nmodal1 = ',nmodal1 call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i8)') subname, ' nmodal2_snicar = ',nmodal2_snicar + write(warnstr,'(2a,i8)') subname, ' nmodal2 = ',nmodal2 call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i8)') subname, ' nmaeros_snicar = ',nmaeros_snicar + write(warnstr,'(2a,i8)') subname, ' max_aero = ',max_aero call icepack_warnings_add(warnstr) write(warnstr,'(2a,i5,a,i5,a,g22.15)') subname, ' ssp_snwextdr(',1, ',',1, ') = ',ssp_snwextdr(1,1) call icepack_warnings_add(warnstr) @@ -2674,13 +2607,13 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & Qs = Qs_tab(ns,1) ws = ws_tab(ns,1) gs = gs_tab(ns,1) - else if( frsnw(ksnow) >= rsnw_tab(nmbrad) ) then - Qs = Qs_tab(ns,nmbrad) - ws = ws_tab(ns,nmbrad) - gs = gs_tab(ns,nmbrad) + else if( frsnw(ksnow) >= rsnw_tab(nmbrad_snw) ) then + Qs = Qs_tab(ns,nmbrad_snw) + ws = ws_tab(ns,nmbrad_snw) + gs = gs_tab(ns,nmbrad_snw) else ! linear interpolation in rsnw - do nr=2,nmbrad + do nr=2,nmbrad_snw if( rsnw_tab(nr-1) <= frsnw(ksnow) .and. & frsnw(ksnow) < rsnw_tab(nr)) then delr = (frsnw(ksnow) - rsnw_tab(nr-1)) / & @@ -4885,9 +4818,6 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & ksnow , & ! level index for snow density and grain size kii ! level starting index for sea ice (nslyr+1) - integer (kind=int_kind), parameter :: & - nmbrad = 32 ! number of snow grain radii in tables - real (kind=dbl_kind) :: & avdr , & ! visible albedo, direct (fraction) avdf , & ! visible albedo, diffuse (fraction) diff --git a/columnphysics/icepack_shortwave_data.F90 b/columnphysics/icepack_shortwave_data.F90 index d72ddd3f7..06d772644 100644 --- a/columnphysics/icepack_shortwave_data.F90 +++ b/columnphysics/icepack_shortwave_data.F90 @@ -4,15 +4,14 @@ module icepack_shortwave_data use icepack_kinds use icepack_warnings, only: warnstr, icepack_warnings_add use icepack_warnings, only: icepack_warnings_setabort, icepack_warnings_aborted + use icepack_parameters, only: c0 + use icepack_parameters, only: use_snicar, snw_ssp_table + use icepack_tracers, only: nmodal1, nmodal2, max_aero implicit none private - ! Parameters for dEdd_snicar - logical (kind=log_kind), public :: & - use_snicar = .false. ! .true. use 5-band SNICAR-AD approach - integer (kind=int_kind), parameter, public :: & nspint_3bd = 3, & ! number of solar spectral bands nspint_5bd = 5 ! number of solar spectral bands (snicar snow) @@ -29,7 +28,18 @@ module icepack_shortwave_data ki_p_ssl_mn, wi_p_ssl_mn, gi_p_ssl_mn , & ! ponded ice surface scattering layer (ssl) iops ki_p_int_mn, wi_p_int_mn, gi_p_int_mn , & ! ponded ice interior layer (int) iops kw, ww, gw ! iops for pond water and underlying ocean - integer (kind=int_kind), public :: nmbrad ! number of snow grain radii in tables + + real (kind=dbl_kind), allocatable, public :: & + gaer_bc_3bd (:,:), & ! gaer_bc_3bd, modalAsymmetryParameter5band + kaer_bc_3bd (:,:), & ! kaer_bc_3bd, modalMassExtinctionCrossSection5band + waer_bc_3bd (:,:), & ! waer_bc_3bd, modalSingleScatterAlbedo5band + gaer_3bd (:,:), & ! gaer_3bd, aerosolAsymmetryParameter5band + kaer_3bd (:,:), & ! kaer_3bd, aerosolMassExtinctionCrossSection5band + waer_3bd (:,:), & ! waer_3bd, aerosolSingleScatterAlbedo5band + bcenh_3bd (:,:,:) ! bcenh_3bd, modalBCabsorptionParameter5band + + integer (kind=int_kind), public :: & + nmbrad_snw ! number of snow grain radii in tables real (kind=dbl_kind), allocatable, public :: & rsnw_tab(:) , & ! snow grain radii (micro-meters) for table Qs_tab (:,:), & ! snow extinction efficiency (unitless) @@ -42,15 +52,18 @@ module icepack_shortwave_data ki_dl_mn_5bd, wi_dl_mn_5bd, gi_dl_mn_5bd , & ! ice drained layer (dl) iops ki_int_mn_5bd, wi_int_mn_5bd, gi_int_mn_5bd ! ice interior layer (int) iops - ! dEdd SNICAR SSP data - character (len=char_len), public :: & - snw_ssp_table = 'test' ! lookup table: 'snicar' or 'test' or 'file' + real (kind=dbl_kind), allocatable, public :: & + gaer_bc_5bd (:,:), & ! gaer_bc_5bd, modalAsymmetryParameter5band + kaer_bc_5bd (:,:), & ! kaer_bc_5bd, modalMassExtinctionCrossSection5band + waer_bc_5bd (:,:), & ! waer_bc_5bd, modalSingleScatterAlbedo5band + gaer_5bd (:,:), & ! gaer_5bd, aerosolAsymmetryParameter5band + kaer_5bd (:,:), & ! kaer_5bd, aerosolMassExtinctionCrossSection5band + waer_5bd (:,:), & ! waer_5bd, aerosolSingleScatterAlbedo5band + bcenh_5bd (:,:,:) ! bcenh_5bd, modalBCabsorptionParameter5band + ! dEdd 5-band data SSP SNICAR integer (kind=int_kind), public :: & nmbrad_snicar , & ! number of snow grain radii in SNICAR SSP tables - nmodal1_snicar , & ! nModal1 in SNICAR SSP tables - nmodal2_snicar , & ! nModal2 in SNICAR SSP tables - nmaeros_snicar , & ! maxAerosolType in SNICAR SSP tables rsnw_snicar_min, & ! minimum snow radius - integer value used for indexing rsnw_snicar_max ! maximum snow radius - integer value used for indexing @@ -61,14 +74,9 @@ module icepack_shortwave_data ssp_snwalbdr(:,:), & ! snow single scatter albedo (fraction), direct ssp_snwalbdf(:,:), & ! snow single scatter albedo (fraction), diffuse ssp_sasymmdr(:,:), & ! snow asymmetry factor (cos(theta)), direct - ssp_sasymmdf(:,:), & ! snow asymmetry factor (cos(theta)), diffuse - ssp_aasymmmd(:,:), & ! gaer_bc_5bd, modalAsymmetryParameter5band - ssp_aerextmd(:,:), & ! kaer_bc_5bd, modalMassExtinctionCrossSection5band - ssp_aeralbmd(:,:), & ! waer_bc_5bd, modalSingleScatterAlbedo5band - ssp_aasymm (:,:), & ! gaer_5bd, aerosolAsymmetryParameter5band - ssp_aerext (:,:), & ! kaer_5bd, aerosolMassExtinctionCrossSection5band - ssp_aeralb (:,:), & ! waer_5bd, aerosolSingleScatterAlbedo5band - ssp_abcenhmd(:,:,:) ! bcenh_5bd, modalBCabsorptionParameter5band + ssp_sasymmdf(:,:) ! snow asymmetry factor (cos(theta)), diffuse + + ! dEdd SNICAR SSP data 5 band public :: icepack_shortwave_init_dEdd3band public :: icepack_shortwave_init_dEdd5band @@ -88,16 +96,16 @@ subroutine icepack_shortwave_init_dEdd3band character (len=*),parameter :: subname='(icepack_shortwave_init_dEdd3band)' - nmbrad = 32 ! number of snow grain radii in tables + nmbrad_snw = 32 ! number of snow grain radii in tables if (allocated(rsnw_tab)) deallocate(rsnw_tab) if (allocated(Qs_tab) ) deallocate(Qs_tab) if (allocated(ws_tab) ) deallocate(ws_tab) if (allocated(gs_tab) ) deallocate(gs_tab) - allocate(rsnw_tab( nmbrad)) - allocate(Qs_tab (nspint_3bd,nmbrad)) - allocate(ws_tab (nspint_3bd,nmbrad)) - allocate(gs_tab (nspint_3bd,nmbrad)) + allocate(rsnw_tab( nmbrad_snw)) + allocate(Qs_tab (nspint_3bd,nmbrad_snw)) + allocate(ws_tab (nspint_3bd,nmbrad_snw)) + allocate(gs_tab (nspint_3bd,nmbrad_snw)) ! snow grain radii (micro-meters) for table rsnw_tab = (/ & ! snow grain radius for each table entry (micro-meters) @@ -144,7 +152,7 @@ subroutine icepack_shortwave_init_dEdd3band 2.002590_dbl_kind, 2.003627_dbl_kind, 2.005276_dbl_kind, & 2.002395_dbl_kind, 2.003391_dbl_kind, 2.004904_dbl_kind, & 2.002071_dbl_kind, 2.002922_dbl_kind, 2.004241_dbl_kind/), & - (/nspint_3bd,nmbrad/)) + (/nspint_3bd,nmbrad_snw/)) ! snow single scattering albedo (unitless) ws_tab = reshape((/ & @@ -180,7 +188,7 @@ subroutine icepack_shortwave_init_dEdd3band 0.9998332_dbl_kind, 0.9926888_dbl_kind, 0.8095131_dbl_kind, & 0.9998148_dbl_kind, 0.9919968_dbl_kind, 0.7968620_dbl_kind, & 0.9997691_dbl_kind, 0.9903277_dbl_kind, 0.7677887_dbl_kind/), & - (/nspint_3bd,nmbrad/)) + (/nspint_3bd,nmbrad_snw/)) ! snow asymmetry parameter (unitless) gs_tab = reshape((/ & @@ -216,7 +224,7 @@ subroutine icepack_shortwave_init_dEdd3band 0.891340_dbl_kind, 0.896623_dbl_kind, 0.950916_dbl_kind, & 0.891356_dbl_kind, 0.896851_dbl_kind, 0.951945_dbl_kind, & 0.891386_dbl_kind, 0.897399_dbl_kind, 0.954156_dbl_kind/), & - (/nspint_3bd,nmbrad/)) + (/nspint_3bd,nmbrad_snw/)) ! ice surface scattering layer (ssl) iops ki_ssl_mn_3bd = (/ 1000.1_dbl_kind, 1003.7_dbl_kind, 7042._dbl_kind/) @@ -251,6 +259,151 @@ subroutine icepack_shortwave_init_dEdd3band ww = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /) gw = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /) + !--- extracted from netcdf file + !--- snicar_optics_5bnd_mam_c140303_mpas_cice (this is actually 3 band) + !--- spectralIntervals = 4.5e-13, 9.45e-13, 3.095e-12 ; + !--- bcEffectiveRadius = 0.05, 0.1, 0.15, 0.2, 0.25, 0.3, 0.35, 0.4, 0.45, 0.5 ; + !--- iceGrainEffectiveRadius = 50, 100, 250, 500, 750, 1000, 1250, 1500 ; + ! gaer_bc_3bd (:,:) = modalAsymmetryParameter(:,:) + ! kaer_bc_3bd (:,:) = modalMassExtinctionCrossSection(:,:) + ! waer_bc_3bd (:,:) = modalSingleScatterAlbedo(:,:) + ! bcenh_3bd (:,:,:) = modalBCabsorptionParameter(:,:,:) + + allocate(gaer_bc_3bd(nspint_3bd,nmodal1) ) + allocate(kaer_bc_3bd(nspint_3bd,nmodal1) ) + allocate(waer_bc_3bd(nspint_3bd,nmodal1) ) + allocate(gaer_3bd (nspint_3bd,max_aero)) + allocate(kaer_3bd (nspint_3bd,max_aero)) + allocate(waer_3bd (nspint_3bd,max_aero)) + allocate(bcenh_3bd (nspint_3bd,nmodal1,nmodal2)) + + gaer_bc_3bd (:,:) = reshape((/ & + 0.283282988564031_dbl_kind, 0.196444209821980_dbl_kind, 0.104976473902976_dbl_kind, & + 0.444877326083453_dbl_kind, 0.326147707342261_dbl_kind, 0.196121968923488_dbl_kind, & + 0.547243414035631_dbl_kind, 0.416106187964493_dbl_kind, 0.263903486903711_dbl_kind, & + 0.617111563012282_dbl_kind, 0.484745531707601_dbl_kind, 0.319218974395050_dbl_kind, & + 0.666728525631754_dbl_kind, 0.539228555802301_dbl_kind, 0.366323180358996_dbl_kind, & + 0.702956870835387_dbl_kind, 0.583372441336763_dbl_kind, 0.407316408184865_dbl_kind, & + 0.730016668453191_dbl_kind, 0.619595539349710_dbl_kind, 0.443436944107423_dbl_kind, & + 0.750635997128011_dbl_kind, 0.649589805870541_dbl_kind, 0.475512089138887_dbl_kind, & + 0.766634959089444_dbl_kind, 0.674609076223658_dbl_kind, 0.504145461809103_dbl_kind, & + 0.779256641759228_dbl_kind, 0.695614224933709_dbl_kind, 0.529805346632687_dbl_kind/), & + (/nspint_3bd,nmodal1/)) + + kaer_bc_3bd (:,:) = reshape((/ & + 12955.4473151973_dbl_kind, 5946.89461205564_dbl_kind, 2772.33366387720_dbl_kind, & + 12085.3066388712_dbl_kind, 7438.83131367992_dbl_kind, 3657.13084442081_dbl_kind, & + 9753.99697536893_dbl_kind, 7342.87139082553_dbl_kind, 4187.79303607928_dbl_kind, & + 7815.74879345131_dbl_kind, 6659.65096365965_dbl_kind, 4337.98863414228_dbl_kind, & + 6381.28194381772_dbl_kind, 5876.78408231865_dbl_kind, 4254.65053724305_dbl_kind, & + 5326.93163497508_dbl_kind, 5156.74531505734_dbl_kind, 4053.66581550147_dbl_kind, & + 4538.09762614960_dbl_kind, 4538.60874501597_dbl_kind, 3804.10884202567_dbl_kind, & + 3934.17604000777_dbl_kind, 4020.20798667897_dbl_kind, 3543.27199302277_dbl_kind, & + 3461.20655708248_dbl_kind, 3587.80961820605_dbl_kind, 3289.98060303894_dbl_kind, & + 3083.03396032095_dbl_kind, 3226.27231329114_dbl_kind, 3052.91440681137_dbl_kind/), & + (/nspint_3bd,nmodal1/)) + + waer_bc_3bd (:,:) = reshape((/ & + 0.261071919959011_dbl_kind, 0.158608047940651_dbl_kind, 0.0653546447770291_dbl_kind, & + 0.375593873543050_dbl_kind, 0.303181671502553_dbl_kind, 0.194832290545495_dbl_kind, & + 0.422240383488477_dbl_kind, 0.369134186611324_dbl_kind, 0.278752556671685_dbl_kind, & + 0.447772153910671_dbl_kind, 0.405033725319593_dbl_kind, 0.330260831965086_dbl_kind, & + 0.464443094570456_dbl_kind, 0.427439117980081_dbl_kind, 0.364256689383418_dbl_kind, & + 0.476668995985241_dbl_kind, 0.442854173154887_dbl_kind, 0.388270470928338_dbl_kind, & + 0.486347881475941_dbl_kind, 0.454284736567521_dbl_kind, 0.406167596922937_dbl_kind, & + 0.494397834153785_dbl_kind, 0.463279526357470_dbl_kind, 0.420084410794128_dbl_kind, & + 0.501307856563459_dbl_kind, 0.470696914968199_dbl_kind, 0.431284889617716_dbl_kind, & + 0.507362336297419_dbl_kind, 0.477038272961243_dbl_kind, 0.440559363958571_dbl_kind/), & + (/nspint_3bd,nmodal1/)) + + bcenh_3bd (:,:,:) = reshape((/ & + 1.95264863821642_dbl_kind, 2.05550877768593_dbl_kind, 1.70240332828865_dbl_kind, & + 1.99163464431877_dbl_kind, 2.02176016911438_dbl_kind, 1.68864818773335_dbl_kind, & + 2.08039249602289_dbl_kind, 2.04220861750766_dbl_kind, 1.66912312377214_dbl_kind, & + 2.16942689206486_dbl_kind, 2.08596540854892_dbl_kind, 1.66160699987308_dbl_kind, & + 2.24943093516846_dbl_kind, 2.13660234877153_dbl_kind, 1.66384052314060_dbl_kind, & + 2.31967028980740_dbl_kind, 2.18749561126022_dbl_kind, 1.67219028250399_dbl_kind, & + 2.38127471771344_dbl_kind, 2.23610708358262_dbl_kind, 1.68413091787831_dbl_kind, & + 2.43560783392705_dbl_kind, 2.28159277966039_dbl_kind, 1.69809375282139_dbl_kind, & + 2.48387711610947_dbl_kind, 2.32381536608936_dbl_kind, 1.71312401386438_dbl_kind, & + 2.52707191213977_dbl_kind, 2.36292350082796_dbl_kind, 1.72863990449135_dbl_kind, & + 1.92998070985211_dbl_kind, 2.00057297786255_dbl_kind, 1.46439607292737_dbl_kind, & + 1.96828588712172_dbl_kind, 1.96789325006899_dbl_kind, 1.45080052583184_dbl_kind, & + 2.05617049294061_dbl_kind, 1.98793085930286_dbl_kind, 1.42948868363647_dbl_kind, & + 2.14447875560037_dbl_kind, 2.03061959947511_dbl_kind, 1.41873460329624_dbl_kind, & + 2.22391980172086_dbl_kind, 2.07998145729518_dbl_kind, 1.41704273834779_dbl_kind, & + 2.29372360046412_dbl_kind, 2.12957637725258_dbl_kind, 1.42123091826813_dbl_kind, & + 2.35498486656548_dbl_kind, 2.17693833665883_dbl_kind, 1.42900797904431_dbl_kind, & + 2.40904101847001_dbl_kind, 2.22124880688538_dbl_kind, 1.43892088962935_dbl_kind, & + 2.45708129191118_dbl_kind, 2.26237623779669_dbl_kind, 1.45006788911609_dbl_kind, & + 2.50008250129713_dbl_kind, 2.30046686882928_dbl_kind, 1.46188722662250_dbl_kind, & + 1.91329346734012_dbl_kind, 1.96543390843360_dbl_kind, 1.14194244916007_dbl_kind, & + 1.95121371985675_dbl_kind, 1.93263565295399_dbl_kind, 1.12725592122175_dbl_kind, & + 2.03809762910398_dbl_kind, 1.95185585527707_dbl_kind, 1.10247502663803_dbl_kind, & + 2.12530005514579_dbl_kind, 1.99345975452191_dbl_kind, 1.08665719062047_dbl_kind, & + 2.20367089050177_dbl_kind, 2.04169792795632_dbl_kind, 1.07921619336383_dbl_kind, & + 2.27248123187072_dbl_kind, 2.09021776382565_dbl_kind, 1.07748810634133_dbl_kind, & + 2.33283448215489_dbl_kind, 2.13658191370477_dbl_kind, 1.07944256077146_dbl_kind, & + 2.38606519288941_dbl_kind, 2.17997684658703_dbl_kind, 1.08374903741219_dbl_kind, & + 2.43335573206486_dbl_kind, 2.22026683524201_dbl_kind, 1.08955635350460_dbl_kind, & + 2.47567508771849_dbl_kind, 2.25759085163530_dbl_kind, 1.09631629142051_dbl_kind, & + 1.90934210233419_dbl_kind, 1.95036222309469_dbl_kind, 0.909292665461334_dbl_kind, & + 1.94718753993654_dbl_kind, 1.91707244220432_dbl_kind, 0.894718400010399_dbl_kind, & + 2.03413257206460_dbl_kind, 1.93555229772563_dbl_kind, 0.868918153028977_dbl_kind, & + 2.12144970426002_dbl_kind, 1.97639279591636_dbl_kind, 0.850765821245711_dbl_kind, & + 2.19996950008693_dbl_kind, 2.02391750274938_dbl_kind, 0.840259615891209_dbl_kind, & + 2.26895256024478_dbl_kind, 2.07179265196092_dbl_kind, 0.835148764099313_dbl_kind, & + 2.32949533824322_dbl_kind, 2.11758088518527_dbl_kind, 0.833634959766446_dbl_kind, & + 2.38292734368215_dbl_kind, 2.16046235899349_dbl_kind, 0.834510361060840_dbl_kind, & + 2.43042710618676_dbl_kind, 2.20029348070725_dbl_kind, 0.836985635757155_dbl_kind, & + 2.47296056325651_dbl_kind, 2.23720560395594_dbl_kind, 0.840541121927357_dbl_kind, & + 1.89949243983108_dbl_kind, 1.93683846999834_dbl_kind, 0.787365738156841_dbl_kind, & + 1.93727235487729_dbl_kind, 1.90329555375166_dbl_kind, 0.773444742139757_dbl_kind, & + 2.02369838860644_dbl_kind, 1.92122803438124_dbl_kind, 0.748247354378510_dbl_kind, & + 2.11044213773949_dbl_kind, 1.96146568420286_dbl_kind, 0.729898511422122_dbl_kind, & + 2.18840765391269_dbl_kind, 2.00841288916682_dbl_kind, 0.718628437773005_dbl_kind, & + 2.25686720991682_dbl_kind, 2.05575959668218_dbl_kind, 0.712430381055335_dbl_kind, & + 2.31691587317745_dbl_kind, 2.10107207746932_dbl_kind, 0.709662234578170_dbl_kind, & + 2.36987969534290_dbl_kind, 2.14352706751582_dbl_kind, 0.709208099450235_dbl_kind, & + 2.41693409934405_dbl_kind, 2.18297543800191_dbl_kind, 0.710331652717846_dbl_kind, & + 2.45904265244829_dbl_kind, 2.21954279828598_dbl_kind, 0.712543468490739_dbl_kind, & + 1.89513078257241_dbl_kind, 1.92263839595509_dbl_kind, 0.706461800324346_dbl_kind, & + 1.93309313777527_dbl_kind, 1.88899078061693_dbl_kind, 0.693226914812576_dbl_kind, & + 2.01957651148981_dbl_kind, 1.90645089504406_dbl_kind, 0.669064908581365_dbl_kind, & + 2.10637427535360_dbl_kind, 1.94612617504146_dbl_kind, 0.651180172594725_dbl_kind, & + 2.18442157999672_dbl_kind, 1.99251964154984_dbl_kind, 0.639897070268354_dbl_kind, & + 2.25299528565588_dbl_kind, 2.03935253218284_dbl_kind, 0.633381538773347_dbl_kind, & + 2.31318616048548_dbl_kind, 2.08419838569356_dbl_kind, 0.630113597076398_dbl_kind, & + 2.36631356022073_dbl_kind, 2.12623247442447_dbl_kind, 0.629053974248532_dbl_kind, & + 2.41354632072806_dbl_kind, 2.16530128719337_dbl_kind, 0.629513431452439_dbl_kind, & + 2.45584239569185_dbl_kind, 2.20152541593779_dbl_kind, 0.631031550232408_dbl_kind, & + 1.88966200391793_dbl_kind, 1.91138224467403_dbl_kind, 0.645037746856209_dbl_kind, & + 1.92722145035491_dbl_kind, 1.87746007578606_dbl_kind, 0.632544812562624_dbl_kind, & + 2.01312358620330_dbl_kind, 1.89440019770827_dbl_kind, 0.609599412746477_dbl_kind, & + 2.09932210400679_dbl_kind, 1.93352303806653_dbl_kind, 0.592457728466318_dbl_kind, & + 2.17678426739086_dbl_kind, 1.97939606834949_dbl_kind, 0.581485988000951_dbl_kind, & + 2.24479350026512_dbl_kind, 2.02575746617653_dbl_kind, 0.574991121329954_dbl_kind, & + 2.30444200946822_dbl_kind, 2.07018181146210_dbl_kind, 0.571558829839628_dbl_kind, & + 2.35704963947562_dbl_kind, 2.11184012144586_dbl_kind, 0.570218484962620_dbl_kind, & + 2.40378548089834_dbl_kind, 2.15057324446996_dbl_kind, 0.570324425190625_dbl_kind, & + 2.44560753617498_dbl_kind, 2.18649621439102_dbl_kind, 0.571444075492751_dbl_kind, & + 1.88643160779142_dbl_kind, 1.89913501159848_dbl_kind, 0.595263574413264_dbl_kind, & + 1.92407257560116_dbl_kind, 1.86500658393517_dbl_kind, 0.583463057793767_dbl_kind, & + 2.00998096470402_dbl_kind, 1.88145449003472_dbl_kind, 0.561733888485346_dbl_kind, & + 2.09618177016992_dbl_kind, 1.92003164909457_dbl_kind, 0.545410325196173_dbl_kind, & + 2.17365367623383_dbl_kind, 1.96538149140099_dbl_kind, 0.534870485223569_dbl_kind, & + 2.24167959830890_dbl_kind, 2.01126422674813_dbl_kind, 0.528539343400941_dbl_kind, & + 2.30134946305542_dbl_kind, 2.05525778466667_dbl_kind, 0.525094898482761_dbl_kind, & + 2.35398116406859_dbl_kind, 2.09653013835900_dbl_kind, 0.523627801843702_dbl_kind, & + 2.40074243898899_dbl_kind, 2.13491705468600_dbl_kind, 0.523532027540127_dbl_kind, & + 2.44259042500067_dbl_kind, 2.17052832643712_dbl_kind, 0.524400814046362_dbl_kind/), & + (/nspint_3bd,nmodal1,nmodal2/)) + + ! TODO, what do we set these to? + gaer_3bd = c0 + kaer_3bd = c0 + waer_3bd = c0 + end subroutine icepack_shortwave_init_dEdd3band !======================================================================= @@ -300,6 +453,159 @@ subroutine icepack_shortwave_init_dEdd5band gi_int_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & .94_dbl_kind, .94_dbl_kind /) + !--- extracted from netcdf file + !--- snicar_optics_5bnd_snow_and_aerosols.nc + ! gaer_bc_5bd (:,:) = modalAsymmetryParameter5band(:,:) + ! kaer_bc_5bd (:,:) = modalMassExtinctionCrossSection5band(:,:) + ! waer_bc_5bd (:,:) = modalSingleScatterAlbedo5band(:,:) + ! gaer_5bd (:,:) = aerosolAsymmetryParameter5band(:,:) + ! kaer_5bd (:,:) = aerosolMassExtinctionCrossSection5band(:,:) + ! waer_5bd (:,:) = aerosolSingleScatterAlbedo5band(:,:) + ! bcenh_5bd (:,:,:) = modalBCabsorptionParameter5band(:,:,:) + + allocate(gaer_bc_5bd(nspint_5bd,nmodal1) ) + allocate(kaer_bc_5bd(nspint_5bd,nmodal1) ) + allocate(waer_bc_5bd(nspint_5bd,nmodal1) ) + allocate(gaer_5bd (nspint_5bd,max_aero)) + allocate(kaer_5bd (nspint_5bd,max_aero)) + allocate(waer_5bd (nspint_5bd,max_aero)) + allocate(bcenh_5bd (nspint_5bd,nmodal1,nmodal2)) + + gaer_bc_5bd(1:5 ,1) = (/ 0.283180657713357_dbl_kind, 0.209482088735706_dbl_kind, 0.166441061642889_dbl_kind, 0.138879205492097_dbl_kind, 0.0862017497093632_dbl_kind /) + gaer_bc_5bd(1:5 ,2) = (/ 0.444732109704644_dbl_kind, 0.342651789871816_dbl_kind, 0.285303488980226_dbl_kind, 0.247698976619574_dbl_kind, 0.167948761949466_dbl_kind /) + gaer_bc_5bd(1:5 ,3) = (/ 0.547091281292997_dbl_kind, 0.433969936661441_dbl_kind, 0.368367957620211_dbl_kind, 0.324886781461864_dbl_kind, 0.229171714711908_dbl_kind /) + gaer_bc_5bd(1:5 ,4) = (/ 0.616967685845435_dbl_kind, 0.503089780780303_dbl_kind, 0.433284180500838_dbl_kind, 0.386200764739288_dbl_kind, 0.279644654892079_dbl_kind /) + gaer_bc_5bd(1:5 ,5) = (/ 0.666598670419791_dbl_kind, 0.557497118318872_dbl_kind, 0.486364162004934_dbl_kind, 0.437315965706898_dbl_kind, 0.32323402731446_dbl_kind /) + gaer_bc_5bd(1:5 ,6) = (/ 0.702842367361724_dbl_kind, 0.601186554981124_dbl_kind, 0.530715174055473_dbl_kind, 0.480926756372334_dbl_kind, 0.361764440902239_dbl_kind /) + gaer_bc_5bd(1:5 ,7) = (/ 0.729916826617441_dbl_kind, 0.636706604014777_dbl_kind, 0.568216759394959_dbl_kind, 0.5185983947025_dbl_kind, 0.396259725869959_dbl_kind /) + gaer_bc_5bd(1:5 ,8) = (/ 0.750549324881687_dbl_kind, 0.665849031271645_dbl_kind, 0.60016461579108_dbl_kind, 0.551378204757893_dbl_kind, 0.427376921191516_dbl_kind /) + gaer_bc_5bd(1:5 ,9) = (/ 0.766559757465102_dbl_kind, 0.689942199993075_dbl_kind, 0.627527163812553_dbl_kind, 0.580037712812519_dbl_kind, 0.455582792418271_dbl_kind /) + gaer_bc_5bd(1:5 ,10) = (/ 0.779191279240598_dbl_kind, 0.71000026362677_dbl_kind, 0.651064109101405_dbl_kind, 0.605182083087546_dbl_kind, 0.48123462598527_dbl_kind /) + + kaer_bc_5bd(1:5 ,1) = (/ 12944.1191669303_dbl_kind, 6433.8546129199_dbl_kind, 4379.35815079177_dbl_kind, 3492.51850776132_dbl_kind, 2271.71785345005_dbl_kind /) + kaer_bc_5bd(1:5 ,2) = (/ 12080.1397436577_dbl_kind, 7942.86489089621_dbl_kind, 5812.47284115357_dbl_kind, 4685.4656136674_dbl_kind, 2943.75841342826_dbl_kind /) + kaer_bc_5bd(1:5 ,3) = (/ 9752.02484228556_dbl_kind, 7698.94532514882_dbl_kind, 6190.90781492957_dbl_kind, 5232.51964498223_dbl_kind, 3463.69216361937_dbl_kind /) + kaer_bc_5bd(1:5 ,4) = (/ 7815.10345723545_dbl_kind, 6881.58135306449_dbl_kind, 5939.77102314034_dbl_kind, 5240.81549971547_dbl_kind, 3712.12933475335_dbl_kind /) + kaer_bc_5bd(1:5 ,5) = (/ 6381.18061078149_dbl_kind, 6007.04138576162_dbl_kind, 5453.04529077459_dbl_kind, 4977.11342455862_dbl_kind, 3753.42937518735_dbl_kind /) + kaer_bc_5bd(1:5 ,6) = (/ 5327.05076509938_dbl_kind, 5229.1647601636_dbl_kind, 4920.29504756471_dbl_kind, 4609.03071475928_dbl_kind, 3667.92739329671_dbl_kind /) + kaer_bc_5bd(1:5 ,7) = (/ 4538.29991082855_dbl_kind, 4575.50607606948_dbl_kind, 4417.44045147505_dbl_kind, 4220.99458200724_dbl_kind, 3514.14534131843_dbl_kind /) + kaer_bc_5bd(1:5 ,8) = (/ 3934.40205337053_dbl_kind, 4035.52102830084_dbl_kind, 3969.24444889817_dbl_kind, 3850.95782137369_dbl_kind, 3328.91108844436_dbl_kind /) + kaer_bc_5bd(1:5 ,9) = (/ 3461.43069443711_dbl_kind, 3590.1138938721_dbl_kind, 3579.26043074527_dbl_kind, 3513.60273858667_dbl_kind, 3133.888122911_dbl_kind /) + kaer_bc_5bd(1:5 ,10) = (/ 3083.24574223473_dbl_kind, 3220.83851695162_dbl_kind, 3243.02488284297_dbl_kind, 3212.5874258974_dbl_kind, 2941.20365863075_dbl_kind /) + + waer_bc_5bd(1:5 ,1) = (/ 0.260958704071654_dbl_kind, 0.16805845111727_dbl_kind, 0.11411468355425_dbl_kind, 0.0845902711417414_dbl_kind, 0.0447050517464244_dbl_kind /) + waer_bc_5bd(1:5 ,2) = (/ 0.375522113298175_dbl_kind, 0.31235052399053_dbl_kind, 0.26288498209907_dbl_kind, 0.22723691750397_dbl_kind, 0.159075641626696_dbl_kind /) + waer_bc_5bd(1:5 ,3) = (/ 0.422185378147481_dbl_kind, 0.376555779043625_dbl_kind, 0.33936407097995_dbl_kind, 0.310215627605754_dbl_kind, 0.245905521445928_dbl_kind /) + waer_bc_5bd(1:5 ,4) = (/ 0.447724362399737_dbl_kind, 0.411125469751176_dbl_kind, 0.382216922622453_dbl_kind, 0.358710570753989_dbl_kind, 0.302535187827444_dbl_kind /) + waer_bc_5bd(1:5 ,5) = (/ 0.464398385288602_dbl_kind, 0.432573637322427_dbl_kind, 0.40912325097991_dbl_kind, 0.389777582190663_dbl_kind, 0.340897831337878_dbl_kind /) + waer_bc_5bd(1:5 ,6) = (/ 0.476625494212487_dbl_kind, 0.447308005754231_dbl_kind, 0.427510535024552_dbl_kind, 0.411226212689519_dbl_kind, 0.368348762641282_dbl_kind /) + waer_bc_5bd(1:5 ,7) = (/ 0.486304785993923_dbl_kind, 0.458261662359298_dbl_kind, 0.440925436651717_dbl_kind, 0.426916054656286_dbl_kind, 0.38894085673284_dbl_kind /) + waer_bc_5bd(1:5 ,8) = (/ 0.494354868140575_dbl_kind, 0.4669281500285_dbl_kind, 0.451247969458627_dbl_kind, 0.43894010429319_dbl_kind, 0.40499178204751_dbl_kind /) + waer_bc_5bd(1:5 ,9) = (/ 0.501264988054309_dbl_kind, 0.47412360289998_dbl_kind, 0.459551339156444_dbl_kind, 0.448519783558473_dbl_kind, 0.417901240195357_dbl_kind /) + waer_bc_5bd(1:5 ,10) = (/ 0.507319636821098_dbl_kind, 0.480317417860846_dbl_kind, 0.466481312779405_dbl_kind, 0.456408044720941_dbl_kind, 0.428557864653526_dbl_kind /) + + bcenh_5bd(1:5 ,1,1) = (/ 2.01085868366548_dbl_kind, 2.04133313210786_dbl_kind, 2.07508000300547_dbl_kind, 1.96633438024084_dbl_kind, 1.41689382160734_dbl_kind /) + bcenh_5bd(1:5 ,2,1) = (/ 2.06240193763163_dbl_kind, 2.00779624447446_dbl_kind, 2.03535206238544_dbl_kind, 1.93696335633222_dbl_kind, 1.42085892146856_dbl_kind /) + bcenh_5bd(1:5 ,3,1) = (/ 2.16245417515345_dbl_kind, 2.03367512749659_dbl_kind, 2.03217185662912_dbl_kind, 1.92216538758257_dbl_kind, 1.41057880313765_dbl_kind /) + bcenh_5bd(1:5 ,4,1) = (/ 2.26075013581323_dbl_kind, 2.08270396815669_dbl_kind, 2.05598320187322_dbl_kind, 1.93005028646658_dbl_kind, 1.40362921606229_dbl_kind /) + bcenh_5bd(1:5 ,5,1) = (/ 2.34824623202129_dbl_kind, 2.13751008192628_dbl_kind, 2.09204530638863_dbl_kind, 1.95135851042228_dbl_kind, 1.4023767146298_dbl_kind /) + bcenh_5bd(1:5 ,6,1) = (/ 2.4245821026032_dbl_kind, 2.19151236157797_dbl_kind, 2.13262602986381_dbl_kind, 1.97935233613122_dbl_kind, 1.40560606928656_dbl_kind /) + bcenh_5bd(1:5 ,7,1) = (/ 2.49120967497054_dbl_kind, 2.24239779808293_dbl_kind, 2.17377807033259_dbl_kind, 2.01017733622214_dbl_kind, 1.41189694037042_dbl_kind /) + bcenh_5bd(1:5 ,8,1) = (/ 2.54974120400747_dbl_kind, 2.2895387842995_dbl_kind, 2.21382769032984_dbl_kind, 2.04172990500999_dbl_kind, 1.42017827052267_dbl_kind /) + bcenh_5bd(1:5 ,9,1) = (/ 2.60156969843265_dbl_kind, 2.33296656241086_dbl_kind, 2.25201772913892_dbl_kind, 2.07288930404508_dbl_kind, 1.42971387107226_dbl_kind /) + bcenh_5bd(1:5 ,10,1) = (/ 2.64782205756202_dbl_kind, 2.37295227907137_dbl_kind, 2.28808322951764_dbl_kind, 2.10308108574029_dbl_kind, 1.44000988888373_dbl_kind /) + bcenh_5bd(1:5 ,1,2) = (/ 1.93095248830255_dbl_kind, 2.00671847586146_dbl_kind, 2.00719477963142_dbl_kind, 1.84522141815519_dbl_kind, 1.0759084306113_dbl_kind /) + bcenh_5bd(1:5 ,2,2) = (/ 1.9692253934491_dbl_kind, 1.97261097531431_dbl_kind, 1.97018044809597_dbl_kind, 1.81698805576196_dbl_kind, 1.07910761278501_dbl_kind /) + bcenh_5bd(1:5 ,3,2) = (/ 2.0569305238012_dbl_kind, 1.99733517977522_dbl_kind, 1.96791189681145_dbl_kind, 1.80196522204901_dbl_kind, 1.07130151751929_dbl_kind /) + bcenh_5bd(1:5 ,4,2) = (/ 2.14496096212491_dbl_kind, 2.04502142936022_dbl_kind, 1.99149039012804_dbl_kind, 1.80835190349595_dbl_kind, 1.06588237810724_dbl_kind /) + bcenh_5bd(1:5 ,5,2) = (/ 2.22407771486646_dbl_kind, 2.09850387281167_dbl_kind, 2.02679018049782_dbl_kind, 1.82750693049481_dbl_kind, 1.06472566849715_dbl_kind /) + bcenh_5bd(1:5 ,6,2) = (/ 2.29354361051981_dbl_kind, 2.15127410474977_dbl_kind, 2.06629477010126_dbl_kind, 1.85307952087923_dbl_kind, 1.06695130591868_dbl_kind /) + bcenh_5bd(1:5 ,7,2) = (/ 2.35447198629787_dbl_kind, 2.20103710784166_dbl_kind, 2.10637650326798_dbl_kind, 1.88142263401342_dbl_kind, 1.07150133206641_dbl_kind /) + bcenh_5bd(1:5 ,8,2) = (/ 2.40820994383032_dbl_kind, 2.24716243339933_dbl_kind, 2.14535203369221_dbl_kind, 1.91053883285925_dbl_kind, 1.07757202807584_dbl_kind /) + bcenh_5bd(1:5 ,9,2) = (/ 2.45595109315931_dbl_kind, 2.28967140910979_dbl_kind, 2.18249764512321_dbl_kind, 1.93935882511077_dbl_kind, 1.08460855322213_dbl_kind /) + bcenh_5bd(1:5 ,10,2) = (/ 2.49867376345289_dbl_kind, 2.32882370197717_dbl_kind, 2.21756305829645_dbl_kind, 1.96733017018785_dbl_kind, 1.09223739315287_dbl_kind /) + bcenh_5bd(1:5 ,1,3) = (/ 1.91585309392631_dbl_kind, 1.96967352324366_dbl_kind, 1.96009968122517_dbl_kind, 1.68080965604958_dbl_kind, 0.59179696632248_dbl_kind /) + bcenh_5bd(1:5 ,2,3) = (/ 1.95350884507749_dbl_kind, 1.93742852972506_dbl_kind, 1.92365694040103_dbl_kind, 1.65420258116929_dbl_kind, 0.593740739460229_dbl_kind /) + bcenh_5bd(1:5 ,3,3) = (/ 2.04035073356608_dbl_kind, 1.96236202642718_dbl_kind, 1.92122593826873_dbl_kind, 1.6389418244479_dbl_kind, 0.589846868165608_dbl_kind /) + bcenh_5bd(1:5 ,4,3) = (/ 2.12759603009265_dbl_kind, 2.00961752368397_dbl_kind, 1.94409212769693_dbl_kind, 1.6433504376276_dbl_kind, 0.587192323341285_dbl_kind /) + bcenh_5bd(1:5 ,5,3) = (/ 2.20604474780993_dbl_kind, 2.06245283901475_dbl_kind, 1.97843797212714_dbl_kind, 1.65962990443543_dbl_kind, 0.586790173437158_dbl_kind /) + bcenh_5bd(1:5 ,6,3) = (/ 2.27494671729217_dbl_kind, 2.11452075480442_dbl_kind, 2.01700243919087_dbl_kind, 1.68195669719917_dbl_kind, 0.588180543026505_dbl_kind /) + bcenh_5bd(1:5 ,7,3) = (/ 2.33539514630735_dbl_kind, 2.16358888576982_dbl_kind, 2.05606743772564_dbl_kind, 1.70696657730997_dbl_kind, 0.590803092976719_dbl_kind /) + bcenh_5bd(1:5 ,8,3) = (/ 2.38871953142276_dbl_kind, 2.20905043144983_dbl_kind, 2.09406451723796_dbl_kind, 1.7328071260566_dbl_kind, 0.594230523360484_dbl_kind /) + bcenh_5bd(1:5 ,9,3) = (/ 2.43609975131583_dbl_kind, 2.25093431540464_dbl_kind, 2.1302842143625_dbl_kind, 1.75847955247898_dbl_kind, 0.598167328207445_dbl_kind /) + bcenh_5bd(1:5 ,10,3) = (/ 2.47850378585028_dbl_kind, 2.28950111063737_dbl_kind, 2.16448018258101_dbl_kind, 1.78346181192778_dbl_kind, 0.602414429295388_dbl_kind /) + bcenh_5bd(1:5 ,1,4) = (/ 1.90672644767849_dbl_kind, 1.95728818232617_dbl_kind, 1.91897760144748_dbl_kind, 1.52351339105988_dbl_kind, 0.2856750536761_dbl_kind /) + bcenh_5bd(1:5 ,2,4) = (/ 1.94433061417967_dbl_kind, 1.92520391124637_dbl_kind, 1.88324629837065_dbl_kind, 1.49885892176041_dbl_kind, 0.286675433333491_dbl_kind /) + bcenh_5bd(1:5 ,3,4) = (/ 2.03088473930652_dbl_kind, 1.94993972535292_dbl_kind, 1.88079705335263_dbl_kind, 1.4841126290055_dbl_kind, 0.285045919810642_dbl_kind /) + bcenh_5bd(1:5 ,4,4) = (/ 2.11781824183707_dbl_kind, 1.99686494434747_dbl_kind, 1.90313037410511_dbl_kind, 1.48729958815793_dbl_kind, 0.283994128672286_dbl_kind /) + bcenh_5bd(1:5 ,5,4) = (/ 2.19597517944483_dbl_kind, 2.04934129186202_dbl_kind, 1.93671708289151_dbl_kind, 1.50138740089174_dbl_kind, 0.283979887790801_dbl_kind /) + bcenh_5bd(1:5 ,6,4) = (/ 2.26461303017531_dbl_kind, 2.10106009736148_dbl_kind, 1.97435597077173_dbl_kind, 1.521073249671_dbl_kind, 0.284789256577519_dbl_kind /) + bcenh_5bd(1:5 ,7,4) = (/ 2.3248240816686_dbl_kind, 2.14980196580654_dbl_kind, 2.01256991861794_dbl_kind, 1.54328272090356_dbl_kind, 0.286162594084878_dbl_kind /) + bcenh_5bd(1:5 ,8,4) = (/ 2.3779349732592_dbl_kind, 2.1949631106279_dbl_kind, 2.04974391892188_dbl_kind, 1.56631751882822_dbl_kind, 0.287901980282528_dbl_kind /) + bcenh_5bd(1:5 ,9,4) = (/ 2.42512255483062_dbl_kind, 2.23657164478165_dbl_kind, 2.08518221689877_dbl_kind, 1.58925799258076_dbl_kind, 0.2898706320179_dbl_kind /) + bcenh_5bd(1:5 ,10,4) = (/ 2.46735205354131_dbl_kind, 2.274886005391_dbl_kind, 2.1186427508733_dbl_kind, 1.61162011811624_dbl_kind, 0.291976528925237_dbl_kind /) + bcenh_5bd(1:5 ,1,5) = (/ 1.89867647191471_dbl_kind, 1.94807456713651_dbl_kind, 1.881998255131_dbl_kind, 1.4042673172787_dbl_kind, 0.160591841632584_dbl_kind /) + bcenh_5bd(1:5 ,2,5) = (/ 1.93619524467095_dbl_kind, 1.91604124756277_dbl_kind, 1.84690908713309_dbl_kind, 1.38128161669944_dbl_kind, 0.161178869198082_dbl_kind /) + bcenh_5bd(1:5 ,3,5) = (/ 2.0223409055861_dbl_kind, 1.94057626469304_dbl_kind, 1.84443760681477_dbl_kind, 1.3673028890037_dbl_kind, 0.160360280890161_dbl_kind /) + bcenh_5bd(1:5 ,4,5) = (/ 2.10882091872199_dbl_kind, 1.98721817857084_dbl_kind, 1.86628271260137_dbl_kind, 1.36990699665007_dbl_kind, 0.159858752620932_dbl_kind /) + bcenh_5bd(1:5 ,5,5) = (/ 2.18654488079119_dbl_kind, 2.03940039330662_dbl_kind, 1.89917614160759_dbl_kind, 1.38261979356805_dbl_kind, 0.159921181308761_dbl_kind /) + bcenh_5bd(1:5 ,6,5) = (/ 2.25478556857455_dbl_kind, 2.09083933491043_dbl_kind, 1.93605537053396_dbl_kind, 1.40054119827002_dbl_kind, 0.160430275376893_dbl_kind /) + bcenh_5bd(1:5 ,7,5) = (/ 2.31463677856253_dbl_kind, 2.13932311562854_dbl_kind, 1.97350315915034_dbl_kind, 1.42082635090228_dbl_kind, 0.161244236354913_dbl_kind /) + bcenh_5bd(1:5 ,8,5) = (/ 2.36742266598385_dbl_kind, 2.18424880883966_dbl_kind, 2.00993636804643_dbl_kind, 1.44190170672523_dbl_kind, 0.162255036646285_dbl_kind /) + bcenh_5bd(1:5 ,9,5) = (/ 2.41431655157797_dbl_kind, 2.22564299805269_dbl_kind, 2.04467151274813_dbl_kind, 1.46291363103416_dbl_kind, 0.163388069865313_dbl_kind /) + bcenh_5bd(1:5 ,10,5) = (/ 2.45628005869902_dbl_kind, 2.26376189572524_dbl_kind, 2.07747034796467_dbl_kind, 1.48341153176869_dbl_kind, 0.164593206197625_dbl_kind /) + bcenh_5bd(1:5 ,1,6) = (/ 1.89418663016821_dbl_kind, 1.94091710412984_dbl_kind, 1.84622848287114_dbl_kind, 1.30255089681936_dbl_kind, 0.098483858462836_dbl_kind /) + bcenh_5bd(1:5 ,2,6) = (/ 1.93159232417903_dbl_kind, 1.90886115724064_dbl_kind, 1.81172529149757_dbl_kind, 1.28111548264923_dbl_kind, 0.0988562059622643_dbl_kind /) + bcenh_5bd(1:5 ,3,6) = (/ 2.01753914444024_dbl_kind, 1.93319311880197_dbl_kind, 1.80921451143445_dbl_kind, 1.26796068554138_dbl_kind, 0.0983978116731492_dbl_kind /) + bcenh_5bd(1:5 ,4,6) = (/ 2.10383351130493_dbl_kind, 1.97958216029892_dbl_kind, 1.83057653581059_dbl_kind, 1.27021211695359_dbl_kind, 0.0981299700083134_dbl_kind /) + bcenh_5bd(1:5 ,5,6) = (/ 2.18140322971526_dbl_kind, 2.03149297511205_dbl_kind, 1.86279162835321_dbl_kind, 1.28187019646779_dbl_kind, 0.098199185372061_dbl_kind /) + bcenh_5bd(1:5 ,6,6) = (/ 2.24951550749452_dbl_kind, 2.08269363694761_dbl_kind, 1.89892485058734_dbl_kind, 1.29838388707867_dbl_kind, 0.0985349399895448_dbl_kind /) + bcenh_5bd(1:5 ,7,6) = (/ 2.30926076563282_dbl_kind, 2.13096027537119_dbl_kind, 1.93562599960626_dbl_kind, 1.3171088717836_dbl_kind, 0.0990521610544031_dbl_kind /) + bcenh_5bd(1:5 ,8,6) = (/ 2.36195834728809_dbl_kind, 2.17568957538176_dbl_kind, 1.97133789840367_dbl_kind, 1.33658147936655_dbl_kind, 0.0996860550013943_dbl_kind /) + bcenh_5bd(1:5 ,9,6) = (/ 2.40877775516896_dbl_kind, 2.21690619911267_dbl_kind, 2.0053887500366_dbl_kind, 1.35600690986615_dbl_kind, 0.100391895795296_dbl_kind /) + bcenh_5bd(1:5 ,10,6) = (/ 2.45067776198751_dbl_kind, 2.25486408585975_dbl_kind, 2.03754387915688_dbl_kind, 1.37496497414564_dbl_kind, 0.101139658510172_dbl_kind /) + bcenh_5bd(1:5 ,1,7) = (/ 1.8898407988674_dbl_kind, 1.93349866190539_dbl_kind, 1.81165805631067_dbl_kind, 1.21086211627226_dbl_kind, 0.0639927299752619_dbl_kind /) + bcenh_5bd(1:5 ,2,7) = (/ 1.92726743592625_dbl_kind, 1.90143347118491_dbl_kind, 1.77772917537379_dbl_kind, 1.19106001747711_dbl_kind, 0.064241780706825_dbl_kind /) + bcenh_5bd(1:5 ,3,7) = (/ 2.01310466603341_dbl_kind, 1.92556961967173_dbl_kind, 1.77518652640106_dbl_kind, 1.17869634139483_dbl_kind, 0.0639657849860226_dbl_kind /) + bcenh_5bd(1:5 ,4,7) = (/ 2.09927399606475_dbl_kind, 1.97170510850255_dbl_kind, 1.79608613617107_dbl_kind, 1.18057464600288_dbl_kind, 0.0638113078299023_dbl_kind /) + bcenh_5bd(1:5 ,5,7) = (/ 2.17672489152732_dbl_kind, 2.02337778137591_dbl_kind, 1.82764917978241_dbl_kind, 1.19116266115224_dbl_kind, 0.0638713068477278_dbl_kind /) + bcenh_5bd(1:5 ,6,7) = (/ 2.2447323037953_dbl_kind, 2.07433923799976_dbl_kind, 1.86305867559311_dbl_kind, 1.20841096309504_dbl_kind, 0.0641007406105561_dbl_kind /) + bcenh_5bd(1:5 ,7,7) = (/ 2.30438425846541_dbl_kind, 2.12238686220719_dbl_kind, 1.89904000093039_dbl_kind, 1.22579100032108_dbl_kind, 0.0644452998987116_dbl_kind /) + bcenh_5bd(1:5 ,8,7) = (/ 2.3569984474224_dbl_kind, 2.16691740841079_dbl_kind, 1.93405621565909_dbl_kind, 1.24387586495275_dbl_kind, 0.0648636211415022_dbl_kind /) + bcenh_5bd(1:5 ,9,7) = (/ 2.4037427324266_dbl_kind, 2.20795386848329_dbl_kind, 1.96744690263512_dbl_kind, 1.2619237632143_dbl_kind, 0.0653271600625114_dbl_kind /) + bcenh_5bd(1:5 ,10,7) = (/ 2.44557448046568_dbl_kind, 2.24574805834547_dbl_kind, 1.99898089500271_dbl_kind, 1.27954213788229_dbl_kind, 0.0658167678826765_dbl_kind /) + bcenh_5bd(1:5 ,1,8) = (/ 1.88623754217592_dbl_kind, 1.9263648659218_dbl_kind, 1.77795918152236_dbl_kind, 1.13227177143423_dbl_kind, 0.0434147123324349_dbl_kind /) + bcenh_5bd(1:5 ,2,8) = (/ 1.92369424467697_dbl_kind, 1.8942558864284_dbl_kind, 1.74459158351539_dbl_kind, 1.1135113265668_dbl_kind, 0.0435893033924684_dbl_kind /) + bcenh_5bd(1:5 ,3,8) = (/ 2.00945846267708_dbl_kind, 1.91818299493273_dbl_kind, 1.74202123236172_dbl_kind, 1.10187775406683_dbl_kind, 0.043414854260165_dbl_kind /) + bcenh_5bd(1:5 ,4,8) = (/ 2.09554589746963_dbl_kind, 1.96406200367393_dbl_kind, 1.76247271743548_dbl_kind, 1.10366507349996_dbl_kind, 0.0433211088148566_dbl_kind /) + bcenh_5bd(1:5 ,5,8) = (/ 2.17292182481109_dbl_kind, 2.01547921320266_dbl_kind, 1.79340178912967_dbl_kind, 1.11366185926902_dbl_kind, 0.0433701544141689_dbl_kind /) + bcenh_5bd(1:5 ,6,8) = (/ 2.24086221282091_dbl_kind, 2.06620238481792_dbl_kind, 1.82812292792437_dbl_kind, 1.12790506098243_dbl_kind, 0.0435319637410063_dbl_kind /) + bcenh_5bd(1:5 ,7,8) = (/ 2.30045372513647_dbl_kind, 2.11403292203795_dbl_kind, 1.86340498643423_dbl_kind, 1.14408997199748_dbl_kind, 0.0437702684169416_dbl_kind /) + bcenh_5bd(1:5 ,8,8) = (/ 2.35301272208646_dbl_kind, 2.15836713295615_dbl_kind, 1.89774509946483_dbl_kind, 1.16093986738741_dbl_kind, 0.0440574325725808_dbl_kind /) + bcenh_5bd(1:5 ,9,8) = (/ 2.39970609592023_dbl_kind, 2.19922606974399_dbl_kind, 1.9304940073545_dbl_kind, 1.17776068893983_dbl_kind, 0.044374386922134_dbl_kind /) + bcenh_5bd(1:5 ,10,8) = (/ 2.44149053760016_dbl_kind, 2.23685927813827_dbl_kind, 1.96142401595058_dbl_kind, 1.19418484664932_dbl_kind, 0.0447083456286085_dbl_kind /) + + gaer_5bd(1:5 ,1) = (/ 0.350231881885906_dbl_kind, 0.211924244128064_dbl_kind, 0.146188682542913_dbl_kind, 0.112009439045293_dbl_kind, 0.060565694843084_dbl_kind /) + gaer_5bd(1:5 ,2) = (/ 0.521517715996158_dbl_kind, 0.34457189840306_dbl_kind, 0.244048159248401_dbl_kind, 0.188518513380877_dbl_kind, 0.103316928297739_dbl_kind /) + gaer_5bd(1:5 ,3) = (/ 0.690908112844937_dbl_kind, 0.717759065247993_dbl_kind, 0.671511248292627_dbl_kind, 0.614225462567888_dbl_kind, 0.436682950958558_dbl_kind /) + gaer_5bd(1:5 ,4) = (/ 0.699478684452806_dbl_kind, 0.651992387581091_dbl_kind, 0.695738438913831_dbl_kind, 0.724417176862696_dbl_kind, 0.701481090364134_dbl_kind /) + gaer_5bd(1:5 ,5) = (/ 0.785636278417498_dbl_kind, 0.749796744517699_dbl_kind, 0.683301177698451_dbl_kind, 0.629720518882672_dbl_kind, 0.665531587501598_dbl_kind /) + gaer_5bd(1:5 ,6) = (/ 0.829747716843613_dbl_kind, 0.785685490791679_dbl_kind, 0.772583689570701_dbl_kind, 0.757648539242581_dbl_kind, 0.728843851070574_dbl_kind /) + + kaer_5bd(1:5 ,1) = (/ 11398.4540724821_dbl_kind, 5922.76076637376_dbl_kind, 4039.88947595266_dbl_kind, 3261.62137894056_dbl_kind, 2223.60028513459_dbl_kind /) + kaer_5bd(1:5 ,2) = (/ 25368.6111954733_dbl_kind, 12520.3846877849_dbl_kind, 7738.643174918_dbl_kind, 5744.35461327268_dbl_kind, 3526.76546641382_dbl_kind /) + kaer_5bd(1:5 ,3) = (/ 2686.90326329624_dbl_kind, 2419.98140297723_dbl_kind, 1627.51690973548_dbl_kind, 1138.23252303209_dbl_kind, 466.104227277046_dbl_kind /) + kaer_5bd(1:5 ,4) = (/ 841.089434044834_dbl_kind, 987.406197502421_dbl_kind, 1183.52284776972_dbl_kind, 1267.30625580205_dbl_kind, 993.497508579304_dbl_kind /) + kaer_5bd(1:5 ,5) = (/ 387.85423560755_dbl_kind, 419.109723948302_dbl_kind, 399.559447343404_dbl_kind, 397.191283865122_dbl_kind, 503.14317519429_dbl_kind /) + kaer_5bd(1:5 ,6) = (/ 196.638063554016_dbl_kind, 202.877379461792_dbl_kind, 208.304425287341_dbl_kind, 204.723737634461_dbl_kind, 228.755667038372_dbl_kind /) + + waer_5bd(1:5 ,1) = (/ 0.287685315976181_dbl_kind, 0.186577277125224_dbl_kind, 0.123152237089201_dbl_kind, 0.0883462885905543_dbl_kind, 0.0403421562269378_dbl_kind /) + waer_5bd(1:5 ,2) = (/ 0.515945305512804_dbl_kind, 0.434313626536424_dbl_kind, 0.346103765992635_dbl_kind, 0.275522926330555_dbl_kind, 0.138576096442815_dbl_kind /) + waer_5bd(1:5 ,3) = (/ 0.97891105715305_dbl_kind, 0.994175916042451_dbl_kind, 0.993357580762207_dbl_kind, 0.992545751316266_dbl_kind, 0.953291550046772_dbl_kind /) + waer_5bd(1:5 ,4) = (/ 0.943752248802793_dbl_kind, 0.984191668599419_dbl_kind, 0.989309063917025_dbl_kind, 0.991793946836264_dbl_kind, 0.982999590668913_dbl_kind /) + waer_5bd(1:5 ,5) = (/ 0.904044530646049_dbl_kind, 0.964651629694555_dbl_kind, 0.968275809551522_dbl_kind, 0.972598419874107_dbl_kind, 0.977612418329876_dbl_kind /) + waer_5bd(1:5 ,6) = (/ 0.849818195355416_dbl_kind, 0.940460325044343_dbl_kind, 0.948316305534169_dbl_kind, 0.952841175117807_dbl_kind, 0.955379528193802_dbl_kind /) + end subroutine icepack_shortwave_init_dEdd5band !======================================================================= @@ -308,9 +614,6 @@ subroutine icepack_shortwave_init_snicartest() character (len=*),parameter :: subname='(icepack_shortwave_init_snicartest)' nmbrad_snicar = 5 ! snow grain radius number SNICAR SSP tables - nmodal1_snicar = 10 ! nModal1 in SNICAR SSP tables - nmodal2_snicar = 8 ! nModal2 in SNICAR SSP tables - nmaeros_snicar = 6 ! maxAerosolType in SNICAR SSP tables allocate(rsnw_snicar_tab(nmbrad_snicar)) ! snow grain radii rsnw_snicar_tab = (/ & ! snow grain radius for each table entry (micro-meters) @@ -324,27 +627,13 @@ subroutine icepack_shortwave_init_snicartest() if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) - if (allocated(ssp_aasymmmd)) deallocate(ssp_aasymmmd) - if (allocated(ssp_aerextmd)) deallocate(ssp_aerextmd) - if (allocated(ssp_aeralbmd)) deallocate(ssp_aeralbmd) - if (allocated(ssp_aasymm )) deallocate(ssp_aasymm ) - if (allocated(ssp_aerext )) deallocate(ssp_aerext ) - if (allocated(ssp_aeralb )) deallocate(ssp_aeralb ) - if (allocated(ssp_abcenhmd)) deallocate(ssp_abcenhmd) - allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, direct - allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, diffuse - allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, direct - allocate(ssp_snwalbdf(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, diffuse - allocate(ssp_sasymmdr(nspint_5bd,nmbrad_snicar )) ! snow asymmetry factor, direct - allocate(ssp_sasymmdf(nspint_5bd,nmbrad_snicar )) ! snow asymmetry factor, diffuse - allocate(ssp_aasymmmd(nspint_5bd,nmodal1_snicar)) ! gaer_bc_5bd, modalAsymmetryParameter5band - allocate(ssp_aerextmd(nspint_5bd,nmodal1_snicar)) ! kaer_bc_5bd, modalMassExtinctionCrossSection5band - allocate(ssp_aeralbmd(nspint_5bd,nmodal1_snicar)) ! waer_bc_5bd, modalSingleScatterAlbedo5band - allocate(ssp_aasymm (nspint_5bd,nmaeros_snicar)) ! gaer_5bd, aerosolAsymmetryParameter5band - allocate(ssp_aerext (nspint_5bd,nmaeros_snicar)) ! kaer_5bd, aerosolMassExtinctionCrossSection5band - allocate(ssp_aeralb (nspint_5bd,nmaeros_snicar)) ! waer_5bd, aerosolSingleScatterAlbedo5band - allocate(ssp_abcenhmd(nspint_5bd,nmodal1_snicar,nmodal2_snicar)) ! bcenh_5bd, modalBCabsorptionParameter5band + allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar)) ! extinction coefficient, direct + allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar)) ! extinction coefficient, diffuse + allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar)) ! single-scattering albedo, direct + allocate(ssp_snwalbdf(nspint_5bd,nmbrad_snicar)) ! single-scattering albedo, diffuse + allocate(ssp_sasymmdr(nspint_5bd,nmbrad_snicar)) ! snow asymmetry factor, direct + allocate(ssp_sasymmdf(nspint_5bd,nmbrad_snicar)) ! snow asymmetry factor, diffuse ! tcraig, these data statements are not consistent with the array index order ! reshape from nmbrad,nspint to nspint,nmbrad with order = 2,1 @@ -397,15 +686,6 @@ subroutine icepack_shortwave_init_snicartest() 0.89620237, 0.90998944, 0.94126152, 0.96209938, 0.9726631 /), & (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) - ! tcraig, what should these be set to? TODO - ssp_aasymmmd = 0._dbl_kind - ssp_aerextmd = 0._dbl_kind - ssp_aeralbmd = 0._dbl_kind - ssp_aasymm = 0._dbl_kind - ssp_aerext = 0._dbl_kind - ssp_aeralb = 0._dbl_kind - ssp_abcenhmd = 0._dbl_kind - end subroutine icepack_shortwave_init_snicartest !======================================================================= @@ -423,56 +703,30 @@ subroutine icepack_shortwave_init_snicar() n ! loop counter ! data in SNICAR SSP file - integer (kind=int_kind) :: & - nSpectralIntervalsSNICAR, & - nSnowGrainRadiusSNICAR, & - nModal1, & - nModal2, & - maxAerosolType - - ! data in SNICAR SSP file real (kind=dbl_kind), allocatable :: iceAsymmetryParameterDirect(:,:) real (kind=dbl_kind), allocatable :: iceAsymmetryParameterDiffuse(:,:) real (kind=dbl_kind), allocatable :: iceSingleScatterAlbedoDirect(:,:) real (kind=dbl_kind), allocatable :: iceSingleScatterAlbedoDiffuse(:,:) real (kind=dbl_kind), allocatable :: iceMassExtinctionCrossSectionDirect(:,:) real (kind=dbl_kind), allocatable :: iceMassExtinctionCrossSectionDiffuse(:,:) - real (kind=dbl_kind), allocatable :: modalAsymmetryParameter5band(:,:) - real (kind=dbl_kind), allocatable :: modalMassExtinctionCrossSection5band(:,:) - real (kind=dbl_kind), allocatable :: modalSingleScatterAlbedo5band(:,:) - real (kind=dbl_kind), allocatable :: modalBCabsorptionParameter5band(:,:,:) real (kind=dbl_kind), allocatable :: bcEffectiveRadius(:) real (kind=dbl_kind), allocatable :: iceGrainEffectiveRadius(:) - real (kind=dbl_kind), allocatable :: aerosolAsymmetryParameter5band(:,:) - real (kind=dbl_kind), allocatable :: aerosolMassExtinctionCrossSection5band(:,:) - real (kind=dbl_kind), allocatable :: aerosolSingleScatterAlbedo5band(:,:) character(len=*),parameter :: subname='(icepack_shortwave_init_snicar)' !--- extracted from netcdf file !--- snicar_optics_5bnd_snow_and_aerosols.nc - nSpectralIntervalsSNICAR = 5 - nSnowGrainRadiusSNICAR = 1471 - nModal1 = 10 - nModal2 = 8 - maxAerosolType = 6 + nmbrad_snicar = 1471 - allocate(iceAsymmetryParameterDirect(nSpectralIntervalsSNICAR, nSnowGrainRadiusSNICAR)) - allocate(iceAsymmetryParameterDiffuse(nSpectralIntervalsSNICAR, nSnowGrainRadiusSNICAR)) - allocate(iceSingleScatterAlbedoDirect(nSpectralIntervalsSNICAR, nSnowGrainRadiusSNICAR)) - allocate(iceSingleScatterAlbedoDiffuse(nSpectralIntervalsSNICAR, nSnowGrainRadiusSNICAR)) - allocate(iceMassExtinctionCrossSectionDirect(nSpectralIntervalsSNICAR, nSnowGrainRadiusSNICAR)) - allocate(iceMassExtinctionCrossSectionDiffuse(nSpectralIntervalsSNICAR, nSnowGrainRadiusSNICAR)) - allocate(modalAsymmetryParameter5band(nSpectralIntervalsSNICAR, nModal1)) - allocate(modalMassExtinctionCrossSection5band(nSpectralIntervalsSNICAR, nModal1)) - allocate(modalSingleScatterAlbedo5band(nSpectralIntervalsSNICAR, nModal1)) - allocate(modalBCabsorptionParameter5band(nSpectralIntervalsSNICAR, nModal1, nModal2)) - allocate(bcEffectiveRadius(nModal1)) - allocate(iceGrainEffectiveRadius(nModal2)) - allocate(aerosolAsymmetryParameter5band(nSpectralIntervalsSNICAR, maxAerosolType)) - allocate(aerosolMassExtinctionCrossSection5band(nSpectralIntervalsSNICAR, maxAerosolType)) - allocate(aerosolSingleScatterAlbedo5band(nSpectralIntervalsSNICAR, maxAerosolType)) + allocate(iceAsymmetryParameterDirect(nspint_5bd, nmbrad_snicar)) + allocate(iceAsymmetryParameterDiffuse(nspint_5bd, nmbrad_snicar)) + allocate(iceSingleScatterAlbedoDirect(nspint_5bd, nmbrad_snicar)) + allocate(iceSingleScatterAlbedoDiffuse(nspint_5bd, nmbrad_snicar)) + allocate(iceMassExtinctionCrossSectionDirect(nspint_5bd, nmbrad_snicar)) + allocate(iceMassExtinctionCrossSectionDiffuse(nspint_5bd, nmbrad_snicar)) + allocate(bcEffectiveRadius(nmodal1)) + allocate(iceGrainEffectiveRadius(nmodal2)) iceAsymmetryParameterDirect(1:5 ,1) = (/ 0.883812826619966_dbl_kind, 0.883341999504413_dbl_kind, 0.882286247177836_dbl_kind, 0.883104831607199_dbl_kind, 0.898615034787299_dbl_kind /) iceAsymmetryParameterDirect(1:5 ,2) = (/ 0.884045703655972_dbl_kind, 0.883651330111304_dbl_kind, 0.882694799122514_dbl_kind, 0.88363100888832_dbl_kind, 0.89949035376612_dbl_kind /) @@ -9306,158 +9560,12 @@ subroutine icepack_shortwave_init_snicar() iceMassExtinctionCrossSectionDiffuse(1:5 ,1470) = (/ 1.09351660138719_dbl_kind, 1.0940811048909_dbl_kind, 1.09455790787508_dbl_kind, 1.09484580360961_dbl_kind, 1.09553567789908_dbl_kind /) iceMassExtinctionCrossSectionDiffuse(1:5 ,1471) = (/ 1.09279138349745_dbl_kind, 1.0933552534738_dbl_kind, 1.09383156356567_dbl_kind, 1.09411906558729_dbl_kind, 1.09480823602405_dbl_kind /) - modalAsymmetryParameter5band(1:5 ,1) = (/ 0.283180657713357_dbl_kind, 0.209482088735706_dbl_kind, 0.166441061642889_dbl_kind, 0.138879205492097_dbl_kind, 0.0862017497093632_dbl_kind /) - modalAsymmetryParameter5band(1:5 ,2) = (/ 0.444732109704644_dbl_kind, 0.342651789871816_dbl_kind, 0.285303488980226_dbl_kind, 0.247698976619574_dbl_kind, 0.167948761949466_dbl_kind /) - modalAsymmetryParameter5band(1:5 ,3) = (/ 0.547091281292997_dbl_kind, 0.433969936661441_dbl_kind, 0.368367957620211_dbl_kind, 0.324886781461864_dbl_kind, 0.229171714711908_dbl_kind /) - modalAsymmetryParameter5band(1:5 ,4) = (/ 0.616967685845435_dbl_kind, 0.503089780780303_dbl_kind, 0.433284180500838_dbl_kind, 0.386200764739288_dbl_kind, 0.279644654892079_dbl_kind /) - modalAsymmetryParameter5band(1:5 ,5) = (/ 0.666598670419791_dbl_kind, 0.557497118318872_dbl_kind, 0.486364162004934_dbl_kind, 0.437315965706898_dbl_kind, 0.32323402731446_dbl_kind /) - modalAsymmetryParameter5band(1:5 ,6) = (/ 0.702842367361724_dbl_kind, 0.601186554981124_dbl_kind, 0.530715174055473_dbl_kind, 0.480926756372334_dbl_kind, 0.361764440902239_dbl_kind /) - modalAsymmetryParameter5band(1:5 ,7) = (/ 0.729916826617441_dbl_kind, 0.636706604014777_dbl_kind, 0.568216759394959_dbl_kind, 0.5185983947025_dbl_kind, 0.396259725869959_dbl_kind /) - modalAsymmetryParameter5band(1:5 ,8) = (/ 0.750549324881687_dbl_kind, 0.665849031271645_dbl_kind, 0.60016461579108_dbl_kind, 0.551378204757893_dbl_kind, 0.427376921191516_dbl_kind /) - modalAsymmetryParameter5band(1:5 ,9) = (/ 0.766559757465102_dbl_kind, 0.689942199993075_dbl_kind, 0.627527163812553_dbl_kind, 0.580037712812519_dbl_kind, 0.455582792418271_dbl_kind /) - modalAsymmetryParameter5band(1:5 ,10) = (/ 0.779191279240598_dbl_kind, 0.71000026362677_dbl_kind, 0.651064109101405_dbl_kind, 0.605182083087546_dbl_kind, 0.48123462598527_dbl_kind /) + bcEffectiveRadius (1:nmodal1) = (/ 0.05_dbl_kind, 0.1_dbl_kind, 0.15_dbl_kind, 0.2_dbl_kind, 0.25_dbl_kind, 0.3_dbl_kind, 0.35_dbl_kind, 0.4_dbl_kind, 0.45_dbl_kind, 0.5_dbl_kind /) - modalMassExtinctionCrossSection5band(1:5 ,1) = (/ 12944.1191669303_dbl_kind, 6433.8546129199_dbl_kind, 4379.35815079177_dbl_kind, 3492.51850776132_dbl_kind, 2271.71785345005_dbl_kind /) - modalMassExtinctionCrossSection5band(1:5 ,2) = (/ 12080.1397436577_dbl_kind, 7942.86489089621_dbl_kind, 5812.47284115357_dbl_kind, 4685.4656136674_dbl_kind, 2943.75841342826_dbl_kind /) - modalMassExtinctionCrossSection5band(1:5 ,3) = (/ 9752.02484228556_dbl_kind, 7698.94532514882_dbl_kind, 6190.90781492957_dbl_kind, 5232.51964498223_dbl_kind, 3463.69216361937_dbl_kind /) - modalMassExtinctionCrossSection5band(1:5 ,4) = (/ 7815.10345723545_dbl_kind, 6881.58135306449_dbl_kind, 5939.77102314034_dbl_kind, 5240.81549971547_dbl_kind, 3712.12933475335_dbl_kind /) - modalMassExtinctionCrossSection5band(1:5 ,5) = (/ 6381.18061078149_dbl_kind, 6007.04138576162_dbl_kind, 5453.04529077459_dbl_kind, 4977.11342455862_dbl_kind, 3753.42937518735_dbl_kind /) - modalMassExtinctionCrossSection5band(1:5 ,6) = (/ 5327.05076509938_dbl_kind, 5229.1647601636_dbl_kind, 4920.29504756471_dbl_kind, 4609.03071475928_dbl_kind, 3667.92739329671_dbl_kind /) - modalMassExtinctionCrossSection5band(1:5 ,7) = (/ 4538.29991082855_dbl_kind, 4575.50607606948_dbl_kind, 4417.44045147505_dbl_kind, 4220.99458200724_dbl_kind, 3514.14534131843_dbl_kind /) - modalMassExtinctionCrossSection5band(1:5 ,8) = (/ 3934.40205337053_dbl_kind, 4035.52102830084_dbl_kind, 3969.24444889817_dbl_kind, 3850.95782137369_dbl_kind, 3328.91108844436_dbl_kind /) - modalMassExtinctionCrossSection5band(1:5 ,9) = (/ 3461.43069443711_dbl_kind, 3590.1138938721_dbl_kind, 3579.26043074527_dbl_kind, 3513.60273858667_dbl_kind, 3133.888122911_dbl_kind /) - modalMassExtinctionCrossSection5band(1:5 ,10) = (/ 3083.24574223473_dbl_kind, 3220.83851695162_dbl_kind, 3243.02488284297_dbl_kind, 3212.5874258974_dbl_kind, 2941.20365863075_dbl_kind /) - - modalSingleScatterAlbedo5band(1:5 ,1) = (/ 0.260958704071654_dbl_kind, 0.16805845111727_dbl_kind, 0.11411468355425_dbl_kind, 0.0845902711417414_dbl_kind, 0.0447050517464244_dbl_kind /) - modalSingleScatterAlbedo5band(1:5 ,2) = (/ 0.375522113298175_dbl_kind, 0.31235052399053_dbl_kind, 0.26288498209907_dbl_kind, 0.22723691750397_dbl_kind, 0.159075641626696_dbl_kind /) - modalSingleScatterAlbedo5band(1:5 ,3) = (/ 0.422185378147481_dbl_kind, 0.376555779043625_dbl_kind, 0.33936407097995_dbl_kind, 0.310215627605754_dbl_kind, 0.245905521445928_dbl_kind /) - modalSingleScatterAlbedo5band(1:5 ,4) = (/ 0.447724362399737_dbl_kind, 0.411125469751176_dbl_kind, 0.382216922622453_dbl_kind, 0.358710570753989_dbl_kind, 0.302535187827444_dbl_kind /) - modalSingleScatterAlbedo5band(1:5 ,5) = (/ 0.464398385288602_dbl_kind, 0.432573637322427_dbl_kind, 0.40912325097991_dbl_kind, 0.389777582190663_dbl_kind, 0.340897831337878_dbl_kind /) - modalSingleScatterAlbedo5band(1:5 ,6) = (/ 0.476625494212487_dbl_kind, 0.447308005754231_dbl_kind, 0.427510535024552_dbl_kind, 0.411226212689519_dbl_kind, 0.368348762641282_dbl_kind /) - modalSingleScatterAlbedo5band(1:5 ,7) = (/ 0.486304785993923_dbl_kind, 0.458261662359298_dbl_kind, 0.440925436651717_dbl_kind, 0.426916054656286_dbl_kind, 0.38894085673284_dbl_kind /) - modalSingleScatterAlbedo5band(1:5 ,8) = (/ 0.494354868140575_dbl_kind, 0.4669281500285_dbl_kind, 0.451247969458627_dbl_kind, 0.43894010429319_dbl_kind, 0.40499178204751_dbl_kind /) - modalSingleScatterAlbedo5band(1:5 ,9) = (/ 0.501264988054309_dbl_kind, 0.47412360289998_dbl_kind, 0.459551339156444_dbl_kind, 0.448519783558473_dbl_kind, 0.417901240195357_dbl_kind /) - modalSingleScatterAlbedo5band(1:5 ,10) = (/ 0.507319636821098_dbl_kind, 0.480317417860846_dbl_kind, 0.466481312779405_dbl_kind, 0.456408044720941_dbl_kind, 0.428557864653526_dbl_kind /) - - modalBCabsorptionParameter5band(1:5 ,1,1) = (/ 2.01085868366548_dbl_kind, 2.04133313210786_dbl_kind, 2.07508000300547_dbl_kind, 1.96633438024084_dbl_kind, 1.41689382160734_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,2,1) = (/ 2.06240193763163_dbl_kind, 2.00779624447446_dbl_kind, 2.03535206238544_dbl_kind, 1.93696335633222_dbl_kind, 1.42085892146856_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,3,1) = (/ 2.16245417515345_dbl_kind, 2.03367512749659_dbl_kind, 2.03217185662912_dbl_kind, 1.92216538758257_dbl_kind, 1.41057880313765_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,4,1) = (/ 2.26075013581323_dbl_kind, 2.08270396815669_dbl_kind, 2.05598320187322_dbl_kind, 1.93005028646658_dbl_kind, 1.40362921606229_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,5,1) = (/ 2.34824623202129_dbl_kind, 2.13751008192628_dbl_kind, 2.09204530638863_dbl_kind, 1.95135851042228_dbl_kind, 1.4023767146298_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,6,1) = (/ 2.4245821026032_dbl_kind, 2.19151236157797_dbl_kind, 2.13262602986381_dbl_kind, 1.97935233613122_dbl_kind, 1.40560606928656_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,7,1) = (/ 2.49120967497054_dbl_kind, 2.24239779808293_dbl_kind, 2.17377807033259_dbl_kind, 2.01017733622214_dbl_kind, 1.41189694037042_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,8,1) = (/ 2.54974120400747_dbl_kind, 2.2895387842995_dbl_kind, 2.21382769032984_dbl_kind, 2.04172990500999_dbl_kind, 1.42017827052267_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,9,1) = (/ 2.60156969843265_dbl_kind, 2.33296656241086_dbl_kind, 2.25201772913892_dbl_kind, 2.07288930404508_dbl_kind, 1.42971387107226_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,10,1) = (/ 2.64782205756202_dbl_kind, 2.37295227907137_dbl_kind, 2.28808322951764_dbl_kind, 2.10308108574029_dbl_kind, 1.44000988888373_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,1,2) = (/ 1.93095248830255_dbl_kind, 2.00671847586146_dbl_kind, 2.00719477963142_dbl_kind, 1.84522141815519_dbl_kind, 1.0759084306113_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,2,2) = (/ 1.9692253934491_dbl_kind, 1.97261097531431_dbl_kind, 1.97018044809597_dbl_kind, 1.81698805576196_dbl_kind, 1.07910761278501_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,3,2) = (/ 2.0569305238012_dbl_kind, 1.99733517977522_dbl_kind, 1.96791189681145_dbl_kind, 1.80196522204901_dbl_kind, 1.07130151751929_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,4,2) = (/ 2.14496096212491_dbl_kind, 2.04502142936022_dbl_kind, 1.99149039012804_dbl_kind, 1.80835190349595_dbl_kind, 1.06588237810724_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,5,2) = (/ 2.22407771486646_dbl_kind, 2.09850387281167_dbl_kind, 2.02679018049782_dbl_kind, 1.82750693049481_dbl_kind, 1.06472566849715_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,6,2) = (/ 2.29354361051981_dbl_kind, 2.15127410474977_dbl_kind, 2.06629477010126_dbl_kind, 1.85307952087923_dbl_kind, 1.06695130591868_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,7,2) = (/ 2.35447198629787_dbl_kind, 2.20103710784166_dbl_kind, 2.10637650326798_dbl_kind, 1.88142263401342_dbl_kind, 1.07150133206641_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,8,2) = (/ 2.40820994383032_dbl_kind, 2.24716243339933_dbl_kind, 2.14535203369221_dbl_kind, 1.91053883285925_dbl_kind, 1.07757202807584_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,9,2) = (/ 2.45595109315931_dbl_kind, 2.28967140910979_dbl_kind, 2.18249764512321_dbl_kind, 1.93935882511077_dbl_kind, 1.08460855322213_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,10,2) = (/ 2.49867376345289_dbl_kind, 2.32882370197717_dbl_kind, 2.21756305829645_dbl_kind, 1.96733017018785_dbl_kind, 1.09223739315287_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,1,3) = (/ 1.91585309392631_dbl_kind, 1.96967352324366_dbl_kind, 1.96009968122517_dbl_kind, 1.68080965604958_dbl_kind, 0.59179696632248_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,2,3) = (/ 1.95350884507749_dbl_kind, 1.93742852972506_dbl_kind, 1.92365694040103_dbl_kind, 1.65420258116929_dbl_kind, 0.593740739460229_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,3,3) = (/ 2.04035073356608_dbl_kind, 1.96236202642718_dbl_kind, 1.92122593826873_dbl_kind, 1.6389418244479_dbl_kind, 0.589846868165608_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,4,3) = (/ 2.12759603009265_dbl_kind, 2.00961752368397_dbl_kind, 1.94409212769693_dbl_kind, 1.6433504376276_dbl_kind, 0.587192323341285_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,5,3) = (/ 2.20604474780993_dbl_kind, 2.06245283901475_dbl_kind, 1.97843797212714_dbl_kind, 1.65962990443543_dbl_kind, 0.586790173437158_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,6,3) = (/ 2.27494671729217_dbl_kind, 2.11452075480442_dbl_kind, 2.01700243919087_dbl_kind, 1.68195669719917_dbl_kind, 0.588180543026505_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,7,3) = (/ 2.33539514630735_dbl_kind, 2.16358888576982_dbl_kind, 2.05606743772564_dbl_kind, 1.70696657730997_dbl_kind, 0.590803092976719_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,8,3) = (/ 2.38871953142276_dbl_kind, 2.20905043144983_dbl_kind, 2.09406451723796_dbl_kind, 1.7328071260566_dbl_kind, 0.594230523360484_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,9,3) = (/ 2.43609975131583_dbl_kind, 2.25093431540464_dbl_kind, 2.1302842143625_dbl_kind, 1.75847955247898_dbl_kind, 0.598167328207445_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,10,3) = (/ 2.47850378585028_dbl_kind, 2.28950111063737_dbl_kind, 2.16448018258101_dbl_kind, 1.78346181192778_dbl_kind, 0.602414429295388_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,1,4) = (/ 1.90672644767849_dbl_kind, 1.95728818232617_dbl_kind, 1.91897760144748_dbl_kind, 1.52351339105988_dbl_kind, 0.2856750536761_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,2,4) = (/ 1.94433061417967_dbl_kind, 1.92520391124637_dbl_kind, 1.88324629837065_dbl_kind, 1.49885892176041_dbl_kind, 0.286675433333491_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,3,4) = (/ 2.03088473930652_dbl_kind, 1.94993972535292_dbl_kind, 1.88079705335263_dbl_kind, 1.4841126290055_dbl_kind, 0.285045919810642_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,4,4) = (/ 2.11781824183707_dbl_kind, 1.99686494434747_dbl_kind, 1.90313037410511_dbl_kind, 1.48729958815793_dbl_kind, 0.283994128672286_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,5,4) = (/ 2.19597517944483_dbl_kind, 2.04934129186202_dbl_kind, 1.93671708289151_dbl_kind, 1.50138740089174_dbl_kind, 0.283979887790801_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,6,4) = (/ 2.26461303017531_dbl_kind, 2.10106009736148_dbl_kind, 1.97435597077173_dbl_kind, 1.521073249671_dbl_kind, 0.284789256577519_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,7,4) = (/ 2.3248240816686_dbl_kind, 2.14980196580654_dbl_kind, 2.01256991861794_dbl_kind, 1.54328272090356_dbl_kind, 0.286162594084878_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,8,4) = (/ 2.3779349732592_dbl_kind, 2.1949631106279_dbl_kind, 2.04974391892188_dbl_kind, 1.56631751882822_dbl_kind, 0.287901980282528_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,9,4) = (/ 2.42512255483062_dbl_kind, 2.23657164478165_dbl_kind, 2.08518221689877_dbl_kind, 1.58925799258076_dbl_kind, 0.2898706320179_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,10,4) = (/ 2.46735205354131_dbl_kind, 2.274886005391_dbl_kind, 2.1186427508733_dbl_kind, 1.61162011811624_dbl_kind, 0.291976528925237_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,1,5) = (/ 1.89867647191471_dbl_kind, 1.94807456713651_dbl_kind, 1.881998255131_dbl_kind, 1.4042673172787_dbl_kind, 0.160591841632584_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,2,5) = (/ 1.93619524467095_dbl_kind, 1.91604124756277_dbl_kind, 1.84690908713309_dbl_kind, 1.38128161669944_dbl_kind, 0.161178869198082_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,3,5) = (/ 2.0223409055861_dbl_kind, 1.94057626469304_dbl_kind, 1.84443760681477_dbl_kind, 1.3673028890037_dbl_kind, 0.160360280890161_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,4,5) = (/ 2.10882091872199_dbl_kind, 1.98721817857084_dbl_kind, 1.86628271260137_dbl_kind, 1.36990699665007_dbl_kind, 0.159858752620932_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,5,5) = (/ 2.18654488079119_dbl_kind, 2.03940039330662_dbl_kind, 1.89917614160759_dbl_kind, 1.38261979356805_dbl_kind, 0.159921181308761_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,6,5) = (/ 2.25478556857455_dbl_kind, 2.09083933491043_dbl_kind, 1.93605537053396_dbl_kind, 1.40054119827002_dbl_kind, 0.160430275376893_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,7,5) = (/ 2.31463677856253_dbl_kind, 2.13932311562854_dbl_kind, 1.97350315915034_dbl_kind, 1.42082635090228_dbl_kind, 0.161244236354913_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,8,5) = (/ 2.36742266598385_dbl_kind, 2.18424880883966_dbl_kind, 2.00993636804643_dbl_kind, 1.44190170672523_dbl_kind, 0.162255036646285_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,9,5) = (/ 2.41431655157797_dbl_kind, 2.22564299805269_dbl_kind, 2.04467151274813_dbl_kind, 1.46291363103416_dbl_kind, 0.163388069865313_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,10,5) = (/ 2.45628005869902_dbl_kind, 2.26376189572524_dbl_kind, 2.07747034796467_dbl_kind, 1.48341153176869_dbl_kind, 0.164593206197625_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,1,6) = (/ 1.89418663016821_dbl_kind, 1.94091710412984_dbl_kind, 1.84622848287114_dbl_kind, 1.30255089681936_dbl_kind, 0.098483858462836_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,2,6) = (/ 1.93159232417903_dbl_kind, 1.90886115724064_dbl_kind, 1.81172529149757_dbl_kind, 1.28111548264923_dbl_kind, 0.0988562059622643_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,3,6) = (/ 2.01753914444024_dbl_kind, 1.93319311880197_dbl_kind, 1.80921451143445_dbl_kind, 1.26796068554138_dbl_kind, 0.0983978116731492_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,4,6) = (/ 2.10383351130493_dbl_kind, 1.97958216029892_dbl_kind, 1.83057653581059_dbl_kind, 1.27021211695359_dbl_kind, 0.0981299700083134_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,5,6) = (/ 2.18140322971526_dbl_kind, 2.03149297511205_dbl_kind, 1.86279162835321_dbl_kind, 1.28187019646779_dbl_kind, 0.098199185372061_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,6,6) = (/ 2.24951550749452_dbl_kind, 2.08269363694761_dbl_kind, 1.89892485058734_dbl_kind, 1.29838388707867_dbl_kind, 0.0985349399895448_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,7,6) = (/ 2.30926076563282_dbl_kind, 2.13096027537119_dbl_kind, 1.93562599960626_dbl_kind, 1.3171088717836_dbl_kind, 0.0990521610544031_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,8,6) = (/ 2.36195834728809_dbl_kind, 2.17568957538176_dbl_kind, 1.97133789840367_dbl_kind, 1.33658147936655_dbl_kind, 0.0996860550013943_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,9,6) = (/ 2.40877775516896_dbl_kind, 2.21690619911267_dbl_kind, 2.0053887500366_dbl_kind, 1.35600690986615_dbl_kind, 0.100391895795296_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,10,6) = (/ 2.45067776198751_dbl_kind, 2.25486408585975_dbl_kind, 2.03754387915688_dbl_kind, 1.37496497414564_dbl_kind, 0.101139658510172_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,1,7) = (/ 1.8898407988674_dbl_kind, 1.93349866190539_dbl_kind, 1.81165805631067_dbl_kind, 1.21086211627226_dbl_kind, 0.0639927299752619_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,2,7) = (/ 1.92726743592625_dbl_kind, 1.90143347118491_dbl_kind, 1.77772917537379_dbl_kind, 1.19106001747711_dbl_kind, 0.064241780706825_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,3,7) = (/ 2.01310466603341_dbl_kind, 1.92556961967173_dbl_kind, 1.77518652640106_dbl_kind, 1.17869634139483_dbl_kind, 0.0639657849860226_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,4,7) = (/ 2.09927399606475_dbl_kind, 1.97170510850255_dbl_kind, 1.79608613617107_dbl_kind, 1.18057464600288_dbl_kind, 0.0638113078299023_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,5,7) = (/ 2.17672489152732_dbl_kind, 2.02337778137591_dbl_kind, 1.82764917978241_dbl_kind, 1.19116266115224_dbl_kind, 0.0638713068477278_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,6,7) = (/ 2.2447323037953_dbl_kind, 2.07433923799976_dbl_kind, 1.86305867559311_dbl_kind, 1.20841096309504_dbl_kind, 0.0641007406105561_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,7,7) = (/ 2.30438425846541_dbl_kind, 2.12238686220719_dbl_kind, 1.89904000093039_dbl_kind, 1.22579100032108_dbl_kind, 0.0644452998987116_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,8,7) = (/ 2.3569984474224_dbl_kind, 2.16691740841079_dbl_kind, 1.93405621565909_dbl_kind, 1.24387586495275_dbl_kind, 0.0648636211415022_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,9,7) = (/ 2.4037427324266_dbl_kind, 2.20795386848329_dbl_kind, 1.96744690263512_dbl_kind, 1.2619237632143_dbl_kind, 0.0653271600625114_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,10,7) = (/ 2.44557448046568_dbl_kind, 2.24574805834547_dbl_kind, 1.99898089500271_dbl_kind, 1.27954213788229_dbl_kind, 0.0658167678826765_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,1,8) = (/ 1.88623754217592_dbl_kind, 1.9263648659218_dbl_kind, 1.77795918152236_dbl_kind, 1.13227177143423_dbl_kind, 0.0434147123324349_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,2,8) = (/ 1.92369424467697_dbl_kind, 1.8942558864284_dbl_kind, 1.74459158351539_dbl_kind, 1.1135113265668_dbl_kind, 0.0435893033924684_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,3,8) = (/ 2.00945846267708_dbl_kind, 1.91818299493273_dbl_kind, 1.74202123236172_dbl_kind, 1.10187775406683_dbl_kind, 0.043414854260165_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,4,8) = (/ 2.09554589746963_dbl_kind, 1.96406200367393_dbl_kind, 1.76247271743548_dbl_kind, 1.10366507349996_dbl_kind, 0.0433211088148566_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,5,8) = (/ 2.17292182481109_dbl_kind, 2.01547921320266_dbl_kind, 1.79340178912967_dbl_kind, 1.11366185926902_dbl_kind, 0.0433701544141689_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,6,8) = (/ 2.24086221282091_dbl_kind, 2.06620238481792_dbl_kind, 1.82812292792437_dbl_kind, 1.12790506098243_dbl_kind, 0.0435319637410063_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,7,8) = (/ 2.30045372513647_dbl_kind, 2.11403292203795_dbl_kind, 1.86340498643423_dbl_kind, 1.14408997199748_dbl_kind, 0.0437702684169416_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,8,8) = (/ 2.35301272208646_dbl_kind, 2.15836713295615_dbl_kind, 1.89774509946483_dbl_kind, 1.16093986738741_dbl_kind, 0.0440574325725808_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,9,8) = (/ 2.39970609592023_dbl_kind, 2.19922606974399_dbl_kind, 1.9304940073545_dbl_kind, 1.17776068893983_dbl_kind, 0.044374386922134_dbl_kind /) - modalBCabsorptionParameter5band(1:5 ,10,8) = (/ 2.44149053760016_dbl_kind, 2.23685927813827_dbl_kind, 1.96142401595058_dbl_kind, 1.19418484664932_dbl_kind, 0.0447083456286085_dbl_kind /) - - bcEffectiveRadius (1:nModal1) = (/ 0.05_dbl_kind, 0.1_dbl_kind, 0.15_dbl_kind, 0.2_dbl_kind, 0.25_dbl_kind, 0.3_dbl_kind, 0.35_dbl_kind, 0.4_dbl_kind, 0.45_dbl_kind, 0.5_dbl_kind /) - - iceGrainEffectiveRadius (1:nModal2) = (/ 50_dbl_kind, 100_dbl_kind, 250_dbl_kind, 500_dbl_kind, 750_dbl_kind, 1000_dbl_kind, 1250_dbl_kind, 1500_dbl_kind /) - - aerosolAsymmetryParameter5band(1:5 ,1) = (/ 0.350231881885906_dbl_kind, 0.211924244128064_dbl_kind, 0.146188682542913_dbl_kind, 0.112009439045293_dbl_kind, 0.060565694843084_dbl_kind /) - aerosolAsymmetryParameter5band(1:5 ,2) = (/ 0.521517715996158_dbl_kind, 0.34457189840306_dbl_kind, 0.244048159248401_dbl_kind, 0.188518513380877_dbl_kind, 0.103316928297739_dbl_kind /) - aerosolAsymmetryParameter5band(1:5 ,3) = (/ 0.690908112844937_dbl_kind, 0.717759065247993_dbl_kind, 0.671511248292627_dbl_kind, 0.614225462567888_dbl_kind, 0.436682950958558_dbl_kind /) - aerosolAsymmetryParameter5band(1:5 ,4) = (/ 0.699478684452806_dbl_kind, 0.651992387581091_dbl_kind, 0.695738438913831_dbl_kind, 0.724417176862696_dbl_kind, 0.701481090364134_dbl_kind /) - aerosolAsymmetryParameter5band(1:5 ,5) = (/ 0.785636278417498_dbl_kind, 0.749796744517699_dbl_kind, 0.683301177698451_dbl_kind, 0.629720518882672_dbl_kind, 0.665531587501598_dbl_kind /) - aerosolAsymmetryParameter5band(1:5 ,6) = (/ 0.829747716843613_dbl_kind, 0.785685490791679_dbl_kind, 0.772583689570701_dbl_kind, 0.757648539242581_dbl_kind, 0.728843851070574_dbl_kind /) - - aerosolMassExtinctionCrossSection5band(1:5 ,1) = (/ 11398.4540724821_dbl_kind, 5922.76076637376_dbl_kind, 4039.88947595266_dbl_kind, 3261.62137894056_dbl_kind, 2223.60028513459_dbl_kind /) - aerosolMassExtinctionCrossSection5band(1:5 ,2) = (/ 25368.6111954733_dbl_kind, 12520.3846877849_dbl_kind, 7738.643174918_dbl_kind, 5744.35461327268_dbl_kind, 3526.76546641382_dbl_kind /) - aerosolMassExtinctionCrossSection5band(1:5 ,3) = (/ 2686.90326329624_dbl_kind, 2419.98140297723_dbl_kind, 1627.51690973548_dbl_kind, 1138.23252303209_dbl_kind, 466.104227277046_dbl_kind /) - aerosolMassExtinctionCrossSection5band(1:5 ,4) = (/ 841.089434044834_dbl_kind, 987.406197502421_dbl_kind, 1183.52284776972_dbl_kind, 1267.30625580205_dbl_kind, 993.497508579304_dbl_kind /) - aerosolMassExtinctionCrossSection5band(1:5 ,5) = (/ 387.85423560755_dbl_kind, 419.109723948302_dbl_kind, 399.559447343404_dbl_kind, 397.191283865122_dbl_kind, 503.14317519429_dbl_kind /) - aerosolMassExtinctionCrossSection5band(1:5 ,6) = (/ 196.638063554016_dbl_kind, 202.877379461792_dbl_kind, 208.304425287341_dbl_kind, 204.723737634461_dbl_kind, 228.755667038372_dbl_kind /) - - aerosolSingleScatterAlbedo5band(1:5 ,1) = (/ 0.287685315976181_dbl_kind, 0.186577277125224_dbl_kind, 0.123152237089201_dbl_kind, 0.0883462885905543_dbl_kind, 0.0403421562269378_dbl_kind /) - aerosolSingleScatterAlbedo5band(1:5 ,2) = (/ 0.515945305512804_dbl_kind, 0.434313626536424_dbl_kind, 0.346103765992635_dbl_kind, 0.275522926330555_dbl_kind, 0.138576096442815_dbl_kind /) - aerosolSingleScatterAlbedo5band(1:5 ,3) = (/ 0.97891105715305_dbl_kind, 0.994175916042451_dbl_kind, 0.993357580762207_dbl_kind, 0.992545751316266_dbl_kind, 0.953291550046772_dbl_kind /) - aerosolSingleScatterAlbedo5band(1:5 ,4) = (/ 0.943752248802793_dbl_kind, 0.984191668599419_dbl_kind, 0.989309063917025_dbl_kind, 0.991793946836264_dbl_kind, 0.982999590668913_dbl_kind /) - aerosolSingleScatterAlbedo5band(1:5 ,5) = (/ 0.904044530646049_dbl_kind, 0.964651629694555_dbl_kind, 0.968275809551522_dbl_kind, 0.972598419874107_dbl_kind, 0.977612418329876_dbl_kind /) - aerosolSingleScatterAlbedo5band(1:5 ,6) = (/ 0.849818195355416_dbl_kind, 0.940460325044343_dbl_kind, 0.948316305534169_dbl_kind, 0.952841175117807_dbl_kind, 0.955379528193802_dbl_kind /) + iceGrainEffectiveRadius (1:nmodal2) = (/ 50_dbl_kind, 100_dbl_kind, 250_dbl_kind, 500_dbl_kind, 750_dbl_kind, 1000_dbl_kind, 1250_dbl_kind, 1500_dbl_kind /) ! Copy to local variables - if (nSpectralIntervalsSNICAR /= nspint_5bd) then - call icepack_warnings_setabort(.true.,__FILE__,__LINE__) - call icepack_warnings_add(subname//' ERROR: nSpectralIntervalsSNICAR ne nspint_5bd') - return - endif - - nmbrad_snicar = nSnowGrainRadiusSNICAR - nmodal1_snicar = nModal1 - nmodal2_snicar = nModal2 - nmaeros_snicar = maxAerosolType - !echmod - this might not be needed rsnw_snicar_min = 30 ! minimum snow grain radius rsnw_snicar_max = 1500 ! maximum snow grain radius @@ -9473,27 +9581,13 @@ subroutine icepack_shortwave_init_snicar() if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) - if (allocated(ssp_aasymmmd)) deallocate(ssp_aasymmmd) - if (allocated(ssp_aerextmd)) deallocate(ssp_aerextmd) - if (allocated(ssp_aeralbmd)) deallocate(ssp_aeralbmd) - if (allocated(ssp_aasymm )) deallocate(ssp_aasymm ) - if (allocated(ssp_aerext )) deallocate(ssp_aerext ) - if (allocated(ssp_aeralb )) deallocate(ssp_aeralb ) - if (allocated(ssp_abcenhmd)) deallocate(ssp_abcenhmd) - allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, direct - allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar )) ! extinction coefficient, diffuse - allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, direct - allocate(ssp_snwalbdf(nspint_5bd,nmbrad_snicar )) ! single-scattering albedo, diffuse - allocate(ssp_sasymmdr(nspint_5bd,nmbrad_snicar )) ! snow asymmetry factor, direct - allocate(ssp_sasymmdf(nspint_5bd,nmbrad_snicar )) ! snow asymmetry factor, diffuse - allocate(ssp_aasymmmd(nspint_5bd,nmodal1_snicar)) ! gaer_bc_5bd, modalAsymmetryParameter5band - allocate(ssp_aerextmd(nspint_5bd,nmodal1_snicar)) ! kaer_bc_5bd, modalMassExtinctionCrossSection5band - allocate(ssp_aeralbmd(nspint_5bd,nmodal1_snicar)) ! waer_bc_5bd, modalSingleScatterAlbedo5band - allocate(ssp_aasymm (nspint_5bd,nmaeros_snicar)) ! gaer_5bd, aerosolAsymmetryParameter5band - allocate(ssp_aerext (nspint_5bd,nmaeros_snicar)) ! kaer_5bd, aerosolMassExtinctionCrossSection5band - allocate(ssp_aeralb (nspint_5bd,nmaeros_snicar)) ! waer_5bd, aerosolSingleScatterAlbedo5band - allocate(ssp_abcenhmd(nspint_5bd,nmodal1_snicar,nmodal2_snicar)) ! bcenh_5bd, modalBCabsorptionParameter5band + allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar)) ! extinction coefficient, direct + allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar)) ! extinction coefficient, diffuse + allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar)) ! single-scattering albedo, direct + allocate(ssp_snwalbdf(nspint_5bd,nmbrad_snicar)) ! single-scattering albedo, diffuse + allocate(ssp_sasymmdr(nspint_5bd,nmbrad_snicar)) ! snow asymmetry factor, direct + allocate(ssp_sasymmdf(nspint_5bd,nmbrad_snicar)) ! snow asymmetry factor, diffuse ssp_snwextdr(:,:) = iceMassExtinctionCrossSectionDirect(:,:) ssp_snwextdf(:,:) = iceMassExtinctionCrossSectionDiffuse(:,:) @@ -9501,13 +9595,6 @@ subroutine icepack_shortwave_init_snicar() ssp_snwalbdf(:,:) = iceSingleScatterAlbedoDiffuse(:,:) ssp_sasymmdr(:,:) = iceAsymmetryParameterDirect(:,:) ssp_sasymmdf(:,:) = iceAsymmetryParameterDiffuse(:,:) - ssp_aasymmmd(:,:) = modalAsymmetryParameter5band(:,:) - ssp_aerextmd(:,:) = modalMassExtinctionCrossSection5band(:,:) - ssp_aeralbmd(:,:) = modalSingleScatterAlbedo5band(:,:) - ssp_aasymm (:,:) = aerosolAsymmetryParameter5band(:,:) - ssp_aerext (:,:) = aerosolMassExtinctionCrossSection5band(:,:) - ssp_aeralb (:,:) = aerosolSingleScatterAlbedo5band(:,:) - ssp_abcenhmd(:,:,:) = modalBCabsorptionParameter5band(:,:,:) deallocate(iceAsymmetryParameterDirect) deallocate(iceAsymmetryParameterDiffuse) @@ -9515,15 +9602,8 @@ subroutine icepack_shortwave_init_snicar() deallocate(iceSingleScatterAlbedoDiffuse) deallocate(iceMassExtinctionCrossSectionDirect) deallocate(iceMassExtinctionCrossSectionDiffuse) - deallocate(modalAsymmetryParameter5band) - deallocate(modalMassExtinctionCrossSection5band) - deallocate(modalSingleScatterAlbedo5band) - deallocate(modalBCabsorptionParameter5band) deallocate(bcEffectiveRadius) deallocate(iceGrainEffectiveRadius) - deallocate(aerosolAsymmetryParameter5band) - deallocate(aerosolMassExtinctionCrossSection5band) - deallocate(aerosolSingleScatterAlbedo5band) #endif end subroutine icepack_shortwave_init_snicar diff --git a/configuration/driver/icedrv_forcing.F90 b/configuration/driver/icedrv_forcing.F90 index 4338f6603..275e273fa 100644 --- a/configuration/driver/icedrv_forcing.F90 +++ b/configuration/driver/icedrv_forcing.F90 @@ -24,8 +24,7 @@ module icedrv_forcing implicit none private public :: init_forcing, get_forcing, interp_coeff, & - interp_coeff_monthly, get_wave_spec, & - init_snicarssptable + interp_coeff_monthly, get_wave_spec integer (kind=int_kind), parameter :: & ntime = 8760 ! number of data points in time @@ -94,39 +93,15 @@ module icedrv_forcing frcidf = 0.17_dbl_kind ! frac of incoming sw in near IR diffuse band logical (kind=log_kind), public :: & - oceanmixed_ice , & ! if true, use internal ocean mixed layer - restore_ocn ! restore sst if true + oceanmixed_ice , & ! if true, use internal ocean mixed layer + restore_ocn ! restore sst if true real (kind=dbl_kind), public :: & - trest, & ! restoring time scale (sec) - trestore ! restoring time scale (days) - - ! SNICAR snow grain single-scattering properties (SSP) for - ! direct (dr) and diffuse (df) shortwave incidents + trest, & ! restoring time scale (sec) + trestore ! restoring time scale (days) character (len=char_len_long), public :: & - snw_ssp_table, & ! snow table type 'test', 'snicar', 'file' - ssp_filename ! filename for snicar snow and aerosol lookup table - - character (char_len), public :: & - ssp_nsrad_fname, & ! snow grain radius index field name - ssp_nspint_fname, & ! spectral intervals index field name - ssp_nmodal1_fname, & ! modal1 index field name - ssp_nmodal2_fname, & ! modal2 index field name - ssp_nmaeros_fname, & ! maxAerosolType index field name - ssp_snwextdr_fname, & ! snow mass extinction cross section (m2/kg) field name - ssp_snwextdf_fname, & ! snow mass extinction cross section (m2/kg) field name - ssp_snwalbdr_fname, & ! snow single scatter albedo (fraction) field name - ssp_snwalbdf_fname, & ! snow single scatter albedo (fraction) field name - ssp_sasymmdr_fname, & ! snow asymmetry factor (cos(theta)) field name - ssp_sasymmdf_fname, & ! snow asymmetry factor (cos(theta)) field name - ssp_aasymmmd_fname, & ! gaer_bc_5bd, modalAsymmetryParameter5band - ssp_aerextmd_fname, & ! kaer_bc_5bd, modalMassExtinctionCrossSection5band - ssp_aeralbmd_fname, & ! waer_bc_5bd, modalSingleScatterAlbedo5band - ssp_aasymm_fname, & ! gaer_5bd, aerosolAsymmetryParameter5band - ssp_aerext_fname, & ! kaer_5bd, aerosolMassExtinctionCrossSection5band - ssp_aeralb_fname, & ! waer_5bd, aerosolSingleScatterAlbedo5band - ssp_abcenhmd_fname ! bcenh_5bd, modalBCabsorptionParameter5band + snw_ssp_table ! snow table type 'test', 'snicar' !======================================================================= @@ -1181,272 +1156,6 @@ subroutine get_wave_spec end subroutine get_wave_spec -!======================================================================= - -! snicar snow grain single-scattering properties lookup table -! -! - subroutine init_snicarssptable - -#ifdef USE_NETCDF - use netcdf -#endif - - integer (kind=int_kind) :: & - nsrad, & ! Table dimensions - nspint, nmodal1, nmodal2, nmaeros - real (kind=dbl_kind), allocatable :: & - ssp_snwextdr(:,:), & ! snow mass extinction cross section (m2/kg), direct - ssp_snwextdf(:,:), & ! snow mass extinction cross section (m2/kg), diffuse - ssp_snwalbdr(:,:), & ! snow single scatter albedo (fraction), direct - ssp_snwalbdf(:,:), & ! snow single scatter albedo (fraction), diffuse - ssp_sasymmdr(:,:), & ! snow asymmetry factor (cos(theta)), direct - ssp_sasymmdf(:,:), & ! snow asymmetry factor (cos(theta)), diffuse - ssp_aasymmmd(:,:), & ! gaer_bc_5bd, modalAsymmetryParameter5band - ssp_aerextmd(:,:), & ! kaer_bc_5bd, modalMassExtinctionCrossSection5band - ssp_aeralbmd(:,:), & ! waer_bc_5bd, modalSingleScatterAlbedo5band - ssp_aasymm (:,:), & ! gaer_5bd, aerosolAsymmetryParameter5band - ssp_aerext (:,:), & ! kaer_5bd, aerosolMassExtinctionCrossSection5band - ssp_aeralb (:,:), & ! waer_5bd, aerosolSingleScatterAlbedo5band - ssp_abcenhmd(:,:,:) ! bcenh_5bd, modalBCabsorptionParameter5band - - ! local variables - - integer (kind=int_kind) :: & - fid, & ! file id for netCDF file - dimid, & ! dim id for netCDF file - varid, & ! var id for netCDF file - status ! status output for netCDF call - - character (char_len) :: & - fieldname ! field name in netcdf file - - character(len=*), parameter :: subname = '(init_snicarssptable)' - - !----------------------------------------------------------------- - ! read table of snicar SSP parameters - !----------------------------------------------------------------- - - write (nu_diag,*) ' ' - write (nu_diag,*) 'SNICAR SSP file:', trim(ssp_filename) - -#ifdef USE_NETCDF - ! read everything - - status = nf90_open(ssp_filename,NF90_NOWRITE,fid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_open ') - - fieldname = trim(ssp_nsrad_fname) - status=nf90_inq_dimid(fid,trim(fieldname),dimid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_inq_dimid '//trim(fieldname)) - status=nf90_inquire_dimension(fid, dimid, len=nsrad) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_dim '//trim(fieldname)) - - fieldname = trim(ssp_nspint_fname) - status=nf90_inq_dimid(fid,trim(fieldname),dimid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_inq_dimid '//trim(fieldname)) - status=nf90_inquire_dimension(fid, dimid, len=nspint) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_dim '//trim(fieldname)) - - fieldname = trim(ssp_nmodal1_fname) - status=nf90_inq_dimid(fid,trim(fieldname),dimid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_inq_dimid '//trim(fieldname)) - status=nf90_inquire_dimension(fid, dimid, len=nmodal1) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_dim '//trim(fieldname)) - - fieldname = trim(ssp_nmodal2_fname) - status=nf90_inq_dimid(fid,trim(fieldname),dimid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_inq_dimid '//trim(fieldname)) - status=nf90_inquire_dimension(fid, dimid, len=nmodal2) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_dim '//trim(fieldname)) - - fieldname = trim(ssp_nmaeros_fname) - status=nf90_inq_dimid(fid,trim(fieldname),dimid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_inq_dimid '//trim(fieldname)) - status=nf90_inquire_dimension(fid, dimid, len=nmaeros) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_dim '//trim(fieldname)) - - if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) - if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) - if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) - if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) - if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) - if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) - if (allocated(ssp_aasymmmd)) deallocate(ssp_aasymmmd) - if (allocated(ssp_aerextmd)) deallocate(ssp_aerextmd) - if (allocated(ssp_aeralbmd)) deallocate(ssp_aeralbmd) - if (allocated(ssp_aasymm) ) deallocate(ssp_aasymm) - if (allocated(ssp_aerext) ) deallocate(ssp_aerext) - if (allocated(ssp_aeralb) ) deallocate(ssp_aeralb) - if (allocated(ssp_abcenhmd)) deallocate(ssp_abcenhmd) - - allocate(ssp_snwextdr(nspint,nsrad)) - allocate(ssp_snwextdf(nspint,nsrad)) - allocate(ssp_snwalbdr(nspint,nsrad)) - allocate(ssp_snwalbdf(nspint,nsrad)) - allocate(ssp_sasymmdr(nspint,nsrad)) - allocate(ssp_sasymmdf(nspint,nsrad)) - allocate(ssp_aasymmmd(nspint,nmodal1)) - allocate(ssp_aerextmd(nspint,nmodal1)) - allocate(ssp_aeralbmd(nspint,nmodal1)) - allocate(ssp_aasymm (nspint,nmaeros)) - allocate(ssp_aerext (nspint,nmaeros)) - allocate(ssp_aeralb (nspint,nmaeros)) - allocate(ssp_abcenhmd(nspint,nmodal1,nmodal2)) - - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) - - fieldname = trim(ssp_snwextdr_fname) - status = nf90_inq_varid(fid, trim(fieldname), varid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) - status = nf90_get_var(fid, varid, ssp_snwextdr) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) - - fieldname = trim(ssp_snwextdf_fname) - status = nf90_inq_varid(fid, trim(fieldname), varid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) - status = nf90_get_var(fid, varid, ssp_snwextdf) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) - - fieldname = trim(ssp_snwalbdr_fname) - status = nf90_inq_varid(fid, trim(fieldname), varid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) - status = nf90_get_var(fid, varid, ssp_snwalbdr) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) - - fieldname = trim(ssp_snwalbdf_fname) - status = nf90_inq_varid(fid, trim(fieldname), varid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) - status = nf90_get_var(fid, varid, ssp_snwalbdf) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) - - fieldname = trim(ssp_sasymmdr_fname) - status = nf90_inq_varid(fid, trim(fieldname), varid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) - status = nf90_get_var(fid, varid, ssp_sasymmdr) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) - - fieldname = trim(ssp_sasymmdf_fname) - status = nf90_inq_varid(fid, trim(fieldname), varid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) - status = nf90_get_var(fid, varid, ssp_sasymmdf) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) - - fieldname = trim(ssp_aasymmmd_fname) - status = nf90_inq_varid(fid, trim(fieldname), varid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) - status = nf90_get_var(fid, varid, ssp_aasymmmd) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) - - fieldname = trim(ssp_aerextmd_fname) - status = nf90_inq_varid(fid, trim(fieldname), varid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) - status = nf90_get_var(fid, varid, ssp_aerextmd) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) - - fieldname = trim(ssp_aeralbmd_fname) - status = nf90_inq_varid(fid, trim(fieldname), varid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) - status = nf90_get_var(fid, varid, ssp_aeralbmd) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) - - fieldname = trim(ssp_aasymm_fname) - status = nf90_inq_varid(fid, trim(fieldname), varid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) - status = nf90_get_var(fid, varid, ssp_aasymm) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) - - fieldname = trim(ssp_aerext_fname) - status = nf90_inq_varid(fid, trim(fieldname), varid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) - status = nf90_get_var(fid, varid, ssp_aerext) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) - - fieldname = trim(ssp_aeralb_fname) - status = nf90_inq_varid(fid, trim(fieldname), varid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) - status = nf90_get_var(fid, varid, ssp_aeralb) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) - - fieldname = trim(ssp_abcenhmd_fname) - status = nf90_inq_varid(fid, trim(fieldname), varid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_ind_varid '//trim(fieldname)) - status = nf90_get_var(fid, varid, ssp_abcenhmd) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_get_var '//trim(fieldname)) - - status = nf90_close(fid) - if (status /= nf90_noerr) call icedrv_system_abort(string=subname//' ERROR: nf90_close') - -#else - call icedrv_system_abort(string=subname//' ERROR: netcdf required', & - file=__FILE__,line= __LINE__) -#endif - - write(nu_diag,*) subname,' ' - write(nu_diag,*) subname,' Successfully initialized SNICAR SSP tables:' - write(nu_diag,*) subname,' ssp_filename = ',trim(ssp_filename) - write(nu_diag,*) subname,' SSP N spectral int, m1 = ',nspint - write(nu_diag,*) subname,' SSP N snow grain rad, m2 = ',nsrad - write(nu_diag,*) subname,' SSP N nModal1 = ',nmodal1 - write(nu_diag,*) subname,' SSP N nModal2 = ',nmodal2 - write(nu_diag,*) subname,' SSP N maxAerosolType = ',nmaeros - write(nu_diag,*) subname,' Data at first index ' - write(nu_diag,*) subname,' ssp_snwextdr(1,1) = ',ssp_snwextdr(1,1) - write(nu_diag,*) subname,' ssp_snwextdf(1,1) = ',ssp_snwextdf(1,1) - write(nu_diag,*) subname,' ssp_snwalbdr(1,1) = ',ssp_snwalbdr(1,1) - write(nu_diag,*) subname,' ssp_snwalbdf(1,1) = ',ssp_snwalbdf(1,1) - write(nu_diag,*) subname,' ssp_sasymmdr(1,1) = ',ssp_sasymmdr(1,1) - write(nu_diag,*) subname,' ssp_sasymmdf(1,1) = ',ssp_sasymmdf(1,1) - write(nu_diag,*) subname,' Data at ',nspint,',1 index ' - write(nu_diag,*) subname,' ssp_snwextdr(m1,1) = ',ssp_snwextdr(nspint,1) - write(nu_diag,*) subname,' ssp_snwextdf(m1,1) = ',ssp_snwextdf(nspint,1) - write(nu_diag,*) subname,' ssp_snwalbdr(m1,1) = ',ssp_snwalbdr(nspint,1) - write(nu_diag,*) subname,' ssp_snwalbdf(m1,1) = ',ssp_snwalbdf(nspint,1) - write(nu_diag,*) subname,' ssp_sasymmdr(m1,1) = ',ssp_sasymmdr(nspint,1) - write(nu_diag,*) subname,' ssp_sasymmdf(m1,1) = ',ssp_sasymmdf(nspint,1) - write(nu_diag,*) subname,' Data at 1,',nsrad,' index ' - write(nu_diag,*) subname,' ssp_snwextdr(1,m2) = ',ssp_snwextdr(1,nsrad) - write(nu_diag,*) subname,' ssp_snwextdf(1,m2) = ',ssp_snwextdf(1,nsrad) - write(nu_diag,*) subname,' ssp_snwalbdr(1,m2) = ',ssp_snwalbdr(1,nsrad) - write(nu_diag,*) subname,' ssp_snwalbdf(1,m2) = ',ssp_snwalbdf(1,nsrad) - write(nu_diag,*) subname,' ssp_sasymmdr(1,m2) = ',ssp_sasymmdr(1,nsrad) - write(nu_diag,*) subname,' ssp_sasymmdf(1,m2) = ',ssp_sasymmdf(1,nsrad) - write(nu_diag,*) subname,' Data at ',nspint,nsrad,' index ' - write(nu_diag,*) subname,' ssp_snwextdr(m1,m2) = ',ssp_snwextdr(nspint,nsrad) - write(nu_diag,*) subname,' ssp_snwextdf(m1,m2) = ',ssp_snwextdf(nspint,nsrad) - write(nu_diag,*) subname,' ssp_snwalbdr(m1,m2) = ',ssp_snwalbdr(nspint,nsrad) - write(nu_diag,*) subname,' ssp_snwalbdf(m1,m2) = ',ssp_snwalbdf(nspint,nsrad) - write(nu_diag,*) subname,' ssp_sasymmdr(m1,m2) = ',ssp_sasymmdr(nspint,nsrad) - write(nu_diag,*) subname,' ssp_sasymmdf(m1,m2) = ',ssp_sasymmdf(nspint,nsrad) - - call icepack_init_parameters( & - ssp_snwextdr_in = ssp_snwextdr, ssp_snwextdf_in = ssp_snwextdf, & - ssp_snwalbdr_in = ssp_snwalbdr, ssp_snwalbdf_in = ssp_snwalbdf, & - ssp_sasymmdr_in = ssp_sasymmdr, ssp_sasymmdf_in = ssp_sasymmdf, & - ssp_aasymmmd_in = ssp_aasymmmd, ssp_aerextmd_in = ssp_aerextmd, & - ssp_aeralbmd_in = ssp_aeralbmd, ssp_aasymm_in = ssp_aasymm , & - ssp_aerext_in = ssp_aerext , ssp_aeralb_in = ssp_aeralb , & - ssp_abcenhmd_in = ssp_abcenhmd ) - call icepack_warnings_flush(nu_diag) - if (icepack_warnings_aborted()) call icedrv_system_abort(string=subname, & - file=__FILE__,line= __LINE__) - - deallocate(ssp_snwextdr) - deallocate(ssp_snwextdf) - deallocate(ssp_snwalbdr) - deallocate(ssp_snwalbdf) - deallocate(ssp_sasymmdr) - deallocate(ssp_sasymmdf) - deallocate(ssp_aasymmmd) - deallocate(ssp_aerextmd) - deallocate(ssp_aeralbmd) - deallocate(ssp_aasymm) - deallocate(ssp_aerext) - deallocate(ssp_aeralb) - deallocate(ssp_abcenhmd) - - end subroutine init_snicarssptable - !======================================================================= end module icedrv_forcing diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90 index cb037f85d..7892cfb8c 100644 --- a/configuration/driver/icedrv_init.F90 +++ b/configuration/driver/icedrv_init.F90 @@ -73,15 +73,7 @@ subroutine input_data use icedrv_forcing, only: atm_data_format, ocn_data_format, bgc_data_format use icedrv_forcing, only: data_dir use icedrv_forcing, only: oceanmixed_ice, restore_ocn, trestore - use icedrv_forcing, only: snw_ssp_table, ssp_filename, ssp_nsrad_fname, ssp_nspint_fname - use icedrv_forcing, only: ssp_nmodal1_fname, ssp_nmodal2_fname, ssp_nmaeros_fname - use icedrv_forcing, only: ssp_snwextdr_fname, ssp_snwextdf_fname - use icedrv_forcing, only: ssp_snwalbdr_fname, ssp_snwalbdf_fname - use icedrv_forcing, only: ssp_sasymmdr_fname, ssp_sasymmdf_fname - use icedrv_forcing, only: ssp_aasymmmd_fname, ssp_aerextmd_fname - use icedrv_forcing, only: ssp_aeralbmd_fname, ssp_aasymm_fname - use icedrv_forcing, only: ssp_aerext_fname, ssp_aeralb_fname - use icedrv_forcing, only: ssp_abcenhmd_fname + use icedrv_forcing, only: snw_ssp_table ! local variables @@ -169,16 +161,7 @@ subroutine input_data albicev, albicei, albsnowv, albsnowi, & ahmax, R_ice, R_pnd, R_snw, & sw_redist, sw_frac, sw_dtemp, & - dT_mlt, rsnw_mlt, kalg, snw_ssp_table, & - ssp_filename, ssp_nsrad_fname, ssp_nspint_fname, & - ssp_nmodal1_fname, ssp_nmodal2_fname, ssp_nmaeros_fname, & - ssp_snwextdr_fname, ssp_snwextdf_fname, & - ssp_snwalbdr_fname, ssp_snwalbdf_fname, & - ssp_sasymmdr_fname, ssp_sasymmdf_fname, & - ssp_aasymmmd_fname, ssp_aerextmd_fname, & - ssp_aeralbmd_fname, ssp_aasymm_fname, & - ssp_aerext_fname, ssp_aeralb_fname, & - ssp_abcenhmd_fname + dT_mlt, rsnw_mlt, kalg, snw_ssp_table namelist /ponds_nml/ & hs0, dpscale, frzpnd, & @@ -305,27 +288,7 @@ subroutine input_data data_dir = ' ' ! root location of data files restore_ocn = .false. ! restore sst if true trestore = 90 ! restoring timescale, days (0 instantaneous) - - snw_ssp_table = 'test' ! snow table type, test, snicar, file - ssp_filename = 'snicar_optics_5bnd_snow_and_aerosols.nc' ! snicar ssp filename - ssp_nsrad_fname = 'nSnowGrainRadiusSNICAR' ! snow grain radius fieldname - ssp_nspint_fname = 'nSpectralIntervalsSNICAR' ! spectral interval fieldname - ssp_nmodal1_fname = 'nModal1' ! nModal1 fieldname - ssp_nmodal2_fname = 'nModal2' ! nModal1 fieldname - ssp_nmaeros_fname = 'maxAerosolType' ! maxAerosolType fieldname - ssp_snwextdr_fname = 'iceMassExtinctionCrossSectionDirect' ! snow mass extinction cross section (m2/kg) - ssp_snwextdf_fname = 'iceMassExtinctionCrossSectionDiffuse' ! snow mass extinction cross section (m2/kg) - ssp_snwalbdr_fname = 'iceSingleScatterAlbedoDirect' ! snow single scatter albedo (fraction) - ssp_snwalbdf_fname = 'iceSingleScatterAlbedoDiffuse' ! snow single scatter albedo (fraction) - ssp_sasymmdr_fname = 'iceAsymmetryParameterDirect' ! snow asymmetry factor (cos(theta)) - ssp_sasymmdf_fname = 'iceAsymmetryParameterDiffuse' ! snow asymmetry factor (cos(theta)) - ssp_aasymmmd_fname = 'modalAsymmetryParameter5band' - ssp_aerextmd_fname = 'modalMassExtinctionCrossSection5band' - ssp_aeralbmd_fname = 'modalSingleScatterAlbedo5band' - ssp_aasymm_fname = 'aerosolAsymmetryParameter5band' - ssp_aerext_fname = 'aerosolMassExtinctionCrossSection5band' - ssp_aeralb_fname = 'aerosolSingleScatterAlbedo5band' - ssp_abcenhmd_fname = 'modalBCabsorptionParameter5band' + snw_ssp_table = 'test' ! snow table type, test or snicar ! extra tracers tr_iage = .false. ! ice age @@ -754,27 +717,6 @@ subroutine input_data if (trim(shortwave) == 'dEdd_snicar') then write(nu_diag,1030) ' snw_ssp_table = ', trim(snw_ssp_table) - if (trim(snw_ssp_table) == 'snicarfile') then - write(nu_diag,1030) ' ssp_filename = ', trim(ssp_filename) - write(nu_diag,1030) ' ssp_nsrad_fname = ', trim(ssp_nsrad_fname) - write(nu_diag,1030) ' ssp_nspint_fname = ', trim(ssp_nspint_fname) - write(nu_diag,1030) ' ssp_nmodal1_fname = ', trim(ssp_nmodal1_fname) - write(nu_diag,1030) ' ssp_nmodal2_fname = ', trim(ssp_nmodal2_fname) - write(nu_diag,1030) ' ssp_nmaeros_fname = ', trim(ssp_nmaeros_fname) - write(nu_diag,1030) ' ssp_snwextdr_fname = ', trim(ssp_snwextdr_fname) - write(nu_diag,1030) ' ssp_snwextdf_fname = ', trim(ssp_snwextdf_fname) - write(nu_diag,1030) ' ssp_snwalbdr_fname = ', trim(ssp_snwalbdr_fname) - write(nu_diag,1030) ' ssp_snwalbdf_fname = ', trim(ssp_snwalbdf_fname) - write(nu_diag,1030) ' ssp_sasymmdr_fname = ', trim(ssp_sasymmdr_fname) - write(nu_diag,1030) ' ssp_sasymmdf_fname = ', trim(ssp_sasymmdf_fname) - write(nu_diag,1030) ' ssp_aasymmmd_fname = ', trim(ssp_aasymmmd_fname) - write(nu_diag,1030) ' ssp_aerextmd_fname = ', trim(ssp_aerextmd_fname) - write(nu_diag,1030) ' ssp_aeralbmd_fname = ', trim(ssp_aeralbmd_fname) - write(nu_diag,1030) ' ssp_aasymm_fname = ', trim(ssp_aasymm_fname) - write(nu_diag,1030) ' ssp_aerext_fname = ', trim(ssp_aerext_fname) - write(nu_diag,1030) ' ssp_aeralb_fname = ', trim(ssp_aeralb_fname) - write(nu_diag,1030) ' ssp_abcenhmd_fname = ', trim(ssp_abcenhmd_fname) - endif endif write(nu_diag,1010) ' sw_redist = ', sw_redist diff --git a/configuration/driver/icedrv_init_column.F90 b/configuration/driver/icedrv_init_column.F90 index 11630c1cc..01f1108bc 100644 --- a/configuration/driver/icedrv_init_column.F90 +++ b/configuration/driver/icedrv_init_column.F90 @@ -107,7 +107,7 @@ subroutine init_shortwave use icedrv_calendar, only: istep1, dt, calendar_type use icedrv_calendar, only: days_per_year, nextsw_cday, yday, sec use icedrv_system, only: icedrv_system_abort - use icedrv_forcing, only: snw_ssp_table, init_snicarssptable + use icedrv_forcing, only: snw_ssp_table use icedrv_flux, only: alvdf, alidf, alvdr, alidr use icedrv_flux, only: alvdr_ai, alidr_ai, alvdf_ai, alidf_ai use icedrv_flux, only: swvdr, swvdf, swidr, swidf, scale_factor, snowfrac @@ -234,9 +234,6 @@ subroutine init_shortwave call icepack_warnings_flush(nu_diag) if (icepack_warnings_aborted()) call icedrv_system_abort(string=subname, & file=__FILE__,line= __LINE__) - if (trim(snw_ssp_table) == 'snicarfile') then - call init_snicarssptable() - endif endif endif ! dEdd diff --git a/icepack.setup b/icepack.setup index 126524d7a..4caef26c8 100755 --- a/icepack.setup +++ b/icepack.setup @@ -919,7 +919,7 @@ source ./icepack.settings set md5file = icepack.settings.md5 grep -v " ICE_CASENAME " icepack.settings | grep -v " ICE_CASEDIR " | grep -v " ICE_RUNDIR " | grep -v " ICE_TESTNAME " | grep -v " ICE_TEST " >! \${md5file} set icepsetmd5 = \` md5sum \${md5file} | cut -d " " -f 1 \` -#rm \${md5file} +rm \${md5file} set icepexe = "../icepexe.\${icepsetmd5}" ./icepack.build --exe \${icepexe} set bldstat = \${status} From 631816ecb745e357735b75bcc8347b0ccf28eb2b Mon Sep 17 00:00:00 2001 From: apcraig Date: Tue, 6 Sep 2022 14:43:44 -0600 Subject: [PATCH 31/64] update test suite and icepack_in --- configuration/scripts/icepack_in | 19 ----------------- .../scripts/options/set_env.snicarfile | 2 -- .../scripts/options/set_nml.snicarfile | 21 ------------------- configuration/scripts/tests/snicar_suite.ts | 2 -- icepack.setup | 17 +++++++++------ 5 files changed, 11 insertions(+), 50 deletions(-) delete mode 100644 configuration/scripts/options/set_env.snicarfile delete mode 100644 configuration/scripts/options/set_nml.snicarfile diff --git a/configuration/scripts/icepack_in b/configuration/scripts/icepack_in index a21046cf5..d926688a7 100644 --- a/configuration/scripts/icepack_in +++ b/configuration/scripts/icepack_in @@ -67,25 +67,6 @@ sw_frac = 0.9d0 sw_dtemp = 0.02d0 snw_ssp_table = 'test' - ssp_filename = 'unknown' - ssp_nsrad_fname = 'unknown' - ssp_nspint_fname = 'unknown' - ssp_nmodal1_fname = 'unknown' - ssp_nmodal2_fname = 'unknown' - ssp_nmaeros_fname = 'unknown' - ssp_snwextdr_fname = 'unknown' - ssp_snwextdf_fname = 'unknown' - ssp_snwalbdr_fname = 'unknown' - ssp_snwalbdf_fname = 'unknown' - ssp_sasymmdr_fname = 'unknown' - ssp_sasymmdf_fname = 'unknown' - ssp_aasymmmd_fname = 'unknown' - ssp_aerextmd_fname = 'unknown' - ssp_aeralbmd_fname = 'unknown' - ssp_aasymm_fname = 'unknown' - ssp_aerext_fname = 'unknown' - ssp_aeralb_fname = 'unknown' - ssp_abcenhmd_fname = 'unknown' / &ponds_nml diff --git a/configuration/scripts/options/set_env.snicarfile b/configuration/scripts/options/set_env.snicarfile deleted file mode 100644 index 7ac74351d..000000000 --- a/configuration/scripts/options/set_env.snicarfile +++ /dev/null @@ -1,2 +0,0 @@ -setenv ICE_IOTYPE netcdf -setenv ICE_NXGLOB 1 diff --git a/configuration/scripts/options/set_nml.snicarfile b/configuration/scripts/options/set_nml.snicarfile deleted file mode 100644 index f1583cc6d..000000000 --- a/configuration/scripts/options/set_nml.snicarfile +++ /dev/null @@ -1,21 +0,0 @@ - shortwave = 'dEdd_snicar' - snw_ssp_table = 'snicarfile' - ssp_filename = 'ICE_MACHINE_INPUTDATA/CICE_data/forcing/snicar_optics_5bnd_snow_and_aerosols.nc' - ssp_nsrad_fname = 'nSnowGrainRadiusSNICAR' - ssp_nspint_fname = 'nSpectralIntervalsSNICAR' - ssp_nmodal1_fname = 'nModal1' - ssp_nmodal2_fname = 'nModal2' - ssp_nmaeros_fname = 'maxAerosolType' - ssp_snwextdr_fname = 'iceMassExtinctionCrossSectionDirect' - ssp_snwextdf_fname = 'iceMassExtinctionCrossSectionDiffuse' - ssp_snwalbdr_fname = 'iceSingleScatterAlbedoDirect' - ssp_snwalbdf_fname = 'iceSingleScatterAlbedoDiffuse' - ssp_sasymmdr_fname = 'iceAsymmetryParameterDirect' - ssp_sasymmdf_fname = 'iceAsymmetryParameterDiffuse' - ssp_aasymmmd_fname = 'modalAsymmetryParameter5band' - ssp_aerextmd_fname = 'modalMassExtinctionCrossSection5band' - ssp_aeralbmd_fname = 'modalSingleScatterAlbedo5band' - ssp_aasymm_fname = 'aerosolAsymmetryParameter5band' - ssp_aerext_fname = 'aerosolMassExtinctionCrossSection5band' - ssp_aeralb_fname = 'aerosolSingleScatterAlbedo5band' - ssp_abcenhmd_fname = 'modalBCabsorptionParameter5band' diff --git a/configuration/scripts/tests/snicar_suite.ts b/configuration/scripts/tests/snicar_suite.ts index 8779131ab..2eb4c9b32 100644 --- a/configuration/scripts/tests/snicar_suite.ts +++ b/configuration/scripts/tests/snicar_suite.ts @@ -5,5 +5,3 @@ smoke col 1x1 diag1,run1year,snicartest smoke col 1x1 debug,run1year,snicartest smoke col 1x1 diag1,run1year,snicar smoke col 1x1 debug,run1year,snicar -smoke col 1x1 diag1,run1year,snicarfile -smoke col 1x1 debug,run1year,snicarfile diff --git a/icepack.setup b/icepack.setup index 4caef26c8..64fd7c6e1 100755 --- a/icepack.setup +++ b/icepack.setup @@ -916,12 +916,17 @@ echo "-------test--------------" echo "${testname_base}" cd ${testname_base} source ./icepack.settings -set md5file = icepack.settings.md5 -grep -v " ICE_CASENAME " icepack.settings | grep -v " ICE_CASEDIR " | grep -v " ICE_RUNDIR " | grep -v " ICE_TESTNAME " | grep -v " ICE_TEST " >! \${md5file} -set icepsetmd5 = \` md5sum \${md5file} | cut -d " " -f 1 \` -rm \${md5file} -set icepexe = "../icepexe.\${icepsetmd5}" -./icepack.build --exe \${icepexe} +set md5chk = \`where md5sum\` +if ("\${md5chk}" != "") then + set md5file = icepack.settings.md5 + grep -v " ICE_CASENAME " icepack.settings | grep -v " ICE_CASEDIR " | grep -v " ICE_RUNDIR " | grep -v " ICE_TESTNAME " | grep -v " ICE_TEST " >! \${md5file} + set icepsetmd5 = \` md5sum \${md5file} | cut -d " " -f 1 \` + rm \${md5file} + set icepexe = "../icepexe.\${icepsetmd5}" + ./icepack.build --exe \${icepexe} +else + ./icepack.build +endif set bldstat = \${status} if !(-e \${icepexe}) cp -p \${ICE_RUNDIR}/icepack \${icepexe} if (\$bldstat == 0) then From 1395476d09b6a3d407d3e5c12ddfc9bc30b8dc52 Mon Sep 17 00:00:00 2001 From: apcraig Date: Tue, 6 Sep 2022 15:02:22 -0600 Subject: [PATCH 32/64] update scripts if md5sum not available --- icepack.setup | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/icepack.setup b/icepack.setup index 64fd7c6e1..788a273c8 100755 --- a/icepack.setup +++ b/icepack.setup @@ -924,11 +924,12 @@ if ("\${md5chk}" != "") then rm \${md5file} set icepexe = "../icepexe.\${icepsetmd5}" ./icepack.build --exe \${icepexe} + set bldstat = \${status} + if !(-e \${icepexe}) cp -p \${ICE_RUNDIR}/icepack \${icepexe} else ./icepack.build + set bldstat = \${status} endif -set bldstat = \${status} -if !(-e \${icepexe}) cp -p \${ICE_RUNDIR}/icepack \${icepexe} if (\$bldstat == 0) then ./icepack.submit | tee -a ../suite.jobs endif From 0a9d6e7e40ac5d6442a62f247661d0f6a1c8acba Mon Sep 17 00:00:00 2001 From: apcraig Date: Tue, 6 Sep 2022 19:10:56 -0600 Subject: [PATCH 33/64] Clean up shortwave data variable names --- columnphysics/icepack_shortwave.F90 | 979 ++++++------------ columnphysics/icepack_shortwave_data.F90 | 129 +-- configuration/driver/icedrv_arrays_column.F90 | 31 - configuration/driver/icedrv_init_column.F90 | 10 +- configuration/driver/icedrv_step.F90 | 8 +- 5 files changed, 387 insertions(+), 770 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 59fd869dc..4acae8602 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -74,12 +74,7 @@ module icepack_shortwave use icepack_zbgc_shared,only: remap_zbgc use icepack_orbital, only: compute_coszen - ! SNICAR SSP data use icepack_shortwave_data, only: nspint_3bd, nspint_5bd - use icepack_shortwave_data, only: & - nmbrad_snicar , & ! number of snow grain radii in SNICAR SSP tables - rsnw_snicar_min, & ! minimum snow radius - integer value used for indexing - rsnw_snicar_max ! maximum snow radius - integer value used for indexing ! dEdd 3-band data use icepack_shortwave_data, only: & @@ -93,6 +88,9 @@ module icepack_shortwave ki_p_ssl_mn, wi_p_ssl_mn, gi_p_ssl_mn , & ! ponded ice surface scattering layer (ssl) iops ki_p_int_mn, wi_p_int_mn, gi_p_int_mn , & ! ponded ice interior layer (int) iops kw, ww, gw ! iops for pond water and underlying ocean + use icepack_shortwave_data, only: & + gaer_bc_3bd, kaer_bc_3bd, waer_bc_3bd, bcenh_3bd, & + gaer_3bd, kaer_3bd, waer_3bd use icepack_shortwave_data, only: & nmbrad_snw, & ! number of snow grain radii in tables rsnw_tab, & ! snow grain radii (micro-meters) for table @@ -105,19 +103,22 @@ module icepack_shortwave ki_ssl_mn_5bd, wi_ssl_mn_5bd, gi_ssl_mn_5bd, & ! ice surface scattering layer (ssl) iops ki_dl_mn_5bd, wi_dl_mn_5bd, gi_dl_mn_5bd , & ! ice drained layer (dl) iops ki_int_mn_5bd, wi_int_mn_5bd, gi_int_mn_5bd ! ice interior layer (int) iops + use icepack_shortwave_data, only: & + gaer_bc_5bd, kaer_bc_5bd, waer_bc_5bd, bcenh_5bd, & + gaer_5bd, kaer_5bd, waer_5bd + use icepack_shortwave_data, only: & + nmbrad_snicar , & ! number of snow grain radii in SNICAR SSP tables + rsnw_snicar_min, & ! minimum snow radius - integer value used for indexing + rsnw_snicar_max ! maximum snow radius - integer value used for indexing use icepack_shortwave_data, only: & ssp_snwextdr, ssp_snwalbdr, ssp_sasymmdr, & - ssp_snwextdf, ssp_snwalbdf, ssp_sasymmdf, gaer_bc_5bd, kaer_bc_5bd, & - waer_bc_5bd, bcenh_5bd, gaer_5bd, kaer_5bd, waer_5bd, & + ssp_snwextdf, ssp_snwalbdf, ssp_sasymmdf, & rsnw_snicar_tab implicit none private - public :: run_dEdd, & - shortwave_ccsm3, & - compute_shortwave_trcr, & - icepack_init_radiation, & + public :: icepack_init_radiation, & icepack_prep_radiation, & icepack_step_radiation @@ -154,6 +155,8 @@ subroutine icepack_init_radiation() !autodocument_end use icepack_shortwave_data, only: icepack_shortwave_init_dEdd3band use icepack_shortwave_data, only: icepack_shortwave_init_dEdd5band + use icepack_shortwave_data, only: icepack_shortwave_init_snicar + use icepack_shortwave_data, only: icepack_shortwave_init_snicartest ! local variables @@ -173,78 +176,45 @@ subroutine icepack_init_radiation() if (use_snicar) then call icepack_shortwave_init_dEdd5band() if (icepack_warnings_aborted(subname)) return - call data_dEdd_snicar() - if (icepack_warnings_aborted(subname)) return - - endif - - end subroutine icepack_init_radiation - -!======================================================================= -! Snow single-scattering properties for the 5-band dEdd_snicar option - - subroutine data_dEdd_snicar - - use icepack_shortwave_data, only: icepack_shortwave_init_snicar - use icepack_shortwave_data, only: icepack_shortwave_init_snicartest - - ! local variables - - integer (kind=int_kind) :: n - - character (len=*),parameter :: subname='(data_dEdd_snicar)' - ! if snw_ssp_table = 'test' - ! for testing Icepack without netcdf, - ! use a subsampled, hard-coded table - ! 5 snow grain radii - ! 5 spectral intervals - - ! if snw_ssp_table = 'snicar' - ! best-fit parameters are hardcoded in icepack - ! 1471 snow grain radii - ! 5 spectral intervals - - if (trim(snw_ssp_table) == 'test') then ! 5x5 table - - call icepack_shortwave_init_snicartest() - if (icepack_warnings_aborted(subname)) return + if (trim(snw_ssp_table) == 'test') then ! 5x5 test table + call icepack_shortwave_init_snicartest() + if (icepack_warnings_aborted(subname)) return + elseif (trim(snw_ssp_table) == 'snicar') then ! 5 x 1471 table + call icepack_shortwave_init_snicar() + if (icepack_warnings_aborted(subname)) return + else + call icepack_warnings_setabort(.true.,__FILE__,__LINE__) + call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)//' not supported') + return + endif - elseif (trim(snw_ssp_table) == 'snicar') then + !------------------------------ + ! Check SNICAR SSP data + !------------------------------ - call icepack_shortwave_init_snicar() - if (icepack_warnings_aborted(subname)) return + write(warnstr,'(2a,i8)') subname, ' nmbrad_snicar = ',nmbrad_snicar + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i8)') subname, ' nspint = ',nspint_5bd + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i8)') subname, ' nmodal1 = ',nmodal1 + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i8)') subname, ' nmodal2 = ',nmodal2 + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i8)') subname, ' max_aero = ',max_aero + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i5,a,i5,a,g22.15)') subname, ' ssp_snwextdr(',1, ',',1, ') = ',ssp_snwextdr(1,1) + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i5,a,i5,a,g22.15)') subname, ' ssp_snwextdr(',nspint_5bd,',',1, ') = ',ssp_snwextdr(nspint_5bd,1) + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i5,a,i5,a,g22.15)') subname, ' ssp_snwextdr(',1, ',',nmbrad_snicar,') = ',ssp_snwextdr(1,nmbrad_snicar) + call icepack_warnings_add(warnstr) + write(warnstr,'(2a,i5,a,i5,a,g22.15)') subname, ' ssp_snwextdr(',nspint_5bd,',',nmbrad_snicar,') = ',ssp_snwextdr(nspint_5bd,nmbrad_snicar) + call icepack_warnings_add(warnstr) - else - call icepack_warnings_setabort(.true.,__FILE__,__LINE__) - call icepack_warnings_add(subname//'ERROR: snw_ssp_table = '//trim(snw_ssp_table)//' not supported') - return endif - !------------------------------ - ! Check SNICAR SSP data - !------------------------------ - - write(warnstr,'(2a,i8)') subname, ' nmbrad_snicar = ',nmbrad_snicar - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i8)') subname, ' nspint = ',nspint_5bd - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i8)') subname, ' nmodal1 = ',nmodal1 - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i8)') subname, ' nmodal2 = ',nmodal2 - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i8)') subname, ' max_aero = ',max_aero - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i5,a,i5,a,g22.15)') subname, ' ssp_snwextdr(',1, ',',1, ') = ',ssp_snwextdr(1,1) - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i5,a,i5,a,g22.15)') subname, ' ssp_snwextdr(',nspint_5bd,',',1, ') = ',ssp_snwextdr(nspint_5bd,1) - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i5,a,i5,a,g22.15)') subname, ' ssp_snwextdr(',1, ',',nmbrad_snicar,') = ',ssp_snwextdr(1,nmbrad_snicar) - call icepack_warnings_add(warnstr) - write(warnstr,'(2a,i5,a,i5,a,g22.15)') subname, ' ssp_snwextdr(',nspint_5bd,',',nmbrad_snicar,') = ',ssp_snwextdr(nspint_5bd,nmbrad_snicar) - call icepack_warnings_add(warnstr) - - end subroutine data_dEdd_snicar + end subroutine icepack_init_radiation !======================================================================= ! @@ -954,12 +924,6 @@ subroutine run_dEdd(dt, ncat, & days_per_year, & nextsw_cday, yday, & sec, & - kaer_3bd, waer_3bd, & - gaer_3bd, & - kaer_bc_3bd, & - waer_bc_3bd, & - gaer_bc_3bd, & - bcenh_3bd, & modal_aero, & swvdr, swvdf, & swidr, swidf, & @@ -980,12 +944,6 @@ subroutine run_dEdd(dt, ncat, & dhsn, ffracn, & rsnow, & l_print_point, & - kaer_5bd, waer_5bd, & - gaer_5bd, & - kaer_bc_5bd, & - waer_bc_5bd, & - gaer_bc_5bd, & - bcenh_5bd, & initonly) integer (kind=int_kind), intent(in) :: & @@ -1000,32 +958,6 @@ subroutine run_dEdd(dt, ncat, & dEdd_algae, & ! .true. use prognostic chla in dEdd modal_aero ! .true. use modal aerosol treatment - real (kind=dbl_kind), dimension(:,:), intent(in) :: & - kaer_3bd, & ! aerosol mass extinction cross section (m2/kg) - waer_3bd, & ! aerosol single scatter albedo (fraction) - gaer_3bd ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Modal aerosol treatment - kaer_bc_3bd, & ! aerosol mass extinction cross section (m2/kg) - waer_bc_3bd, & ! aerosol single scatter albedo (fraction) - gaer_bc_3bd ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment - bcenh_3bd ! BC absorption enhancement factor - - real (kind=dbl_kind), dimension(:,:), intent(in) :: & - kaer_5bd, & ! aerosol mass extinction cross section (m2/kg) - waer_5bd, & ! aerosol single scatter albedo (fraction) - gaer_5bd ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Modal aerosol treatment - kaer_bc_5bd, & ! aerosol mass extinction cross section (m2/kg) - waer_bc_5bd, & ! aerosol single scatter albedo (fraction) - gaer_bc_5bd ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment - bcenh_5bd ! BC absorption enhancement factor - character (len=char_len), intent(in) :: & calendar_type ! differentiates Gregorian from other calendars @@ -1339,12 +1271,7 @@ subroutine run_dEdd(dt, ncat, & rhosnwn, rsnwn, & fpn, hpn, & aeron(:,n), & - kaer_3bd, waer_3bd, & - gaer_3bd, & - kaer_bc_3bd, & - waer_bc_3bd, & - gaer_bc_3bd, & - bcenh_3bd, modal_aero, & + modal_aero, & swvdr, swvdf, & swidr, swidf, & alvdrn(n), alvdfn(n), & @@ -1362,13 +1289,6 @@ subroutine run_dEdd(dt, ncat, & albpnd=albpndn(n), & fswpenl=fswpenln(:,n), & zbio=trcrn_bgcsw(:,n), & - kaer_5bd=kaer_5bd, & - waer_5bd=waer_5bd, & - gaer_5bd=gaer_5bd, & - kaer_bc_5bd=kaer_bc_5bd, & - waer_bc_5bd=waer_bc_5bd, & - gaer_bc_5bd=gaer_bc_5bd, & - bcenh_5bd=bcenh_5bd, & l_print_point=l_print_point) if (icepack_warnings_aborted(subname)) return @@ -1435,12 +1355,7 @@ subroutine shortwave_dEdd (dEdd_algae, & rhosnw, rsnw, & fp, hp, & aero, & - kaer_3bd, waer_3bd, & - gaer_3bd, & - kaer_bc_3bd, & - waer_bc_3bd, & - gaer_bc_3bd, & - bcenh_3bd, modal_aero, & + modal_aero, & swvdr, swvdf, & swidr, swidf, & alvdr, alvdf, & @@ -1455,14 +1370,7 @@ subroutine shortwave_dEdd (dEdd_algae, & Iswabs, albice, & albsno, albpnd, & fswpenl, zbio, & - l_print_point, & - kaer_5bd, & - waer_5bd, & - gaer_5bd, & - kaer_bc_5bd, & - waer_bc_5bd, & - gaer_bc_5bd, & - bcenh_5bd) + l_print_point ) integer (kind=int_kind), intent(in) :: & nilyr , & ! number of ice layers @@ -1475,32 +1383,6 @@ subroutine shortwave_dEdd (dEdd_algae, & dEdd_algae, & ! .true. use prognostic chla in dEdd modal_aero ! .true. use modal aerosol treatment - real (kind=dbl_kind), dimension(:,:), intent(in) :: & - kaer_3bd, & ! aerosol mass extinction cross section (m2/kg) - waer_3bd, & ! aerosol single scatter albedo (fraction) - gaer_3bd ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Modal aerosol treatment - kaer_bc_3bd, & ! aerosol mass extinction cross section (m2/kg) - waer_bc_3bd, & ! aerosol single scatter albedo (fraction) - gaer_bc_3bd ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment - bcenh_3bd ! BC absorption enhancement factor - - real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & - kaer_5bd, & ! aerosol mass extinction cross section (m2/kg) - waer_5bd, & ! aerosol single scatter albedo (fraction) - gaer_5bd ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(:,:), intent(in), optional :: & ! Modal aerosol treatment - kaer_bc_5bd, & ! aerosol mass extinction cross section (m2/kg) - waer_bc_5bd, & ! aerosol single scatter albedo (fraction) - gaer_bc_5bd ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(:,:,:), intent(in), optional :: & ! Modal aerosol treatment - bcenh_5bd ! BC absorption enhancement factor - real (kind=dbl_kind), intent(in) :: & aice , & ! concentration of ice vice , & ! volume of ice @@ -1683,10 +1565,7 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl, & - kaer_tab=kaer_3bd, waer_tab=waer_3bd, gaer_tab=gaer_3bd, & - kaer_bc_tab=kaer_bc_3bd, waer_bc_tab=waer_bc_3bd, gaer_bc_tab=gaer_bc_3bd, & - bcenh=bcenh_3bd) + Iswabs, fswpenl ) if (icepack_warnings_aborted(subname)) return alvdr = alvdr + avdrl *fi @@ -1713,20 +1592,14 @@ subroutine shortwave_dEdd (dEdd_algae, & call compute_dEdd_5bd(nilyr, nslyr, klev, klevp, & zbio, dEdd_algae, & !!!!!! heat_capacity, fnidr, coszen, & - fnidr, coszen, & - kaer_5bd, waer_5bd, gaer_5bd, & - kaer_bc_5bd, waer_bc_5bd, gaer_bc_5bd,& - bcenh_5bd, modal_aero, & + fnidr, coszen, modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fs, aero_mp, avdrl, avdfl, & aidrl, aidfl, & fswsfc, fswint, & fswthru, Sswabs, & - Iswabs, fswpenl, & - asm_prm_ice_drc=ssp_sasymmdr, asm_prm_ice_dfs=ssp_sasymmdf, & - ss_alb_ice_drc=ssp_snwalbdr, ss_alb_ice_dfs=ssp_snwalbdf, & - ext_cff_mss_ice_drc=ssp_snwextdr, ext_cff_mss_ice_dfs=ssp_snwextdf) + Iswabs, fswpenl ) else !echmod - this can be combined with the 5bd call above, if we use module data @@ -1749,10 +1622,7 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl, & - kaer_tab=kaer_3bd, waer_tab=waer_3bd, gaer_tab=gaer_3bd, & - kaer_bc_tab=kaer_bc_3bd, waer_bc_tab=waer_bc_3bd, gaer_bc_tab=gaer_bc_3bd, & - bcenh=bcenh_3bd) + Iswabs, fswpenl ) endif if (icepack_warnings_aborted(subname)) return @@ -1800,10 +1670,7 @@ subroutine shortwave_dEdd (dEdd_algae, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl, & - kaer_tab=kaer_3bd, waer_tab=waer_3bd, gaer_tab=gaer_3bd, & - kaer_bc_tab=kaer_bc_3bd, waer_bc_tab=waer_bc_3bd, gaer_bc_tab=gaer_bc_3bd, & - bcenh=bcenh_3bd) + Iswabs, fswpenl ) if (icepack_warnings_aborted(subname)) return alvdr = alvdr + avdrl *fp @@ -1924,10 +1791,7 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & fswthru_idr, & fswthru_idf, & Sswabs, & - Iswabs, fswpenl, & - kaer_tab, waer_tab, gaer_tab, & - kaer_bc_tab, waer_bc_tab, gaer_bc_tab, & - bcenh) + Iswabs, fswpenl ) integer (kind=int_kind), intent(in) :: & nilyr , & ! number of ice layers @@ -1943,19 +1807,6 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & dEdd_algae, & ! .true. use prognostic chla in dEdd modal_aero ! .true. use modal aerosol treatment - real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Modal aerosol treatment - kaer_bc_tab, & ! aerosol mass extinction cross section (m2/kg) - waer_bc_tab, & ! aerosol single scatter albedo (fraction) - gaer_bc_tab ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment - bcenh ! BC absorption enhancement factor - - real (kind=dbl_kind), dimension(:,:), intent(in) :: & - kaer_tab, & ! aerosol mass extinction cross section (m2/kg) - waer_tab, & ! aerosol single scatter albedo (fraction) - gaer_tab ! aerosol asymmetry parameter (cos(theta)) - real (kind=dbl_kind), intent(in) :: & fnidr , & ! fraction of direct to total down flux in nir coszen , & ! cosine solar zenith angle @@ -2141,7 +1992,7 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & fthrul ! shortwave through to ice layers (W m-2) real (kind=dbl_kind), dimension (nspint_3bd) :: & - wghtns ! spectral weights + wghtns ! spectral weights real (kind=dbl_kind), parameter :: & cp67 = 0.67_dbl_kind , & ! nir band weight parameter @@ -2260,17 +2111,6 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & real(kind=dbl_kind):: & tmp_gs, tmp1 ! temp variables - ! inherent optical property (iop) arrays for ice and ponded ice - ! mn = specified mean (or base) value - ! ki = extinction coefficient (/m) - ! wi = single scattering albedo - ! gi = asymmetry parameter - - real (kind=dbl_kind), dimension (nspint_3bd) :: & - ki_ssl_mn, wi_ssl_mn, gi_ssl_mn, & ! ice surface scattering layer (ssl) iops - ki_dl_mn, wi_dl_mn, gi_dl_mn , & ! ice drained layer (dl) iops - ki_int_mn, wi_int_mn, gi_int_mn ! ice interior layer (int) iops - real (kind=dbl_kind), parameter :: & rhoi = 917.0_dbl_kind,& ! pure ice mass density (kg/m3) - echmod HARDCODED! fix! fr_max = 1.00_dbl_kind, & ! snow grain adjustment factor max @@ -2332,16 +2172,6 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & wghtns(2) = cp67 + (cp78-cp67)*(c1-fnidr) wghtns(3) = c1 - wghtns(2) - ki_ssl_mn = ki_ssl_mn_3bd - wi_ssl_mn = wi_ssl_mn_3bd - gi_ssl_mn = gi_ssl_mn_3bd - ki_dl_mn = ki_dl_mn_3bd - wi_dl_mn = wi_dl_mn_3bd - gi_dl_mn = gi_dl_mn_3bd - ki_int_mn = ki_int_mn_3bd - wi_int_mn = wi_int_mn_3bd - gi_int_mn = gi_int_mn_3bd - ! find snow grain adjustment factor, dependent upon clear/overcast sky ! estimate. comparisons with SNICAR show better agreement with DE when ! this factor is included (clear sky near 1 and overcast near 0.8 give @@ -2391,40 +2221,40 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & ! Note: the albedo change becomes non-linear for R values > +1 or < -1 if( R_ice >= c0 ) then do ns = 1, nspint_3bd - sigp = ki_ssl_mn(ns)*wi_ssl_mn(ns)*(c1+fp_ice*R_ice) - ki_ssl(ns) = sigp+ki_ssl_mn(ns)*(c1-wi_ssl_mn(ns)) + sigp = ki_ssl_mn_3bd(ns)*wi_ssl_mn_3bd(ns)*(c1+fp_ice*R_ice) + ki_ssl(ns) = sigp+ki_ssl_mn_3bd(ns)*(c1-wi_ssl_mn_3bd(ns)) wi_ssl(ns) = sigp/ki_ssl(ns) - gi_ssl(ns) = gi_ssl_mn(ns) + gi_ssl(ns) = gi_ssl_mn_3bd(ns) - sigp = ki_dl_mn(ns)*wi_dl_mn(ns)*(c1+fp_ice*R_ice) - ki_dl(ns) = sigp+ki_dl_mn(ns)*(c1-wi_dl_mn(ns)) + sigp = ki_dl_mn_3bd(ns)*wi_dl_mn_3bd(ns)*(c1+fp_ice*R_ice) + ki_dl(ns) = sigp+ki_dl_mn_3bd(ns)*(c1-wi_dl_mn_3bd(ns)) wi_dl(ns) = sigp/ki_dl(ns) - gi_dl(ns) = gi_dl_mn(ns) + gi_dl(ns) = gi_dl_mn_3bd(ns) - sigp = ki_int_mn(ns)*wi_int_mn(ns)*(c1+fp_ice*R_ice) - ki_int(ns) = sigp+ki_int_mn(ns)*(c1-wi_int_mn(ns)) + sigp = ki_int_mn_3bd(ns)*wi_int_mn_3bd(ns)*(c1+fp_ice*R_ice) + ki_int(ns) = sigp+ki_int_mn_3bd(ns)*(c1-wi_int_mn_3bd(ns)) wi_int(ns) = sigp/ki_int(ns) - gi_int(ns) = gi_int_mn(ns) + gi_int(ns) = gi_int_mn_3bd(ns) enddo else !if( R_ice < c0 ) then do ns = 1, nspint_3bd - sigp = ki_ssl_mn(ns)*wi_ssl_mn(ns)*(c1+fm_ice*R_ice) + sigp = ki_ssl_mn_3bd(ns)*wi_ssl_mn_3bd(ns)*(c1+fm_ice*R_ice) sigp = max(sigp, c0) - ki_ssl(ns) = sigp+ki_ssl_mn(ns)*(c1-wi_ssl_mn(ns)) + ki_ssl(ns) = sigp+ki_ssl_mn_3bd(ns)*(c1-wi_ssl_mn_3bd(ns)) wi_ssl(ns) = sigp/ki_ssl(ns) - gi_ssl(ns) = gi_ssl_mn(ns) + gi_ssl(ns) = gi_ssl_mn_3bd(ns) - sigp = ki_dl_mn(ns)*wi_dl_mn(ns)*(c1+fm_ice*R_ice) + sigp = ki_dl_mn_3bd(ns)*wi_dl_mn_3bd(ns)*(c1+fm_ice*R_ice) sigp = max(sigp, c0) - ki_dl(ns) = sigp+ki_dl_mn(ns)*(c1-wi_dl_mn(ns)) + ki_dl(ns) = sigp+ki_dl_mn_3bd(ns)*(c1-wi_dl_mn_3bd(ns)) wi_dl(ns) = sigp/ki_dl(ns) - gi_dl(ns) = gi_dl_mn(ns) + gi_dl(ns) = gi_dl_mn_3bd(ns) - sigp = ki_int_mn(ns)*wi_int_mn(ns)*(c1+fm_ice*R_ice) + sigp = ki_int_mn_3bd(ns)*wi_int_mn_3bd(ns)*(c1+fm_ice*R_ice) sigp = max(sigp, c0) - ki_int(ns) = sigp+ki_int_mn(ns)*(c1-wi_int_mn(ns)) + ki_int(ns) = sigp+ki_int_mn_3bd(ns)*(c1-wi_int_mn_3bd(ns)) wi_int(ns) = sigp/ki_int(ns) - gi_int(ns) = gi_int_mn(ns) + gi_int(ns) = gi_int_mn_3bd(ns) enddo endif ! adjust ice iops @@ -2523,39 +2353,39 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & if (n == 1) then ! interstitial BC do k = 0, klev do ns = 1,nspint_3bd ! not weighted by aice - tzaer(ns,k) = tzaer(ns,k)+kaer_bc_tab(ns,k_bcexs(k))* & + tzaer(ns,k) = tzaer(ns,k)+kaer_bc_3bd(ns,k_bcexs(k))* & zbio(nlt_zaero_sw(n)+k)*dzk(k) - wzaer(ns,k) = wzaer(ns,k)+kaer_bc_tab(ns,k_bcexs(k))* & - waer_bc_tab(ns,k_bcexs(k))* & + wzaer(ns,k) = wzaer(ns,k)+kaer_bc_3bd(ns,k_bcexs(k))* & + waer_bc_3bd(ns,k_bcexs(k))* & zbio(nlt_zaero_sw(n)+k)*dzk(k) - gzaer(ns,k) = gzaer(ns,k)+kaer_bc_tab(ns,k_bcexs(k))* & - waer_bc_tab(ns,k_bcexs(k))* & - gaer_bc_tab(ns,k_bcexs(k))*zbio(nlt_zaero_sw(n)+k)*dzk(k) + gzaer(ns,k) = gzaer(ns,k)+kaer_bc_3bd(ns,k_bcexs(k))* & + waer_bc_3bd(ns,k_bcexs(k))* & + gaer_bc_3bd(ns,k_bcexs(k))*zbio(nlt_zaero_sw(n)+k)*dzk(k) enddo ! nspint enddo elseif (n==2) then ! within-ice BC do k = 0, klev do ns = 1,nspint_3bd - tzaer(ns,k) = tzaer(ns,k)+kaer_bc_tab(ns,k_bcins(k)) * & - bcenh(ns,k_bcins(k),k_bcini(k))* & + tzaer(ns,k) = tzaer(ns,k)+kaer_bc_3bd(ns,k_bcins(k)) * & + bcenh_3bd(ns,k_bcins(k),k_bcini(k))* & zbio(nlt_zaero_sw(n)+k)*dzk(k) - wzaer(ns,k) = wzaer(ns,k)+kaer_bc_tab(ns,k_bcins(k))* & - waer_bc_tab(ns,k_bcins(k))* & + wzaer(ns,k) = wzaer(ns,k)+kaer_bc_3bd(ns,k_bcins(k))* & + waer_bc_3bd(ns,k_bcins(k))* & zbio(nlt_zaero_sw(n)+k)*dzk(k) - gzaer(ns,k) = gzaer(ns,k)+kaer_bc_tab(ns,k_bcins(k))* & - waer_bc_tab(ns,k_bcins(k))* & - gaer_bc_tab(ns,k_bcins(k))*zbio(nlt_zaero_sw(n)+k)*dzk(k) + gzaer(ns,k) = gzaer(ns,k)+kaer_bc_3bd(ns,k_bcins(k))* & + waer_bc_3bd(ns,k_bcins(k))* & + gaer_bc_3bd(ns,k_bcins(k))*zbio(nlt_zaero_sw(n)+k)*dzk(k) enddo ! nspint enddo else ! dust do k = 0, klev do ns = 1,nspint_3bd ! not weighted by aice - tzaer(ns,k) = tzaer(ns,k)+kaer_tab(ns,n)* & + tzaer(ns,k) = tzaer(ns,k)+kaer_3bd(ns,n)* & zbio(nlt_zaero_sw(n)+k)*dzk(k) - wzaer(ns,k) = wzaer(ns,k)+kaer_tab(ns,n)*waer_tab(ns,n)* & + wzaer(ns,k) = wzaer(ns,k)+kaer_3bd(ns,n)*waer_3bd(ns,n)* & zbio(nlt_zaero_sw(n)+k)*dzk(k) - gzaer(ns,k) = gzaer(ns,k)+kaer_tab(ns,n)*waer_tab(ns,n)* & - gaer_tab(ns,n)*zbio(nlt_zaero_sw(n)+k)*dzk(k) + gzaer(ns,k) = gzaer(ns,k)+kaer_3bd(ns,n)*waer_3bd(ns,n)* & + gaer_3bd(ns,n)*zbio(nlt_zaero_sw(n)+k)*dzk(k) enddo ! nspint enddo endif !(n=1) @@ -2567,12 +2397,12 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & do n = 1,n_zaero ! multiply by aice? do k = 0, klev do ns = 1,nspint_3bd ! not weighted by aice - tzaer(ns,k) = tzaer(ns,k)+kaer_tab(ns,n)* & + tzaer(ns,k) = tzaer(ns,k)+kaer_3bd(ns,n)* & zbio(nlt_zaero_sw(n)+k)*dzk(k) - wzaer(ns,k) = wzaer(ns,k)+kaer_tab(ns,n)*waer_tab(ns,n)* & + wzaer(ns,k) = wzaer(ns,k)+kaer_3bd(ns,n)*waer_3bd(ns,n)* & zbio(nlt_zaero_sw(n)+k)*dzk(k) - gzaer(ns,k) = gzaer(ns,k)+kaer_tab(ns,n)*waer_tab(ns,n)* & - gaer_tab(ns,n)*zbio(nlt_zaero_sw(n)+k)*dzk(k) + gzaer(ns,k) = gzaer(ns,k)+kaer_3bd(ns,n)*waer_3bd(ns,n)* & + gaer_3bd(ns,n)*zbio(nlt_zaero_sw(n)+k)*dzk(k) enddo ! nspint enddo enddo @@ -2655,35 +2485,35 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & do na=1,4*n_aero,4 if (modal_aero) then if (na == 1) then ! interstitial BC - taer = taer + aero_mp(na)*kaer_bc_tab(ns,k_bcexs(k)) - waer = waer + aero_mp(na)*kaer_bc_tab(ns,k_bcexs(k)) & - *waer_bc_tab(ns,k_bcexs(k)) - gaer = gaer + aero_mp(na)*kaer_bc_tab(ns,k_bcexs(k)) & - *waer_bc_tab(ns,k_bcexs(k)) & - *gaer_bc_tab(ns,k_bcexs(k)) + taer = taer + aero_mp(na)*kaer_bc_3bd(ns,k_bcexs(k)) + waer = waer + aero_mp(na)*kaer_bc_3bd(ns,k_bcexs(k)) & + *waer_bc_3bd(ns,k_bcexs(k)) + gaer = gaer + aero_mp(na)*kaer_bc_3bd(ns,k_bcexs(k)) & + *waer_bc_3bd(ns,k_bcexs(k)) & + *gaer_bc_3bd(ns,k_bcexs(k)) elseif (na == 5) then ! within-ice BC - taer = taer + aero_mp(na)*kaer_bc_tab(ns,k_bcins(k)) & - *bcenh(ns,k_bcins(k),k_bcini(k)) - waer = waer + aero_mp(na)*kaer_bc_tab(ns,k_bcins(k)) & - *waer_bc_tab(ns,k_bcins(k)) - gaer = gaer + aero_mp(na)*kaer_bc_tab(ns,k_bcins(k)) & - *waer_bc_tab(ns,k_bcins(k)) & - *gaer_bc_tab(ns,k_bcins(k)) + taer = taer + aero_mp(na)*kaer_bc_3bd(ns,k_bcins(k)) & + *bcenh_3bd(ns,k_bcins(k),k_bcini(k)) + waer = waer + aero_mp(na)*kaer_bc_3bd(ns,k_bcins(k)) & + *waer_bc_3bd(ns,k_bcins(k)) + gaer = gaer + aero_mp(na)*kaer_bc_3bd(ns,k_bcins(k)) & + *waer_bc_3bd(ns,k_bcins(k)) & + *gaer_bc_3bd(ns,k_bcins(k)) else ! other species (dust) - taer = taer + aero_mp(na)*kaer_tab(ns,(1+(na-1)/4)) - waer = waer + aero_mp(na)*kaer_tab(ns,(1+(na-1)/4)) & - *waer_tab(ns,(1+(na-1)/4)) - gaer = gaer + aero_mp(na)*kaer_tab(ns,(1+(na-1)/4)) & - *waer_tab(ns,(1+(na-1)/4)) & - *gaer_tab(ns,(1+(na-1)/4)) + taer = taer + aero_mp(na)*kaer_3bd(ns,(1+(na-1)/4)) + waer = waer + aero_mp(na)*kaer_3bd(ns,(1+(na-1)/4)) & + *waer_3bd(ns,(1+(na-1)/4)) + gaer = gaer + aero_mp(na)*kaer_3bd(ns,(1+(na-1)/4)) & + *waer_3bd(ns,(1+(na-1)/4)) & + *gaer_3bd(ns,(1+(na-1)/4)) endif else - taer = taer + aero_mp(na)*kaer_tab(ns,(1+(na-1)/4)) - waer = waer + aero_mp(na)*kaer_tab(ns,(1+(na-1)/4)) & - *waer_tab(ns,(1+(na-1)/4)) - gaer = gaer + aero_mp(na)*kaer_tab(ns,(1+(na-1)/4)) & - *waer_tab(ns,(1+(na-1)/4)) & - *gaer_tab(ns,(1+(na-1)/4)) + taer = taer + aero_mp(na)*kaer_3bd(ns,(1+(na-1)/4)) + waer = waer + aero_mp(na)*kaer_3bd(ns,(1+(na-1)/4)) & + *waer_3bd(ns,(1+(na-1)/4)) + gaer = gaer + aero_mp(na)*kaer_3bd(ns,(1+(na-1)/4)) & + *waer_3bd(ns,(1+(na-1)/4)) & + *gaer_3bd(ns,(1+(na-1)/4)) endif !modal_aero enddo ! na gaer = gaer/(waer+puny) @@ -2697,45 +2527,45 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & if (modal_aero) then if (na==1) then ! interstitial BC taer = taer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_tab(ns,k_bcexs(k)) + (aero_mp(na+1)/rnslyr)*kaer_bc_3bd(ns,k_bcexs(k)) waer = waer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_tab(ns,k_bcexs(k))* & - waer_bc_tab(ns,k_bcexs(k)) + (aero_mp(na+1)/rnslyr)*kaer_bc_3bd(ns,k_bcexs(k))* & + waer_bc_3bd(ns,k_bcexs(k)) gaer = gaer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_tab(ns,k_bcexs(k))* & - waer_bc_tab(ns,k_bcexs(k))*gaer_bc_tab(ns,k_bcexs(k)) + (aero_mp(na+1)/rnslyr)*kaer_bc_3bd(ns,k_bcexs(k))* & + waer_bc_3bd(ns,k_bcexs(k))*gaer_bc_3bd(ns,k_bcexs(k)) elseif (na==5) then ! within-ice BC taer = taer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_tab(ns,k_bcins(k))*& - bcenh(ns,k_bcins(k),k_bcini(k)) + (aero_mp(na+1)/rnslyr)*kaer_bc_3bd(ns,k_bcins(k))*& + bcenh_3bd(ns,k_bcins(k),k_bcini(k)) waer = waer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_tab(ns,k_bcins(k))* & - waer_bc_tab(ns,k_bcins(k)) + (aero_mp(na+1)/rnslyr)*kaer_bc_3bd(ns,k_bcins(k))* & + waer_bc_3bd(ns,k_bcins(k)) gaer = gaer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_tab(ns,k_bcins(k))* & - waer_bc_tab(ns,k_bcins(k))*gaer_bc_tab(ns,k_bcins(k)) + (aero_mp(na+1)/rnslyr)*kaer_bc_3bd(ns,k_bcins(k))* & + waer_bc_3bd(ns,k_bcins(k))*gaer_bc_3bd(ns,k_bcins(k)) else ! other species (dust) taer = taer + & - (aero_mp(na+1)/rnslyr)*kaer_tab(ns,(1+(na-1)/4)) + (aero_mp(na+1)/rnslyr)*kaer_3bd(ns,(1+(na-1)/4)) waer = waer + & - (aero_mp(na+1)/rnslyr)*kaer_tab(ns,(1+(na-1)/4))* & - waer_tab(ns,(1+(na-1)/4)) + (aero_mp(na+1)/rnslyr)*kaer_3bd(ns,(1+(na-1)/4))* & + waer_3bd(ns,(1+(na-1)/4)) gaer = gaer + & - (aero_mp(na+1)/rnslyr)*kaer_tab(ns,(1+(na-1)/4))* & - waer_tab(ns,(1+(na-1)/4))*gaer_tab(ns,(1+(na-1)/4)) + (aero_mp(na+1)/rnslyr)*kaer_3bd(ns,(1+(na-1)/4))* & + waer_3bd(ns,(1+(na-1)/4))*gaer_3bd(ns,(1+(na-1)/4)) endif ! na==1 else taer = taer + & - (aero_mp(na+1)*rnslyr)*kaer_tab(ns,(1+(na-1)/4)) + (aero_mp(na+1)*rnslyr)*kaer_3bd(ns,(1+(na-1)/4)) waer = waer + & - (aero_mp(na+1)*rnslyr)*kaer_tab(ns,(1+(na-1)/4))* & - waer_tab(ns,(1+(na-1)/4)) + (aero_mp(na+1)*rnslyr)*kaer_3bd(ns,(1+(na-1)/4))* & + waer_3bd(ns,(1+(na-1)/4)) gaer = gaer + & - (aero_mp(na+1)*rnslyr)*kaer_tab(ns,(1+(na-1)/4))* & - waer_tab(ns,(1+(na-1)/4))*gaer_tab(ns,(1+(na-1)/4)) + (aero_mp(na+1)*rnslyr)*kaer_3bd(ns,(1+(na-1)/4))* & + waer_3bd(ns,(1+(na-1)/4))*gaer_3bd(ns,(1+(na-1)/4)) endif ! modal_aero enddo ! na gaer = gaer/(waer+puny) @@ -2816,42 +2646,42 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & if (modal_aero) then if (na==1) then ! interstitial BC taer = taer + & - aero_mp(na+2)*kaer_bc_tab(ns,k_bcexs(k)) + aero_mp(na+2)*kaer_bc_3bd(ns,k_bcexs(k)) waer = waer + & - aero_mp(na+2)*kaer_bc_tab(ns,k_bcexs(k))* & - waer_bc_tab(ns,k_bcexs(k)) + aero_mp(na+2)*kaer_bc_3bd(ns,k_bcexs(k))* & + waer_bc_3bd(ns,k_bcexs(k)) gaer = gaer + & - aero_mp(na+2)*kaer_bc_tab(ns,k_bcexs(k))* & - waer_bc_tab(ns,k_bcexs(k))*gaer_bc_tab(ns,k_bcexs(k)) + aero_mp(na+2)*kaer_bc_3bd(ns,k_bcexs(k))* & + waer_bc_3bd(ns,k_bcexs(k))*gaer_bc_3bd(ns,k_bcexs(k)) elseif (na==5) then ! within-ice BC taer = taer + & - aero_mp(na+2)*kaer_bc_tab(ns,k_bcins(k))* & - bcenh(ns,k_bcins(k),k_bcini(k)) + aero_mp(na+2)*kaer_bc_3bd(ns,k_bcins(k))* & + bcenh_3bd(ns,k_bcins(k),k_bcini(k)) waer = waer + & - aero_mp(na+2)*kaer_bc_tab(ns,k_bcins(k))* & - waer_bc_tab(ns,k_bcins(k)) + aero_mp(na+2)*kaer_bc_3bd(ns,k_bcins(k))* & + waer_bc_3bd(ns,k_bcins(k)) gaer = gaer + & - aero_mp(na+2)*kaer_bc_tab(ns,k_bcins(k))* & - waer_bc_tab(ns,k_bcins(k))*gaer_bc_tab(ns,k_bcins(k)) + aero_mp(na+2)*kaer_bc_3bd(ns,k_bcins(k))* & + waer_bc_3bd(ns,k_bcins(k))*gaer_bc_3bd(ns,k_bcins(k)) else ! other species (dust) taer = taer + & - aero_mp(na+2)*kaer_tab(ns,(1+(na-1)/4)) + aero_mp(na+2)*kaer_3bd(ns,(1+(na-1)/4)) waer = waer + & - aero_mp(na+2)*kaer_tab(ns,(1+(na-1)/4))* & - waer_tab(ns,(1+(na-1)/4)) + aero_mp(na+2)*kaer_3bd(ns,(1+(na-1)/4))* & + waer_3bd(ns,(1+(na-1)/4)) gaer = gaer + & - aero_mp(na+2)*kaer_tab(ns,(1+(na-1)/4))* & - waer_tab(ns,(1+(na-1)/4))*gaer_tab(ns,(1+(na-1)/4)) + aero_mp(na+2)*kaer_3bd(ns,(1+(na-1)/4))* & + waer_3bd(ns,(1+(na-1)/4))*gaer_3bd(ns,(1+(na-1)/4)) endif else ! bulk taer = taer + & - aero_mp(na+2)*kaer_tab(ns,(1+(na-1)/4)) + aero_mp(na+2)*kaer_3bd(ns,(1+(na-1)/4)) waer = waer + & - aero_mp(na+2)*kaer_tab(ns,(1+(na-1)/4))* & - waer_tab(ns,(1+(na-1)/4)) + aero_mp(na+2)*kaer_3bd(ns,(1+(na-1)/4))* & + waer_3bd(ns,(1+(na-1)/4)) gaer = gaer + & - aero_mp(na+2)*kaer_tab(ns,(1+(na-1)/4))* & - waer_tab(ns,(1+(na-1)/4))*gaer_tab(ns,(1+(na-1)/4)) + aero_mp(na+2)*kaer_3bd(ns,(1+(na-1)/4))* & + waer_3bd(ns,(1+(na-1)/4))*gaer_3bd(ns,(1+(na-1)/4)) endif ! modal_aero enddo ! na @@ -2870,42 +2700,42 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & if (modal_aero) then if (na==1) then ! interstitial BC taer = taer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_tab(ns,k_bcexs(k)) + (aero_mp(na+3)/rnilyr)*kaer_bc_3bd(ns,k_bcexs(k)) waer = waer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_tab(ns,k_bcexs(k))* & - waer_bc_tab(ns,k_bcexs(k)) + (aero_mp(na+3)/rnilyr)*kaer_bc_3bd(ns,k_bcexs(k))* & + waer_bc_3bd(ns,k_bcexs(k)) gaer = gaer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_tab(ns,k_bcexs(k))* & - waer_bc_tab(ns,k_bcexs(k))*gaer_bc_tab(ns,k_bcexs(k)) + (aero_mp(na+3)/rnilyr)*kaer_bc_3bd(ns,k_bcexs(k))* & + waer_bc_3bd(ns,k_bcexs(k))*gaer_bc_3bd(ns,k_bcexs(k)) elseif (na==5) then ! within-ice BC taer = taer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_tab(ns,k_bcins(k))* & - bcenh(ns,k_bcins(k),k_bcini(k)) + (aero_mp(na+3)/rnilyr)*kaer_bc_3bd(ns,k_bcins(k))* & + bcenh_3bd(ns,k_bcins(k),k_bcini(k)) waer = waer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_tab(ns,k_bcins(k))* & - waer_bc_tab(ns,k_bcins(k)) + (aero_mp(na+3)/rnilyr)*kaer_bc_3bd(ns,k_bcins(k))* & + waer_bc_3bd(ns,k_bcins(k)) gaer = gaer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_tab(ns,k_bcins(k))* & - waer_bc_tab(ns,k_bcins(k))*gaer_bc_tab(ns,k_bcins(k)) + (aero_mp(na+3)/rnilyr)*kaer_bc_3bd(ns,k_bcins(k))* & + waer_bc_3bd(ns,k_bcins(k))*gaer_bc_3bd(ns,k_bcins(k)) else ! other species (dust) taer = taer + & - (aero_mp(na+3)/rnilyr)*kaer_tab(ns,(1+(na-1)/4)) + (aero_mp(na+3)/rnilyr)*kaer_3bd(ns,(1+(na-1)/4)) waer = waer + & - (aero_mp(na+3)/rnilyr)*kaer_tab(ns,(1+(na-1)/4))* & - waer_tab(ns,(1+(na-1)/4)) + (aero_mp(na+3)/rnilyr)*kaer_3bd(ns,(1+(na-1)/4))* & + waer_3bd(ns,(1+(na-1)/4)) gaer = gaer + & - (aero_mp(na+3)/rnilyr)*kaer_tab(ns,(1+(na-1)/4))* & - waer_tab(ns,(1+(na-1)/4))*gaer_tab(ns,(1+(na-1)/4)) + (aero_mp(na+3)/rnilyr)*kaer_3bd(ns,(1+(na-1)/4))* & + waer_3bd(ns,(1+(na-1)/4))*gaer_3bd(ns,(1+(na-1)/4)) endif else ! bulk taer = taer + & - (aero_mp(na+3)*rnilyr)*kaer_tab(ns,(1+(na-1)/4)) + (aero_mp(na+3)*rnilyr)*kaer_3bd(ns,(1+(na-1)/4)) waer = waer + & - (aero_mp(na+3)*rnilyr)*kaer_tab(ns,(1+(na-1)/4))* & - waer_tab(ns,(1+(na-1)/4)) + (aero_mp(na+3)*rnilyr)*kaer_3bd(ns,(1+(na-1)/4))* & + waer_3bd(ns,(1+(na-1)/4)) gaer = gaer + & - (aero_mp(na+3)*rnilyr)*kaer_tab(ns,(1+(na-1)/4))* & - waer_tab(ns,(1+(na-1)/4))*gaer_tab(ns,(1+(na-1)/4)) + (aero_mp(na+3)*rnilyr)*kaer_3bd(ns,(1+(na-1)/4))* & + waer_3bd(ns,(1+(na-1)/4))*gaer_3bd(ns,(1+(na-1)/4)) endif ! modal_aero enddo ! na gaer = gaer/(waer+puny) @@ -4110,12 +3940,6 @@ subroutine icepack_step_radiation (dt, ncat, & days_per_year, & nextsw_cday, & yday, sec, & - kaer_3bd, waer_3bd, & - gaer_3bd, & - kaer_bc_3bd, & - waer_bc_3bd, & - gaer_bc_3bd, & - bcenh_3bd, & modal_aero, & swvdr, swvdf, & swidr, swidf, & @@ -4173,35 +3997,6 @@ subroutine icepack_step_radiation (dt, ncat, & real (kind=dbl_kind), dimension (:), intent(in) :: & swgrid ! grid for ice tracers used in dEdd scheme - real (kind=dbl_kind), dimension(:,:), intent(in) :: & - kaer_3bd, & ! aerosol mass extinction cross section (m2/kg) - waer_3bd, & ! aerosol single scatter albedo (fraction) - gaer_3bd ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(:,:), intent(in) :: & - kaer_bc_3bd, & ! aerosol mass extinction cross section (m2/kg) - waer_bc_3bd, & ! aerosol single scatter albedo (fraction) - gaer_bc_3bd ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & - bcenh_3bd ! BC absorption enhancement factor - -! real (kind=dbl_kind), dimension(:,:), intent(in) :: & - real (kind=dbl_kind), dimension(nspint_5bd,1471) :: & - kaer_5bd, & ! aerosol mass extinction cross section (m2/kg) - waer_5bd, & ! aerosol single scatter albedo (fraction) - gaer_5bd ! aerosol asymmetry parameter (cos(theta)) - -! real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Modal aerosol treatment - real (kind=dbl_kind), dimension(nspint_5bd,1471) :: & - kaer_bc_5bd, & ! aerosol mass extinction cross section (m2/kg) - waer_bc_5bd, & ! aerosol single scatter albedo (fraction) - gaer_bc_5bd ! aerosol asymmetry parameter (cos(theta)) - -! real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment - real (kind=dbl_kind), dimension(nspint_5bd,10,8) :: & - bcenh_5bd ! BC absorption enhancement factor - real (kind=dbl_kind), dimension(:), intent(in) :: & aicen , & ! ice area fraction in each category vicen , & ! ice volume in each category (m) @@ -4285,16 +4080,6 @@ subroutine icepack_step_radiation (dt, ncat, & character(len=*),parameter :: subname='(icepack_step_radiation)' -!echmod TEMPORARY - kaer_5bd=c0 - waer_5bd=c0 - gaer_5bd=c0 - kaer_bc_5bd=c0 - waer_bc_5bd=c0 - gaer_bc_5bd=c0 - bcenh_5bd=c0 -!echmod end - allocate(l_fswthrun_vdr(ncat)) allocate(l_fswthrun_vdf(ncat)) allocate(l_fswthrun_idr(ncat)) @@ -4365,12 +4150,6 @@ subroutine icepack_step_radiation (dt, ncat, & calendar_type,days_per_year, & nextsw_cday, yday, & sec, & - kaer_3bd, waer_3bd, & - gaer_3bd, & - kaer_bc_3bd, & - waer_bc_3bd, & - gaer_bc_3bd, & - bcenh_3bd, & modal_aero, & swvdr, swvdf, & swidr, swidf, & @@ -4395,13 +4174,6 @@ subroutine icepack_step_radiation (dt, ncat, & ffracn=ffracn, & rsnow=l_rsnow, & l_print_point=l_print_point, & - kaer_5bd=kaer_5bd, & - waer_5bd=waer_5bd, & - gaer_5bd=gaer_5bd, & - kaer_bc_5bd=kaer_bc_5bd, & - waer_bc_5bd=waer_bc_5bd, & - gaer_bc_5bd=gaer_bc_5bd, & - bcenh_5bd=bcenh_5bd, & initonly=linitonly) if (icepack_warnings_aborted(subname)) return @@ -4610,22 +4382,15 @@ end function asys ! cryospheric surfaces in ESMs, The Cryosphere Discuss., ! https://doi.org/10.5194/tc-2019-22, in review, 2019 - subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & - zbio, dEdd_algae, & - fnidr, coszen, & - kaer_tab_5bd, waer_tab_5bd, gaer_tab_5bd, & - kaer_bc_tab_5bd, waer_bc_tab_5bd, & - gaer_bc_tab_5bd, bcenh_5bd, modal_aero, & - swvdr, swvdf, swidr, swidf, srftyp, & - hs, rhosnw, rsnw, hi, hp, & - fi, aero_mp, alvdr, alvdf, & - alidr, alidf, & - fswsfc, fswint, & - fswthru, Sswabs, & - Iswabs, fswpenl, & - asm_prm_ice_drc, asm_prm_ice_dfs, & - ss_alb_ice_drc, ss_alb_ice_dfs, & - ext_cff_mss_ice_drc, ext_cff_mss_ice_dfs) + subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & + zbio, dEdd_algae, fnidr, coszen, modal_aero, & + swvdr, swvdf, swidr, swidf, srftyp, & + hs, rhosnw, rsnw, hi, hp, & + fi, aero_mp, alvdr, alvdf, & + alidr, alidf, & + fswsfc, fswint, & + fswthru, Sswabs, & + Iswabs, fswpenl ) integer (kind=int_kind), intent(in) :: & nilyr , & ! number of ice layers @@ -4680,30 +4445,6 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & Sswabs , & ! SW absorbed in snow layer (W m-2) Iswabs ! SW absorbed in ice layer (W m-2) - - ! snow grain single-scattering properties for - ! direct (drc) and diffuse (dfs) shortwave incidents - real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Model SNICAR snow SSP - asm_prm_ice_drc , & ! snow asymmetry factor (cos(theta)) - asm_prm_ice_dfs , & ! snow asymmetry factor (cos(theta)) - ss_alb_ice_drc , & ! snow single scatter albedo (fraction) - ss_alb_ice_dfs , & ! snow single scatter albedo (fraction) - ext_cff_mss_ice_drc , & ! snow mass extinction cross section (m2/kg) - ext_cff_mss_ice_dfs ! snow mass extinction cross section (m2/kg) - - real (kind=dbl_kind), dimension(:,:), intent(in) :: & - kaer_tab_5bd , & ! aerosol mass extinction cross section (m2/kg) - waer_tab_5bd , & ! aerosol single scatter albedo (fraction) - gaer_tab_5bd ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(:,:), intent(in) :: & ! Modal aerosol treatment - kaer_bc_tab_5bd , & ! aerosol mass extinction cross section (m2/kg) - waer_bc_tab_5bd , & ! aerosol single scatter albedo (fraction) - gaer_bc_tab_5bd ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & ! Modal aerosol treatment - bcenh_5bd ! BC absorption enhancement factor - !----------------------------------------------------------------------- ! Set up optical property profiles, based on snow, sea ice and ponded ! ice IOPs from: @@ -4838,9 +4579,6 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & real (kind=dbl_kind), dimension(nilyr+1) :: & fthrul ! shortwave through to ice layers (W m-2) - real (kind=dbl_kind), dimension (nspint_3bd) :: & - wghtns ! spectral weights - real (kind=dbl_kind), parameter :: & cp67 = 0.67_dbl_kind , & ! nir band weight parameter cp33 = 0.33_dbl_kind , & ! nir band weight parameter @@ -4879,25 +4617,6 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & real (kind=dbl_kind), dimension(nslyr) :: & frsnw ! snow grain radius in snow layer * adjustment factor (m) - ! actual used ice and ponded ice IOPs, allowing for tuning - ! modifications of the above "_mn" value - real (kind=dbl_kind), dimension (nspint_3bd) :: & - ki_ssl , & ! Surface-scattering-layer ice extinction coefficient (/m) - wi_ssl , & ! Surface-scattering-layer ice single scattering albedo - gi_ssl , & ! Surface-scattering-layer ice asymmetry parameter - ki_dl , & ! Drained-layer ice extinction coefficient (/m) - wi_dl , & ! Drained-layer ice single scattering albedo - gi_dl , & ! Drained-layer ice asymmetry parameter - ki_int , & ! Interior-layer ice extinction coefficient (/m) - wi_int , & ! Interior-layer ice single scattering albedo - gi_int , & ! Interior-layer ice asymmetry parameter - ki_p_ssl , & ! Ice under pond srf scat layer extinction coefficient (/m) - wi_p_ssl , & ! Ice under pond srf scat layer single scattering albedo - gi_p_ssl , & ! Ice under pond srf scat layer asymmetry parameter - ki_p_int , & ! Ice under pond extinction coefficient (/m) - wi_p_int , & ! Ice under pond single scattering albedo - gi_p_int ! Ice under pond asymmetry parameter - real (kind=dbl_kind), dimension(0:klev) :: & dzk ! layer thickness @@ -4955,51 +4674,6 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & real(kind=dbl_kind):: & tmp_gs, tmp1 ! temp variables - ! inherent optical property (iop) arrays for ice and ponded ice - ! mn = specified mean (or base) value - ! ki = extinction coefficient (/m) - ! wi = single scattering albedo - ! gi = asymmetry parameter - - ! ice surface scattering layer (ssl) iops -! real (kind=dbl_kind), dimension (nspint), parameter :: & -! ki_ssl_mn = (/ 1000.1_dbl_kind, 1003.7_dbl_kind, 7042._dbl_kind/), & -! wi_ssl_mn = (/ .9999_dbl_kind, .9963_dbl_kind, .9088_dbl_kind/), & -! gi_ssl_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind/) - - ! ice drained layer (dl) iops -! real (kind=dbl_kind), dimension (nspint), parameter :: & -! ki_dl_mn = (/ 100.2_dbl_kind, 107.7_dbl_kind, 1309._dbl_kind /), & -! wi_dl_mn = (/ .9980_dbl_kind, .9287_dbl_kind, .0305_dbl_kind /), & -! gi_dl_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) - - ! ice interior layer (int) iops -! real (kind=dbl_kind), dimension (nspint), parameter :: & -! ki_int_mn = (/ 20.2_dbl_kind, 27.7_dbl_kind, 1445._dbl_kind /), & -! wi_int_mn = (/ .9901_dbl_kind, .7223_dbl_kind, .0277_dbl_kind /), & -! gi_int_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) - - ! ponded ice surface scattering layer (ssl) iops -! real (kind=dbl_kind), dimension (nspint), parameter :: & -! ki_p_ssl_mn = (/ 70.2_dbl_kind, 77.7_dbl_kind, 1309._dbl_kind/), & -! wi_p_ssl_mn = (/ .9972_dbl_kind, .9009_dbl_kind, .0305_dbl_kind/), & -! gi_p_ssl_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) - - ! ponded ice interior layer (int) iops -! real (kind=dbl_kind), dimension (nspint), parameter :: & -! ki_p_int_mn = (/ 20.2_dbl_kind, 27.7_dbl_kind, 1445._dbl_kind/), & -! wi_p_int_mn = (/ .9901_dbl_kind, .7223_dbl_kind, .0277_dbl_kind/), & -! gi_p_int_mn = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind /) - - ! inherent optical property (iop) arrays for pond water and underlying ocean - ! kw = Pond water extinction coefficient (/m) - ! ww = Pond water single scattering albedo - ! gw = Pond water asymmetry parameter -! real (kind=dbl_kind), dimension (nspint), parameter :: & -! kw = (/ 0.20_dbl_kind, 12.0_dbl_kind, 729._dbl_kind /), & -! ww = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /), & -! gw = (/ 0.00_dbl_kind, 0.00_dbl_kind, 0.00_dbl_kind /) - real (kind=dbl_kind), parameter :: & rhoi = 917.0_dbl_kind, & ! pure ice mass density (kg/m3) fr_max = 1.00_dbl_kind, & ! snow grain adjustment factor max @@ -5022,18 +4696,22 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & character(len=char_len_long) :: & warning ! warning message - ! SNICAR - ! new inputs - integer (kind=int_kind), parameter :: & - nmbrad_snicar = 1471 , &! number of snow grain radii in SNICAR - ! snow iops table - rsnw_snicar_max = 1500 , & - rsnw_snicar_min = 30 - real (kind=dbl_kind), dimension (nspint_5bd) :: & wghtns_5bd_dfs, & ! spectral weights for diffuse incident wghtns_5bd_drc ! spectral weights for direct incident + ! snow grain single-scattering properties for + ! direct (drc) and diffuse (dfs) shortwave incidents + ! local variable names, point to table data + ! TODO use variable names in ice_shortwave_data directly + real (kind=dbl_kind), pointer, dimension(:,:) :: & ! Model SNICAR snow SSP + asm_prm_ice_drc , & ! snow asymmetry factor (cos(theta)) + asm_prm_ice_dfs , & ! snow asymmetry factor (cos(theta)) + ss_alb_ice_drc , & ! snow single scatter albedo (fraction) + ss_alb_ice_dfs , & ! snow single scatter albedo (fraction) + ext_cff_mss_ice_drc , & ! snow mass extinction cross section (m2/kg) + ext_cff_mss_ice_dfs ! snow mass extinction cross section (m2/kg) + ! FUTURE-WORK: update 5-band sea ice iops when avalible real (kind=dbl_kind), dimension (nspint_5bd) :: & ! for ice only ki_ssl_5bd , & ! Surface-scattering-layer ice extinction coefficient (/m) @@ -5081,50 +4759,19 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & sza_factor , & ! parameter for high sza adjustment mu0 - ! 5-bands ice surface scattering layer (ssl) iops to match SNICAR calculations - ! note by Cheng Dang: - ! for now these data are not needed since the sea ice layer IOPs can be directly - ! assigned based on the 3 bands data after adjustment based on tuning parameter R_ice - ! In the future, when 5-band sea ice IOPs are available, these data shall be updated - ! and the sea ice layer IOPs shall be calculated based on updated 5band iops* - ! - ! The 5band data given in this section are based on CICE and SNICAR band choice: - ! SNICAR band 1 = CICE band 1 - ! SNICAR band 2 = SNICAR band 3 = CICE band 2 - ! SNICAR band 4 = SNICAR band 5 = CICE band 3 - - ! ice surface scattering layer (ssl) iops - real (kind=dbl_kind), dimension (nspint_5bd), parameter :: & - ki_ssl_mn_5bd = (/ 1000.1_dbl_kind, 1003.7_dbl_kind, 1003.7_dbl_kind, & - 7042._dbl_kind, 7042._dbl_kind /), & - wi_ssl_mn_5bd = (/ .9999_dbl_kind, .9963_dbl_kind, .9963_dbl_kind, & - .9088_dbl_kind, .9088_dbl_kind /), & - gi_ssl_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & - .94_dbl_kind, .94_dbl_kind /) - - ! ice drained layer (dl) iops - real (kind=dbl_kind), dimension (nspint_5bd), parameter :: & - ki_dl_mn_5bd = (/ 100.2_dbl_kind, 107.7_dbl_kind, 107.7_dbl_kind, & - 1309._dbl_kind, 1309._dbl_kind /), & - wi_dl_mn_5bd = (/ .9980_dbl_kind, .9287_dbl_kind, .9287_dbl_kind, & - .0305_dbl_kind, .0305_dbl_kind /), & - gi_dl_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & - .94_dbl_kind, .94_dbl_kind /) - - ! ice interior layer (int) iops - real (kind=dbl_kind), dimension (nspint_5bd), parameter :: & - ki_int_mn_5bd = (/ 20.2_dbl_kind, 27.7_dbl_kind, 27.7_dbl_kind, & - 1445._dbl_kind, 1445._dbl_kind/), & - wi_int_mn_5bd = (/ .9901_dbl_kind, .7223_dbl_kind, .7223_dbl_kind, & - .0277_dbl_kind, .0277_dbl_kind /), & - gi_int_mn_5bd = (/ .94_dbl_kind, .94_dbl_kind, .94_dbl_kind, & - .94_dbl_kind, .94_dbl_kind /) - character(len=*),parameter :: subname='(compute_dEdd_3bd)' !----------------------------------------------------------------------- ! Initialize and tune bare ice/ponded ice iops + ! copy/point to table data for local names + asm_prm_ice_drc => ssp_sasymmdr + asm_prm_ice_dfs => ssp_sasymmdf + ss_alb_ice_drc => ssp_snwalbdr + ss_alb_ice_dfs => ssp_snwalbdf + ext_cff_mss_ice_drc => ssp_snwextdr + ext_cff_mss_ice_dfs => ssp_snwextdf + k_bcini(:) = c0 k_bcins(:) = c0 k_bcexs(:) = c0 @@ -5327,39 +4974,39 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & if (n == 1) then ! interstitial BC do k = 0, klev do ns = 1,nspint_5bd ! not weighted by aice - tzaer_5bd(ns,k) = tzaer_5bd(ns,k)+kaer_bc_tab_5bd(ns,k_bcexs(k))* & + tzaer_5bd(ns,k) = tzaer_5bd(ns,k)+kaer_bc_5bd(ns,k_bcexs(k))* & zbio(nlt_zaero_sw(n)+k)*dzk(k) - wzaer_5bd(ns,k) = wzaer_5bd(ns,k)+kaer_bc_tab_5bd(ns,k_bcexs(k))* & - waer_bc_tab_5bd(ns,k_bcexs(k))* & + wzaer_5bd(ns,k) = wzaer_5bd(ns,k)+kaer_bc_5bd(ns,k_bcexs(k))* & + waer_bc_5bd(ns,k_bcexs(k))* & zbio(nlt_zaero_sw(n)+k)*dzk(k) - gzaer_5bd(ns,k) = gzaer_5bd(ns,k)+kaer_bc_tab_5bd(ns,k_bcexs(k))* & - waer_bc_tab_5bd(ns,k_bcexs(k))* & - gaer_bc_tab_5bd(ns,k_bcexs(k))*zbio(nlt_zaero_sw(n)+k)*dzk(k) + gzaer_5bd(ns,k) = gzaer_5bd(ns,k)+kaer_bc_5bd(ns,k_bcexs(k))* & + waer_bc_5bd(ns,k_bcexs(k))* & + gaer_bc_5bd(ns,k_bcexs(k))*zbio(nlt_zaero_sw(n)+k)*dzk(k) enddo ! nspint enddo elseif (n==2) then ! within-ice BC do k = 0, klev do ns = 1,nspint_5bd - tzaer_5bd(ns,k) = tzaer_5bd(ns,k)+kaer_bc_tab_5bd(ns,k_bcins(k)) * & + tzaer_5bd(ns,k) = tzaer_5bd(ns,k)+kaer_bc_5bd(ns,k_bcins(k)) * & bcenh_5bd(ns,k_bcins(k),k_bcini(k))* & zbio(nlt_zaero_sw(n)+k)*dzk(k) - wzaer_5bd(ns,k) = wzaer_5bd(ns,k)+kaer_bc_tab_5bd(ns,k_bcins(k))* & - waer_bc_tab_5bd(ns,k_bcins(k))* & + wzaer_5bd(ns,k) = wzaer_5bd(ns,k)+kaer_bc_5bd(ns,k_bcins(k))* & + waer_bc_5bd(ns,k_bcins(k))* & zbio(nlt_zaero_sw(n)+k)*dzk(k) - gzaer_5bd(ns,k) = gzaer_5bd(ns,k)+kaer_bc_tab_5bd(ns,k_bcins(k))* & - waer_bc_tab_5bd(ns,k_bcins(k))* & - gaer_bc_tab_5bd(ns,k_bcins(k))*zbio(nlt_zaero_sw(n)+k)*dzk(k) + gzaer_5bd(ns,k) = gzaer_5bd(ns,k)+kaer_bc_5bd(ns,k_bcins(k))* & + waer_bc_5bd(ns,k_bcins(k))* & + gaer_bc_5bd(ns,k_bcins(k))*zbio(nlt_zaero_sw(n)+k)*dzk(k) enddo ! nspint enddo else ! dust do k = 0, klev do ns = 1,nspint_5bd ! not weighted by aice - tzaer_5bd(ns,k) = tzaer_5bd(ns,k)+kaer_tab_5bd(ns,n)* & + tzaer_5bd(ns,k) = tzaer_5bd(ns,k)+kaer_5bd(ns,n)* & zbio(nlt_zaero_sw(n)+k)*dzk(k) - wzaer_5bd(ns,k) = wzaer_5bd(ns,k)+kaer_tab_5bd(ns,n)*waer_tab_5bd(ns,n)* & + wzaer_5bd(ns,k) = wzaer_5bd(ns,k)+kaer_5bd(ns,n)*waer_5bd(ns,n)* & zbio(nlt_zaero_sw(n)+k)*dzk(k) - gzaer_5bd(ns,k) = gzaer_5bd(ns,k)+kaer_tab_5bd(ns,n)*waer_tab_5bd(ns,n)* & - gaer_tab_5bd(ns,n)*zbio(nlt_zaero_sw(n)+k)*dzk(k) + gzaer_5bd(ns,k) = gzaer_5bd(ns,k)+kaer_5bd(ns,n)*waer_5bd(ns,n)* & + gaer_5bd(ns,n)*zbio(nlt_zaero_sw(n)+k)*dzk(k) enddo ! nspint enddo endif !(n=1) @@ -5371,12 +5018,12 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & do n = 1,n_zaero ! multiply by aice? do k = 0, klev do ns = 1,nspint_5bd ! not weighted by aice - tzaer_5bd(ns,k) = tzaer_5bd(ns,k)+kaer_tab_5bd(ns,n)* & + tzaer_5bd(ns,k) = tzaer_5bd(ns,k)+kaer_5bd(ns,n)* & zbio(nlt_zaero_sw(n)+k)*dzk(k) - wzaer_5bd(ns,k) = wzaer_5bd(ns,k)+kaer_tab_5bd(ns,n)*waer_tab_5bd(ns,n)* & + wzaer_5bd(ns,k) = wzaer_5bd(ns,k)+kaer_5bd(ns,n)*waer_5bd(ns,n)* & zbio(nlt_zaero_sw(n)+k)*dzk(k) - gzaer_5bd(ns,k) = gzaer_5bd(ns,k)+kaer_tab_5bd(ns,n)*waer_tab_5bd(ns,n)* & - gaer_tab_5bd(ns,n)*zbio(nlt_zaero_sw(n)+k)*dzk(k) + gzaer_5bd(ns,k) = gzaer_5bd(ns,k)+kaer_5bd(ns,n)*waer_5bd(ns,n)* & + gaer_5bd(ns,n)*zbio(nlt_zaero_sw(n)+k)*dzk(k) enddo ! nspint enddo enddo @@ -5504,44 +5151,44 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & if (na == 1) then !interstitial BC taer = taer + & - aero_mp(na)*kaer_bc_tab_5bd(ns,k_bcexs(k)) + aero_mp(na)*kaer_bc_5bd(ns,k_bcexs(k)) waer = waer + & - aero_mp(na)*kaer_bc_tab_5bd(ns,k_bcexs(k))* & - waer_bc_tab_5bd(ns,k_bcexs(k)) + aero_mp(na)*kaer_bc_5bd(ns,k_bcexs(k))* & + waer_bc_5bd(ns,k_bcexs(k)) gaer = gaer + & - aero_mp(na)*kaer_bc_tab_5bd(ns,k_bcexs(k))* & - waer_bc_tab_5bd(ns,k_bcexs(k))*gaer_bc_tab_5bd(ns,k_bcexs(k)) + aero_mp(na)*kaer_bc_5bd(ns,k_bcexs(k))* & + waer_bc_5bd(ns,k_bcexs(k))*gaer_bc_5bd(ns,k_bcexs(k)) elseif (na == 5)then !within-ice BC taer = taer + & - aero_mp(na)*kaer_bc_tab_5bd(ns,k_bcins(k))* & + aero_mp(na)*kaer_bc_5bd(ns,k_bcins(k))* & bcenh_5bd(ns,k_bcins(k),k_bcini(k)) waer = waer + & - aero_mp(na)*kaer_bc_tab_5bd(ns,k_bcins(k))* & - waer_bc_tab_5bd(ns,k_bcins(k)) + aero_mp(na)*kaer_bc_5bd(ns,k_bcins(k))* & + waer_bc_5bd(ns,k_bcins(k)) gaer = gaer + & - aero_mp(na)*kaer_bc_tab_5bd(ns,k_bcins(k))* & - waer_bc_tab_5bd(ns,k_bcins(k))*gaer_bc_tab_5bd(ns,k_bcins(k)) + aero_mp(na)*kaer_bc_5bd(ns,k_bcins(k))* & + waer_bc_5bd(ns,k_bcins(k))*gaer_bc_5bd(ns,k_bcins(k)) else ! other species (dust) taer = taer + & - aero_mp(na)*kaer_tab_5bd(ns,(1+(na-1)/4)) + aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4)) waer = waer + & - aero_mp(na)*kaer_tab_5bd(ns,(1+(na-1)/4))* & - waer_tab_5bd(ns,(1+(na-1)/4)) + aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4))* & + waer_5bd(ns,(1+(na-1)/4)) gaer = gaer + & - aero_mp(na)*kaer_tab_5bd(ns,(1+(na-1)/4))* & - waer_tab_5bd(ns,(1+(na-1)/4))*gaer_tab_5bd(ns,(1+(na-1)/4)) + aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4))* & + waer_5bd(ns,(1+(na-1)/4))*gaer_5bd(ns,(1+(na-1)/4)) endif else taer = taer + & - aero_mp(na)*kaer_tab_5bd(ns,(1+(na-1)/4)) + aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4)) waer = waer + & - aero_mp(na)*kaer_tab_5bd(ns,(1+(na-1)/4))* & - waer_tab_5bd(ns,(1+(na-1)/4)) + aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4))* & + waer_5bd(ns,(1+(na-1)/4)) gaer = gaer + & - aero_mp(na)*kaer_tab_5bd(ns,(1+(na-1)/4))* & - waer_tab_5bd(ns,(1+(na-1)/4))*gaer_tab_5bd(ns,(1+(na-1)/4)) + aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4))* & + waer_5bd(ns,(1+(na-1)/4))*gaer_5bd(ns,(1+(na-1)/4)) endif !modal_aero !mgf-- enddo ! na @@ -5558,46 +5205,46 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & if (na==1) then ! interstitial BC taer = taer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_tab_5bd(ns,k_bcexs(k)) + (aero_mp(na+1)/rnslyr)*kaer_bc_5bd(ns,k_bcexs(k)) waer = waer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_tab_5bd(ns,k_bcexs(k))* & - waer_bc_tab_5bd(ns,k_bcexs(k)) + (aero_mp(na+1)/rnslyr)*kaer_bc_5bd(ns,k_bcexs(k))* & + waer_bc_5bd(ns,k_bcexs(k)) gaer = gaer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_tab_5bd(ns,k_bcexs(k))* & - waer_bc_tab_5bd(ns,k_bcexs(k))*gaer_bc_tab_5bd(ns,k_bcexs(k)) + (aero_mp(na+1)/rnslyr)*kaer_bc_5bd(ns,k_bcexs(k))* & + waer_bc_5bd(ns,k_bcexs(k))*gaer_bc_5bd(ns,k_bcexs(k)) elseif (na==5) then ! within-ice BC taer = taer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_tab_5bd(ns,k_bcins(k))*& + (aero_mp(na+1)/rnslyr)*kaer_bc_5bd(ns,k_bcins(k))*& bcenh_5bd(ns,k_bcins(k),k_bcini(k)) waer = waer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_tab_5bd(ns,k_bcins(k))* & - waer_bc_tab_5bd(ns,k_bcins(k)) + (aero_mp(na+1)/rnslyr)*kaer_bc_5bd(ns,k_bcins(k))* & + waer_bc_5bd(ns,k_bcins(k)) gaer = gaer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_tab_5bd(ns,k_bcins(k))* & - waer_bc_tab_5bd(ns,k_bcins(k))*gaer_bc_tab_5bd(ns,k_bcins(k)) + (aero_mp(na+1)/rnslyr)*kaer_bc_5bd(ns,k_bcins(k))* & + waer_bc_5bd(ns,k_bcins(k))*gaer_bc_5bd(ns,k_bcins(k)) else ! other species (dust) taer = taer + & - (aero_mp(na+1)/rnslyr)*kaer_tab_5bd(ns,(1+(na-1)/4)) + (aero_mp(na+1)/rnslyr)*kaer_5bd(ns,(1+(na-1)/4)) waer = waer + & - (aero_mp(na+1)/rnslyr)*kaer_tab_5bd(ns,(1+(na-1)/4))* & - waer_tab_5bd(ns,(1+(na-1)/4)) + (aero_mp(na+1)/rnslyr)*kaer_5bd(ns,(1+(na-1)/4))* & + waer_5bd(ns,(1+(na-1)/4)) gaer = gaer + & - (aero_mp(na+1)/rnslyr)*kaer_tab_5bd(ns,(1+(na-1)/4))* & - waer_tab_5bd(ns,(1+(na-1)/4))*gaer_tab_5bd(ns,(1+(na-1)/4)) + (aero_mp(na+1)/rnslyr)*kaer_5bd(ns,(1+(na-1)/4))* & + waer_5bd(ns,(1+(na-1)/4))*gaer_5bd(ns,(1+(na-1)/4)) endif !(na==1) else taer = taer + & - (aero_mp(na+1)*rnslyr)*kaer_tab_5bd(ns,(1+(na-1)/4)) + (aero_mp(na+1)*rnslyr)*kaer_5bd(ns,(1+(na-1)/4)) waer = waer + & - (aero_mp(na+1)*rnslyr)*kaer_tab_5bd(ns,(1+(na-1)/4))* & - waer_tab_5bd(ns,(1+(na-1)/4)) + (aero_mp(na+1)*rnslyr)*kaer_5bd(ns,(1+(na-1)/4))* & + waer_5bd(ns,(1+(na-1)/4)) gaer = gaer + & - (aero_mp(na+1)*rnslyr)*kaer_tab_5bd(ns,(1+(na-1)/4))* & - waer_tab_5bd(ns,(1+(na-1)/4))*gaer_tab_5bd(ns,(1+(na-1)/4)) + (aero_mp(na+1)*rnslyr)*kaer_5bd(ns,(1+(na-1)/4))* & + waer_5bd(ns,(1+(na-1)/4))*gaer_5bd(ns,(1+(na-1)/4)) endif ! modal_aero !mgf-- enddo ! na @@ -5668,44 +5315,44 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & if (na==1) then ! interstitial BC taer = taer + & - aero_mp(na+2)*kaer_bc_tab_5bd(ns,k_bcexs(k)) + aero_mp(na+2)*kaer_bc_5bd(ns,k_bcexs(k)) waer = waer + & - aero_mp(na+2)*kaer_bc_tab_5bd(ns,k_bcexs(k))* & - waer_bc_tab_5bd(ns,k_bcexs(k)) + aero_mp(na+2)*kaer_bc_5bd(ns,k_bcexs(k))* & + waer_bc_5bd(ns,k_bcexs(k)) gaer = gaer + & - aero_mp(na+2)*kaer_bc_tab_5bd(ns,k_bcexs(k))* & - waer_bc_tab_5bd(ns,k_bcexs(k))*gaer_bc_tab_5bd(ns,k_bcexs(k)) + aero_mp(na+2)*kaer_bc_5bd(ns,k_bcexs(k))* & + waer_bc_5bd(ns,k_bcexs(k))*gaer_bc_5bd(ns,k_bcexs(k)) elseif (na==5) then ! within-ice BC taer = taer + & - aero_mp(na+2)*kaer_bc_tab_5bd(ns,k_bcins(k))* & + aero_mp(na+2)*kaer_bc_5bd(ns,k_bcins(k))* & bcenh_5bd(ns,k_bcins(k),k_bcini(k)) waer = waer + & - aero_mp(na+2)*kaer_bc_tab_5bd(ns,k_bcins(k))* & - waer_bc_tab_5bd(ns,k_bcins(k)) + aero_mp(na+2)*kaer_bc_5bd(ns,k_bcins(k))* & + waer_bc_5bd(ns,k_bcins(k)) gaer = gaer + & - aero_mp(na+2)*kaer_bc_tab_5bd(ns,k_bcins(k))* & - waer_bc_tab_5bd(ns,k_bcins(k))*gaer_bc_tab_5bd(ns,k_bcins(k)) + aero_mp(na+2)*kaer_bc_5bd(ns,k_bcins(k))* & + waer_bc_5bd(ns,k_bcins(k))*gaer_bc_5bd(ns,k_bcins(k)) else ! other species (dust) taer = taer + & - aero_mp(na+2)*kaer_tab_5bd(ns,(1+(na-1)/4)) + aero_mp(na+2)*kaer_5bd(ns,(1+(na-1)/4)) waer = waer + & - aero_mp(na+2)*kaer_tab_5bd(ns,(1+(na-1)/4))* & - waer_tab_5bd(ns,(1+(na-1)/4)) + aero_mp(na+2)*kaer_5bd(ns,(1+(na-1)/4))* & + waer_5bd(ns,(1+(na-1)/4)) gaer = gaer + & - aero_mp(na+2)*kaer_tab_5bd(ns,(1+(na-1)/4))* & - waer_tab_5bd(ns,(1+(na-1)/4))*gaer_tab_5bd(ns,(1+(na-1)/4)) + aero_mp(na+2)*kaer_5bd(ns,(1+(na-1)/4))* & + waer_5bd(ns,(1+(na-1)/4))*gaer_5bd(ns,(1+(na-1)/4)) endif else !bulk taer = taer + & - aero_mp(na+2)*kaer_tab_5bd(ns,(1+(na-1)/4)) + aero_mp(na+2)*kaer_5bd(ns,(1+(na-1)/4)) waer = waer + & - aero_mp(na+2)*kaer_tab_5bd(ns,(1+(na-1)/4))* & - waer_tab_5bd(ns,(1+(na-1)/4)) + aero_mp(na+2)*kaer_5bd(ns,(1+(na-1)/4))* & + waer_5bd(ns,(1+(na-1)/4)) gaer = gaer + & - aero_mp(na+2)*kaer_tab_5bd(ns,(1+(na-1)/4))* & - waer_tab_5bd(ns,(1+(na-1)/4))*gaer_tab_5bd(ns,(1+(na-1)/4)) + aero_mp(na+2)*kaer_5bd(ns,(1+(na-1)/4))* & + waer_5bd(ns,(1+(na-1)/4))*gaer_5bd(ns,(1+(na-1)/4)) endif ! modal_aero !mgf-- enddo ! na @@ -5727,46 +5374,46 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & if (na==1) then ! interstitial BC taer = taer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_tab_5bd(ns,k_bcexs(k)) + (aero_mp(na+3)/rnilyr)*kaer_bc_5bd(ns,k_bcexs(k)) waer = waer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_tab_5bd(ns,k_bcexs(k))* & - waer_bc_tab_5bd(ns,k_bcexs(k)) + (aero_mp(na+3)/rnilyr)*kaer_bc_5bd(ns,k_bcexs(k))* & + waer_bc_5bd(ns,k_bcexs(k)) gaer = gaer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_tab_5bd(ns,k_bcexs(k))* & - waer_bc_tab_5bd(ns,k_bcexs(k))*gaer_bc_tab_5bd(ns,k_bcexs(k)) + (aero_mp(na+3)/rnilyr)*kaer_bc_5bd(ns,k_bcexs(k))* & + waer_bc_5bd(ns,k_bcexs(k))*gaer_bc_5bd(ns,k_bcexs(k)) elseif (na==5) then ! within-ice BC taer = taer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_tab_5bd(ns,k_bcins(k))* & + (aero_mp(na+3)/rnilyr)*kaer_bc_5bd(ns,k_bcins(k))* & bcenh_5bd(ns,k_bcins(k),k_bcini(k)) waer = waer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_tab_5bd(ns,k_bcins(k))* & - waer_bc_tab_5bd(ns,k_bcins(k)) + (aero_mp(na+3)/rnilyr)*kaer_bc_5bd(ns,k_bcins(k))* & + waer_bc_5bd(ns,k_bcins(k)) gaer = gaer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_tab_5bd(ns,k_bcins(k))* & - waer_bc_tab_5bd(ns,k_bcins(k))*gaer_bc_tab_5bd(ns,k_bcins(k)) + (aero_mp(na+3)/rnilyr)*kaer_bc_5bd(ns,k_bcins(k))* & + waer_bc_5bd(ns,k_bcins(k))*gaer_bc_5bd(ns,k_bcins(k)) else ! other species (dust) taer = taer + & - (aero_mp(na+3)/rnilyr)*kaer_tab_5bd(ns,(1+(na-1)/4)) + (aero_mp(na+3)/rnilyr)*kaer_5bd(ns,(1+(na-1)/4)) waer = waer + & - (aero_mp(na+3)/rnilyr)*kaer_tab_5bd(ns,(1+(na-1)/4))* & - waer_tab_5bd(ns,(1+(na-1)/4)) + (aero_mp(na+3)/rnilyr)*kaer_5bd(ns,(1+(na-1)/4))* & + waer_5bd(ns,(1+(na-1)/4)) gaer = gaer + & - (aero_mp(na+3)/rnilyr)*kaer_tab_5bd(ns,(1+(na-1)/4))* & - waer_tab_5bd(ns,(1+(na-1)/4))*gaer_tab_5bd(ns,(1+(na-1)/4)) + (aero_mp(na+3)/rnilyr)*kaer_5bd(ns,(1+(na-1)/4))* & + waer_5bd(ns,(1+(na-1)/4))*gaer_5bd(ns,(1+(na-1)/4)) endif else !bulk taer = taer + & - (aero_mp(na+3)*rnilyr)*kaer_tab_5bd(ns,(1+(na-1)/4)) + (aero_mp(na+3)*rnilyr)*kaer_5bd(ns,(1+(na-1)/4)) waer = waer + & - (aero_mp(na+3)*rnilyr)*kaer_tab_5bd(ns,(1+(na-1)/4))* & - waer_tab_5bd(ns,(1+(na-1)/4)) + (aero_mp(na+3)*rnilyr)*kaer_5bd(ns,(1+(na-1)/4))* & + waer_5bd(ns,(1+(na-1)/4)) gaer = gaer + & - (aero_mp(na+3)*rnilyr)*kaer_tab_5bd(ns,(1+(na-1)/4))* & - waer_tab_5bd(ns,(1+(na-1)/4))*gaer_tab_5bd(ns,(1+(na-1)/4)) + (aero_mp(na+3)*rnilyr)*kaer_5bd(ns,(1+(na-1)/4))* & + waer_5bd(ns,(1+(na-1)/4))*gaer_5bd(ns,(1+(na-1)/4)) endif ! modal_aero !mgf-- enddo ! na diff --git a/columnphysics/icepack_shortwave_data.F90 b/columnphysics/icepack_shortwave_data.F90 index 06d772644..7e3775209 100644 --- a/columnphysics/icepack_shortwave_data.F90 +++ b/columnphysics/icepack_shortwave_data.F90 @@ -19,6 +19,7 @@ module icepack_shortwave_data ! dEdd 3-band data real (kind=dbl_kind), dimension (nspint_3bd), public :: & ! inherent optical properties (iop) + ! mn = specified mean (or base) value ! k = extinction coefficient (/m) ! w = single scattering albedo ! g = asymmetry parameter @@ -67,7 +68,10 @@ module icepack_shortwave_data rsnw_snicar_min, & ! minimum snow radius - integer value used for indexing rsnw_snicar_max ! maximum snow radius - integer value used for indexing - real (kind=dbl_kind), allocatable, public :: & + real (kind=dbl_kind), pointer, public :: & + ! these are pointers instead of allocatables because icepack_shortwave has local names + ! TODO: should make these allocatable and update icepack_shortwave names OR + ! maybe make all the data here pointers. rsnw_snicar_tab(:), & ! snow grain radii (10^-6 m) ssp_snwextdr(:,:), & ! snow mass extinction cross section (m2/kg), direct ssp_snwextdf(:,:), & ! snow mass extinction cross section (m2/kg), diffuse @@ -97,10 +101,6 @@ subroutine icepack_shortwave_init_dEdd3band character (len=*),parameter :: subname='(icepack_shortwave_init_dEdd3band)' nmbrad_snw = 32 ! number of snow grain radii in tables - if (allocated(rsnw_tab)) deallocate(rsnw_tab) - if (allocated(Qs_tab) ) deallocate(Qs_tab) - if (allocated(ws_tab) ) deallocate(ws_tab) - if (allocated(gs_tab) ) deallocate(gs_tab) allocate(rsnw_tab( nmbrad_snw)) allocate(Qs_tab (nspint_3bd,nmbrad_snw)) @@ -261,13 +261,19 @@ subroutine icepack_shortwave_init_dEdd3band !--- extracted from netcdf file !--- snicar_optics_5bnd_mam_c140303_mpas_cice (this is actually 3 band) + ! gaer_bc_3bd (:,:) = modalAsymmetryParameter(:,:) + ! kaer_bc_3bd (:,:) = modalMassExtinctionCrossSection(:,:) + ! waer_bc_3bd (:,:) = modalSingleScatterAlbedo(:,:) + ! bcenh_3bd (:,:,:) = modalBCabsorptionParameter(:,:,:) + ! !--- spectralIntervals = 4.5e-13, 9.45e-13, 3.095e-12 ; !--- bcEffectiveRadius = 0.05, 0.1, 0.15, 0.2, 0.25, 0.3, 0.35, 0.4, 0.45, 0.5 ; !--- iceGrainEffectiveRadius = 50, 100, 250, 500, 750, 1000, 1250, 1500 ; - ! gaer_bc_3bd (:,:) = modalAsymmetryParameter(:,:) - ! kaer_bc_3bd (:,:) = modalMassExtinctionCrossSection(:,:) - ! waer_bc_3bd (:,:) = modalSingleScatterAlbedo(:,:) - ! bcenh_3bd (:,:,:) = modalBCabsorptionParameter(:,:,:) + ! + !--- extracted from CICE model, was single precision data statements + ! gaer_bc (:,:) + ! kaer_bc (:,:) + ! waer_bc (:,:) allocate(gaer_bc_3bd(nspint_3bd,nmodal1) ) allocate(kaer_bc_3bd(nspint_3bd,nmodal1) ) @@ -316,6 +322,32 @@ subroutine icepack_shortwave_init_dEdd3band 0.507362336297419_dbl_kind, 0.477038272961243_dbl_kind, 0.440559363958571_dbl_kind/), & (/nspint_3bd,nmodal1/)) + ! tcraig, copied from CICE, promote to dbl_kind + kaer_3bd = reshape((/ & ! aerosol mass extinction cross section (m2/kg) + 11580.61872_dbl_kind, 5535.41835_dbl_kind, 2793.79690_dbl_kind, & + 25798.96479_dbl_kind, 11536.03871_dbl_kind, 4688.24207_dbl_kind, & + 196.49772_dbl_kind, 204.14078_dbl_kind, 214.42287_dbl_kind, & + 2665.85867_dbl_kind, 2256.71027_dbl_kind, 820.36024_dbl_kind, & + 840.78295_dbl_kind, 1028.24656_dbl_kind, 1163.03298_dbl_kind, & + 387.51211_dbl_kind, 414.68808_dbl_kind, 450.29814_dbl_kind/), & + (/nspint_3bd,max_aero/)) + waer_3bd = reshape((/ & ! aerosol single scatter albedo (fraction) + 0.29003_dbl_kind, 0.17349_dbl_kind, 0.06613_dbl_kind, & + 0.51731_dbl_kind, 0.41609_dbl_kind, 0.21324_dbl_kind, & + 0.84467_dbl_kind, 0.94216_dbl_kind, 0.95666_dbl_kind, & + 0.97764_dbl_kind, 0.99402_dbl_kind, 0.98552_dbl_kind, & + 0.94146_dbl_kind, 0.98527_dbl_kind, 0.99093_dbl_kind, & + 0.90034_dbl_kind, 0.96543_dbl_kind, 0.97678_dbl_kind/), & + (/nspint_3bd,max_aero/)) + gaer_3bd = reshape((/ & ! aerosol asymmetry parameter (cos(theta)) + 0.35445_dbl_kind, 0.19838_dbl_kind, 0.08857_dbl_kind, & + 0.52581_dbl_kind, 0.32384_dbl_kind, 0.14970_dbl_kind, & + 0.83162_dbl_kind, 0.78306_dbl_kind, 0.74375_dbl_kind, & + 0.68861_dbl_kind, 0.70836_dbl_kind, 0.54171_dbl_kind, & + 0.70239_dbl_kind, 0.66115_dbl_kind, 0.71983_dbl_kind, & + 0.78734_dbl_kind, 0.73580_dbl_kind, 0.64411_dbl_kind/), & + (/nspint_3bd,max_aero/)) + bcenh_3bd (:,:,:) = reshape((/ & 1.95264863821642_dbl_kind, 2.05550877768593_dbl_kind, 1.70240332828865_dbl_kind, & 1.99163464431877_dbl_kind, 2.02176016911438_dbl_kind, 1.68864818773335_dbl_kind, & @@ -399,11 +431,6 @@ subroutine icepack_shortwave_init_dEdd3band 2.44259042500067_dbl_kind, 2.17052832643712_dbl_kind, 0.524400814046362_dbl_kind/), & (/nspint_3bd,nmodal1,nmodal2/)) - ! TODO, what do we set these to? - gaer_3bd = c0 - kaer_3bd = c0 - waer_3bd = c0 - end subroutine icepack_shortwave_init_dEdd3band !======================================================================= @@ -621,13 +648,6 @@ subroutine icepack_shortwave_init_snicartest() rsnw_snicar_min = rsnw_snicar_tab(1) ! minimum snow radius - integer value used for indexing rsnw_snicar_max = rsnw_snicar_tab(nmbrad_snicar) ! maximum snow radius - integer value used for indexing - if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) - if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) - if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) - if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) - if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) - if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) - allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar)) ! extinction coefficient, direct allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar)) ! extinction coefficient, diffuse allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar)) ! single-scattering albedo, direct @@ -639,51 +659,51 @@ subroutine icepack_shortwave_init_snicartest() ! reshape from nmbrad,nspint to nspint,nmbrad with order = 2,1 ssp_snwextdr = reshape((/ & - 46.27374983, 24.70286257, 6.54918455, 2.6035624, 1.196168, & - 46.56827715, 24.81790668, 6.56181227, 2.60604155, 1.19682614, & - 46.76114033, 24.90468677, 6.56950323, 2.60780948, 1.19737512, & - 46.9753992, 24.9495155, 6.57687695, 2.60937383, 1.19774008, & - 47.48598349, 25.14100194, 6.59708024, 2.61372576, 1.19897351 /), & + 46.27374983_dbl_kind, 24.70286257_dbl_kind, 6.54918455_dbl_kind, 2.60356240_dbl_kind, 1.19616800_dbl_kind, & + 46.56827715_dbl_kind, 24.81790668_dbl_kind, 6.56181227_dbl_kind, 2.60604155_dbl_kind, 1.19682614_dbl_kind, & + 46.76114033_dbl_kind, 24.90468677_dbl_kind, 6.56950323_dbl_kind, 2.60780948_dbl_kind, 1.19737512_dbl_kind, & + 46.97539920_dbl_kind, 24.94951550_dbl_kind, 6.57687695_dbl_kind, 2.60937383_dbl_kind, 1.19774008_dbl_kind, & + 47.48598349_dbl_kind, 25.14100194_dbl_kind, 6.59708024_dbl_kind, 2.61372576_dbl_kind, 1.19897351_dbl_kind /), & (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) ssp_snwextdf = reshape((/ & - 46.26936158, 24.70165487, 6.54903637, 2.60353051, 1.19615825, & - 46.56628244, 24.81707286, 6.56164279, 2.60601584, 1.1968169, & - 46.75501968, 24.90175807, 6.5693214, 2.60775795, 1.19736237, & - 46.95368476, 24.94497414, 6.57612007, 2.60924059, 1.19770981, & - 47.29620774, 25.0713585, 6.5891698, 2.61198929, 1.19850197 /), & + 46.26936158_dbl_kind, 24.70165487_dbl_kind, 6.54903637_dbl_kind, 2.60353051_dbl_kind, 1.19615825_dbl_kind, & + 46.56628244_dbl_kind, 24.81707286_dbl_kind, 6.56164279_dbl_kind, 2.60601584_dbl_kind, 1.19681690_dbl_kind, & + 46.75501968_dbl_kind, 24.90175807_dbl_kind, 6.56932140_dbl_kind, 2.60775795_dbl_kind, 1.19736237_dbl_kind, & + 46.95368476_dbl_kind, 24.94497414_dbl_kind, 6.57612007_dbl_kind, 2.60924059_dbl_kind, 1.19770981_dbl_kind, & + 47.29620774_dbl_kind, 25.07135850_dbl_kind, 6.58916980_dbl_kind, 2.61198929_dbl_kind, 1.19850197_dbl_kind /), & (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) ssp_snwalbdr = reshape((/ & - 0.99999581, 0.99999231, 0.99997215, 0.99993093, 0.99985157, & - 0.99987892, 0.99978212, 0.99923115, 0.99817946, 0.99628374, & - 0.99909682, 0.99835523, 0.99418008, 0.98592085, 0.97062632, & - 0.99308867, 0.98972448, 0.97261528, 0.93947995, 0.88207117, & - 0.93322249, 0.89645776, 0.75765643, 0.6272883, 0.55435033 /), & + 0.99999581_dbl_kind, 0.99999231_dbl_kind, 0.99997215_dbl_kind, 0.99993093_dbl_kind, 0.99985157_dbl_kind, & + 0.99987892_dbl_kind, 0.99978212_dbl_kind, 0.99923115_dbl_kind, 0.99817946_dbl_kind, 0.99628374_dbl_kind, & + 0.99909682_dbl_kind, 0.99835523_dbl_kind, 0.99418008_dbl_kind, 0.98592085_dbl_kind, 0.97062632_dbl_kind, & + 0.99308867_dbl_kind, 0.98972448_dbl_kind, 0.97261528_dbl_kind, 0.93947995_dbl_kind, 0.88207117_dbl_kind, & + 0.93322249_dbl_kind, 0.89645776_dbl_kind, 0.75765643_dbl_kind, 0.62728830_dbl_kind, 0.55435033_dbl_kind /), & (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) ssp_snwalbdf = reshape((/ & - 0.99999586, 0.9999924, 0.99997249, 0.99993178, 0.9998534, & - 0.99988441, 0.99979202, 0.99926745, 0.99826865, 0.99647135, & - 0.99910997, 0.99837683, 0.99426171, 0.98610431, 0.97097643, & - 0.99476731, 0.9916114, 0.97441209, 0.94127464, 0.88440735, & - 0.9419837, 0.90613207, 0.77042376, 0.63887161, 0.5566098 /), & + 0.99999586_dbl_kind, 0.99999240_dbl_kind, 0.99997249_dbl_kind, 0.99993178_dbl_kind, 0.99985340_dbl_kind, & + 0.99988441_dbl_kind, 0.99979202_dbl_kind, 0.99926745_dbl_kind, 0.99826865_dbl_kind, 0.99647135_dbl_kind, & + 0.99910997_dbl_kind, 0.99837683_dbl_kind, 0.99426171_dbl_kind, 0.98610431_dbl_kind, 0.97097643_dbl_kind, & + 0.99476731_dbl_kind, 0.99161140_dbl_kind, 0.97441209_dbl_kind, 0.94127464_dbl_kind, 0.88440735_dbl_kind, & + 0.94198370_dbl_kind, 0.90613207_dbl_kind, 0.77042376_dbl_kind, 0.63887161_dbl_kind, 0.55660980_dbl_kind /), & (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) ssp_sasymmdr = reshape((/ & - 0.88503036, 0.88778473, 0.89049023, 0.89112501, 0.89136157, & - 0.88495225, 0.88905367, 0.89315385, 0.89433673, 0.8950027, & - 0.88440201, 0.88928256, 0.89503166, 0.89762648, 0.90045378, & - 0.88590371, 0.89350221, 0.90525156, 0.91314567, 0.92157748, & - 0.9033537, 0.91778261, 0.94615574, 0.96323447, 0.97167644 /), & + 0.88503036_dbl_kind, 0.88778473_dbl_kind, 0.89049023_dbl_kind, 0.89112501_dbl_kind, 0.89136157_dbl_kind, & + 0.88495225_dbl_kind, 0.88905367_dbl_kind, 0.89315385_dbl_kind, 0.89433673_dbl_kind, 0.89500270_dbl_kind, & + 0.88440201_dbl_kind, 0.88928256_dbl_kind, 0.89503166_dbl_kind, 0.89762648_dbl_kind, 0.90045378_dbl_kind, & + 0.88590371_dbl_kind, 0.89350221_dbl_kind, 0.90525156_dbl_kind, 0.91314567_dbl_kind, 0.92157748_dbl_kind, & + 0.90335370_dbl_kind, 0.91778261_dbl_kind, 0.94615574_dbl_kind, 0.96323447_dbl_kind, 0.97167644_dbl_kind /), & (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) ssp_sasymmdf = reshape((/ & - 0.88500571, 0.88773868, 0.89042496, 0.8910553, 0.89128949, & - 0.88495225, 0.88905367, 0.89315385, 0.89433673, 0.8950027 , & - 0.88441433, 0.88929133, 0.89500611, 0.89756091, 0.90035504, & - 0.88495554, 0.89201556, 0.90204619, 0.90914885, 0.91769988, & - 0.89620237, 0.90998944, 0.94126152, 0.96209938, 0.9726631 /), & + 0.88500571_dbl_kind, 0.88773868_dbl_kind, 0.89042496_dbl_kind, 0.89105530_dbl_kind, 0.89128949_dbl_kind, & + 0.88495225_dbl_kind, 0.88905367_dbl_kind, 0.89315385_dbl_kind, 0.89433673_dbl_kind, 0.89500270_dbl_kind, & + 0.88441433_dbl_kind, 0.88929133_dbl_kind, 0.89500611_dbl_kind, 0.89756091_dbl_kind, 0.90035504_dbl_kind, & + 0.88495554_dbl_kind, 0.89201556_dbl_kind, 0.90204619_dbl_kind, 0.90914885_dbl_kind, 0.91769988_dbl_kind, & + 0.89620237_dbl_kind, 0.90998944_dbl_kind, 0.94126152_dbl_kind, 0.96209938_dbl_kind, 0.97266310_dbl_kind /), & (/nmbrad_snicar,nspint_5bd/), order=(/ 2, 1 /)) end subroutine icepack_shortwave_init_snicartest @@ -9575,13 +9595,6 @@ subroutine icepack_shortwave_init_snicar() rsnw_snicar_tab(n+1) = rsnw_snicar_tab(n) + 1.0_dbl_kind enddo - if (allocated(ssp_snwextdr)) deallocate(ssp_snwextdr) - if (allocated(ssp_snwextdf)) deallocate(ssp_snwextdf) - if (allocated(ssp_snwalbdr)) deallocate(ssp_snwalbdr) - if (allocated(ssp_snwalbdf)) deallocate(ssp_snwalbdf) - if (allocated(ssp_sasymmdr)) deallocate(ssp_sasymmdr) - if (allocated(ssp_sasymmdf)) deallocate(ssp_sasymmdf) - allocate(ssp_snwextdr(nspint_5bd,nmbrad_snicar)) ! extinction coefficient, direct allocate(ssp_snwextdf(nspint_5bd,nmbrad_snicar)) ! extinction coefficient, diffuse allocate(ssp_snwalbdr(nspint_5bd,nmbrad_snicar)) ! single-scattering albedo, direct diff --git a/configuration/driver/icedrv_arrays_column.F90 b/configuration/driver/icedrv_arrays_column.F90 index 9bf7dbd00..d1f153ce2 100644 --- a/configuration/driver/icedrv_arrays_column.F90 +++ b/configuration/driver/icedrv_arrays_column.F90 @@ -120,37 +120,6 @@ module icedrv_arrays_column public :: & fswpenln ! visible SW entering ice layers (W m-2) - ! aerosol optical properties -> band | - ! v aerosol - ! for combined dust category, use category 4 properties - real (kind=dbl_kind), dimension(icepack_nspint_3bd,icepack_max_aero), public :: & - kaer_3bd , & ! aerosol mass extinction cross section (m2/kg) - waer_3bd , & ! aerosol single scatter albedo (fraction) - gaer_3bd ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(icepack_nspint_3bd,icepack_nmodal1), public :: & - kaer_bc_3bd, & ! BC mass extinction cross section (m2/kg) - waer_bc_3bd, & ! BC single scatter albedo (fraction) - gaer_bc_3bd ! BC aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), & - dimension (icepack_nspint_3bd,icepack_nmodal1,icepack_nmodal2), public :: & - bcenh_3bd ! BC absorption enhancement factor - - real (kind=dbl_kind), dimension(icepack_nspint_5bd,icepack_max_aero), public :: & - kaer_5bd , & ! aerosol mass extinction cross section (m2/kg) - waer_5bd , & ! aerosol single scatter albedo (fraction) - gaer_5bd ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(icepack_nspint_5bd,icepack_nmodal1), public :: & - kaer_bc_5bd, & ! BC mass extinction cross section (m2/kg) - waer_bc_5bd, & ! BC single scatter albedo (fraction) - gaer_bc_5bd ! BC aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), & - dimension (icepack_nspint_5bd,icepack_nmodal1,icepack_nmodal2), public :: & - bcenh_5bd ! BC absorption enhancement factor - ! biogeochemistry components real (kind=dbl_kind), dimension (nblyr+2), public :: & diff --git a/configuration/driver/icedrv_init_column.F90 b/configuration/driver/icedrv_init_column.F90 index 01f1108bc..4678614cb 100644 --- a/configuration/driver/icedrv_init_column.F90 +++ b/configuration/driver/icedrv_init_column.F90 @@ -99,11 +99,7 @@ subroutine init_shortwave use icedrv_arrays_column, only: fswsfcn, ffracn, snowfracn use icedrv_arrays_column, only: fswthrun, fswthrun_vdr, fswthrun_vdf, fswthrun_idr, fswthrun_idf use icedrv_arrays_column, only: fswintn, albpndn, apeffn, trcrn_sw, dhsn - use icedrv_arrays_column, only: kaer_3bd, waer_3bd, gaer_3bd - use icedrv_arrays_column, only: kaer_bc_3bd, waer_bc_3bd, gaer_bc_3bd - use icedrv_arrays_column, only: kaer_5bd, waer_5bd, gaer_5bd - use icedrv_arrays_column, only: kaer_bc_5bd, waer_bc_5bd, gaer_bc_5bd - use icedrv_arrays_column, only: swgrid, igrid, bcenh_3bd, bcenh_5bd + use icedrv_arrays_column, only: swgrid, igrid use icedrv_calendar, only: istep1, dt, calendar_type use icedrv_calendar, only: days_per_year, nextsw_cday, yday, sec use icedrv_system, only: icedrv_system_abort @@ -278,10 +274,6 @@ subroutine init_shortwave calendar_type=calendar_type, & days_per_year=days_per_year, & nextsw_cday=nextsw_cday, yday=yday, sec=sec, & - kaer_3bd=kaer_3bd, kaer_bc_3bd=kaer_bc_3bd(:,:), & - waer_3bd=waer_3bd, waer_bc_3bd=waer_bc_3bd(:,:), & - gaer_3bd=gaer_3bd, gaer_bc_3bd=gaer_bc_3bd(:,:), & - bcenh_3bd=bcenh_3bd(:,:,:), & modal_aero=modal_aero, & swvdr=swvdr(i), swvdf=swvdf(i), & swidr=swidr(i), swidf=swidf(i), & diff --git a/configuration/driver/icedrv_step.F90 b/configuration/driver/icedrv_step.F90 index ea9f15919..d96e2bad2 100644 --- a/configuration/driver/icedrv_step.F90 +++ b/configuration/driver/icedrv_step.F90 @@ -922,8 +922,7 @@ subroutine step_radiation (dt) use icedrv_arrays_column, only: fswthrun, fswthrun_vdr, fswthrun_vdf, fswthrun_idr, fswthrun_idf use icedrv_arrays_column, only: albicen, albsnon, albpndn use icedrv_arrays_column, only: alvdrn, alidrn, alvdfn, alidfn, apeffn, trcrn_sw, snowfracn - use icedrv_arrays_column, only: kaer_3bd, waer_3bd, gaer_3bd, kaer_bc_3bd, waer_bc_3bd - use icedrv_arrays_column, only: gaer_bc_3bd, bcenh_3bd, swgrid, igrid + use icedrv_arrays_column, only: swgrid, igrid use icedrv_calendar, only: calendar_type, days_per_year, nextsw_cday, yday, sec use icedrv_domain_size, only: ncat, n_aero, nilyr, nslyr, n_zaero, n_algae, nblyr, nx use icedrv_flux, only: swvdr, swvdf, swidr, swidf, coszen, fsnow @@ -1043,10 +1042,7 @@ subroutine step_radiation (dt) calendar_type=calendar_type, & days_per_year=days_per_year, sec=sec, & nextsw_cday=nextsw_cday, yday=yday, & - kaer_3bd=kaer_3bd, kaer_bc_3bd=kaer_bc_3bd(:,:), & - waer_3bd=waer_3bd, waer_bc_3bd=waer_bc_3bd(:,:), & - gaer_3bd=gaer_3bd, gaer_bc_3bd=gaer_bc_3bd(:,:), & - bcenh_3bd=bcenh_3bd(:,:,:), modal_aero=modal_aero, & + modal_aero=modal_aero, & swvdr=swvdr(i), swvdf=swvdf(i), & swidr=swidr(i), swidf=swidf(i), & coszen=coszen(i), fsnow=fsnow(i), & From 045e353e396bbccf6d2e08f45039ba1ea7586ced Mon Sep 17 00:00:00 2001 From: apcraig Date: Wed, 7 Sep 2022 15:40:27 -0600 Subject: [PATCH 34/64] Clean up icepack_shortwave - Remove modal_aero, dEdd_algae, and heat_capacity from icepack_shortwave arguments, use directly from icepack_parameters - Modify fswthrun_ optional argument implementation - Modify rsnow optional argument implementation - Change days_per_year, nextsw_cday, and calendar_type to optional arguments in icepack_step_radiation and down the calling tree - Fix some indentation --- columnphysics/icepack_shortwave.F90 | 416 +++++++------------- configuration/driver/icedrv_calendar.F90 | 1 - configuration/driver/icedrv_init_column.F90 | 11 +- configuration/driver/icedrv_step.F90 | 14 +- 4 files changed, 160 insertions(+), 282 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 4acae8602..1bb02e626 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -43,18 +43,19 @@ module icepack_shortwave use icepack_kinds use icepack_parameters, only: c0, c1, c1p5, c2, c3, c4, c10 use icepack_parameters, only: p01, p1, p15, p25, p5, p75, puny + use icepack_parameters, only: argcheck use icepack_parameters, only: albocn, Timelt, snowpatch, awtvdr, awtidr, awtvdf, awtidf use icepack_parameters, only: kappav, hs_min, rhofresh, rhos use icepack_parameters, only: rsnw_fall, snwredist, rsnw_tmax use icepack_parameters, only: hi_ssl, hs_ssl, min_bgc, sk_l, snwlvlfac, snwgrain #ifdef UNDEPRECATE_0LAYER - use icepack_parameters, only: z_tracers, skl_bgc, calc_tsfc, shortwave, kalg, heat_capacity -#else - use icepack_parameters, only: z_tracers, skl_bgc, calc_tsfc, shortwave, kalg + use icepack_parameters, only: heat_capacity #endif + use icepack_parameters, only: z_tracers, skl_bgc, calc_tsfc, shortwave, kalg use icepack_parameters, only: R_ice, R_pnd, R_snw, dT_mlt, rsnw_mlt, hs0, hs1, hp1 use icepack_parameters, only: pndaspect, albedo_type, albicev, albicei, albsnowv, albsnowi, ahmax - use icepack_parameters, only: snw_ssp_table, use_snicar + use icepack_parameters, only: snw_ssp_table, use_snicar, modal_aero + use icepack_parameters, only: dEdd_algae use icepack_tracers, only: ntrcr, nbtrcr_sw #ifdef UNDEPRECATE_CESMPONDS @@ -224,9 +225,6 @@ subroutine shortwave_ccsm3 (aicen, vicen, & vsnon, Tsfcn, & swvdr, swvdf, & swidr, swidf, & -#ifdef UNDEPRECATE_0LAYER - heat_capacity, & -#endif albedo_type, & albicev, albicei, & albsnowv, albsnowi, & @@ -234,11 +232,11 @@ subroutine shortwave_ccsm3 (aicen, vicen, & alvdrn, alidrn, & alvdfn, alidfn, & fswsfc, fswint, & - fswthru, & - fswthru_vdr, & - fswthru_vdf, & - fswthru_idr, & - fswthru_idf, & + fswthrun, & + fswthrun_vdr, & + fswthrun_vdf, & + fswthrun_idr, & + fswthrun_idf, & fswpenl, & Iswabs, SSwabs, & albin, albsn, & @@ -269,10 +267,6 @@ subroutine shortwave_ccsm3 (aicen, vicen, & albsnowi, & ! cold snow albedo, near IR ahmax ! thickness above which ice albedo is constant (m) -#ifdef UNDEPRECATE_0LAYER - logical(kind=log_kind), intent(in) :: & - heat_capacity! if true, ice has nonzero heat capacity -#endif character (len=char_len), intent(in) :: & albedo_type ! albedo parameterization, 'ccsm3' or 'constant' @@ -283,15 +277,15 @@ subroutine shortwave_ccsm3 (aicen, vicen, & alidfn , & ! near-ir, diffuse, avg (fraction) fswsfc , & ! SW absorbed at ice/snow surface (W m-2) fswint , & ! SW absorbed in ice interior, below surface (W m-2) - fswthru , & ! SW through ice to ocean (W m-2) + fswthrun , & ! SW through ice to ocean (W m-2) albin , & ! bare ice albedo albsn ! snow albedo real (kind=dbl_kind), dimension (:), intent(out), optional :: & - fswthru_vdr , & ! vis dir SW through ice to ocean (W m-2) - fswthru_vdf , & ! vis dif SW through ice to ocean (W m-2) - fswthru_idr , & ! nir dir SW through ice to ocean (W m-2) - fswthru_idf ! nir dif SW through ice to ocean (W m-2) + fswthrun_vdr , & ! vis dir SW through ice to ocean (W m-2) + fswthrun_vdf , & ! vis dif SW through ice to ocean (W m-2) + fswthrun_idr , & ! nir dir SW through ice to ocean (W m-2) + fswthrun_idf ! nir dif SW through ice to ocean (W m-2) real (kind=dbl_kind), intent(inout) :: & coszen ! cosine(zenith angle) @@ -318,7 +312,8 @@ subroutine shortwave_ccsm3 (aicen, vicen, & alvdfns, & ! visible, diffuse, snow (fraction) alidfns ! near-ir, diffuse, snow (fraction) - real (kind=dbl_kind), dimension(:), allocatable :: & + ! needed for optional fswthrun arrays when passed as scalars + real (kind=dbl_kind) :: & l_fswthru_vdr , & ! vis dir SW through ice to ocean (W m-2) l_fswthru_vdf , & ! vis dif SW through ice to ocean (W m-2) l_fswthru_idr , & ! nir dir SW through ice to ocean (W m-2) @@ -330,11 +325,6 @@ subroutine shortwave_ccsm3 (aicen, vicen, & ! Solar radiation: albedo and absorbed shortwave !----------------------------------------------------------------- - allocate(l_fswthru_vdr(ncat)) - allocate(l_fswthru_vdf(ncat)) - allocate(l_fswthru_idr(ncat)) - allocate(l_fswthru_idf(ncat)) - ! For basic shortwave, set coszen to a constant between 0 and 1. coszen = p5 ! sun above the horizon @@ -362,7 +352,7 @@ subroutine shortwave_ccsm3 (aicen, vicen, & fswsfc(n) = c0 fswint(n) = c0 - fswthru(n) = c0 + fswthrun(n) = c0 fswpenl(:,n) = c0 Iswabs (:,n) = c0 @@ -422,12 +412,7 @@ subroutine shortwave_ccsm3 (aicen, vicen, & ! Compute solar radiation absorbed in ice and penetrating to ocean. !----------------------------------------------------------------- -#ifdef UNDEPRECATE_0LAYER - call absorbed_solar (heat_capacity, & - nilyr, & -#else call absorbed_solar (nilyr, & -#endif aicen(n), & vicen(n), & vsnon(n), & @@ -439,30 +424,25 @@ subroutine shortwave_ccsm3 (aicen, vicen, & alidrns, alidfns, & fswsfc=fswsfc(n), & fswint=fswint(n), & - fswthru=fswthru(n), & - fswthru_vdr=l_fswthru_vdr(n),& - fswthru_vdf=l_fswthru_vdf(n),& - fswthru_idr=l_fswthru_idr(n),& - fswthru_idf=l_fswthru_idf(n),& + fswthru=fswthrun(n), & + fswthru_vdr=l_fswthru_vdr,& + fswthru_vdf=l_fswthru_vdf,& + fswthru_idr=l_fswthru_idr,& + fswthru_idf=l_fswthru_idf,& fswpenl=fswpenl(:,n), & Iswabs=Iswabs(:,n)) if (icepack_warnings_aborted(subname)) return + if(present(fswthrun_vdr)) fswthrun_vdr(n) = l_fswthru_vdr + if(present(fswthrun_vdf)) fswthrun_vdf(n) = l_fswthru_vdf + if(present(fswthrun_idr)) fswthrun_idr(n) = l_fswthru_idr + if(present(fswthrun_idf)) fswthrun_idf(n) = l_fswthru_idf + endif ! aicen > puny enddo ! ncat - if(present(fswthru_vdr)) fswthru_vdr = l_fswthru_vdr - if(present(fswthru_vdf)) fswthru_vdf = l_fswthru_vdf - if(present(fswthru_idr)) fswthru_idr = l_fswthru_idr - if(present(fswthru_idf)) fswthru_idf = l_fswthru_idf - - deallocate(l_fswthru_vdr) - deallocate(l_fswthru_vdf) - deallocate(l_fswthru_idr) - deallocate(l_fswthru_idf) - end subroutine shortwave_ccsm3 !======================================================================= @@ -705,12 +685,7 @@ end subroutine constant_albedos ! authors William H. Lipscomb, LANL ! C. M. Bitz, UW -#ifdef UNDEPRECATE_0LAYER - subroutine absorbed_solar (heat_capacity, & - nilyr, aicen, & -#else subroutine absorbed_solar (nilyr, aicen, & -#endif vicen, vsnon, & swvdr, swvdf, & swidr, swidf, & @@ -727,10 +702,6 @@ subroutine absorbed_solar (nilyr, aicen, & fswpenl, & Iswabs) -#ifdef UNDEPRECATE_0LAYER - logical(kind=log_kind), intent(in) :: & - heat_capacity ! if true, ice has nonzero heat capacity -#endif integer (kind=int_kind), intent(in) :: & nilyr ! number of ice layers @@ -908,7 +879,6 @@ end subroutine absorbed_solar ! 2013 ECH merged with NCAR version subroutine run_dEdd(dt, ncat, & - dEdd_algae, & nilyr, nslyr, & aicen, vicen, & vsnon, Tsfcn, & @@ -916,15 +886,11 @@ subroutine run_dEdd(dt, ncat, & hpndn, ipndn, & aeron, & trcrn_bgcsw, & -#ifdef UNDEPRECATE_0LAYER - heat_capacity, & -#endif - tlat, tlon, & + TLAT, TLON, & calendar_type, & days_per_year, & nextsw_cday, yday, & sec, & - modal_aero, & swvdr, swvdf, & swidr, swidf, & coszen, fsnow, & @@ -951,28 +917,25 @@ subroutine run_dEdd(dt, ncat, & nilyr , & ! number of ice layers nslyr ! number of snow layers - logical(kind=log_kind), intent(in) :: & -#ifdef UNDEPRECATE_0LAYER - heat_capacity,& ! if true, ice has nonzero heat capacity -#endif - dEdd_algae, & ! .true. use prognostic chla in dEdd - modal_aero ! .true. use modal aerosol treatment + integer (kind=int_kind), intent(in) :: & + sec ! elapsed seconds into date - character (len=char_len), intent(in) :: & + real (kind=dbl_kind), intent(in), optional :: & + yday ! day of the year + + character (len=char_len), intent(in), optional :: & calendar_type ! differentiates Gregorian from other calendars - integer (kind=int_kind), intent(in) :: & - days_per_year, & ! number of days in one year - sec ! elapsed seconds into date + integer (kind=int_kind), intent(in), optional :: & + days_per_year ! number of days in one year - real (kind=dbl_kind), intent(in) :: & - nextsw_cday , & ! julian day of next shortwave calculation - yday ! day of the year + real (kind=dbl_kind), intent(in), optional :: & + nextsw_cday ! julian day of next shortwave calculation real(kind=dbl_kind), intent(in) :: & dt, & ! time step (s) - tlat, & ! latitude of temp pts (radians) - tlon, & ! longitude of temp pts (radians) + TLAT, & ! latitude of temp pts (radians) + TLON, & ! longitude of temp pts (radians) swvdr, & ! sw down, visible, direct (W/m^2) swvdf, & ! sw down, visible, diffuse (W/m^2) swidr, & ! sw down, near IR, direct (W/m^2) @@ -1021,11 +984,13 @@ subroutine run_dEdd(dt, ncat, & fswthrun_idf ! nir dif SW through ice to ocean (W/m^2) real(kind=dbl_kind), dimension(:,:), intent(inout) :: & - rsnow , & ! snow grain radius tracer (10^-6 m) Sswabsn , & ! SW radiation absorbed in snow layers (W m-2) Iswabsn , & ! SW radiation absorbed in ice layers (W m-2) fswpenln ! visible SW entering ice layers (W m-2) + real(kind=dbl_kind), dimension(:,:), intent(inout), optional :: & + rsnow ! snow grain radius tracer (10^-6 m) + logical (kind=log_kind), intent(in) :: & l_print_point @@ -1068,33 +1033,34 @@ subroutine run_dEdd(dt, ncat, & rnslyr , & ! 1/nslyr tmp ! 0 or 1 + ! needed for optional fswthrun arrays when passed as scalars + real (kind=dbl_kind) :: & + l_fswthru_vdr , & ! vis dir SW through ice to ocean (W m-2) + l_fswthru_vdf , & ! vis dif SW through ice to ocean (W m-2) + l_fswthru_idr , & ! nir dir SW through ice to ocean (W m-2) + l_fswthru_idf ! nir dif SW through ice to ocean (W m-2) + logical (kind=log_kind) :: & - linitonly ! local initonly value + l_initonly ! local initonly value - real (kind=dbl_kind), dimension(:), allocatable :: & - l_fswthrun_vdr , & ! vis dir SW through ice to ocean (W m-2) - l_fswthrun_vdf , & ! vis dif SW through ice to ocean (W m-2) - l_fswthrun_idr , & ! nir dir SW through ice to ocean (W m-2) - l_fswthrun_idf ! nir dif SW through ice to ocean (W m-2) + real(kind=dbl_kind), dimension(nslyr) :: & + l_rsnows ! snow grain radius tracer (10^-6 m) character(len=*),parameter :: subname='(run_dEdd)' - allocate(l_fswthrun_vdr(ncat)) - allocate(l_fswthrun_vdf(ncat)) - allocate(l_fswthrun_idr(ncat)) - allocate(l_fswthrun_idf(ncat)) - - linitonly = .false. + l_initonly = .false. if (present(initonly)) then - linitonly = initonly + l_initonly = initonly endif + l_rsnows(:) = c0 + ! cosine of the zenith angle #ifdef CESMCOUPLED - call compute_coszen (tlat, tlon, yday, sec, coszen, & + call compute_coszen (TLAT, TLON, yday, sec, coszen, & days_per_year, nextsw_cday, calendar_type) #else - call compute_coszen (tlat, tlon, yday, sec, coszen) + call compute_coszen (TLAT, TLON, yday, sec, coszen) #endif if (icepack_warnings_aborted(subname)) return @@ -1113,13 +1079,16 @@ subroutine run_dEdd(dt, ncat, & if (aicen(n) > puny) then + if (snwgrain) then + l_rsnows(:) = rsnow(:,n) + endif call shortwave_dEdd_set_snow(nslyr, R_snw, & dT_mlt, rsnw_mlt, & aicen(n), vsnon(n), & Tsfcn(n), fsn, & hs0, hsn, & rhosnwn, rsnwn, & - rsnow(:,n)) + l_rsnows(:)) if (icepack_warnings_aborted(subname)) return ! set pond properties @@ -1161,7 +1130,7 @@ subroutine run_dEdd(dt, ncat, & Tsfcn(n), fsn, & hs0, hsnlvl, & rhosnwn(:), rsnwn(:), & - rsnow(:,n)) + l_rsnows(:)) if (icepack_warnings_aborted(subname)) return endif ! snwredist @@ -1171,11 +1140,11 @@ subroutine run_dEdd(dt, ncat, & ! allow snow to cover pond ice ipn = alvln(n) * apndn(n) * ipndn(n) dhs = dhsn(n) ! snow depth difference, sea ice - pond - if (.not. linitonly .and. ipn > puny .and. & + if (.not. l_initonly .and. ipn > puny .and. & dhs < puny .and. fsnow*dt > hs_min) & dhs = hsnlvl - fsnow*dt ! initialize dhs>0 spn = hsnlvl - dhs ! snow depth on pond ice - if (.not. linitonly .and. ipn*spn < puny) dhs = c0 + if (.not. l_initonly .and. ipn*spn < puny) dhs = c0 dhsn(n) = dhs ! save: constant until reset to 0 ! not using ipn assumes that lid ice is perfectly clear @@ -1257,31 +1226,25 @@ subroutine run_dEdd(dt, ncat, & hpn = c0 endif ! pond type - snowfracn(n) = fsn ! for history + snowfracn(n) = fsn ! for history - call shortwave_dEdd(dEdd_algae, & - nslyr, nilyr, & -#ifdef UNDEPRECATE_0LAYER - coszen, heat_capacity, & -#else + call shortwave_dEdd(nslyr, nilyr, & coszen, & -#endif aicen(n), vicen(n), & hsn, fsn, & rhosnwn, rsnwn, & fpn, hpn, & aeron(:,n), & - modal_aero, & swvdr, swvdf, & swidr, swidf, & alvdrn(n), alvdfn(n), & alidrn(n), alidfn(n), & fswsfcn(n), fswintn(n), & fswthru=fswthrun(n), & - fswthru_vdr=l_fswthrun_vdr(n), & - fswthru_vdf=l_fswthrun_vdf(n), & - fswthru_idr=l_fswthrun_idr(n), & - fswthru_idf=l_fswthrun_idf(n), & + fswthru_vdr=l_fswthru_vdr, & + fswthru_vdf=l_fswthru_vdf, & + fswthru_idr=l_fswthru_idr, & + fswthru_idf=l_fswthru_idf, & Sswabs=Sswabsn(:,n), & Iswabs=Iswabsn(:,n), & albice=albicen(n), & @@ -1293,7 +1256,12 @@ subroutine run_dEdd(dt, ncat, & if (icepack_warnings_aborted(subname)) return - if (.not. snwgrain) then + if(present(fswthrun_vdr)) fswthrun_vdr(n) = l_fswthru_vdr + if(present(fswthrun_vdf)) fswthrun_vdf(n) = l_fswthru_vdf + if(present(fswthrun_idr)) fswthrun_idr(n) = l_fswthru_idr + if(present(fswthrun_idf)) fswthrun_idf(n) = l_fswthru_idf + + if (present(rsnow) .and. .not. snwgrain) then do k = 1,nslyr rsnow(k,n) = rsnwn(k) ! for history enddo @@ -1303,16 +1271,6 @@ subroutine run_dEdd(dt, ncat, & enddo ! ncat - if(present(fswthrun_vdr)) fswthrun_vdr = l_fswthrun_vdr - if(present(fswthrun_vdf)) fswthrun_vdf = l_fswthrun_vdf - if(present(fswthrun_idr)) fswthrun_idr = l_fswthrun_idr - if(present(fswthrun_idf)) fswthrun_idf = l_fswthrun_idf - - deallocate(l_fswthrun_vdr) - deallocate(l_fswthrun_vdf) - deallocate(l_fswthrun_idr) - deallocate(l_fswthrun_idf) - end subroutine run_dEdd !======================================================================= @@ -1343,19 +1301,13 @@ end subroutine run_dEdd ! author: Bruce P. Briegleb, NCAR ! 2013: E Hunke merged with NCAR version ! - subroutine shortwave_dEdd (dEdd_algae, & - nslyr, nilyr, & -#ifdef UNDEPRECATE_0LAYER - coszen, heat_capacity,& -#else + subroutine shortwave_dEdd (nslyr, nilyr, & coszen, & -#endif aice, vice, & hs, fs, & rhosnw, rsnw, & fp, hp, & aero, & - modal_aero, & swvdr, swvdf, & swidr, swidf, & alvdr, alvdf, & @@ -1376,13 +1328,6 @@ subroutine shortwave_dEdd (dEdd_algae, & nilyr , & ! number of ice layers nslyr ! number of snow layers - logical (kind=log_kind), intent(in) :: & -#ifdef UNDEPRECATE_0LAYER - heat_capacity, & ! if true, ice has nonzero heat capacity -#endif - dEdd_algae, & ! .true. use prognostic chla in dEdd - modal_aero ! .true. use modal aerosol treatment - real (kind=dbl_kind), intent(in) :: & aice , & ! concentration of ice vice , & ! volume of ice @@ -1547,13 +1492,8 @@ subroutine shortwave_dEdd (dEdd_algae, & srftyp = 0 call compute_dEdd_3bd(nilyr, nslyr, & - klev, klevp, zbio, dEdd_algae, & -#ifdef UNDEPRECATE_0LAYER - heat_capacity, fnidr, coszen, & -#else + klev, klevp, zbio, & fnidr, coszen, & -#endif - modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hstmp, rhosnw, rsnw, hi, hp, & fi, aero_mp, avdrl, avdfl, & @@ -1590,9 +1530,8 @@ subroutine shortwave_dEdd (dEdd_algae, & srftyp = 1 if (use_snicar) then call compute_dEdd_5bd(nilyr, nslyr, klev, klevp, & - zbio, dEdd_algae, & -!!!!!! heat_capacity, fnidr, coszen, & - fnidr, coszen, modal_aero, & + zbio, & + fnidr, coszen, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fs, aero_mp, avdrl, avdfl, & @@ -1604,13 +1543,8 @@ subroutine shortwave_dEdd (dEdd_algae, & else !echmod - this can be combined with the 5bd call above, if we use module data call compute_dEdd_3bd(nilyr, nslyr, & - klev, klevp, zbio, dEdd_algae, & -#ifdef UNDEPRECATE_0LAYER - heat_capacity, fnidr, coszen, & -#else + klev, klevp, zbio, & fnidr, coszen, & -#endif - modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fs, aero_mp, avdrl, avdfl, & @@ -1652,13 +1586,8 @@ subroutine shortwave_dEdd (dEdd_algae, & srftyp = 2 call compute_dEdd_3bd(nilyr, nslyr, & - klev, klevp, zbio, dEdd_algae, & -#ifdef UNDEPRECATE_0LAYER - heat_capacity, fnidr, coszen, & -#else + klev, klevp, zbio, & fnidr, coszen, & -#endif - modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fp, aero_mp, avdrl, avdfl, & @@ -1773,13 +1702,8 @@ end subroutine shortwave_dEdd ! 2022: E Hunke, T Craig moved data (now module data) subroutine compute_dEdd_3bd(nilyr, nslyr, & - klev, klevp, zbio, dEdd_algae, & -#ifdef UNDEPRECATE_0LAYER - heat_capacity, fnidr, coszen, & -#else + klev, klevp, zbio, & fnidr, coszen, & -#endif - modal_aero, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fi, aero_mp, alvdr, alvdf, & @@ -1800,13 +1724,6 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & klevp ! number of radiation interfaces - 1 ! (0 layer is included also) - logical (kind=log_kind), intent(in) :: & -#ifdef UNDEPRECATE_0LAYER - heat_capacity,& ! if true, ice has nonzero heat capacity -#endif - dEdd_algae, & ! .true. use prognostic chla in dEdd - modal_aero ! .true. use modal aerosol treatment - real (kind=dbl_kind), intent(in) :: & fnidr , & ! fraction of direct to total down flux in nir coszen , & ! cosine solar zenith angle @@ -3925,7 +3842,6 @@ end subroutine icepack_prep_radiation subroutine icepack_step_radiation (dt, ncat, & nblyr, & nilyr, nslyr, & - dEdd_algae, & swgrid, igrid, & fbri, & aicen, vicen, & @@ -3940,7 +3856,6 @@ subroutine icepack_step_radiation (dt, ncat, & days_per_year, & nextsw_cday, & yday, sec, & - modal_aero, & swvdr, swvdf, & swidr, swidf, & coszen, fsnow, & @@ -3977,25 +3892,29 @@ subroutine icepack_step_radiation (dt, ncat, & fsnow , & ! snowfall rate (kg/m^2 s) TLAT, TLON ! latitude and longitude (radian) - character (len=char_len), intent(in) :: & - calendar_type ! differentiates Gregorian from other calendars - integer (kind=int_kind), intent(in) :: & - days_per_year, & ! number of days in one year - sec ! elapsed seconds into date + sec ! elapsed seconds into date real (kind=dbl_kind), intent(in) :: & - nextsw_cday , & ! julian day of next shortwave calculation - yday ! day of the year + yday ! day of the year + + character (len=char_len), intent(in), optional :: & + calendar_type ! differentiates Gregorian from other calendars + + integer (kind=int_kind), intent(in), optional :: & + days_per_year ! number of days in one year + + real (kind=dbl_kind), intent(in), optional :: & + nextsw_cday ! julian day of next shortwave calculation real (kind=dbl_kind), intent(inout) :: & coszen ! cosine solar zenith angle, < 0 for sun below horizon real (kind=dbl_kind), dimension (:), intent(in) :: & - igrid ! biology vertical interface points + igrid ! biology vertical interface points real (kind=dbl_kind), dimension (:), intent(in) :: & - swgrid ! grid for ice tracers used in dEdd scheme + swgrid ! grid for ice tracers used in dEdd scheme real (kind=dbl_kind), dimension(:), intent(in) :: & aicen , & ! ice area fraction in each category @@ -4045,74 +3964,67 @@ subroutine icepack_step_radiation (dt, ncat, & Sswabsn ! SW radiation absorbed in snow layers (W m-2) logical (kind=log_kind), intent(in) :: & - l_print_point, & ! flag for printing diagnostics - dEdd_algae , & ! .true. use prognostic chla in dEdd - modal_aero ! .true. use modal aerosol optical treatment + l_print_point ! flag for printing diagnostics real (kind=dbl_kind), dimension(:,:), intent(inout), optional :: & - rsnow ! snow grain radius tracer (10^-6 m) + rsnow ! snow grain radius tracer (10^-6 m) logical (kind=log_kind), optional :: & - initonly ! flag to indicate init only, default is false + initonly ! flag to indicate init only, default is false !autodocument_end ! local variables integer (kind=int_kind) :: & - n ! thickness category index + n ! thickness category index - logical (kind=log_kind) :: & - linitonly ! local flag for initonly + logical (kind=log_kind), save :: & + first_call=.true. ! first call logical real(kind=dbl_kind) :: & hin, & ! Ice thickness (m) hbri ! brine thickness (m) - real (kind=dbl_kind), dimension(:), allocatable :: & - l_fswthrun_vdr , & ! vis dir SW through ice to ocean (W/m^2) - l_fswthrun_vdf , & ! vis dif SW through ice to ocean (W/m^2) - l_fswthrun_idr , & ! nir dir SW through ice to ocean (W/m^2) - l_fswthrun_idf ! nir dif SW through ice to ocean (W/m^2) - - real (kind=dbl_kind), dimension(:,:), allocatable :: & - l_rsnow ! snow grain radius tracer (10^-6 m) - character(len=*),parameter :: subname='(icepack_step_radiation)' - allocate(l_fswthrun_vdr(ncat)) - allocate(l_fswthrun_vdf(ncat)) - allocate(l_fswthrun_idr(ncat)) - allocate(l_fswthrun_idf(ncat)) + if ((first_call .and. argcheck == 'first') .or. (argcheck == 'always')) then + if (snwgrain .and. .not. present(rsnow)) then + call icepack_warnings_add(subname//' ERROR: snwgrain on, rsnow not passed') + call icepack_warnings_setabort(.true.,__FILE__,__LINE__) + return + endif +#ifdef CESMCOUPLED + if (.not.present(days_per_year) .or. & + .not.present(nextsw_cday) .or. & + .not.present(calendar_type)) then + call icepack_warnings_add(subname//' ERROR: CESMCOUPLE CPP on, need more calendar data') + call icepack_warnings_setabort(.true.,__FILE__,__LINE__) + return + endif +#endif + endif hin = c0 hbri = c0 - linitonly = .false. - if (present(initonly)) then - linitonly = initonly - endif - allocate(l_rsnow (nslyr,ncat)) - l_rsnow = c0 - if (present(rsnow)) l_rsnow = rsnow - - ! Initialize - do n = 1, ncat - alvdrn (n) = c0 - alidrn (n) = c0 - alvdfn (n) = c0 - alidfn (n) = c0 - fswsfcn (n) = c0 - fswintn (n) = c0 - fswthrun(n) = c0 - enddo ! ncat - fswpenln (:,:) = c0 - Iswabsn (:,:) = c0 - Sswabsn (:,:) = c0 - trcrn_bgcsw(:,:) = c0 - - ! Interpolate z-shortwave tracers to shortwave grid - if (dEdd_algae) then + ! Initialize + do n = 1, ncat + alvdrn (n) = c0 + alidrn (n) = c0 + alvdfn (n) = c0 + alidfn (n) = c0 + fswsfcn (n) = c0 + fswintn (n) = c0 + fswthrun(n) = c0 + enddo ! ncat + fswpenln (:,:) = c0 + Iswabsn (:,:) = c0 + Sswabsn (:,:) = c0 + trcrn_bgcsw(:,:) = c0 + + ! Interpolate z-shortwave tracers to shortwave grid + if (dEdd_algae) then do n = 1, ncat if (aicen(n) .gt. puny) then hin = vicen(n)/aicen(n) @@ -4129,13 +4041,12 @@ subroutine icepack_step_radiation (dt, ncat, & if (icepack_warnings_aborted(subname)) return endif enddo - endif + endif - if (calc_Tsfc) then + if (calc_Tsfc) then if (trim(shortwave(1:4)) == 'dEdd') then ! delta Eddington call run_dEdd(dt, ncat, & - dEdd_algae, & nilyr, nslyr, & aicen, vicen, & vsnon, Tsfcn, & @@ -4143,14 +4054,10 @@ subroutine icepack_step_radiation (dt, ncat, & hpndn, ipndn, & aeron, & trcrn_bgcsw, & -#ifdef UNDEPRECATE_0LAYER - heat_capacity, & -#endif TLAT, TLON, & calendar_type,days_per_year, & nextsw_cday, yday, & sec, & - modal_aero, & swvdr, swvdf, & swidr, swidf, & coszen, fsnow, & @@ -4158,10 +4065,10 @@ subroutine icepack_step_radiation (dt, ncat, & alidrn, alidfn, & fswsfcn, fswintn, & fswthrun=fswthrun, & - fswthrun_vdr=l_fswthrun_vdr, & - fswthrun_vdf=l_fswthrun_vdf, & - fswthrun_idr=l_fswthrun_idr, & - fswthrun_idf=l_fswthrun_idf, & + fswthrun_vdr=fswthrun_vdr, & + fswthrun_vdf=fswthrun_vdf, & + fswthrun_idr=fswthrun_idr, & + fswthrun_idf=fswthrun_idf, & fswpenln=fswpenln, & Sswabsn=Sswabsn, & Iswabsn=Iswabsn, & @@ -4172,9 +4079,9 @@ subroutine icepack_step_radiation (dt, ncat, & snowfracn=snowfracn, & dhsn=dhsn, & ffracn=ffracn, & - rsnow=l_rsnow, & + rsnow=rsnow, & l_print_point=l_print_point, & - initonly=linitonly) + initonly=initonly) if (icepack_warnings_aborted(subname)) return elseif (trim(shortwave(1:4)) == 'ccsm') then @@ -4184,9 +4091,6 @@ subroutine icepack_step_radiation (dt, ncat, & Tsfcn, & swvdr, swvdf, & swidr, swidf, & -#ifdef UNDEPRECATE_0LAYER - heat_capacity, & -#endif albedo_type, & albicev, albicei, & albsnowv, albsnowi, & @@ -4194,11 +4098,11 @@ subroutine icepack_step_radiation (dt, ncat, & alvdrn, alidrn, & alvdfn, alidfn, & fswsfcn, fswintn, & - fswthru=fswthrun, & - fswthru_vdr=l_fswthrun_vdr,& - fswthru_vdf=l_fswthrun_vdf,& - fswthru_idr=l_fswthrun_idr,& - fswthru_idf=l_fswthrun_idf,& + fswthrun=fswthrun, & + fswthrun_vdr=fswthrun_vdr,& + fswthrun_vdf=fswthrun_vdf,& + fswthrun_idr=fswthrun_idr,& + fswthrun_idf=fswthrun_idf,& fswpenl=fswpenln, & Iswabs=Iswabsn, & Sswabs=Sswabsn, & @@ -4252,16 +4156,7 @@ subroutine icepack_step_radiation (dt, ncat, & endif ! calc_Tsfc - if (present(fswthrun_vdr)) fswthrun_vdr = l_fswthrun_vdr - if (present(fswthrun_vdf)) fswthrun_vdf = l_fswthrun_vdf - if (present(fswthrun_idr)) fswthrun_idr = l_fswthrun_idr - if (present(fswthrun_idf)) fswthrun_idf = l_fswthrun_idf - - deallocate(l_fswthrun_vdr) - deallocate(l_fswthrun_vdf) - deallocate(l_fswthrun_idr) - deallocate(l_fswthrun_idf) - deallocate(l_rsnow) + first_call = .false. end subroutine icepack_step_radiation @@ -4383,7 +4278,7 @@ end function asys ! https://doi.org/10.5194/tc-2019-22, in review, 2019 subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & - zbio, dEdd_algae, fnidr, coszen, modal_aero, & + zbio, fnidr, coszen, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & fi, aero_mp, alvdr, alvdf, & @@ -4399,11 +4294,6 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & klevp ! number of radiation interfaces - 1 ! (0 layer is included also) - logical (kind=log_kind), intent(in) :: & -! heat_capacity , & ! if true, ice has nonzero heat capacity - dEdd_algae , & ! .true. use prognostic chla in dEdd - modal_aero ! .true. use modal aerosol treatment - ! dEdd tuning parameters, set in namelist real (kind=dbl_kind), intent(in) :: & diff --git a/configuration/driver/icedrv_calendar.F90 b/configuration/driver/icedrv_calendar.F90 index dc6642eb4..048a23e4c 100644 --- a/configuration/driver/icedrv_calendar.F90 +++ b/configuration/driver/icedrv_calendar.F90 @@ -78,7 +78,6 @@ module icedrv_calendar yday , & ! day of the year tday , & ! absolute day number dayyr , & ! number of days per year - nextsw_cday , & ! julian day of next shortwave calculation basis_seconds , & ! Seconds since calendar zero secday ! seconds per day diff --git a/configuration/driver/icedrv_init_column.F90 b/configuration/driver/icedrv_init_column.F90 index 4678614cb..ad5a2aa2f 100644 --- a/configuration/driver/icedrv_init_column.F90 +++ b/configuration/driver/icedrv_init_column.F90 @@ -100,8 +100,7 @@ subroutine init_shortwave use icedrv_arrays_column, only: fswthrun, fswthrun_vdr, fswthrun_vdf, fswthrun_idr, fswthrun_idf use icedrv_arrays_column, only: fswintn, albpndn, apeffn, trcrn_sw, dhsn use icedrv_arrays_column, only: swgrid, igrid - use icedrv_calendar, only: istep1, dt, calendar_type - use icedrv_calendar, only: days_per_year, nextsw_cday, yday, sec + use icedrv_calendar, only: istep1, dt, yday, sec use icedrv_system, only: icedrv_system_abort use icedrv_forcing, only: snw_ssp_table use icedrv_flux, only: alvdf, alidf, alvdr, alidr @@ -123,7 +122,6 @@ subroutine init_shortwave l_print_point, & ! flag to print designated grid point diagnostics use_snicar, & ! use 5-band SNICAR radiation scheme for snow dEdd_algae, & ! BGC - radiation interactions - modal_aero, & ! modal aerosol optical properties snwgrain ! use variable snow grain size character (len=char_len) :: & @@ -153,7 +151,6 @@ subroutine init_shortwave call icepack_query_parameters(puny_out=puny) call icepack_query_parameters(shortwave_out=shortwave) call icepack_query_parameters(dEdd_algae_out=dEdd_algae) - call icepack_query_parameters(modal_aero_out=modal_aero) call icepack_query_parameters(snwgrain_out=snwgrain) call icepack_query_tracer_sizes(ntrcr_out=ntrcr, & nbtrcr_sw_out=nbtrcr_sw) @@ -254,7 +251,6 @@ subroutine init_shortwave dt=dt, ncat=ncat, & nblyr=nblyr, & nilyr=nilyr, nslyr=nslyr, & - dEdd_algae=dEdd_algae, & swgrid=swgrid(:), & igrid=igrid(:), & fbri=fbri(:), & @@ -271,10 +267,7 @@ subroutine init_shortwave zaeron=trcrn(i,nt_zaero(1):nt_zaero(1)+n_zaero*(nblyr+3)-1,:), & trcrn_bgcsw=ztrcr_sw, & TLAT=TLAT(i), TLON=TLON(i), & - calendar_type=calendar_type, & - days_per_year=days_per_year, & - nextsw_cday=nextsw_cday, yday=yday, sec=sec, & - modal_aero=modal_aero, & + yday=yday, sec=sec, & swvdr=swvdr(i), swvdf=swvdf(i), & swidr=swidr(i), swidf=swidf(i), & coszen=coszen(i), fsnow=fsnow(i), & diff --git a/configuration/driver/icedrv_step.F90 b/configuration/driver/icedrv_step.F90 index d96e2bad2..25304ec1f 100644 --- a/configuration/driver/icedrv_step.F90 +++ b/configuration/driver/icedrv_step.F90 @@ -923,7 +923,7 @@ subroutine step_radiation (dt) use icedrv_arrays_column, only: albicen, albsnon, albpndn use icedrv_arrays_column, only: alvdrn, alidrn, alvdfn, alidfn, apeffn, trcrn_sw, snowfracn use icedrv_arrays_column, only: swgrid, igrid - use icedrv_calendar, only: calendar_type, days_per_year, nextsw_cday, yday, sec + use icedrv_calendar, only: yday, sec use icedrv_domain_size, only: ncat, n_aero, nilyr, nslyr, n_zaero, n_algae, nblyr, nx use icedrv_flux, only: swvdr, swvdf, swidr, swidf, coszen, fsnow use icedrv_init, only: TLAT, TLON, tmask @@ -949,7 +949,7 @@ subroutine step_radiation (dt) nlt_zaero_sw, nt_zaero, nt_bgc_N logical (kind=log_kind) :: & - tr_bgc_N, tr_zaero, tr_brine, dEdd_algae, modal_aero, snwgrain + tr_bgc_N, tr_zaero, tr_brine, dEdd_algae, snwgrain real (kind=dbl_kind), dimension(ncat) :: & fbri ! brine height to ice thickness @@ -997,8 +997,7 @@ subroutine step_radiation (dt) if (icepack_warnings_aborted()) call icedrv_system_abort(string=subname, & file=__FILE__,line= __LINE__) - call icepack_query_parameters(dEdd_algae_out=dEdd_algae, modal_aero_out=modal_aero, & - snwgrain_out=snwgrain) + call icepack_query_parameters(dEdd_algae_out=dEdd_algae, snwgrain_out=snwgrain) call icepack_warnings_flush(nu_diag) if (icepack_warnings_aborted()) call icedrv_system_abort(string=subname, & file=__FILE__,line= __LINE__) @@ -1024,7 +1023,7 @@ subroutine step_radiation (dt) call icepack_step_radiation(dt=dt, ncat=ncat, & nblyr=nblyr, nilyr=nilyr, & - nslyr=nslyr, dEdd_algae=dEdd_algae, & + nslyr=nslyr, & swgrid=swgrid(:), igrid=igrid(:), & fbri=fbri(:), & aicen=aicen(i,:), vicen=vicen(i,:), & @@ -1039,10 +1038,7 @@ subroutine step_radiation (dt) zaeron=trcrn(i,nt_zaero(1):nt_zaero(1)+n_zaero*(nblyr+3)-1,:), & trcrn_bgcsw=ztrcr_sw, & TLAT=TLAT(i), TLON=TLON(i), & - calendar_type=calendar_type, & - days_per_year=days_per_year, sec=sec, & - nextsw_cday=nextsw_cday, yday=yday, & - modal_aero=modal_aero, & + sec=sec, yday=yday, & swvdr=swvdr(i), swvdf=swvdf(i), & swidr=swidr(i), swidf=swidf(i), & coszen=coszen(i), fsnow=fsnow(i), & From 69ed7883123126de0b74032a05afc5925dbb5b6d Mon Sep 17 00:00:00 2001 From: apcraig Date: Wed, 7 Sep 2022 19:23:08 -0600 Subject: [PATCH 35/64] - Remove ncat, nilyr, nslyr, nblyr from interface arguments - More indentation adjustments --- columnphysics/icepack_shortwave.F90 | 211 ++++++++------------ configuration/driver/icedrv_init_column.F90 | 6 +- configuration/driver/icedrv_step.F90 | 6 +- 3 files changed, 82 insertions(+), 141 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 1bb02e626..5bec38d58 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -57,6 +57,7 @@ module icepack_shortwave use icepack_parameters, only: snw_ssp_table, use_snicar, modal_aero use icepack_parameters, only: dEdd_algae + use icepack_tracers, only: ncat, nilyr, nslyr, nblyr use icepack_tracers, only: ntrcr, nbtrcr_sw #ifdef UNDEPRECATE_CESMPONDS use icepack_tracers, only: tr_pond_cesm, tr_pond_lvl, tr_pond_topo @@ -68,14 +69,12 @@ module icepack_shortwave use icepack_tracers, only: tr_zaero, nlt_chl_sw, nlt_zaero_sw use icepack_tracers, only: n_algae, n_aero, n_zaero use icepack_tracers, only: nmodal1, nmodal2, max_aero - use icepack_warnings, only: warnstr, icepack_warnings_add - use icepack_warnings, only: icepack_warnings_setabort, icepack_warnings_aborted - + use icepack_shortwave_data, only: nspint_3bd, nspint_5bd use icepack_zbgc_shared,only: R_chl2N, F_abs_chl use icepack_zbgc_shared,only: remap_zbgc - use icepack_orbital, only: compute_coszen - - use icepack_shortwave_data, only: nspint_3bd, nspint_5bd + use icepack_orbital, only: compute_coszen + use icepack_warnings, only: warnstr, icepack_warnings_add + use icepack_warnings, only: icepack_warnings_setabort, icepack_warnings_aborted ! dEdd 3-band data use icepack_shortwave_data, only: & @@ -240,12 +239,7 @@ subroutine shortwave_ccsm3 (aicen, vicen, & fswpenl, & Iswabs, SSwabs, & albin, albsn, & - coszen, ncat, & - nilyr) - - integer (kind=int_kind), intent(in) :: & - nilyr , & ! number of ice layers - ncat ! number of ice thickness categories + coszen) real (kind=dbl_kind), dimension (:), intent(in) :: & aicen , & ! concentration of ice per category @@ -412,8 +406,7 @@ subroutine shortwave_ccsm3 (aicen, vicen, & ! Compute solar radiation absorbed in ice and penetrating to ocean. !----------------------------------------------------------------- - call absorbed_solar (nilyr, & - aicen(n), & + call absorbed_solar (aicen(n), & vicen(n), & vsnon(n), & swvdr, swvdf, & @@ -685,7 +678,7 @@ end subroutine constant_albedos ! authors William H. Lipscomb, LANL ! C. M. Bitz, UW - subroutine absorbed_solar (nilyr, aicen, & + subroutine absorbed_solar (aicen, & vicen, vsnon, & swvdr, swvdf, & swidr, swidf, & @@ -702,9 +695,6 @@ subroutine absorbed_solar (nilyr, aicen, & fswpenl, & Iswabs) - integer (kind=int_kind), intent(in) :: & - nilyr ! number of ice layers - real (kind=dbl_kind), intent(in) :: & aicen , & ! fractional ice area vicen , & ! ice volume @@ -878,8 +868,7 @@ end subroutine absorbed_solar ! 2011 ECH modified for melt pond tracers ! 2013 ECH merged with NCAR version - subroutine run_dEdd(dt, ncat, & - nilyr, nslyr, & + subroutine run_dEdd(dt, & aicen, vicen, & vsnon, Tsfcn, & alvln, apndn, & @@ -912,11 +901,6 @@ subroutine run_dEdd(dt, ncat, & l_print_point, & initonly) - integer (kind=int_kind), intent(in) :: & - ncat , & ! number of ice thickness categories - nilyr , & ! number of ice layers - nslyr ! number of snow layers - integer (kind=int_kind), intent(in) :: & sec ! elapsed seconds into date @@ -933,69 +917,69 @@ subroutine run_dEdd(dt, ncat, & nextsw_cday ! julian day of next shortwave calculation real(kind=dbl_kind), intent(in) :: & - dt, & ! time step (s) - TLAT, & ! latitude of temp pts (radians) - TLON, & ! longitude of temp pts (radians) - swvdr, & ! sw down, visible, direct (W/m^2) - swvdf, & ! sw down, visible, diffuse (W/m^2) - swidr, & ! sw down, near IR, direct (W/m^2) - swidf, & ! sw down, near IR, diffuse (W/m^2) - fsnow ! snowfall rate (kg/m^2 s) + dt, & ! time step (s) + TLAT, & ! latitude of temp pts (radians) + TLON, & ! longitude of temp pts (radians) + swvdr, & ! sw down, visible, direct (W/m^2) + swvdf, & ! sw down, visible, diffuse (W/m^2) + swidr, & ! sw down, near IR, direct (W/m^2) + swidf, & ! sw down, near IR, diffuse (W/m^2) + fsnow ! snowfall rate (kg/m^2 s) real(kind=dbl_kind), dimension(:), intent(in) :: & - aicen, & ! concentration of ice - vicen, & ! volume per unit area of ice (m) - vsnon, & ! volume per unit area of snow (m) - Tsfcn, & ! surface temperature (deg C) - alvln, & ! level-ice area fraction - apndn, & ! pond area fraction - hpndn, & ! pond depth (m) - ipndn ! pond refrozen lid thickness (m) + aicen, & ! concentration of ice + vicen, & ! volume per unit area of ice (m) + vsnon, & ! volume per unit area of snow (m) + Tsfcn, & ! surface temperature (deg C) + alvln, & ! level-ice area fraction + apndn, & ! pond area fraction + hpndn, & ! pond depth (m) + ipndn ! pond refrozen lid thickness (m) real(kind=dbl_kind), dimension(:,:), intent(in) :: & - aeron, & ! aerosols (kg/m^3) - trcrn_bgcsw ! zaerosols (kg/m^3) + chlorophyll on shorthwave grid + aeron, & ! aerosols (kg/m^3) + trcrn_bgcsw ! zaerosols (kg/m^3) + chlorophyll on shorthwave grid real(kind=dbl_kind), dimension(:), intent(inout) :: & - ffracn,& ! fraction of fsurfn used to melt ipond - dhsn ! depth difference for snow on sea ice and pond ice + ffracn,& ! fraction of fsurfn used to melt ipond + dhsn ! depth difference for snow on sea ice and pond ice real(kind=dbl_kind), intent(inout) :: & - coszen ! cosine solar zenith angle, < 0 for sun below horizon + coszen ! cosine solar zenith angle, < 0 for sun below horizon real(kind=dbl_kind), dimension(:), intent(inout) :: & - alvdrn, & ! visible direct albedo (fraction) - alvdfn, & ! near-ir direct albedo (fraction) - alidrn, & ! visible diffuse albedo (fraction) - alidfn, & ! near-ir diffuse albedo (fraction) - fswsfcn, & ! SW absorbed at ice/snow surface (W m-2) - fswintn, & ! SW absorbed in ice interior, below surface (W m-2) - fswthrun, & ! SW through ice to ocean (W/m^2) - albicen, & ! albedo bare ice - albsnon, & ! albedo snow - albpndn, & ! albedo pond - apeffn, & ! effective pond area used for radiation calculation - snowfracn ! snow fraction on each category used for radiation + alvdrn, & ! visible direct albedo (fraction) + alvdfn, & ! near-ir direct albedo (fraction) + alidrn, & ! visible diffuse albedo (fraction) + alidfn, & ! near-ir diffuse albedo (fraction) + fswsfcn, & ! SW absorbed at ice/snow surface (W m-2) + fswintn, & ! SW absorbed in ice interior, below surface (W m-2) + fswthrun, & ! SW through ice to ocean (W/m^2) + albicen, & ! albedo bare ice + albsnon, & ! albedo snow + albpndn, & ! albedo pond + apeffn, & ! effective pond area used for radiation calculation + snowfracn ! snow fraction on each category used for radiation real(kind=dbl_kind), dimension(:), intent(out), optional :: & - fswthrun_vdr, & ! vis dir SW through ice to ocean (W/m^2) - fswthrun_vdf, & ! vis dif SW through ice to ocean (W/m^2) - fswthrun_idr, & ! nir dir SW through ice to ocean (W/m^2) - fswthrun_idf ! nir dif SW through ice to ocean (W/m^2) + fswthrun_vdr, & ! vis dir SW through ice to ocean (W/m^2) + fswthrun_vdf, & ! vis dif SW through ice to ocean (W/m^2) + fswthrun_idr, & ! nir dir SW through ice to ocean (W/m^2) + fswthrun_idf ! nir dif SW through ice to ocean (W/m^2) real(kind=dbl_kind), dimension(:,:), intent(inout) :: & - Sswabsn , & ! SW radiation absorbed in snow layers (W m-2) - Iswabsn , & ! SW radiation absorbed in ice layers (W m-2) - fswpenln ! visible SW entering ice layers (W m-2) + Sswabsn , & ! SW radiation absorbed in snow layers (W m-2) + Iswabsn , & ! SW radiation absorbed in ice layers (W m-2) + fswpenln ! visible SW entering ice layers (W m-2) real(kind=dbl_kind), dimension(:,:), intent(inout), optional :: & - rsnow ! snow grain radius tracer (10^-6 m) + rsnow ! snow grain radius tracer (10^-6 m) logical (kind=log_kind), intent(in) :: & - l_print_point + l_print_point logical (kind=log_kind), optional :: & - initonly ! flag to indicate init only, default is false + initonly ! flag to indicate init only, default is false ! local temporary variables @@ -1082,7 +1066,7 @@ subroutine run_dEdd(dt, ncat, & if (snwgrain) then l_rsnows(:) = rsnow(:,n) endif - call shortwave_dEdd_set_snow(nslyr, R_snw, & + call shortwave_dEdd_set_snow(R_snw, & dT_mlt, rsnw_mlt, & aicen(n), vsnon(n), & Tsfcn(n), fsn, & @@ -1124,7 +1108,7 @@ subroutine run_dEdd(dt, ncat, & alvl = aicen(n) endif ! set snow properties over level ice - call shortwave_dEdd_set_snow(nslyr, R_snw, & + call shortwave_dEdd_set_snow(R_snw, & dT_mlt, rsnw_mlt, & alvl, vsn, & Tsfcn(n), fsn, & @@ -1228,7 +1212,7 @@ subroutine run_dEdd(dt, ncat, & snowfracn(n) = fsn ! for history - call shortwave_dEdd(nslyr, nilyr, & + call shortwave_dEdd( & coszen, & aicen(n), vicen(n), & hsn, fsn, & @@ -1301,8 +1285,7 @@ end subroutine run_dEdd ! author: Bruce P. Briegleb, NCAR ! 2013: E Hunke merged with NCAR version ! - subroutine shortwave_dEdd (nslyr, nilyr, & - coszen, & + subroutine shortwave_dEdd (coszen, & aice, vice, & hs, fs, & rhosnw, rsnw, & @@ -1324,10 +1307,6 @@ subroutine shortwave_dEdd (nslyr, nilyr, & fswpenl, zbio, & l_print_point ) - integer (kind=int_kind), intent(in) :: & - nilyr , & ! number of ice layers - nslyr ! number of snow layers - real (kind=dbl_kind), intent(in) :: & aice , & ! concentration of ice vice , & ! volume of ice @@ -1491,7 +1470,7 @@ subroutine shortwave_dEdd (nslyr, nilyr, & ! calculate bare sea ice srftyp = 0 - call compute_dEdd_3bd(nilyr, nslyr, & + call compute_dEdd_3bd( & klev, klevp, zbio, & fnidr, coszen, & swvdr, swvdf, swidr, swidf, srftyp, & @@ -1529,7 +1508,7 @@ subroutine shortwave_dEdd (nslyr, nilyr, & srftyp = 1 if (use_snicar) then - call compute_dEdd_5bd(nilyr, nslyr, klev, klevp, & + call compute_dEdd_5bd(klev, klevp, & zbio, & fnidr, coszen, & swvdr, swvdf, swidr, swidf, srftyp, & @@ -1542,7 +1521,7 @@ subroutine shortwave_dEdd (nslyr, nilyr, & else !echmod - this can be combined with the 5bd call above, if we use module data - call compute_dEdd_3bd(nilyr, nslyr, & + call compute_dEdd_3bd( & klev, klevp, zbio, & fnidr, coszen, & swvdr, swvdf, swidr, swidf, srftyp, & @@ -1585,7 +1564,7 @@ subroutine shortwave_dEdd (nslyr, nilyr, & ! calculate ponded ice srftyp = 2 - call compute_dEdd_3bd(nilyr, nslyr, & + call compute_dEdd_3bd( & klev, klevp, zbio, & fnidr, coszen, & swvdr, swvdf, swidr, swidf, srftyp, & @@ -1701,7 +1680,7 @@ end subroutine shortwave_dEdd ! 2013: E Hunke merged with NCAR version ! 2022: E Hunke, T Craig moved data (now module data) - subroutine compute_dEdd_3bd(nilyr, nslyr, & + subroutine compute_dEdd_3bd( & klev, klevp, zbio, & fnidr, coszen, & swvdr, swvdf, swidr, swidf, srftyp, & @@ -1718,8 +1697,6 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & Iswabs, fswpenl ) integer (kind=int_kind), intent(in) :: & - nilyr , & ! number of ice layers - nslyr , & ! number of snow layers klev , & ! number of radiation layers - 1 klevp ! number of radiation interfaces - 1 ! (0 layer is included also) @@ -2085,9 +2062,9 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & ! near-infrared solar (0.7-5.0 micro-meter) which indicates clear/cloudy ! conditions: more cloud, the less 1.19-5.0 relative to the ! 0.7-1.19 micro-meter due to cloud absorption. - wghtns(1) = c1 - wghtns(2) = cp67 + (cp78-cp67)*(c1-fnidr) - wghtns(3) = c1 - wghtns(2) + wghtns(1) = c1 + wghtns(2) = cp67 + (cp78-cp67)*(c1-fnidr) + wghtns(3) = c1 - wghtns(2) ! find snow grain adjustment factor, dependent upon clear/overcast sky ! estimate. comparisons with SNICAR show better agreement with DE when @@ -2730,7 +2707,7 @@ subroutine compute_dEdd_3bd(nilyr, nslyr, & ! the surface; see comments in solution_dEdd for more details. call solution_dEdd & - (coszen, srftyp, klev, klevp, nslyr, & + (coszen, srftyp, klev, klevp, & tau, w0, g, albodr, albodf, & trndir, trntdr, trndif, rupdir, rupdif, & rdndif) @@ -2962,7 +2939,7 @@ end subroutine compute_dEdd_3bd ! author: Bruce P. Briegleb, NCAR ! 2013: E Hunke merged with NCAR version subroutine solution_dEdd & - (coszen, srftyp, klev, klevp, nslyr, & + (coszen, srftyp, klev, klevp, & tau, w0, g, albodr, albodf, & trndir, trntdr, trndif, rupdir, rupdif, & rdndif) @@ -2973,9 +2950,8 @@ subroutine solution_dEdd & integer (kind=int_kind), intent(in) :: & srftyp , & ! surface type over ice: (0=air, 1=snow, 2=pond) klev , & ! number of radiation layers - 1 - klevp , & ! number of radiation interfaces - 1 + klevp ! number of radiation interfaces - 1 ! (0 layer is included also) - nslyr ! number of snow layers real (kind=dbl_kind), dimension(0:klev), intent(in) :: & tau , & ! layer extinction optical depth @@ -3420,7 +3396,7 @@ end subroutine solution_dEdd ! author: Bruce P. Briegleb, NCAR ! 2013: E Hunke merged with NCAR version - subroutine shortwave_dEdd_set_snow(nslyr, R_snw, & + subroutine shortwave_dEdd_set_snow(R_snw, & dT_mlt, rsnw_mlt, & aice, vsno, & Tsfc, fs, & @@ -3428,9 +3404,6 @@ subroutine shortwave_dEdd_set_snow(nslyr, R_snw, & rhosnw, rsnw, & rsnow) - integer (kind=int_kind), intent(in) :: & - nslyr ! number of snow layers - real (kind=dbl_kind), intent(in) :: & R_snw , & ! snow tuning parameter; +1 > ~.01 change in broadband albedo dT_mlt, & ! change in temp for non-melt to melt snow grain radius change (C) @@ -3560,22 +3533,14 @@ end subroutine shortwave_dEdd_set_pond ! ! authors Nicole Jeffery, LANL - subroutine compute_shortwave_trcr(nslyr, & + subroutine compute_shortwave_trcr( & bgcN, zaero, & trcrn_bgcsw, & sw_grid, hin, & hbri, & - nilyr, nblyr, & i_grid, & skl_bgc, z_tracers ) - integer (kind=int_kind), intent(in) :: & - nslyr ! number of snow layers - - integer (kind=int_kind), intent(in) :: & - nblyr , & ! number of bio layers - nilyr ! number of ice layers - real (kind=dbl_kind), dimension (:), intent(in) :: & bgcN , & ! Nit tracer zaero ! zaero tracer @@ -3720,8 +3685,7 @@ end subroutine compute_shortwave_trcr ! ! authors: Elizabeth Hunke, LANL - subroutine icepack_prep_radiation (ncat, nilyr, nslyr, & - aice, aicen, & + subroutine icepack_prep_radiation(aice, aicen, & swvdr, swvdf, & swidr, swidf, & alvdr_ai, alvdf_ai, & @@ -3736,11 +3700,6 @@ subroutine icepack_prep_radiation (ncat, nilyr, nslyr, & fswpenln, & Sswabsn, Iswabsn) - integer (kind=int_kind), intent(in) :: & - ncat , & ! number of ice thickness categories - nilyr , & ! number of ice layers - nslyr ! number of snow layers - real (kind=dbl_kind), intent(in) :: & aice , & ! ice area fraction swvdr , & ! sw down, visible, direct (W/m^2) @@ -3839,9 +3798,7 @@ end subroutine icepack_prep_radiation ! David Bailey, NCAR ! Elizabeth C. Hunke, LANL - subroutine icepack_step_radiation (dt, ncat, & - nblyr, & - nilyr, nslyr, & + subroutine icepack_step_radiation (dt, & swgrid, igrid, & fbri, & aicen, vicen, & @@ -3877,12 +3834,6 @@ subroutine icepack_step_radiation (dt, ncat, & l_print_point, & initonly) - integer (kind=int_kind), intent(in) :: & - ncat , & ! number of ice thickness categories - nilyr , & ! number of ice layers - nslyr , & ! number of snow layers - nblyr ! number of bgc layers - real (kind=dbl_kind), intent(in) :: & dt , & ! time step (s) swvdr , & ! sw down, visible, direct (W/m^2) @@ -3983,8 +3934,8 @@ subroutine icepack_step_radiation (dt, ncat, & first_call=.true. ! first call logical real(kind=dbl_kind) :: & - hin, & ! Ice thickness (m) - hbri ! brine thickness (m) + hin, & ! Ice thickness (m) + hbri ! brine thickness (m) character(len=*),parameter :: subname='(icepack_step_radiation)' @@ -4029,13 +3980,12 @@ subroutine icepack_step_radiation (dt, ncat, & if (aicen(n) .gt. puny) then hin = vicen(n)/aicen(n) hbri= fbri(n)*hin - call compute_shortwave_trcr(nslyr, & + call compute_shortwave_trcr( & bgcNn(:,n), & zaeron(:,n), & trcrn_bgcsw(:,n), & swgrid, hin, & hbri, & - nilyr, nblyr, & igrid, & skl_bgc, z_tracers ) if (icepack_warnings_aborted(subname)) return @@ -4046,8 +3996,7 @@ subroutine icepack_step_radiation (dt, ncat, & if (calc_Tsfc) then if (trim(shortwave(1:4)) == 'dEdd') then ! delta Eddington - call run_dEdd(dt, ncat, & - nilyr, nslyr, & + call run_dEdd(dt, & aicen, vicen, & vsnon, Tsfcn, & alvln, apndn, & @@ -4108,9 +4057,7 @@ subroutine icepack_step_radiation (dt, ncat, & Sswabs=Sswabsn, & albin=albicen, & albsn=albsnon, & - coszen=coszen, & - ncat=ncat, & - nilyr=nilyr) + coszen=coszen) if (icepack_warnings_aborted(subname)) return else @@ -4277,7 +4224,7 @@ end function asys ! cryospheric surfaces in ESMs, The Cryosphere Discuss., ! https://doi.org/10.5194/tc-2019-22, in review, 2019 - subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & + subroutine compute_dEdd_5bd (klev, klevp, & zbio, fnidr, coszen, & swvdr, swvdf, swidr, swidf, srftyp, & hs, rhosnw, rsnw, hi, hp, & @@ -4288,8 +4235,6 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & Iswabs, fswpenl ) integer (kind=int_kind), intent(in) :: & - nilyr , & ! number of ice layers - nslyr , & ! number of snow layers klev , & ! number of radiation layers - 1 klevp ! number of radiation interfaces - 1 ! (0 layer is included also) @@ -5332,7 +5277,7 @@ subroutine compute_dEdd_5bd (nilyr, nslyr, klev, klevp, & ! underlying ocean and combine successive layers upwards to ! the surface; see comments in solution_dEdd for more details. call solution_dEdd & - (coszen, srftyp, klev, klevp, nslyr, & + (coszen, srftyp, klev, klevp, & tau, w0, g, albodr, albodf, & trndir, trntdr, trndif, rupdir, rupdif, & rdndif) diff --git a/configuration/driver/icedrv_init_column.F90 b/configuration/driver/icedrv_init_column.F90 index ad5a2aa2f..ec77837ef 100644 --- a/configuration/driver/icedrv_init_column.F90 +++ b/configuration/driver/icedrv_init_column.F90 @@ -247,10 +247,8 @@ subroutine init_shortwave enddo if (tmask(i)) then - call icepack_step_radiation ( & - dt=dt, ncat=ncat, & - nblyr=nblyr, & - nilyr=nilyr, nslyr=nslyr, & + call icepack_step_radiation ( & + dt=dt, & swgrid=swgrid(:), & igrid=igrid(:), & fbri=fbri(:), & diff --git a/configuration/driver/icedrv_step.F90 b/configuration/driver/icedrv_step.F90 index 25304ec1f..2b0a4042d 100644 --- a/configuration/driver/icedrv_step.F90 +++ b/configuration/driver/icedrv_step.F90 @@ -67,7 +67,7 @@ subroutine prep_radiation () alidr_init(i) = alidr_ai(i) alidf_init(i) = alidf_ai(i) - call icepack_prep_radiation(ncat=ncat, nilyr=nilyr, nslyr=nslyr, & + call icepack_prep_radiation( & aice=aice(i), aicen=aicen(i,:), & swvdr=swvdr(i), swvdf=swvdf(i), & swidr=swidr(i), swidf=swidf(i), & @@ -1021,9 +1021,7 @@ subroutine step_radiation (dt) if (tmask(i)) then - call icepack_step_radiation(dt=dt, ncat=ncat, & - nblyr=nblyr, nilyr=nilyr, & - nslyr=nslyr, & + call icepack_step_radiation(dt=dt, & swgrid=swgrid(:), igrid=igrid(:), & fbri=fbri(:), & aicen=aicen(i,:), vicen=vicen(i,:), & From 44d377b63a047401a4b66fd4970fa927d65c8512 Mon Sep 17 00:00:00 2001 From: apcraig Date: Sun, 11 Sep 2022 15:27:58 -0600 Subject: [PATCH 36/64] Update implementation of g(k), w0(k) in icepack_shortwave - consistent with https://github.com/MPAS-Dev/MPAS-Model/commit/b76b6830 - Rename the dEdd_snicar option to dEdd_snicar_ad --- columnphysics/icepack_parameters.F90 | 8 +- columnphysics/icepack_shortwave.F90 | 96 ++++++++----------- configuration/driver/icedrv_init.F90 | 2 +- configuration/driver/icedrv_init_column.F90 | 2 +- configuration/scripts/options/set_nml.snicar | 2 +- .../scripts/options/set_nml.snicartest | 2 +- 6 files changed, 50 insertions(+), 62 deletions(-) diff --git a/columnphysics/icepack_parameters.F90 b/columnphysics/icepack_parameters.F90 index ce9a5f35d..1636a4196 100644 --- a/columnphysics/icepack_parameters.F90 +++ b/columnphysics/icepack_parameters.F90 @@ -214,7 +214,7 @@ module icepack_parameters awtidf = 0.36218_dbl_kind ! near IR, diffuse character (len=char_len), public :: & - shortwave = 'dEdd', & ! shortwave method, 'ccsm3' or 'dEdd' or 'dEdd_snicar' + shortwave = 'dEdd', & ! shortwave method, 'ccsm3' or 'dEdd' or 'dEdd_snicar_ad' albedo_type = 'ccsm3' ! albedo parameterization, 'ccsm3' or 'constant' ! shortwave='dEdd' overrides this parameter @@ -226,7 +226,7 @@ module icepack_parameters sw_frac = 0.9_dbl_kind , & ! Fraction of internal shortwave moved to surface sw_dtemp = 0.02_dbl_kind ! temperature difference from melting - ! Parameters for dEdd_snicar + ! Parameters for dEdd_snicar_ad logical (kind=log_kind), public :: & use_snicar = .false. ! .true. use 5-band SNICAR-AD approach character (len=char_len), public :: & @@ -612,7 +612,7 @@ subroutine icepack_init_parameters( & awtidf_in ! near IR, diffuse character (len=*), intent(in), optional :: & - shortwave_in, & ! shortwave method, 'ccsm3' or 'dEdd' or 'dEdd_snicar' + shortwave_in, & ! shortwave method, 'ccsm3' or 'dEdd' or 'dEdd_snicar_ad' albedo_type_in ! albedo parameterization, 'ccsm3' or 'constant' ! shortwave='dEdd' overrides this parameter @@ -1338,7 +1338,7 @@ subroutine icepack_query_parameters( & awtidf_out ! near IR, diffuse character (len=*), intent(out), optional :: & - shortwave_out, & ! shortwave method, 'ccsm3' or 'dEdd' or 'dEdd_snicar' + shortwave_out, & ! shortwave method, 'ccsm3' or 'dEdd' or 'dEdd_snicar_ad' albedo_type_out ! albedo parameterization, 'ccsm3' or 'constant' ! shortwave='dEdd' overrides this parameter diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 5bec38d58..1c2c1d7de 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -2362,12 +2362,10 @@ subroutine compute_dEdd_3bd( & ! aerosol in snow if (tr_zaero .and. dEdd_algae) then do k = 0,nslyr - gzaer(ns,k) = gzaer(ns,k)/(wzaer(ns,k)+puny) - wzaer(ns,k) = wzaer(ns,k)/(tzaer(ns,k)+puny) - g (k) = (g (k)*w0(k)*tau(k) + gzaer(ns,k)*wzaer(ns,k)*tzaer(ns,k)) & - / (w0(k)*tau(k) + wzaer(ns,k)*tzaer(ns,k)) - w0 (k) = ( w0(k)*tau(k) + wzaer(ns,k)*tzaer(ns,k)) & - / ( tau(k) + tzaer(ns,k)) + g(k) = (g(k)*w0(k)*tau(k) + gzaer(ns,k)) / & + (w0(k)*tau(k) + wzaer(ns,k)) + w0(k) = (w0(k)*tau(k) + wzaer(ns,k)) / & + (tau(k) + tzaer(ns,k)) tau(k) = tau(k) + tzaer(ns,k) enddo elseif (tr_aero) then @@ -2413,6 +2411,8 @@ subroutine compute_dEdd_3bd( & gaer = gaer/(waer+puny) waer = waer/(taer+puny) +! tcraig, why does the above section exist if taer=waer=gaer=0 below + do k=1,nslyr taer = c0 waer = c0 @@ -2462,12 +2462,10 @@ subroutine compute_dEdd_3bd( & waer_3bd(ns,(1+(na-1)/4))*gaer_3bd(ns,(1+(na-1)/4)) endif ! modal_aero enddo ! na - gaer = gaer/(waer+puny) - waer = waer/(taer+puny) - g(k) = (g(k)*w0(k)*tau(k) + gaer*waer*taer) / & - (w0(k)*tau(k) + waer*taer) - w0(k) = (w0(k)*tau(k) + waer*taer) / & - (tau(k) + taer) + g(k) = (g(k)*w0(k)*tau(k) + gaer) / & + (w0(k)*tau(k) + waer) + w0(k) = (w0(k)*tau(k) + waer) / & + (tau(k) + taer) tau(k) = tau(k) + taer enddo ! k endif ! tr_aero @@ -2523,12 +2521,10 @@ subroutine compute_dEdd_3bd( & ! aerosol in sea ice if (tr_zaero .and. dEdd_algae) then do k = kii, klev - gzaer(ns,k) = gzaer(ns,k)/(wzaer(ns,k)+puny) - wzaer(ns,k) = wzaer(ns,k)/(tzaer(ns,k)+puny) - g(k) = (g(k)*w0(k)*tau(k) + gzaer(ns,k)*wzaer(ns,k)*tzaer(ns,k)) & - / (w0(k)*tau(k) + wzaer(ns,k)*tzaer(ns,k)) - w0(k) = (w0(k)*tau(k) + wzaer(ns,k)*tzaer(ns,k)) & - / (tau(k) + tzaer(ns,k)) + g(k) = (g(k)*w0(k)*tau(k) + gzaer(ns,k)) / & + (w0(k)*tau(k) + wzaer(ns,k)) + w0(k) = (w0(k)*tau(k) + wzaer(ns,k)) / & + (tau(k) + tzaer(ns,k)) tau(k) = tau(k) + tzaer(ns,k) enddo elseif (tr_aero) then @@ -2579,12 +2575,10 @@ subroutine compute_dEdd_3bd( & endif ! modal_aero enddo ! na - gaer = gaer/(waer+puny) - waer = waer/(taer+puny) - g(k) = (g(k)*w0(k)*tau(k) + gaer*waer*taer) / & - (w0(k)*tau(k) + waer*taer) - w0(k) = (w0(k)*tau(k) + waer*taer) / & - (tau(k) + taer) + g(k) = (g(k)*w0(k)*tau(k) + gaer) / & + (w0(k)*tau(k) + waer) + w0(k) = (w0(k)*tau(k) + waer) / & + (tau(k) + taer) tau(k) = tau(k) + taer do k = kii+1, klev taer = c0 @@ -2632,12 +2626,10 @@ subroutine compute_dEdd_3bd( & waer_3bd(ns,(1+(na-1)/4))*gaer_3bd(ns,(1+(na-1)/4)) endif ! modal_aero enddo ! na - gaer = gaer/(waer+puny) - waer = waer/(taer+puny) - g(k) = (g(k)*w0(k)*tau(k) + gaer*waer*taer) / & - (w0(k)*tau(k) + waer*taer) - w0(k) = (w0(k)*tau(k) + waer*taer) / & - (tau(k) + taer) + g(k) = (g(k)*w0(k)*tau(k) + gaer) / & + (w0(k)*tau(k) + waer) + w0(k) = (w0(k)*tau(k) + waer) / & + (tau(k) + taer) tau(k) = tau(k) + taer enddo ! k endif ! tr_aero @@ -4969,9 +4961,9 @@ subroutine compute_dEdd_5bd (klev, klevp, & if (tr_zaero .and. dEdd_algae) then do k = 0,nslyr g(k) = (g(k)*w0(k)*tau(k) + gzaer_5bd(ns,k)) / & - (w0(k)*tau(k) + wzaer_5bd(ns,k)) - w0(k) = (w0(k)*tau(k) + wzaer_5bd(ns,k)) / & - (tau(k) + tzaer_5bd(ns,k)) + (w0(k)*tau(k) + wzaer_5bd(ns,k)) + w0(k) = (w0(k)*tau(k) + wzaer_5bd(ns,k)) / & + (tau(k) + tzaer_5bd(ns,k)) tau(k) = tau(k) + tzaer_5bd(ns,k) enddo elseif (tr_aero) then @@ -5030,6 +5022,8 @@ subroutine compute_dEdd_5bd (klev, klevp, & gaer = gaer/(waer+puny) waer = waer/(taer+puny) +! tcraig, again why does the above exist if taer=waer=gaer=0 below + do k=1,nslyr taer = c0 waer = c0 @@ -5083,12 +5077,10 @@ subroutine compute_dEdd_5bd (klev, klevp, & endif ! modal_aero !mgf-- enddo ! na - gaer = gaer/(waer+puny) - waer = waer/(taer+puny) - g(k) = (g(k)*w0(k)*tau(k) + gaer*waer*taer) / & - (w0(k)*tau(k) + waer*taer) - w0(k) = (w0(k)*tau(k) + waer*taer) / & - (tau(k) + taer) + g(k) = (g(k)*w0(k)*tau(k) + gaer) / & + (w0(k)*tau(k) + waer) + w0(k) = (w0(k)*tau(k) + waer) / & + (tau(k) + taer) tau(k) = tau(k) + taer enddo ! k endif ! tr_aero @@ -5134,9 +5126,9 @@ subroutine compute_dEdd_5bd (klev, klevp, & if (tr_zaero .and. dEdd_algae) then do k = kii, klev g(k) = (g(k)*w0(k)*tau(k) + gzaer_5bd(ns,k)) / & - (w0(k)*tau(k) + wzaer_5bd(ns,k)) - w0(k) = (w0(k)*tau(k) + wzaer_5bd(ns,k)) / & - (tau(k) + tzaer_5bd(ns,k)) + (w0(k)*tau(k) + wzaer_5bd(ns,k)) + w0(k) = (w0(k)*tau(k) + wzaer_5bd(ns,k)) / & + (tau(k) + tzaer_5bd(ns,k)) tau(k) = tau(k) + tzaer_5bd(ns,k) enddo elseif (tr_aero) then @@ -5192,12 +5184,10 @@ subroutine compute_dEdd_5bd (klev, klevp, & !mgf-- enddo ! na - gaer = gaer/(waer+puny) - waer = waer/(taer+puny) - g(k) = (g(k)*w0(k)*tau(k) + gaer*waer*taer) / & - (w0(k)*tau(k) + waer*taer) - w0(k) = (w0(k)*tau(k) + waer*taer) / & - (tau(k) + taer) + g(k) = (g(k)*w0(k)*tau(k) + gaer) / & + (w0(k)*tau(k) + waer) + w0(k) = (w0(k)*tau(k) + waer) / & + (tau(k) + taer) tau(k) = tau(k) + taer do k = kii+1, klev taer = c0 @@ -5252,12 +5242,10 @@ subroutine compute_dEdd_5bd (klev, klevp, & endif ! modal_aero !mgf-- enddo ! na - gaer = gaer/(waer+puny) - waer = waer/(taer+puny) - g(k) = (g(k)*w0(k)*tau(k) + gaer*waer*taer) / & - (w0(k)*tau(k) + waer*taer) - w0(k) = (w0(k)*tau(k) + waer*taer) / & - (tau(k) + taer) + g(k) = (g(k)*w0(k)*tau(k) + gaer) / & + (w0(k)*tau(k) + waer) + w0(k) = (w0(k)*tau(k) + waer) / & + (tau(k) + taer) tau(k) = tau(k) + taer enddo ! k endif ! tr_aero diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90 index 7892cfb8c..8d64a769e 100644 --- a/configuration/driver/icedrv_init.F90 +++ b/configuration/driver/icedrv_init.F90 @@ -715,7 +715,7 @@ subroutine input_data write(nu_diag,1000) ' ahmax = ', ahmax endif - if (trim(shortwave) == 'dEdd_snicar') then + if (trim(shortwave) == 'dEdd_snicar_ad') then write(nu_diag,1030) ' snw_ssp_table = ', trim(snw_ssp_table) endif diff --git a/configuration/driver/icedrv_init_column.F90 b/configuration/driver/icedrv_init_column.F90 index ec77837ef..00a5daa95 100644 --- a/configuration/driver/icedrv_init_column.F90 +++ b/configuration/driver/icedrv_init_column.F90 @@ -221,7 +221,7 @@ subroutine init_shortwave if (icepack_warnings_aborted()) & call icedrv_system_abort(i, istep1, subname, __FILE__, __LINE__) - if (trim(shortwave) == 'dEdd_snicar') then + if (trim(shortwave) == 'dEdd_snicar_ad') then use_snicar = .true. ! 5-band SNICAR scheme for snow cover call icepack_init_parameters(use_snicar_in=use_snicar, snw_ssp_table_in=snw_ssp_table) call icepack_warnings_flush(nu_diag) diff --git a/configuration/scripts/options/set_nml.snicar b/configuration/scripts/options/set_nml.snicar index 488cdfd9e..d59308142 100644 --- a/configuration/scripts/options/set_nml.snicar +++ b/configuration/scripts/options/set_nml.snicar @@ -1,2 +1,2 @@ - shortwave = 'dEdd_snicar' + shortwave = 'dEdd_snicar_ad' snw_ssp_table = 'snicar' diff --git a/configuration/scripts/options/set_nml.snicartest b/configuration/scripts/options/set_nml.snicartest index 5ece765c2..eba6e517f 100644 --- a/configuration/scripts/options/set_nml.snicartest +++ b/configuration/scripts/options/set_nml.snicartest @@ -1,2 +1,2 @@ - shortwave = 'dEdd_snicar' + shortwave = 'dEdd_snicar_ad' snw_ssp_table = 'test' From 6f8f21b32e0bea336ef8414327eaaac3392935bd Mon Sep 17 00:00:00 2001 From: apcraig Date: Sun, 11 Sep 2022 19:44:41 -0600 Subject: [PATCH 37/64] Get rid of use_snicar flag, redundant with shortwave setting --- columnphysics/icepack_parameters.F90 | 11 ++--------- columnphysics/icepack_shortwave.F90 | 6 +++--- columnphysics/icepack_shortwave_data.F90 | 2 +- configuration/driver/icedrv_init_column.F90 | 4 +--- 4 files changed, 7 insertions(+), 16 deletions(-) diff --git a/columnphysics/icepack_parameters.F90 b/columnphysics/icepack_parameters.F90 index 1636a4196..b8154d378 100644 --- a/columnphysics/icepack_parameters.F90 +++ b/columnphysics/icepack_parameters.F90 @@ -227,8 +227,6 @@ module icepack_parameters sw_dtemp = 0.02_dbl_kind ! temperature difference from melting ! Parameters for dEdd_snicar_ad - logical (kind=log_kind), public :: & - use_snicar = .false. ! .true. use 5-band SNICAR-AD approach character (len=char_len), public :: & snw_ssp_table = 'test' ! lookup table: 'snicar' or 'test' @@ -462,7 +460,7 @@ subroutine icepack_init_parameters( & update_ocn_f_in, ustar_min_in, a_rapid_mode_in, & Rac_rapid_mode_in, aspect_rapid_mode_in, & dSdt_slow_mode_in, phi_c_slow_mode_in, & - phi_i_mushy_in, shortwave_in, use_snicar_in, albedo_type_in, albsnowi_in, & + phi_i_mushy_in, shortwave_in, albedo_type_in, albsnowi_in, & albicev_in, albicei_in, albsnowv_in, & ahmax_in, R_ice_in, R_pnd_in, R_snw_in, dT_mlt_in, rsnw_mlt_in, & kalg_in, kstrength_in, krdg_partic_in, krdg_redist_in, mu_rdg_in, & @@ -635,7 +633,6 @@ subroutine icepack_init_parameters( & kalg_in ! algae absorption coefficient for 0.5 m thick layer logical (kind=log_kind), intent(in), optional :: & - use_snicar_in,& ! snicar adjustments to dEdd radiation for snow sw_redist_in ! redistribute shortwave real (kind=dbl_kind), intent(in), optional :: & @@ -939,7 +936,6 @@ subroutine icepack_init_parameters( & if (present(phi_c_slow_mode_in) ) phi_c_slow_mode = phi_c_slow_mode_in if (present(phi_i_mushy_in) ) phi_i_mushy = phi_i_mushy_in if (present(shortwave_in) ) shortwave = shortwave_in - if (present(use_snicar_in) ) use_snicar = use_snicar_in if (present(albedo_type_in) ) albedo_type = albedo_type_in if (present(albicev_in) ) albicev = albicev_in if (present(albicei_in) ) albicei = albicei_in @@ -1178,7 +1174,7 @@ subroutine icepack_query_parameters( & Lfresh_out, cprho_out, Cp_out, ustar_min_out, a_rapid_mode_out, & ktherm_out, conduct_out, fbot_xfer_type_out, calc_Tsfc_out, dts_b_out, & Rac_rapid_mode_out, aspect_rapid_mode_out, dSdt_slow_mode_out, & - phi_c_slow_mode_out, phi_i_mushy_out, shortwave_out, use_snicar_out, & + phi_c_slow_mode_out, phi_i_mushy_out, shortwave_out, & albedo_type_out, albicev_out, albicei_out, albsnowv_out, & albsnowi_out, ahmax_out, R_ice_out, R_pnd_out, R_snw_out, dT_mlt_out, & rsnw_mlt_out, dEdd_algae_out, & @@ -1361,7 +1357,6 @@ subroutine icepack_query_parameters( & kalg_out ! algae absorption coefficient for 0.5 m thick layer logical (kind=log_kind), intent(out), optional :: & - use_snicar_out,& ! snicar adjustments to dEdd radiation for snow sw_redist_out ! redistribute shortwave real (kind=dbl_kind), intent(out), optional :: & @@ -1697,7 +1692,6 @@ subroutine icepack_query_parameters( & if (present(phi_c_slow_mode_out) ) phi_c_slow_mode_out = phi_c_slow_mode if (present(phi_i_mushy_out) ) phi_i_mushy_out = phi_i_mushy if (present(shortwave_out) ) shortwave_out = shortwave - if (present(use_snicar_out) ) use_snicar_out = use_snicar if (present(albedo_type_out) ) albedo_type_out = albedo_type if (present(albicev_out) ) albicev_out = albicev if (present(albicei_out) ) albicei_out = albicei @@ -1908,7 +1902,6 @@ subroutine icepack_write_parameters(iounit) write(iounit,*) " phi_c_slow_mode = ", phi_c_slow_mode write(iounit,*) " phi_i_mushy = ", phi_i_mushy write(iounit,*) " shortwave = ", shortwave - write(iounit,*) " use_snicar = ", use_snicar write(iounit,*) " albedo_type = ", albedo_type write(iounit,*) " albicev = ", albicev write(iounit,*) " albicei = ", albicei diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 1c2c1d7de..1bdb68f76 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -54,7 +54,7 @@ module icepack_shortwave use icepack_parameters, only: z_tracers, skl_bgc, calc_tsfc, shortwave, kalg use icepack_parameters, only: R_ice, R_pnd, R_snw, dT_mlt, rsnw_mlt, hs0, hs1, hp1 use icepack_parameters, only: pndaspect, albedo_type, albicev, albicei, albsnowv, albsnowi, ahmax - use icepack_parameters, only: snw_ssp_table, use_snicar, modal_aero + use icepack_parameters, only: snw_ssp_table, modal_aero use icepack_parameters, only: dEdd_algae use icepack_tracers, only: ncat, nilyr, nslyr, nblyr @@ -173,7 +173,7 @@ subroutine icepack_init_radiation() if (icepack_warnings_aborted(subname)) return endif - if (use_snicar) then + if (trim(shortwave) == 'dEdd_snicar_ad') then call icepack_shortwave_init_dEdd5band() if (icepack_warnings_aborted(subname)) return @@ -1507,7 +1507,7 @@ subroutine shortwave_dEdd (coszen, & ! calculate snow covered sea ice srftyp = 1 - if (use_snicar) then + if (trim(shortwave) == 'dEdd_snicar_ad') then call compute_dEdd_5bd(klev, klevp, & zbio, & fnidr, coszen, & diff --git a/columnphysics/icepack_shortwave_data.F90 b/columnphysics/icepack_shortwave_data.F90 index 7e3775209..857379df8 100644 --- a/columnphysics/icepack_shortwave_data.F90 +++ b/columnphysics/icepack_shortwave_data.F90 @@ -5,7 +5,7 @@ module icepack_shortwave_data use icepack_warnings, only: warnstr, icepack_warnings_add use icepack_warnings, only: icepack_warnings_setabort, icepack_warnings_aborted use icepack_parameters, only: c0 - use icepack_parameters, only: use_snicar, snw_ssp_table + use icepack_parameters, only: snw_ssp_table use icepack_tracers, only: nmodal1, nmodal2, max_aero implicit none diff --git a/configuration/driver/icedrv_init_column.F90 b/configuration/driver/icedrv_init_column.F90 index 00a5daa95..f5c72d199 100644 --- a/configuration/driver/icedrv_init_column.F90 +++ b/configuration/driver/icedrv_init_column.F90 @@ -120,7 +120,6 @@ subroutine init_shortwave logical (kind=log_kind) :: & l_print_point, & ! flag to print designated grid point diagnostics - use_snicar, & ! use 5-band SNICAR radiation scheme for snow dEdd_algae, & ! BGC - radiation interactions snwgrain ! use variable snow grain size @@ -222,8 +221,7 @@ subroutine init_shortwave call icedrv_system_abort(i, istep1, subname, __FILE__, __LINE__) if (trim(shortwave) == 'dEdd_snicar_ad') then - use_snicar = .true. ! 5-band SNICAR scheme for snow cover - call icepack_init_parameters(use_snicar_in=use_snicar, snw_ssp_table_in=snw_ssp_table) + call icepack_init_parameters(snw_ssp_table_in=snw_ssp_table) call icepack_warnings_flush(nu_diag) if (icepack_warnings_aborted()) call icedrv_system_abort(string=subname, & file=__FILE__,line= __LINE__) From 4256d9bbc2acbf5041a09367f99b4d5f64026f6c Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Sun, 18 Sep 2022 17:22:44 +0100 Subject: [PATCH 38/64] update documentation --- doc/source/master_list.bib | 10 +++++++++- doc/source/science_guide/sg_thermo.rst | 15 +++++++++++---- 2 files changed, 20 insertions(+), 5 deletions(-) diff --git a/doc/source/master_list.bib b/doc/source/master_list.bib index b685b8ad3..7ffb0a841 100644 --- a/doc/source/master_list.bib +++ b/doc/source/master_list.bib @@ -802,7 +802,15 @@ @article{Roberts19 year = {2019} } - +@article{Dang19, +author = {Dang, C. and Zender, C. S. and Flanner, M. G.}, +title = {Intercomparison and improvement of two-stream shortwave radiative transfer schemes in Earth system models for a unified treatment of cryospheric surfaces}, +journal = {The Cryosphere}, +volume = 13, +pages = {2325--2343}, +doi = {10.5194/tc-13-2325-2019}, +year = {2019} +} % ********************************************** % For new entries, see example entry in BIB_TEMPLATE.txt diff --git a/doc/source/science_guide/sg_thermo.rst b/doc/source/science_guide/sg_thermo.rst index 355415a8d..d21a8c0be 100755 --- a/doc/source/science_guide/sg_thermo.rst +++ b/doc/source/science_guide/sg_thermo.rst @@ -712,8 +712,10 @@ Shortwave radiation: Delta-Eddington ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Two methods for computing albedo and shortwave fluxes are available, the -"ccsm3" method, described below, and a multiple scattering -radiative transfer scheme that uses a Delta-Eddington approach. +"ccsm3" method, described in the next section, and a multiple scattering +radiative transfer scheme that uses a Delta-Eddington approach +(``shortwave`` = ``dEdd``). + "Inherent" optical properties (IOPs) for snow and sea ice, such as extinction coefficient and single scattering albedo, are prescribed based on physical measurements; reflected, absorbed and transmitted @@ -722,12 +724,17 @@ for each snow and ice layer in a self-consistent manner. Absorptive effects of inclusions in the ice/snow matrix such as dust and algae can also be included, along with radiative treatment of melt ponds and other changes in physical properties, for example granularization associated -with snow aging. The Delta-Eddington formulation is described in detail +with snow aging. + +The Delta-Eddington formulation is described in detail in :cite:`Briegleb07`. Since publication of this technical paper, a number of improvements have been made to the Delta-Eddington scheme, including a surface scattering layer and internal shortwave absorption for snow, generalization for multiple snow layers and more than four -layers of ice, and updated IOP values. +layers of ice, and updated IOP values. Also, a 5-band option for snow has +been added based on :cite:`Dang19` using parameters derived from the +SNICAR snow model (``shortwave`` = ``dEdd_snicar_ad``). The 3-band +Delta-Eddington data is still used for non-snow-covered surfaces. The namelist parameters ``R_ice`` and ``R_pnd`` adjust the albedo of bare or ponded ice by the product of the namelist value and one standard From 34e5555fdae238ca949691f5318474c26f29ab07 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Sun, 18 Sep 2022 17:43:50 +0100 Subject: [PATCH 39/64] updating documentation --- columnphysics/icepack_shortwave.F90 | 31 ++++++++++++-------------- doc/source/science_guide/sg_thermo.rst | 12 ++++++++-- 2 files changed, 24 insertions(+), 19 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 5bec38d58..a4faef95e 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -4201,28 +4201,25 @@ end function asys ! 2018: Cheng Dang merged with SNICAR 5-band snow and aersols IOPs, UC Irvine ! ! Note by Cheng Dang 2018: -! This subroutine kept the existing delta-eddington adding-doubling +! This subroutine kept the existing delta-eddington adding-doubling (-ad) ! method, snow and sea ice layer sturcture, and most of the code structures -! of subroutine compute_dEdd, with major changeds listed below to merge +! of subroutine compute_dEdd_3bd, with major changes listed below to merge ! current snow treatments in SNICAR Model ! 1. The shortwave radiative transfer properties of snow-covered sea ice are -! calcualted for 5 bands (1 visible and 4 near-IR) defined in SNICAR +! calculated for 5 bands (1 visible and 4 near-IR) defined in SNICAR. ! 2. The reflection/absorption/transmission of direct and diffuse shortwave -! incidents are calculated seperately to remove the snow grain adjustment -! in subroutine compute_dEdd -! 3. The albedo and absorption of snow-covered sea ice are adjusted when solar -! zenith angle is above 75 degree -! 4. Comments given in subroutine compute_dEdd are all kepted in this subroutine -! with modifications at where above changes applies to. -! 5. This subroutine can be modified and merged with subroutine compute_dEdd -! to compute shortwave properties of bare and ponded sea ice if requested. -! For now, these two subroutines are seperated for testing new features. +! incidents are calculated separately to remove the snow grain adjustment +! in subroutine compute_dEdd_3bd. +! 3. The albedo and absorption of snow-covered sea ice are adjusted when the +! solar zenith angle is above 75 degrees. +! 4. Comments given in subroutine compute_dEdd_3bd are all kept in this subroutine +! with modifications for the changes above. ! -! The justification and explaination for above changes can be find in paper: -! Dang, C., Zender, C. S., and Flanner, M. G.: Inter-comparison and improvement -! of 2-stream shortwave radiative transfer models for unified treatment of -! cryospheric surfaces in ESMs, The Cryosphere Discuss., -! https://doi.org/10.5194/tc-2019-22, in review, 2019 +! Justification and explanation of these changes can be found in +! Dang, C., Zender, C. S., and Flanner, M. G.: Intercomparison and improvement +! of two-stream shortwave radiative transfer schemes in Earth system models +! for a unified treatment of cryospheric surfaces, The Cryosphere, 13, +! 2325-2343, https://doi.org/10.5194/tc-13-2325-2019, 2019. subroutine compute_dEdd_5bd (klev, klevp, & zbio, fnidr, coszen, & diff --git a/doc/source/science_guide/sg_thermo.rst b/doc/source/science_guide/sg_thermo.rst index d21a8c0be..832021284 100755 --- a/doc/source/science_guide/sg_thermo.rst +++ b/doc/source/science_guide/sg_thermo.rst @@ -731,10 +731,18 @@ in :cite:`Briegleb07`. Since publication of this technical paper, a number of improvements have been made to the Delta-Eddington scheme, including a surface scattering layer and internal shortwave absorption for snow, generalization for multiple snow layers and more than four -layers of ice, and updated IOP values. Also, a 5-band option for snow has +layers of ice, and updated IOP values. + +In addition, a 5-band option for snow has been added based on :cite:`Dang19` using parameters derived from the SNICAR snow model (``shortwave`` = ``dEdd_snicar_ad``). The 3-band -Delta-Eddington data is still used for non-snow-covered surfaces. +Delta-Eddington data is still used for non-snow-covered surfaces. The +5-band option calculates snow radiative transfer properties for 1 visible and +4 near-infrared bands, and the reflection, absorption and transmission of +direct and diffuse shorwave incidents are computed separately, thus removing +the snow grain adjustment used in the 3-band Delta-Eddington scheme. Also, +albedo and absorption of snow-covered sea ice are adjusted for solar zenith +angles greater than 75 degrees. The namelist parameters ``R_ice`` and ``R_pnd`` adjust the albedo of bare or ponded ice by the product of the namelist value and one standard From 95fb56781290f79ae091a1f86237ba62ae5ef8c3 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Sun, 18 Sep 2022 19:10:15 +0100 Subject: [PATCH 40/64] use module data rather than hardcoded rhoi --- columnphysics/icepack_shortwave.F90 | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index a4faef95e..f52c4a031 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -45,7 +45,7 @@ module icepack_shortwave use icepack_parameters, only: p01, p1, p15, p25, p5, p75, puny use icepack_parameters, only: argcheck use icepack_parameters, only: albocn, Timelt, snowpatch, awtvdr, awtidr, awtvdf, awtidf - use icepack_parameters, only: kappav, hs_min, rhofresh, rhos + use icepack_parameters, only: kappav, hs_min, rhofresh, rhos, rhoi use icepack_parameters, only: rsnw_fall, snwredist, rsnw_tmax use icepack_parameters, only: hi_ssl, hs_ssl, min_bgc, sk_l, snwlvlfac, snwgrain #ifdef UNDEPRECATE_0LAYER @@ -2006,7 +2006,6 @@ subroutine compute_dEdd_3bd( & tmp_gs, tmp1 ! temp variables real (kind=dbl_kind), parameter :: & - rhoi = 917.0_dbl_kind,& ! pure ice mass density (kg/m3) - echmod HARDCODED! fix! fr_max = 1.00_dbl_kind, & ! snow grain adjustment factor max fr_min = 0.80_dbl_kind, & ! snow grain adjustment factor min ! tuning parameters @@ -4507,7 +4506,6 @@ subroutine compute_dEdd_5bd (klev, klevp, & tmp_gs, tmp1 ! temp variables real (kind=dbl_kind), parameter :: & - rhoi = 917.0_dbl_kind, & ! pure ice mass density (kg/m3) fr_max = 1.00_dbl_kind, & ! snow grain adjustment factor max fr_min = 0.80_dbl_kind, & ! snow grain adjustment factor min ! tuning parameters @@ -4904,10 +4902,7 @@ subroutine compute_dEdd_5bd (klev, klevp, & gs = asm_prm_ice_drc(ns,nr-1)*(delr) + & asm_prm_ice_drc(ns,nr)*(c1-delr) endif - ! ks = Qs*((rhosnw(ksnow)/rhoi)*3._dbl_kind / & - ! (4._dbl_kind*rsnw(ksnow)*1.0e-6_dbl_kind)) tau(k) = (ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k))*dzk(k) - !w0(k) = ks/(ks + kabs_chl_5bd(ns,k))*ws w0(k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k)) * ws g(k) = gs @@ -4948,10 +4943,7 @@ subroutine compute_dEdd_5bd (klev, klevp, & gs = asm_prm_ice_dfs(ns,nr-1)*(c1-delr) + & asm_prm_ice_dfs(ns,nr)*delr endif - ! ks = Qs*((rhosnw(ksnow)/rhoi)*3._dbl_kind / & - ! (4._dbl_kind*rsnw(ksnow)*1.0e-6_dbl_kind)) tau(k) = (ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k))*dzk(k) - !w0(k) = ks/(ks + kabs_chl_5bd(ns,k)) *ws w0(k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k)) * ws g(k) = gs From 9178ede4b9f6883853a7fff0037ec65c16065799 Mon Sep 17 00:00:00 2001 From: apcraig Date: Sun, 18 Sep 2022 13:32:55 -0600 Subject: [PATCH 41/64] cleanup --- columnphysics/icepack_shortwave_data.F90 | 1 - 1 file changed, 1 deletion(-) diff --git a/columnphysics/icepack_shortwave_data.F90 b/columnphysics/icepack_shortwave_data.F90 index 857379df8..d37df293d 100644 --- a/columnphysics/icepack_shortwave_data.F90 +++ b/columnphysics/icepack_shortwave_data.F90 @@ -5,7 +5,6 @@ module icepack_shortwave_data use icepack_warnings, only: warnstr, icepack_warnings_add use icepack_warnings, only: icepack_warnings_setabort, icepack_warnings_aborted use icepack_parameters, only: c0 - use icepack_parameters, only: snw_ssp_table use icepack_tracers, only: nmodal1, nmodal2, max_aero implicit none From e0b3292252b3f48e3673c8c04d12d0882214dba8 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Sun, 18 Sep 2022 20:33:33 +0100 Subject: [PATCH 42/64] update namelist and settings documentation --- doc/source/icepack_index.rst | 2 +- doc/source/science_guide/sg_thermo.rst | 6 +++++- doc/source/user_guide/ug_case_settings.rst | 8 ++++++-- 3 files changed, 12 insertions(+), 4 deletions(-) diff --git a/doc/source/icepack_index.rst b/doc/source/icepack_index.rst index e79c52afb..3ee34f5fd 100755 --- a/doc/source/icepack_index.rst +++ b/doc/source/icepack_index.rst @@ -412,7 +412,7 @@ either Celsius or Kelvin units). "shcoef", "transfer coefficient for sensible heat", "" "shear", "strain rate II component", "1/s" "shlat", "southern latitude of artificial mask edge", "30\ :math:`^\circ`\ N" - "shortwave", ":math:`\bullet` flag for shortwave parameterization ('default' or 'dEdd')", "" + "shortwave", ":math:`\bullet` flag for shortwave parameterization ('ccsm3' or 'dEdd')", "" "sil", "silicate concentration", "mmol/m\ :math:`^3`" "sk_l", "skeletal layer thickness", "0.03 m" "snowage_drdt0", "snowage table 3D data for drdt0 (10^-6 m/hr)", "" diff --git a/doc/source/science_guide/sg_thermo.rst b/doc/source/science_guide/sg_thermo.rst index 832021284..68cb0912d 100755 --- a/doc/source/science_guide/sg_thermo.rst +++ b/doc/source/science_guide/sg_thermo.rst @@ -742,7 +742,11 @@ Delta-Eddington data is still used for non-snow-covered surfaces. The direct and diffuse shorwave incidents are computed separately, thus removing the snow grain adjustment used in the 3-band Delta-Eddington scheme. Also, albedo and absorption of snow-covered sea ice are adjusted for solar zenith -angles greater than 75 degrees. +angles greater than 75 degrees. Because the 5-band lookup tables are very +large, they can be slow to compile. The setting ``ICE_SNICARHC`` is false +for simulations not using the ``dEdd_snicar_ad`` option, and must be set +to true in order to use the hard-coded (HC) lookup tables generated from the +SNICAR model. The namelist parameters ``R_ice`` and ``R_pnd`` adjust the albedo of bare or ponded ice by the product of the namelist value and one standard diff --git a/doc/source/user_guide/ug_case_settings.rst b/doc/source/user_guide/ug_case_settings.rst index 649e28efd..8496bde57 100755 --- a/doc/source/user_guide/ug_case_settings.rst +++ b/doc/source/user_guide/ug_case_settings.rst @@ -107,6 +107,7 @@ can be modified as needed. "TRDON", "0,1", "number of dissolved organic nitrogen", "0" "TRFEP", "0,1,2", "number of particulate iron tracers", "0" "TRFED", "0,1,2", "number of dissolved iron tracers", "0" + "ICE_SNICARHC", "true,false", "include hardcoded (HC) snicar tables", "false" "ICE_BLDDEBUG", "true,false", "turn on compile debug flags", "false" "ICE_COVERAGE", "true,false", "turn on code coverage flags", "false" @@ -249,7 +250,7 @@ shortwave_nml "", "", "", "" "``ahmax``", "real", "albedo is constant above this thickness in meters", "0.3" - "``albedo_type``", "`ccsm3``", "NCAR CCSM3 albedo implementation", "``ccsm3``" + "``albedo_type``", "``ccsm3``", "NCAR CCSM3 albedo implementation", "``ccsm3``" "", "``constant``", "four constant albedos", "" "``albicei``", ":math:`0<\alpha <1`", "near infrared ice albedo for thicker ice", "0.36" "``albicev``", ":math:`0<\alpha <1`", "visible ice albedo for thicker ice", "0.78" @@ -262,7 +263,10 @@ shortwave_nml "``R_pnd``", "real", "tuning parameter for ponded sea ice albedo from Delta-Eddington shortwave", "0.0" "``R_snw``", "real", "tuning parameter for snow (broadband albedo) from Delta-Eddington shortwave", "1.5" "``shortwave``", "``ccsm3``", "NCAR CCSM3 shortwave distribution method", "``dEdd``" - "", "``dEdd``", "Delta-Eddington method", "" + "", "``dEdd``", "Delta-Eddington method (3-band)", "" + "", "``dEdd_snicar_ad``", "Delta-Eddington method with 5-band snow", "" + "``snw_ssp_table``", "``snicar``", "lookup table for `dEdd_snicar_ad`", "``snicar``" + "", "``test``", "reduced lookup table for `dEdd_snicar_ad` testing", "" "``sw_dtemp``", "real", "temperature from melt for sw_redist", "0.02" "``sw_frac``", "real", "fraction of shortwave redistribution", "0.9" "``sw_redist``", "logical", "shortwave redistribution", ".false." From 1a089e8bf0c82a8bb1c9234e4b177927be32a0ba Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Fri, 23 Sep 2022 18:57:11 +0100 Subject: [PATCH 43/64] make icepack_warnings_getall public, snw_ssp_table=unknown, update user guide --- columnphysics/icepack_warnings.F90 | 2 +- configuration/scripts/icepack_in | 2 +- doc/source/user_guide/ug_case_settings.rst | 3 ++- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/columnphysics/icepack_warnings.F90 b/columnphysics/icepack_warnings.F90 index d8e403a60..547761afc 100644 --- a/columnphysics/icepack_warnings.F90 +++ b/columnphysics/icepack_warnings.F90 @@ -19,6 +19,7 @@ module icepack_warnings character(len=char_len_long), public :: warnstr public :: & + icepack_warnings_getall, & icepack_warnings_clear, & icepack_warnings_print, & icepack_warnings_flush, & @@ -27,7 +28,6 @@ module icepack_warnings icepack_warnings_setabort private :: & - icepack_warnings_getall, & icepack_warnings_getone !======================================================================= diff --git a/configuration/scripts/icepack_in b/configuration/scripts/icepack_in index d926688a7..85489f982 100644 --- a/configuration/scripts/icepack_in +++ b/configuration/scripts/icepack_in @@ -66,7 +66,7 @@ sw_redist = .false. sw_frac = 0.9d0 sw_dtemp = 0.02d0 - snw_ssp_table = 'test' + snw_ssp_table = 'unknown_snw_ssp_table' / &ponds_nml diff --git a/doc/source/user_guide/ug_case_settings.rst b/doc/source/user_guide/ug_case_settings.rst index 8496bde57..a3de5081d 100755 --- a/doc/source/user_guide/ug_case_settings.rst +++ b/doc/source/user_guide/ug_case_settings.rst @@ -32,6 +32,7 @@ can be found in :ref:`cicecpps`. The following CPPs are available. "NO_I8", "Converts ``integer*8`` to ``integer*4``." "NO_R16", "Converts ``real*16`` to ``real*8``." "USE_NETCDF", "Turns on netcdf capabilities in Icepack. By default and generally, Icepack does not need netcdf." + "USE_SNICARHC", "Compiles hardcoded (HC) tables needed for ``dEdd_snicar_ad``, which can lengthen the compile time considerably." "","" "**Application Macros**", "" "CESMCOUPLED", "Turns on code changes for the CESM coupled application " @@ -265,7 +266,7 @@ shortwave_nml "``shortwave``", "``ccsm3``", "NCAR CCSM3 shortwave distribution method", "``dEdd``" "", "``dEdd``", "Delta-Eddington method (3-band)", "" "", "``dEdd_snicar_ad``", "Delta-Eddington method with 5-band snow", "" - "``snw_ssp_table``", "``snicar``", "lookup table for `dEdd_snicar_ad`", "``snicar``" + "``snw_ssp_table``", "``snicar``", "lookup table for `dEdd_snicar_ad`", "" "", "``test``", "reduced lookup table for `dEdd_snicar_ad` testing", "" "``sw_dtemp``", "real", "temperature from melt for sw_redist", "0.02" "``sw_frac``", "real", "fraction of shortwave redistribution", "0.9" From b7d7c161681aecbc987d0afa1630663a9da33f12 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Fri, 23 Sep 2022 21:10:51 +0100 Subject: [PATCH 44/64] add icepack_warnings_getall to interface module --- columnphysics/icepack_intfc.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/columnphysics/icepack_intfc.F90 b/columnphysics/icepack_intfc.F90 index d68d7b481..3847d3f53 100644 --- a/columnphysics/icepack_intfc.F90 +++ b/columnphysics/icepack_intfc.F90 @@ -124,6 +124,7 @@ module icepack_intfc use icepack_warnings, only: icepack_warnings_print use icepack_warnings, only: icepack_warnings_flush use icepack_warnings, only: icepack_warnings_aborted + use icepack_warnings, only: icepack_warnings_getall !autodocument_end icepack_intfc.F90 From 64ab4a16d0872d49ed40a96f7d36a8a281fc6cf3 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Sat, 24 Sep 2022 17:56:51 -0500 Subject: [PATCH 45/64] Major cleanup of dEdd module, mainly white space and standard alignments. Also changes in precision for several constants in compute_dEdd_5bd and compute_dEdd_3bd, which might change answers in some configurations. Added new fswthru diagnostics for 5bd (not tested). Flagged rnilyr reciprocal bug and another bug in the 5-band interpolation, to be fixed separately. --- columnphysics/icepack_shortwave.F90 | 2815 +++++++++++++-------------- 1 file changed, 1394 insertions(+), 1421 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 2256abfe2..71441de2b 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -231,11 +231,11 @@ subroutine shortwave_ccsm3 (aicen, vicen, & alvdrn, alidrn, & alvdfn, alidfn, & fswsfc, fswint, & - fswthrun, & - fswthrun_vdr, & - fswthrun_vdf, & - fswthrun_idr, & - fswthrun_idf, & + fswthrun, & + fswthrun_vdr, & + fswthrun_vdf, & + fswthrun_idr, & + fswthrun_idf, & fswpenl, & Iswabs, SSwabs, & albin, albsn, & @@ -271,15 +271,15 @@ subroutine shortwave_ccsm3 (aicen, vicen, & alidfn , & ! near-ir, diffuse, avg (fraction) fswsfc , & ! SW absorbed at ice/snow surface (W m-2) fswint , & ! SW absorbed in ice interior, below surface (W m-2) - fswthrun , & ! SW through ice to ocean (W m-2) + fswthrun , & ! SW through ice to ocean (W m-2) albin , & ! bare ice albedo albsn ! snow albedo real (kind=dbl_kind), dimension (:), intent(out), optional :: & - fswthrun_vdr , & ! vis dir SW through ice to ocean (W m-2) - fswthrun_vdf , & ! vis dif SW through ice to ocean (W m-2) - fswthrun_idr , & ! nir dir SW through ice to ocean (W m-2) - fswthrun_idf ! nir dif SW through ice to ocean (W m-2) + fswthrun_vdr, & ! vis dir SW through ice to ocean (W m-2) + fswthrun_vdf, & ! vis dif SW through ice to ocean (W m-2) + fswthrun_idr, & ! nir dir SW through ice to ocean (W m-2) + fswthrun_idf ! nir dif SW through ice to ocean (W m-2) real (kind=dbl_kind), intent(inout) :: & coszen ! cosine(zenith angle) @@ -308,10 +308,10 @@ subroutine shortwave_ccsm3 (aicen, vicen, & ! needed for optional fswthrun arrays when passed as scalars real (kind=dbl_kind) :: & - l_fswthru_vdr , & ! vis dir SW through ice to ocean (W m-2) - l_fswthru_vdf , & ! vis dif SW through ice to ocean (W m-2) - l_fswthru_idr , & ! nir dir SW through ice to ocean (W m-2) - l_fswthru_idf ! nir dif SW through ice to ocean (W m-2) + l_fswthru_vdr, & ! vis dir SW through ice to ocean (W m-2) + l_fswthru_vdf, & ! vis dif SW through ice to ocean (W m-2) + l_fswthru_idr, & ! nir dir SW through ice to ocean (W m-2) + l_fswthru_idf ! nir dif SW through ice to ocean (W m-2) character(len=*),parameter :: subname='(shortwave_ccsm3)' @@ -324,7 +324,7 @@ subroutine shortwave_ccsm3 (aicen, vicen, & do n = 1, ncat - Sswabs(:,n) = c0 + Sswabs(:,n) = c0 alvdrni = albocn alidrni = albocn @@ -344,10 +344,10 @@ subroutine shortwave_ccsm3 (aicen, vicen, & albin(n) = c0 albsn(n) = c0 - fswsfc(n) = c0 - fswint(n) = c0 - fswthrun(n) = c0 - fswpenl(:,n) = c0 + fswsfc(n) = c0 + fswint(n) = c0 + fswthrun(n) = c0 + fswpenl(:,n) = c0 Iswabs (:,n) = c0 if (aicen(n) > puny) then @@ -417,20 +417,20 @@ subroutine shortwave_ccsm3 (aicen, vicen, & alidrns, alidfns, & fswsfc=fswsfc(n), & fswint=fswint(n), & - fswthru=fswthrun(n), & - fswthru_vdr=l_fswthru_vdr,& - fswthru_vdf=l_fswthru_vdf,& - fswthru_idr=l_fswthru_idr,& - fswthru_idf=l_fswthru_idf,& + fswthru=fswthrun(n), & + fswthru_vdr=l_fswthru_vdr, & + fswthru_vdf=l_fswthru_vdf, & + fswthru_idr=l_fswthru_idr, & + fswthru_idf=l_fswthru_idf, & fswpenl=fswpenl(:,n), & Iswabs=Iswabs(:,n)) if (icepack_warnings_aborted(subname)) return - if(present(fswthrun_vdr)) fswthrun_vdr(n) = l_fswthru_vdr - if(present(fswthrun_vdf)) fswthrun_vdf(n) = l_fswthru_vdf - if(present(fswthrun_idr)) fswthrun_idr(n) = l_fswthru_idr - if(present(fswthrun_idf)) fswthrun_idf(n) = l_fswthru_idf + if (present(fswthrun_vdr)) fswthrun_vdr(n) = l_fswthru_vdr + if (present(fswthrun_vdf)) fswthrun_vdf(n) = l_fswthru_vdf + if (present(fswthrun_idr)) fswthrun_idr(n) = l_fswthru_idr + if (present(fswthrun_idf)) fswthrun_idf(n) = l_fswthru_idf endif ! aicen > puny @@ -488,7 +488,7 @@ subroutine compute_albedos (aicen, vicen, & ! local variables real (kind=dbl_kind), parameter :: & - dT_melt = c1 , & ! change in temp to give dalb_mlt + dT_melt = c1 , & ! change in temp to give dalb_mlt ! albedo change dalb_mlt = -0.075_dbl_kind, & ! albedo change per dT_melt change ! in temp for ice @@ -509,8 +509,6 @@ subroutine compute_albedos (aicen, vicen, & character(len=*),parameter :: subname='(compute_albedos)' - fhtan = atan(ahmax*c4) - !----------------------------------------------------------------- ! Compute albedo for each thickness category. !----------------------------------------------------------------- @@ -519,6 +517,7 @@ subroutine compute_albedos (aicen, vicen, & hs = vsnon / aicen ! bare ice, thickness dependence + fhtan = atan(ahmax*c4) fh = min(atan(hi*c4)/fhtan,c1) albo = albocn*(c1-fh) alvdfni = albicev*fh + albo @@ -757,8 +756,8 @@ subroutine absorbed_solar (aicen, & ! Initialize !----------------------------------------------------------------- - trantop = c0 - tranbot = c0 + trantop = c0 + tranbot = c0 hs = vsnon / aicen @@ -873,13 +872,13 @@ subroutine run_dEdd(dt, & vsnon, Tsfcn, & alvln, apndn, & hpndn, ipndn, & - aeron, & + aeron, & trcrn_bgcsw, & TLAT, TLON, & calendar_type, & days_per_year, & nextsw_cday, yday, & - sec, & + sec, & swvdr, swvdf, & swidr, swidf, & coszen, fsnow, & @@ -937,15 +936,15 @@ subroutine run_dEdd(dt, & ipndn ! pond refrozen lid thickness (m) real(kind=dbl_kind), dimension(:,:), intent(in) :: & - aeron, & ! aerosols (kg/m^3) + aeron, & ! aerosols (kg/m^3) trcrn_bgcsw ! zaerosols (kg/m^3) + chlorophyll on shorthwave grid real(kind=dbl_kind), dimension(:), intent(inout) :: & - ffracn,& ! fraction of fsurfn used to melt ipond - dhsn ! depth difference for snow on sea ice and pond ice + ffracn, & ! fraction of fsurfn used to melt ipond + dhsn ! depth difference for snow on sea ice and pond ice real(kind=dbl_kind), intent(inout) :: & - coszen ! cosine solar zenith angle, < 0 for sun below horizon + coszen ! cosine solar zenith angle, < 0 for sun below horizon real(kind=dbl_kind), dimension(:), intent(inout) :: & alvdrn, & ! visible direct albedo (fraction) @@ -976,14 +975,12 @@ subroutine run_dEdd(dt, & rsnow ! snow grain radius tracer (10^-6 m) logical (kind=log_kind), intent(in) :: & - l_print_point + l_print_point ! print diagnostic information logical (kind=log_kind), optional :: & initonly ! flag to indicate init only, default is false - ! local temporary variables - - ! other local variables + ! local variables ! snow variables for Delta-Eddington shortwave real (kind=dbl_kind) :: & fsn , & ! snow horizontal fraction @@ -1014,7 +1011,6 @@ subroutine run_dEdd(dt, & hmx , & ! maximum available snow infiltration equivalent depth dhs , & ! local difference in snow depth on sea ice and pond ice spn , & ! snow depth on refrozen pond (m) - rnslyr , & ! 1/nslyr tmp ! 0 or 1 ! needed for optional fswthrun arrays when passed as scalars @@ -1025,7 +1021,7 @@ subroutine run_dEdd(dt, & l_fswthru_idf ! nir dif SW through ice to ocean (W m-2) logical (kind=log_kind) :: & - l_initonly ! local initonly value + l_initonly ! local initonly value real(kind=dbl_kind), dimension(nslyr) :: & l_rsnows ! snow grain radius tracer (10^-6 m) @@ -1058,15 +1054,15 @@ subroutine run_dEdd(dt, & hsn = c0 rhosnwn(:) = c0 rsnwn(:) = c0 - apeffn(n) = c0 ! for history - snowfracn(n) = c0 ! for history + apeffn(n) = c0 ! for history + snowfracn(n) = c0 ! for history if (aicen(n) > puny) then if (snwgrain) then l_rsnows(:) = rsnow(:,n) endif - call shortwave_dEdd_set_snow(R_snw, & + call shortwave_dEdd_set_snow(R_snw, & dT_mlt, rsnw_mlt, & aicen(n), vsnon(n), & Tsfcn(n), fsn, & @@ -1382,26 +1378,26 @@ subroutine shortwave_dEdd (coszen, & vsno ! volume of snow real (kind=dbl_kind) :: & - swdn , & ! swvdr(i,j)+swvdf(i,j)+swidr(i,j)+swidf(i,j) - swab , & ! fswsfc(i,j)+fswint(i,j)+fswthru(i,j) - swalb ! (1.-swab/(swdn+.0001)) + swdn , & ! swvdr(i,j)+swvdf(i,j)+swidr(i,j)+swidf(i,j) + swab , & ! fswsfc(i,j)+fswint(i,j)+fswthru(i,j) + swalb ! (1.-swab/(swdn+.0001)) ! for history real (kind=dbl_kind) :: & - avdrl , & ! visible, direct, albedo (fraction) - avdfl , & ! visible, diffuse, albedo (fraction) - aidrl , & ! near-ir, direct, albedo (fraction) - aidfl ! near-ir, diffuse, albedo (fraction) + avdrl , & ! visible, direct, albedo (fraction) + avdfl , & ! visible, diffuse, albedo (fraction) + aidrl , & ! near-ir, direct, albedo (fraction) + aidfl ! near-ir, diffuse, albedo (fraction) character(len=*),parameter :: subname='(shortwave_dEdd)' !----------------------------------------------------------------------- - klev = nslyr + nilyr + 1 ! number of radiation layers - 1 - klevp = klev + 1 ! number of radiation interfaces - 1 - ! (0 layer is included also) + klev = nslyr + nilyr + 1 ! number of radiation layers - 1 + klevp = klev + 1 ! number of radiation interfaces - 1 + ! (0 layer is included also) - ! zero storage albedos and fluxes for accumulation over surface types: + ! set storage albedos and fluxes to zero for accumulation over surface types hstmp = c0 hi = c0 fi = c0 @@ -1425,12 +1421,12 @@ subroutine shortwave_dEdd (coszen, & if( swidr + swidf > puny ) then fnidr = swidr/(swidr+swidf) endif - albice = c0 - albsno = c0 - albpnd = c0 + albice = c0 + albsno = c0 + albpnd = c0 fswpenl(:) = c0 - Sswabs(:) = c0 - Iswabs(:) = c0 + Sswabs (:) = c0 + Iswabs (:) = c0 ! compute aerosol mass path @@ -1471,26 +1467,20 @@ subroutine shortwave_dEdd (coszen, & srftyp = 0 call compute_dEdd_3bd( & - klev, klevp, zbio, & - fnidr, coszen, & - swvdr, swvdf, swidr, swidf, srftyp, & - hstmp, rhosnw, rsnw, hi, hp, & - fi, aero_mp, avdrl, avdfl, & - aidrl, aidfl, & - fswsfc, fswint, & - fswthru, & - fswthru_vdr, & - fswthru_vdf, & - fswthru_idr, & - fswthru_idf, & - Sswabs, & - Iswabs, fswpenl ) + klev, klevp, zbio, fnidr, coszen, & + swvdr, swvdf, swidr, swidf, srftyp, & + hstmp, rhosnw, rsnw, hi, hp, & + fi, aero_mp, avdrl, avdfl, & + aidrl, aidfl, fswsfc, fswint, fswthru, & + fswthru_vdr, fswthru_vdf, & + fswthru_idr, fswthru_idf, & + Sswabs, Iswabs, fswpenl ) if (icepack_warnings_aborted(subname)) return - alvdr = alvdr + avdrl *fi - alvdf = alvdf + avdfl *fi - alidr = alidr + aidrl *fi - alidf = alidf + aidfl *fi + alvdr = alvdr + avdrl*fi + alvdf = alvdf + avdfl*fi + alidr = alidr + aidrl*fi + alidf = alidf + aidfl*fi ! for history albice = albice & + awtvdr*avdrl + awtidr*aidrl & @@ -1508,41 +1498,34 @@ subroutine shortwave_dEdd (coszen, & srftyp = 1 if (trim(shortwave) == 'dEdd_snicar_ad') then - call compute_dEdd_5bd(klev, klevp, & - zbio, & - fnidr, coszen, & - swvdr, swvdf, swidr, swidf, srftyp, & - hs, rhosnw, rsnw, hi, hp, & - fs, aero_mp, avdrl, avdfl, & - aidrl, aidfl, & - fswsfc, fswint, & - fswthru, Sswabs, & - Iswabs, fswpenl ) + call compute_dEdd_5bd( & + klev, klevp, zbio, fnidr, coszen, & + swvdr, swvdf, swidr, swidf, srftyp, & + hs, rhosnw, rsnw, hi, hp, & + fs, aero_mp, avdrl, avdfl, & + aidrl, aidfl, fswsfc, fswint, fswthru, & + fswthru_vdr, fswthru_vdf, & + fswthru_idr, fswthru_idf, & + Sswabs, Iswabs, fswpenl ) else !echmod - this can be combined with the 5bd call above, if we use module data - call compute_dEdd_3bd( & - klev, klevp, zbio, & - fnidr, coszen, & - swvdr, swvdf, swidr, swidf, srftyp, & - hs, rhosnw, rsnw, hi, hp, & - fs, aero_mp, avdrl, avdfl, & - aidrl, aidfl, & - fswsfc, fswint, & - fswthru, & - fswthru_vdr, & - fswthru_vdf, & - fswthru_idr, & - fswthru_idf, & - Sswabs, & - Iswabs, fswpenl ) + call compute_dEdd_3bd( & + klev, klevp, zbio, fnidr, coszen, & + swvdr, swvdf, swidr, swidf, srftyp, & + hs, rhosnw, rsnw, hi, hp, & + fs, aero_mp, avdrl, avdfl, & + aidrl, aidfl, fswsfc, fswint, fswthru, & + fswthru_vdr, fswthru_vdf, & + fswthru_idr, fswthru_idf, & + Sswabs, Iswabs, fswpenl ) endif if (icepack_warnings_aborted(subname)) return - alvdr = alvdr + avdrl *fs - alvdf = alvdf + avdfl *fs - alidr = alidr + aidrl *fs - alidf = alidf + aidfl *fs + alvdr = alvdr + avdrl*fs + alvdf = alvdf + avdfl*fs + alidr = alidr + aidrl*fs + alidf = alidf + aidfl*fs ! for history albsno = albsno & + awtvdr*avdrl + awtidr*aidrl & @@ -1564,27 +1547,21 @@ subroutine shortwave_dEdd (coszen, & ! calculate ponded ice srftyp = 2 - call compute_dEdd_3bd( & - klev, klevp, zbio, & - fnidr, coszen, & - swvdr, swvdf, swidr, swidf, srftyp, & - hs, rhosnw, rsnw, hi, hp, & - fp, aero_mp, avdrl, avdfl, & - aidrl, aidfl, & - fswsfc, fswint, & - fswthru, & - fswthru_vdr, & - fswthru_vdf, & - fswthru_idr, & - fswthru_idf, & - Sswabs, & - Iswabs, fswpenl ) + call compute_dEdd_3bd( & + klev, klevp, zbio, fnidr, coszen, & + swvdr, swvdf, swidr, swidf, srftyp, & + hs, rhosnw, rsnw, hi, hp, & + fp, aero_mp, avdrl, avdfl, & + aidrl, aidfl, fswsfc, fswint, fswthru, & + fswthru_vdr, fswthru_vdf, & + fswthru_idr, fswthru_idf, & + Sswabs, Iswabs, fswpenl ) if (icepack_warnings_aborted(subname)) return - alvdr = alvdr + avdrl *fp - alvdf = alvdf + avdfl *fp - alidr = alidr + aidrl *fp - alidf = alidf + aidfl *fp + alvdr = alvdr + avdrl*fp + alvdf = alvdf + avdfl*fp + alidr = alidr + aidrl*fp + alidf = alidf + aidfl*fp ! for history albpnd = albpnd & + awtvdr*avdrl + awtidr*aidrl & @@ -1680,21 +1657,15 @@ end subroutine shortwave_dEdd ! 2013: E Hunke merged with NCAR version ! 2022: E Hunke, T Craig moved data (now module data) - subroutine compute_dEdd_3bd( & - klev, klevp, zbio, & - fnidr, coszen, & - swvdr, swvdf, swidr, swidf, srftyp, & - hs, rhosnw, rsnw, hi, hp, & - fi, aero_mp, alvdr, alvdf, & - alidr, alidf, & - fswsfc, fswint, & - fswthru, & - fswthru_vdr, & - fswthru_vdf, & - fswthru_idr, & - fswthru_idf, & - Sswabs, & - Iswabs, fswpenl ) + subroutine compute_dEdd_3bd( & + klev, klevp, zbio, fnidr, coszen, & + swvdr, swvdf, swidr, swidf, srftyp, & + hs, rhosnw, rsnw, hi, hp, & + fi, aero_mp, alvdr, alvdf, & + alidr, alidf, fswsfc, fswint, fswthru, & + fswthru_vdr, fswthru_vdf, & + fswthru_idr, fswthru_idf, & + Sswabs, Iswabs, fswpenl ) integer (kind=int_kind), intent(in) :: & klev , & ! number of radiation layers - 1 @@ -1702,49 +1673,49 @@ subroutine compute_dEdd_3bd( & ! (0 layer is included also) real (kind=dbl_kind), intent(in) :: & - fnidr , & ! fraction of direct to total down flux in nir - coszen , & ! cosine solar zenith angle - swvdr , & ! shortwave down at surface, visible, direct (W/m^2) - swvdf , & ! shortwave down at surface, visible, diffuse (W/m^2) - swidr , & ! shortwave down at surface, near IR, direct (W/m^2) - swidf ! shortwave down at surface, near IR, diffuse (W/m^2) + fnidr , & ! fraction of direct to total down flux in nir + coszen, & ! cosine solar zenith angle + swvdr , & ! shortwave down at surface, visible, direct (W/m^2) + swvdf , & ! shortwave down at surface, visible, diffuse (W/m^2) + swidr , & ! shortwave down at surface, near IR, direct (W/m^2) + swidf ! shortwave down at surface, near IR, diffuse (W/m^2) integer (kind=int_kind), intent(in) :: & - srftyp ! surface type over ice: (0=air, 1=snow, 2=pond) + srftyp ! surface type over ice: (0=air, 1=snow, 2=pond) real (kind=dbl_kind), intent(in) :: & - hs ! snow thickness (m) + hs ! snow thickness (m) real (kind=dbl_kind), dimension (:), intent(in) :: & - rhosnw , & ! snow density in snow layer (kg/m3) - rsnw , & ! snow grain radius in snow layer (m) - zbio , & ! zaerosol + chla shortwave tracers kg/m^3 - aero_mp ! aerosol mass path in kg/m2 + rhosnw, & ! snow density in snow layer (kg/m3) + rsnw , & ! snow grain radius in snow layer (m) + zbio , & ! zaerosol + chla shortwave tracers kg/m^3 + aero_mp ! aerosol mass path in kg/m2 real (kind=dbl_kind), intent(in) :: & - hi , & ! ice thickness (m) - hp , & ! pond depth (m) - fi ! snow/bare ice fractional coverage (0 to 1) + hi , & ! ice thickness (m) + hp , & ! pond depth (m) + fi ! snow/bare ice fractional coverage (0 to 1) real (kind=dbl_kind), intent(inout) :: & - alvdr , & ! visible, direct, albedo (fraction) - alvdf , & ! visible, diffuse, albedo (fraction) - alidr , & ! near-ir, direct, albedo (fraction) - alidf , & ! near-ir, diffuse, albedo (fraction) - fswsfc , & ! SW absorbed at snow/bare ice/pondedi ice surface (W m-2) - fswint , & ! SW interior absorption (below surface, above ocean,W m-2) - fswthru ! SW through snow/bare ice/ponded ice into ocean (W m-2) + alvdr , & ! visible, direct, albedo (fraction) + alvdf , & ! visible, diffuse, albedo (fraction) + alidr , & ! near-ir, direct, albedo (fraction) + alidf , & ! near-ir, diffuse, albedo (fraction) + fswsfc, & ! SW absorbed at snow/bare ice/pondedi ice surface (W m-2) + fswint, & ! SW interior absorption (below surface, above ocean,W m-2) + fswthru ! SW through snow/bare ice/ponded ice into ocean (W m-2) real (kind=dbl_kind), intent(inout) :: & - fswthru_vdr , & ! vis dir SW through snow/bare ice/ponded ice into ocean (W m-2) - fswthru_vdf , & ! vis dif SW through snow/bare ice/ponded ice into ocean (W m-2) - fswthru_idr , & ! nir dir SW through snow/bare ice/ponded ice into ocean (W m-2) - fswthru_idf ! nir dif SW through snow/bare ice/ponded ice into ocean (W m-2) + fswthru_vdr, & ! vis dir SW through snow/bare ice/ponded ice into ocean (W m-2) + fswthru_vdf, & ! vis dif SW through snow/bare ice/ponded ice into ocean (W m-2) + fswthru_idr, & ! nir dir SW through snow/bare ice/ponded ice into ocean (W m-2) + fswthru_idf ! nir dif SW through snow/bare ice/ponded ice into ocean (W m-2) real (kind=dbl_kind), dimension (:), intent(inout) :: & - fswpenl , & ! visible SW entering ice layers (W m-2) - Sswabs , & ! SW absorbed in snow layer (W m-2) - Iswabs ! SW absorbed in ice layer (W m-2) + fswpenl, & ! visible SW entering ice layers (W m-2) + Sswabs , & ! SW absorbed in snow layer (W m-2) + Iswabs ! SW absorbed in ice layer (W m-2) !----------------------------------------------------------------------- ! @@ -1886,12 +1857,12 @@ subroutine compute_dEdd_3bd( & fthrul ! shortwave through to ice layers (W m-2) real (kind=dbl_kind), dimension (nspint_3bd) :: & - wghtns ! spectral weights + wghtns ! spectral weights real (kind=dbl_kind), parameter :: & - cp67 = 0.67_dbl_kind , & ! nir band weight parameter - cp78 = 0.78_dbl_kind , & ! nir band weight parameter - cp01 = 0.01_dbl_kind ! for ocean visible albedo + cp67 = 0.67_dbl_kind, & ! nir band weight parameter + cp78 = 0.78_dbl_kind, & ! nir band weight parameter + cp01 = 0.01_dbl_kind ! for ocean visible albedo real (kind=dbl_kind), dimension (0:klev) :: & tau , & ! layer extinction optical depth @@ -1927,53 +1898,54 @@ subroutine compute_dEdd_3bd( & ! ice and ponded ice IOPs, allowing for tuning ! modifications of the above "_mn" value real (kind=dbl_kind), dimension (nspint_3bd) :: & - ki_ssl , & ! Surface-scattering-layer ice extinction coefficient (/m) - wi_ssl , & ! Surface-scattering-layer ice single scattering albedo - gi_ssl , & ! Surface-scattering-layer ice asymmetry parameter - ki_dl , & ! Drained-layer ice extinction coefficient (/m) - wi_dl , & ! Drained-layer ice single scattering albedo - gi_dl , & ! Drained-layer ice asymmetry parameter - ki_int , & ! Interior-layer ice extinction coefficient (/m) - wi_int , & ! Interior-layer ice single scattering albedo - gi_int , & ! Interior-layer ice asymmetry parameter - ki_p_ssl , & ! Ice under pond srf scat layer extinction coefficient (/m) - wi_p_ssl , & ! Ice under pond srf scat layer single scattering albedo - gi_p_ssl , & ! Ice under pond srf scat layer asymmetry parameter - ki_p_int , & ! Ice under pond extinction coefficient (/m) - wi_p_int , & ! Ice under pond single scattering albedo - gi_p_int ! Ice under pond asymmetry parameter + ki_ssl , & ! Surface-scattering-layer ice extinction coefficient (/m) + wi_ssl , & ! Surface-scattering-layer ice single scattering albedo + gi_ssl , & ! Surface-scattering-layer ice asymmetry parameter + ki_dl , & ! Drained-layer ice extinction coefficient (/m) + wi_dl , & ! Drained-layer ice single scattering albedo + gi_dl , & ! Drained-layer ice asymmetry parameter + ki_int , & ! Interior-layer ice extinction coefficient (/m) + wi_int , & ! Interior-layer ice single scattering albedo + gi_int , & ! Interior-layer ice asymmetry parameter + ki_p_ssl, & ! Ice under pond srf scat layer extinction coefficient (/m) + wi_p_ssl, & ! Ice under pond srf scat layer single scattering albedo + gi_p_ssl, & ! Ice under pond srf scat layer asymmetry parameter + ki_p_int, & ! Ice under pond extinction coefficient (/m) + wi_p_int, & ! Ice under pond single scattering albedo + gi_p_int ! Ice under pond asymmetry parameter real (kind=dbl_kind), dimension(0:klev) :: & - dzk ! layer thickness + dzk ! layer thickness real (kind=dbl_kind) :: & - dz , & ! snow, sea ice or pond water layer thickness - dz_ssl , & ! snow or sea ice surface scattering layer thickness - fs ! scaling factor to reduce (nilyr<4) or increase (nilyr>4) DL - ! extinction coefficient to maintain DL optical depth constant - ! with changing number of sea ice layers, to approximately - ! conserve computed albedo for constant physical depth of sea - ! ice when the number of sea ice layers vary + dz , & ! snow, sea ice or pond water layer thickness + dz_ssl , & ! snow or sea ice surface scattering layer thickness + fs ! scaling factor to reduce (nilyr<4) or increase (nilyr>4) DL + ! extinction coefficient to maintain DL optical depth constant + ! with changing number of sea ice layers, to approximately + ! conserve computed albedo for constant physical depth of sea + ! ice when the number of sea ice layers vary + real (kind=dbl_kind) :: & - sig , & ! scattering coefficient for tuning - kabs , & ! absorption coefficient for tuning - sigp ! modified scattering coefficient for tuning + sig , & ! scattering coefficient for tuning + kabs , & ! absorption coefficient for tuning + sigp ! modified scattering coefficient for tuning real (kind=dbl_kind), dimension(nspint_3bd, 0:klev) :: & - kabs_chl , & ! absorption coefficient for chlorophyll (/m) - tzaer , & ! total aerosol extinction optical depth - wzaer , & ! total aerosol single scatter albedo - gzaer ! total aerosol asymmetry parameter + kabs_chl, & ! absorption coefficient for chlorophyll (/m) + tzaer , & ! total aerosol extinction optical depth + wzaer , & ! total aerosol single scatter albedo + gzaer ! total aerosol asymmetry parameter real (kind=dbl_kind) :: & - albodr , & ! spectral ocean albedo to direct rad - albodf ! spectral ocean albedo to diffuse rad + albodr , & ! spectral ocean albedo to direct rad + albodf ! spectral ocean albedo to diffuse rad ! for melt pond transition to bare sea ice for small pond depths real (kind=dbl_kind) :: & - sig_i , & ! ice scattering coefficient (/m) - sig_p , & ! pond scattering coefficient (/m) - kext ! weighted extinction coefficient (/m) + sig_i , & ! ice scattering coefficient (/m) + sig_p , & ! pond scattering coefficient (/m) + kext ! weighted extinction coefficient (/m) ! aerosol optical properties from Mark Flanner, 26 June 2008 ! order assumed: hydrophobic black carbon, hydrophilic black carbon, @@ -1984,26 +1956,26 @@ subroutine compute_dEdd_3bd( & ! and 1.19-5.0 micron in wavelength) integer (kind=int_kind) :: & - na , n ! aerosol index + na , n ! aerosol index real (kind=dbl_kind) :: & - taer , & ! total aerosol extinction optical depth - waer , & ! total aerosol single scatter albedo - gaer , & ! total aerosol asymmetry parameter - swdr , & ! shortwave down at surface, direct (W/m^2) - swdf , & ! shortwave down at surface, diffuse (W/m^2) - rnilyr , & ! real(nilyr) - rnslyr , & ! real(nslyr) - rns , & ! real(ns) - tmp_0, tmp_ks, tmp_kl ! temp variables + taer , & ! total aerosol extinction optical depth + waer , & ! total aerosol single scatter albedo + gaer , & ! total aerosol asymmetry parameter + swdr , & ! shortwave down at surface, direct (W/m^2) + swdf , & ! shortwave down at surface, diffuse (W/m^2) + rnilyr , & ! 1/real(nilyr) + rnslyr , & ! 1/real(nslyr) + rns , & ! real(ns) + tmp_0, tmp_ks, tmp_kl ! temporary variables integer(kind=int_kind), dimension(0:klev) :: & - k_bcini , & ! index - k_bcins , & - k_bcexs + k_bcini , & ! index + k_bcins , & ! = 2 hardwired + k_bcexs ! = 2 hardwired real(kind=dbl_kind):: & - tmp_gs, tmp1 ! temp variables + tmp_gs, tmp1 ! temporary variables real (kind=dbl_kind), parameter :: & fr_max = 1.00_dbl_kind, & ! snow grain adjustment factor max @@ -2015,13 +1987,13 @@ subroutine compute_dEdd_3bd( & fp_pnd = 2.00_dbl_kind, & ! ponded ice fraction of scat coeff for + stn dev in alb fm_pnd = 0.50_dbl_kind ! ponded ice fraction of scat coeff for - stn dev in alb - real (kind=dbl_kind), parameter :: & !chla-specific absorption coefficient - kchl_tab = 0.01 !0.0023-0.0029 Perovich 1993, also 0.0067 m^2 (mg Chl)^-1 - ! found values of 0.006 to 0.023 m^2/ mg (676 nm) Neukermans 2014 - ! and averages over the 300-700nm of 0.0075 m^2/mg in ice Fritsen (2011) - ! at 440nm values as high as 0.2 m^2/mg in under ice bloom (Balch 2014) - ! Grenfell 1991 uses 0.004 (m^2/mg) which is (0.0078 * spectral weighting) - !chlorophyll mass extinction cross section (m^2/mg chla) + real (kind=dbl_kind), parameter :: & ! chla-specific absorption coefficient + kchl_tab = p01 ! 0.0023-0.0029 Perovich 1993, also 0.0067 m^2 (mg Chl)^-1 + ! found values of 0.006 to 0.023 m^2/ mg (676 nm) Neukermans 2014 + ! and averages over the 300-700nm of 0.0075 m^2/mg in ice Fritsen (2011) + ! at 440nm values as high as 0.2 m^2/mg in under ice bloom (Balch 2014) + ! Grenfell 1991 uses 0.004 (m^2/mg) which is (0.0078 * spectral weighting) + ! chlorophyll mass extinction cross section (m^2/mg chla) character(len=*),parameter :: subname='(compute_dEdd_3bd)' @@ -2037,24 +2009,24 @@ subroutine compute_dEdd_3bd( & kii = nslyr + 1 ! initialize albedos and fluxes to 0 - fthrul = c0 - Iabs = c0 + fthrul = c0 + Iabs = c0 kabs_chl(:,:) = c0 - tzaer(:,:) = c0 - wzaer(:,:) = c0 - gzaer(:,:) = c0 - - avdr = c0 - avdf = c0 - aidr = c0 - aidf = c0 - fsfc = c0 - fint = c0 - fthru = c0 - fthruvdr = c0 - fthruvdf = c0 - fthruidr = c0 - fthruidf = c0 + tzaer (:,:) = c0 + wzaer (:,:) = c0 + gzaer (:,:) = c0 + + avdr = c0 + avdf = c0 + aidr = c0 + aidf = c0 + fsfc = c0 + fint = c0 + fthru = c0 + fthruvdr = c0 + fthruvdf = c0 + fthruidr = c0 + fthruidf = c0 ! spectral weights 2 (0.7-1.19 micro-meters) and 3 (1.19-5.0 micro-meters) ! are chosen based on 1D calculations using ratio of direct to total @@ -2200,108 +2172,123 @@ subroutine compute_dEdd_3bd( & ! aerosols if (modal_aero) then - do k=0,klev - if (k < nslyr+1) then ! define indices for snow layer - ! use top rsnw, rhosnw for snow ssl and rest of top layer - ! Cheng: note that aerosol IOPs are related to snow grain radius. - ! CICE adjusted snow grain radius rsnw to frsnw in the original 3-band - ! scheme, while for SNICAR the snow grain radius is used directly. - ksnow = k - min(k-1,0) - tmp_gs = frsnw(ksnow) - - ! grain size index - if (tmp_gs < 125._dbl_kind) then - tmp1 = tmp_gs/50._dbl_kind - k_bcini(k) = nint(tmp1) - elseif (tmp_gs < 175._dbl_kind) then - k_bcini(k) = 2 - else - tmp1 = (tmp_gs/250._dbl_kind) + c2 - k_bcini(k) = nint(tmp1) - endif - else ! use the largest snow grain size for ice - k_bcini(k) = 8 - endif - ! Set index corresponding to BC effective radius. Here, - ! asssume constant BC effective radius of 100nm - ! (corresponding to index 2) - k_bcins(k) = 2 - k_bcexs(k) = 2 - - ! check bounds: - if (k_bcini(k) < 1) k_bcini(k) = 1 - if (k_bcini(k) > 8) k_bcini(k) = 8 - if (k_bcins(k) < 1) k_bcins(k) = 1 - if (k_bcins(k) > 10) k_bcins(k) = 10 - if (k_bcexs(k) < 1) k_bcexs(k) = 1 - if (k_bcexs(k) > 10) k_bcexs(k) = 10 - - ! print ice radius index: - ! write(warnstr,*) subname, "MGFICE2:k, ice index= ",k, k_bcini(k) - ! call icepack_warnings_add(warnstr) - enddo ! k - - if (tr_zaero .and. dEdd_algae) then ! compute kzaero for chlorophyll - do n = 1,n_zaero - if (n == 1) then ! interstitial BC - do k = 0, klev - do ns = 1,nspint_3bd ! not weighted by aice - tzaer(ns,k) = tzaer(ns,k)+kaer_bc_3bd(ns,k_bcexs(k))* & - zbio(nlt_zaero_sw(n)+k)*dzk(k) - wzaer(ns,k) = wzaer(ns,k)+kaer_bc_3bd(ns,k_bcexs(k))* & - waer_bc_3bd(ns,k_bcexs(k))* & - zbio(nlt_zaero_sw(n)+k)*dzk(k) - gzaer(ns,k) = gzaer(ns,k)+kaer_bc_3bd(ns,k_bcexs(k))* & - waer_bc_3bd(ns,k_bcexs(k))* & - gaer_bc_3bd(ns,k_bcexs(k))*zbio(nlt_zaero_sw(n)+k)*dzk(k) - enddo ! nspint - enddo - elseif (n==2) then ! within-ice BC - do k = 0, klev - do ns = 1,nspint_3bd - tzaer(ns,k) = tzaer(ns,k)+kaer_bc_3bd(ns,k_bcins(k)) * & - bcenh_3bd(ns,k_bcins(k),k_bcini(k))* & - zbio(nlt_zaero_sw(n)+k)*dzk(k) - wzaer(ns,k) = wzaer(ns,k)+kaer_bc_3bd(ns,k_bcins(k))* & - waer_bc_3bd(ns,k_bcins(k))* & - zbio(nlt_zaero_sw(n)+k)*dzk(k) - gzaer(ns,k) = gzaer(ns,k)+kaer_bc_3bd(ns,k_bcins(k))* & - waer_bc_3bd(ns,k_bcins(k))* & - gaer_bc_3bd(ns,k_bcins(k))*zbio(nlt_zaero_sw(n)+k)*dzk(k) - enddo ! nspint - enddo - else ! dust - do k = 0, klev + do k = 0, klev + if (k < nslyr+1) then ! define indices for snow layer + ! use top rsnw, rhosnw for snow ssl and rest of top layer + ! Cheng: note that aerosol IOPs are related to snow grain radius. + ! CICE adjusted snow grain radius rsnw to frsnw in the original 3-band + ! scheme, while for SNICAR the snow grain radius is used directly. + ksnow = k - min(k-1,0) + tmp_gs = frsnw(ksnow) + + ! grain size index + if (tmp_gs < 125._dbl_kind) then + tmp1 = tmp_gs/50._dbl_kind + k_bcini(k) = nint(tmp1) + elseif (tmp_gs < 175._dbl_kind) then + k_bcini(k) = 2 + else + tmp1 = (tmp_gs/250._dbl_kind) + c2 + k_bcini(k) = nint(tmp1) + endif + else ! use the largest snow grain size for ice + k_bcini(k) = 8 + endif + ! Set index corresponding to BC effective radius. Here, + ! asssume constant BC effective radius of 100nm + ! (corresponding to index 2) + k_bcins(k) = 2 ! hardwired + k_bcexs(k) = 2 + + ! check bounds + if (k_bcini(k) < 1) k_bcini(k) = 1 + if (k_bcini(k) > 8) k_bcini(k) = 8 +! if (k_bcins(k) < 1) k_bcins(k) = 1 ! hardwired +! if (k_bcins(k) > 10) k_bcins(k) = 10 +! if (k_bcexs(k) < 1) k_bcexs(k) = 1 +! if (k_bcexs(k) > 10) k_bcexs(k) = 10 + enddo ! k + + if (tr_zaero .and. dEdd_algae) then ! compute kzaero for chlorophyll + do n = 1, n_zaero + if (n == 1) then ! interstitial BC + do k = 0, klev + do ns = 1, nspint_3bd ! not weighted by aice + tzaer(ns,k) = tzaer (ns,k) & + + kaer_bc_3bd(ns,k_bcexs(k)) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + wzaer(ns,k) = wzaer (ns,k) & + + kaer_bc_3bd(ns,k_bcexs(k)) & + * waer_bc_3bd(ns,k_bcexs(k)) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + gzaer(ns,k) = gzaer (ns,k) & + + kaer_bc_3bd(ns,k_bcexs(k)) & + * waer_bc_3bd(ns,k_bcexs(k)) & + * gaer_bc_3bd(ns,k_bcexs(k)) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + enddo + enddo + elseif (n==2) then ! within-ice BC + do k = 0, klev + do ns = 1, nspint_3bd + tzaer(ns,k) = tzaer (ns,k) & + + kaer_bc_3bd(ns,k_bcins(k)) & + * bcenh_3bd(ns,k_bcins(k),k_bcini(k)) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + wzaer(ns,k) = wzaer (ns,k) & + + kaer_bc_3bd(ns,k_bcins(k)) & + * waer_bc_3bd(ns,k_bcins(k)) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + gzaer(ns,k) = gzaer (ns,k) & + + kaer_bc_3bd(ns,k_bcins(k)) & + * waer_bc_3bd(ns,k_bcins(k)) & + * gaer_bc_3bd(ns,k_bcins(k)) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + enddo + enddo + else ! dust + do k = 0, klev do ns = 1,nspint_3bd ! not weighted by aice - tzaer(ns,k) = tzaer(ns,k)+kaer_3bd(ns,n)* & - zbio(nlt_zaero_sw(n)+k)*dzk(k) - wzaer(ns,k) = wzaer(ns,k)+kaer_3bd(ns,n)*waer_3bd(ns,n)* & - zbio(nlt_zaero_sw(n)+k)*dzk(k) - gzaer(ns,k) = gzaer(ns,k)+kaer_3bd(ns,n)*waer_3bd(ns,n)* & - gaer_3bd(ns,n)*zbio(nlt_zaero_sw(n)+k)*dzk(k) + tzaer(ns,k) = tzaer (ns,k) & + + kaer_3bd(ns,n) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + wzaer(ns,k) = wzaer (ns,k) & + + kaer_3bd(ns,n) & + * waer_3bd(ns,n) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + gzaer(ns,k) = gzaer (ns,k) & + + kaer_3bd(ns,n) & + * waer_3bd(ns,n) & + * gaer_3bd(ns,n) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) enddo ! nspint - enddo - endif !(n=1) + enddo ! k + endif ! n enddo ! n_zaero endif ! tr_zaero and dEdd_algae - else ! Bulk aerosol treatment - if (tr_zaero .and. dEdd_algae) then ! compute kzaero for chlorophyll - do n = 1,n_zaero ! multiply by aice? + else ! Bulk aerosol treatment + if (tr_zaero .and. dEdd_algae) then ! compute kzaero for chlorophyll + do n = 1, n_zaero ! multiply by aice? do k = 0, klev - do ns = 1,nspint_3bd ! not weighted by aice - tzaer(ns,k) = tzaer(ns,k)+kaer_3bd(ns,n)* & - zbio(nlt_zaero_sw(n)+k)*dzk(k) - wzaer(ns,k) = wzaer(ns,k)+kaer_3bd(ns,n)*waer_3bd(ns,n)* & - zbio(nlt_zaero_sw(n)+k)*dzk(k) - gzaer(ns,k) = gzaer(ns,k)+kaer_3bd(ns,n)*waer_3bd(ns,n)* & - gaer_3bd(ns,n)*zbio(nlt_zaero_sw(n)+k)*dzk(k) - enddo ! nspint - enddo - enddo - endif !tr_zaero - - endif ! modal_aero + do ns = 1, nspint_3bd ! not weighted by aice + tzaer(ns,k) = tzaer (ns,k) & + + kaer_3bd(ns,n) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + wzaer(ns,k) = wzaer (ns,k) & + + kaer_3bd(ns,n) & + * waer_3bd(ns,n) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + gzaer(ns,k) = gzaer (ns,k) & + + kaer_3bd(ns,n) & + * waer_3bd(ns,n) & + * gaer_3bd(ns,n) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + enddo ! nspint + enddo ! k + enddo ! n + endif ! tr_zaero + endif ! modal_aero !----------------------------------------------------------------------- @@ -2311,42 +2298,42 @@ subroutine compute_dEdd_3bd( & ! set optical properties of air/snow/pond overlying sea ice ! air - if( srftyp == 0 ) then + if (srftyp == 0 ) then do k=0,nslyr tau(k) = c0 w0(k) = c0 g(k) = c0 enddo ! snow - else if( srftyp == 1 ) then + elseif (srftyp == 1 ) then ! interpolate snow iops using input snow grain radius, ! snow density and tabular data - do k=0,nslyr + do k = 0, nslyr ! use top rsnw, rhosnw for snow ssl and rest of top layer ksnow = k - min(k-1,0) ! find snow iops using input snow density and snow grain radius: - if( frsnw(ksnow) < rsnw_tab(1) ) then - Qs = Qs_tab(ns,1) - ws = ws_tab(ns,1) - gs = gs_tab(ns,1) - else if( frsnw(ksnow) >= rsnw_tab(nmbrad_snw) ) then - Qs = Qs_tab(ns,nmbrad_snw) - ws = ws_tab(ns,nmbrad_snw) - gs = gs_tab(ns,nmbrad_snw) + if (frsnw(ksnow) < rsnw_tab(1)) then + Qs = Qs_tab(ns,1) + ws = ws_tab(ns,1) + gs = gs_tab(ns,1) + elseif (frsnw(ksnow) >= rsnw_tab(nmbrad_snw)) then + Qs = Qs_tab(ns,nmbrad_snw) + ws = ws_tab(ns,nmbrad_snw) + gs = gs_tab(ns,nmbrad_snw) else ! linear interpolation in rsnw - do nr=2,nmbrad_snw - if( rsnw_tab(nr-1) <= frsnw(ksnow) .and. & + do nr = 2, nmbrad_snw + if (rsnw_tab(nr-1) <= frsnw(ksnow) .and. & frsnw(ksnow) < rsnw_tab(nr)) then delr = (frsnw(ksnow) - rsnw_tab(nr-1)) / & (rsnw_tab(nr) - rsnw_tab(nr-1)) Qs = Qs_tab(ns,nr-1)*(c1-delr) + & - Qs_tab(ns,nr)*delr + Qs_tab(ns,nr )* delr ws = ws_tab(ns,nr-1)*(c1-delr) + & - ws_tab(ns,nr)*delr + ws_tab(ns,nr )* delr gs = gs_tab(ns,nr-1)*(c1-delr) + & - gs_tab(ns,nr)*delr + gs_tab(ns,nr )* delr endif enddo ! nr endif @@ -2354,8 +2341,8 @@ subroutine compute_dEdd_3bd( & (4._dbl_kind*frsnw(ksnow)*1.0e-6_dbl_kind)) tau(k) = (ks + kabs_chl(ns,k))*dzk(k) - w0(k) = ks/(ks + kabs_chl(ns,k)) *ws - g(k) = gs + w0 (k) = ks/(ks + kabs_chl(ns,k)) * ws + g (k) = gs enddo ! k ! aerosol in snow @@ -2373,7 +2360,7 @@ subroutine compute_dEdd_3bd( & waer = c0 gaer = c0 - do na=1,4*n_aero,4 + do na = 1, 4*n_aero, 4 if (modal_aero) then if (na == 1) then ! interstitial BC taer = taer + aero_mp(na)*kaer_bc_3bd(ns,k_bcexs(k)) @@ -2383,13 +2370,13 @@ subroutine compute_dEdd_3bd( & *waer_bc_3bd(ns,k_bcexs(k)) & *gaer_bc_3bd(ns,k_bcexs(k)) elseif (na == 5) then ! within-ice BC - taer = taer + aero_mp(na)*kaer_bc_3bd(ns,k_bcins(k)) & - *bcenh_3bd(ns,k_bcins(k),k_bcini(k)) - waer = waer + aero_mp(na)*kaer_bc_3bd(ns,k_bcins(k)) & - *waer_bc_3bd(ns,k_bcins(k)) - gaer = gaer + aero_mp(na)*kaer_bc_3bd(ns,k_bcins(k)) & - *waer_bc_3bd(ns,k_bcins(k)) & - *gaer_bc_3bd(ns,k_bcins(k)) + taer = taer + aero_mp(na)*kaer_bc_3bd(ns,k_bcins(k)) & + * bcenh_3bd(ns,k_bcins(k),k_bcini(k)) + waer = waer + aero_mp(na)*kaer_bc_3bd(ns,k_bcins(k)) & + *waer_bc_3bd(ns,k_bcins(k)) + gaer = gaer + aero_mp(na)*kaer_bc_3bd(ns,k_bcins(k)) & + *waer_bc_3bd(ns,k_bcins(k)) & + *gaer_bc_3bd(ns,k_bcins(k)) else ! other species (dust) taer = taer + aero_mp(na)*kaer_3bd(ns,(1+(na-1)/4)) waer = waer + aero_mp(na)*kaer_3bd(ns,(1+(na-1)/4)) & @@ -2405,65 +2392,66 @@ subroutine compute_dEdd_3bd( & gaer = gaer + aero_mp(na)*kaer_3bd(ns,(1+(na-1)/4)) & *waer_3bd(ns,(1+(na-1)/4)) & *gaer_3bd(ns,(1+(na-1)/4)) - endif !modal_aero - enddo ! na + endif ! modal_aero + enddo ! na gaer = gaer/(waer+puny) waer = waer/(taer+puny) ! tcraig, why does the above section exist if taer=waer=gaer=0 below - do k=1,nslyr + do k = 1, nslyr taer = c0 waer = c0 gaer = c0 - do na=1,4*n_aero,4 + do na = 1, 4*n_aero, 4 if (modal_aero) then - if (na==1) then ! interstitial BC - taer = taer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_3bd(ns,k_bcexs(k)) - waer = waer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_3bd(ns,k_bcexs(k))* & - waer_bc_3bd(ns,k_bcexs(k)) - gaer = gaer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_3bd(ns,k_bcexs(k))* & - waer_bc_3bd(ns,k_bcexs(k))*gaer_bc_3bd(ns,k_bcexs(k)) - elseif (na==5) then ! within-ice BC - taer = taer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_3bd(ns,k_bcins(k))*& - bcenh_3bd(ns,k_bcins(k),k_bcini(k)) - waer = waer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_3bd(ns,k_bcins(k))* & - waer_bc_3bd(ns,k_bcins(k)) - gaer = gaer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_3bd(ns,k_bcins(k))* & - waer_bc_3bd(ns,k_bcins(k))*gaer_bc_3bd(ns,k_bcins(k)) - - else ! other species (dust) - - taer = taer + & - (aero_mp(na+1)/rnslyr)*kaer_3bd(ns,(1+(na-1)/4)) - waer = waer + & - (aero_mp(na+1)/rnslyr)*kaer_3bd(ns,(1+(na-1)/4))* & - waer_3bd(ns,(1+(na-1)/4)) - gaer = gaer + & - (aero_mp(na+1)/rnslyr)*kaer_3bd(ns,(1+(na-1)/4))* & - waer_3bd(ns,(1+(na-1)/4))*gaer_3bd(ns,(1+(na-1)/4)) - endif ! na==1 - + if (na==1) then ! interstitial BC + taer = taer + (aero_mp(na+1)/rnslyr) & !echmod: BUG should be *rnslyr + * kaer_bc_3bd(ns,k_bcexs(k)) + waer = waer + (aero_mp(na+1)/rnslyr) & + * kaer_bc_3bd(ns,k_bcexs(k)) & + * waer_bc_3bd(ns,k_bcexs(k)) + gaer = gaer + (aero_mp(na+1)/rnslyr) & + * kaer_bc_3bd(ns,k_bcexs(k)) & + * waer_bc_3bd(ns,k_bcexs(k)) & + * gaer_bc_3bd(ns,k_bcexs(k)) + elseif (na==5) then ! within-ice BC + taer = taer + (aero_mp(na+1)/rnslyr) & + * kaer_bc_3bd(ns,k_bcins(k)) & + * bcenh_3bd(ns,k_bcins(k),k_bcini(k)) + waer = waer + (aero_mp(na+1)/rnslyr) & + * kaer_bc_3bd(ns,k_bcins(k)) & + * waer_bc_3bd(ns,k_bcins(k)) + gaer = gaer + (aero_mp(na+1)/rnslyr) & + * kaer_bc_3bd(ns,k_bcins(k)) & + * waer_bc_3bd(ns,k_bcins(k)) & + * gaer_bc_3bd(ns,k_bcins(k)) + else ! other species (dust) + taer = taer + (aero_mp(na+1)/rnslyr) & + * kaer_3bd(ns,(1+(na-1)/4)) + waer = waer + (aero_mp(na+1)/rnslyr) & + * kaer_3bd(ns,(1+(na-1)/4)) & + * waer_3bd(ns,(1+(na-1)/4)) + gaer = gaer + (aero_mp(na+1)/rnslyr) & + * kaer_3bd(ns,(1+(na-1)/4)) & + * waer_3bd(ns,(1+(na-1)/4)) & + * gaer_3bd(ns,(1+(na-1)/4)) + endif ! na else - taer = taer + & - (aero_mp(na+1)*rnslyr)*kaer_3bd(ns,(1+(na-1)/4)) - waer = waer + & - (aero_mp(na+1)*rnslyr)*kaer_3bd(ns,(1+(na-1)/4))* & - waer_3bd(ns,(1+(na-1)/4)) - gaer = gaer + & - (aero_mp(na+1)*rnslyr)*kaer_3bd(ns,(1+(na-1)/4))* & - waer_3bd(ns,(1+(na-1)/4))*gaer_3bd(ns,(1+(na-1)/4)) + taer = taer + (aero_mp(na+1)*rnslyr) & !echmod NOTE * rnslyr not / + * kaer_3bd(ns,(1+(na-1)/4)) + waer = waer + (aero_mp(na+1)*rnslyr) & + * kaer_3bd(ns,(1+(na-1)/4)) & + * waer_3bd(ns,(1+(na-1)/4)) + gaer = gaer + (aero_mp(na+1)*rnslyr) & + * kaer_3bd(ns,(1+(na-1)/4)) & + * waer_3bd(ns,(1+(na-1)/4)) & + * gaer_3bd(ns,(1+(na-1)/4)) endif ! modal_aero enddo ! na - g(k) = (g(k)*w0(k)*tau(k) + gaer) / & + g (k) = (g(k)*w0(k)*tau(k) + gaer) / & (w0(k)*tau(k) + waer) - w0(k) = (w0(k)*tau(k) + waer) / & + w0 (k) = (w0(k)*tau(k) + waer) / & (tau(k) + taer) tau(k) = tau(k) + taer enddo ! k @@ -2474,8 +2462,8 @@ subroutine compute_dEdd_3bd( & dz = hp/(c1/rnslyr+c1) do k=0,nslyr tau(k) = kw(ns)*dz - w0(k) = ww(ns) - g(k) = gw(ns) + w0 (k) = ww(ns) + g (k) = gw(ns) ! no aerosol in pond enddo ! k endif ! srftyp @@ -2483,40 +2471,40 @@ subroutine compute_dEdd_3bd( & ! set optical properties of sea ice ! bare or snow-covered sea ice layers - if( srftyp <= 1 ) then + if (srftyp <= 1) then ! ssl k = kii - tau(k) = (ki_ssl(ns)+kabs_chl(ns,k))*dzk(k) - w0(k) = ki_ssl(ns)/(ki_ssl(ns) + kabs_chl(ns,k))*wi_ssl(ns) - g(k) = gi_ssl(ns) + tau(k) = (ki_ssl(ns) + kabs_chl(ns,k)) * dzk(k) + w0 (k) = ki_ssl(ns)/(ki_ssl(ns) + kabs_chl(ns,k)) * wi_ssl(ns) + g (k) = gi_ssl(ns) ! dl k = kii + 1 ! scale dz for dl relative to 4 even-layer-thickness 1.5m case fs = p25/rnilyr - tau(k) = (ki_dl(ns) + kabs_chl(ns,k)) *dzk(k)*fs - w0(k) = ki_dl(ns)/(ki_dl(ns) + kabs_chl(ns,k)) *wi_dl(ns) - g(k) = gi_dl(ns) + tau(k) = (ki_dl(ns) + kabs_chl(ns,k)) * dzk(k) * fs + w0 (k) = ki_dl(ns)/(ki_dl(ns) + kabs_chl(ns,k)) * wi_dl(ns) + g (k) = gi_dl(ns) ! int above lowest layer if (kii+2 <= klev-1) then do k = kii+2, klev-1 - tau(k) = (ki_int(ns) + kabs_chl(ns,k))*dzk(k) - w0(k) = ki_int(ns)/(ki_int(ns) + kabs_chl(ns,k)) *wi_int(ns) - g(k) = gi_int(ns) + tau(k) = (ki_int(ns) + kabs_chl(ns,k)) * dzk(k) + w0 (k) = ki_int(ns)/(ki_int(ns) + kabs_chl(ns,k)) * wi_int(ns) + g (k) = gi_int(ns) enddo endif ! lowest layer k = klev ! add algae to lowest sea ice layer, visible only: kabs = ki_int(ns)*(c1-wi_int(ns)) - if( ns == 1 ) then + if (ns == 1) then ! total layer absorption optical depth fixed at value ! of kalg*0.50m, independent of actual layer thickness kabs = kabs + kabs_chl(ns,k) endif - sig = ki_int(ns)*wi_int(ns) - tau(k) = (kabs+sig)*dzk(k) - w0(k) = (sig/(sig+kabs)) - g(k) = gi_int(ns) + sig = ki_int(ns) * wi_int(ns) + tau(k) = (kabs+sig) * dzk(k) + w0 (k) = sig/(sig+kabs) + g (k) = gi_int(ns) ! aerosol in sea ice if (tr_zaero .and. dEdd_algae) then do k = kii, klev @@ -2534,151 +2522,158 @@ subroutine compute_dEdd_3bd( & do na=1,4*n_aero,4 if (modal_aero) then if (na==1) then ! interstitial BC - taer = taer + & - aero_mp(na+2)*kaer_bc_3bd(ns,k_bcexs(k)) - waer = waer + & - aero_mp(na+2)*kaer_bc_3bd(ns,k_bcexs(k))* & - waer_bc_3bd(ns,k_bcexs(k)) - gaer = gaer + & - aero_mp(na+2)*kaer_bc_3bd(ns,k_bcexs(k))* & - waer_bc_3bd(ns,k_bcexs(k))*gaer_bc_3bd(ns,k_bcexs(k)) + taer = taer + aero_mp(na+2) & + * kaer_bc_3bd(ns,k_bcexs(k)) + waer = waer + aero_mp(na+2) & + * kaer_bc_3bd(ns,k_bcexs(k)) & + * waer_bc_3bd(ns,k_bcexs(k)) + gaer = gaer + aero_mp(na+2) & + * kaer_bc_3bd(ns,k_bcexs(k)) & + * waer_bc_3bd(ns,k_bcexs(k)) & + * gaer_bc_3bd(ns,k_bcexs(k)) elseif (na==5) then ! within-ice BC - taer = taer + & - aero_mp(na+2)*kaer_bc_3bd(ns,k_bcins(k))* & - bcenh_3bd(ns,k_bcins(k),k_bcini(k)) - waer = waer + & - aero_mp(na+2)*kaer_bc_3bd(ns,k_bcins(k))* & - waer_bc_3bd(ns,k_bcins(k)) - gaer = gaer + & - aero_mp(na+2)*kaer_bc_3bd(ns,k_bcins(k))* & - waer_bc_3bd(ns,k_bcins(k))*gaer_bc_3bd(ns,k_bcins(k)) + taer = taer + aero_mp(na+2) & + * kaer_bc_3bd(ns,k_bcins(k)) & + * bcenh_3bd(ns,k_bcins(k),k_bcini(k)) + waer = waer + aero_mp(na+2) & + * kaer_bc_3bd(ns,k_bcins(k)) & + * waer_bc_3bd(ns,k_bcins(k)) + gaer = gaer + aero_mp(na+2) & + * kaer_bc_3bd(ns,k_bcins(k)) & + * waer_bc_3bd(ns,k_bcins(k)) & + * gaer_bc_3bd(ns,k_bcins(k)) else ! other species (dust) - taer = taer + & - aero_mp(na+2)*kaer_3bd(ns,(1+(na-1)/4)) - waer = waer + & - aero_mp(na+2)*kaer_3bd(ns,(1+(na-1)/4))* & - waer_3bd(ns,(1+(na-1)/4)) - gaer = gaer + & - aero_mp(na+2)*kaer_3bd(ns,(1+(na-1)/4))* & - waer_3bd(ns,(1+(na-1)/4))*gaer_3bd(ns,(1+(na-1)/4)) + taer = taer + aero_mp(na+2) & + * kaer_3bd(ns,(1+(na-1)/4)) + waer = waer + aero_mp(na+2) & + * kaer_3bd(ns,(1+(na-1)/4)) & + * waer_3bd(ns,(1+(na-1)/4)) + gaer = gaer + aero_mp(na+2) & + * kaer_3bd(ns,(1+(na-1)/4)) & + * waer_3bd(ns,(1+(na-1)/4)) & + * gaer_3bd(ns,(1+(na-1)/4)) endif else ! bulk - taer = taer + & - aero_mp(na+2)*kaer_3bd(ns,(1+(na-1)/4)) - waer = waer + & - aero_mp(na+2)*kaer_3bd(ns,(1+(na-1)/4))* & - waer_3bd(ns,(1+(na-1)/4)) - gaer = gaer + & - aero_mp(na+2)*kaer_3bd(ns,(1+(na-1)/4))* & - waer_3bd(ns,(1+(na-1)/4))*gaer_3bd(ns,(1+(na-1)/4)) + taer = taer + aero_mp(na+2) & + * kaer_3bd(ns,(1+(na-1)/4)) + waer = waer + aero_mp(na+2) & + * kaer_3bd(ns,(1+(na-1)/4)) & + * waer_3bd(ns,(1+(na-1)/4)) + gaer = gaer + aero_mp(na+2) & + * kaer_3bd(ns,(1+(na-1)/4)) & + * waer_3bd(ns,(1+(na-1)/4)) & + * gaer_3bd(ns,(1+(na-1)/4)) endif ! modal_aero enddo ! na - - g(k) = (g(k)*w0(k)*tau(k) + gaer) / & + g (k) = (g(k)*w0(k)*tau(k) + gaer) / & (w0(k)*tau(k) + waer) - w0(k) = (w0(k)*tau(k) + waer) / & + w0 (k) = (w0(k)*tau(k) + waer) / & (tau(k) + taer) tau(k) = tau(k) + taer do k = kii+1, klev taer = c0 waer = c0 gaer = c0 - do na=1,4*n_aero,4 + do na = 1, 4*n_aero, 4 if (modal_aero) then if (na==1) then ! interstitial BC - taer = taer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_3bd(ns,k_bcexs(k)) - waer = waer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_3bd(ns,k_bcexs(k))* & - waer_bc_3bd(ns,k_bcexs(k)) - gaer = gaer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_3bd(ns,k_bcexs(k))* & - waer_bc_3bd(ns,k_bcexs(k))*gaer_bc_3bd(ns,k_bcexs(k)) + taer = taer + (aero_mp(na+3)/rnilyr) & !echmod: BUG should be *rnilyr + * kaer_bc_3bd(ns,k_bcexs(k)) + waer = waer + (aero_mp(na+3)/rnilyr) & + * kaer_bc_3bd(ns,k_bcexs(k)) & + * waer_bc_3bd(ns,k_bcexs(k)) + gaer = gaer + (aero_mp(na+3)/rnilyr) & + * kaer_bc_3bd(ns,k_bcexs(k)) & + * waer_bc_3bd(ns,k_bcexs(k)) & + * gaer_bc_3bd(ns,k_bcexs(k)) elseif (na==5) then ! within-ice BC - taer = taer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_3bd(ns,k_bcins(k))* & - bcenh_3bd(ns,k_bcins(k),k_bcini(k)) - waer = waer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_3bd(ns,k_bcins(k))* & - waer_bc_3bd(ns,k_bcins(k)) - gaer = gaer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_3bd(ns,k_bcins(k))* & - waer_bc_3bd(ns,k_bcins(k))*gaer_bc_3bd(ns,k_bcins(k)) + taer = taer + (aero_mp(na+3)/rnilyr) & + * kaer_bc_3bd(ns,k_bcins(k)) & + * bcenh_3bd(ns,k_bcins(k),k_bcini(k)) + waer = waer + (aero_mp(na+3)/rnilyr) & + * kaer_bc_3bd(ns,k_bcins(k)) & + * waer_bc_3bd(ns,k_bcins(k)) + gaer = gaer + (aero_mp(na+3)/rnilyr) & + * kaer_bc_3bd(ns,k_bcins(k)) & + * waer_bc_3bd(ns,k_bcins(k)) & + * gaer_bc_3bd(ns,k_bcins(k)) else ! other species (dust) - taer = taer + & - (aero_mp(na+3)/rnilyr)*kaer_3bd(ns,(1+(na-1)/4)) - waer = waer + & - (aero_mp(na+3)/rnilyr)*kaer_3bd(ns,(1+(na-1)/4))* & - waer_3bd(ns,(1+(na-1)/4)) - gaer = gaer + & - (aero_mp(na+3)/rnilyr)*kaer_3bd(ns,(1+(na-1)/4))* & - waer_3bd(ns,(1+(na-1)/4))*gaer_3bd(ns,(1+(na-1)/4)) + taer = taer + (aero_mp(na+3)/rnilyr) & + * kaer_3bd(ns,(1+(na-1)/4)) + waer = waer + (aero_mp(na+3)/rnilyr) & + * kaer_3bd(ns,(1+(na-1)/4)) & + * waer_3bd(ns,(1+(na-1)/4)) + gaer = gaer + (aero_mp(na+3)/rnilyr) & + * kaer_3bd(ns,(1+(na-1)/4)) & + * waer_3bd(ns,(1+(na-1)/4)) & + * gaer_3bd(ns,(1+(na-1)/4)) endif else ! bulk - taer = taer + & - (aero_mp(na+3)*rnilyr)*kaer_3bd(ns,(1+(na-1)/4)) - waer = waer + & - (aero_mp(na+3)*rnilyr)*kaer_3bd(ns,(1+(na-1)/4))* & - waer_3bd(ns,(1+(na-1)/4)) - gaer = gaer + & - (aero_mp(na+3)*rnilyr)*kaer_3bd(ns,(1+(na-1)/4))* & - waer_3bd(ns,(1+(na-1)/4))*gaer_3bd(ns,(1+(na-1)/4)) + taer = taer + (aero_mp(na+3)*rnilyr) & !echmod NOTE * rnilyr, not / + * kaer_3bd(ns,(1+(na-1)/4)) + waer = waer + (aero_mp(na+3)*rnilyr) & + * kaer_3bd(ns,(1+(na-1)/4)) & + * waer_3bd(ns,(1+(na-1)/4)) + gaer = gaer + (aero_mp(na+3)*rnilyr) & + * kaer_3bd(ns,(1+(na-1)/4)) & + * waer_3bd(ns,(1+(na-1)/4)) & + * gaer_3bd(ns,(1+(na-1)/4)) endif ! modal_aero enddo ! na - g(k) = (g(k)*w0(k)*tau(k) + gaer) / & + g (k) = (g(k)*w0(k)*tau(k) + gaer) / & (w0(k)*tau(k) + waer) - w0(k) = (w0(k)*tau(k) + waer) / & + w0 (k) = (w0(k)*tau(k) + waer) / & (tau(k) + taer) tau(k) = tau(k) + taer enddo ! k - endif ! tr_aero + endif ! tr_aero else ! srftyp == 2 ! sea ice layers under ponds k = kii tau(k) = ki_p_ssl(ns)*dzk(k) - w0(k) = wi_p_ssl(ns) - g(k) = gi_p_ssl(ns) + w0 (k) = wi_p_ssl(ns) + g (k) = gi_p_ssl(ns) k = kii + 1 tau(k) = ki_p_int(ns)*dzk(k) - w0(k) = wi_p_int(ns) - g(k) = gi_p_int(ns) + w0 (k) = wi_p_int(ns) + g (k) = gi_p_int(ns) if (kii+2 <= klev) then do k = kii+2, klev tau(k) = ki_p_int(ns)*dzk(k) - w0(k) = wi_p_int(ns) - g(k) = gi_p_int(ns) + w0 (k) = wi_p_int(ns) + g (k) = gi_p_int(ns) enddo ! k endif ! adjust pond iops if pond depth within specified range if( hpmin <= hp .and. hp <= hp0 ) then k = kii - sig_i = ki_ssl(ns)*wi_ssl(ns) - sig_p = ki_p_ssl(ns)*wi_p_ssl(ns) - sig = sig_i + (sig_p-sig_i)*(hp/hp0) - kext = sig + ki_p_ssl(ns)*(c1-wi_p_ssl(ns)) + sig_i = ki_ssl (ns) * wi_ssl (ns) + sig_p = ki_p_ssl(ns) * wi_p_ssl(ns) + sig = sig_i + (sig_p-sig_i) * (hp/hp0) + kext = sig + ki_p_ssl(ns) * (c1-wi_p_ssl(ns)) tau(k) = kext*dzk(k) - w0(k) = sig/kext - g(k) = gi_p_int(ns) + w0 (k) = sig/kext + g (k) = gi_p_int(ns) k = kii + 1 ! scale dz for dl relative to 4 even-layer-thickness 1.5m case fs = p25/rnilyr - sig_i = ki_dl(ns)*wi_dl(ns)*fs - sig_p = ki_p_int(ns)*wi_p_int(ns) - sig = sig_i + (sig_p-sig_i)*(hp/hp0) - kext = sig + ki_p_int(ns)*(c1-wi_p_int(ns)) + sig_i = ki_dl (ns) * wi_dl (ns) * fs + sig_p = ki_p_int(ns) * wi_p_int(ns) + sig = sig_i + (sig_p-sig_i) * (hp/hp0) + kext = sig + ki_p_int(ns) * (c1-wi_p_int(ns)) tau(k) = kext*dzk(k) - w0(k) = sig/kext - g(k) = gi_p_int(ns) + w0 (k) = sig/kext + g (k) = gi_p_int(ns) if (kii+2 <= klev) then do k = kii+2, klev - sig_i = ki_int(ns)*wi_int(ns) - sig_p = ki_p_int(ns)*wi_p_int(ns) - sig = sig_i + (sig_p-sig_i)*(hp/hp0) - kext = sig + ki_p_int(ns)*(c1-wi_p_int(ns)) + sig_i = ki_int (ns) * wi_int (ns) + sig_p = ki_p_int(ns) * wi_p_int(ns) + sig = sig_i + (sig_p-sig_i) * (hp/hp0) + kext = sig + ki_p_int(ns) * (c1-wi_p_int(ns)) tau(k) = kext*dzk(k) - w0(k) = sig/kext - g(k) = gi_p_int(ns) + w0 (k) = sig/kext + g (k) = gi_p_int(ns) enddo ! k endif endif ! small pond depth transition to bare sea ice @@ -2697,8 +2692,8 @@ subroutine compute_dEdd_3bd( & ! underlying ocean and combine successive layers upwards to ! the surface; see comments in solution_dEdd for more details. - call solution_dEdd & - (coszen, srftyp, klev, klevp, & + call solution_dEdd ( & + coszen, srftyp, klev, klevp, & tau, w0, g, albodr, albodf, & trndir, trntdr, trndif, rupdir, rupdif, & rdndif) @@ -2717,7 +2712,7 @@ subroutine compute_dEdd_3bd( & do k = 0, klevp ! interface scattering - refk = c1/(c1 - rdndif(k)*rupdif(k)) + refk = c1/(c1 - rdndif(k)*rupdif(k)) ! dir tran ref from below times interface scattering, plus diff ! tran and ref from below times interface scattering ! fdirup(k) = (trndir(k)*rupdir(k) + & @@ -2745,14 +2740,11 @@ subroutine compute_dEdd_3bd( & ! calculate final surface albedos and fluxes- ! all absorbed flux above ksrf is included in surface absorption - - if( ns == 1) then ! visible - - swdr = swvdr - swdf = swvdf - avdr = rupdir(0) - avdf = rupdif(0) - + if (ns == 1) then ! visible + swdr = swvdr + swdf = swvdf + avdr = rupdir(0) + avdf = rupdif(0) tmp_0 = dfdir(0 )*swdr + dfdif(0 )*swdf tmp_ks = dfdir(ksrf )*swdr + dfdif(ksrf )*swdf tmp_kl = dfdir(klevp)*swdr + dfdif(klevp)*swdf @@ -2769,9 +2761,9 @@ subroutine compute_dEdd_3bd( & fthruvdf = fthruvdf + dfdif(klevp)*swdf ! if snow covered ice, set snow internal absorption; else, Sabs=0 - if( srftyp == 1 ) then + if (srftyp == 1) then ki = 0 - do k=1,nslyr + do k = 1, nslyr ! skip snow SSL, since SSL absorption included in the surface ! absorption fsfc above km = k @@ -2785,14 +2777,14 @@ subroutine compute_dEdd_3bd( & ! complex indexing to insure proper absorptions for sea ice ki = 0 - do k=nslyr+2,nslyr+1+nilyr + do k = nslyr+2, nslyr+1+nilyr ! for bare ice, DL absorption for sea ice layer 1 km = k kp = km + 1 ! modify for top sea ice layer for snow over sea ice - if( srftyp == 1 ) then + if (srftyp == 1) then ! must add SSL and DL absorption for sea ice layer 1 - if( k == nslyr+2 ) then + if (k == nslyr+2) then km = k - 1 kp = km + 2 endif @@ -2833,14 +2825,14 @@ subroutine compute_dEdd_3bd( & fthruidf = fthruidf + dfdif(klevp)*swdf*wghtns(ns) ! if snow covered ice, set snow internal absorption; else, Sabs=0 - if( srftyp == 1 ) then + if (srftyp == 1) then ki = 0 - do k=1,nslyr + do k = 1, nslyr ! skip snow SSL, since SSL absorption included in the surface ! absorption fsfc above - km = k - kp = km + 1 - ki = ki + 1 + km = k + kp = km + 1 + ki = ki + 1 Sabs(ki) = Sabs(ki) & + (dfdir(km)*swdr + dfdif(km)*swdf & - (dfdir(kp)*swdr + dfdif(kp)*swdf)) & @@ -2850,14 +2842,14 @@ subroutine compute_dEdd_3bd( & ! complex indexing to insure proper absorptions for sea ice ki = 0 - do k=nslyr+2,nslyr+1+nilyr + do k = nslyr+2, nslyr+1+nilyr ! for bare ice, DL absorption for sea ice layer 1 km = k kp = km + 1 ! modify for top sea ice layer for snow over sea ice - if( srftyp == 1 ) then + if (srftyp == 1) then ! must add SSL and DL absorption for sea ice layer 1 - if( k == nslyr+2 ) then + if (k == nslyr+2) then km = k - 1 kp = km + 2 endif @@ -2868,15 +2860,13 @@ subroutine compute_dEdd_3bd( & - (dfdir(kp)*swdr + dfdif(kp)*swdf)) & * wghtns(ns) enddo ! k + endif ! ns + enddo ! ns: end spectral loop - endif ! ns = 1, ns > 1 - - enddo ! ns: end spectral loop - - alvdr = avdr - alvdf = avdf - alidr = aidr - alidf = aidf + alvdr = avdr + alvdf = avdf + alidr = aidr + alidf = aidf ! accumulate fluxes over bare sea ice fswsfc = fswsfc + fsfc *fi @@ -2889,17 +2879,14 @@ subroutine compute_dEdd_3bd( & do k = 1, nslyr Sswabs(k) = Sswabs(k) + Sabs(k)*fi - enddo ! k + enddo do k = 1, nilyr Iswabs(k) = Iswabs(k) + Iabs(k)*fi - ! bgc layer fswpenl(k) = fswpenl(k) + fthrul(k)* fi - if (k == nilyr) then - fswpenl(k+1) = fswpenl(k+1) + fthrul(k+1)*fi - endif - enddo ! k + enddo + fswpenl(nilyr+1) = fswpenl(nilyr+1) + fthrul(nilyr+1)*fi #ifdef UNDEPRECATE_0LAYER !---------------------------------------------------------------- @@ -2929,8 +2916,8 @@ end subroutine compute_dEdd_3bd ! ! author: Bruce P. Briegleb, NCAR ! 2013: E Hunke merged with NCAR version - subroutine solution_dEdd & - (coszen, srftyp, klev, klevp, & + subroutine solution_dEdd ( & + coszen, srftyp, klev, klevp, & tau, w0, g, albodr, albodf, & trndir, trntdr, trndif, rupdir, rupdif, & rdndif) @@ -3289,19 +3276,15 @@ subroutine solution_dEdd & ! the fresnel (refractive) layer, always taken to be above ! the present layer k (i.e. be the top interface): - rintfc = c1 / (c1-Rf_dif_b*rdif_a(k)) - tdir(k) = Tf_dir_a*tdir(k) + & - Tf_dir_a*rdir(k) * & - Rf_dif_b*rintfc*tdif_a(k) - rdir(k) = Rf_dir_a + & - Tf_dir_a*rdir(k) * & - rintfc*Tf_dif_b - rdif_a(k) = Rf_dif_a + & - Tf_dif_a*rdif_a(k) * & - rintfc*Tf_dif_b - rdif_b(k) = rdif_b(k) + & - tdif_b(k)*Rf_dif_b * & - rintfc*tdif_a(k) + rintfc = c1 / (c1-Rf_dif_b*rdif_a(k)) + tdir (k) = Tf_dir_a*tdir(k) & + + Tf_dir_a*rdir(k) * Rf_dif_b*rintfc*tdif_a(k) + rdir (k) = Rf_dir_a & + + Tf_dir_a*rdir (k) * rintfc*Tf_dif_b + rdif_a(k) = Rf_dif_a & + + Tf_dif_a*rdif_a(k) * rintfc*Tf_dif_b + rdif_b(k) = rdif_b(k) & + + tdif_b(k)*Rf_dif_b * rintfc*tdif_a(k) tdif_a(k) = tdif_a(k)*rintfc*Tf_dif_a tdif_b(k) = tdif_b(k)*rintfc*Tf_dif_b @@ -3337,13 +3320,13 @@ subroutine solution_dEdd & ! \\\\\\\ ocean \\\\\\\ trndir(k+1) = trndir(k)*trnlay(k) - refkm1 = c1/(c1 - rdndif(k)*rdif_a(k)) - tdrrdir = trndir(k)*rdir(k) - tdndif = trntdr(k) - trndir(k) - trntdr(k+1) = trndir(k)*tdir(k) + & - (tdndif + tdrrdir*rdndif(k))*refkm1*tdif_a(k) - rdndif(k+1) = rdif_b(k) + & - (tdif_b(k)*rdndif(k)*refkm1*tdif_a(k)) + refkm1 = c1/(c1 - rdndif(k)*rdif_a(k)) + tdrrdir = trndir(k)*rdir(k) + tdndif = trntdr(k) - trndir(k) + trntdr(k+1) = trndir(k)*tdir(k) & + + (tdndif + tdrrdir*rdndif(k))*refkm1*tdif_a(k) + rdndif(k+1) = rdif_b(k) & + + (tdif_b(k)*rdndif(k)*refkm1*tdif_a(k)) trndif(k+1) = trndif(k)*refkm1*tdif_a(k) enddo ! k end main level loop @@ -3365,7 +3348,7 @@ subroutine solution_dEdd & do k=klev,0,-1 ! interface scattering - refkp1 = c1/( c1 - rdif_b(k)*rupdif(k+1)) + refkp1 = c1/( c1 - rdif_b(k)*rupdif(k+1)) ! dir from top layer plus exp tran ref from lower layer, interface ! scattered and tran thru top layer from below, plus diff tran ref ! from lower layer with interface scattering tran thru top from below @@ -3387,7 +3370,7 @@ end subroutine solution_dEdd ! author: Bruce P. Briegleb, NCAR ! 2013: E Hunke merged with NCAR version - subroutine shortwave_dEdd_set_snow(R_snw, & + subroutine shortwave_dEdd_set_snow(R_snw, & dT_mlt, rsnw_mlt, & aice, vsno, & Tsfc, fs, & @@ -3429,8 +3412,8 @@ subroutine shortwave_dEdd_set_snow(R_snw, & real (kind=dbl_kind), parameter :: & ! units for the following are 1.e-6 m (micro-meters) - rsnw_nonmelt = 500._dbl_kind, & ! nonmelt snow grain radius - rsnw_sig = 250._dbl_kind ! assumed sigma for snow grain radius + rsnw_nonmelt = 500._dbl_kind, & ! nonmelt snow grain radius + rsnw_sig = 250._dbl_kind ! assumed sigma for snow grain radius character(len=*),parameter :: subname='(shortwave_dEdd_set_snow)' @@ -3518,19 +3501,15 @@ subroutine shortwave_dEdd_set_pond(Tsfc, & end subroutine shortwave_dEdd_set_pond -! End Delta-Eddington shortwave method - !======================================================================= ! ! authors Nicole Jeffery, LANL - subroutine compute_shortwave_trcr( & - bgcN, zaero, & - trcrn_bgcsw, & - sw_grid, hin, & - hbri, & - i_grid, & - skl_bgc, z_tracers ) + subroutine compute_shortwave_trcr(bgcN, zaero, & + trcrn_bgcsw, sw_grid, & + hin, hbri, & + i_grid, skl_bgc, & + z_tracers) real (kind=dbl_kind), dimension (:), intent(in) :: & bgcN , & ! Nit tracer @@ -3540,16 +3519,16 @@ subroutine compute_shortwave_trcr( & trcrn_bgcsw ! ice on shortwave grid tracers real (kind=dbl_kind), dimension (:), intent(in) :: & - sw_grid , & ! - i_grid ! CICE bio grid + sw_grid , & ! + i_grid ! CICE bio grid real(kind=dbl_kind), intent(in) :: & - hin , & ! CICE ice thickness - hbri ! brine height + hin , & ! CICE ice thickness + hbri ! brine height logical (kind=log_kind), intent(in) :: & - skl_bgc , & ! skeletal layer bgc - z_tracers ! zbgc + skl_bgc , & ! skeletal layer bgc + z_tracers ! zbgc ! local variables @@ -3593,8 +3572,8 @@ subroutine compute_shortwave_trcr( & do k = 1, nblyr+1 do n = 1, n_algae - trtmp0(nt_bgc_N(1) + k-1) = trtmp0(nt_bgc_N(1) + k-1) + & - R_chl2N(n)*F_abs_chl(n)*bgcN(nt_bgc_N(n)-nt_bgc_N(1)+1 + k-1) + trtmp0(nt_bgc_N(1) + k-1) = trtmp0(nt_bgc_N(1) + k-1) & + + R_chl2N(n) * F_abs_chl(n) * bgcN(nt_bgc_N(n)-nt_bgc_N(1) + k) enddo ! n enddo ! k @@ -3668,6 +3647,7 @@ subroutine compute_shortwave_trcr( & enddo endif + end subroutine compute_shortwave_trcr !======================================================================= @@ -3759,21 +3739,21 @@ subroutine icepack_prep_radiation(aice, aicen, & ! Scale absorbed solar radiation for change in net shortwave !----------------------------------------------------------------- - fswsfcn(n) = scale_factor*fswsfcn (n) - fswintn(n) = scale_factor*fswintn (n) - fswthrun(n) = scale_factor*fswthrun(n) - if (present(fswthrun_vdr)) fswthrun_vdr(n) = scale_factor*fswthrun_vdr(n) - if (present(fswthrun_vdf)) fswthrun_vdf(n) = scale_factor*fswthrun_vdf(n) - if (present(fswthrun_idr)) fswthrun_idr(n) = scale_factor*fswthrun_idr(n) - if (present(fswthrun_idf)) fswthrun_idf(n) = scale_factor*fswthrun_idf(n) + fswsfcn(n) = scale_factor * fswsfcn (n) + fswintn(n) = scale_factor * fswintn (n) + fswthrun(n) = scale_factor * fswthrun(n) + if (present(fswthrun_vdr)) fswthrun_vdr(n) = scale_factor * fswthrun_vdr(n) + if (present(fswthrun_vdf)) fswthrun_vdf(n) = scale_factor * fswthrun_vdf(n) + if (present(fswthrun_idr)) fswthrun_idr(n) = scale_factor * fswthrun_idr(n) + if (present(fswthrun_idf)) fswthrun_idf(n) = scale_factor * fswthrun_idf(n) do k = 1,nilyr+1 - fswpenln(k,n) = scale_factor*fswpenln(k,n) + fswpenln(k,n) = scale_factor * fswpenln(k,n) enddo !k do k=1,nslyr - Sswabsn(k,n) = scale_factor*Sswabsn(k,n) + Sswabsn (k,n) = scale_factor * Sswabsn (k,n) enddo do k=1,nilyr - Iswabsn(k,n) = scale_factor*Iswabsn(k,n) + Iswabsn (k,n) = scale_factor * Iswabsn (k,n) enddo endif @@ -4081,16 +4061,16 @@ subroutine icepack_step_radiation (dt, & ! Initialize for safety do n = 1, ncat - alvdrn(n) = c0 - alidrn(n) = c0 - alvdfn(n) = c0 - alidfn(n) = c0 - fswsfcn(n) = c0 - fswintn(n) = c0 + alvdrn (n) = c0 + alidrn (n) = c0 + alvdfn (n) = c0 + alidfn (n) = c0 + fswsfcn (n) = c0 + fswintn (n) = c0 fswthrun(n) = c0 enddo ! ncat - Iswabsn(:,:) = c0 - Sswabsn(:,:) = c0 + Iswabsn (:,:) = c0 + Sswabsn (:,:) = c0 endif ! calc_Tsfc @@ -4128,7 +4108,7 @@ real(kind=dbl_kind) function n(uu,et) real(kind=dbl_kind), intent(in) :: uu, et - n = ((uu+c1)*(uu+c1)/et ) - ((uu-c1)*(uu-c1)*et) + n = ((uu+c1)*(uu+c1)/et) - ((uu-c1)*(uu-c1)*et) end function n @@ -4212,61 +4192,65 @@ end function asys ! for a unified treatment of cryospheric surfaces, The Cryosphere, 13, ! 2325-2343, https://doi.org/10.5194/tc-13-2325-2019, 2019. - subroutine compute_dEdd_5bd (klev, klevp, & - zbio, fnidr, coszen, & - swvdr, swvdf, swidr, swidf, srftyp, & - hs, rhosnw, rsnw, hi, hp, & - fi, aero_mp, alvdr, alvdf, & - alidr, alidf, & - fswsfc, fswint, & - fswthru, Sswabs, & - Iswabs, fswpenl ) + subroutine compute_dEdd_5bd( & + klev, klevp, zbio, fnidr, coszen, & + swvdr, swvdf, swidr, swidf, srftyp, & + hs, rhosnw, rsnw, hi, hp, & + fi, aero_mp, alvdr, alvdf, & + alidr, alidf, fswsfc, fswint, fswthru, & + fswthru_vdr, fswthru_vdf, & + fswthru_idr, fswthru_idf, & + Sswabs, Iswabs, fswpenl ) integer (kind=int_kind), intent(in) :: & - klev , & ! number of radiation layers - 1 - klevp ! number of radiation interfaces - 1 - ! (0 layer is included also) - - ! dEdd tuning parameters, set in namelist + klev , & ! number of radiation layers - 1 + klevp ! number of radiation interfaces - 1 + ! (0 layer is included also) real (kind=dbl_kind), intent(in) :: & - fnidr , & ! fraction of direct to total down flux in nir - coszen , & ! cosine solar zenith angle - swvdr , & ! shortwave down at surface, visible, direct (W/m^2) - swvdf , & ! shortwave down at surface, visible, diffuse (W/m^2) - swidr , & ! shortwave down at surface, near IR, direct (W/m^2) - swidf ! shortwave down at surface, near IR, diffuse (W/m^2) + fnidr , & ! fraction of direct to total down flux in nir + coszen, & ! cosine solar zenith angle + swvdr , & ! shortwave down at surface, visible, direct (W/m^2) + swvdf , & ! shortwave down at surface, visible, diffuse (W/m^2) + swidr , & ! shortwave down at surface, near IR, direct (W/m^2) + swidf ! shortwave down at surface, near IR, diffuse (W/m^2) integer (kind=int_kind), intent(in) :: & - srftyp ! surface type over ice: (0=air, 1=snow, 2=pond) + srftyp ! surface type over ice: (0=air, 1=snow, 2=pond) real (kind=dbl_kind), intent(in) :: & - hs ! snow thickness (m) + hs ! snow thickness (m) real (kind=dbl_kind), dimension (:), intent(in) :: & - rhosnw , & ! snow density in snow layer (kg/m3) - rsnw , & ! snow grain radius in snow layer (m) - zbio , & ! zaerosol + chla shortwave tracers kg/m^3 - aero_mp ! aerosol mass path in kg/m2 + rhosnw, & ! snow density in snow layer (kg/m3) + rsnw , & ! snow grain radius in snow layer (m) + zbio , & ! zaerosol + chla shortwave tracers kg/m^3 + aero_mp ! aerosol mass path in kg/m2 real (kind=dbl_kind), intent(in) :: & - hi , & ! ice thickness (m) - hp , & ! pond depth (m) - fi ! snow/bare ice fractional coverage (0 to 1) + hi , & ! ice thickness (m) + hp , & ! pond depth (m) + fi ! snow/bare ice fractional coverage (0 to 1) real (kind=dbl_kind), intent(inout) :: & - alvdr , & ! visible, direct, albedo (fraction) - alvdf , & ! visible, diffuse, albedo (fraction) - alidr , & ! near-ir, direct, albedo (fraction) - alidf , & ! near-ir, diffuse, albedo (fraction) - fswsfc , & ! SW absorbed at snow/bare ice/pondedi ice surface (W m-2) - fswint , & ! SW interior absorption (below surface, above ocean,W m-2) - fswthru ! SW through snow/bare ice/ponded ice into ocean (W m-2) + alvdr , & ! visible, direct, albedo (fraction) + alvdf , & ! visible, diffuse, albedo (fraction) + alidr , & ! near-ir, direct, albedo (fraction) + alidf , & ! near-ir, diffuse, albedo (fraction) + fswsfc, & ! SW absorbed at snow/bare ice/pondedi ice surface (W m-2) + fswint, & ! SW interior absorption (below surface, above ocean,W m-2) + fswthru ! SW through snow/bare ice/ponded ice into ocean (W m-2) + + real (kind=dbl_kind), intent(inout) :: & + fswthru_vdr, & ! vis dir SW through snow/bare ice/ponded ice into ocean (W m-2) + fswthru_vdf, & ! vis dif SW through snow/bare ice/ponded ice into ocean (W m-2) + fswthru_idr, & ! nir dir SW through snow/bare ice/ponded ice into ocean (W m-2) + fswthru_idf ! nir dif SW through snow/bare ice/ponded ice into ocean (W m-2) real (kind=dbl_kind), dimension (:), intent(inout) :: & - fswpenl , & ! visible SW entering ice layers (W m-2) - Sswabs , & ! SW absorbed in snow layer (W m-2) - Iswabs ! SW absorbed in ice layer (W m-2) + fswpenl, & ! visible SW entering ice layers (W m-2) + Sswabs , & ! SW absorbed in snow layer (W m-2) + Iswabs ! SW absorbed in ice layer (W m-2) !----------------------------------------------------------------------- ! Set up optical property profiles, based on snow, sea ice and ponded @@ -4391,7 +4375,11 @@ subroutine compute_dEdd_5bd (klev, klevp, & real (kind=dbl_kind) :: & fsfc , & ! shortwave absorbed at snow/bare ice/ponded ice surface (W m-2) fint , & ! shortwave absorbed in interior (W m-2) - fthru ! shortwave through snow/bare ice/ponded ice to ocean (W/m^2) + fthru , & ! shortwave through snow/bare ice/ponded ice to ocean (W/m^2) + fthruvdr, & ! vis dir shortwave through snow/bare ice/ponded ice to ocean (W/m^2) + fthruvdf, & ! vis dif shortwave through snow/bare ice/ponded ice to ocean (W/m^2) + fthruidr, & ! nir dir shortwave through snow/bare ice/ponded ice to ocean (W/m^2) + fthruidf ! nir dif shortwave through snow/bare ice/ponded ice to ocean (W/m^2) real (kind=dbl_kind), dimension(nslyr) :: & Sabs ! shortwave absorbed in snow layer (W m-2) @@ -4403,11 +4391,11 @@ subroutine compute_dEdd_5bd (klev, klevp, & fthrul ! shortwave through to ice layers (W m-2) real (kind=dbl_kind), parameter :: & - cp67 = 0.67_dbl_kind , & ! nir band weight parameter - cp33 = 0.33_dbl_kind , & ! nir band weight parameter - cp78 = 0.78_dbl_kind , & ! nir band weight parameter - cp22 = 0.22_dbl_kind , & ! nir band weight parameter - cp01 = 0.01_dbl_kind ! for ocean visible albedo + cp67 = 0.67_dbl_kind, & ! nir band weight parameter + cp33 = 0.33_dbl_kind, & ! nir band weight parameter + cp78 = 0.78_dbl_kind, & ! nir band weight parameter + cp22 = 0.22_dbl_kind, & ! nir band weight parameter + cp01 = 0.01_dbl_kind ! for ocean visible albedo real (kind=dbl_kind), dimension (0:klev) :: & tau , & ! layer extinction optical depth @@ -4437,35 +4425,35 @@ subroutine compute_dEdd_5bd (klev, klevp, & ws , & ! Snow single scattering albedo gs ! Snow asymmetry parameter - real (kind=dbl_kind), dimension(nslyr) :: & - frsnw ! snow grain radius in snow layer * adjustment factor (m) +! real (kind=dbl_kind), dimension(nslyr) :: & +! frsnw ! snow grain radius in snow layer * adjustment factor (m) real (kind=dbl_kind), dimension(0:klev) :: & - dzk ! layer thickness + dzk ! layer thickness real (kind=dbl_kind) :: & - dz , & ! snow, sea ice or pond water layer thickness - dz_ssl , & ! snow or sea ice surface scattering layer thickness - fs ! scaling factor to reduce (nilyr<4) or increase (nilyr>4) DL - ! extinction coefficient to maintain DL optical depth constant - ! with changing number of sea ice layers, to approximately - ! conserve computed albedo for constant physical depth of sea - ! ice when the number of sea ice layers vary - real (kind=dbl_kind) :: & - sig , & ! scattering coefficient for tuning - kabs , & ! absorption coefficient for tuning - sigp ! modified scattering coefficient for tuning + dz , & ! snow, sea ice or pond water layer thickness + dz_ssl , & ! snow or sea ice surface scattering layer thickness + fs ! scaling factor to reduce (nilyr<4) or increase (nilyr>4) DL + ! extinction coefficient to maintain DL optical depth constant + ! with changing number of sea ice layers, to approximately + ! conserve computed albedo for constant physical depth of sea + ! ice when the number of sea ice layers vary + real (kind=dbl_kind) :: & + sig , & ! scattering coefficient for tuning + kabs , & ! absorption coefficient for tuning + sigp ! modified scattering coefficient for tuning real (kind=dbl_kind) :: & - albodr , & ! spectral ocean albedo to direct rad - albodf ! spectral ocean albedo to diffuse rad + albodr , & ! spectral ocean albedo to direct rad + albodf ! spectral ocean albedo to diffuse rad ! for melt pond transition to bare sea ice for small pond depths real (kind=dbl_kind) :: & - sig_i , & ! ice scattering coefficient (/m) - sig_p , & ! pond scattering coefficient (/m) - kext ! weighted extinction coefficient (/m) + sig_i , & ! ice scattering coefficient (/m) + sig_p , & ! pond scattering coefficient (/m) + kext ! weighted extinction coefficient (/m) ! aerosol optical properties from Mark Flanner, 26 June 2008 ! order assumed: hydrophobic black carbon, hydrophilic black carbon, @@ -4476,30 +4464,30 @@ subroutine compute_dEdd_5bd (klev, klevp, & ! and 1.19-5.0 micron in wavelength) integer (kind=int_kind) :: & - na , n ! aerosol index + na , n ! aerosol index real (kind=dbl_kind) :: & - taer , & ! total aerosol extinction optical depth - waer , & ! total aerosol single scatter albedo - gaer , & ! total aerosol asymmetry parameter - swdr , & ! shortwave down at surface, direct (W/m^2) - swdf , & ! shortwave down at surface, diffuse (W/m^2) - rnilyr , & ! real(nilyr) - rnslyr , & ! real(nslyr) - rns , & ! real(ns) - tmp_0, tmp_ks, tmp_kl ! temp variables + taer , & ! total aerosol extinction optical depth + waer , & ! total aerosol single scatter albedo + gaer , & ! total aerosol asymmetry parameter + swdr , & ! shortwave down at surface, direct (W/m^2) + swdf , & ! shortwave down at surface, diffuse (W/m^2) + rnilyr , & ! 1/real(nilyr) + rnslyr , & ! 1/real(nslyr) + rns , & ! real(ns) + tmp_0, tmp_ks, tmp_kl ! temporary variables integer(kind=int_kind), dimension(0:klev) :: & - k_bcini , & - k_bcins , & - k_bcexs + k_bcini , & ! index + k_bcins , & ! = 2 hardwired + k_bcexs ! = 2 hardwired real(kind=dbl_kind):: & - tmp_gs, tmp1 ! temp variables + tmp_gs, tmp1 ! temporary variables real (kind=dbl_kind), parameter :: & - fr_max = 1.00_dbl_kind, & ! snow grain adjustment factor max - fr_min = 0.80_dbl_kind, & ! snow grain adjustment factor min + fr_max = 1.00_dbl_kind, & ! snow grain adjustment factor max + fr_min = 0.80_dbl_kind, & ! snow grain adjustment factor min ! tuning parameters ! ice and pond scat coeff fractional change for +- one-sigma in albedo fp_ice = 0.15_dbl_kind, & ! ice fraction of scat coeff for + stn dev in alb @@ -4507,32 +4495,29 @@ subroutine compute_dEdd_5bd (klev, klevp, & fp_pnd = 2.00_dbl_kind, & ! ponded ice fraction of scat coeff for + stn dev in alb fm_pnd = 0.50_dbl_kind ! ponded ice fraction of scat coeff for - stn dev in alb - real (kind=dbl_kind), parameter :: & !chla-specific absorption coefficient - kchl_tab = 0.01 !0.0023-0.0029 Perovich 1993, also 0.0067 m^2 (mg Chl)^-1 - ! found values of 0.006 to 0.023 m^2/ mg (676 nm) Neukermans 2014 - ! and averages over the 300-700nm of 0.0075 m^2/mg in ice Fritsen (2011) - ! at 440nm values as high as 0.2 m^2/mg in under ice bloom (Balch 2014) - ! Grenfell 1991 uses 0.004 (m^2/mg) which is (0.0078 * spectral weighting) - !chlorophyll mass extinction cross section (m^2/mg chla) - - character(len=char_len_long) :: & - warning ! warning message + real (kind=dbl_kind), parameter :: & ! chla-specific absorption coefficient + kchl_tab = p01 ! 0.0023-0.0029 Perovich 1993, also 0.0067 m^2 (mg Chl)^-1 + ! found values of 0.006 to 0.023 m^2/ mg (676 nm) Neukermans 2014 + ! and averages over the 300-700nm of 0.0075 m^2/mg in ice Fritsen (2011) + ! at 440nm values as high as 0.2 m^2/mg in under ice bloom (Balch 2014) + ! Grenfell 1991 uses 0.004 (m^2/mg) which is (0.0078 * spectral weighting) + ! chlorophyll mass extinction cross section (m^2/mg chla) real (kind=dbl_kind), dimension (nspint_5bd) :: & - wghtns_5bd_dfs, & ! spectral weights for diffuse incident - wghtns_5bd_drc ! spectral weights for direct incident + wghtns_5bd_dfs , & ! spectral weights for diffuse incident + wghtns_5bd_drc ! spectral weights for direct incident ! snow grain single-scattering properties for ! direct (drc) and diffuse (dfs) shortwave incidents ! local variable names, point to table data ! TODO use variable names in ice_shortwave_data directly real (kind=dbl_kind), pointer, dimension(:,:) :: & ! Model SNICAR snow SSP - asm_prm_ice_drc , & ! snow asymmetry factor (cos(theta)) - asm_prm_ice_dfs , & ! snow asymmetry factor (cos(theta)) - ss_alb_ice_drc , & ! snow single scatter albedo (fraction) - ss_alb_ice_dfs , & ! snow single scatter albedo (fraction) - ext_cff_mss_ice_drc , & ! snow mass extinction cross section (m2/kg) - ext_cff_mss_ice_dfs ! snow mass extinction cross section (m2/kg) + asm_prm_ice_drc , & ! snow asymmetry factor (cos(theta)) + asm_prm_ice_dfs , & ! snow asymmetry factor (cos(theta)) + ss_alb_ice_drc , & ! snow single scatter albedo (fraction) + ss_alb_ice_dfs , & ! snow single scatter albedo (fraction) + ext_cff_mss_ice_drc , & ! snow mass extinction cross section (m2/kg) + ext_cff_mss_ice_dfs ! snow mass extinction cross section (m2/kg) ! FUTURE-WORK: update 5-band sea ice iops when avalible real (kind=dbl_kind), dimension (nspint_5bd) :: & ! for ice only @@ -4555,7 +4540,7 @@ subroutine compute_dEdd_5bd (klev, klevp, & ! index integer (kind=int_kind) :: & - nsky !sky = 1 (2) for direct (diffuse) downward SW incident + nsky ! sky = 1 (2) for direct (diffuse) downward SW incident ! temporary variables used to assign variables for direct/diffuse incident ! based on snicar 5 band IOPs @@ -4565,7 +4550,7 @@ subroutine compute_dEdd_5bd (klev, klevp, & rupdir_snicar , & ! reflectivity to direct radiation for layers below rupdif_snicar ! reflectivity to diffuse radiation for layers above - ! solar zenith angle parameterizations + ! solar zenith angle parameters real (kind=dbl_kind), parameter :: & sza_a0 = 0.085730_dbl_kind , & sza_a1 = -0.630883_dbl_kind , & @@ -4573,7 +4558,7 @@ subroutine compute_dEdd_5bd (klev, klevp, & sza_b0 = 1.467291_dbl_kind , & sza_b1 = -3.338043_dbl_kind , & sza_b2 = 6.807489_dbl_kind , & - mu_75 = 0.2588_dbl_kind ! cosine of 75 degree + mu_75 = 0.2588_dbl_kind ! cos(75 degrees) real (kind=dbl_kind) :: & sza_c1 , & ! parameter for high sza adjustment @@ -4581,7 +4566,7 @@ subroutine compute_dEdd_5bd (klev, klevp, & sza_factor , & ! parameter for high sza adjustment mu0 - character(len=*),parameter :: subname='(compute_dEdd_3bd)' + character(len=*),parameter :: subname='(compute_dEdd_5bd)' !----------------------------------------------------------------------- ! Initialize and tune bare ice/ponded ice iops @@ -4603,20 +4588,24 @@ subroutine compute_dEdd_5bd (klev, klevp, & kii = nslyr + 1 ! initialize albedos and fluxes to 0 - fthrul = c0 - Iabs = c0 + fthrul = c0 + Iabs = c0 kabs_chl_5bd(:,:) = c0 - tzaer_5bd(:,:) = c0 - wzaer_5bd(:,:) = c0 - gzaer_5bd(:,:) = c0 - - avdr = c0 - avdf = c0 - aidr = c0 - aidf = c0 - fsfc = c0 - fint = c0 - fthru = c0 + tzaer_5bd (:,:) = c0 + wzaer_5bd (:,:) = c0 + gzaer_5bd (:,:) = c0 + + avdr = c0 + avdf = c0 + aidr = c0 + aidf = c0 + fsfc = c0 + fint = c0 + fthru = c0 + fthruvdr = c0 + fthruvdf = c0 + fthruidr = c0 + fthruidf = c0 ! spectral weights - 3 bands ! this section of code is kept for future mearge between 5band and 3 band @@ -4626,29 +4615,26 @@ subroutine compute_dEdd_5bd (klev, klevp, & ! near-infrared solar (0.7-5.0 micro-meter) which indicates clear/cloudy ! conditions: more cloud, the less 1.19-5.0 relative to the ! 0.7-1.19 micro-meter due to cloud absorption. - !wghtns(1) = c1 - !wghtns(2) = cp67 + (cp78-cp67)*(c1-fnidr) +! wghtns(1) = c1 +! wghtns(2) = cp67 + (cp78-cp67)*(c1-fnidr) ! wghtns(3) = cp33 + (cp22-cp33)*(c1-fnidr) - !wghtns(3) = c1 - wghtns(2) +! wghtns(3) = c1 - wghtns(2) ! spectral weights - 5 bands ! direct beam incident ! add-local-variable - wghtns_5bd_drc(1) = 1._dbl_kind - wghtns_5bd_drc(2) = 0.49352158521175_dbl_kind!0.49352_dbl_kind!0.50_dbl_kind - wghtns_5bd_drc(3) = 0.18099494230665_dbl_kind!0.18100_dbl_kind!0.18_dbl_kind - wghtns_5bd_drc(4) = 0.12094898498813_dbl_kind!0.12095_dbl_kind!0.12_dbl_kind ! + wghtns_5bd_drc(1) = c1 + wghtns_5bd_drc(2) = 0.49352158521175_dbl_kind + wghtns_5bd_drc(3) = 0.18099494230665_dbl_kind + wghtns_5bd_drc(4) = 0.12094898498813_dbl_kind wghtns_5bd_drc(5) = c1-(wghtns_5bd_drc(2)+wghtns_5bd_drc(3)+wghtns_5bd_drc(4)) - !wghtns_5bd_drc(5) = 0.20453448749347_dbl_kind!0.20453_dbl_kind!0.20_dbl_kind ! ! diffuse incident - wghtns_5bd_dfs(1) = 1._dbl_kind - wghtns_5bd_dfs(2) = 0.58581507618433_dbl_kind!0.58582_dbl_kind!0.59_dbl_kind ! - wghtns_5bd_dfs(3) = 0.20156903770812_dbl_kind!0.20157_dbl_kind!0.20_dbl_kind ! - wghtns_5bd_dfs(4) = 0.10917889346386_dbl_kind!0.10918_dbl_kind!0.11_dbl_kind ! + wghtns_5bd_dfs(1) = c1 + wghtns_5bd_dfs(2) = 0.58581507618433_dbl_kind + wghtns_5bd_dfs(3) = 0.20156903770812_dbl_kind + wghtns_5bd_dfs(4) = 0.10917889346386_dbl_kind wghtns_5bd_dfs(5) = c1-(wghtns_5bd_dfs(2)+wghtns_5bd_dfs(3)+wghtns_5bd_dfs(4)) - !wghtns_5bd_dfs(5) = 0.10343699264369_dbl_kind!0.10343_dbl_kind!0.10_dbl_kind ! - do k = 1, nslyr !frsnw(k) = (fr_max*fnidr + fr_min*(c1-fnidr))*rsnw(k) @@ -4695,37 +4681,37 @@ subroutine compute_dEdd_5bd (klev, klevp, & ! Note: the albedo change becomes non-linear for R values > +1 or < -1 if( R_ice >= c0 ) then do ns = 1, nspint_5bd - sigp = ki_ssl_mn_5bd(ns)*wi_ssl_mn_5bd(ns)*(c1+fp_ice*R_ice) + sigp = ki_ssl_mn_5bd(ns)*wi_ssl_mn_5bd(ns)*(c1+fp_ice*R_ice) ki_ssl_5bd(ns) = sigp+ki_ssl_mn_5bd(ns)*(c1-wi_ssl_mn_5bd(ns)) wi_ssl_5bd(ns) = sigp/ki_ssl_5bd(ns) gi_ssl_5bd(ns) = gi_ssl_mn_5bd(ns) - sigp = ki_dl_mn_5bd(ns)*wi_dl_mn_5bd(ns)*(c1+fp_ice*R_ice) + sigp = ki_dl_mn_5bd(ns)*wi_dl_mn_5bd(ns)*(c1+fp_ice*R_ice) ki_dl_5bd(ns) = sigp+ki_dl_mn_5bd(ns)*(c1-wi_dl_mn_5bd(ns)) wi_dl_5bd(ns) = sigp/ki_dl_5bd(ns) gi_dl_5bd(ns) = gi_dl_mn_5bd(ns) - sigp = ki_int_mn_5bd(ns)*wi_int_mn_5bd(ns)*(c1+fp_ice*R_ice) + sigp = ki_int_mn_5bd(ns)*wi_int_mn_5bd(ns)*(c1+fp_ice*R_ice) ki_int_5bd(ns) = sigp+ki_int_mn_5bd(ns)*(c1-wi_int_mn_5bd(ns)) wi_int_5bd(ns) = sigp/ki_int_5bd(ns) gi_int_5bd(ns) = gi_int_mn_5bd(ns) enddo else !if( R_ice < c0 ) then do ns = 1, nspint_5bd - sigp = ki_ssl_mn_5bd(ns)*wi_ssl_mn_5bd(ns)*(c1+fm_ice*R_ice) - sigp = max(sigp, c0) + sigp = ki_ssl_mn_5bd(ns)*wi_ssl_mn_5bd(ns)*(c1+fm_ice*R_ice) + sigp = max(sigp, c0) ki_ssl_5bd(ns) = sigp+ki_ssl_mn_5bd(ns)*(c1-wi_ssl_mn_5bd(ns)) wi_ssl_5bd(ns) = sigp/ki_ssl_5bd(ns) gi_ssl_5bd(ns) = gi_ssl_mn_5bd(ns) - sigp = ki_dl_mn_5bd(ns)*wi_dl_mn_5bd(ns)*(c1+fm_ice*R_ice) - sigp = max(sigp, c0) + sigp = ki_dl_mn_5bd(ns)*wi_dl_mn_5bd(ns)*(c1+fm_ice*R_ice) + sigp = max(sigp, c0) ki_dl_5bd(ns) = sigp+ki_dl_mn_5bd(ns)*(c1-wi_dl_mn_5bd(ns)) wi_dl_5bd(ns) = sigp/ki_dl_5bd(ns) gi_dl_5bd(ns) = gi_dl_mn_5bd(ns) - sigp = ki_int_mn_5bd(ns)*wi_int_mn_5bd(ns)*(c1+fm_ice*R_ice) - sigp = max(sigp, c0) + sigp = ki_int_mn_5bd(ns)*wi_int_mn_5bd(ns)*(c1+fm_ice*R_ice) + sigp = max(sigp, c0) ki_int_5bd(ns) = sigp+ki_int_mn_5bd(ns)*(c1-wi_int_mn_5bd(ns)) wi_int_5bd(ns) = sigp/ki_int_5bd(ns) gi_int_5bd(ns) = gi_int_mn_5bd(ns) @@ -4742,750 +4728,737 @@ subroutine compute_dEdd_5bd (klev, klevp, & else k = klev kabs_chl_5bd(1,k) = kalg*(0.50_dbl_kind/dzk(k)) - !print *, 'aerosol, k, kabs_chl_5bd(1,k)', k, kabs_chl_5bd(1,k) endif -!mgf++ if (modal_aero) then - do k=0,klev - if (k < nslyr+1) then ! define indices for snow layer - ! use top rsnw, rhosnw for snow ssl and rest of top layer - ! Cheng: note that aerosol IOPs are related to snow grain radius. - ! CICE adjusted snow grain radius rsnw to frsnw, while for - ! SNICAR there is no need, the tmp_gs is therefore calculated - ! differently from code in subroutine compute_dEdd - ksnow = k - min(k-1,0) - tmp_gs = rsnw(ksnow) ! use rsnw not frsnw - - ! get grain size index: - ! works for 25 < snw_rds < 1625 um: - if (tmp_gs < 125) then - tmp1 = tmp_gs/50 - k_bcini(k) = nint(tmp1) - elseif (tmp_gs < 175) then - k_bcini(k) = 2 - else - tmp1 = (tmp_gs/250)+2 - k_bcini(k) = nint(tmp1) - endif - else ! use the largest snow grain size for ice - k_bcini(k) = 8 - endif - ! Set index corresponding to BC effective radius. Here, - ! asssume constant BC effective radius of 100nm - ! (corresponding to index 2) - k_bcins(k) = 2 - k_bcexs(k) = 2 - - ! check bounds: - if (k_bcini(k) < 1) k_bcini(k) = 1 - if (k_bcini(k) > 8) k_bcini(k) = 8 - if (k_bcins(k) < 1) k_bcins(k) = 1 - if (k_bcins(k) > 10) k_bcins(k) = 10 - if (k_bcexs(k) < 1) k_bcexs(k) = 1 - if (k_bcexs(k) > 10) k_bcexs(k) = 10 - - ! print ice radius index: - ! write(warning,*) "MGFICE2:k, ice index= ",k, k_bcini(k) - ! call add_warning(warning) - enddo ! k - ! assign the aerosol index - - if (tr_zaero .and. dEdd_algae) then ! compute kzaero for chlorophyll - do n = 1,n_zaero - if (n == 1) then ! interstitial BC - do k = 0, klev - do ns = 1,nspint_5bd ! not weighted by aice - tzaer_5bd(ns,k) = tzaer_5bd(ns,k)+kaer_bc_5bd(ns,k_bcexs(k))* & - zbio(nlt_zaero_sw(n)+k)*dzk(k) - wzaer_5bd(ns,k) = wzaer_5bd(ns,k)+kaer_bc_5bd(ns,k_bcexs(k))* & - waer_bc_5bd(ns,k_bcexs(k))* & - zbio(nlt_zaero_sw(n)+k)*dzk(k) - gzaer_5bd(ns,k) = gzaer_5bd(ns,k)+kaer_bc_5bd(ns,k_bcexs(k))* & - waer_bc_5bd(ns,k_bcexs(k))* & - gaer_bc_5bd(ns,k_bcexs(k))*zbio(nlt_zaero_sw(n)+k)*dzk(k) - enddo ! nspint - enddo - elseif (n==2) then ! within-ice BC - do k = 0, klev - do ns = 1,nspint_5bd - tzaer_5bd(ns,k) = tzaer_5bd(ns,k)+kaer_bc_5bd(ns,k_bcins(k)) * & - bcenh_5bd(ns,k_bcins(k),k_bcini(k))* & - zbio(nlt_zaero_sw(n)+k)*dzk(k) - wzaer_5bd(ns,k) = wzaer_5bd(ns,k)+kaer_bc_5bd(ns,k_bcins(k))* & - waer_bc_5bd(ns,k_bcins(k))* & - zbio(nlt_zaero_sw(n)+k)*dzk(k) - gzaer_5bd(ns,k) = gzaer_5bd(ns,k)+kaer_bc_5bd(ns,k_bcins(k))* & - waer_bc_5bd(ns,k_bcins(k))* & - gaer_bc_5bd(ns,k_bcins(k))*zbio(nlt_zaero_sw(n)+k)*dzk(k) - enddo ! nspint - enddo - else ! dust - do k = 0, klev - do ns = 1,nspint_5bd ! not weighted by aice - tzaer_5bd(ns,k) = tzaer_5bd(ns,k)+kaer_5bd(ns,n)* & - zbio(nlt_zaero_sw(n)+k)*dzk(k) - wzaer_5bd(ns,k) = wzaer_5bd(ns,k)+kaer_5bd(ns,n)*waer_5bd(ns,n)* & - zbio(nlt_zaero_sw(n)+k)*dzk(k) - gzaer_5bd(ns,k) = gzaer_5bd(ns,k)+kaer_5bd(ns,n)*waer_5bd(ns,n)* & - gaer_5bd(ns,n)*zbio(nlt_zaero_sw(n)+k)*dzk(k) + do k = 0, klev + if (k < nslyr+1) then ! define indices for snow layer + ! use top rsnw, rhosnw for snow ssl and rest of top layer + ! Cheng: note that aerosol IOPs are related to snow grain radius. + ! CICE adjusted snow grain radius rsnw to frsnw, while for + ! SNICAR there is no need, the tmp_gs is therefore calculated + ! differently from code in subroutine compute_dEdd + ksnow = k - min(k-1,0) + tmp_gs = rsnw(ksnow) ! use rsnw not frsnw + + ! grain size index + ! works for 25 < snw_rds < 1625 um: + if (tmp_gs < 125._dbl_kind) then + tmp1 = tmp_gs/50._dbl_kind + k_bcini(k) = nint(tmp1) + elseif (tmp_gs < 175._dbl_kind) then + k_bcini(k) = 2 + else + tmp1 = (tmp_gs/250._dbl_kind) + c2 + k_bcini(k) = nint(tmp1) + endif + else ! use the largest snow grain size for ice + k_bcini(k) = 8 + endif + ! Set index corresponding to BC effective radius. Here, + ! asssume constant BC effective radius of 100nm + ! (corresponding to index 2) + k_bcins(k) = 2 ! hardwired + k_bcexs(k) = 2 ! hardwired + + ! check bounds + if (k_bcini(k) < 1) k_bcini(k) = 1 + if (k_bcini(k) > 8) k_bcini(k) = 8 +! if (k_bcins(k) < 1) k_bcins(k) = 1 ! hardwired +! if (k_bcins(k) > 10) k_bcins(k) = 10 +! if (k_bcexs(k) < 1) k_bcexs(k) = 1 +! if (k_bcexs(k) > 10) k_bcexs(k) = 10 + enddo ! k + + if (tr_zaero .and. dEdd_algae) then ! compute kzaero for chlorophyll + do n = 1, n_zaero + if (n == 1) then ! interstitial BC + do k = 0, klev + do ns = 1, nspint_5bd ! not weighted by aice + tzaer_5bd(ns,k) = tzaer_5bd (ns,k) & + + kaer_bc_5bd(ns,k_bcexs(k)) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + wzaer_5bd(ns,k) = wzaer_5bd (ns,k) & + + kaer_bc_5bd(ns,k_bcexs(k)) & + * waer_bc_5bd(ns,k_bcexs(k)) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + gzaer_5bd(ns,k) = gzaer_5bd (ns,k) & + + kaer_bc_5bd(ns,k_bcexs(k)) & + * waer_bc_5bd(ns,k_bcexs(k)) & + * gaer_bc_5bd(ns,k_bcexs(k)) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + enddo + enddo + elseif (n==2) then ! within-ice BC + do k = 0, klev + do ns = 1, nspint_5bd + tzaer_5bd(ns,k) = tzaer_5bd (ns,k) & + + kaer_bc_5bd(ns,k_bcins(k)) & + * bcenh_5bd(ns,k_bcins(k),k_bcini(k)) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + wzaer_5bd(ns,k) = wzaer_5bd (ns,k) & + + kaer_bc_5bd(ns,k_bcins(k)) & + * waer_bc_5bd(ns,k_bcins(k)) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + gzaer_5bd(ns,k) = gzaer_5bd (ns,k) & + + kaer_bc_5bd(ns,k_bcins(k)) & + * waer_bc_5bd(ns,k_bcins(k)) & + * gaer_bc_5bd(ns,k_bcins(k)) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + enddo + enddo + else ! dust + do k = 0, klev + do ns = 1, nspint_5bd ! not weighted by aice + tzaer_5bd(ns,k) = tzaer_5bd(ns,k) & + + kaer_5bd (ns,n) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + wzaer_5bd(ns,k) = wzaer_5bd(ns,k) & + + kaer_5bd (ns,n) & + * waer_5bd (ns,n) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + gzaer_5bd(ns,k) = gzaer_5bd(ns,k) & + + kaer_5bd (ns,n) & + * waer_5bd (ns,n) & + * gaer_5bd (ns,n) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) enddo ! nspint - enddo - endif !(n=1) - enddo ! n_zaero - endif ! tr_zaero and dEdd_algae - - else ! Bulk aerosol treatment - if (tr_zaero .and. dEdd_algae) then ! compute kzaero for chlorophyll - do n = 1,n_zaero ! multiply by aice? + enddo ! k + endif ! n + enddo ! n_zaero + endif ! tr_zaero and dEdd_algae + + else ! Bulk aerosol treatment + if (tr_zaero .and. dEdd_algae) then ! compute kzaero for chlorophyll + do n = 1, n_zaero ! multiply by aice? do k = 0, klev - do ns = 1,nspint_5bd ! not weighted by aice - tzaer_5bd(ns,k) = tzaer_5bd(ns,k)+kaer_5bd(ns,n)* & - zbio(nlt_zaero_sw(n)+k)*dzk(k) - wzaer_5bd(ns,k) = wzaer_5bd(ns,k)+kaer_5bd(ns,n)*waer_5bd(ns,n)* & - zbio(nlt_zaero_sw(n)+k)*dzk(k) - gzaer_5bd(ns,k) = gzaer_5bd(ns,k)+kaer_5bd(ns,n)*waer_5bd(ns,n)* & - gaer_5bd(ns,n)*zbio(nlt_zaero_sw(n)+k)*dzk(k) + do ns = 1, nspint_5bd ! not weighted by aice + tzaer_5bd(ns,k) = tzaer_5bd(ns,k) & + + kaer_5bd (ns,n) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + wzaer_5bd(ns,k) = wzaer_5bd(ns,k) & + + kaer_5bd (ns,n) & + * waer_5bd (ns,n) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) + gzaer_5bd(ns,k) = gzaer_5bd(ns,k) & + + kaer_5bd (ns,n) & + * waer_5bd (ns,n) & + * gaer_5bd (ns,n) & + * zbio(nlt_zaero_sw(n)+k) * dzk(k) enddo ! nspint - enddo - enddo - endif !tr_zaero - - endif ! modal_aero - + enddo ! k + enddo ! n + endif ! tr_zaero + endif ! modal_aero !----------------------------------------------------------------------- + ! begin spectral loop do ns = 1, nspint_5bd - ! for snow-covered sea ice, comput 5 bands - !if( srftyp == 1 ) then + + ! for snow-covered sea ice, compute 5 bands + !if( srftyp == 1 ) then ! SNICAR-AD major changes ! 1. loop through 5bands: do ns = 1, nspint_5bd based on nsky ! 2. use snow grain size rsnow, not scaled frsnw ! 3. replace $IOPs_tab with $IOPs_snicar ! 4. replace wghtns with wghtns_5bd - do nsky = 1,2 ! loop for both direct beam and diffuse beam - if (nsky == 1) then ! direc incident - do k=0,nslyr - ! use top rsnw, rhosnw for snow ssl and rest of top layer - ksnow = k - min(k-1,0) - if (rsnw(ksnow) <= rsnw_snicar_min) then - ks = ext_cff_mss_ice_drc(ns,1) - ws = ss_alb_ice_drc(ns,1) - gs = asm_prm_ice_drc(ns,1) - elseif (rsnw(ksnow) >= rsnw_snicar_max) then - ks = ext_cff_mss_ice_drc(ns,nmbrad_snicar) - ws = ss_alb_ice_drc(ns,nmbrad_snicar) - gs = asm_prm_ice_drc(ns,nmbrad_snicar) - elseif (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then - nr = ceiling(rsnw(ksnow)) - 30 + 1 + do nsky = 1, 2 ! loop for both direct beam and diffuse beam + if (nsky == 1) then ! direct incident + do k = 0, nslyr + ! use top rsnw, rhosnw for snow ssl and rest of top layer + ksnow = k - min(k-1,0) + if (rsnw(ksnow) <= rsnw_snicar_min) then + ks = ext_cff_mss_ice_drc(ns,1) + ws = ss_alb_ice_drc (ns,1) + gs = asm_prm_ice_drc (ns,1) + elseif (rsnw(ksnow) >= rsnw_snicar_max) then + ks = ext_cff_mss_ice_drc(ns,nmbrad_snicar) + ws = ss_alb_ice_drc (ns,nmbrad_snicar) + gs = asm_prm_ice_drc (ns,nmbrad_snicar) + elseif (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then + ! radius = 30 --> nr = 1 in SNICAR table ! NOTE + nr = ceiling(rsnw(ksnow)) - 30 + 1 ! hardwired min radius = 30 ks = ext_cff_mss_ice_drc(ns,nr) - ws = ss_alb_ice_drc(ns,nr) - gs = asm_prm_ice_drc(ns,nr) - else ! linear interpolation in rsnw - ! radius = 30 --> nr = 1 in SNICAR table - nr = ceiling(rsnw(ksnow)) - 30 + 1 - delr = (rsnw(ksnow) - floor(rsnw(ksnow))) / & - (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) - ks = ext_cff_mss_ice_drc(ns,nr-1)*(delr) + & - ext_cff_mss_ice_drc(ns,nr)*(c1-delr) - ws = ss_alb_ice_drc(ns,nr-1)*(delr) + & - ss_alb_ice_drc(ns,nr)*(c1-delr) - gs = asm_prm_ice_drc(ns,nr-1)*(delr) + & - asm_prm_ice_drc(ns,nr)*(c1-delr) - endif - tau(k) = (ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k))*dzk(k) - w0(k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k)) * ws - g(k) = gs - - !write(warning, *) "sky, k, tau, w0, g =", nsky, k, tau(k), w0(k), g(k) - !write(warning, *) "ns, ks, kabs_chl_5bd(ns,k), ", ns, ks, kabs_chl_5bd(ns,k) - !call add_warning(warning) - !print *, "rsnw(ksnow)", rsnw(ksnow) - !print *, "sky, k, tau, w0, g =", nsky, k, tau(k), w0(k), g(k) - !print *, "ns, ks, kabs_chl_5bd(ns,k), ",ns, ks, kabs_chl_5bd(ns,k) - + ws = ss_alb_ice_drc (ns,nr) + gs = asm_prm_ice_drc (ns,nr) + else ! linear interpolation in rsnw + nr = ceiling(rsnw(ksnow)) - 30 + 1 ! hardwired min radius = 30 + delr = (rsnw(ksnow) - floor(rsnw(ksnow))) & ! hardwired delta radius = 1 in table + / (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) ! denom always = 1? + ks = ext_cff_mss_ice_drc(ns,nr-1)* delr & ! echmod: BUG delr factors opposite 3bd case + + ext_cff_mss_ice_drc(ns,nr )*(c1-delr) ! echmod: and nsky=2 case below + ws = ss_alb_ice_drc (ns,nr-1)* delr & + + ss_alb_ice_drc (ns,nr )*(c1-delr) + gs = asm_prm_ice_drc (ns,nr-1)* delr & + + asm_prm_ice_drc (ns,nr )*(c1-delr) + endif + tau(k) = (ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k))*dzk(k) + w0 (k) = ks*rhosnw(ksnow) / (ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k)) * ws + g (k) = gs enddo ! k - elseif (nsky == 2) then ! diffuse incident - do k=0,nslyr - ! use top rsnw, rhosnw for snow ssl and rest of top layer - ksnow = k - min(k-1,0) - if (rsnw(ksnow) < rsnw_snicar_min) then - ks = ext_cff_mss_ice_dfs(ns,1) - ws = ss_alb_ice_dfs(ns,1) - gs = asm_prm_ice_dfs(ns,1) - elseif (rsnw(ksnow) > rsnw_snicar_max) then - ks = ext_cff_mss_ice_dfs(ns,nmbrad_snicar) - ws = ss_alb_ice_dfs(ns,nmbrad_snicar) - gs = asm_prm_ice_dfs(ns,nmbrad_snicar) - elseif (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then - nr = ceiling(rsnw(ksnow)) - 30 + 1 - ks = ext_cff_mss_ice_dfs(ns,nr) - ws = ss_alb_ice_dfs(ns,nr) - gs = asm_prm_ice_dfs(ns,nr) + elseif (nsky == 2) then ! diffuse incident + do k = 0, nslyr + ! use top rsnw, rhosnw for snow ssl and rest of top layer + ksnow = k - min(k-1,0) + if (rsnw(ksnow) < rsnw_snicar_min) then + ks = ext_cff_mss_ice_dfs(ns,1) + ws = ss_alb_ice_dfs (ns,1) + gs = asm_prm_ice_dfs (ns,1) + elseif (rsnw(ksnow) > rsnw_snicar_max) then + ks = ext_cff_mss_ice_dfs(ns,nmbrad_snicar) + ws = ss_alb_ice_dfs (ns,nmbrad_snicar) + gs = asm_prm_ice_dfs (ns,nmbrad_snicar) + elseif (ceiling(rsnw(ksnow)) - rsnw(ksnow) < 1.0e-3_dbl_kind) then + ! radius = 30 --> nr = 1 in SNICAR table ! NOTE + nr = ceiling(rsnw(ksnow)) - 30 + 1 ! hardwired min radius = 30 + ks = ext_cff_mss_ice_dfs(ns,nr) + ws = ss_alb_ice_dfs (ns,nr) + gs = asm_prm_ice_dfs (ns,nr) else ! linear interpolation in rsnw - ! radius = 30 --> nr = 1 in SNICAR table - nr = ceiling(rsnw(ksnow)) - 30 + 1 - delr = (rsnw(ksnow) - floor(rsnw(ksnow))) / & - (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) - ks = ext_cff_mss_ice_dfs(ns,nr-1)*(c1-delr) + & - ext_cff_mss_ice_dfs(ns,nr)*delr - ws = ss_alb_ice_dfs(ns,nr-1)*(c1-delr) + & - ss_alb_ice_dfs(ns,nr)*delr - gs = asm_prm_ice_dfs(ns,nr-1)*(c1-delr) + & - asm_prm_ice_dfs(ns,nr)*delr - endif - tau(k) = (ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k))*dzk(k) - w0(k) = (ks*rhosnw(ksnow))/(ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k)) * ws - g(k) = gs - - !write(warning, *) "sky, k, tau, w0, g =", nsky, k, tau(k), w0(k), g(k) - !write(warning, *) "ns, ks, kabs_chl_5bd(ns,k), ", ns, ks, kabs_chl_5bd(ns,k) - !call add_warning(warning) + nr = ceiling(rsnw(ksnow)) - 30 + 1 ! hardwired min radius = 30 + delr = (rsnw(ksnow) - floor(rsnw(ksnow))) & ! hardwired delta radius = 1 in table + / (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) + ks = ext_cff_mss_ice_dfs(ns,nr-1)*(c1-delr) & + + ext_cff_mss_ice_dfs(ns,nr )* delr + ws = ss_alb_ice_dfs (ns,nr-1)*(c1-delr) & + + ss_alb_ice_dfs (ns,nr )* delr + gs = asm_prm_ice_dfs (ns,nr-1)*(c1-delr) & + + asm_prm_ice_dfs (ns,nr )* delr + endif + tau(k) = (ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k))*dzk(k) + w0 (k) = ks*rhosnw(ksnow) / (ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k)) * ws + g (k) = gs enddo ! k - endif ! end if nsky for snow IOPs assignment - !------------------------------------------------------------------------------ - - !aerosol in snow - if (tr_zaero .and. dEdd_algae) then - do k = 0,nslyr - g(k) = (g(k)*w0(k)*tau(k) + gzaer_5bd(ns,k)) / & - (w0(k)*tau(k) + wzaer_5bd(ns,k)) - w0(k) = (w0(k)*tau(k) + wzaer_5bd(ns,k)) / & - (tau(k) + tzaer_5bd(ns,k)) - tau(k) = tau(k) + tzaer_5bd(ns,k) - enddo - elseif (tr_aero) then + endif ! nsky for snow IOPs + + !------------------------------------------------------------------------------ + + ! aerosol in snow + if (tr_zaero .and. dEdd_algae) then + do k = 0,nslyr + g (k) = (g(k)*w0(k)*tau(k) + gzaer_5bd(ns,k)) / & + (w0(k)*tau(k) + wzaer_5bd(ns,k)) + w0 (k) = (w0(k)*tau(k) + wzaer_5bd(ns,k)) / & + (tau(k) + tzaer_5bd(ns,k)) + tau(k) = tau(k) + tzaer_5bd(ns,k) + enddo + elseif (tr_aero) then k = 0 ! snow SSL taer = c0 waer = c0 gaer = c0 - do na=1,4*n_aero,4 -! mgf++ + do na = 1, 4*n_aero, 4 if (modal_aero) then - if (na == 1) then - !interstitial BC - taer = taer + & - aero_mp(na)*kaer_bc_5bd(ns,k_bcexs(k)) - waer = waer + & - aero_mp(na)*kaer_bc_5bd(ns,k_bcexs(k))* & - waer_bc_5bd(ns,k_bcexs(k)) - gaer = gaer + & - aero_mp(na)*kaer_bc_5bd(ns,k_bcexs(k))* & - waer_bc_5bd(ns,k_bcexs(k))*gaer_bc_5bd(ns,k_bcexs(k)) - elseif (na == 5)then - !within-ice BC - taer = taer + & - aero_mp(na)*kaer_bc_5bd(ns,k_bcins(k))* & - bcenh_5bd(ns,k_bcins(k),k_bcini(k)) - waer = waer + & - aero_mp(na)*kaer_bc_5bd(ns,k_bcins(k))* & - waer_bc_5bd(ns,k_bcins(k)) - gaer = gaer + & - aero_mp(na)*kaer_bc_5bd(ns,k_bcins(k))* & - waer_bc_5bd(ns,k_bcins(k))*gaer_bc_5bd(ns,k_bcins(k)) - else - ! other species (dust) - taer = taer + & - aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4)) - waer = waer + & - aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4))* & - waer_5bd(ns,(1+(na-1)/4)) - gaer = gaer + & - aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4))* & - waer_5bd(ns,(1+(na-1)/4))*gaer_5bd(ns,(1+(na-1)/4)) - endif + if (na == 1) then ! interstitial BC + taer = taer + aero_mp(na)*kaer_bc_5bd(ns,k_bcexs(k)) + waer = waer + aero_mp(na)*kaer_bc_5bd(ns,k_bcexs(k)) & + *waer_bc_5bd(ns,k_bcexs(k)) + gaer = gaer + aero_mp(na)*kaer_bc_5bd(ns,k_bcexs(k)) & + *waer_bc_5bd(ns,k_bcexs(k)) & + *gaer_bc_5bd(ns,k_bcexs(k)) + elseif (na == 5) then ! within-ice BC + taer = taer + aero_mp(na)*kaer_bc_5bd(ns,k_bcins(k)) & + * bcenh_5bd(ns,k_bcins(k),k_bcini(k)) + waer = waer + aero_mp(na)*kaer_bc_5bd(ns,k_bcins(k)) & + *waer_bc_5bd(ns,k_bcins(k)) + gaer = gaer + aero_mp(na)*kaer_bc_5bd(ns,k_bcins(k)) & + *waer_bc_5bd(ns,k_bcins(k)) & + *gaer_bc_5bd(ns,k_bcins(k)) + else ! other species (dust) + taer = taer + aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4)) + waer = waer + aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4)) & + *waer_5bd(ns,(1+(na-1)/4)) + gaer = gaer + aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4)) & + *waer_5bd(ns,(1+(na-1)/4)) & + *gaer_5bd(ns,(1+(na-1)/4)) + endif else - taer = taer + & - aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4)) - waer = waer + & - aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4))* & - waer_5bd(ns,(1+(na-1)/4)) - gaer = gaer + & - aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4))* & - waer_5bd(ns,(1+(na-1)/4))*gaer_5bd(ns,(1+(na-1)/4)) - endif !modal_aero -!mgf-- - enddo ! na + taer = taer + aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4)) + waer = waer + aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4)) & + *waer_5bd(ns,(1+(na-1)/4)) + gaer = gaer + aero_mp(na)*kaer_5bd(ns,(1+(na-1)/4)) & + *waer_5bd(ns,(1+(na-1)/4)) & + *gaer_5bd(ns,(1+(na-1)/4)) + endif ! modal_aero + enddo ! na gaer = gaer/(waer+puny) waer = waer/(taer+puny) ! tcraig, again why does the above exist if taer=waer=gaer=0 below - do k=1,nslyr + do k = 1, nslyr taer = c0 waer = c0 gaer = c0 - do na=1,4*n_aero,4 + do na = 1, 4*n_aero, 4 if (modal_aero) then -!mgf++ - if (na==1) then - ! interstitial BC - taer = taer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_5bd(ns,k_bcexs(k)) - waer = waer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_5bd(ns,k_bcexs(k))* & - waer_bc_5bd(ns,k_bcexs(k)) - gaer = gaer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_5bd(ns,k_bcexs(k))* & - waer_bc_5bd(ns,k_bcexs(k))*gaer_bc_5bd(ns,k_bcexs(k)) - elseif (na==5) then - ! within-ice BC - taer = taer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_5bd(ns,k_bcins(k))*& - bcenh_5bd(ns,k_bcins(k),k_bcini(k)) - waer = waer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_5bd(ns,k_bcins(k))* & - waer_bc_5bd(ns,k_bcins(k)) - gaer = gaer + & - (aero_mp(na+1)/rnslyr)*kaer_bc_5bd(ns,k_bcins(k))* & - waer_bc_5bd(ns,k_bcins(k))*gaer_bc_5bd(ns,k_bcins(k)) - - else - ! other species (dust) - taer = taer + & - (aero_mp(na+1)/rnslyr)*kaer_5bd(ns,(1+(na-1)/4)) - waer = waer + & - (aero_mp(na+1)/rnslyr)*kaer_5bd(ns,(1+(na-1)/4))* & - waer_5bd(ns,(1+(na-1)/4)) - gaer = gaer + & - (aero_mp(na+1)/rnslyr)*kaer_5bd(ns,(1+(na-1)/4))* & - waer_5bd(ns,(1+(na-1)/4))*gaer_5bd(ns,(1+(na-1)/4)) - endif !(na==1) - + if (na==1) then ! interstitial BC + taer = taer + (aero_mp(na+1)/rnslyr) & !echmod: BUG should be *rnslyr + * kaer_bc_5bd(ns,k_bcexs(k)) + waer = waer + (aero_mp(na+1)/rnslyr) & + * kaer_bc_5bd(ns,k_bcexs(k)) & + * waer_bc_5bd(ns,k_bcexs(k)) + gaer = gaer + (aero_mp(na+1)/rnslyr) & + * kaer_bc_5bd(ns,k_bcexs(k)) & + * waer_bc_5bd(ns,k_bcexs(k)) & + * gaer_bc_5bd(ns,k_bcexs(k)) + elseif (na==5) then ! within-ice BC + taer = taer + (aero_mp(na+1)/rnslyr) & + * kaer_bc_5bd(ns,k_bcins(k)) & + * bcenh_5bd(ns,k_bcins(k),k_bcini(k)) + waer = waer + (aero_mp(na+1)/rnslyr) & + * kaer_bc_5bd(ns,k_bcins(k)) & + * waer_bc_5bd(ns,k_bcins(k)) + gaer = gaer + (aero_mp(na+1)/rnslyr) & + * kaer_bc_5bd(ns,k_bcins(k)) & + * waer_bc_5bd(ns,k_bcins(k)) & + * gaer_bc_5bd(ns,k_bcins(k)) + else ! other species (dust) + taer = taer + (aero_mp(na+1)/rnslyr) & + * kaer_5bd(ns,(1+(na-1)/4)) + waer = waer + (aero_mp(na+1)/rnslyr) & + * kaer_5bd(ns,(1+(na-1)/4)) & + * waer_5bd(ns,(1+(na-1)/4)) + gaer = gaer + (aero_mp(na+1)/rnslyr) & + * kaer_5bd(ns,(1+(na-1)/4)) & + * waer_5bd(ns,(1+(na-1)/4)) & + * gaer_5bd(ns,(1+(na-1)/4)) + endif ! na else - taer = taer + & - (aero_mp(na+1)*rnslyr)*kaer_5bd(ns,(1+(na-1)/4)) - waer = waer + & - (aero_mp(na+1)*rnslyr)*kaer_5bd(ns,(1+(na-1)/4))* & - waer_5bd(ns,(1+(na-1)/4)) - gaer = gaer + & - (aero_mp(na+1)*rnslyr)*kaer_5bd(ns,(1+(na-1)/4))* & - waer_5bd(ns,(1+(na-1)/4))*gaer_5bd(ns,(1+(na-1)/4)) + taer = taer + (aero_mp(na+1)*rnslyr) & !echmod NOTE * rnslyr not / + * kaer_5bd(ns,(1+(na-1)/4)) + waer = waer + (aero_mp(na+1)*rnslyr) & + * kaer_5bd(ns,(1+(na-1)/4)) & + * waer_5bd(ns,(1+(na-1)/4)) + gaer = gaer + (aero_mp(na+1)*rnslyr) & + * kaer_5bd(ns,(1+(na-1)/4)) & + * waer_5bd(ns,(1+(na-1)/4)) & + * gaer_5bd(ns,(1+(na-1)/4)) endif ! modal_aero -!mgf-- enddo ! na - g(k) = (g(k)*w0(k)*tau(k) + gaer) / & + g (k) = (g(k)*w0(k)*tau(k) + gaer) / & (w0(k)*tau(k) + waer) - w0(k) = (w0(k)*tau(k) + waer) / & + w0 (k) = (w0(k)*tau(k) + waer) / & (tau(k) + taer) tau(k) = tau(k) + taer enddo ! k endif ! tr_aero - ! set optical properties of sea ice + ! set optical properties of sea ice - ! bare or snow-covered sea ice layers - !if( srftyp <= 1 ) then - ! ssl - k = kii - tau(k) = (ki_ssl_5bd(ns)+kabs_chl_5bd(ns,k))*dzk(k) - w0(k) = ki_ssl_5bd(ns)/(ki_ssl_5bd(ns) + kabs_chl_5bd(ns,k))*wi_ssl_5bd(ns) - g(k) = gi_ssl_5bd(ns) - ! dl - k = kii + 1 - ! scale dz for dl relative to 4 even-layer-thickness 1.5m case - fs = p25/rnilyr - tau(k) = (ki_dl_5bd(ns) + kabs_chl_5bd(ns,k)) *dzk(k)*fs - w0(k) = ki_dl_5bd(ns)/(ki_dl_5bd(ns) + kabs_chl_5bd(ns,k)) *wi_dl_5bd(ns) - g(k) = gi_dl_5bd(ns) - ! int above lowest layer - if (kii+2 <= klev-1) then - do k = kii+2, klev-1 - tau(k) = (ki_int_5bd(ns) + kabs_chl_5bd(ns,k))*dzk(k) - w0(k) = ki_int_5bd(ns)/(ki_int_5bd(ns) + kabs_chl_5bd(ns,k)) *wi_int_5bd(ns) - g(k) = gi_int_5bd(ns) - enddo - endif - ! lowest layer - k = klev - ! add algae to lowest sea ice layer, visible only: - kabs = ki_int_5bd(ns)*(c1-wi_int_5bd(ns)) - if( ns == 1 ) then - ! total layer absorption optical depth fixed at value - ! of kalg*0.50m, independent of actual layer thickness - kabs = kabs + kabs_chl_5bd(ns,k) - endif - sig = ki_int_5bd(ns)*wi_int_5bd(ns) - tau(k) = (kabs+sig)*dzk(k) - w0(k) = (sig/(sig+kabs)) - g(k) = gi_int_5bd(ns) - ! aerosol in sea ice - if (tr_zaero .and. dEdd_algae) then - do k = kii, klev - g(k) = (g(k)*w0(k)*tau(k) + gzaer_5bd(ns,k)) / & - (w0(k)*tau(k) + wzaer_5bd(ns,k)) - w0(k) = (w0(k)*tau(k) + wzaer_5bd(ns,k)) / & - (tau(k) + tzaer_5bd(ns,k)) - tau(k) = tau(k) + tzaer_5bd(ns,k) - enddo - elseif (tr_aero) then - k = kii ! sea ice SSL + ! bare or snow-covered sea ice layers + !if (srftyp <= 1) then + ! ssl + k = kii + tau(k) = (ki_ssl_5bd(ns) + kabs_chl_5bd(ns,k)) * dzk(k) + w0 (k) = ki_ssl_5bd(ns)/(ki_ssl_5bd(ns) + kabs_chl_5bd(ns,k)) * wi_ssl_5bd(ns) + g (k) = gi_ssl_5bd(ns) + ! dl + k = kii + 1 + ! scale dz for dl relative to 4 even-layer-thickness 1.5m case + fs = p25/rnilyr + tau(k) = (ki_dl_5bd(ns) + kabs_chl_5bd(ns,k)) * dzk(k) * fs + w0 (k) = ki_dl_5bd(ns)/(ki_dl_5bd(ns) + kabs_chl_5bd(ns,k)) * wi_dl_5bd(ns) + g (k) = gi_dl_5bd(ns) + ! int above lowest layer + if (kii+2 <= klev-1) then + do k = kii+2, klev-1 + tau(k) = (ki_int_5bd(ns) + kabs_chl_5bd(ns,k)) * dzk(k) + w0 (k) = ki_int_5bd(ns)/(ki_int_5bd(ns) + kabs_chl_5bd(ns,k)) * wi_int_5bd(ns) + g (k) = gi_int_5bd(ns) + enddo + endif + ! lowest layer + k = klev + ! add algae to lowest sea ice layer, visible only: + kabs = ki_int_5bd(ns)*(c1-wi_int_5bd(ns)) + if (ns == 1) then + ! total layer absorption optical depth fixed at value + ! of kalg*0.50m, independent of actual layer thickness + kabs = kabs + kabs_chl_5bd(ns,k) + endif + sig = ki_int_5bd(ns)*wi_int_5bd(ns) + tau(k) = (kabs+sig) * dzk(k) + w0 (k) = sig/(sig+kabs) + g (k) = gi_int_5bd(ns) + ! aerosol in sea ice + if (tr_zaero .and. dEdd_algae) then + do k = kii, klev + g (k) = (g(k)*w0(k)*tau(k) + gzaer_5bd(ns,k)) / & + (w0(k)*tau(k) + wzaer_5bd(ns,k)) + w0 (k) = (w0(k)*tau(k) + wzaer_5bd(ns,k)) / & + (tau(k) + tzaer_5bd(ns,k)) + tau(k) = tau(k) + tzaer_5bd(ns,k) + enddo + elseif (tr_aero) then + k = kii ! sea ice SSL + taer = c0 + waer = c0 + gaer = c0 + do na = 1, 4*n_aero, 4 + if (modal_aero) then + if (na==1) then ! interstitial BC + taer = taer + aero_mp(na+2) & + * kaer_bc_5bd(ns,k_bcexs(k)) + waer = waer + aero_mp(na+2) & + * kaer_bc_5bd(ns,k_bcexs(k)) & + * waer_bc_5bd(ns,k_bcexs(k)) + gaer = gaer + aero_mp(na+2) & + * kaer_bc_5bd(ns,k_bcexs(k)) & + * waer_bc_5bd(ns,k_bcexs(k)) & + * gaer_bc_5bd(ns,k_bcexs(k)) + elseif (na==5) then ! within-ice BC + taer = taer + aero_mp(na+2) & + * kaer_bc_5bd(ns,k_bcins(k)) & + * bcenh_5bd(ns,k_bcins(k),k_bcini(k)) + waer = waer + aero_mp(na+2) & + * kaer_bc_5bd(ns,k_bcins(k)) & + * waer_bc_5bd(ns,k_bcins(k)) + gaer = gaer + aero_mp(na+2) & + * kaer_bc_5bd(ns,k_bcins(k)) & + * waer_bc_5bd(ns,k_bcins(k)) & + * gaer_bc_5bd(ns,k_bcins(k)) + else ! other species (dust) + taer = taer + aero_mp(na+2) & + * kaer_5bd(ns,(1+(na-1)/4)) + waer = waer + aero_mp(na+2) & + * kaer_5bd(ns,(1+(na-1)/4)) & + * waer_5bd(ns,(1+(na-1)/4)) + gaer = gaer + aero_mp(na+2) & + * kaer_5bd(ns,(1+(na-1)/4)) & + * waer_5bd(ns,(1+(na-1)/4)) & + * gaer_5bd(ns,(1+(na-1)/4)) + endif + else ! bulk + taer = taer + aero_mp(na+2) & + * kaer_5bd(ns,(1+(na-1)/4)) + waer = waer + aero_mp(na+2) & + * kaer_5bd(ns,(1+(na-1)/4)) & + * waer_5bd(ns,(1+(na-1)/4)) + gaer = gaer + aero_mp(na+2) & + * kaer_5bd(ns,(1+(na-1)/4)) & + * waer_5bd(ns,(1+(na-1)/4)) & + * gaer_5bd(ns,(1+(na-1)/4)) + endif ! modal_aero + enddo ! na + g (k) = (g(k)*w0(k)*tau(k) + gaer) / & + (w0(k)*tau(k) + waer) + w0 (k) = (w0(k)*tau(k) + waer) / & + (tau(k) + taer) + tau(k) = tau(k) + taer + do k = kii+1, klev taer = c0 waer = c0 gaer = c0 - do na=1,4*n_aero,4 - !mgf++ + do na = 1, 4*n_aero, 4 if (modal_aero) then - if (na==1) then - ! interstitial BC - taer = taer + & - aero_mp(na+2)*kaer_bc_5bd(ns,k_bcexs(k)) - waer = waer + & - aero_mp(na+2)*kaer_bc_5bd(ns,k_bcexs(k))* & - waer_bc_5bd(ns,k_bcexs(k)) - gaer = gaer + & - aero_mp(na+2)*kaer_bc_5bd(ns,k_bcexs(k))* & - waer_bc_5bd(ns,k_bcexs(k))*gaer_bc_5bd(ns,k_bcexs(k)) - elseif (na==5) then - ! within-ice BC - taer = taer + & - aero_mp(na+2)*kaer_bc_5bd(ns,k_bcins(k))* & - bcenh_5bd(ns,k_bcins(k),k_bcini(k)) - waer = waer + & - aero_mp(na+2)*kaer_bc_5bd(ns,k_bcins(k))* & - waer_bc_5bd(ns,k_bcins(k)) - gaer = gaer + & - aero_mp(na+2)*kaer_bc_5bd(ns,k_bcins(k))* & - waer_bc_5bd(ns,k_bcins(k))*gaer_bc_5bd(ns,k_bcins(k)) - else - ! other species (dust) - taer = taer + & - aero_mp(na+2)*kaer_5bd(ns,(1+(na-1)/4)) - waer = waer + & - aero_mp(na+2)*kaer_5bd(ns,(1+(na-1)/4))* & - waer_5bd(ns,(1+(na-1)/4)) - gaer = gaer + & - aero_mp(na+2)*kaer_5bd(ns,(1+(na-1)/4))* & - waer_5bd(ns,(1+(na-1)/4))*gaer_5bd(ns,(1+(na-1)/4)) + if (na==1) then ! interstitial BC + taer = taer + (aero_mp(na+3)/rnilyr) & !echmod: BUG should be *rnilyr + * kaer_bc_5bd(ns,k_bcexs(k)) + waer = waer + (aero_mp(na+3)/rnilyr) & + * kaer_bc_5bd(ns,k_bcexs(k)) & + * waer_bc_5bd(ns,k_bcexs(k)) + gaer = gaer + (aero_mp(na+3)/rnilyr) & + * kaer_bc_5bd(ns,k_bcexs(k)) & + * waer_bc_5bd(ns,k_bcexs(k)) & + * gaer_bc_5bd(ns,k_bcexs(k)) + elseif (na==5) then ! within-ice BC + taer = taer + (aero_mp(na+3)/rnilyr) & + * kaer_bc_5bd(ns,k_bcins(k)) & + * bcenh_5bd(ns,k_bcins(k),k_bcini(k)) + waer = waer + (aero_mp(na+3)/rnilyr) & + * kaer_bc_5bd(ns,k_bcins(k)) & + * waer_bc_5bd(ns,k_bcins(k)) + gaer = gaer + (aero_mp(na+3)/rnilyr) & + * kaer_bc_5bd(ns,k_bcins(k)) & + * waer_bc_5bd(ns,k_bcins(k)) & + * gaer_bc_5bd(ns,k_bcins(k)) + else ! other species (dust) + taer = taer + (aero_mp(na+3)/rnilyr) & + * kaer_5bd(ns,(1+(na-1)/4)) + waer = waer + (aero_mp(na+3)/rnilyr) & + * kaer_5bd(ns,(1+(na-1)/4)) & + * waer_5bd(ns,(1+(na-1)/4)) + gaer = gaer + (aero_mp(na+3)/rnilyr) & + * kaer_5bd(ns,(1+(na-1)/4)) & + * waer_5bd(ns,(1+(na-1)/4)) & + * gaer_5bd(ns,(1+(na-1)/4)) endif - else !bulk - taer = taer + & - aero_mp(na+2)*kaer_5bd(ns,(1+(na-1)/4)) - waer = waer + & - aero_mp(na+2)*kaer_5bd(ns,(1+(na-1)/4))* & - waer_5bd(ns,(1+(na-1)/4)) - gaer = gaer + & - aero_mp(na+2)*kaer_5bd(ns,(1+(na-1)/4))* & - waer_5bd(ns,(1+(na-1)/4))*gaer_5bd(ns,(1+(na-1)/4)) - endif ! modal_aero - !mgf-- - enddo ! na - - g(k) = (g(k)*w0(k)*tau(k) + gaer) / & + else !bulk + taer = taer + (aero_mp(na+3)*rnilyr) & !echmod NOTE * rnilyr, not / + * kaer_5bd(ns,(1+(na-1)/4)) + waer = waer + (aero_mp(na+3)*rnilyr) & + * kaer_5bd(ns,(1+(na-1)/4)) & + * waer_5bd(ns,(1+(na-1)/4)) + gaer = gaer + (aero_mp(na+3)*rnilyr) & + * kaer_5bd(ns,(1+(na-1)/4)) & + * waer_5bd(ns,(1+(na-1)/4)) & + * gaer_5bd(ns,(1+(na-1)/4)) + endif ! modal_aero + enddo ! na + g (k) = (g(k)*w0(k)*tau(k) + gaer) / & (w0(k)*tau(k) + waer) - w0(k) = (w0(k)*tau(k) + waer) / & + w0 (k) = (w0(k)*tau(k) + waer) / & (tau(k) + taer) tau(k) = tau(k) + taer - do k = kii+1, klev - taer = c0 - waer = c0 - gaer = c0 - do na=1,4*n_aero,4 - !mgf++ - if (modal_aero) then - if (na==1) then - ! interstitial BC - taer = taer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_5bd(ns,k_bcexs(k)) - waer = waer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_5bd(ns,k_bcexs(k))* & - waer_bc_5bd(ns,k_bcexs(k)) - gaer = gaer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_5bd(ns,k_bcexs(k))* & - waer_bc_5bd(ns,k_bcexs(k))*gaer_bc_5bd(ns,k_bcexs(k)) - elseif (na==5) then - ! within-ice BC - taer = taer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_5bd(ns,k_bcins(k))* & - bcenh_5bd(ns,k_bcins(k),k_bcini(k)) - waer = waer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_5bd(ns,k_bcins(k))* & - waer_bc_5bd(ns,k_bcins(k)) - gaer = gaer + & - (aero_mp(na+3)/rnilyr)*kaer_bc_5bd(ns,k_bcins(k))* & - waer_bc_5bd(ns,k_bcins(k))*gaer_bc_5bd(ns,k_bcins(k)) - - else - ! other species (dust) - taer = taer + & - (aero_mp(na+3)/rnilyr)*kaer_5bd(ns,(1+(na-1)/4)) - waer = waer + & - (aero_mp(na+3)/rnilyr)*kaer_5bd(ns,(1+(na-1)/4))* & - waer_5bd(ns,(1+(na-1)/4)) - gaer = gaer + & - (aero_mp(na+3)/rnilyr)*kaer_5bd(ns,(1+(na-1)/4))* & - waer_5bd(ns,(1+(na-1)/4))*gaer_5bd(ns,(1+(na-1)/4)) - endif - else !bulk - - taer = taer + & - (aero_mp(na+3)*rnilyr)*kaer_5bd(ns,(1+(na-1)/4)) - waer = waer + & - (aero_mp(na+3)*rnilyr)*kaer_5bd(ns,(1+(na-1)/4))* & - waer_5bd(ns,(1+(na-1)/4)) - gaer = gaer + & - (aero_mp(na+3)*rnilyr)*kaer_5bd(ns,(1+(na-1)/4))* & - waer_5bd(ns,(1+(na-1)/4))*gaer_5bd(ns,(1+(na-1)/4)) - endif ! modal_aero - !mgf-- - enddo ! na - g(k) = (g(k)*w0(k)*tau(k) + gaer) / & - (w0(k)*tau(k) + waer) - w0(k) = (w0(k)*tau(k) + waer) / & - (tau(k) + taer) - tau(k) = tau(k) + taer - enddo ! k - endif ! tr_aero + enddo ! k + endif ! tr_aero + ! --------------------------------------------------------------------------- - ! set reflectivities for ocean underlying sea ice - ! if ns == 1 (visible), albedo is 0.1, else, albedo is zero - rns = real(ns-1, kind=dbl_kind) - albodr = cp01 * (c1 - min(rns, c1)) - albodf = cp01 * (c1 - min(rns, c1)) - - ! layer input properties now completely specified: tau, w0, g, - ! albodr, albodf; now compute the Delta-Eddington solution - ! reflectivities and transmissivities for each layer; then, - ! combine the layers going downwards accounting for multiple - ! scattering between layers, and finally start from the - ! underlying ocean and combine successive layers upwards to - ! the surface; see comments in solution_dEdd for more details. - call solution_dEdd & - (coszen, srftyp, klev, klevp, & - tau, w0, g, albodr, albodf, & - trndir, trntdr, trndif, rupdir, rupdif, & - rdndif) - ! the interface reflectivities and transmissivities required - ! to evaluate interface fluxes are returned from solution_dEdd; - ! now compute up and down fluxes for each interface, using the - ! combined layer properties at each interface: - ! - ! layers interface - ! - ! --------------------- k - ! k - ! --------------------- - - do k = 0, klevp - ! interface scattering - refk = c1/(c1 - rdndif(k)*rupdif(k)) - ! dir tran ref from below times interface scattering, plus diff - ! tran and ref from below times interface scattering - ! fdirup(k) = (trndir(k)*rupdir(k) + & - ! (trntdr(k)-trndir(k)) & - ! *rupdif(k))*refk - ! dir tran plus total diff trans times interface scattering plus - ! dir tran with up dir ref and down dif ref times interface scattering - ! fdirdn(k) = trndir(k) + (trntdr(k) & - ! - trndir(k) + trndir(k) & - ! *rupdir(k)*rdndif(k))*refk - ! diffuse tran ref from below times interface scattering - ! fdifup(k) = trndif(k)*rupdif(k)*refk - ! diffuse tran times interface scattering - ! fdifdn(k) = trndif(k)*refk - - ! dfdir = fdirdn - fdirup - dfdir(k) = trndir(k) & - + (trntdr(k)-trndir(k)) * (c1 - rupdif(k)) * refk & - - trndir(k)*rupdir(k) * (c1 - rdndif(k)) * refk - if (dfdir(k) < puny) dfdir(k) = c0 !echmod necessary? - ! dfdif = fdifdn - fdifup - dfdif(k) = trndif(k) * (c1 - rupdif(k)) * refk - if (dfdif(k) < puny) dfdif(k) = c0 !echmod necessary? - enddo ! k - - ! note that because the snow IOPs for diffuse and direct incidents - ! are different, the snow albedo needs to be calculated twice for - ! direct incident and diffuse incident respectively - if (nsky == 1) then ! direc beam (keep the direct beam results) - do k = 0, klevp - dfdir_snicar(k) = dfdir(k) - rupdir_snicar(k) = rupdir(k) - enddo - elseif (nsky == 2) then ! diffuse (keep the diffuse incident results) - do k = 0, klevp + ! set reflectivities for ocean underlying sea ice + ! if ns == 1 (visible), albedo is 0.1, else, albedo is zero + rns = real(ns-1, kind=dbl_kind) + albodr = cp01 * (c1 - min(rns, c1)) + albodf = cp01 * (c1 - min(rns, c1)) + + ! layer input properties now completely specified: tau, w0, g, + ! albodr, albodf; now compute the Delta-Eddington solution + ! reflectivities and transmissivities for each layer; then, + ! combine the layers going downwards accounting for multiple + ! scattering between layers, and finally start from the + ! underlying ocean and combine successive layers upwards to + ! the surface; see comments in solution_dEdd for more details. + + call solution_dEdd ( & + coszen, srftyp, klev, klevp, & + tau, w0, g, albodr, albodf, & + trndir, trntdr, trndif, rupdir, rupdif, & + rdndif) + if (icepack_warnings_aborted(subname)) return + + ! the interface reflectivities and transmissivities required + ! to evaluate interface fluxes are returned from solution_dEdd; + ! now compute up and down fluxes for each interface, using the + ! combined layer properties at each interface: + ! + ! layers interface + ! + ! --------------------- k + ! k + ! --------------------- + + do k = 0, klevp + ! interface scattering + refk = c1/(c1 - rdndif(k)*rupdif(k)) + ! dir tran ref from below times interface scattering, plus diff + ! tran and ref from below times interface scattering + ! fdirup(k) = (trndir(k)*rupdir(k) + & + ! (trntdr(k)-trndir(k)) & + ! *rupdif(k))*refk + ! dir tran plus total diff trans times interface scattering plus + ! dir tran with up dir ref and down dif ref times interface scattering + ! fdirdn(k) = trndir(k) + (trntdr(k) & + ! - trndir(k) + trndir(k) & + ! *rupdir(k)*rdndif(k))*refk + ! diffuse tran ref from below times interface scattering + ! fdifup(k) = trndif(k)*rupdif(k)*refk + ! diffuse tran times interface scattering + ! fdifdn(k) = trndif(k)*refk + + ! dfdir = fdirdn - fdirup + dfdir(k) = trndir(k) & + + (trntdr(k)-trndir(k)) * (c1 - rupdif(k)) * refk & + - trndir(k)*rupdir(k) * (c1 - rdndif(k)) * refk + if (dfdir(k) < puny) dfdir(k) = c0 !echmod necessary? + ! dfdif = fdifdn - fdifup + dfdif(k) = trndif(k) * (c1 - rupdif(k)) * refk + if (dfdif(k) < puny) dfdif(k) = c0 !echmod necessary? + enddo ! k + + ! note that because the snow IOPs for diffuse and direct incidents + ! are different, the snow albedo needs to be calculated twice for + ! direct incident and diffuse incident respectively + if (nsky == 1) then ! direct beam (keep the direct beam results) + do k = 0, klevp + dfdir_snicar(k) = dfdir(k) + rupdir_snicar(k) = rupdir(k) + enddo + elseif (nsky == 2) then ! diffuse (keep the diffuse incident results) + do k = 0, klevp dfdif_snicar(k) = dfdif(k) rupdif_snicar(k) = rupdif(k) - enddo - endif - enddo ! end direct/diffuse incident nsky - - ! calculate final surface albedos and fluxes- - ! all absorbed flux above ksrf is included in surface absorption - if( ns == 1) then ! visible - swdr = swvdr - swdf = swvdf - avdr = rupdir_snicar(0) - avdf = rupdif_snicar(0) - tmp_0 = dfdir_snicar(0 )*swdr + dfdif_snicar(0 )*swdf - tmp_ks = dfdir_snicar(ksrf )*swdr + dfdif_snicar(ksrf )*swdf - tmp_kl = dfdir_snicar(klevp)*swdr + dfdif_snicar(klevp)*swdf - - ! for layer biology: save visible only - do k = nslyr+2, klevp ! Start at DL layer of ice after SSL scattering - fthrul(k-nslyr-1) = dfdir_snicar(k)*swdr + dfdif_snicar(k)*swdf - enddo + enddo + endif + enddo ! end direct/diffuse nsky loop ------------------------------------ + + ! calculate final surface albedos and fluxes + ! all absorbed flux above ksrf is included in surface absorption + if (ns == 1) then ! visible + swdr = swvdr + swdf = swvdf + avdr = rupdir_snicar(0) + avdf = rupdif_snicar(0) + tmp_0 = dfdir_snicar(0 )*swdr + dfdif_snicar(0 )*swdf + tmp_ks = dfdir_snicar(ksrf )*swdr + dfdif_snicar(ksrf )*swdf + tmp_kl = dfdir_snicar(klevp)*swdr + dfdif_snicar(klevp)*swdf + + ! for layer biology: save visible only + do k = nslyr+2, klevp ! Start at DL layer of ice after SSL scattering + fthrul(k-nslyr-1) = dfdir_snicar(k)*swdr + dfdif_snicar(k)*swdf + enddo - fsfc = fsfc + tmp_0 - tmp_ks - fint = fint + tmp_ks - tmp_kl - fthru = fthru + tmp_kl + fsfc = fsfc + tmp_0 - tmp_ks + fint = fint + tmp_ks - tmp_kl + fthru = fthru + tmp_kl + fthruvdr = fthruvdr + dfdir_snicar(klevp)*swdr + fthruvdf = fthruvdf + dfdif_snicar(klevp)*swdf - ! if snow covered ice, set snow internal absorption; else, Sabs=0 - if( srftyp == 1 ) then + ! if snow covered ice, set snow internal absorption; else, Sabs=0 + if (srftyp == 1) then + ki = 0 + do k = 1, nslyr + ! skip snow SSL, since SSL absorption included in the surface + ! absorption fsfc above + km = k + kp = km + 1 + ki = ki + 1 + Sabs(ki) = Sabs(ki) & + + dfdir_snicar(km)*swdr + dfdif_snicar(km)*swdf & + - (dfdir_snicar(kp)*swdr + dfdif_snicar(kp)*swdf) + enddo ! k + endif + + ! complex indexing to insure proper absorptions for sea ice ki = 0 - do k=1,nslyr - ! skip snow SSL, since SSL absorption included in the surface - ! absorption fsfc above - km = k - kp = km + 1 - ki = ki + 1 - Sabs(ki) = Sabs(ki) & + do k = nslyr+2, nslyr+1+nilyr + ! for bare ice, DL absorption for sea ice layer 1 + km = k + kp = km + 1 + ! modify for top sea ice layer for snow over sea ice + if (srftyp == 1) then + ! must add SSL and DL absorption for sea ice layer 1 + if (k == nslyr+2) then + km = k - 1 + kp = km + 2 + endif + endif + ki = ki + 1 + Iabs(ki) = Iabs(ki) & + dfdir_snicar(km)*swdr + dfdif_snicar(km)*swdf & - (dfdir_snicar(kp)*swdr + dfdif_snicar(kp)*swdf) enddo ! k - endif - ! complex indexing to insure proper absorptions for sea ice - ki = 0 - do k=nslyr+2,nslyr+1+nilyr - ! for bare ice, DL absorption for sea ice layer 1 - km = k - kp = km + 1 - ! modify for top sea ice layer for snow over sea ice - if( srftyp == 1 ) then - ! must add SSL and DL absorption for sea ice layer 1 - if( k == nslyr+2 ) then - km = k - 1 - kp = km + 2 - endif - endif - ki = ki + 1 - Iabs(ki) = Iabs(ki) & - + dfdir_snicar(km)*swdr + dfdif_snicar(km)*swdf & - - (dfdir_snicar(kp)*swdr + dfdif_snicar(kp)*swdf) - enddo ! k + else ! ns > 1, near IR - else !if(ns > 1) then ! near IR - - swdr = swidr - swdf = swidf - - ! let fr2(3,4,5) = alb_2(3,4,5)*swd*wght2(3,4,5) - ! the ns=2(3,4,5) reflected fluxes respectively, - ! where alb_2(3,4,5) are the band - ! albedos, swd = nir incident shortwave flux, and wght2(3,4,5) are - ! the 2(3,4,5) band weights. thus, the total reflected flux is: - ! fr = fr2 + fr3 + fr4 + fr5 - ! = alb_2*swd*wght2 + alb_3*swd*wght3 + alb_4*swd*wght4 + alb_5*swd*wght5 - ! hence, the 2,3,4,5 nir band albedo is - ! alb = fr/swd = alb_2*wght2 + alb_3*wght3 + alb_4*wght4 + alb_5*wght5 - - aidr = aidr + rupdir_snicar(0)*wghtns_5bd_drc(ns) - aidf = aidf + rupdif_snicar(0)*wghtns_5bd_dfs(ns) - - tmp_0 = dfdir_snicar(0 )*swdr*wghtns_5bd_drc(ns) & - + dfdif_snicar(0 )*swdf*wghtns_5bd_dfs(ns) - tmp_ks = dfdir_snicar(ksrf )*swdr*wghtns_5bd_drc(ns) & - + dfdif_snicar(ksrf )*swdf*wghtns_5bd_dfs(ns) - tmp_kl = dfdir_snicar(klevp)*swdr*wghtns_5bd_drc(ns) & - + dfdif_snicar(klevp)*swdf*wghtns_5bd_dfs(ns) - - fsfc = fsfc + tmp_0 - tmp_ks - fint = fint + tmp_ks - tmp_kl - fthru = fthru + tmp_kl - - ! if snow covered ice, set snow internal absorption; else, Sabs=0 - if( srftyp == 1 ) then - ki = 0 - do k=1,nslyr - ! skip snow SSL, since SSL absorption included in the surface - ! absorption fsfc above - km = k - kp = km + 1 - ki = ki + 1 - Sabs(ki) = Sabs(ki) & - + dfdir_snicar(km)*swdr*wghtns_5bd_drc(ns) & - + dfdif_snicar(km)*swdf*wghtns_5bd_dfs(ns) & - -(dfdir_snicar(kp)*swdr*wghtns_5bd_drc(ns) & - + dfdif_snicar(kp)*swdf*wghtns_5bd_dfs(ns)) + swdr = swidr + swdf = swidf + ! let fr2(3,4,5) = alb_2(3,4,5)*swd*wght2(3,4,5) + ! the ns=2(3,4,5) reflected fluxes respectively, + ! where alb_2(3,4,5) are the band + ! albedos, swd = nir incident shortwave flux, and wght2(3,4,5) are + ! the 2(3,4,5) band weights. thus, the total reflected flux is: + ! fr = fr2 + fr3 + fr4 + fr5 + ! = alb_2*swd*wght2 + alb_3*swd*wght3 + alb_4*swd*wght4 + alb_5*swd*wght5 + ! hence, the 2,3,4,5 nir band albedo is + ! alb = fr/swd = alb_2*wght2 + alb_3*wght3 + alb_4*wght4 + alb_5*wght5 + + aidr = aidr + rupdir_snicar(0)*wghtns_5bd_drc(ns) + aidf = aidf + rupdif_snicar(0)*wghtns_5bd_dfs(ns) + + tmp_0 = dfdir_snicar(0 )*swdr*wghtns_5bd_drc(ns) & + + dfdif_snicar(0 )*swdf*wghtns_5bd_dfs(ns) + tmp_ks = dfdir_snicar(ksrf )*swdr*wghtns_5bd_drc(ns) & + + dfdif_snicar(ksrf )*swdf*wghtns_5bd_dfs(ns) + tmp_kl = dfdir_snicar(klevp)*swdr*wghtns_5bd_drc(ns) & + + dfdif_snicar(klevp)*swdf*wghtns_5bd_dfs(ns) + + fsfc = fsfc + tmp_0 - tmp_ks + fint = fint + tmp_ks - tmp_kl + fthru = fthru + tmp_kl + fthruidr = fthruidr + dfdir_snicar(klevp)*swdr*wghtns_5bd_drc(ns) + fthruidf = fthruidf + dfdif_snicar(klevp)*swdf*wghtns_5bd_dfs(ns) + + ! if snow covered ice, set snow internal absorption; else, Sabs=0 + if (srftyp == 1) then + ki = 0 + do k = 1, nslyr + ! skip snow SSL, since SSL absorption included in the surface + ! absorption fsfc above + km = k + kp = km + 1 + ki = ki + 1 + Sabs(ki) = Sabs(ki) & + + dfdir_snicar(km)*swdr*wghtns_5bd_drc(ns) & + + dfdif_snicar(km)*swdf*wghtns_5bd_dfs(ns) & + - dfdir_snicar(kp)*swdr*wghtns_5bd_drc(ns) & + - dfdif_snicar(kp)*swdf*wghtns_5bd_dfs(ns) enddo ! k endif - ! complex indexing to insure proper absorptions for sea ice - ki = 0 - do k=nslyr+2,nslyr+1+nilyr - ! for bare ice, DL absorption for sea ice layer 1 - km = k - kp = km + 1 - ! modify for top sea ice layer for snow over sea ice - if( srftyp == 1 ) then - ! must add SSL and DL absorption for sea ice layer 1 - if( k == nslyr+2 ) then - km = k - 1 - kp = km + 2 + ! complex indexing to insure proper absorptions for sea ice + ki = 0 + do k = nslyr+2, nslyr+1+nilyr + ! for bare ice, DL absorption for sea ice layer 1 + km = k + kp = km + 1 + ! modify for top sea ice layer for snow over sea ice + if (srftyp == 1) then + ! must add SSL and DL absorption for sea ice layer 1 + if (k == nslyr+2) then + km = k - 1 + kp = km + 2 + endif endif - endif - ki = ki + 1 - Iabs(ki) = Iabs(ki) & - + dfdir_snicar(km)*swdr*wghtns_5bd_drc(ns) & - + dfdif_snicar(km)*swdf*wghtns_5bd_dfs(ns) & - -(dfdir_snicar(kp)*swdr*wghtns_5bd_drc(ns) & - + dfdif_snicar(kp)*swdf*wghtns_5bd_dfs(ns)) - enddo ! k - endif ! ns = 1, ns > 1 - enddo ! end spectral loop ns - - - ! accumulate fluxes over bare sea ice + ki = ki + 1 + Iabs(ki) = Iabs(ki) & + + dfdir_snicar(km)*swdr*wghtns_5bd_drc(ns) & + + dfdif_snicar(km)*swdf*wghtns_5bd_dfs(ns) & + - dfdir_snicar(kp)*swdr*wghtns_5bd_drc(ns) & + - dfdif_snicar(kp)*swdf*wghtns_5bd_dfs(ns) + enddo ! k + endif ! ns + enddo ! ns: end spectral loop ! solar zenith angle parameterization - ! calculate the scaling factor for NIR direct albedo if SZA>75 degree + ! calculate the scaling factor for NIR direct albedo if SZA>75 degrees sza_factor = c1 - if( srftyp == 1 ) then - mu0 = max(coszen,p01) + if (srftyp == 1) then + mu0 = max(coszen, p01) if (mu0 < mu_75) then sza_c1 = sza_a0 + sza_a1 * mu0 + sza_a2 * mu0**2 sza_c0 = sza_b0 + sza_b1 * mu0 + sza_b2 * mu0**2 - sza_factor = sza_c1 * (log10(rsnw(1)) - 6.0) + sza_c0 - endif + sza_factor = sza_c1 * (log10(rsnw(1)) - 6.0_dbl_kind) + sza_c0 + endif endif - alvdr = avdr - alvdf = avdf - alidr = aidr * sza_factor !sza factor is always larger than or equal to 1 - alidf = aidf + alvdr = avdr + alvdf = avdf + alidr = aidr * sza_factor !sza factor is always larger than or equal to 1 + alidf = aidf + + ! accumulate fluxes over bare sea ice ! note that we assume the reduced NIR energy absorption by snow ! due to corrected snow albedo is absorbed by the snow single ! scattering layer only - this is generally true if snow SSL >= 2 cm ! by the default model set up: ! if snow_depth >= 8 cm, SSL = 4 cm, satisfy - ! esle if snow_depth >= 4 cm, SSL = snow_depth/2 >= 2 cm, satisfy - ! esle snow_depth < 4 cm, SSL = snow_depth/2, may overcool SSL layer + ! else if snow_depth >= 4 cm, SSL = snow_depth/2 >= 2 cm, satisfy + ! else snow_depth < 4 cm, SSL = snow_depth/2, may overcool SSL layer fswsfc = fswsfc + (fsfc- (sza_factor-c1)*aidr*swidr)*fi fswint = fswint + fint *fi fswthru = fswthru + fthru*fi - + fswthru_vdr = fswthru_vdr + fthruvdr*fi + fswthru_vdf = fswthru_vdf + fthruvdf*fi + fswthru_idr = fswthru_idr + fthruidr*fi + fswthru_idf = fswthru_idf + fthruidf*fi do k = 1, nslyr Sswabs(k) = Sswabs(k) + Sabs(k)*fi - enddo ! k + enddo do k = 1, nilyr Iswabs(k) = Iswabs(k) + Iabs(k)*fi - ! bgc layer - fswpenl(k) = fswpenl(k) + fthrul(k)* fi - - if (k == nilyr) then - fswpenl(k+1) = fswpenl(k+1) + fthrul(k+1)*fi - endif - enddo ! k + fswpenl(k) = fswpenl(k) + fthrul(k)*fi + enddo + fswpenl(nilyr+1) = fswpenl(nilyr+1) + fthrul(nilyr+1)*fi +#ifdef UNDEPRECATE_0LAYER !---------------------------------------------------------------- ! if ice has zero heat capacity, no SW can be absorbed ! in the ice/snow interior, so add to surface absorption. @@ -5503,7 +5476,7 @@ subroutine compute_dEdd_5bd (klev, klevp, & ! Sswabs(1) = c0 ! endif ! heat_capacity - +#endif end subroutine compute_dEdd_5bd !======================================================================= From 9ae618c48cb323882ee848da4fd4b9107c6c5d96 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Sat, 24 Sep 2022 18:15:42 -0500 Subject: [PATCH 46/64] bug fixes for ice/snow layer reciprocal, missing lines as in consortium icepack PR#400; bug fix for 5-band interpolation weights --- columnphysics/icepack_shortwave.F90 | 122 ++++++++++++++-------------- 1 file changed, 62 insertions(+), 60 deletions(-) diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 71441de2b..036f974ba 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -2394,10 +2394,11 @@ subroutine compute_dEdd_3bd( & *gaer_3bd(ns,(1+(na-1)/4)) endif ! modal_aero enddo ! na - gaer = gaer/(waer+puny) - waer = waer/(taer+puny) - -! tcraig, why does the above section exist if taer=waer=gaer=0 below + g (k) = (g(k)*w0(k)*tau(k) + gaer) / & + (w0(k)*tau(k) + waer) + w0 (k) = (w0(k)*tau(k) + waer) / & + (tau(k) + taer) + tau(k) = tau(k) + taer do k = 1, nslyr taer = c0 @@ -2406,39 +2407,39 @@ subroutine compute_dEdd_3bd( & do na = 1, 4*n_aero, 4 if (modal_aero) then if (na==1) then ! interstitial BC - taer = taer + (aero_mp(na+1)/rnslyr) & !echmod: BUG should be *rnslyr + taer = taer + (aero_mp(na+1)*rnslyr) & * kaer_bc_3bd(ns,k_bcexs(k)) - waer = waer + (aero_mp(na+1)/rnslyr) & + waer = waer + (aero_mp(na+1)*rnslyr) & * kaer_bc_3bd(ns,k_bcexs(k)) & * waer_bc_3bd(ns,k_bcexs(k)) - gaer = gaer + (aero_mp(na+1)/rnslyr) & + gaer = gaer + (aero_mp(na+1)*rnslyr) & * kaer_bc_3bd(ns,k_bcexs(k)) & * waer_bc_3bd(ns,k_bcexs(k)) & * gaer_bc_3bd(ns,k_bcexs(k)) elseif (na==5) then ! within-ice BC - taer = taer + (aero_mp(na+1)/rnslyr) & + taer = taer + (aero_mp(na+1)*rnslyr) & * kaer_bc_3bd(ns,k_bcins(k)) & * bcenh_3bd(ns,k_bcins(k),k_bcini(k)) - waer = waer + (aero_mp(na+1)/rnslyr) & + waer = waer + (aero_mp(na+1)*rnslyr) & * kaer_bc_3bd(ns,k_bcins(k)) & * waer_bc_3bd(ns,k_bcins(k)) - gaer = gaer + (aero_mp(na+1)/rnslyr) & + gaer = gaer + (aero_mp(na+1)*rnslyr) & * kaer_bc_3bd(ns,k_bcins(k)) & * waer_bc_3bd(ns,k_bcins(k)) & * gaer_bc_3bd(ns,k_bcins(k)) else ! other species (dust) - taer = taer + (aero_mp(na+1)/rnslyr) & + taer = taer + (aero_mp(na+1)*rnslyr) & * kaer_3bd(ns,(1+(na-1)/4)) - waer = waer + (aero_mp(na+1)/rnslyr) & + waer = waer + (aero_mp(na+1)*rnslyr) & * kaer_3bd(ns,(1+(na-1)/4)) & * waer_3bd(ns,(1+(na-1)/4)) - gaer = gaer + (aero_mp(na+1)/rnslyr) & + gaer = gaer + (aero_mp(na+1)*rnslyr) & * kaer_3bd(ns,(1+(na-1)/4)) & * waer_3bd(ns,(1+(na-1)/4)) & * gaer_3bd(ns,(1+(na-1)/4)) endif ! na else - taer = taer + (aero_mp(na+1)*rnslyr) & !echmod NOTE * rnslyr not / + taer = taer + (aero_mp(na+1)*rnslyr) & * kaer_3bd(ns,(1+(na-1)/4)) waer = waer + (aero_mp(na+1)*rnslyr) & * kaer_3bd(ns,(1+(na-1)/4)) & @@ -2459,7 +2460,7 @@ subroutine compute_dEdd_3bd( & else ! srftyp == 2 ! pond water layers evenly spaced - dz = hp/(c1/rnslyr+c1) + dz = hp/(real(nslyr,kind=dbl_kind)+c1) do k=0,nslyr tau(k) = kw(ns)*dz w0 (k) = ww(ns) @@ -2480,7 +2481,7 @@ subroutine compute_dEdd_3bd( & ! dl k = kii + 1 ! scale dz for dl relative to 4 even-layer-thickness 1.5m case - fs = p25/rnilyr + fs = p25*real(nilyr,kind=dbl_kind) tau(k) = (ki_dl(ns) + kabs_chl(ns,k)) * dzk(k) * fs w0 (k) = ki_dl(ns)/(ki_dl(ns) + kabs_chl(ns,k)) * wi_dl(ns) g (k) = gi_dl(ns) @@ -2577,39 +2578,39 @@ subroutine compute_dEdd_3bd( & do na = 1, 4*n_aero, 4 if (modal_aero) then if (na==1) then ! interstitial BC - taer = taer + (aero_mp(na+3)/rnilyr) & !echmod: BUG should be *rnilyr + taer = taer + (aero_mp(na+3)*rnilyr) & * kaer_bc_3bd(ns,k_bcexs(k)) - waer = waer + (aero_mp(na+3)/rnilyr) & + waer = waer + (aero_mp(na+3)*rnilyr) & * kaer_bc_3bd(ns,k_bcexs(k)) & * waer_bc_3bd(ns,k_bcexs(k)) - gaer = gaer + (aero_mp(na+3)/rnilyr) & + gaer = gaer + (aero_mp(na+3)*rnilyr) & * kaer_bc_3bd(ns,k_bcexs(k)) & * waer_bc_3bd(ns,k_bcexs(k)) & * gaer_bc_3bd(ns,k_bcexs(k)) elseif (na==5) then ! within-ice BC - taer = taer + (aero_mp(na+3)/rnilyr) & + taer = taer + (aero_mp(na+3)*rnilyr) & * kaer_bc_3bd(ns,k_bcins(k)) & * bcenh_3bd(ns,k_bcins(k),k_bcini(k)) - waer = waer + (aero_mp(na+3)/rnilyr) & + waer = waer + (aero_mp(na+3)*rnilyr) & * kaer_bc_3bd(ns,k_bcins(k)) & * waer_bc_3bd(ns,k_bcins(k)) - gaer = gaer + (aero_mp(na+3)/rnilyr) & + gaer = gaer + (aero_mp(na+3)*rnilyr) & * kaer_bc_3bd(ns,k_bcins(k)) & * waer_bc_3bd(ns,k_bcins(k)) & * gaer_bc_3bd(ns,k_bcins(k)) else ! other species (dust) - taer = taer + (aero_mp(na+3)/rnilyr) & + taer = taer + (aero_mp(na+3)*rnilyr) & * kaer_3bd(ns,(1+(na-1)/4)) - waer = waer + (aero_mp(na+3)/rnilyr) & + waer = waer + (aero_mp(na+3)*rnilyr) & * kaer_3bd(ns,(1+(na-1)/4)) & * waer_3bd(ns,(1+(na-1)/4)) - gaer = gaer + (aero_mp(na+3)/rnilyr) & + gaer = gaer + (aero_mp(na+3)*rnilyr) & * kaer_3bd(ns,(1+(na-1)/4)) & * waer_3bd(ns,(1+(na-1)/4)) & * gaer_3bd(ns,(1+(na-1)/4)) endif else ! bulk - taer = taer + (aero_mp(na+3)*rnilyr) & !echmod NOTE * rnilyr, not / + taer = taer + (aero_mp(na+3)*rnilyr) & * kaer_3bd(ns,(1+(na-1)/4)) waer = waer + (aero_mp(na+3)*rnilyr) & * kaer_3bd(ns,(1+(na-1)/4)) & @@ -2657,7 +2658,7 @@ subroutine compute_dEdd_3bd( & g (k) = gi_p_int(ns) k = kii + 1 ! scale dz for dl relative to 4 even-layer-thickness 1.5m case - fs = p25/rnilyr + fs = p25*real(nilyr,kind=dbl_kind) sig_i = ki_dl (ns) * wi_dl (ns) * fs sig_p = ki_p_int(ns) * wi_p_int(ns) sig = sig_i + (sig_p-sig_i) * (hp/hp0) @@ -4884,14 +4885,14 @@ subroutine compute_dEdd_5bd( & gs = asm_prm_ice_drc (ns,nr) else ! linear interpolation in rsnw nr = ceiling(rsnw(ksnow)) - 30 + 1 ! hardwired min radius = 30 - delr = (rsnw(ksnow) - floor(rsnw(ksnow))) & ! hardwired delta radius = 1 in table - / (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) ! denom always = 1? - ks = ext_cff_mss_ice_drc(ns,nr-1)* delr & ! echmod: BUG delr factors opposite 3bd case - + ext_cff_mss_ice_drc(ns,nr )*(c1-delr) ! echmod: and nsky=2 case below - ws = ss_alb_ice_drc (ns,nr-1)* delr & - + ss_alb_ice_drc (ns,nr )*(c1-delr) - gs = asm_prm_ice_drc (ns,nr-1)* delr & - + asm_prm_ice_drc (ns,nr )*(c1-delr) + delr = (rsnw(ksnow) - floor(rsnw(ksnow))) & ! hardwired delta radius = 1 in table + / (ceiling(rsnw(ksnow)) - floor(rsnw(ksnow))) ! denom always = 1 + ks = ext_cff_mss_ice_drc(ns,nr-1)*(c1-delr) & + + ext_cff_mss_ice_drc(ns,nr )* delr + ws = ss_alb_ice_drc (ns,nr-1)*(c1-delr) & + + ss_alb_ice_drc (ns,nr )* delr + gs = asm_prm_ice_drc (ns,nr-1)*(c1-delr) & + + asm_prm_ice_drc (ns,nr )* delr endif tau(k) = (ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k))*dzk(k) w0 (k) = ks*rhosnw(ksnow) / (ks*rhosnw(ksnow) + kabs_chl_5bd(ns,k)) * ws @@ -4983,10 +4984,11 @@ subroutine compute_dEdd_5bd( & *gaer_5bd(ns,(1+(na-1)/4)) endif ! modal_aero enddo ! na - gaer = gaer/(waer+puny) - waer = waer/(taer+puny) - -! tcraig, again why does the above exist if taer=waer=gaer=0 below + g (k) = (g(k)*w0(k)*tau(k) + gaer) / & + (w0(k)*tau(k) + waer) + w0 (k) = (w0(k)*tau(k) + waer) / & + (tau(k) + taer) + tau(k) = tau(k) + taer do k = 1, nslyr taer = c0 @@ -4995,39 +4997,39 @@ subroutine compute_dEdd_5bd( & do na = 1, 4*n_aero, 4 if (modal_aero) then if (na==1) then ! interstitial BC - taer = taer + (aero_mp(na+1)/rnslyr) & !echmod: BUG should be *rnslyr + taer = taer + (aero_mp(na+1)*rnslyr) & * kaer_bc_5bd(ns,k_bcexs(k)) - waer = waer + (aero_mp(na+1)/rnslyr) & + waer = waer + (aero_mp(na+1)*rnslyr) & * kaer_bc_5bd(ns,k_bcexs(k)) & * waer_bc_5bd(ns,k_bcexs(k)) - gaer = gaer + (aero_mp(na+1)/rnslyr) & + gaer = gaer + (aero_mp(na+1)*rnslyr) & * kaer_bc_5bd(ns,k_bcexs(k)) & * waer_bc_5bd(ns,k_bcexs(k)) & * gaer_bc_5bd(ns,k_bcexs(k)) elseif (na==5) then ! within-ice BC - taer = taer + (aero_mp(na+1)/rnslyr) & + taer = taer + (aero_mp(na+1)*rnslyr) & * kaer_bc_5bd(ns,k_bcins(k)) & * bcenh_5bd(ns,k_bcins(k),k_bcini(k)) - waer = waer + (aero_mp(na+1)/rnslyr) & + waer = waer + (aero_mp(na+1)*rnslyr) & * kaer_bc_5bd(ns,k_bcins(k)) & * waer_bc_5bd(ns,k_bcins(k)) - gaer = gaer + (aero_mp(na+1)/rnslyr) & + gaer = gaer + (aero_mp(na+1)*rnslyr) & * kaer_bc_5bd(ns,k_bcins(k)) & * waer_bc_5bd(ns,k_bcins(k)) & * gaer_bc_5bd(ns,k_bcins(k)) else ! other species (dust) - taer = taer + (aero_mp(na+1)/rnslyr) & + taer = taer + (aero_mp(na+1)*rnslyr) & * kaer_5bd(ns,(1+(na-1)/4)) - waer = waer + (aero_mp(na+1)/rnslyr) & + waer = waer + (aero_mp(na+1)*rnslyr) & * kaer_5bd(ns,(1+(na-1)/4)) & * waer_5bd(ns,(1+(na-1)/4)) - gaer = gaer + (aero_mp(na+1)/rnslyr) & + gaer = gaer + (aero_mp(na+1)*rnslyr) & * kaer_5bd(ns,(1+(na-1)/4)) & * waer_5bd(ns,(1+(na-1)/4)) & * gaer_5bd(ns,(1+(na-1)/4)) endif ! na else - taer = taer + (aero_mp(na+1)*rnslyr) & !echmod NOTE * rnslyr not / + taer = taer + (aero_mp(na+1)*rnslyr) & * kaer_5bd(ns,(1+(na-1)/4)) waer = waer + (aero_mp(na+1)*rnslyr) & * kaer_5bd(ns,(1+(na-1)/4)) & @@ -5058,7 +5060,7 @@ subroutine compute_dEdd_5bd( & ! dl k = kii + 1 ! scale dz for dl relative to 4 even-layer-thickness 1.5m case - fs = p25/rnilyr + fs = p25*real(nilyr,kind=dbl_kind) tau(k) = (ki_dl_5bd(ns) + kabs_chl_5bd(ns,k)) * dzk(k) * fs w0 (k) = ki_dl_5bd(ns)/(ki_dl_5bd(ns) + kabs_chl_5bd(ns,k)) * wi_dl_5bd(ns) g (k) = gi_dl_5bd(ns) @@ -5155,39 +5157,39 @@ subroutine compute_dEdd_5bd( & do na = 1, 4*n_aero, 4 if (modal_aero) then if (na==1) then ! interstitial BC - taer = taer + (aero_mp(na+3)/rnilyr) & !echmod: BUG should be *rnilyr + taer = taer + (aero_mp(na+3)*rnilyr) & * kaer_bc_5bd(ns,k_bcexs(k)) - waer = waer + (aero_mp(na+3)/rnilyr) & + waer = waer + (aero_mp(na+3)*rnilyr) & * kaer_bc_5bd(ns,k_bcexs(k)) & * waer_bc_5bd(ns,k_bcexs(k)) - gaer = gaer + (aero_mp(na+3)/rnilyr) & + gaer = gaer + (aero_mp(na+3)*rnilyr) & * kaer_bc_5bd(ns,k_bcexs(k)) & * waer_bc_5bd(ns,k_bcexs(k)) & * gaer_bc_5bd(ns,k_bcexs(k)) elseif (na==5) then ! within-ice BC - taer = taer + (aero_mp(na+3)/rnilyr) & + taer = taer + (aero_mp(na+3)*rnilyr) & * kaer_bc_5bd(ns,k_bcins(k)) & * bcenh_5bd(ns,k_bcins(k),k_bcini(k)) - waer = waer + (aero_mp(na+3)/rnilyr) & + waer = waer + (aero_mp(na+3)*rnilyr) & * kaer_bc_5bd(ns,k_bcins(k)) & * waer_bc_5bd(ns,k_bcins(k)) - gaer = gaer + (aero_mp(na+3)/rnilyr) & + gaer = gaer + (aero_mp(na+3)*rnilyr) & * kaer_bc_5bd(ns,k_bcins(k)) & * waer_bc_5bd(ns,k_bcins(k)) & * gaer_bc_5bd(ns,k_bcins(k)) else ! other species (dust) - taer = taer + (aero_mp(na+3)/rnilyr) & + taer = taer + (aero_mp(na+3)*rnilyr) & * kaer_5bd(ns,(1+(na-1)/4)) - waer = waer + (aero_mp(na+3)/rnilyr) & + waer = waer + (aero_mp(na+3)*rnilyr) & * kaer_5bd(ns,(1+(na-1)/4)) & * waer_5bd(ns,(1+(na-1)/4)) - gaer = gaer + (aero_mp(na+3)/rnilyr) & + gaer = gaer + (aero_mp(na+3)*rnilyr) & * kaer_5bd(ns,(1+(na-1)/4)) & * waer_5bd(ns,(1+(na-1)/4)) & * gaer_5bd(ns,(1+(na-1)/4)) endif else !bulk - taer = taer + (aero_mp(na+3)*rnilyr) & !echmod NOTE * rnilyr, not / + taer = taer + (aero_mp(na+3)*rnilyr) & * kaer_5bd(ns,(1+(na-1)/4)) waer = waer + (aero_mp(na+3)*rnilyr) & * kaer_5bd(ns,(1+(na-1)/4)) & From 20d4a94d5c6191ff7a6887916b953b279987ee9f Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Thu, 6 Oct 2022 16:44:37 -0600 Subject: [PATCH 47/64] mpassi options files --- configuration/scripts/options/set_env.mpassi | 6 ++++++ configuration/scripts/options/set_nml.mpassi | 6 ++++++ 2 files changed, 12 insertions(+) create mode 100644 configuration/scripts/options/set_env.mpassi create mode 100644 configuration/scripts/options/set_nml.mpassi diff --git a/configuration/scripts/options/set_env.mpassi b/configuration/scripts/options/set_env.mpassi new file mode 100644 index 000000000..b5dfc9e3c --- /dev/null +++ b/configuration/scripts/options/set_env.mpassi @@ -0,0 +1,6 @@ +setenv NICELYR 7 # number of vertical layers in the ice +setenv NSNWLYR 5 # number of vertical layers in the snow +setenv TRSNOW 0 # set to 1 for advanced snow physics tracers + + + diff --git a/configuration/scripts/options/set_nml.mpassi b/configuration/scripts/options/set_nml.mpassi new file mode 100644 index 000000000..b02248f0c --- /dev/null +++ b/configuration/scripts/options/set_nml.mpassi @@ -0,0 +1,6 @@ + dt = 3600.0 + tr_snow = .false. + rsnw_tmax = 1500.0 + kcatbound = 0 + emissivity = 0.95 + oceanmixed_ice = .false. From 67042258456722b2bfe1263b03d149291d000e9d Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Thu, 6 Oct 2022 17:04:21 -0600 Subject: [PATCH 48/64] remove namelist entries that are the same as the defaults to avoid potential ambiguity later --- configuration/scripts/options/set_nml.mpassi | 2 -- 1 file changed, 2 deletions(-) diff --git a/configuration/scripts/options/set_nml.mpassi b/configuration/scripts/options/set_nml.mpassi index b02248f0c..1dfabb93d 100644 --- a/configuration/scripts/options/set_nml.mpassi +++ b/configuration/scripts/options/set_nml.mpassi @@ -1,5 +1,3 @@ - dt = 3600.0 - tr_snow = .false. rsnw_tmax = 1500.0 kcatbound = 0 emissivity = 0.95 From 90dbfe62cf38ad2156700b15382caaa3fe5d63d2 Mon Sep 17 00:00:00 2001 From: apcraig Date: Sat, 8 Oct 2022 12:12:09 -0600 Subject: [PATCH 49/64] Minor updates consistent with E3SM columnphysics modifications - Migrate hi_min to namelist+parameters and refactor implementation - Reduce CESMCOUPLED CPP use, now just for orbital stuff, punch list 23 - Modify initialization of hin_max, punch list 28 - Fix possible divide by zero, punch list 65 - Rename icepack shr_orb_params and shr_orb_decl to icepack_orb_params, icepack_orb_decl - Cleanup argument list for compute_ponds_lvl, compute_ponds_cesm --- columnphysics/icepack_brine.F90 | 2 +- columnphysics/icepack_itd.F90 | 14 +++--- columnphysics/icepack_meltpond_cesm.F90 | 6 +-- columnphysics/icepack_meltpond_lvl.F90 | 40 ++++------------ columnphysics/icepack_orbital.F90 | 46 +++++++++---------- columnphysics/icepack_parameters.F90 | 10 +++- columnphysics/icepack_shortwave.F90 | 2 +- columnphysics/icepack_therm_bl99.F90 | 3 -- columnphysics/icepack_therm_itd.F90 | 9 ++-- columnphysics/icepack_therm_shared.F90 | 3 -- columnphysics/icepack_therm_vertical.F90 | 10 ---- configuration/driver/icedrv_init.F90 | 9 ++-- configuration/scripts/icepack_in | 1 + configuration/scripts/options/set_nml.thermo1 | 1 + doc/source/icepack_index.rst | 2 +- doc/source/user_guide/ug_case_settings.rst | 1 + 16 files changed, 63 insertions(+), 96 deletions(-) diff --git a/columnphysics/icepack_brine.F90 b/columnphysics/icepack_brine.F90 index 28e2301c6..9155074ce 100644 --- a/columnphysics/icepack_brine.F90 +++ b/columnphysics/icepack_brine.F90 @@ -292,7 +292,7 @@ subroutine compute_microS_mushy (nilyr, nblyr, & do k= 2, nblyr+1 ikin(k) = k_o*iphin(k)**exp_h - iDin(k) = iphin(k)*Dm/hbr_old**2 + if (hbr_old .GT. puny) iDin(k) = iphin(k)*Dm/hbr_old**2 if (hbr_old .GE. Ra_c) & iDin(k) = iDin(k) & + l_sk*ikin(k)*gravit/viscos_dynamic*drho(k)/hbr_old**2 diff --git a/columnphysics/icepack_itd.F90 b/columnphysics/icepack_itd.F90 index 0a177e5eb..09268426e 100644 --- a/columnphysics/icepack_itd.F90 +++ b/columnphysics/icepack_itd.F90 @@ -33,9 +33,9 @@ module icepack_itd use icepack_tracers, only: nt_apnd, nt_hpnd, nt_fbri, tr_brine, nt_bgc_S, bio_index use icepack_tracers, only: n_iso, tr_iso, tr_snow, nt_smice, nt_rsnw, nt_rhos use icepack_tracers, only: icepack_compute_tracers - use icepack_parameters, only: solve_zsal, skl_bgc, z_tracers + use icepack_parameters, only: solve_zsal, skl_bgc, z_tracers, hi_min use icepack_parameters, only: kcatbound, kitd - use icepack_therm_shared, only: Tmin, hi_min + use icepack_therm_shared, only: Tmin use icepack_warnings, only: warnstr, icepack_warnings_add use icepack_warnings, only: icepack_warnings_setabort, icepack_warnings_aborted use icepack_zbgc_shared,only: zap_small_bgc @@ -1815,9 +1815,6 @@ subroutine icepack_init_itd(ncat, hin_max) b2 = c3 ! thickness for which participation function is small (m) b3 = max(rncat*(rncat-1), c2*b2/b1) - hi_min = p01 ! minimum ice thickness allowed (m) for thermo - ! note hi_min is reset to 0.1 for kitd=0, below - !----------------------------------------------------------------- ! Choose category boundaries based on one of four options. ! @@ -1869,9 +1866,6 @@ subroutine icepack_init_itd(ncat, hin_max) hin_max(0) = c0 ! minimum ice thickness, m else ! delta function itd category limits -#ifndef CESMCOUPLED - hi_min = p1 ! minimum ice thickness allowed (m) for thermo -#endif cc1 = max(1.1_dbl_kind/rncat,hi_min) cc2 = c25*cc1 cc3 = 2.25_dbl_kind @@ -1928,6 +1922,10 @@ subroutine icepack_init_itd(ncat, hin_max) endif ! kcatbound + if (kitd == 1) then + hin_max(ncat) = 999.9_dbl_kind ! arbitrary big number + endif + end subroutine icepack_init_itd !======================================================================= diff --git a/columnphysics/icepack_meltpond_cesm.F90 b/columnphysics/icepack_meltpond_cesm.F90 index 24e6b762f..90cad36d2 100644 --- a/columnphysics/icepack_meltpond_cesm.F90 +++ b/columnphysics/icepack_meltpond_cesm.F90 @@ -18,6 +18,7 @@ module icepack_meltpond_cesm use icepack_kinds use icepack_parameters, only: c0, c1, c2, p01, puny use icepack_parameters, only: rhofresh, rhoi, rhos, Timelt, pndaspect, use_smliq_pnd + use icepack_parameters, only: hi_min use icepack_warnings, only: warnstr, icepack_warnings_add use icepack_warnings, only: icepack_warnings_setabort, icepack_warnings_aborted @@ -32,7 +33,7 @@ module icepack_meltpond_cesm !======================================================================= - subroutine compute_ponds_cesm(dt, hi_min, & + subroutine compute_ponds_cesm(dt, & rfrac, meltt, & melts, frain, & aicen, vicen, & @@ -40,8 +41,7 @@ subroutine compute_ponds_cesm(dt, hi_min, & meltsliqn) real (kind=dbl_kind), intent(in) :: & - dt, & ! time step (s) - hi_min ! minimum ice thickness allowed for thermo (m) + dt ! time step (s) real (kind=dbl_kind), intent(in) :: & meltsliqn, & ! liquid input from snow liquid tracer diff --git a/columnphysics/icepack_meltpond_lvl.F90 b/columnphysics/icepack_meltpond_lvl.F90 index fe7b822f3..90d5f684f 100644 --- a/columnphysics/icepack_meltpond_lvl.F90 +++ b/columnphysics/icepack_meltpond_lvl.F90 @@ -18,6 +18,8 @@ module icepack_meltpond_lvl use icepack_parameters, only: c0, c1, c2, c10, p01, p5, puny use icepack_parameters, only: viscosity_dyn, rhoi, rhos, rhow, Timelt, Tffresh, Lfresh use icepack_parameters, only: gravit, depressT, rhofresh, kice, pndaspect, use_smliq_pnd + use icepack_parameters, only: ktherm, frzpnd, dpscale, hi_min + use icepack_tracers, only: nilyr use icepack_warnings, only: warnstr, icepack_warnings_add use icepack_warnings, only: icepack_warnings_setabort, icepack_warnings_aborted @@ -32,10 +34,7 @@ module icepack_meltpond_lvl !======================================================================= - subroutine compute_ponds_lvl(dt, nilyr, & - ktherm, & - hi_min, dpscale, & - frzpnd, & + subroutine compute_ponds_lvl(dt, & rfrac, meltt, melts, & frain, Tair, fsurfn,& dhs, ffrac, & @@ -45,23 +44,10 @@ subroutine compute_ponds_lvl(dt, nilyr, & apnd, hpnd, ipnd, & meltsliqn) - integer (kind=int_kind), intent(in) :: & - nilyr, & ! number of ice layers -#ifdef UNDEPRECATE_0LAYER - ktherm ! type of thermodynamics (0 0-layer, 1 BL99, 2 mushy) -#else - ktherm ! type of thermodynamics (-1 none, 1 BL99, 2 mushy) -#endif real (kind=dbl_kind), intent(in) :: & - dt, & ! time step (s) - hi_min, & ! minimum ice thickness allowed for thermo (m) - dpscale ! alter e-folding time scale for flushing + dt ! time step (s) - character (len=char_len), intent(in) :: & - frzpnd ! pond refreezing parameterization - - real (kind=dbl_kind), & - intent(in) :: & + real (kind=dbl_kind), intent(in) :: & Tsfcn, & ! surface temperature (C) alvl, & ! fraction of level ice rfrac, & ! water fraction retained for melt ponds @@ -75,20 +61,17 @@ subroutine compute_ponds_lvl(dt, nilyr, & vsnon, & ! snow volume (m) meltsliqn ! liquid contribution to meltponds in dt (kg/m^2) - real (kind=dbl_kind), & - intent(inout) :: & + real (kind=dbl_kind), intent(inout) :: & apnd, hpnd, ipnd real (kind=dbl_kind), dimension (:), intent(in) :: & qicen, & ! ice layer enthalpy (J m-3) sicen ! salinity (ppt) - real (kind=dbl_kind), & - intent(in) :: & + real (kind=dbl_kind), intent(in) :: & dhs ! depth difference for snow on sea ice and pond ice - real (kind=dbl_kind), & - intent(out) :: & + real (kind=dbl_kind), intent(out) :: & ffrac ! fraction of fsurfn over pond used to melt ipond ! local temporary variables @@ -256,7 +239,7 @@ subroutine compute_ponds_lvl(dt, nilyr, & deltah = hpondn + hi - draft pressure_head = gravit * rhow * max(deltah, c0) Tmlt(:) = -sicen(:) * depressT - call brine_permeability(nilyr, qicen, & + call brine_permeability(qicen, & sicen, Tmlt, perm) if (icepack_warnings_aborted(subname)) return drain = perm*pressure_head*dt / (viscosity_dyn*hi) * dpscale @@ -287,13 +270,10 @@ end subroutine compute_ponds_lvl ! determine the liquid fraction of brine in the ice and the permeability - subroutine brine_permeability(nilyr, qicen, salin, Tmlt, perm) + subroutine brine_permeability(qicen, salin, Tmlt, perm) use icepack_therm_shared, only: calculate_Tin_from_qin - integer (kind=int_kind), intent(in) :: & - nilyr ! number of ice layers - real (kind=dbl_kind), dimension(:), intent(in) :: & qicen, & ! enthalpy for each ice layer (J m-3) salin, & ! salinity (ppt) diff --git a/columnphysics/icepack_orbital.F90 b/columnphysics/icepack_orbital.F90 index 4c7c53ccf..1c39bad5c 100644 --- a/columnphysics/icepack_orbital.F90 +++ b/columnphysics/icepack_orbital.F90 @@ -68,8 +68,8 @@ subroutine icepack_init_orbit(iyear_AD_in, eccen_in, obliqr_in, & log_print = .false. ! if true, write out orbital parameters #ifndef CESMCOUPLED - call shr_orb_params( iyear_AD, eccen , obliq , mvelp , & - obliqr , lambm0, mvelpp, log_print) + call icepack_orb_params( iyear_AD, eccen , obliq , mvelp , & + obliqr , lambm0, mvelpp, log_print) if (icepack_warnings_aborted(subname)) return #endif @@ -117,8 +117,8 @@ subroutine icepack_query_orbit(iyear_AD_out, eccen_out, obliqr_out, & log_print = .false. ! if true, write out orbital parameters #ifndef CESMCOUPLED - call shr_orb_params( iyear_AD, eccen , obliq , mvelp , & - obliqr , lambm0, mvelpp, log_print) + call icepack_orb_params( iyear_AD, eccen , obliq , mvelp , & + obliqr , lambm0, mvelpp, log_print) if (icepack_warnings_aborted(subname)) return #endif @@ -190,28 +190,27 @@ subroutine compute_coszen (tlat, tlon, & !--- update coszen when nextsw_cday valid if (ydayp1 > -0.5_dbl_kind) then + call shr_orb_decl(ydayp1, eccen, mvelpp, lambm0, & + obliqr, decln, eccf) + coszen = sin(tlat)*sin(decln) & + + cos(tlat)*cos(decln) & + *cos((sec/secday-p5)*c2*pi + tlon) !cos(hour angle) + endif #else ydayp1 = yday + sec/secday -#endif - - call shr_orb_decl(ydayp1, eccen, mvelpp, lambm0, & - obliqr, decln, eccf) + call icepack_orb_decl(ydayp1, eccen, mvelpp, lambm0, & + obliqr, decln, eccf) if (icepack_warnings_aborted(subname)) return - coszen = sin(tlat)*sin(decln) & + cos(tlat)*cos(decln) & *cos((sec/secday-p5)*c2*pi + tlon) !cos(hour angle) - -#ifdef CESMCOUPLED - endif #endif end subroutine compute_coszen !=============================================================================== -#ifndef CESMCOUPLED -SUBROUTINE shr_orb_params( iyear_AD , eccen , obliq , mvelp , & +SUBROUTINE icepack_orb_params( iyear_AD , eccen , obliq , mvelp , & obliqr , lambm0, mvelpp, log_print) !------------------------------------------------------------------------------- @@ -445,13 +444,13 @@ SUBROUTINE shr_orb_params( iyear_AD , eccen , obliq , mvelp , & real (dbl_kind) :: eccen3 ! eccentricity cubed real (dbl_kind) :: degrad ! degrees to rad conversion integer (int_kind), parameter :: s_loglev = 0 - character(len=*),parameter :: subname='(shr_orb_params)' + character(len=*),parameter :: subname='(icepack_orb_params)' !-------------------------- Formats ----------------------------------------- - character(len=*),parameter :: F00 = "('(shr_orb_params) ',4a)" - character(len=*),parameter :: F01 = "('(shr_orb_params) ',a,i9)" - character(len=*),parameter :: F02 = "('(shr_orb_params) ',a,f6.3)" - character(len=*),parameter :: F03 = "('(shr_orb_params) ',a,es14.6)" + character(len=*),parameter :: F00 = "('(icepack_orb_params) ',4a)" + character(len=*),parameter :: F01 = "('(icepack_orb_params) ',a,i9)" + character(len=*),parameter :: F02 = "('(icepack_orb_params) ',a,f6.3)" + character(len=*),parameter :: F03 = "('(icepack_orb_params) ',a,es14.6)" !---------------------------------------------------------------------------- ! radinp and algorithms below will need a degree to radian conversion factor @@ -692,11 +691,11 @@ SUBROUTINE shr_orb_params( iyear_AD , eccen , obliq , mvelp , & call icepack_warnings_add(warnstr) end if -END SUBROUTINE shr_orb_params +END SUBROUTINE icepack_orb_params !=============================================================================== -SUBROUTINE shr_orb_decl(calday ,eccen ,mvelpp ,lambm0 ,obliqr ,delta ,eccf) +SUBROUTINE icepack_orb_decl(calday ,eccen ,mvelpp ,lambm0 ,obliqr ,delta ,eccf) !------------------------------------------------------------------------------- ! @@ -732,7 +731,7 @@ SUBROUTINE shr_orb_decl(calday ,eccen ,mvelpp ,lambm0 ,obliqr ,delta ,eccf) real (dbl_kind) :: invrho ! Inverse normalized sun/earth distance real (dbl_kind) :: sinl ! Sine of lmm - character(len=*),parameter :: subname='(shr_orb_decl)' + character(len=*),parameter :: subname='(icepack_orb_decl)' ! Compute eccentricity factor and solar declination using ! day value where a round day (such as 213.0) refers to 0z at @@ -776,8 +775,7 @@ SUBROUTINE shr_orb_decl(calday ,eccen ,mvelpp ,lambm0 ,obliqr ,delta ,eccf) return -END SUBROUTINE shr_orb_decl -#endif +END SUBROUTINE icepack_orb_decl !======================================================================= diff --git a/columnphysics/icepack_parameters.F90 b/columnphysics/icepack_parameters.F90 index b8154d378..bcbbda140 100644 --- a/columnphysics/icepack_parameters.F90 +++ b/columnphysics/icepack_parameters.F90 @@ -132,6 +132,7 @@ module icepack_parameters dSin0_frazil = c3 ,&! bulk salinity reduction of newly formed frazil dts_b = 50._dbl_kind ,&! zsalinity timestep ustar_min = 0.005_dbl_kind ,&! minimum friction velocity for ocean heat flux (m/s) + hi_min = p01 ,&! minimum ice thickness allowed (m) for thermo ! mushy thermo a_rapid_mode = 0.5e-3_dbl_kind,&! channel radius for rapid drainage mode (m) Rac_rapid_mode = 10.0_dbl_kind,&! critical Rayleigh number @@ -457,7 +458,7 @@ subroutine icepack_init_parameters( & awtvdr_in, awtidr_in, awtvdf_in, awtidf_in, & qqqice_in, TTTice_in, qqqocn_in, TTTocn_in, & ktherm_in, conduct_in, fbot_xfer_type_in, calc_Tsfc_in, dts_b_in, & - update_ocn_f_in, ustar_min_in, a_rapid_mode_in, & + update_ocn_f_in, ustar_min_in, hi_min_in, a_rapid_mode_in, & Rac_rapid_mode_in, aspect_rapid_mode_in, & dSdt_slow_mode_in, phi_c_slow_mode_in, & phi_i_mushy_in, shortwave_in, albedo_type_in, albsnowi_in, & @@ -575,6 +576,7 @@ subroutine icepack_init_parameters( & real (kind=dbl_kind), intent(in), optional :: & dts_b_in, & ! zsalinity timestep + hi_min_in, & ! minimum ice thickness allowed (m) for thermo ustar_min_in ! minimum friction velocity for ice-ocean heat flux ! mushy thermo @@ -929,6 +931,7 @@ subroutine icepack_init_parameters( & if (present(update_ocn_f_in) ) update_ocn_f = update_ocn_f_in if (present(dts_b_in) ) dts_b = dts_b_in if (present(ustar_min_in) ) ustar_min = ustar_min_in + if (present(hi_min_in) ) hi_min = hi_min_in if (present(a_rapid_mode_in) ) a_rapid_mode = a_rapid_mode_in if (present(Rac_rapid_mode_in) ) Rac_rapid_mode = Rac_rapid_mode_in if (present(aspect_rapid_mode_in) ) aspect_rapid_mode= aspect_rapid_mode_in @@ -1171,7 +1174,7 @@ subroutine icepack_query_parameters( & min_bgc_out, dSin0_frazil_out, hi_ssl_out, hs_ssl_out, & awtvdr_out, awtidr_out, awtvdf_out, awtidf_out, & qqqice_out, TTTice_out, qqqocn_out, TTTocn_out, update_ocn_f_out, & - Lfresh_out, cprho_out, Cp_out, ustar_min_out, a_rapid_mode_out, & + Lfresh_out, cprho_out, Cp_out, ustar_min_out, hi_min_out, a_rapid_mode_out, & ktherm_out, conduct_out, fbot_xfer_type_out, calc_Tsfc_out, dts_b_out, & Rac_rapid_mode_out, aspect_rapid_mode_out, dSdt_slow_mode_out, & phi_c_slow_mode_out, phi_i_mushy_out, shortwave_out, & @@ -1299,6 +1302,7 @@ subroutine icepack_query_parameters( & real (kind=dbl_kind), intent(out), optional :: & dts_b_out, & ! zsalinity timestep + hi_min_out, & ! minimum ice thickness allowed (m) for thermo ustar_min_out ! minimum friction velocity for ice-ocean heat flux ! mushy thermo @@ -1685,6 +1689,7 @@ subroutine icepack_query_parameters( & if (present(update_ocn_f_out) ) update_ocn_f_out = update_ocn_f if (present(dts_b_out) ) dts_b_out = dts_b if (present(ustar_min_out) ) ustar_min_out = ustar_min + if (present(hi_min_out) ) hi_min_out = hi_min if (present(a_rapid_mode_out) ) a_rapid_mode_out = a_rapid_mode if (present(Rac_rapid_mode_out) ) Rac_rapid_mode_out = Rac_rapid_mode if (present(aspect_rapid_mode_out) ) aspect_rapid_mode_out = aspect_rapid_mode @@ -1895,6 +1900,7 @@ subroutine icepack_write_parameters(iounit) write(iounit,*) " update_ocn_f = ", update_ocn_f write(iounit,*) " dts_b = ", dts_b write(iounit,*) " ustar_min = ", ustar_min + write(iounit,*) " hi_min = ", hi_min write(iounit,*) " a_rapid_mode = ", a_rapid_mode write(iounit,*) " Rac_rapid_mode = ", Rac_rapid_mode write(iounit,*) " aspect_rapid_mode = ", aspect_rapid_mode diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index 036f974ba..031efa304 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -3921,7 +3921,7 @@ subroutine icepack_step_radiation (dt, & if (.not.present(days_per_year) .or. & .not.present(nextsw_cday) .or. & .not.present(calendar_type)) then - call icepack_warnings_add(subname//' ERROR: CESMCOUPLE CPP on, need more calendar data') + call icepack_warnings_add(subname//' ERROR: CESMCOUPLED CPP on, need more calendar data') call icepack_warnings_setabort(.true.,__FILE__,__LINE__) return endif diff --git a/columnphysics/icepack_therm_bl99.F90 b/columnphysics/icepack_therm_bl99.F90 index 7aa553c95..9c69138a8 100644 --- a/columnphysics/icepack_therm_bl99.F90 +++ b/columnphysics/icepack_therm_bl99.F90 @@ -13,9 +13,6 @@ module icepack_therm_bl99 use icepack_kinds use icepack_parameters, only: c0, c1, c2, p1, p5, puny -#ifdef CESMCOUPLED - use icepack_parameters, only: p01 -#endif use icepack_parameters, only: rhoi, rhos, hs_min, cp_ice, cp_ocn, depressT, Lfresh, ksno, kice use icepack_parameters, only: conduct, calc_Tsfc, solve_zsal use icepack_parameters, only: sw_redist, sw_frac, sw_dtemp diff --git a/columnphysics/icepack_therm_itd.F90 b/columnphysics/icepack_therm_itd.F90 index 7a701916b..6c6bcd015 100644 --- a/columnphysics/icepack_therm_itd.F90 +++ b/columnphysics/icepack_therm_itd.F90 @@ -30,7 +30,7 @@ module icepack_therm_itd #else use icepack_parameters, only: kitd, ktherm #endif - use icepack_parameters, only: z_tracers, solve_zsal, hfrazilmin + use icepack_parameters, only: z_tracers, solve_zsal, hfrazilmin, hi_min use icepack_tracers, only: ntrcr, nbtrcr use icepack_tracers, only: nt_qice, nt_qsno, nt_fbri, nt_sice @@ -55,7 +55,6 @@ module icepack_therm_itd use icepack_itd, only: column_sum, column_conservation_check use icepack_isotope, only: isoice_alpha, isotope_frac_method use icepack_mushy_physics, only: liquidus_temperature_mush, enthalpy_mush - use icepack_therm_shared, only: hi_min use icepack_zbgc, only: add_new_ice_bgc use icepack_zbgc, only: lateral_melt_bgc @@ -113,7 +112,7 @@ subroutine linear_itd (ncat, hin_max, & nslyr , & ! number of snow layers ntrcr ! number of tracers in use - real (kind=dbl_kind), dimension(0:ncat), intent(inout) :: & + real (kind=dbl_kind), dimension(0:ncat), intent(in) :: & hin_max ! category boundaries (m) integer (kind=int_kind), dimension (:), intent(in) :: & @@ -211,8 +210,6 @@ subroutine linear_itd (ncat, hin_max, & ! Initialize !----------------------------------------------------------------- - hin_max(ncat) = 999.9_dbl_kind ! arbitrary big number - do n = 1, ncat donor(n) = 0 daice(n) = c0 @@ -2006,7 +2003,7 @@ subroutine icepack_step_therm2 (dt, ncat, nltrcr, & logical (kind=log_kind), intent(in) :: & update_ocn_f ! if true, update fresh water and salt fluxes - real (kind=dbl_kind), dimension(0:ncat), intent(inout) :: & + real (kind=dbl_kind), dimension(0:ncat), intent(in) :: & hin_max ! category boundaries (m) real (kind=dbl_kind), intent(in) :: & diff --git a/columnphysics/icepack_therm_shared.F90 b/columnphysics/icepack_therm_shared.F90 index 4bcb6259b..0bc164240 100644 --- a/columnphysics/icepack_therm_shared.F90 +++ b/columnphysics/icepack_therm_shared.F90 @@ -52,9 +52,6 @@ module icepack_therm_shared logical (kind=log_kind), public :: & l_brine ! if true, treat brine pocket effects - real (kind=dbl_kind), public :: & - hi_min ! minimum ice thickness allowed (m) - !======================================================================= contains diff --git a/columnphysics/icepack_therm_vertical.F90 b/columnphysics/icepack_therm_vertical.F90 index 7329fe373..7592330e0 100644 --- a/columnphysics/icepack_therm_vertical.F90 +++ b/columnphysics/icepack_therm_vertical.F90 @@ -31,7 +31,6 @@ module icepack_therm_vertical use icepack_parameters, only: ustar_min, fbot_xfer_type, formdrag, calc_strair use icepack_parameters, only: rfracmin, rfracmax, dpscale, frzpnd, snwgrain, snwlvlfac use icepack_parameters, only: phi_i_mushy, floeshape, floediam, use_smliq_pnd, snwredist - use icepack_tracers, only: tr_iage, tr_FY, tr_aero, tr_pond, tr_fsd, tr_iso #ifdef UNDEPRECATE_CESMPONDS use icepack_tracers, only: tr_pond_cesm, tr_pond_lvl, tr_pond_topo @@ -42,7 +41,6 @@ module icepack_therm_vertical use icepack_therm_shared, only: ferrmax, l_brine use icepack_therm_shared, only: calculate_tin_from_qin, Tmin - use icepack_therm_shared, only: hi_min use icepack_therm_shared, only: adjust_enthalpy use icepack_therm_bl99, only: temperature_changes #ifdef UNDEPRECATE_0LAYER @@ -463,14 +461,12 @@ subroutine thermo_vertical (nilyr, nslyr, & ! If prescribed ice, set hi back to old values !----------------------------------------------------------------- -#ifdef CESMCOUPLED if (present(prescribed_ice)) then if (prescribed_ice) then hin = worki fhocnn = c0 ! for diagnostics endif endif -#endif !----------------------------------------------------------------- ! Compute fluxes of water and salt from ice to ocean. @@ -2924,7 +2920,6 @@ subroutine icepack_step_therm1(dt, ncat, nilyr, nslyr, & if (tr_pond_cesm) then rfrac = rfracmin + (rfracmax-rfracmin) * aicen(n) call compute_ponds_cesm(dt=dt, & - hi_min=hi_min, & rfrac=rfrac, & meltt=melttn(n), & melts=meltsn(n), & @@ -2943,11 +2938,6 @@ subroutine icepack_step_therm1(dt, ncat, nilyr, nslyr, & #endif rfrac = rfracmin + (rfracmax-rfracmin) * aicen(n) call compute_ponds_lvl (dt=dt, & - nilyr=nilyr, & - ktherm=ktherm, & - hi_min=hi_min, & - dpscale=dpscale, & - frzpnd=frzpnd, & rfrac=rfrac, & meltt=melttn (n), & melts=meltsn (n), & diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90 index 8d64a769e..cccab5841 100644 --- a/configuration/driver/icedrv_init.F90 +++ b/configuration/driver/icedrv_init.F90 @@ -88,7 +88,7 @@ subroutine input_data character (len=char_len), dimension(4) :: nx_names_default real (kind=dbl_kind) :: ustar_min, albicev, albicei, albsnowv, albsnowi, & - ahmax, R_ice, R_pnd, R_snw, dT_mlt, rsnw_mlt, ksno, & + ahmax, R_ice, R_pnd, R_snw, dT_mlt, rsnw_mlt, ksno, hi_min, & mu_rdg, hs0, dpscale, rfracmin, rfracmax, pndaspect, hs1, hp1, & a_rapid_mode, Rac_rapid_mode, aspect_rapid_mode, dSdt_slow_mode, & phi_c_slow_mode, phi_i_mushy, kalg, emissivity, floediam, hfrazilmin, & @@ -177,7 +177,7 @@ subroutine input_data update_ocn_f, l_mpond_fresh, ustar_min, & fbot_xfer_type, oceanmixed_ice, emissivity, & formdrag, highfreq, natmiter, & - atmiter_conv, calc_dragio, & + atmiter_conv, calc_dragio, hi_min, & tfrz_option, default_season, wave_spec_type, & precip_units, fyear_init, ycycle, & atm_data_type, ocn_data_type, bgc_data_type, & @@ -206,7 +206,7 @@ subroutine input_data call icepack_query_parameters(ustar_min_out=ustar_min, Cf_out=Cf, & albicev_out=albicev, albicei_out=albicei, ksno_out = ksno, & - albsnowv_out=albsnowv, albsnowi_out=albsnowi, & + albsnowv_out=albsnowv, albsnowi_out=albsnowi, hi_min_out=hi_min, & natmiter_out=natmiter, ahmax_out=ahmax, shortwave_out=shortwave, & atmiter_conv_out = atmiter_conv, calc_dragio_out=calc_dragio, & albedo_type_out=albedo_type, R_ice_out=R_ice, R_pnd_out=R_pnd, & @@ -790,6 +790,7 @@ subroutine input_data write(nu_diag,1030) ' wave_spec_type = ', trim(wave_spec_type) write(nu_diag,1010) ' l_mpond_fresh = ', l_mpond_fresh write(nu_diag,1005) ' ustar_min = ', ustar_min + write(nu_diag,1005) ' hi_min = ', hi_min write(nu_diag,1030) ' fbot_xfer_type = ', trim(fbot_xfer_type) write(nu_diag,1010) ' oceanmixed_ice = ', oceanmixed_ice write(nu_diag,1030) ' tfrz_option = ', trim(tfrz_option) @@ -955,7 +956,7 @@ subroutine input_data call icepack_init_parameters(ustar_min_in=ustar_min, Cf_in=Cf, & albicev_in=albicev, albicei_in=albicei, ksno_in=ksno, & - albsnowv_in=albsnowv, albsnowi_in=albsnowi, & + albsnowv_in=albsnowv, albsnowi_in=albsnowi, hi_min_in=hi_min, & natmiter_in=natmiter, ahmax_in=ahmax, shortwave_in=shortwave, & atmiter_conv_in = atmiter_conv, calc_dragio_in=calc_dragio, & albedo_type_in=albedo_type, R_ice_in=R_ice, R_pnd_in=R_pnd, & diff --git a/configuration/scripts/icepack_in b/configuration/scripts/icepack_in index 85489f982..33469e54e 100644 --- a/configuration/scripts/icepack_in +++ b/configuration/scripts/icepack_in @@ -104,6 +104,7 @@ natmiter = 5 atmiter_conv = 0.0d0 ustar_min = 0.0005 + hi_min = 0.01 calc_dragio = .false. emissivity = 0.985 fbot_xfer_type = 'constant' diff --git a/configuration/scripts/options/set_nml.thermo1 b/configuration/scripts/options/set_nml.thermo1 index 39d204492..4ed48a77a 100644 --- a/configuration/scripts/options/set_nml.thermo1 +++ b/configuration/scripts/options/set_nml.thermo1 @@ -1,6 +1,7 @@ kcatbound = 0 kitd = 0 ktherm = 1 +hi_min = 0.1 sw_redist = .true. sw_frac = 0.9d0 sw_dtemp = 0.02d0 diff --git a/doc/source/icepack_index.rst b/doc/source/icepack_index.rst index 3ee34f5fd..faf6e8ac8 100755 --- a/doc/source/icepack_index.rst +++ b/doc/source/icepack_index.rst @@ -205,7 +205,7 @@ either Celsius or Kelvin units). "HDO_ocn", "concentration of HDO isotope in ocean", "kg/kg" "heat_capacity", "DEPRECATED", "" "hfrazilmin", "minimum thickness of new frazil ice", "0.05 m" - "hi_min", "minimum ice thickness for thinnest ice category", "0.01 m" + "hi_min", "minimum ice thickness for thinnest ice category", "m" "hi_ssl", "ice surface scattering layer thickness", "0.05 m" "hicen", "ice thickness in category n", "m" "highfreq", ":math:`\bullet` high-frequency atmo coupling", "F" diff --git a/doc/source/user_guide/ug_case_settings.rst b/doc/source/user_guide/ug_case_settings.rst index a3de5081d..b5b01eef5 100755 --- a/doc/source/user_guide/ug_case_settings.rst +++ b/doc/source/user_guide/ug_case_settings.rst @@ -354,6 +354,7 @@ forcing_nml "``formdrag``", "logical", "calculate form drag", "``.false.``" "``fyear_init``", "integer", "first year of atmospheric forcing data", "1998" "``highfreq``", "logical", "high-frequency atmo coupling", "``.false.``" + "``hi_min``", "real", "! minimum ice thickness allowed for thermo in m", "0.01" "``ice_data_file``", "string", "file containing ice opening, closing data", "' '" "``l_mpond_fresh``", "``.false.``", "release pond water immediately to ocean", "``.false.``" "", "``true``", "retain (topo) pond water until ponds drain", "" From 5efe8b76abc5d6c05ee3d0ac8a6a95151d1b0dfb Mon Sep 17 00:00:00 2001 From: apcraig Date: Sat, 8 Oct 2022 12:29:45 -0600 Subject: [PATCH 50/64] Update spacing and documentation --- columnphysics/icepack_brine.F90 | 101 ++++++++++----------- doc/source/user_guide/ug_case_settings.rst | 2 +- 2 files changed, 48 insertions(+), 55 deletions(-) diff --git a/columnphysics/icepack_brine.F90 b/columnphysics/icepack_brine.F90 index 9155074ce..000cbcf65 100644 --- a/columnphysics/icepack_brine.F90 +++ b/columnphysics/icepack_brine.F90 @@ -66,13 +66,13 @@ subroutine preflushing_changes (aicen, vicen, vsnon, & hbr_old, hin,hsn, firstice ) real (kind=dbl_kind), intent(in) :: & - aicen , & ! concentration of ice - vicen , & ! volume per unit area of ice (m) - vsnon , & ! volume per unit area of snow (m) - meltb , & ! bottom ice melt (m) - meltt , & ! top ice melt (m) - congel , & ! bottom ice growth (m) - snoice ! top ice growth from flooding (m) + aicen , & ! concentration of ice + vicen , & ! volume per unit area of ice (m) + vsnon , & ! volume per unit area of snow (m) + meltb , & ! bottom ice melt (m) + meltt , & ! top ice melt (m) + congel , & ! bottom ice growth (m) + snoice ! top ice growth from flooding (m) real (kind=dbl_kind), intent(out) :: & hbr_old ! old brine height (m) @@ -152,22 +152,20 @@ subroutine compute_microS_mushy (nilyr, nblyr, & nblyr ! number of bio layers real (kind=dbl_kind), dimension (nblyr+2), intent(in) :: & - bgrid ! biology nondimensional vertical grid points + bgrid ! biology nondimensional vertical grid points real (kind=dbl_kind), dimension (nblyr+1), intent(in) :: & - igrid ! biology vertical interface points + igrid ! biology vertical interface points real (kind=dbl_kind), dimension (nilyr+1), intent(in) :: & - cgrid ! CICE vertical coordinate + cgrid ! CICE vertical coordinate - real (kind=dbl_kind), & - intent(in) :: & + real (kind=dbl_kind), intent(in) :: & hice_old , & ! previous timestep ice height (m) sss , & ! ocean salinity (ppt) sst ! ocean temperature (C) - real (kind=dbl_kind), dimension(ntrcr), & - intent(in) :: & + real (kind=dbl_kind), dimension(ntrcr), intent(in) :: & trcrn real (kind=dbl_kind), intent(out) :: & @@ -175,22 +173,19 @@ subroutine compute_microS_mushy (nilyr, nblyr, & bphi_min ! surface porosity real (kind=dbl_kind), intent(inout) :: & - hbr_old ! previous timestep brine height (m) + hbr_old ! previous timestep brine height (m) - real (kind=dbl_kind), dimension (nblyr+1), & - intent(inout) :: & - iDin ! tracer diffusivity/h^2 (1/s) includes gravity drainage/molecular + real (kind=dbl_kind), dimension (nblyr+1), intent(inout) :: & + iDin ! tracer diffusivity/h^2 (1/s) includes gravity drainage/molecular - real (kind=dbl_kind), dimension (nblyr+1), & - intent(inout) :: & + real (kind=dbl_kind), dimension (nblyr+1), intent(inout) :: & iphin , & ! porosity on the igrid ibrine_rho , & ! brine rho on interface ibrine_sal , & ! brine sal on interface iTin ! Temperature on the igrid (oC) - real (kind=dbl_kind), dimension (nblyr+2), & - intent(inout) :: & - bSin , & ! bulk salinity (ppt) on bgrid + real (kind=dbl_kind), dimension (nblyr+2), intent(inout) :: & + bSin , & ! bulk salinity (ppt) on bgrid brine_sal , & ! equilibrium brine salinity (ppt) brine_rho ! internal brine density (kg/m^3) @@ -311,16 +306,14 @@ subroutine prepare_hbrine (nblyr, & i_grid, sss) integer (kind=int_kind), intent(in) :: & - nblyr ! number of bio layers + nblyr ! number of bio layers - real (kind=dbl_kind), dimension (:), & - intent(in) :: & - bSin , & ! salinity of ice layers on bio grid (ppt) - bTin , & ! temperature of ice layers on bio grid for history (C) - i_grid ! biology grid interface points + real (kind=dbl_kind), dimension (:), intent(in) :: & + bSin , & ! salinity of ice layers on bio grid (ppt) + bTin , & ! temperature of ice layers on bio grid for history (C) + i_grid ! biology grid interface points - real (kind=dbl_kind), dimension (:), & - intent(inout) :: & + real (kind=dbl_kind), dimension (:), intent(inout) :: & brine_sal , & ! equilibrium brine salinity (ppt) brine_rho , & ! internal brine density (kg/m^3) ibrine_rho , & ! brine density on interface (kg/m^3) @@ -342,14 +335,14 @@ subroutine prepare_hbrine (nblyr, & ! local variables real (kind=dbl_kind), dimension(nblyr+1) :: & - kin ! permeability + kin ! permeability real (kind=dbl_kind) :: & k_min, ktemp, & igrp, igrm, rigr ! grid finite differences integer (kind=int_kind) :: & - k ! layer index + k ! layer index character(len=*),parameter :: subname='(prepare_hbrine)' @@ -479,7 +472,7 @@ subroutine update_hbrine (meltt, & ! local variables real (kind=dbl_kind) :: & - hbrmin , & ! thinS or hin + hbrmin , & ! thinS or hin dhbr_hin , & ! hbr-hin hbrocn , & ! brine height above sea level (m) hbr-h_ocn dhbr , & ! change in brine surface @@ -587,18 +580,18 @@ subroutine compute_microS (n_cat, nilyr, nblyr, & ibrine_sal, sice_rho, sloss) integer (kind=int_kind), intent(in) :: & - n_cat , & ! ice category - nilyr , & ! number of ice layers - nblyr ! number of bio layers + n_cat , & ! ice category + nilyr , & ! number of ice layers + nblyr ! number of bio layers real (kind=dbl_kind), dimension (nblyr+2), intent(in) :: & - bgrid ! biology nondimensional vertical grid points + bgrid ! biology nondimensional vertical grid points real (kind=dbl_kind), dimension (nblyr+1), intent(in) :: & - igrid ! biology vertical interface points + igrid ! biology vertical interface points real (kind=dbl_kind), dimension (nilyr+1), intent(in) :: & - cgrid ! CICE vertical coordinate + cgrid ! CICE vertical coordinate real (kind=dbl_kind), intent(in) :: & hice_old , & ! previous timestep ice height (m) @@ -807,22 +800,22 @@ subroutine calculate_drho (nblyr, i_grid, b_grid, & brine_rho, ibrine_rho, drho) integer (kind=int_kind), intent(in) :: & - nblyr ! number of bio layers + nblyr ! number of bio layers real (kind=dbl_kind), dimension (nblyr+2), intent(in) :: & - b_grid ! biology nondimensional grid layer points + b_grid ! biology nondimensional grid layer points real (kind=dbl_kind), dimension (nblyr+1), intent(in) :: & - i_grid ! biology grid interface points + i_grid ! biology grid interface points real (kind=dbl_kind), dimension (nblyr+2), intent(in) :: & - brine_rho ! Internal brine density (kg/m^3) + brine_rho ! Internal brine density (kg/m^3) real (kind=dbl_kind), dimension (nblyr + 1), intent(in) :: & - ibrine_rho ! Internal brine density (kg/m^3) + ibrine_rho ! Internal brine density (kg/m^3) real (kind=dbl_kind), dimension (nblyr+1), intent(out) :: & - drho ! brine difference about grid point (kg/m^3) + drho ! brine difference about grid point (kg/m^3) ! local variables @@ -921,7 +914,7 @@ subroutine icepack_init_hbrine(bgrid, igrid, cgrid, & nblyr ! number of bio layers real (kind=dbl_kind), intent(inout) :: & - phi_snow !porosity at the ice-snow interface + phi_snow ! porosity at the ice-snow interface real (kind=dbl_kind), dimension (nblyr+2), intent(out) :: & bgrid ! biology nondimensional vertical grid points @@ -930,9 +923,9 @@ subroutine icepack_init_hbrine(bgrid, igrid, cgrid, & igrid ! biology vertical interface points real (kind=dbl_kind), dimension (nilyr+1), intent(out) :: & - cgrid , & ! CICE vertical coordinate - icgrid , & ! interface grid for CICE (shortwave variable) - swgrid ! grid for ice tracers used in dEdd scheme + cgrid , & ! CICE vertical coordinate + icgrid , & ! interface grid for CICE (shortwave variable) + swgrid ! grid for ice tracers used in dEdd scheme !autodocument_end @@ -1013,10 +1006,10 @@ subroutine icepack_init_zsalinity(nblyr,ntrcr_o, Rayleigh_criteria, & Rayleigh_real, trcrn_bgc, nt_bgc_S, ncat, sss) integer (kind=int_kind), intent(in) :: & - nblyr, & ! number of biolayers + nblyr , & ! number of biolayers ntrcr_o, & ! number of non bio tracers - ncat , & ! number of categories - nt_bgc_S ! zsalinity index + ncat , & ! number of categories + nt_bgc_S ! zsalinity index logical (kind=log_kind), intent(inout) :: & Rayleigh_criteria @@ -1028,7 +1021,7 @@ subroutine icepack_init_zsalinity(nblyr,ntrcr_o, Rayleigh_criteria, & sss real (kind=dbl_kind), dimension(:,:), intent(inout):: & - trcrn_bgc ! bgc subset of trcrn + trcrn_bgc ! bgc subset of trcrn !autodocument_end diff --git a/doc/source/user_guide/ug_case_settings.rst b/doc/source/user_guide/ug_case_settings.rst index b5b01eef5..d1fdf9e06 100755 --- a/doc/source/user_guide/ug_case_settings.rst +++ b/doc/source/user_guide/ug_case_settings.rst @@ -354,7 +354,7 @@ forcing_nml "``formdrag``", "logical", "calculate form drag", "``.false.``" "``fyear_init``", "integer", "first year of atmospheric forcing data", "1998" "``highfreq``", "logical", "high-frequency atmo coupling", "``.false.``" - "``hi_min``", "real", "! minimum ice thickness allowed for thermo in m", "0.01" + "``hi_min``", "real", "minimum ice thickness allowed for thermo in m", "0.01" "``ice_data_file``", "string", "file containing ice opening, closing data", "' '" "``l_mpond_fresh``", "``.false.``", "release pond water immediately to ocean", "``.false.``" "", "``true``", "retain (topo) pond water until ponds drain", "" From 86d414caae2a3a2ccba5de06c73cf15b55935e8b Mon Sep 17 00:00:00 2001 From: David Bailey Date: Fri, 7 Oct 2022 13:49:56 -0600 Subject: [PATCH 51/64] First step in adding Tf --- columnphysics/icepack_itd.F90 | 49 ++++++++++++++++--------- columnphysics/icepack_mechred.F90 | 29 ++++++++++----- columnphysics/icepack_parameters.F90 | 3 ++ columnphysics/icepack_therm_itd.F90 | 19 ++++++---- columnphysics/icepack_therm_shared.F90 | 4 +- columnphysics/icepack_tracers.F90 | 9 +++-- configuration/driver/icedrv_InitMod.F90 | 4 +- configuration/driver/icedrv_forcing.F90 | 9 +++-- configuration/driver/icedrv_init.F90 | 3 +- configuration/driver/icedrv_restart.F90 | 5 ++- configuration/driver/icedrv_step.F90 | 10 +++-- 11 files changed, 92 insertions(+), 52 deletions(-) diff --git a/columnphysics/icepack_itd.F90 b/columnphysics/icepack_itd.F90 index 0a177e5eb..7fd02cc51 100644 --- a/columnphysics/icepack_itd.F90 +++ b/columnphysics/icepack_itd.F90 @@ -27,7 +27,7 @@ module icepack_itd use icepack_kinds use icepack_parameters, only: c0, c1, c2, c3, c15, c25, c100, p1, p01, p001, p5, puny - use icepack_parameters, only: Lfresh, rhos, ice_ref_salinity, hs_min, cp_ice, Tocnfrz, rhoi + use icepack_parameters, only: Lfresh, rhos, ice_ref_salinity, hs_min, cp_ice, rhoi use icepack_parameters, only: rhosi, sk_l, hs_ssl, min_salin, rsnw_fall use icepack_tracers, only: nt_Tsfc, nt_qice, nt_qsno, nt_aero, nt_isosno, nt_isoice use icepack_tracers, only: nt_apnd, nt_hpnd, nt_fbri, tr_brine, nt_bgc_S, bio_index @@ -108,7 +108,7 @@ subroutine rebin (ntrcr, trcr_depend, & nt_strata, & aicen, trcrn, & vicen, vsnon, & - ncat, hin_max ) + ncat, hin_max, Tf ) integer (kind=int_kind), intent(in) :: & ntrcr , & ! number of tracers in use @@ -135,6 +135,9 @@ subroutine rebin (ntrcr, trcr_depend, & real (kind=dbl_kind), dimension(0:ncat), intent(in) :: & hin_max ! category limits (m) + + real (kind=dbl_kind), intent(in) :: & + Tf ! freezing temperature ! local variables @@ -221,7 +224,7 @@ subroutine rebin (ntrcr, trcr_depend, & aicen, trcrn, & vicen, vsnon, & hicen, donor, & - daice, dvice ) + daice, dvice, Tf ) if (icepack_warnings_aborted(subname)) return !----------------------------------------------------------------- @@ -269,7 +272,7 @@ subroutine rebin (ntrcr, trcr_depend, & aicen, trcrn, & vicen, vsnon, & hicen, donor, & - daice, dvice ) + daice, dvice, Tf ) if (icepack_warnings_aborted(subname)) return !----------------------------------------------------------------- @@ -361,7 +364,7 @@ subroutine shift_ice (ntrcr, ncat, & aicen, trcrn, & vicen, vsnon, & hicen, donor, & - daice, dvice ) + daice, dvice, Tf ) integer (kind=int_kind), intent(in) :: & ncat , & ! number of thickness categories @@ -396,6 +399,9 @@ subroutine shift_ice (ntrcr, ncat, & dvice , & ! ice volume transferred across boundary hicen ! ice thickness for each cat (m) + real (kind=dbl_kind), intent(in) :: & + Tf ! freezing temperature + ! local variables integer (kind=int_kind) :: & @@ -663,7 +669,7 @@ subroutine shift_ice (ntrcr, ncat, & atrcrn(:,n), aicen(n), & vicen(n), vsnon(n), & trcr_base, n_trcr_strata, & - nt_strata, trcrn(:,n)) + nt_strata, trcrn(:,n), Tf) if (icepack_warnings_aborted(subname)) return enddo ! ncat @@ -773,8 +779,8 @@ subroutine cleanup_itd (dt, ntrcr, & fpond, fresh, & fsalt, fhocn, & faero_ocn, fiso_ocn, & - fzsal, & - flux_bio, limit_aice_in) + fzsal, & + flux_bio, Tf, limit_aice_in) integer (kind=int_kind), intent(in) :: & ncat , & ! number of thickness categories @@ -784,9 +790,12 @@ subroutine cleanup_itd (dt, ntrcr, & ntrcr , & ! number of tracers in use nbtrcr, & ! number of bio tracers in use n_aero ! number of aerosol tracers - - real (kind=dbl_kind), intent(in) :: & - dt ! time step + + real (kind=dbl_kind), intent(in) :: & + dt ! time step + + real (kind=dbl_kind), intent(in) :: & + Tf ! Freezing temperature real (kind=dbl_kind), dimension(0:ncat), intent(in) :: & hin_max ! category boundaries (m) @@ -934,7 +943,7 @@ subroutine cleanup_itd (dt, ntrcr, & nt_strata, & aicen, trcrn, & vicen, vsnon, & - ncat, hin_max ) + ncat, hin_max, Tf ) if (icepack_warnings_aborted(subname)) return endif ! aice > puny @@ -959,7 +968,7 @@ subroutine cleanup_itd (dt, ntrcr, & tr_aero, & tr_pond_topo, & first_ice, nbtrcr, & - dfzsal, dflux_bio ) + dfzsal, dflux_bio, Tf ) if (icepack_warnings_aborted(subname)) then write(warnstr,*) subname, 'aice:', aice @@ -1061,7 +1070,7 @@ subroutine zap_small_areas (dt, ntrcr, & tr_aero, & tr_pond_topo, & first_ice, nbtrcr, & - dfzsal, dflux_bio ) + dfzsal, dflux_bio, Tf) integer (kind=int_kind), intent(in) :: & ncat , & ! number of thickness categories @@ -1103,6 +1112,9 @@ subroutine zap_small_areas (dt, ntrcr, & real (kind=dbl_kind), dimension (:), intent(inout) :: & dflux_bio ! zapped bio tracer flux from biology (mmol/m^2/s) + real (kind=dbl_kind), intent(in) :: & + Tf ! Freezing temperature + logical (kind=log_kind), intent(in) :: & tr_aero, & ! aerosol flag tr_pond_topo ! pond flag @@ -1220,7 +1232,7 @@ subroutine zap_small_areas (dt, ntrcr, & aice0 = aice0 + aicen(n) aicen(n) = c0 vicen(n) = c0 - trcrn(nt_Tsfc,n) = Tocnfrz + trcrn(nt_Tsfc,n) = Tf !----------------------------------------------------------------- ! Zap snow @@ -2002,7 +2014,7 @@ subroutine icepack_aggregate (ncat, & trcr_depend, & trcr_base, & n_trcr_strata, & - nt_strata) + nt_strata, Tf) integer (kind=int_kind), intent(in) :: & ncat , & ! number of thickness categories @@ -2036,6 +2048,9 @@ subroutine icepack_aggregate (ncat, & real (kind=dbl_kind), dimension (:), intent(out) :: & trcr ! ice tracers + real (kind=dbl_kind), intent(in) :: & + Tf ! freezing temperature + !autodocument_end ! local variables @@ -2097,7 +2112,7 @@ subroutine icepack_aggregate (ncat, & atrcr, aice, & vice , vsno, & trcr_base, n_trcr_strata, & - nt_strata, trcr) + nt_strata, trcr, Tf) if (icepack_warnings_aborted(subname)) return deallocate (atrcr) diff --git a/columnphysics/icepack_mechred.F90 b/columnphysics/icepack_mechred.F90 index 7b9258faa..30ce3a825 100644 --- a/columnphysics/icepack_mechred.F90 +++ b/columnphysics/icepack_mechred.F90 @@ -114,7 +114,7 @@ subroutine ridge_ice (dt, ndtd, & aparticn, krdgn, & aredistn, vredistn, & dardg1ndt, dardg2ndt, & - dvirdgndt, & + dvirdgndt, Tf, & araftn, vraftn, & closing_flag,closing ) @@ -130,6 +130,9 @@ subroutine ridge_ice (dt, ndtd, & mu_rdg , & ! gives e-folding scale of ridged ice (m^.5) dt ! time step + real (kind=dbl_kind), intent(in) :: & + Tf ! freezing temperature + real (kind=dbl_kind), dimension(0:ncat), intent(inout) :: & hin_max ! category limits (m) @@ -404,8 +407,8 @@ subroutine ridge_ice (dt, ndtd, & nslyr, n_aero, & msnow_mlt, esnow_mlt, & maero, miso, & - mpond, & - aredistn, vredistn) + mpond, Tf, & + aredistn, vredistn) if (icepack_warnings_aborted(subname)) return !----------------------------------------------------------------- @@ -1093,7 +1096,7 @@ subroutine ridge_shift (ntrcr, dt, & nslyr, n_aero, & msnow_mlt, esnow_mlt, & maero, miso, & - mpond, & + mpond, Tf, & aredistn, vredistn) integer (kind=int_kind), intent(in) :: & @@ -1106,6 +1109,9 @@ subroutine ridge_shift (ntrcr, dt, & real (kind=dbl_kind), intent(in) :: & dt ! time step (s) + real (kind=dbl_kind), intent(in) :: & + Tf ! freezing temperature + integer (kind=int_kind), dimension (:), intent(in) :: & trcr_depend, & ! = 0 for aicen tracers, 1 for vicen, 2 for vsnon n_trcr_strata ! number of underlying tracer layers @@ -1167,7 +1173,7 @@ subroutine ridge_shift (ntrcr, dt, & real (kind=dbl_kind), dimension(:), intent(inout) :: & miso ! isotope mass added to ocean (kg m-2) - + real (kind=dbl_kind), dimension (:), intent(inout), optional :: & aredistn , & ! redistribution function: fraction of new ridge area vredistn ! redistribution function: fraction of new ridge volume @@ -1580,7 +1586,7 @@ subroutine ridge_shift (ntrcr, dt, & atrcrn(:,n), aicen(n), & vicen(n), vsnon(n), & trcr_base, n_trcr_strata, & - nt_strata, trcrn(:,n)) + nt_strata, trcrn(:,n), Tf) if (icepack_warnings_aborted(subname)) return enddo @@ -1749,11 +1755,14 @@ subroutine icepack_step_ridge (dt, ndtd, & araftn, vraftn, & aice, fsalt, & first_ice, fzsal, & - flux_bio, closing ) + flux_bio, closing, Tf ) real (kind=dbl_kind), intent(in) :: & dt ! time step + real (kind=dbl_kind), intent(in) :: & + Tf ! freezing temperature + integer (kind=int_kind), intent(in) :: & ncat , & ! number of thickness categories ndtd , & ! number of dynamics supercycles @@ -1892,7 +1901,7 @@ subroutine icepack_step_ridge (dt, ndtd, & aparticn, krdgn, & aredistn, vredistn, & dardg1ndt, dardg2ndt, & - dvirdgndt, & + dvirdgndt, Tf, & araftn, vraftn, & l_closing_flag, & l_closing ) @@ -1924,8 +1933,8 @@ subroutine icepack_step_ridge (dt, ndtd, & fpond, fresh, & fsalt, fhocn, & faero_ocn, l_fiso_ocn, & - fzsal, & - flux_bio) + fzsal, & + flux_bio, Tf) if (icepack_warnings_aborted(subname)) return if (present(fiso_ocn)) fiso_ocn = l_fiso_ocn diff --git a/columnphysics/icepack_parameters.F90 b/columnphysics/icepack_parameters.F90 index b8154d378..b85e11fef 100644 --- a/columnphysics/icepack_parameters.F90 +++ b/columnphysics/icepack_parameters.F90 @@ -171,6 +171,7 @@ module icepack_parameters character(len=char_len), public :: & tfrz_option = 'mushy' ! form of ocean freezing temperature ! 'minus1p8' = -1.8 C + ! 'constant' = Tocnfrz from namelist ! 'linear_salt' = -depressT * sss ! 'mushy' conforms with ktherm=2 @@ -589,6 +590,7 @@ subroutine icepack_init_parameters( & character(len=*), intent(in), optional :: & tfrz_option_in ! form of ocean freezing temperature ! 'minus1p8' = -1.8 C + ! 'constant' = Tocnfrz from namelist ! 'linear_salt' = -depressT * sss ! 'mushy' conforms with ktherm=2 @@ -1313,6 +1315,7 @@ subroutine icepack_query_parameters( & character(len=*), intent(out), optional :: & tfrz_option_out ! form of ocean freezing temperature ! 'minus1p8' = -1.8 C + ! 'constant' = Tocnfrz from namelist ! 'linear_salt' = -depressT * sss ! 'mushy' conforms with ktherm=2 diff --git a/columnphysics/icepack_therm_itd.F90 b/columnphysics/icepack_therm_itd.F90 index 7a701916b..b58c97a1a 100644 --- a/columnphysics/icepack_therm_itd.F90 +++ b/columnphysics/icepack_therm_itd.F90 @@ -101,11 +101,11 @@ subroutine linear_itd (ncat, hin_max, & ntrcr, trcr_depend, & trcr_base, n_trcr_strata,& nt_strata, & - aicen_init, vicen_init, & - aicen, trcrn, & - vicen, vsnon, & - aice, aice0, & - fpond ) + aicen_init, vicen_init, & + aicen, trcrn, & + vicen, vsnon, & + aice, aice0, & + fpond, Tf ) integer (kind=int_kind), intent(in) :: & ncat , & ! number of thickness categories @@ -127,6 +127,9 @@ subroutine linear_itd (ncat, hin_max, & integer (kind=int_kind), dimension (:,:), intent(in) :: & nt_strata ! indices of underlying tracer layers + real (kind=dbl_kind), intent(in) :: & + Tf ! freezing temperature + real (kind=dbl_kind), dimension(:), intent(in) :: & aicen_init, & ! initial ice concentration (before vertical thermo) vicen_init ! initial ice volume (m) @@ -595,7 +598,7 @@ subroutine linear_itd (ncat, hin_max, & aicen, trcrn, & vicen, vsnon, & hicen, donor, & - daice, dvice ) + daice, dvice, Tf ) if (icepack_warnings_aborted(subname)) return ! maintain qsno negative definiteness @@ -2177,7 +2180,7 @@ subroutine icepack_step_therm2 (dt, ncat, nltrcr, & vsnon, & aice , & aice0 , & - fpond ) + fpond, Tf ) if (icepack_warnings_aborted(subname)) return endif ! aice > puny @@ -2287,7 +2290,7 @@ subroutine icepack_step_therm2 (dt, ncat, nltrcr, & fpond, fresh, & fsalt, fhocn, & faero_ocn, l_fiso_ocn, & - fzsal, flux_bio) + fzsal, flux_bio, Tf) if (icepack_warnings_aborted(subname)) return if (present(fiso_ocn)) then diff --git a/columnphysics/icepack_therm_shared.F90 b/columnphysics/icepack_therm_shared.F90 index 4bcb6259b..d764eeac0 100644 --- a/columnphysics/icepack_therm_shared.F90 +++ b/columnphysics/icepack_therm_shared.F90 @@ -8,7 +8,7 @@ module icepack_therm_shared use icepack_kinds - use icepack_parameters, only: c0, c1, c2, c4, p5, pi, puny + use icepack_parameters, only: c0, c1, c2, c4, p5, pi, puny, Tocnfrz use icepack_parameters, only: cp_ocn, cp_ice, rhoi, rhos, Tffresh, TTTice, qqqice use icepack_parameters, only: stefan_boltzmann, emissivity, Lfresh, Tsmelt use icepack_parameters, only: saltmax, min_salin, depressT @@ -409,7 +409,7 @@ function icepack_sea_freezing_temperature(sss) result(Tf) else - Tf = -1.8_dbl_kind + Tf = Tocnfrz endif diff --git a/columnphysics/icepack_tracers.F90 b/columnphysics/icepack_tracers.F90 index 9af512f17..682c26548 100644 --- a/columnphysics/icepack_tracers.F90 +++ b/columnphysics/icepack_tracers.F90 @@ -7,7 +7,7 @@ module icepack_tracers use icepack_kinds - use icepack_parameters, only: c0, c1, puny, Tocnfrz, rhos, rsnw_fall + use icepack_parameters, only: c0, c1, puny, rhos, rsnw_fall use icepack_warnings, only: warnstr, icepack_warnings_add use icepack_warnings, only: icepack_warnings_setabort, icepack_warnings_aborted @@ -1227,7 +1227,7 @@ subroutine icepack_compute_tracers (ntrcr, trcr_depend, & atrcrn, aicen, & vicen, vsnon, & trcr_base, n_trcr_strata, & - nt_strata, trcrn) + nt_strata, trcrn, Tf) integer (kind=int_kind), intent(in) :: & ntrcr ! number of tracers in use @@ -1254,6 +1254,9 @@ subroutine icepack_compute_tracers (ntrcr, trcr_depend, & real (kind=dbl_kind), dimension (ntrcr), intent(out) :: & trcrn ! ice tracers + real (kind=dbl_kind), intent(in) :: & + Tf ! Freezing point + !autodocument_end ! local variables @@ -1286,7 +1289,7 @@ subroutine icepack_compute_tracers (ntrcr, trcr_depend, & trcrn(it) = atrcrn(it) / aicen else trcrn(it) = c0 - if (it == nt_Tsfc) trcrn(it) = Tocnfrz ! surface temperature + if (it == nt_Tsfc) trcrn(it) = Tf ! surface temperature endif else diff --git a/configuration/driver/icedrv_InitMod.F90 b/configuration/driver/icedrv_InitMod.F90 index dec4a843a..c37024b18 100644 --- a/configuration/driver/icedrv_InitMod.F90 +++ b/configuration/driver/icedrv_InitMod.F90 @@ -175,6 +175,7 @@ subroutine init_restart use icedrv_init, only: ice_ic use icedrv_init, only: tmask use icedrv_init_column, only: init_hbrine, init_bgc + use icedrv_flux, only: Tf use icedrv_restart, only: restartfile use icedrv_restart_shared, only: restart use icedrv_restart_bgc, only: read_restart_bgc @@ -243,7 +244,8 @@ subroutine init_restart trcr_depend=trcr_depend, & trcr_base=trcr_base, & n_trcr_strata=n_trcr_strata, & - nt_strata=nt_strata) + nt_strata=nt_strata, & + Tf=Tf(i)) enddo call icepack_warnings_flush(nu_diag) if (icepack_warnings_aborted()) call icedrv_system_abort(string=subname, & diff --git a/configuration/driver/icedrv_forcing.F90 b/configuration/driver/icedrv_forcing.F90 index 275e273fa..4efa5a1aa 100644 --- a/configuration/driver/icedrv_forcing.F90 +++ b/configuration/driver/icedrv_forcing.F90 @@ -1075,10 +1075,11 @@ end subroutine ocn_ISPOL subroutine finish_ocn_forcing(sst_temp) - ! Compute ocean freezing temperature Tf based on tfrz_option - ! 'minus1p8' Tf = -1.8 C (default) - ! 'linear_salt' Tf = -depressT * sss - ! 'mushy' Tf conforms with mushy layer thermo (ktherm=2) +! Compute ocean freezing temperature Tf based on tfrz_option +! 'minus1p8' Tf = -1.8 C (default) +! 'constant' Tf = Tocnfrz from namelist +! 'linear_salt' Tf = -depressT * sss +! 'mushy' Tf conforms with mushy layer thermo (ktherm=2) real (kind=dbl_kind), dimension(nx), intent(in) :: & sst_temp diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90 index 8d64a769e..a29e03390 100644 --- a/configuration/driver/icedrv_init.F90 +++ b/configuration/driver/icedrv_init.F90 @@ -1314,7 +1314,8 @@ subroutine init_state trcr_depend=trcr_depend(1:ntrcr), & trcr_base=trcr_base (1:ntrcr,:), & n_trcr_strata=n_trcr_strata(1:ntrcr), & - nt_strata=nt_strata (1:ntrcr,:)) + nt_strata=nt_strata (1:ntrcr,:), & + Tf = Tf(i)) aice_init(i) = aice(i) diff --git a/configuration/driver/icedrv_restart.F90 b/configuration/driver/icedrv_restart.F90 index 38f892d2d..b0ebf2944 100644 --- a/configuration/driver/icedrv_restart.F90 +++ b/configuration/driver/icedrv_restart.F90 @@ -174,7 +174,7 @@ subroutine restartfile (ice_ic) use icepack_intfc, only: icepack_aggregate use icedrv_domain_size, only: nilyr, nslyr, ncat use icedrv_domain_size, only: max_ntrcr, nx - use icedrv_flux, only: swvdr, swvdf, swidr, swidf + use icedrv_flux, only: swvdr, swvdf, swidr, swidf, Tf use icedrv_flux, only: sst, frzmlt, scale_factor use icedrv_forcing, only: oceanmixed_ice use icedrv_init, only: tmask @@ -324,7 +324,8 @@ subroutine restartfile (ice_ic) trcr_depend=trcr_depend, & trcr_base=trcr_base, & n_trcr_strata=n_trcr_strata, & - nt_strata=nt_strata) + nt_strata=nt_strata, & + Tf = Tf(i)) aice_init(i) = aice(i) enddo diff --git a/configuration/driver/icedrv_step.F90 b/configuration/driver/icedrv_step.F90 index 2b0a4042d..410a53564 100644 --- a/configuration/driver/icedrv_step.F90 +++ b/configuration/driver/icedrv_step.F90 @@ -544,6 +544,7 @@ subroutine update_state (dt, daidt, dvidt, dagedt, offset) use icedrv_domain_size, only: ncat, nx use icedrv_init, only: tmask + use icedrv_flux, only: Tf use icedrv_state, only: aicen, trcrn, vicen, vsnon use icedrv_state, only: aice, trcr, vice, vsno, aice0, trcr_depend use icedrv_state, only: trcr_base, nt_strata, n_trcr_strata @@ -609,7 +610,8 @@ subroutine update_state (dt, daidt, dvidt, dagedt, offset) trcr_depend=trcr_depend (1:ntrcr), & trcr_base=trcr_base (1:ntrcr,:), & n_trcr_strata=n_trcr_strata(1:ntrcr), & - nt_strata=nt_strata (1:ntrcr,:)) + nt_strata=nt_strata (1:ntrcr,:), & + Tf=Tf(i)) endif if (present(offset)) then @@ -707,7 +709,7 @@ subroutine step_dyn_ridge (dt, ndtd) use icedrv_arrays_column, only: hin_max, fzsal, first_ice use icedrv_domain_size, only: ncat, nilyr, nslyr, n_aero, nblyr, nx - use icedrv_flux, only: rdg_conv, rdg_shear, dardg1dt, dardg2dt + use icedrv_flux, only: rdg_conv, rdg_shear, dardg1dt, dardg2dt, Tf use icedrv_flux, only: dvirdgdt, opening, closing, fpond, fresh, fhocn use icedrv_flux, only: aparticn, krdgn, aredistn, vredistn, dardg1ndt, dardg2ndt use icedrv_flux, only: dvirdgndt, araftn, vraftn, fsalt, flux_bio, faero_ocn, fiso_ocn @@ -784,7 +786,7 @@ subroutine step_dyn_ridge (dt, ndtd) aice=aice(i), fsalt=fsalt(i), & first_ice=first_ice(i,:), fzsal=fzsal(i), & flux_bio=flux_bio(i,1:nbtrcr), & - closing=closing(i) ) + closing=closing(i), Tf=Tf(i) ) endif ! tmask @@ -826,7 +828,7 @@ subroutine step_dyn_ridge (dt, ndtd) araftn=araftn(i,:), vraftn=vraftn(i,:), & aice=aice(i), fsalt=fsalt(i), & first_ice=first_ice(i,:), fzsal=fzsal(i), & - flux_bio=flux_bio(i,1:nbtrcr)) + flux_bio=flux_bio(i,1:nbtrcr), Tf = Tf(i)) endif ! tmask From ef314e21108e30755831751915e8510421c519fa Mon Sep 17 00:00:00 2001 From: David Bailey Date: Fri, 7 Oct 2022 14:33:03 -0600 Subject: [PATCH 52/64] Fix some spacing and logic --- columnphysics/icepack_mechred.F90 | 2 +- columnphysics/icepack_parameters.F90 | 6 +++--- columnphysics/icepack_therm_shared.F90 | 6 +++++- configuration/driver/icedrv_forcing.F90 | 16 ++++++++-------- doc/source/icepack_index.rst | 2 +- doc/source/user_guide/ug_case_settings.rst | 3 ++- 6 files changed, 20 insertions(+), 15 deletions(-) diff --git a/columnphysics/icepack_mechred.F90 b/columnphysics/icepack_mechred.F90 index 30ce3a825..2e3ef4b4f 100644 --- a/columnphysics/icepack_mechred.F90 +++ b/columnphysics/icepack_mechred.F90 @@ -1173,7 +1173,7 @@ subroutine ridge_shift (ntrcr, dt, & real (kind=dbl_kind), dimension(:), intent(inout) :: & miso ! isotope mass added to ocean (kg m-2) - + real (kind=dbl_kind), dimension (:), intent(inout), optional :: & aredistn , & ! redistribution function: fraction of new ridge area vredistn ! redistribution function: fraction of new ridge volume diff --git a/columnphysics/icepack_parameters.F90 b/columnphysics/icepack_parameters.F90 index b85e11fef..bdc21aebd 100644 --- a/columnphysics/icepack_parameters.F90 +++ b/columnphysics/icepack_parameters.F90 @@ -171,7 +171,7 @@ module icepack_parameters character(len=char_len), public :: & tfrz_option = 'mushy' ! form of ocean freezing temperature ! 'minus1p8' = -1.8 C - ! 'constant' = Tocnfrz from namelist + ! 'constant' = Tocnfrz ! 'linear_salt' = -depressT * sss ! 'mushy' conforms with ktherm=2 @@ -590,7 +590,7 @@ subroutine icepack_init_parameters( & character(len=*), intent(in), optional :: & tfrz_option_in ! form of ocean freezing temperature ! 'minus1p8' = -1.8 C - ! 'constant' = Tocnfrz from namelist + ! 'constant' = Tocnfrz ! 'linear_salt' = -depressT * sss ! 'mushy' conforms with ktherm=2 @@ -1315,7 +1315,7 @@ subroutine icepack_query_parameters( & character(len=*), intent(out), optional :: & tfrz_option_out ! form of ocean freezing temperature ! 'minus1p8' = -1.8 C - ! 'constant' = Tocnfrz from namelist + ! 'constant' = Tocnfrz ! 'linear_salt' = -depressT * sss ! 'mushy' conforms with ktherm=2 diff --git a/columnphysics/icepack_therm_shared.F90 b/columnphysics/icepack_therm_shared.F90 index d764eeac0..00f0fac01 100644 --- a/columnphysics/icepack_therm_shared.F90 +++ b/columnphysics/icepack_therm_shared.F90 @@ -407,10 +407,14 @@ function icepack_sea_freezing_temperature(sss) result(Tf) Tf = -depressT * sss ! deg C - else + elseif (trim(tfrz_option) == 'constant') then Tf = Tocnfrz + else + + Tf = -1.8_dbl_kind + endif end function icepack_sea_freezing_temperature diff --git a/configuration/driver/icedrv_forcing.F90 b/configuration/driver/icedrv_forcing.F90 index 4efa5a1aa..e01f247c8 100644 --- a/configuration/driver/icedrv_forcing.F90 +++ b/configuration/driver/icedrv_forcing.F90 @@ -125,9 +125,9 @@ subroutine init_forcing write (nu_diag,*) ' Initial forcing data year = ',fyear_init write (nu_diag,*) ' Final forcing data year = ',fyear_final - !------------------------------------------------------------------- - ! Initialize forcing data to default values - !------------------------------------------------------------------- + !------------------------------------------------------------------- + ! Initialize forcing data to default values + !------------------------------------------------------------------- ! many default forcing values are set in init_flux_atm i = 1 ! use first grid box value @@ -1069,15 +1069,15 @@ subroutine ocn_ISPOL qdp_data (i) = qdp (i) end do - end subroutine ocn_ISPOL + end subroutine ocn_ISPOL !======================================================================= subroutine finish_ocn_forcing(sst_temp) ! Compute ocean freezing temperature Tf based on tfrz_option -! 'minus1p8' Tf = -1.8 C (default) -! 'constant' Tf = Tocnfrz from namelist +! 'minus1p8' Tf = -1.8 C +! 'constant' Tf = Tocnfrz ! 'linear_salt' Tf = -depressT * sss ! 'mushy' Tf conforms with mushy layer thermo (ktherm=2) @@ -1105,7 +1105,7 @@ end subroutine finish_ocn_forcing !======================================================================= - subroutine ice_open_clos + subroutine ice_open_clos integer (kind=int_kind) :: i @@ -1126,7 +1126,7 @@ subroutine ice_open_clos read(nu_open_clos,*) xtime, open_data(i), clos_data(i) enddo - end subroutine ice_open_clos + end subroutine ice_open_clos !======================================================================= diff --git a/doc/source/icepack_index.rst b/doc/source/icepack_index.rst index 3ee34f5fd..5e3ff6a5d 100755 --- a/doc/source/icepack_index.rst +++ b/doc/source/icepack_index.rst @@ -455,7 +455,7 @@ either Celsius or Kelvin units). "tday", "absolute day number", "" "Tf", "freezing temperature", "C" "Tffresh", "freezing temp of fresh ice", "273.15 K" - "tfrz_option", ":math:`\bullet` form of ocean freezing temperature", "" + "tfrz_option", ":math:`\bullet` form of ocean freezing temperature", "mushy" "thickness_ocn_layer1", "thickness of first ocean level", "2.0 m" "thinS", "minimum ice thickness for brine tracer", "" "time", "total elapsed time", "s" diff --git a/doc/source/user_guide/ug_case_settings.rst b/doc/source/user_guide/ug_case_settings.rst index a3de5081d..f5c337f0b 100755 --- a/doc/source/user_guide/ug_case_settings.rst +++ b/doc/source/user_guide/ug_case_settings.rst @@ -370,8 +370,9 @@ forcing_nml "", "``mm_per_sec``", "(same as MKS units)", "" "", "``m_per_sec``", "", "" "``restore_ocn``", "logical", "restore sst to data", "``.false.``" - "``tfrz_option``", "``linear_salt``", "linear functino of salinity (ktherm=1)", "``mushy``" + "``tfrz_option``", "``linear_salt``", "linear function of salinity (ktherm=1)", "``mushy``" "", "``minus1p8``", "constant ocean freezing temperature (:math:`-1.8^{\circ} C`)", "" + "", "``constant``", "constant ocean freezing temperature (Tocnfrz)", "" "", "``mushy``", "matches mushy-layer thermo (ktherm=2)", "" "``trestore``", "integer", "sst restoring time scale (days)", "90" "``update_ocn_f``", "``.false.``", "do not include frazil water/salt fluxes in ocn fluxes", "``.false.``" From 1b841320f7d50ec97cdd91abc14ec8db6e75a2f8 Mon Sep 17 00:00:00 2001 From: David Bailey Date: Fri, 7 Oct 2022 15:53:54 -0600 Subject: [PATCH 53/64] Fix some documentation --- doc/source/icepack_index.rst | 2 +- doc/source/user_guide/ug_case_settings.rst | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/doc/source/icepack_index.rst b/doc/source/icepack_index.rst index 5e3ff6a5d..3ee34f5fd 100755 --- a/doc/source/icepack_index.rst +++ b/doc/source/icepack_index.rst @@ -455,7 +455,7 @@ either Celsius or Kelvin units). "tday", "absolute day number", "" "Tf", "freezing temperature", "C" "Tffresh", "freezing temp of fresh ice", "273.15 K" - "tfrz_option", ":math:`\bullet` form of ocean freezing temperature", "mushy" + "tfrz_option", ":math:`\bullet` form of ocean freezing temperature", "" "thickness_ocn_layer1", "thickness of first ocean level", "2.0 m" "thinS", "minimum ice thickness for brine tracer", "" "time", "total elapsed time", "s" diff --git a/doc/source/user_guide/ug_case_settings.rst b/doc/source/user_guide/ug_case_settings.rst index f5c337f0b..13dd98e93 100755 --- a/doc/source/user_guide/ug_case_settings.rst +++ b/doc/source/user_guide/ug_case_settings.rst @@ -370,9 +370,9 @@ forcing_nml "", "``mm_per_sec``", "(same as MKS units)", "" "", "``m_per_sec``", "", "" "``restore_ocn``", "logical", "restore sst to data", "``.false.``" - "``tfrz_option``", "``linear_salt``", "linear function of salinity (ktherm=1)", "``mushy``" + "``tfrz_option``","``constant``", "constant ocean freezing temperature (Tocnfrz)" + "", "``linear_salt``", "linear function of salinity (ktherm=1)", "``mushy``", "" "", "``minus1p8``", "constant ocean freezing temperature (:math:`-1.8^{\circ} C`)", "" - "", "``constant``", "constant ocean freezing temperature (Tocnfrz)", "" "", "``mushy``", "matches mushy-layer thermo (ktherm=2)", "" "``trestore``", "integer", "sst restoring time scale (days)", "90" "``update_ocn_f``", "``.false.``", "do not include frazil water/salt fluxes in ocn fluxes", "``.false.``" From cf649562e123b3df5764d4d7f739b555a1e94c09 Mon Sep 17 00:00:00 2001 From: David Bailey Date: Mon, 10 Oct 2022 14:19:35 -0600 Subject: [PATCH 54/64] Fix documentation formatting --- doc/source/user_guide/ug_case_settings.rst | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/doc/source/user_guide/ug_case_settings.rst b/doc/source/user_guide/ug_case_settings.rst index 13dd98e93..152c180a4 100755 --- a/doc/source/user_guide/ug_case_settings.rst +++ b/doc/source/user_guide/ug_case_settings.rst @@ -370,8 +370,8 @@ forcing_nml "", "``mm_per_sec``", "(same as MKS units)", "" "", "``m_per_sec``", "", "" "``restore_ocn``", "logical", "restore sst to data", "``.false.``" - "``tfrz_option``","``constant``", "constant ocean freezing temperature (Tocnfrz)" - "", "``linear_salt``", "linear function of salinity (ktherm=1)", "``mushy``", "" + "``tfrz_option``","``constant``", "constant ocean freezing temperature (Tocnfrz)","``mushy``" + "", "``linear_salt``", "linear function of salinity (ktherm=1)", "" "", "``minus1p8``", "constant ocean freezing temperature (:math:`-1.8^{\circ} C`)", "" "", "``mushy``", "matches mushy-layer thermo (ktherm=2)", "" "``trestore``", "integer", "sst restoring time scale (days)", "90" From 1c502fa20795b3e0ddb9efd885ea932f16610f0f Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Mon, 24 Oct 2022 15:18:25 -0600 Subject: [PATCH 55/64] namelist parameter to set maximum liquidus temperature --- columnphysics/icepack_parameters.F90 | 8 ++++++++ columnphysics/icepack_therm_itd.F90 | 5 +++-- configuration/driver/icedrv_init.F90 | 9 +++++---- configuration/scripts/icepack_in | 1 + doc/source/icepack_index.rst | 1 + doc/source/user_guide/ug_case_settings.rst | 1 + 6 files changed, 19 insertions(+), 6 deletions(-) diff --git a/columnphysics/icepack_parameters.F90 b/columnphysics/icepack_parameters.F90 index b8154d378..7673d6081 100644 --- a/columnphysics/icepack_parameters.F90 +++ b/columnphysics/icepack_parameters.F90 @@ -129,6 +129,7 @@ module icepack_parameters phi_init = 0.75_dbl_kind ,&! initial liquid fraction of frazil min_salin = p1 ,&! threshold for brine pocket treatment salt_loss = 0.4_dbl_kind ,&! fraction of salt retained in zsalinity + Tliquidus_max = c0 ,&! maximum liquidus temperature of mush (C) dSin0_frazil = c3 ,&! bulk salinity reduction of newly formed frazil dts_b = 50._dbl_kind ,&! zsalinity timestep ustar_min = 0.005_dbl_kind ,&! minimum friction velocity for ocean heat flux (m/s) @@ -453,6 +454,7 @@ subroutine icepack_init_parameters( & #endif zref_in, hs_min_in, snowpatch_in, rhosi_in, sk_l_in, & saltmax_in, phi_init_in, min_salin_in, salt_loss_in, & + Tliquidus_max_in, & min_bgc_in, dSin0_frazil_in, hi_ssl_in, hs_ssl_in, & awtvdr_in, awtidr_in, awtvdf_in, awtidf_in, & qqqice_in, TTTice_in, qqqocn_in, TTTocn_in, & @@ -547,6 +549,7 @@ subroutine icepack_init_parameters( & phi_init_in, & ! initial liquid fraction of frazil min_salin_in, & ! threshold for brine pocket treatment salt_loss_in, & ! fraction of salt retained in zsalinity + Tliquidus_max_in, & ! maximum liquidus temperature of mush (C) dSin0_frazil_in ! bulk salinity reduction of newly formed frazil integer (kind=int_kind), intent(in), optional :: & @@ -906,6 +909,7 @@ subroutine icepack_init_parameters( & if (present(phi_init_in) ) phi_init = phi_init_in if (present(min_salin_in) ) min_salin = min_salin_in if (present(salt_loss_in) ) salt_loss = salt_loss_in + if (present(Tliquidus_max_in) ) Tliquidus_max = Tliquidus_max_in if (present(min_bgc_in) ) min_bgc = min_bgc_in if (present(dSin0_frazil_in) ) dSin0_frazil = dSin0_frazil_in if (present(hi_ssl_in) ) hi_ssl = hi_ssl_in @@ -1168,6 +1172,7 @@ subroutine icepack_query_parameters( & #endif zref_out, hs_min_out, snowpatch_out, rhosi_out, sk_l_out, & saltmax_out, phi_init_out, min_salin_out, salt_loss_out, & + Tliquidus_max_out, & min_bgc_out, dSin0_frazil_out, hi_ssl_out, hs_ssl_out, & awtvdr_out, awtidr_out, awtvdf_out, awtidf_out, & qqqice_out, TTTice_out, qqqocn_out, TTTocn_out, update_ocn_f_out, & @@ -1271,6 +1276,7 @@ subroutine icepack_query_parameters( & phi_init_out, & ! initial liquid fraction of frazil min_salin_out, & ! threshold for brine pocket treatment salt_loss_out, & ! fraction of salt retained in zsalinity + Tliquidus_max_out, & ! maximum liquidus temperature of mush (C) dSin0_frazil_out ! bulk salinity reduction of newly formed frazil integer (kind=int_kind), intent(out), optional :: & @@ -1662,6 +1668,7 @@ subroutine icepack_query_parameters( & if (present(phi_init_out) ) phi_init_out = phi_init if (present(min_salin_out) ) min_salin_out = min_salin if (present(salt_loss_out) ) salt_loss_out = salt_loss + if (present(Tliquidus_max_out) ) Tliquidus_max_out= Tliquidus_max if (present(min_bgc_out) ) min_bgc_out = min_bgc if (present(dSin0_frazil_out) ) dSin0_frazil_out = dSin0_frazil if (present(hi_ssl_out) ) hi_ssl_out = hi_ssl @@ -1861,6 +1868,7 @@ subroutine icepack_write_parameters(iounit) write(iounit,*) " phi_init = ",phi_init write(iounit,*) " min_salin = ",min_salin write(iounit,*) " salt_loss = ",salt_loss + write(iounit,*) " Tliquidus_max = ",Tliquidus_max write(iounit,*) " min_bgc = ",min_bgc write(iounit,*) " dSin0_frazil = ",dSin0_frazil write(iounit,*) " hi_ssl = ",hi_ssl diff --git a/columnphysics/icepack_therm_itd.F90 b/columnphysics/icepack_therm_itd.F90 index 7a701916b..8b7ca215e 100644 --- a/columnphysics/icepack_therm_itd.F90 +++ b/columnphysics/icepack_therm_itd.F90 @@ -24,6 +24,7 @@ module icepack_therm_itd use icepack_parameters, only: p001, p1, p333, p5, p666, puny, bignum use icepack_parameters, only: rhos, rhoi, Lfresh, ice_ref_salinity use icepack_parameters, only: phi_init, dsin0_frazil, hs_ssl, salt_loss + use icepack_parameters, only: Tliquidus_max use icepack_parameters, only: rhosi, conserv_check, rhosmin #ifdef UNDEPRECATE_0LAYER use icepack_parameters, only: kitd, ktherm, heat_capacity @@ -1038,7 +1039,7 @@ subroutine lateral_melt (dt, ncat, & else Si0 = sss**2 / (c4*dSin0_frazil) endif - Ti = min(liquidus_temperature_mush(Si0/phi_init), -p1) + Ti = min(liquidus_temperature_mush(Si0/phi_init), Tliquidus_max) qi0 = enthalpy_mush(Ti, Si0) do n = 1, ncat @@ -1569,7 +1570,7 @@ subroutine add_new_ice (ncat, nilyr, & do k = 1, nilyr Sprofile(k) = Si0new enddo - Ti = min(liquidus_temperature_mush(Si0new/phi_init), -p1) + Ti = min(liquidus_temperature_mush(Si0new/phi_init), Tliquidus_max) qi0new = enthalpy_mush(Ti, Si0new) else do k = 1, nilyr diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90 index 8d64a769e..cb245c1bf 100644 --- a/configuration/driver/icedrv_init.F90 +++ b/configuration/driver/icedrv_init.F90 @@ -88,7 +88,7 @@ subroutine input_data character (len=char_len), dimension(4) :: nx_names_default real (kind=dbl_kind) :: ustar_min, albicev, albicei, albsnowv, albsnowi, & - ahmax, R_ice, R_pnd, R_snw, dT_mlt, rsnw_mlt, ksno, & + ahmax, R_ice, R_pnd, R_snw, dT_mlt, rsnw_mlt, ksno, Tliquidus_max, & mu_rdg, hs0, dpscale, rfracmin, rfracmax, pndaspect, hs1, hp1, & a_rapid_mode, Rac_rapid_mode, aspect_rapid_mode, dSdt_slow_mode, & phi_c_slow_mode, phi_i_mushy, kalg, emissivity, floediam, hfrazilmin, & @@ -150,7 +150,7 @@ subroutine input_data kitd, ktherm, ksno, conduct, & a_rapid_mode, Rac_rapid_mode, aspect_rapid_mode, & dSdt_slow_mode, phi_c_slow_mode, phi_i_mushy, & - floediam, hfrazilmin + floediam, hfrazilmin, Tliquidus_max namelist /dynamics_nml/ & kstrength, krdg_partic, krdg_redist, mu_rdg, & @@ -227,7 +227,7 @@ subroutine input_data Rac_rapid_mode_out=Rac_rapid_mode, & aspect_rapid_mode_out=aspect_rapid_mode, & dSdt_slow_mode_out=dSdt_slow_mode, & - phi_c_slow_mode_out=phi_c_slow_mode, & + phi_c_slow_mode_out=phi_c_slow_mode, Tliquidus_max_out=Tliquidus_max, & phi_i_mushy_out=phi_i_mushy, conserv_check_out=conserv_check, & tfrz_option_out=tfrz_option, kalg_out=kalg, & fbot_xfer_type_out=fbot_xfer_type, puny_out=puny, & @@ -759,6 +759,7 @@ subroutine input_data write(nu_diag,1005) ' dSdt_slow_mode = ', dSdt_slow_mode write(nu_diag,1005) ' phi_c_slow_mode = ', phi_c_slow_mode write(nu_diag,1005) ' phi_i_mushy = ', phi_i_mushy + write(nu_diag,1005) ' Tliquidus_max = ', Tliquidus_max endif write(nu_diag,1030) ' atmbndy = ', trim(atmbndy) @@ -975,7 +976,7 @@ subroutine input_data Rac_rapid_mode_in=Rac_rapid_mode, & aspect_rapid_mode_in=aspect_rapid_mode, & dSdt_slow_mode_in=dSdt_slow_mode, & - phi_c_slow_mode_in=phi_c_slow_mode, & + phi_c_slow_mode_in=phi_c_slow_mode, Tliquidus_max_in=Tliquidus_max, & phi_i_mushy_in=phi_i_mushy, conserv_check_in=conserv_check, & tfrz_option_in=tfrz_option, kalg_in=kalg, & fbot_xfer_type_in=fbot_xfer_type, & diff --git a/configuration/scripts/icepack_in b/configuration/scripts/icepack_in index 85489f982..1f08a2eeb 100644 --- a/configuration/scripts/icepack_in +++ b/configuration/scripts/icepack_in @@ -45,6 +45,7 @@ dSdt_slow_mode = -5.0e-8 phi_c_slow_mode = 0.05 phi_i_mushy = 0.85 + Tliquidus_max = -0.1d0 floediam = 300.0d0 hfrazilmin = 0.05d0 / diff --git a/doc/source/icepack_index.rst b/doc/source/icepack_index.rst index 3ee34f5fd..6a23af8ef 100755 --- a/doc/source/icepack_index.rst +++ b/doc/source/icepack_index.rst @@ -462,6 +462,7 @@ either Celsius or Kelvin units). "time_forc", "time of last forcing update", "s" "Timelt", "melting temperature of ice top surface", "0. C" "TLAT", "latitude of cell center", "radians" + "Tliquidus_max", "maximum liquidus temperature of mush", "0. C" "TLON", "longitude of cell center", "radians" "tmask", "land/boundary mask, thickness (T-cell)", "" "tmass", "total mass of ice and snow", "kg/m\ :math:`^2`" diff --git a/doc/source/user_guide/ug_case_settings.rst b/doc/source/user_guide/ug_case_settings.rst index a3de5081d..d632a54e5 100755 --- a/doc/source/user_guide/ug_case_settings.rst +++ b/doc/source/user_guide/ug_case_settings.rst @@ -218,6 +218,7 @@ thermo_nml "``phi_c_slow_mode``", ":math:`0<\phi_c < 1`", "critical liquid fraction", "0.05" "``phi_i_mushy``", ":math:`0<\phi_i < 1`", "solid fraction at lower boundary", "0.85" "``Rac_rapid_mode``", "real", "critical Rayleigh number", "10.0" + "``Tliquidus_max``", "real", "maximum liquidus temperature of mush (C)", "0.0" "", "", "", "" .. From e4d987ef4a13ba78c2e411649d83172fdc5f3658 Mon Sep 17 00:00:00 2001 From: apcraig Date: Tue, 25 Oct 2022 11:35:20 -0600 Subject: [PATCH 56/64] Modifications for bit-for-bit with current main in CICE - Add "_old" tfrz_options to recover bit-for-bit for some cases - Move hi_min namelist from forcing_nml to tracer_nml --- columnphysics/icepack_therm_shared.F90 | 6 +++--- columnphysics/icepack_tracers.F90 | 15 +++++++++++++-- configuration/driver/icedrv_init.F90 | 4 ++-- configuration/scripts/icepack_in | 2 +- doc/source/user_guide/ug_case_settings.rst | 2 +- 5 files changed, 20 insertions(+), 9 deletions(-) diff --git a/columnphysics/icepack_therm_shared.F90 b/columnphysics/icepack_therm_shared.F90 index 02ed6cc51..8de078143 100644 --- a/columnphysics/icepack_therm_shared.F90 +++ b/columnphysics/icepack_therm_shared.F90 @@ -396,15 +396,15 @@ function icepack_sea_freezing_temperature(sss) result(Tf) character(len=*),parameter :: subname='(icepack_sea_freezing_temperature)' - if (trim(tfrz_option) == 'mushy') then + if (trim(tfrz_option(1:5)) == 'mushy') then Tf = icepack_liquidus_temperature(sss) ! deg C - elseif (trim(tfrz_option) == 'linear_salt') then + elseif (trim(tfrz_option(1:11)) == 'linear_salt') then Tf = -depressT * sss ! deg C - elseif (trim(tfrz_option) == 'constant') then + elseif (trim(tfrz_option(1:8)) == 'constant') then Tf = Tocnfrz diff --git a/columnphysics/icepack_tracers.F90 b/columnphysics/icepack_tracers.F90 index 682c26548..75f4e3737 100644 --- a/columnphysics/icepack_tracers.F90 +++ b/columnphysics/icepack_tracers.F90 @@ -7,7 +7,7 @@ module icepack_tracers use icepack_kinds - use icepack_parameters, only: c0, c1, puny, rhos, rsnw_fall + use icepack_parameters, only: c0, c1, puny, rhos, rsnw_fall, Tocnfrz, tfrz_option use icepack_warnings, only: warnstr, icepack_warnings_add use icepack_warnings, only: icepack_warnings_setabort, icepack_warnings_aborted @@ -1289,7 +1289,18 @@ subroutine icepack_compute_tracers (ntrcr, trcr_depend, & trcrn(it) = atrcrn(it) / aicen else trcrn(it) = c0 - if (it == nt_Tsfc) trcrn(it) = Tf ! surface temperature + if (it == nt_Tsfc) then +! tcraig, these old options should be deprecated +! exist for bit-for-bit backwards compatibility in testing + if (tfrz_option == "mushy_old" .or. & + tfrz_option == "linear_salt_old" .or. & + tfrz_option == "constant_old" .or. & + tfrz_option == "minus1p8_old") then + trcrn(it) = Tocnfrz ! surface temperature + else + trcrn(it) = Tf ! surface temperature + endif + endif endif else diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90 index 616759033..3b65e9a26 100644 --- a/configuration/driver/icedrv_init.F90 +++ b/configuration/driver/icedrv_init.F90 @@ -150,7 +150,7 @@ subroutine input_data kitd, ktherm, ksno, conduct, & a_rapid_mode, Rac_rapid_mode, aspect_rapid_mode, & dSdt_slow_mode, phi_c_slow_mode, phi_i_mushy, & - floediam, hfrazilmin, Tliquidus_max + floediam, hfrazilmin, Tliquidus_max, hi_min namelist /dynamics_nml/ & kstrength, krdg_partic, krdg_redist, mu_rdg, & @@ -177,7 +177,7 @@ subroutine input_data update_ocn_f, l_mpond_fresh, ustar_min, & fbot_xfer_type, oceanmixed_ice, emissivity, & formdrag, highfreq, natmiter, & - atmiter_conv, calc_dragio, hi_min, & + atmiter_conv, calc_dragio, & tfrz_option, default_season, wave_spec_type, & precip_units, fyear_init, ycycle, & atm_data_type, ocn_data_type, bgc_data_type, & diff --git a/configuration/scripts/icepack_in b/configuration/scripts/icepack_in index 5a130e65d..387804ef2 100644 --- a/configuration/scripts/icepack_in +++ b/configuration/scripts/icepack_in @@ -37,6 +37,7 @@ &thermo_nml kitd = 1 ktherm = 2 + hi_min = 0.01 ksno = 0.3d0 conduct = 'bubbly' a_rapid_mode = 0.5e-3 @@ -105,7 +106,6 @@ natmiter = 5 atmiter_conv = 0.0d0 ustar_min = 0.0005 - hi_min = 0.01 calc_dragio = .false. emissivity = 0.985 fbot_xfer_type = 'constant' diff --git a/doc/source/user_guide/ug_case_settings.rst b/doc/source/user_guide/ug_case_settings.rst index d46319687..33eae1e9d 100755 --- a/doc/source/user_guide/ug_case_settings.rst +++ b/doc/source/user_guide/ug_case_settings.rst @@ -209,6 +209,7 @@ thermo_nml "``dSdt_slow_mode``", "real", "slow drainage strength parameter m/s/K", "-1.5e-7" "``floediam``", "real", "effective floe diameter for lateral melt in m", "300.0" "``hfrazilmin``", "real", "min thickness of new frazil ice in m", "0.05" + "``hi_min``", "real", "minimum ice thickness allowed for thermo in m", "0.01" "``kitd``", "``0``", "delta function ITD approximation", "1" "", "``1``", "linear remapping ITD approximation", "" "``ksno``", "real", "snow thermal conductivity", "0.3" @@ -355,7 +356,6 @@ forcing_nml "``formdrag``", "logical", "calculate form drag", "``.false.``" "``fyear_init``", "integer", "first year of atmospheric forcing data", "1998" "``highfreq``", "logical", "high-frequency atmo coupling", "``.false.``" - "``hi_min``", "real", "minimum ice thickness allowed for thermo in m", "0.01" "``ice_data_file``", "string", "file containing ice opening, closing data", "' '" "``l_mpond_fresh``", "``.false.``", "release pond water immediately to ocean", "``.false.``" "", "``true``", "retain (topo) pond water until ponds drain", "" From 64a27d3f140fcdbb809590b58096af721db3fcb7 Mon Sep 17 00:00:00 2001 From: apcraig Date: Fri, 18 Nov 2022 12:18:08 -0700 Subject: [PATCH 57/64] Remove redundancy in public declaration --- columnphysics/icepack_warnings.F90 | 1 - 1 file changed, 1 deletion(-) diff --git a/columnphysics/icepack_warnings.F90 b/columnphysics/icepack_warnings.F90 index f59e6b24a..36adb6721 100644 --- a/columnphysics/icepack_warnings.F90 +++ b/columnphysics/icepack_warnings.F90 @@ -19,7 +19,6 @@ module icepack_warnings character(len=char_len_long), public :: warnstr public :: & - icepack_warnings_getall, & icepack_warnings_clear, & icepack_warnings_print, & icepack_warnings_flush, & From 894464623890a64c317117e622c1e0c430586d01 Mon Sep 17 00:00:00 2001 From: apcraig Date: Fri, 18 Nov 2022 16:00:16 -0700 Subject: [PATCH 58/64] recover main bit-for-bit --- configuration/scripts/options/set_nml.alt03 | 2 +- configuration/scripts/options/set_nml.alt04 | 2 +- configuration/scripts/options/set_nml.bgcispol | 1 + configuration/scripts/options/set_nml.bgcnice | 1 + configuration/scripts/options/set_nml.bgcsklnice | 1 + configuration/scripts/options/set_nml.fsd12 | 1 + configuration/scripts/options/set_nml.leap | 1 + configuration/scripts/options/set_nml.modal | 2 ++ 8 files changed, 9 insertions(+), 2 deletions(-) diff --git a/configuration/scripts/options/set_nml.alt03 b/configuration/scripts/options/set_nml.alt03 index 3fa70399f..bd51c8561 100644 --- a/configuration/scripts/options/set_nml.alt03 +++ b/configuration/scripts/options/set_nml.alt03 @@ -5,7 +5,7 @@ sw_redist = .true. sw_frac = 0.9d0 sw_dtemp = 0.02d0 - tfrz_option = 'linear_salt' + tfrz_option = 'linear_salt_old' conduct = 'bubbly' conserv_check = .true. restore_ocn = .true. diff --git a/configuration/scripts/options/set_nml.alt04 b/configuration/scripts/options/set_nml.alt04 index 8986e13ff..ba5a54670 100644 --- a/configuration/scripts/options/set_nml.alt04 +++ b/configuration/scripts/options/set_nml.alt04 @@ -8,7 +8,7 @@ sw_redist = .true. sw_frac = 0.9d0 sw_dtemp = 0.02d0 - tfrz_option = 'linear_salt' + tfrz_option = 'linear_salt_old' conduct = 'bubbly' krdg_partic = 0 krdg_redist = 0 diff --git a/configuration/scripts/options/set_nml.bgcispol b/configuration/scripts/options/set_nml.bgcispol index f1a40b1a3..8c530fd2f 100644 --- a/configuration/scripts/options/set_nml.bgcispol +++ b/configuration/scripts/options/set_nml.bgcispol @@ -24,3 +24,4 @@ tr_bgc_hum = .true. tr_bgc_DON = .true. tr_bgc_Fe = .false. + tfrz_option = 'mushy_old' diff --git a/configuration/scripts/options/set_nml.bgcnice b/configuration/scripts/options/set_nml.bgcnice index c9cd9f0fd..5062b1699 100644 --- a/configuration/scripts/options/set_nml.bgcnice +++ b/configuration/scripts/options/set_nml.bgcnice @@ -24,3 +24,4 @@ tr_bgc_hum = .true. tr_bgc_DON = .true. tr_bgc_Fe = .true. + tfrz_option = 'mushy_old' diff --git a/configuration/scripts/options/set_nml.bgcsklnice b/configuration/scripts/options/set_nml.bgcsklnice index 7d7fbaeb7..ef3fb435f 100644 --- a/configuration/scripts/options/set_nml.bgcsklnice +++ b/configuration/scripts/options/set_nml.bgcsklnice @@ -22,3 +22,4 @@ year_init = 2015 tr_bgc_hum = .true. tr_bgc_DON = .true. tr_bgc_Fe = .true. + tfrz_option = 'mushy_old' diff --git a/configuration/scripts/options/set_nml.fsd12 b/configuration/scripts/options/set_nml.fsd12 index f3534b8ce..1692e95b2 100644 --- a/configuration/scripts/options/set_nml.fsd12 +++ b/configuration/scripts/options/set_nml.fsd12 @@ -1,2 +1,3 @@ tr_fsd = .true. wave_spec_type = 'constant' +tfrz_option = 'mushy_old' diff --git a/configuration/scripts/options/set_nml.leap b/configuration/scripts/options/set_nml.leap index 71af9479a..4802b6eea 100644 --- a/configuration/scripts/options/set_nml.leap +++ b/configuration/scripts/options/set_nml.leap @@ -1,2 +1,3 @@ days_per_year = 365 use_leap_years = .true. +tfrz_option = 'mushy_old' diff --git a/configuration/scripts/options/set_nml.modal b/configuration/scripts/options/set_nml.modal index 61ba0c055..22e670ca6 100644 --- a/configuration/scripts/options/set_nml.modal +++ b/configuration/scripts/options/set_nml.modal @@ -5,3 +5,5 @@ tr_aero = .true. modal_aero = .true. rfracmin = 0.15 rfracmax = 1.0 +tfrz_option = 'mushy_old' + From ae5a4ef0d76521dcb626ea5da7f8aec47957397b Mon Sep 17 00:00:00 2001 From: apcraig Date: Fri, 18 Nov 2022 18:31:47 -0700 Subject: [PATCH 59/64] update tfrz_option --- configuration/scripts/options/set_nml.thermo1 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/configuration/scripts/options/set_nml.thermo1 b/configuration/scripts/options/set_nml.thermo1 index 4ed48a77a..e1c3c2aac 100644 --- a/configuration/scripts/options/set_nml.thermo1 +++ b/configuration/scripts/options/set_nml.thermo1 @@ -6,5 +6,5 @@ sw_redist = .true. sw_frac = 0.9d0 sw_dtemp = 0.02d0 conduct = 'MU71' -tfrz_option = 'linear_salt' +tfrz_option = 'linear_salt_old' atm_data_type = 'clim' From dd48a389debba399d0040e1b7328bd5e9f4944af Mon Sep 17 00:00:00 2001 From: apcraig Date: Sun, 20 Aug 2023 09:39:02 -0600 Subject: [PATCH 60/64] clean up merge --- columnphysics/icepack_itd.F90 | 4 ++-- columnphysics/icepack_tracers.F90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/columnphysics/icepack_itd.F90 b/columnphysics/icepack_itd.F90 index 2909ce7e5..f6f042106 100644 --- a/columnphysics/icepack_itd.F90 +++ b/columnphysics/icepack_itd.F90 @@ -33,9 +33,9 @@ module icepack_itd use icepack_tracers, only: nt_apnd, nt_hpnd, nt_fbri, tr_brine, nt_bgc_S, bio_index use icepack_tracers, only: n_iso, tr_iso, nt_smice, nt_rsnw, nt_rhos, nt_sice use icepack_tracers, only: icepack_compute_tracers - use icepack_parameters, only: solve_zsal, skl_bgc, z_tracers + use icepack_parameters, only: solve_zsal, skl_bgc, z_tracers, hi_min use icepack_parameters, only: kcatbound, kitd, saltflux_option, snwgrain, snwredist - use icepack_therm_shared, only: Tmin, hi_min + use icepack_therm_shared, only: Tmin use icepack_warnings, only: warnstr, icepack_warnings_add use icepack_warnings, only: icepack_warnings_setabort, icepack_warnings_aborted use icepack_zbgc_shared,only: zap_small_bgc diff --git a/columnphysics/icepack_tracers.F90 b/columnphysics/icepack_tracers.F90 index 867272648..e483a70ac 100644 --- a/columnphysics/icepack_tracers.F90 +++ b/columnphysics/icepack_tracers.F90 @@ -7,7 +7,7 @@ module icepack_tracers use icepack_kinds - use icepack_parameters, only: c0, c1, puny, rhos, rsnw_fall, rsnwnew, Tocnfrz, tfrz_option + use icepack_parameters, only: c0, c1, puny, rhos, rsnw_fall, rhosnew, Tocnfrz, tfrz_option use icepack_parameters, only: snwredist, snwgrain use icepack_warnings, only: warnstr, icepack_warnings_add use icepack_warnings, only: icepack_warnings_setabort, icepack_warnings_aborted From baaa3f4f9c3242412b12499029b25fec6bdd3714 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Mon, 25 Sep 2023 13:39:18 -0500 Subject: [PATCH 61/64] bring some mushy functions into icepack interface --- columnphysics/icepack_mushy_physics.F90 | 8 ++++---- columnphysics/icepack_therm_itd.F90 | 4 ++-- columnphysics/icepack_therm_shared.F90 | 4 ++-- columnphysics/icepack_therm_vertical.F90 | 4 ++-- 4 files changed, 10 insertions(+), 10 deletions(-) diff --git a/columnphysics/icepack_mushy_physics.F90 b/columnphysics/icepack_mushy_physics.F90 index 466c5d727..3f572e7cd 100644 --- a/columnphysics/icepack_mushy_physics.F90 +++ b/columnphysics/icepack_mushy_physics.F90 @@ -16,7 +16,7 @@ module icepack_mushy_physics conductivity_snow_array, & enthalpy_snow, & enthalpy_brine, & - enthalpy_mush, & + icepack_enthalpy_mush, & enthalpy_mush_liquid_fraction, & enthalpy_of_melting, & temperature_snow, & @@ -262,7 +262,7 @@ end function liquidus_temperature_mush !======================================================================= ! Enthalpy of mush from mush temperature and bulk salinity - function enthalpy_mush(zTin, zSin) result(zqin) + function icepack_enthalpy_mush(zTin, zSin) result(zqin) real(kind=dbl_kind), intent(in) :: & zTin, & ! ice layer temperature (C) @@ -274,14 +274,14 @@ function enthalpy_mush(zTin, zSin) result(zqin) real(kind=dbl_kind) :: & phi ! ice liquid fraction - character(len=*),parameter :: subname='(enthalpy_mush)' + character(len=*),parameter :: subname='(icepack_enthalpy_mush)' phi = icepack_mushy_liquid_fraction(zTin, zSin) zqin = phi * (cp_ocn * rhow - cp_ice * rhoi) * zTin + & rhoi * cp_ice * zTin - (c1 - phi) * rhoi * Lfresh - end function enthalpy_mush + end function icepack_enthalpy_mush !======================================================================= ! Enthalpy of mush from mush temperature and liquid fraction diff --git a/columnphysics/icepack_therm_itd.F90 b/columnphysics/icepack_therm_itd.F90 index e43e0c08e..b6048dbce 100644 --- a/columnphysics/icepack_therm_itd.F90 +++ b/columnphysics/icepack_therm_itd.F90 @@ -49,7 +49,7 @@ module icepack_therm_itd use icepack_itd, only: aggregate_area, shift_ice use icepack_itd, only: column_sum, column_conservation_check use icepack_isotope, only: isoice_alpha, isotope_frac_method - use icepack_mushy_physics, only: liquidus_temperature_mush, enthalpy_mush + use icepack_mushy_physics, only: liquidus_temperature_mush, icepack_enthalpy_mush use icepack_zbgc, only: add_new_ice_bgc use icepack_zbgc, only: lateral_melt_bgc @@ -1579,7 +1579,7 @@ subroutine add_new_ice (ncat, nilyr, & Sprofile(k) = Si0new enddo Ti = min(liquidus_temperature_mush(Si0new/phi_init), Tliquidus_max) - qi0new = enthalpy_mush(Ti, Si0new) + qi0new = icepack_enthalpy_mush(Ti, Si0new) else do k = 1, nilyr Sprofile(k) = salinz(k) diff --git a/columnphysics/icepack_therm_shared.F90 b/columnphysics/icepack_therm_shared.F90 index 8a53a7665..47c29ce86 100644 --- a/columnphysics/icepack_therm_shared.F90 +++ b/columnphysics/icepack_therm_shared.F90 @@ -17,7 +17,7 @@ module icepack_therm_shared use icepack_warnings, only: warnstr, icepack_warnings_add use icepack_warnings, only: icepack_warnings_setabort, icepack_warnings_aborted - use icepack_mushy_physics, only: enthalpy_mush + use icepack_mushy_physics, only: icepack_enthalpy_mush use icepack_mushy_physics, only: temperature_snow use icepack_mushy_physics, only: enthalpy_snow use icepack_mushy_physics, only: icepack_mushy_temperature_mush @@ -317,7 +317,7 @@ subroutine icepack_init_trcr(Tair, Tf, & Ti = Tsfc + slope*(real(k,kind=dbl_kind)-p5) & /real(nilyr,kind=dbl_kind) if (ktherm == 2) then - qin(k) = enthalpy_mush(Ti, Sprofile(k)) + qin(k) = icepack_enthalpy_mush(Ti, Sprofile(k)) else qin(k) = -(rhoi * (cp_ice*(Tprofile(k)-Ti) & + Lfresh*(c1-Tprofile(k)/Ti) - cp_ocn*Tprofile(k))) diff --git a/columnphysics/icepack_therm_vertical.F90 b/columnphysics/icepack_therm_vertical.F90 index 59e18f89f..2d0c20cea 100644 --- a/columnphysics/icepack_therm_vertical.F90 +++ b/columnphysics/icepack_therm_vertical.F90 @@ -45,7 +45,7 @@ module icepack_therm_vertical use icepack_mushy_physics, only: icepack_mushy_temperature_mush use icepack_mushy_physics, only: liquidus_temperature_mush - use icepack_mushy_physics, only: enthalpy_mush, enthalpy_of_melting + use icepack_mushy_physics, only: icepack_enthalpy_mush, enthalpy_of_melting use icepack_aerosol, only: update_aerosol use icepack_isotope, only: update_isotope @@ -1257,7 +1257,7 @@ subroutine thickness_changes (nilyr, nslyr, & if (ktherm == 2) then - qbotm = enthalpy_mush(Tbot, sss) + qbotm = icepack_enthalpy_mush(Tbot, sss) qbotp = -Lfresh * rhoi * (c1 - phi_i_mushy) qbot0 = qbotm - qbotp From 1f0b307fa3d171f1ccf1af7ad4708771ae5e5eaf Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Mon, 25 Sep 2023 17:51:25 -0500 Subject: [PATCH 62/64] elevate snow/mush enthalpy and salinity profile to interface --- columnphysics/icepack_intfc.F90 | 4 +- columnphysics/icepack_mushy_physics.F90 | 8 ++-- columnphysics/icepack_therm_mushy.F90 | 4 +- columnphysics/icepack_therm_shared.F90 | 54 ++++++++++++++----------- 4 files changed, 39 insertions(+), 31 deletions(-) diff --git a/columnphysics/icepack_intfc.F90 b/columnphysics/icepack_intfc.F90 index d76be4ff8..0d8be0b31 100644 --- a/columnphysics/icepack_intfc.F90 +++ b/columnphysics/icepack_intfc.F90 @@ -112,10 +112,12 @@ module icepack_intfc use icepack_therm_shared , only: icepack_snow_temperature use icepack_therm_shared , only: icepack_liquidus_temperature use icepack_therm_shared , only: icepack_sea_freezing_temperature - use icepack_therm_shared , only: icepack_enthalpy_snow use icepack_therm_shared , only: icepack_init_thermo + use icepack_therm_shared , only: icepack_salinity_profile use icepack_therm_shared , only: icepack_init_trcr + use icepack_mushy_physics , only: icepack_enthalpy_snow + use icepack_mushy_physics , only: icepack_enthalpy_mush use icepack_mushy_physics , only: icepack_mushy_density_brine use icepack_mushy_physics , only: icepack_mushy_liquid_fraction use icepack_mushy_physics , only: icepack_mushy_temperature_mush diff --git a/columnphysics/icepack_mushy_physics.F90 b/columnphysics/icepack_mushy_physics.F90 index 3f572e7cd..03700d56c 100644 --- a/columnphysics/icepack_mushy_physics.F90 +++ b/columnphysics/icepack_mushy_physics.F90 @@ -14,7 +14,7 @@ module icepack_mushy_physics public :: & conductivity_mush_array, & conductivity_snow_array, & - enthalpy_snow, & + icepack_enthalpy_snow, & enthalpy_brine, & icepack_enthalpy_mush, & enthalpy_mush_liquid_fraction, & @@ -143,7 +143,7 @@ end subroutine conductivity_snow_array !======================================================================= ! Enthalpy of snow from snow temperature - function enthalpy_snow(zTsn) result(zqsn) + function icepack_enthalpy_snow(zTsn) result(zqsn) real(kind=dbl_kind), intent(in) :: & zTsn ! snow layer temperature (C) @@ -151,11 +151,11 @@ function enthalpy_snow(zTsn) result(zqsn) real(kind=dbl_kind) :: & zqsn ! snow layer enthalpy (J m-3) - character(len=*),parameter :: subname='(enthalpy_snow)' + character(len=*),parameter :: subname='(icepack_enthalpy_snow)' zqsn = -rhos * (-cp_ice * zTsn + Lfresh) - end function enthalpy_snow + end function icepack_enthalpy_snow !======================================================================= ! Temperature of snow from the snow enthalpy diff --git a/columnphysics/icepack_therm_mushy.F90 b/columnphysics/icepack_therm_mushy.F90 index 999c92af7..e182e7db2 100644 --- a/columnphysics/icepack_therm_mushy.F90 +++ b/columnphysics/icepack_therm_mushy.F90 @@ -10,7 +10,7 @@ module icepack_therm_mushy use icepack_parameters, only: a_rapid_mode, Rac_rapid_mode use icepack_parameters, only: aspect_rapid_mode, dSdt_slow_mode, phi_c_slow_mode use icepack_parameters, only: sw_redist, sw_frac, sw_dtemp - use icepack_mushy_physics, only: icepack_mushy_density_brine, enthalpy_brine, enthalpy_snow + use icepack_mushy_physics, only: icepack_mushy_density_brine, enthalpy_brine, icepack_enthalpy_snow use icepack_mushy_physics, only: enthalpy_mush_liquid_fraction use icepack_mushy_physics, only: icepack_mushy_temperature_mush, icepack_mushy_liquid_fraction use icepack_mushy_physics, only: temperature_snow, temperature_mush_liquid_fraction @@ -1802,7 +1802,7 @@ subroutine picard_final(lsnow, & if (lsnow) then do k = 1, nslyr - zqsn(k) = enthalpy_snow(zTsn(k)) + zqsn(k) = icepack_enthalpy_snow(zTsn(k)) enddo ! k endif ! lsnow diff --git a/columnphysics/icepack_therm_shared.F90 b/columnphysics/icepack_therm_shared.F90 index 47c29ce86..b3a752f1b 100644 --- a/columnphysics/icepack_therm_shared.F90 +++ b/columnphysics/icepack_therm_shared.F90 @@ -19,7 +19,6 @@ module icepack_therm_shared use icepack_mushy_physics, only: icepack_enthalpy_mush use icepack_mushy_physics, only: temperature_snow - use icepack_mushy_physics, only: enthalpy_snow use icepack_mushy_physics, only: icepack_mushy_temperature_mush use icepack_mushy_physics, only: liquidus_temperature_mush @@ -30,12 +29,12 @@ module icepack_therm_shared surface_heat_flux, & dsurface_heat_flux_dTsf, & icepack_init_thermo, & + icepack_salinity_profile, & icepack_init_trcr, & icepack_ice_temperature, & icepack_snow_temperature, & icepack_liquidus_temperature, & icepack_sea_freezing_temperature, & - icepack_enthalpy_snow, & adjust_enthalpy real (kind=dbl_kind), parameter, public :: & @@ -226,10 +225,6 @@ subroutine icepack_init_thermo(nilyr, sprofile) !autodocument_end - real (kind=dbl_kind), parameter :: & - nsal = 0.407_dbl_kind, & - msal = 0.573_dbl_kind - integer (kind=int_kind) :: k ! ice layer index real (kind=dbl_kind) :: zn ! normalized ice thickness @@ -254,7 +249,8 @@ subroutine icepack_init_thermo(nilyr, sprofile) do k = 1, nilyr zn = (real(k,kind=dbl_kind)-p5) / & real(nilyr,kind=dbl_kind) - sprofile(k)=(saltmax/c2)*(c1-cos(pi*zn**(nsal/(msal+zn)))) +! sprofile(k)=(saltmax/c2)*(c1-cos(pi*zn**(nsal/(msal+zn)))) + sprofile(k)=icepack_salinity_profile(zn) sprofile(k) = max(sprofile(k), min_salin) enddo ! k sprofile(nilyr+1) = saltmax @@ -267,6 +263,33 @@ subroutine icepack_init_thermo(nilyr, sprofile) end subroutine icepack_init_thermo +!======================================================================= +!autodocument_start icepack_salinity_profile +! Initial salinity profile +! +! authors: C. M. Bitz, UW +! William H. Lipscomb, LANL + + function icepack_salinity_profile(zn) result(salinity) + + real(kind=dbl_kind), intent(in) :: & + zn ! depth + + real(kind=dbl_kind) :: & + salinity ! initial salinity profile + +!autodocument end + + real (kind=dbl_kind), parameter :: & + nsal = 0.407_dbl_kind, & + msal = 0.573_dbl_kind + + character(len=*),parameter :: subname='(icepack_init_thermo)' + + salinity = (saltmax/c2)*(c1-cos(pi*zn**(nsal/(msal+zn)))) + + end function icepack_salinity_profile + !======================================================================= !autodocument_start icepack_init_trcr ! @@ -443,23 +466,6 @@ function icepack_snow_temperature(qin) result(Tsn) end function icepack_snow_temperature -!======================================================================= -!autodocument_start icepack_enthalpy_snow -! compute snow enthalpy - - function icepack_enthalpy_snow(zTsn) result(qsn) - - real(kind=dbl_kind), intent(in) :: zTsn - real(kind=dbl_kind) :: qsn - -!autodocument_end - - character(len=*),parameter :: subname='(icepack_enthalpy_snow)' - - qsn = enthalpy_snow(zTsn) - - end function icepack_enthalpy_snow - !======================================================================= ! ! Conserving energy, compute the new enthalpy of equal-thickness ice From 636fcbff93a87923327e0121fbea5e542aa38703 Mon Sep 17 00:00:00 2001 From: apcraig Date: Wed, 27 Sep 2023 12:07:28 -0600 Subject: [PATCH 63/64] Update documentation --- columnphysics/icepack_mushy_physics.F90 | 6 + columnphysics/icepack_therm_shared.F90 | 2 +- columnphysics/icepack_warnings.F90 | 4 + doc/source/user_guide/interfaces.include | 241 +++++++++++++++-------- doc/source/user_guide/ug_testing.rst | 2 + 5 files changed, 167 insertions(+), 88 deletions(-) diff --git a/columnphysics/icepack_mushy_physics.F90 b/columnphysics/icepack_mushy_physics.F90 index 03700d56c..8ab819768 100644 --- a/columnphysics/icepack_mushy_physics.F90 +++ b/columnphysics/icepack_mushy_physics.F90 @@ -141,6 +141,7 @@ subroutine conductivity_snow_array(ks) end subroutine conductivity_snow_array !======================================================================= +!autodocument_start icepack_enthalpy_snow ! Enthalpy of snow from snow temperature function icepack_enthalpy_snow(zTsn) result(zqsn) @@ -151,6 +152,8 @@ function icepack_enthalpy_snow(zTsn) result(zqsn) real(kind=dbl_kind) :: & zqsn ! snow layer enthalpy (J m-3) +!autodocument_end + character(len=*),parameter :: subname='(icepack_enthalpy_snow)' zqsn = -rhos * (-cp_ice * zTsn + Lfresh) @@ -260,6 +263,7 @@ function liquidus_temperature_mush(Sbr) result(zTin) end function liquidus_temperature_mush !======================================================================= +!autodocument_start icepack_enthalpy_mush ! Enthalpy of mush from mush temperature and bulk salinity function icepack_enthalpy_mush(zTin, zSin) result(zqin) @@ -271,6 +275,8 @@ function icepack_enthalpy_mush(zTin, zSin) result(zqin) real(kind=dbl_kind) :: & zqin ! ice layer enthalpy (J m-3) +!autodocument_end + real(kind=dbl_kind) :: & phi ! ice liquid fraction diff --git a/columnphysics/icepack_therm_shared.F90 b/columnphysics/icepack_therm_shared.F90 index b3a752f1b..32fa2ae96 100644 --- a/columnphysics/icepack_therm_shared.F90 +++ b/columnphysics/icepack_therm_shared.F90 @@ -278,7 +278,7 @@ function icepack_salinity_profile(zn) result(salinity) real(kind=dbl_kind) :: & salinity ! initial salinity profile -!autodocument end +!autodocument_end real (kind=dbl_kind), parameter :: & nsal = 0.407_dbl_kind, & diff --git a/columnphysics/icepack_warnings.F90 b/columnphysics/icepack_warnings.F90 index 36adb6721..459f2dc80 100644 --- a/columnphysics/icepack_warnings.F90 +++ b/columnphysics/icepack_warnings.F90 @@ -92,12 +92,16 @@ subroutine icepack_warnings_clear() end subroutine icepack_warnings_clear !======================================================================= +!autodocument_start icepack_warnings_clear +! return an array of all the current warning messages subroutine icepack_warnings_getall(warningsOut) character(len=char_len_long), dimension(:), allocatable, intent(out) :: & warningsOut +!autodocument_end + integer :: iWarning character(len=*),parameter :: subname='(icepack_warnings_getall)' diff --git a/doc/source/user_guide/interfaces.include b/doc/source/user_guide/interfaces.include index 7c8d3589d..e4bbb7d37 100644 --- a/doc/source/user_guide/interfaces.include +++ b/doc/source/user_guide/interfaces.include @@ -89,7 +89,7 @@ icepack_init_hbrine nblyr ! number of bio layers real (kind=dbl_kind), intent(inout) :: & - phi_snow !porosity at the ice-snow interface + phi_snow ! porosity at the ice-snow interface real (kind=dbl_kind), dimension (nblyr+2), intent(out) :: & bgrid ! biology nondimensional vertical grid points @@ -98,9 +98,9 @@ icepack_init_hbrine igrid ! biology vertical interface points real (kind=dbl_kind), dimension (nilyr+1), intent(out) :: & - cgrid , & ! CICE vertical coordinate - icgrid , & ! interface grid for CICE (shortwave variable) - swgrid ! grid for ice tracers used in dEdd scheme + cgrid , & ! CICE vertical coordinate + icgrid , & ! interface grid for CICE (shortwave variable) + swgrid ! grid for ice tracers used in dEdd scheme @@ -117,10 +117,10 @@ icepack_init_zsalinity Rayleigh_real, trcrn_bgc, nt_bgc_S, ncat, sss) integer (kind=int_kind), intent(in) :: & - nblyr, & ! number of biolayers + nblyr , & ! number of biolayers ntrcr_o, & ! number of non bio tracers - ncat , & ! number of categories - nt_bgc_S ! zsalinity index + ncat , & ! number of categories + nt_bgc_S ! zsalinity index logical (kind=log_kind), intent(inout) :: & Rayleigh_criteria @@ -132,7 +132,7 @@ icepack_init_zsalinity sss real (kind=dbl_kind), dimension(:,:), intent(inout):: & - trcrn_bgc ! bgc subset of trcrn + trcrn_bgc ! bgc subset of trcrn @@ -259,13 +259,15 @@ icepack_intfc.F90 use icepack_tracers, only: icepack_max_iso => max_iso use icepack_tracers, only: icepack_nmodal1 => nmodal1 use icepack_tracers, only: icepack_nmodal2 => nmodal2 - use icepack_parameters, only: icepack_nspint => nspint + + use icepack_shortwave_data, only: icepack_nspint_3bd => nspint_3bd + use icepack_shortwave_data, only: icepack_nspint_5bd => nspint_5bd use icepack_parameters, only: icepack_init_parameters use icepack_parameters, only: icepack_query_parameters use icepack_parameters, only: icepack_write_parameters use icepack_parameters, only: icepack_recompute_constants - use icepack_parameters, only: nspint, secday, spval_const + use icepack_parameters, only: secday, spval_const use icepack_parameters, only: c0, c1, c1p5, c2, c3, c4, c5, c6, c8 use icepack_parameters, only: c10, c15, c16, c20, c25, c100, c1000 use icepack_parameters, only: p001, p01, p1, p2, p4, p5, p6, p05 @@ -299,6 +301,7 @@ icepack_intfc.F90 use icepack_snow, only: icepack_init_snow use icepack_snow, only: icepack_step_snow + use icepack_shortwave, only: icepack_init_radiation use icepack_shortwave, only: icepack_prep_radiation use icepack_shortwave, only: icepack_step_radiation @@ -323,10 +326,12 @@ icepack_intfc.F90 use icepack_therm_shared , only: icepack_snow_temperature use icepack_therm_shared , only: icepack_liquidus_temperature use icepack_therm_shared , only: icepack_sea_freezing_temperature - use icepack_therm_shared , only: icepack_enthalpy_snow use icepack_therm_shared , only: icepack_init_thermo + use icepack_therm_shared , only: icepack_salinity_profile use icepack_therm_shared , only: icepack_init_trcr + use icepack_mushy_physics , only: icepack_enthalpy_snow + use icepack_mushy_physics , only: icepack_enthalpy_mush use icepack_mushy_physics , only: icepack_mushy_density_brine use icepack_mushy_physics , only: icepack_mushy_liquid_fraction use icepack_mushy_physics , only: icepack_mushy_temperature_mush @@ -335,6 +340,7 @@ icepack_intfc.F90 use icepack_warnings, only: icepack_warnings_print use icepack_warnings, only: icepack_warnings_flush use icepack_warnings, only: icepack_warnings_aborted + use icepack_warnings, only: icepack_warnings_getall @@ -407,7 +413,7 @@ icepack_aggregate trcr_depend, & trcr_base, & n_trcr_strata, & - nt_strata) + nt_strata, Tf) integer (kind=int_kind), intent(in) :: & ncat , & ! number of thickness categories @@ -441,6 +447,9 @@ icepack_aggregate real (kind=dbl_kind), dimension (:), intent(out) :: & trcr ! ice tracers + real (kind=dbl_kind), intent(in) :: & + Tf ! freezing temperature + icepack_mechred.F90 @@ -524,11 +533,14 @@ icepack_step_ridge araftn, vraftn, & aice, fsalt, & first_ice, fzsal, & - flux_bio, closing ) + flux_bio, closing, Tf ) real (kind=dbl_kind), intent(in) :: & dt ! time step + real (kind=dbl_kind), intent(in) :: & + Tf ! freezing temperature + integer (kind=int_kind), intent(in) :: & ncat , & ! number of thickness categories ndtd , & ! number of dynamics supercycles @@ -624,6 +636,43 @@ icepack_mushy_density_brine +.. _icepack_enthalpy_snow: + +icepack_enthalpy_snow +^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ +.. code-block:: fortran + + ! Enthalpy of snow from snow temperature + + function icepack_enthalpy_snow(zTsn) result(zqsn) + + real(kind=dbl_kind), intent(in) :: & + zTsn ! snow layer temperature (C) + + real(kind=dbl_kind) :: & + zqsn ! snow layer enthalpy (J m-3) + + + +.. _icepack_enthalpy_mush: + +icepack_enthalpy_mush +^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ +.. code-block:: fortran + + ! Enthalpy of mush from mush temperature and bulk salinity + + function icepack_enthalpy_mush(zTin, zSin) result(zqin) + + real(kind=dbl_kind), intent(in) :: & + zTin, & ! ice layer temperature (C) + zSin ! ice layer bulk salinity (ppt) + + real(kind=dbl_kind) :: & + zqin ! ice layer enthalpy (J m-3) + + + .. _icepack_mushy_temperature_mush: icepack_mushy_temperature_mush @@ -803,11 +852,12 @@ icepack_init_parameters kice_in, ksno_in, & zref_in, hs_min_in, snowpatch_in, rhosi_in, sk_l_in, & saltmax_in, phi_init_in, min_salin_in, salt_loss_in, & + Tliquidus_max_in, & min_bgc_in, dSin0_frazil_in, hi_ssl_in, hs_ssl_in, & awtvdr_in, awtidr_in, awtvdf_in, awtidf_in, & qqqice_in, TTTice_in, qqqocn_in, TTTocn_in, & ktherm_in, conduct_in, fbot_xfer_type_in, calc_Tsfc_in, dts_b_in, & - update_ocn_f_in, ustar_min_in, a_rapid_mode_in, & + update_ocn_f_in, ustar_min_in, hi_min_in, a_rapid_mode_in, & cpl_frazil_in, & Rac_rapid_mode_in, aspect_rapid_mode_in, & dSdt_slow_mode_in, phi_c_slow_mode_in, & @@ -836,7 +886,7 @@ icepack_init_parameters snwlvlfac_in, isnw_T_in, isnw_Tgrd_in, isnw_rhos_in, & snowage_rhos_in, snowage_Tgrd_in, snowage_T_in, & snowage_tau_in, snowage_kappa_in, snowage_drdt0_in, & - snw_aging_table_in) + snw_aging_table_in, snw_ssp_table_in ) !----------------------------------------------------------------- ! control settings @@ -892,6 +942,7 @@ icepack_init_parameters phi_init_in, & ! initial liquid fraction of frazil min_salin_in, & ! threshold for brine pocket treatment salt_loss_in, & ! fraction of salt retained in zsalinity + Tliquidus_max_in, & ! maximum liquidus temperature of mush (C) dSin0_frazil_in ! bulk salinity reduction of newly formed frazil integer (kind=int_kind), intent(in), optional :: & @@ -913,6 +964,7 @@ icepack_init_parameters real (kind=dbl_kind), intent(in), optional :: & dts_b_in, & ! zsalinity timestep + hi_min_in, & ! minimum ice thickness allowed (m) for thermo ustar_min_in ! minimum friction velocity for ice-ocean heat flux ! mushy thermo @@ -953,7 +1005,7 @@ icepack_init_parameters awtidf_in ! near IR, diffuse character (len=*), intent(in), optional :: & - shortwave_in, & ! shortwave method, 'ccsm3' or 'dEdd' + shortwave_in, & ! shortwave method, 'ccsm3' or 'dEdd' or 'dEdd_snicar_ad' albedo_type_in ! albedo parameterization, 'ccsm3' or 'constant' ! shortwave='dEdd' overrides this parameter @@ -1184,6 +1236,9 @@ icepack_init_parameters snowage_kappa_in, &! snowage_drdt0_in ! (10^-6 m/hr) + character (len=char_len), intent(in), optional :: & + snw_ssp_table_in ! lookup table: 'snicar' or 'test' + .. _icepack_query_parameters: @@ -1211,10 +1266,11 @@ icepack_query_parameters kice_out, ksno_out, & zref_out, hs_min_out, snowpatch_out, rhosi_out, sk_l_out, & saltmax_out, phi_init_out, min_salin_out, salt_loss_out, & + Tliquidus_max_out, & min_bgc_out, dSin0_frazil_out, hi_ssl_out, hs_ssl_out, & awtvdr_out, awtidr_out, awtvdf_out, awtidf_out, cpl_frazil_out, & qqqice_out, TTTice_out, qqqocn_out, TTTocn_out, update_ocn_f_out, & - Lfresh_out, cprho_out, Cp_out, ustar_min_out, a_rapid_mode_out, & + Lfresh_out, cprho_out, Cp_out, ustar_min_out, hi_min_out, a_rapid_mode_out, & ktherm_out, conduct_out, fbot_xfer_type_out, calc_Tsfc_out, dts_b_out, & Rac_rapid_mode_out, aspect_rapid_mode_out, dSdt_slow_mode_out, & phi_c_slow_mode_out, phi_i_mushy_out, shortwave_out, & @@ -1243,7 +1299,7 @@ icepack_query_parameters snwlvlfac_out, isnw_T_out, isnw_Tgrd_out, isnw_rhos_out, & snowage_rhos_out, snowage_Tgrd_out, snowage_T_out, & snowage_tau_out, snowage_kappa_out, snowage_drdt0_out, & - snw_aging_table_out) + snw_aging_table_out, snw_ssp_table_out ) !----------------------------------------------------------------- ! control settings @@ -1308,6 +1364,7 @@ icepack_query_parameters phi_init_out, & ! initial liquid fraction of frazil min_salin_out, & ! threshold for brine pocket treatment salt_loss_out, & ! fraction of salt retained in zsalinity + Tliquidus_max_out, & ! maximum liquidus temperature of mush (C) dSin0_frazil_out ! bulk salinity reduction of newly formed frazil integer (kind=int_kind), intent(out), optional :: & @@ -1329,6 +1386,7 @@ icepack_query_parameters real (kind=dbl_kind), intent(out), optional :: & dts_b_out, & ! zsalinity timestep + hi_min_out, & ! minimum ice thickness allowed (m) for thermo ustar_min_out ! minimum friction velocity for ice-ocean heat flux ! mushy thermo @@ -1343,6 +1401,7 @@ icepack_query_parameters character(len=*), intent(out), optional :: & tfrz_option_out ! form of ocean freezing temperature ! 'minus1p8' = -1.8 C + ! 'constant' = Tocnfrz ! 'linear_salt' = -depressT * sss ! 'mushy' conforms with ktherm=2 @@ -1370,7 +1429,7 @@ icepack_query_parameters awtidf_out ! near IR, diffuse character (len=*), intent(out), optional :: & - shortwave_out, & ! shortwave method, 'ccsm3' or 'dEdd' + shortwave_out, & ! shortwave method, 'ccsm3' or 'dEdd' or 'dEdd_snicar_ad' albedo_type_out ! albedo parameterization, 'ccsm3' or 'constant' ! shortwave='dEdd' overrides this parameter @@ -1600,6 +1659,10 @@ icepack_query_parameters snowage_tau_out, & ! (10^-6 m) snowage_kappa_out, &! snowage_drdt0_out ! (10^-6 m/hr) + + character (len=char_len), intent(out), optional :: & + snw_ssp_table_out ! lookup table: 'snicar' or 'test' + .. _icepack_write_parameters: @@ -1632,6 +1695,19 @@ icepack_recompute_constants icepack_shortwave.F90 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +.. _icepack_init_radiation: + +icepack_init_radiation +^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ +.. code-block:: fortran + + ! Initialize data needed for shortwave radiation calculations + ! This should be called after values are set via icepack_init_parameters + + subroutine icepack_init_radiation() + + + .. _icepack_prep_radiation: icepack_prep_radiation @@ -1642,8 +1718,7 @@ icepack_prep_radiation ! ! authors: Elizabeth Hunke, LANL - subroutine icepack_prep_radiation (ncat, nilyr, nslyr, & - aice, aicen, & + subroutine icepack_prep_radiation(aice, aicen, & swvdr, swvdf, & swidr, swidf, & alvdr_ai, alvdf_ai, & @@ -1658,11 +1733,6 @@ icepack_prep_radiation fswpenln, & Sswabsn, Iswabsn) - integer (kind=int_kind), intent(in) :: & - ncat , & ! number of ice thickness categories - nilyr , & ! number of ice layers - nslyr ! number of snow layers - real (kind=dbl_kind), intent(in) :: & aice , & ! ice area fraction swvdr , & ! sw down, visible, direct (W/m^2) @@ -1711,10 +1781,7 @@ icepack_step_radiation ! David Bailey, NCAR ! Elizabeth C. Hunke, LANL - subroutine icepack_step_radiation (dt, ncat, & - nblyr, & - nilyr, nslyr, & - dEdd_algae, & + subroutine icepack_step_radiation (dt, & swgrid, igrid, & fbri, & aicen, vicen, & @@ -1729,13 +1796,6 @@ icepack_step_radiation days_per_year, & nextsw_cday, & yday, sec, & - kaer_tab, waer_tab, & - gaer_tab, & - kaer_bc_tab, & - waer_bc_tab, & - gaer_bc_tab, & - bcenh, & - modal_aero, & swvdr, swvdf, & swidr, swidf, & coszen, fsnow, & @@ -1757,12 +1817,6 @@ icepack_step_radiation l_print_point, & initonly) - integer (kind=int_kind), intent(in) :: & - ncat , & ! number of ice thickness categories - nilyr , & ! number of ice layers - nslyr , & ! number of snow layers - nblyr ! number of bgc layers - real (kind=dbl_kind), intent(in) :: & dt , & ! time step (s) swvdr , & ! sw down, visible, direct (W/m^2) @@ -1772,38 +1826,29 @@ icepack_step_radiation fsnow , & ! snowfall rate (kg/m^2 s) TLAT, TLON ! latitude and longitude (radian) - character (len=char_len), intent(in) :: & - calendar_type ! differentiates Gregorian from other calendars - integer (kind=int_kind), intent(in) :: & - days_per_year, & ! number of days in one year - sec ! elapsed seconds into date + sec ! elapsed seconds into date real (kind=dbl_kind), intent(in) :: & - nextsw_cday , & ! julian day of next shortwave calculation - yday ! day of the year + yday ! day of the year + + character (len=char_len), intent(in), optional :: & + calendar_type ! differentiates Gregorian from other calendars + + integer (kind=int_kind), intent(in), optional :: & + days_per_year ! number of days in one year + + real (kind=dbl_kind), intent(in), optional :: & + nextsw_cday ! julian day of next shortwave calculation real (kind=dbl_kind), intent(inout) :: & coszen ! cosine solar zenith angle, < 0 for sun below horizon real (kind=dbl_kind), dimension (:), intent(in) :: & - igrid ! biology vertical interface points + igrid ! biology vertical interface points real (kind=dbl_kind), dimension (:), intent(in) :: & - swgrid ! grid for ice tracers used in dEdd scheme - - real (kind=dbl_kind), dimension(:,:), intent(in) :: & - kaer_tab, & ! aerosol mass extinction cross section (m2/kg) - waer_tab, & ! aerosol single scatter albedo (fraction) - gaer_tab ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(:,:), intent(in) :: & - kaer_bc_tab, & ! aerosol mass extinction cross section (m2/kg) - waer_bc_tab, & ! aerosol single scatter albedo (fraction) - gaer_bc_tab ! aerosol asymmetry parameter (cos(theta)) - - real (kind=dbl_kind), dimension(:,:,:), intent(in) :: & - bcenh + swgrid ! grid for ice tracers used in dEdd scheme real (kind=dbl_kind), dimension(:), intent(in) :: & aicen , & ! ice area fraction in each category @@ -1853,15 +1898,13 @@ icepack_step_radiation Sswabsn ! SW radiation absorbed in snow layers (W m-2) logical (kind=log_kind), intent(in) :: & - l_print_point, & ! flag for printing diagnostics - dEdd_algae , & ! .true. use prognostic chla in dEdd - modal_aero ! .true. use modal aerosol optical treatment + l_print_point ! flag for printing diagnostics real (kind=dbl_kind), dimension(:,:), intent(inout), optional :: & - rsnow ! snow grain radius tracer (10^-6 m) + rsnow ! snow grain radius tracer (10^-6 m) logical (kind=log_kind), optional :: & - initonly ! flag to indicate init only, default is false + initonly ! flag to indicate init only, default is false @@ -2009,7 +2052,7 @@ icepack_step_therm2 logical (kind=log_kind), intent(in), optional :: & update_ocn_f ! if true, update fresh water and salt fluxes - real (kind=dbl_kind), dimension(0:ncat), intent(inout) :: & + real (kind=dbl_kind), dimension(0:ncat), intent(in) :: & hin_max ! category boundaries (m) real (kind=dbl_kind), intent(in) :: & @@ -2139,6 +2182,27 @@ icepack_init_thermo +.. _icepack_salinity_profile: + +icepack_salinity_profile +^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ +.. code-block:: fortran + + ! Initial salinity profile + ! + ! authors: C. M. Bitz, UW + ! William H. Lipscomb, LANL + + function icepack_salinity_profile(zn) result(salinity) + + real(kind=dbl_kind), intent(in) :: & + zn ! depth + + real(kind=dbl_kind) :: & + salinity ! initial salinity profile + + + .. _icepack_init_trcr: icepack_init_trcr @@ -2233,21 +2297,6 @@ icepack_snow_temperature -.. _icepack_enthalpy_snow: - -icepack_enthalpy_snow -^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -.. code-block:: fortran - - ! compute snow enthalpy - - function icepack_enthalpy_snow(zTsn) result(qsn) - - real(kind=dbl_kind), intent(in) :: zTsn - real(kind=dbl_kind) :: qsn - - - icepack_therm_vertical.F90 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ @@ -2979,7 +3028,7 @@ icepack_compute_tracers atrcrn, aicen, & vicen, vsnon, & trcr_base, n_trcr_strata, & - nt_strata, trcrn) + nt_strata, trcrn, Tf) integer (kind=int_kind), intent(in) :: & ntrcr ! number of tracers in use @@ -3006,6 +3055,9 @@ icepack_compute_tracers real (kind=dbl_kind), dimension (ntrcr), intent(out) :: & trcrn ! ice tracers + real (kind=dbl_kind), intent(in) :: & + Tf ! Freezing point + icepack_warnings.F90 @@ -3038,6 +3090,21 @@ icepack_warnings_clear +.. _icepack_warnings_clear: + +icepack_warnings_clear +^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ +.. code-block:: fortran + + ! return an array of all the current warning messages + + subroutine icepack_warnings_getall(warningsOut) + + character(len=char_len_long), dimension(:), allocatable, intent(out) :: & + warningsOut + + + .. _icepack_warnings_print: icepack_warnings_print diff --git a/doc/source/user_guide/ug_testing.rst b/doc/source/user_guide/ug_testing.rst index 08db08fe0..3a702e630 100755 --- a/doc/source/user_guide/ug_testing.rst +++ b/doc/source/user_guide/ug_testing.rst @@ -220,6 +220,8 @@ Test suites support running multiple tests specified via an input file or files. When invoking the test suite option (``--suite``) with **icepack.setup**, all tests will be created, built, and submitted automatically under a directory called testsuite.[testid].[$date] as part of involing the suite. +The test scripts provide an ability to reuse binaries between tests within +a test suite when possible. Because the tests are built and submitted automatically, this feature does not allow for customization of cases or tests like individual cases and tests do:: From adcf436b4246d466de2898fc07931eeeb5efadf5 Mon Sep 17 00:00:00 2001 From: apcraig Date: Thu, 28 Sep 2023 12:12:02 -0600 Subject: [PATCH 64/64] Update documentation --- doc/source/icepack_index.rst | 2 +- doc/source/science_guide/sg_thermo.rst | 15 +++++++++++++-- 2 files changed, 14 insertions(+), 3 deletions(-) diff --git a/doc/source/icepack_index.rst b/doc/source/icepack_index.rst index 5c01ab388..fa280994e 100755 --- a/doc/source/icepack_index.rst +++ b/doc/source/icepack_index.rst @@ -470,7 +470,7 @@ either Celsius or Kelvin units). Deprecated parameters are listed at the end. "tmass", "total mass of ice and snow", "kg/m\ :math:`^2`" "Tmin", "minimum allowed internal temperature", "-100. C" "Tmltz", "melting temperature profile of ice", "" - "Tocnfrz", "temperature of constant freezing point parameterization", "-1.8 C" + "Tocnfrz", "temperature of constant freezing point parameterization", "C" "tr_aero", ":math:`\bullet` if true, use aerosol tracers", "" "tr_iso", ":math:`\bullet` if true, use water isotope tracers", "" "tr_bgc_[tracer]", ":math:`\bullet` if true, use biogeochemistry tracers", "" diff --git a/doc/source/science_guide/sg_thermo.rst b/doc/source/science_guide/sg_thermo.rst index d7534df40..d12b90cfe 100755 --- a/doc/source/science_guide/sg_thermo.rst +++ b/doc/source/science_guide/sg_thermo.rst @@ -21,7 +21,10 @@ horizontally uniform column with ice thickness :math:`h_{sn} = v_{sn}/a_{in}`. (Henceforth we omit the category index \ :math:`n`.) Each column is divided into :math:`N_i` ice layers of thickness :math:`\Delta h_i = h_i/N_i` and :math:`N_s` snow layers of -thickness :math:`\Delta h_s = h_s/N_s`. The surface temperature (i.e., +thickness :math:`\Delta h_s = h_s/N_s`. Minimum ice and snow thickness +is specified by namelist parameters ``hi_min`` and ``hs_min``. + +The surface temperature (i.e., the temperature of ice or snow at the interface with the atmosphere) is :math:`T_{sf}`, which cannot exceed :math:`0^{\circ}C`. The temperature at the midpoint of the snow layer is :math:`T_s`, and the midpoint ice layer @@ -30,6 +33,13 @@ temperatures are :math:`T_{ik}`, where :math:`k` ranges from 1 to :math:`T_f`, the freezing temperature of the ocean mixed layer. All temperatures are in degrees Celsius unless stated otherwise. +The ``tfrz_option`` namelist specifies the freezing temperature formulation. +``minus1p8`` fixes the freezing temperature at -1.8C. ``constant`` fixes +the freeing point at whatever value is specified by the parameter ``Tocnfrz``. +``linear_salt`` sets the freezing temperature based on salinity, +:math:`Tf = -depressT * sss`. And ``mushy`` uses the mushy formulation for setting +the freezing temperature. + Each ice layer has an enthalpy :math:`q_{ik}`, defined as the negative of the energy required to melt a unit volume of ice and raise its temperature to :math:`0^{\circ}C`. Because of internal melting and freezing in brine @@ -1679,7 +1689,8 @@ consistently (from a mushy physics point of view) to both enthalpy and bulk salinity, the resulting temperature may be changed to be greater than the limit allowed in the thermodynamics routines. If this situation is detected, the code corrects the enthalpy so the temperature is below -the limiting value. Conservation of energy is ensured by placing the +the limiting value. The limiting value, ``Tliquidus_max`` can be specified +in namelist. Conservation of energy is ensured by placing the excess energy in the ocean, and the code writes a warning (see :ref:`aborts`) that this has occurred to the diagnostics file. This situation only occurs with the