From 8341d6393ad320b14a4fec5321a1d3be3cd58b7d Mon Sep 17 00:00:00 2001
From: David Bailey <dbailey@ucar.edu>
Date: Mon, 24 Jul 2023 11:10:23 -0600
Subject: [PATCH] Remove repeat ridging print

---
 columnphysics/icepack_mechred.F90 | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/columnphysics/icepack_mechred.F90 b/columnphysics/icepack_mechred.F90
index d76ffdbe6..28b0330c9 100644
--- a/columnphysics/icepack_mechred.F90
+++ b/columnphysics/icepack_mechred.F90
@@ -425,12 +425,7 @@ subroutine ridge_ice (dt,          ndtd,       &
       ! If done, exit.  If not, prepare to ridge again.
       !-----------------------------------------------------------------
 
-         if (iterate_ridging) then
-            if (niter > 1) then
-               write(warnstr,*) subname, 'Repeat ridging, niter =', niter+1
-               call icepack_warnings_add(warnstr)
-            endif
-         else
+         if (.not.iterate_ridging) then
             exit rdg_iteration
          endif