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 ...@@ -16,7 +16,7 @@ MODULE basic
INTEGER :: cstep = 0 ! Current step number (Init from restart file) INTEGER :: cstep = 0 ! Current step number (Init from restart file)
LOGICAL :: RESTART = .FALSE. ! Signal end of run LOGICAL :: RESTART = .FALSE. ! Signal end of run
LOGICAL :: nlend = .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 :: ierr ! flag for MPI error
INTEGER :: my_id ! identification number of current process INTEGER :: my_id ! identification number of current process
......
...@@ -13,8 +13,8 @@ SUBROUTINE tesend ...@@ -13,8 +13,8 @@ SUBROUTINE tesend
CALL mpi_allreduce(nlend, mlend, 1, MPI_LOGICAL, MPI_LOR, MPI_COMM_WORLD, & CALL mpi_allreduce(nlend, mlend, 1, MPI_LOGICAL, MPI_LOR, MPI_COMM_WORLD, &
& ierr) & ierr)
IF( mlend ) THEN IF( mlend ) THEN
nlend = .TRUE. nlend = .TRUE.
crash = .TRUE. crashed = .TRUE.
IF (my_id .EQ. 0) WRITE(*,'(/a)') 'rhs are NaN/Inf' IF (my_id .EQ. 0) WRITE(*,'(/a)') 'rhs are NaN/Inf'
IF (my_id .EQ. 0) WRITE(*,*) 'Run terminated at cstep=',cstep IF (my_id .EQ. 0) WRITE(*,*) 'Run terminated at cstep=',cstep
RETURN RETURN
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment