diff --git a/src/gotm/gotm.F90 b/src/gotm/gotm.F90
index b3cf852c..f10b1260 100644
--- a/src/gotm/gotm.F90
+++ b/src/gotm/gotm.F90
@@ -734,7 +734,7 @@ subroutine integrate_gotm()
    end if
    do n=MinN,MaxN
 
-      if(mod(n,progress) .eq. 0 .or. i == 0) then
+      if(mod( 10*n , MaxN-MinN+1 ) .lt. 10 .or. i == 0) then
          LEVEL0 i,'%'
          i = i +10
       end if