From 5348e128974a2fee0de3ff50bcb2a085249c3564 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Tue, 26 Sep 2023 16:14:43 +0200
Subject: [PATCH] cleaner std output
---
src/auxval.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/auxval.F90 b/src/auxval.F90
index 02914241..64cdf8b3 100644
--- a/src/auxval.F90
+++ b/src/auxval.F90
@@ -77,9 +77,9 @@ subroutine auxval
' local_nz = ', local_nz , ', offset = ', local_nz_offset
IF (my_id .NE. num_procs-1) WRITE (*,*) ''
IF (my_id .EQ. num_procs-1) WRITE(*,*) '------------------------------------------'
+ IF (my_id .EQ. num_procs-1) CALL FLUSH(OUTPUT_UNIT)
ENDIF
ENDDO
- CALL FLUSH(OUTPUT_UNIT)
CALL mpi_barrier(MPI_COMM_WORLD, ierr)
SELECT CASE(hierarchy_closure)
CASE('truncation')
--
GitLab