Skip to content

Commit

Permalink
dynamic ice shelf with non-linear viscosity and evolving ice thickness
Browse files Browse the repository at this point in the history
due to sub-ice-shelf melting
  • Loading branch information
OlgaSergienko committed Feb 22, 2021
1 parent 271bfce commit fdd83e6
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/ice_shelf/MOM_ice_shelf_dynamics.F90
Original file line number Diff line number Diff line change
Expand Up @@ -714,7 +714,7 @@ subroutine update_ice_shelf(CS, ISS, G, US, time_step, Time, ocean_mass, coupled
coupled_GL = .false.
if (present(ocean_mass) .and. present(coupled_grounding)) coupled_GL = coupled_grounding

! call ice_shelf_advect(CS, ISS, G, time_step, Time) !OVS 02/08/21
call ice_shelf_advect(CS, ISS, G, time_step, Time) !OVS 02/08/21
CS%elapsed_velocity_time = CS%elapsed_velocity_time + time_step
if (CS%elapsed_velocity_time >= CS%velocity_update_time_step) update_ice_vel = .true.

Expand Down

0 comments on commit fdd83e6

Please sign in to comment.