From 8330ee6bacdb3d211260cbd44c0bad2b3971745f Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Thu, 17 Dec 2020 15:07:57 +0100
Subject: [PATCH] improve finish conditions for MPI
---
src/tesend.F90 | 3 +++
1 file changed, 3 insertions(+)
diff --git a/src/tesend.F90 b/src/tesend.F90
index 6bbd7359..3ee2acc2 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
--
GitLab