Remove repeat ridging print (#446)

CICE-Consortium · Jul 25, 2023 · 66682a8 · 66682a8
1 parent 31877fb
commit 66682a8
Showing 1 changed file with 1 addition and 6 deletions.
diff --git 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