From 39dd3e3221bb19ef90d191f3c69f77cd50de03cb Mon Sep 17 00:00:00 2001 From: Olga Sergienko Date: Tue, 15 Dec 2020 21:05:04 -0500 Subject: [PATCH] Modified MOM_ice_shelf_dynamics.F90 --- src/ice_shelf/MOM_ice_shelf_dynamics.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/ice_shelf/MOM_ice_shelf_dynamics.F90 b/src/ice_shelf/MOM_ice_shelf_dynamics.F90 index 8480906de8..174891582a 100644 --- a/src/ice_shelf/MOM_ice_shelf_dynamics.F90 +++ b/src/ice_shelf/MOM_ice_shelf_dynamics.F90 @@ -672,6 +672,7 @@ subroutine update_ice_shelf(CS, ISS, G, US, time_step, Time, ocean_mass, coupled call update_OD_ffrac_uncoupled(CS, G, ISS%h_shelf(:,:)) endif + if (update_ice_vel) then call ice_shelf_solve_outer(CS, ISS, G, US, CS%u_shelf, CS%v_shelf, iters, Time) endif