From 0ae2e520d899d277cae6a1aaa09ac003aac7e4fd Mon Sep 17 00:00:00 2001 From: alex-huth Date: Wed, 11 Mar 2026 15:14:56 -0400 Subject: [PATCH] Added null subroutine and variables related to ice-shelf calving Added a null subroutine and two ocean_ice_boundary_type variables related to ice-shelf calving. This accommodates related changes in the coupler and SIS2. --- ice_model.F90 | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/ice_model.F90 b/ice_model.F90 index 817e3e2..d314c6a 100644 --- a/ice_model.F90 +++ b/ice_model.F90 @@ -74,6 +74,7 @@ module ice_model_mod public :: unpack_ocean_ice_boundary, exchange_slow_to_fast_ice, set_ice_surface_fields public :: ice_model_fast_cleanup, unpack_land_ice_boundary public :: exchange_fast_to_slow_ice, update_ice_model_slow +public :: unpack_ocean_ice_boundary_calved_shelf_bergs type ice_data_type type(domain2d) :: Domain @@ -193,7 +194,9 @@ module ice_model_mod t =>NULL(), & s =>NULL(), & frazil =>NULL(), & - sea_level =>NULL() + sea_level =>NULL(), & + calving =>NULL(), & + calving_hflx =>NULL() real, dimension(:,:,:), pointer :: data =>NULL() integer :: xtype type(coupler_2d_bc_type) :: fields ! array of fields used for additional tracers @@ -773,6 +776,11 @@ subroutine exchange_fast_to_slow_ice(Ice) type(ice_data_type), intent(in) :: Ice end subroutine exchange_fast_to_slow_ice !============================================================================================= +subroutine unpack_ocean_ice_boundary_calved_shelf_bergs(Ice, Ocean_boundary) + type(ice_data_type), intent(in) :: Ice + type(ocean_ice_boundary_type), intent(in) :: Ocean_boundary +end subroutine unpack_ocean_ice_boundary_calved_shelf_bergs +!============================================================================================= subroutine set_ice_surface_fields(Ice) type(ice_data_type), intent(inout) :: Ice ! Null routines to provide similar interfaces to those used by SIS2.