Skip to content

Commit

Permalink
Merge branch 'hmask3_fix' into front_advect_fix
Browse files Browse the repository at this point in the history
  • Loading branch information
alex-huth committed Aug 28, 2023
2 parents 1ee55dd + 937f11a commit b7593e2
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion src/ice_shelf/MOM_ice_shelf_dynamics.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1964,7 +1964,8 @@ subroutine calc_shelf_driving_stress(CS, ISS, G, US, taudx, taudy, OD)
dyh = G%dyT(i,j)
Dx=dxh
Dy=dyh
if (ISS%hmask(i,j) == 1 .or. ISS%hmask(i,j) == 3) then ! we are inside the global computational bdry, at an ice-filled cell
if (ISS%hmask(i,j) == 1 .or. ISS%hmask(i,j) == 3) then
! we are inside the global computational bdry, at an ice-filled cell

! calculate sx
if ((i+i_off) == gisc) then ! at west computational bdry
Expand Down

0 comments on commit b7593e2

Please sign in to comment.