From 54fdbbfbf69779eed4d60c439e7954b70bfd8f6d Mon Sep 17 00:00:00 2001 From: alex-huth Date: Tue, 17 Sep 2024 15:49:50 -0400 Subject: [PATCH] FMA fix associated with enforcement of max allowed ice-shelf surface slope --- src/ice_shelf/MOM_ice_shelf_dynamics.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ice_shelf/MOM_ice_shelf_dynamics.F90 b/src/ice_shelf/MOM_ice_shelf_dynamics.F90 index 3f198583d7..757a61161d 100644 --- 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