diff --git a/src/basic_mod.F90 b/src/basic_mod.F90
index a0205cbc79f981d6e6e1c045de3e98168fa0a2e9..6625c8e3db87d068d3398b62175fe1bdec6321d2 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 ec76bb15c3918180687f37033565f753d78937ec..cf1ceed57ec7137894011201fee069cc28357f69 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