diff --git a/columnphysics/icepack_therm_mushy.F90 b/columnphysics/icepack_therm_mushy.F90 index b379e20ac..1a28ed1c5 100644 --- a/columnphysics/icepack_therm_mushy.F90 +++ b/columnphysics/icepack_therm_mushy.F90 @@ -219,6 +219,8 @@ subroutine temperature_changes_salinity(dt, & if (sw_redist) then + dt_rhoi_hlyr = dt / (rhoi*hilyr) + do k = 1, nilyr Iswabs_tmp = c0 ! all Iswabs is moved into fswsfc diff --git a/configuration/scripts/options/set_nml.swredist b/configuration/scripts/options/set_nml.swredist new file mode 100644 index 000000000..88e930f09 --- /dev/null +++ b/configuration/scripts/options/set_nml.swredist @@ -0,0 +1,7 @@ + tr_pond_lvl = .true. + tr_pond_topo = .false. + tr_pond_cesm = .false. + ktherm = 2 + sw_redist = .true. + sw_frac = 0.9d0 + sw_dtemp = 0.02d0 diff --git a/configuration/scripts/tests/base_suite.ts b/configuration/scripts/tests/base_suite.ts index cbb9b587e..b8bec9d85 100644 --- a/configuration/scripts/tests/base_suite.ts +++ b/configuration/scripts/tests/base_suite.ts @@ -5,6 +5,7 @@ smoke col 1x1 debug,bgcISPOL smoke col 1x1 debug,bgcNICE smoke col 1x1 debug,bgcsklNICE smoke col 1x1 debug,run1year,thermo1 +smoke col 1x1 debug,run1year,swredist smoke col 1x1 debug,run1year,swccsm3 smoke col 1x1 debug,run1year,alt01 smoke col 1x1 debug,run1year,alt02