From 7bbf6c28b28343204c95a120150843dcd95f020f Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Mon, 25 Sep 2023 18:21:28 +0200
Subject: [PATCH] cleaner output
---
src/auxval.F90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/auxval.F90 b/src/auxval.F90
index f54b3c38..02914241 100644
--- a/src/auxval.F90
+++ b/src/auxval.F90
@@ -1,6 +1,6 @@
subroutine auxval
! Set auxiliary values, at beginning of simulation
-
+ USE, intrinsic :: iso_fortran_env, ONLY: OUTPUT_UNIT
USE basic, ONLY: str, speak
USE grid, ONLY: local_np, local_np_offset, total_np, local_nj, local_nj_offset,&
local_nky, local_nky_offset, total_nky, local_nkx, local_nkx_offset, dmax,&
@@ -79,8 +79,8 @@ subroutine auxval
IF (my_id .EQ. num_procs-1) WRITE(*,*) '------------------------------------------'
ENDIF
ENDDO
+ CALL FLUSH(OUTPUT_UNIT)
CALL mpi_barrier(MPI_COMM_WORLD, ierr)
-
SELECT CASE(hierarchy_closure)
CASE('truncation')
CALL speak('Truncation closure')
--
GitLab