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