From 2c540bd4efc9bfbdf66b694cb2817ef53de225b1 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Tue, 6 Jul 2021 10:38:57 +0200
Subject: [PATCH] minor changes
---
src/tesend.F90 | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/tesend.F90 b/src/tesend.F90
index 914dbba3..a0795506 100644
--- a/src/tesend.F90
+++ b/src/tesend.F90
@@ -10,8 +10,7 @@ SUBROUTINE tesend
!________________________________________________________________________________
! 1. Some processors had set nlend
- CALL mpi_allreduce(nlend, mlend, 1, MPI_LOGICAL, MPI_LOR, MPI_COMM_WORLD, &
- & ierr)
+ CALL mpi_allreduce(nlend, mlend, 1, MPI_LOGICAL, MPI_LOR, MPI_COMM_WORLD, ierr)
IF( mlend ) THEN
nlend = .TRUE.
crashed = .TRUE.
@@ -40,11 +39,12 @@ SUBROUTINE tesend
!
!________________________________________________________________________________
- ! 4. Test on rune time
+ ! 4. Test on run time
CALL cpu_time(tnow)
mlend = (1.2*(tnow-start)) .GT. maxruntime
- CALL mpi_allreduce(mlend, nlend, 1, MPI_LOGICAL, MPI_LOR, MPI_COMM_WORLD, &
- & ierr)
+
+
+ CALL mpi_allreduce(mlend, nlend, 1, MPI_LOGICAL, MPI_LOR, MPI_COMM_WORLD, ierr)
IF ( nlend ) THEN
IF(my_id.EQ.0) WRITE(*,'(/a)') 'Max run time reached'
RETURN
--
GitLab