From 37b681082b9698115d61f752cf7de70a7fb3b299 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Thu, 24 Jun 2021 11:19:20 +0200
Subject: [PATCH] reduce the terminal output at the end
---
src/tesend.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/tesend.F90 b/src/tesend.F90
index cf1ceed5..914dbba3 100644
--- a/src/tesend.F90
+++ b/src/tesend.F90
@@ -46,7 +46,7 @@ SUBROUTINE tesend
CALL mpi_allreduce(mlend, nlend, 1, MPI_LOGICAL, MPI_LOR, MPI_COMM_WORLD, &
& ierr)
IF ( nlend ) THEN
- WRITE(*,'(/a)') 'Max run time reached'
+ IF(my_id.EQ.0) WRITE(*,'(/a)') 'Max run time reached'
RETURN
END IF
!
--
GitLab