From 93b16a1160193b112b180fa560e0ab8dcd9412be Mon Sep 17 00:00:00 2001
From: "C. Carouge" <c.carouge@unsw.edu.au>
Date: Tue, 6 Aug 2024 09:42:27 +1000
Subject: [PATCH] (#359) - Set logn for workers

---
 src/offline/cable_mpiworker.F90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/offline/cable_mpiworker.F90 b/src/offline/cable_mpiworker.F90
index 18dd2233d..db8cb68f6 100644
--- a/src/offline/cable_mpiworker.F90
+++ b/src/offline/cable_mpiworker.F90
@@ -321,6 +321,8 @@ SUBROUTINE mpidrv_worker (comm)
        WRITE(cRank,FMT='(I4.4)')rank
        wlogn = 1000+rank
        OPEN(wlogn,FILE="cable_log_"//cRank,STATUS="REPLACE")
+       logn = wlogn
+       write(wlogn,*) 'ccc logn, wlogn values: ', logn, wlogn
     ELSE
        wlogn = 1000
        OPEN(wlogn, FILE="/dev/null")
@@ -465,7 +467,7 @@ SUBROUTINE mpidrv_worker (comm)
              CALL flush(wlogn)
 
              IF (check%ranges /= NO_CHECK) THEN
-               WRITE (*, *) "Checking parameter ranges"
+               WRITE (wlogn, *) "Checking parameter ranges"
                CALL constant_check_range(soil, veg, 0, met)
              END IF