(#359) - Set logn for workers

CABLE-LSM · Aug 5, 2024 · 93b16a1 · 93b16a1
1 parent 00c70ec
commit 93b16a1
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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