Skip to content

Commit

Permalink
Fix for specified ice layout non repro issue
Browse files Browse the repository at this point in the history
- Closes issue #199
- Specified-Ice mode needs albedo update at every timestep because coszen changes every timestep
- Fix ice_layout non-repro of amip using specified ice mode
- Ensure Ice%sCS is associated before checking Ice%sCS%specified_ice
  • Loading branch information
nikizadehgfdl authored and marshallward committed Nov 1, 2023
1 parent ab2c9c4 commit 022bd89
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions src/ice_model.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1267,6 +1267,10 @@ subroutine set_fast_ocean_sfc_properties( Atmos_boundary, Ice, IST, Rad, FIA, &
Ice%t_surf(i2,j2,k2) = US%C_to_degC*Rad%t_skin(i,j,k) + T_0degC
enddo ; enddo ; enddo

! coszen has changed if we are using the specified ice mode
if (associated(Ice%sCS)) then
if(Ice%sCS%specified_ice) coszen_changed = .true.
endif
! set_ocean_albedo only needs to be called if do_sun_angle_for_alb is true or
! if the coupled model's radiation timestep is shorter than the slow coupling
! timestep. However, it is safe (if wasteful) to call it more frequently.
Expand Down

0 comments on commit 022bd89

Please sign in to comment.