From f2e8f6023d2e18148c715abeaf201e3e5b956963 Mon Sep 17 00:00:00 2001
From: Max Luebke <mluebke@gfz-potsdam.de>
Date: Tue, 2 Apr 2024 14:37:20 +0000
Subject: [PATCH] Update iteration end message in kin_r_library.R

---
 R_lib/kin_r_library.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R_lib/kin_r_library.R b/R_lib/kin_r_library.R
index a314eb702..c8bdedb73 100644
--- a/R_lib/kin_r_library.R
+++ b/R_lib/kin_r_library.R
@@ -93,7 +93,7 @@ master_iteration_end <- function(setup,iter) {
             msgm("results stored in <", nameout, ">")
         }
     }
-    msgm("done iteration", iter, "/", 1)
+    msgm("done iteration", iter, "/", length(setup$timesteps))
     setup$iter <- setup$iter + 1
     return(setup)
 }