From 31877fbd11e3df00e47464a0b597dbdb20aada70 Mon Sep 17 00:00:00 2001
From: "David A. Bailey" <dbailey@ucar.edu>
Date: Fri, 21 Jul 2023 16:01:32 -0600
Subject: [PATCH] Only print repeat ridging when niter > 1 (#445)

---
 columnphysics/icepack_mechred.F90 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/columnphysics/icepack_mechred.F90 b/columnphysics/icepack_mechred.F90
index ecba9f587..d76ffdbe6 100644
--- 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