Merge branch 'NOAA-GFDL:dev/gfdl' into dev/cefi

NOAA-CEFI-Regional-Ocean-Modeling · Jan 7, 2025 · 7f63b80 · 7f63b80
2 parents 12ca7c3 + 7ca5ed9
commit 7f63b80
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/framework/MOM_coms.F90 b/src/framework/MOM_coms.F90
@@ -412,6 +412,7 @@ function reproducing_sum_3d(array, isr, ier, jsr, jer, sums, EFP_sum, EFP_lay_su
 
   do_sum_across_PEs = .true. ; if (present(only_on_PE)) do_sum_across_PEs = .not.only_on_PE
   do_unscale = .false. ; if (present(unscale)) do_unscale = (unscale /= 1.0)
+  descale = 1.0 ; if (do_unscale) descale = unscale
 
   if (present(sums) .or. present(EFP_lay_sums)) then
     if (present(sums)) then ; if (size(sums) < ke) then