Skip to content
Snippets Groups Projects
Commit 5348e128 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann :seedling:
Browse files

cleaner std output

parent 61a80ff8
No related branches found
No related tags found
No related merge requests found
......@@ -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')
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment