From 5ee4af906e4de6aec8414ba9640fd5790b788ad1 Mon Sep 17 00:00:00 2001 From: Niki Zadeh Date: Wed, 13 Sep 2023 09:06:32 -0400 Subject: [PATCH] Fix for specified ice layout non repro issue - Closes issue #199 - Fix ice_layout non-repro of amip using specified ice mode --- src/ice_model.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ice_model.F90 b/src/ice_model.F90 index 316b90eb..8b3c95a9 100644 --- a/src/ice_model.F90 +++ b/src/ice_model.F90 @@ -1274,7 +1274,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