diff --git a/ice_model.F90 b/ice_model.F90 index 16cf87bf..4399bb48 100644 --- a/ice_model.F90 +++ b/ice_model.F90 @@ -42,7 +42,7 @@ !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! module ice_model_mod -use SIS_diag_mediator, only : set_SIS_axes_info, SIS_diag_mediator_init +use SIS_diag_mediator, only : set_SIS_axes_info, SIS_diag_mediator_init, SIS_diag_mediator_end use SIS_diag_mediator, only : enable_SIS_averaging, disable_SIS_averaging use SIS_diag_mediator, only : post_SIS_data, post_data=>post_SIS_data use SIS_diag_mediator, only : query_SIS_averaging_enabled, SIS_diag_ctrl @@ -3865,6 +3865,8 @@ subroutine ice_model_end (Ice) if (IST%do_icebergs) call icebergs_end(Ice%icebergs) if (IST%add_diurnal_sw .or. IST%do_sun_angle_for_alb) call astronomy_end + call SIS_diag_mediator_end(IST%Time) + deallocate(Ice%Ice_state) end subroutine ice_model_end