From c01895f0ca255607b7116656d16c1460dc9fcdef Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Mon, 1 Feb 2021 12:51:00 +0100
Subject: [PATCH] typo on crashed variable
---
src/basic_mod.F90 | 2 +-
src/tesend.F90 | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/basic_mod.F90 b/src/basic_mod.F90
index a0205cbc..6625c8e3 100644
--- a/src/basic_mod.F90
+++ b/src/basic_mod.F90
@@ -16,7 +16,7 @@ MODULE basic
INTEGER :: cstep = 0 ! Current step number (Init from restart file)
LOGICAL :: RESTART = .FALSE. ! Signal end of run
LOGICAL :: nlend = .FALSE. ! Signal end of run
- LOGICAL :: crash = .FALSE. ! Signal end of crashed run
+ LOGICAL :: crashed = .FALSE. ! Signal end of crashed run
INTEGER :: ierr ! flag for MPI error
INTEGER :: my_id ! identification number of current process
diff --git a/src/tesend.F90 b/src/tesend.F90
index ec76bb15..cf1ceed5 100644
--- a/src/tesend.F90
+++ b/src/tesend.F90
@@ -13,8 +13,8 @@ SUBROUTINE tesend
CALL mpi_allreduce(nlend, mlend, 1, MPI_LOGICAL, MPI_LOR, MPI_COMM_WORLD, &
& ierr)
IF( mlend ) THEN
- nlend = .TRUE.
- crash = .TRUE.
+ nlend = .TRUE.
+ crashed = .TRUE.
IF (my_id .EQ. 0) WRITE(*,'(/a)') 'rhs are NaN/Inf'
IF (my_id .EQ. 0) WRITE(*,*) 'Run terminated at cstep=',cstep
RETURN
--
GitLab