From 604d0ad8ff98b8d9a058b01fc685db5a4a47ca38 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunke Date: Thu, 4 Aug 2022 13:56:10 -0600 Subject: [PATCH 01/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] - 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/46] - 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/46] - 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] - 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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/46] 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)) &