Skip to content
Snippets Groups Projects
Commit a60ba891 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann
Browse files

Exit 10% earlier than the CPU time asked to ensure final diagnostics

parent 28963d05
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
src/tesend.F90
+ 1
− 1
View file @ a60ba891
...@@ -36,7 +36,7 @@ SUBROUTINE tesend ...@@ -36,7 +36,7 @@ SUBROUTINE tesend
!________________________________________________________________________________ !________________________________________________________________________________
! 4. Test on rune time ! 4. Test on rune time
CALL cpu_time(finish) CALL cpu_time(finish)
nlend = (finish-start) .GT. maxruntime nlend = 1.1*(finish-start) .GT. maxruntime
IF ( nlend ) THEN IF ( nlend ) THEN
IF (my_id .EQ. 0) WRITE(*,'(/a)') 'Max run time reached' IF (my_id .EQ. 0) WRITE(*,'(/a)') 'Max run time reached'
RETURN RETURN
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment