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

typo on crashed variable

parent de2eb440
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment