From 16a5e44de7fcf1710df6fd70c0fc47890c6b9da5 Mon Sep 17 00:00:00 2001
From: Knut <11868922+knutaros@users.noreply.github.com>
Date: Mon, 30 Jun 2025 12:22:52 +0200
Subject: [PATCH] progress: fixed logging of progress

---
 src/gotm/gotm.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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