From a60ba89107329c49c1470ebddbc40214219c1bf5 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Tue, 15 Dec 2020 14:48:27 +0100
Subject: [PATCH] Exit 10% earlier than the CPU time asked to ensure final
diagnostics
---
src/tesend.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/tesend.F90 b/src/tesend.F90
index 91d438ca..6bbd7359 100644
--- a/src/tesend.F90
+++ b/src/tesend.F90
@@ -36,7 +36,7 @@ SUBROUTINE tesend
!________________________________________________________________________________
! 4. Test on rune time
CALL cpu_time(finish)
- nlend = (finish-start) .GT. maxruntime
+ nlend = 1.1*(finish-start) .GT. maxruntime
IF ( nlend ) THEN
IF (my_id .EQ. 0) WRITE(*,'(/a)') 'Max run time reached'
RETURN
--
GitLab