diff --git a/src/auxval.F90 b/src/auxval.F90 index 02914241b177a8daa5aab11080f86fb1013ec6e4..64cdf8b34101fa492437363a46eb5c15cb54c1f2 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')