Add missing h_neglect (#98)

Co-authored-by: Robert Hallberg <[email protected]>
mom-ocean · Apr 4, 2022 · 78c574b · 78c574b
1 parent edd3f9c
commit 78c574b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/MOM_isopycnal_slopes.F90 b/src/core/MOM_isopycnal_slopes.F90
@@ -257,7 +257,7 @@ subroutine calc_isoneutral_slopes(G, GV, US, h, e, tv, dt_kappa_smooth, &
       hg2B = h(i,j,k)*h(i+1,j,k) + h_neglect2
       hg2L = h(i,j,k-1)*h(i,j,k) + h_neglect2
       hg2R = h(i+1,j,k-1)*h(i+1,j,k) + h_neglect2
-      haA = 0.5*(h(i,j,k-1) + h(i+1,j,k-1))
+      haA = 0.5*(h(i,j,k-1) + h(i+1,j,k-1)) + h_neglect
       haB = 0.5*(h(i,j,k) + h(i+1,j,k)) + h_neglect
       haL = 0.5*(h(i,j,k-1) + h(i,j,k)) + h_neglect
       haR = 0.5*(h(i+1,j,k-1) + h(i+1,j,k)) + h_neglect