diff --git a/src/tesend.F90 b/src/tesend.F90 index cf1ceed57ec7137894011201fee069cc28357f69..914dbba3585551a688d840e46b3bd2868fdcafe0 100644 --- a/src/tesend.F90 +++ b/src/tesend.F90 @@ -46,7 +46,7 @@ SUBROUTINE tesend CALL mpi_allreduce(mlend, nlend, 1, MPI_LOGICAL, MPI_LOR, MPI_COMM_WORLD, & & ierr) IF ( nlend ) THEN - WRITE(*,'(/a)') 'Max run time reached' + IF(my_id.EQ.0) WRITE(*,'(/a)') 'Max run time reached' RETURN END IF !