Skip to content
Snippets Groups Projects
Commit 37b68108 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann
Browse files

reduce the terminal output at the end

parent 6ebbf111
No related branches found
No related tags found
No related merge requests found
...@@ -46,7 +46,7 @@ SUBROUTINE tesend ...@@ -46,7 +46,7 @@ SUBROUTINE tesend
CALL mpi_allreduce(mlend, nlend, 1, MPI_LOGICAL, MPI_LOR, MPI_COMM_WORLD, & CALL mpi_allreduce(mlend, nlend, 1, MPI_LOGICAL, MPI_LOR, MPI_COMM_WORLD, &
& ierr) & ierr)
IF ( nlend ) THEN IF ( nlend ) THEN
WRITE(*,'(/a)') 'Max run time reached' IF(my_id.EQ.0) WRITE(*,'(/a)') 'Max run time reached'
RETURN RETURN
END IF END IF
! !
......
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