From 66682a877bd902b239b333324f29531b5d117cb3 Mon Sep 17 00:00:00 2001
From: "David A. Bailey" <dbailey@ucar.edu>
Date: Tue, 25 Jul 2023 14:26:26 -0600
Subject: [PATCH] Remove repeat ridging print (#446)

---
 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