diff --git a/CHANGELOG.md b/CHANGELOG.md index 16f9962d..5abf2147 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -26,6 +26,13 @@ sequential patch number (starting from `01`). - 2024.01-beta4 4dc9b0f2a85d34b0fdc8477625b91794a77ac747 - 2024.01-beta5 4dc9b0f2a85d34b0fdc8477625b91794a77ac747 +## [2023.04.01] - 2024-06-20 +### Fixed +- SIMPLE COUPLER: Fixed issue where the `sst_anom` value used was not the correct value read in from the namelist. (#122) + +### Tag Commit Hashes +- 2023.04 6b4f8b5207483eb7a7839a29909a415253a05db8 + ## [2023.04] - 2023-12-04 ### Added - Adds additional output arguments `thv_atm` amd `thv_surf` to the `surface_flux` interface, as well as calls to xgrid and send data in order to use a new atmosphere boundary layer scheme. diff --git a/simple/ice_model.F90 b/simple/ice_model.F90 index 8777adc0..b499ec4e 100644 --- a/simple/ice_model.F90 +++ b/simple/ice_model.F90 @@ -1110,7 +1110,7 @@ subroutine ice_model_init ( Ice, Time_Init, Time, & ! this perturbation may be useful in accessing model sensitivities if ( abs(sst_anom) > 0.0001 ) then - Ice%t_surf(:,:) = Ice%t_surf(:,:) + fms_amip_interp_sst_anom + Ice%t_surf(:,:) = Ice%t_surf(:,:) + sst_anom endif !----------------------------------------------------------