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 !----------------------------------------------------------