FMA fix associated with enforcement of max allowed ice-shelf surface …

…slope
NOAA-GFDL · Sep 17, 2024 · 54fdbbf · 54fdbbf
1 parent 85083ad
commit 54fdbbf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ice_shelf/MOM_ice_shelf_dynamics.F90 b/src/ice_shelf/MOM_ice_shelf_dynamics.F90
@@ -2447,7 +2447,7 @@ subroutine calc_shelf_driving_stress(CS, ISS, G, US, taudx, taudy, OD)
         endif
 
         if (CS%max_surface_slope>0) then
-          scale = min(CS%max_surface_slope/sqrt(sx**2+sy**2),1.0)
+          scale = min(CS%max_surface_slope/sqrt((sx**2)+(sy**2)),1.0)
           sx = scale*sx; sy = scale*sy
         endif