In the case that nonzero_count <=1, a (dummy) value is set for non_un…

…ique_scales before returning
NOAA-GFDL · Jun 19, 2022 · 79eb807 · 79eb807
1 parent 8c605fe
commit 79eb807
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/framework/MOM_unique_scales.F90 b/src/framework/MOM_unique_scales.F90
@@ -266,6 +266,8 @@ integer function non_unique_scales(scales, list, descs, weights, silent)
   integer :: ndim           ! The number of dimensional scaling factors to work with
   integer :: i, n, m, ns
 
+  non_unique_scales = -9999 ! Set return value to a _dummy_ value
+
   verbose = .true. ; if (present(silent)) verbose = .not.silent
 
   ndim = size(scales)