Fix for specified ice layout non repro issue

- Closes issue #199 - Fix ice_layout non-repro of amip using specified ice mode
NOAA-GFDL · Nov 1, 2023 · a3e100e · a3e100e
1 parent ab2c9c4
commit a3e100e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ice_model.F90 b/src/ice_model.F90
@@ -1272,7 +1272,7 @@ subroutine set_fast_ocean_sfc_properties( Atmos_boundary, Ice, IST, Rad, FIA, &
   ! timestep.  However, it is safe (if wasteful) to call it more frequently.
   if (Rad%do_sun_angle_for_alb) then
     call set_ocean_albedo_from_astronomy(Ice, G, Time_start, Time_end)
-  elseif (coszen_changed) then
+  elseif (coszen_changed .or. Ice%sCS%specified_ice) then
     call set_ocean_albedo_from_coszen(Ice, G, Rad%coszen_nextrad)
   endif