diff --git a/src/tesend.F90 b/src/tesend.F90
index 6bbd7359f99509207006d8b73a0bd64342ac0083..3ee2acc2e231ed30c7b459d524822e5a3e9905cb 100644
--- a/src/tesend.F90
+++ b/src/tesend.F90
@@ -5,9 +5,12 @@ SUBROUTINE tesend
 
   use prec_const
   IMPLICIT NONE
+  LOGICAL :: mlend
 
   !________________________________________________________________________________
   !                   1.  Some processors had set nlend
+  CALL mpi_allreduce(nlend, mlend, 1, MPI_LOGICAL, MPI_LOR, MPI_COMM_WORLD, &
+     &             ierr)
   IF( nlend ) THEN
     WRITE(*,'(/a)') 'rhs are NaN/Inf'
     IF (my_id .EQ. 0) WRITE(*,*) 'Run terminated at cstep=',cstep