Skip to content

Commit

Permalink
Modified MOM_ice_shelf_dynamics.F90
Browse files Browse the repository at this point in the history
  • Loading branch information
OlgaSergienko committed Dec 16, 2020
1 parent f1041d1 commit 39dd3e3
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions src/ice_shelf/MOM_ice_shelf_dynamics.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit 39dd3e3

Please sign in to comment.