From 94045429d225ebf66cf661e40c1c77e64025df41 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 24 May 2018 16:30:37 +0200
Subject: [PATCH] Philippe 24/05/2018: IO: bug correction: open OUTPUTLISTING
file only for processes that need to write to it
---
src/LIB/SURCOUCHE/src/mode_io.f90 | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io.f90 b/src/LIB/SURCOUCHE/src/mode_io.f90
index d33461393..0490663db 100644
--- a/src/LIB/SURCOUCHE/src/mode_io.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io.f90
@@ -377,9 +377,15 @@ CONTAINS
TPFILE%LMULTIMASTERS = .TRUE.
ELSE
IF (TPFILE%CTYPE=='OUTPUTLISTING') THEN
- TPFILE%NMASTER_RANK = -1
- TPFILE%LMASTER = .TRUE. !Every process may write in the file
- TPFILE%LMULTIMASTERS = .TRUE.
+ IF (LVERB_ALLPRC) THEN
+ TPFILE%NMASTER_RANK = -1
+ TPFILE%LMASTER = .TRUE. !Every process may write in the file
+ TPFILE%LMULTIMASTERS = .TRUE.
+ ELSE
+ TPFILE%NMASTER_RANK = ISIOP
+ TPFILE%LMASTER = (ISP == ISIOP)
+ TPFILE%LMULTIMASTERS = .FALSE.
+ END IF
ELSE
TPFILE%NMASTER_RANK = ISIOP
TPFILE%LMASTER = (ISP == ISIOP)
--
GitLab