got rif of divFactor in new subroutine for del4

E3SM-Ocean-Discussion · Mar 8, 2022 · 42c4f33 · 42c4f33
1 parent 34fd94e
commit 42c4f33
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/components/mpas-ocean/src/shared/mpas_ocn_vel_hmix_del4.F b/components/mpas-ocean/src/shared/mpas_ocn_vel_hmix_del4.F
@@ -481,8 +481,8 @@ subroutine ocn_vel_hmix_div_del4_tend(div, tend, err)!{{{
          visc4 = viscDel4*meshScalingDel4(iEdge)
 
          do k = kmin, kmax
-            uDiff = divFactor*(del2div(k,cell2) - del2div(k,cell1))* &
-                                                          dcEdgeInv
+            uDiff = (del2div(k,cell2) - del2div(k,cell1))* &
+                                                   dcEdgeInv
 
             tend(k,iEdge) = tend(k,iEdge) - &
                             edgeMask(k,iEdge)*uDiff*visc4