Only print repeat ridging when niter > 1 (CICE-Consortium#445)

JFLemieux73 · Jul 21, 2023 · 31877fb · 31877fb
1 parent 4728746
commit 31877fb
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/columnphysics/icepack_mechred.F90 b/columnphysics/icepack_mechred.F90
@@ -426,8 +426,10 @@ subroutine ridge_ice (dt,          ndtd,       &
       !-----------------------------------------------------------------
 
          if (iterate_ridging) then
-            write(warnstr,*) subname, 'Repeat ridging, niter =', niter
-            call icepack_warnings_add(warnstr)
+            if (niter > 1) then
+               write(warnstr,*) subname, 'Repeat ridging, niter =', niter+1
+               call icepack_warnings_add(warnstr)
+            endif
          else
             exit rdg_iteration
          endif