cp at end of sim only if not crashed simulation

src/basic_mod.F90

@@ -16,6 +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
 
   INTEGER :: ierr                  ! flag for MPI error
   INTEGER :: my_id                 ! identification number of current process

src/diagnose.F90

@@ -261,7 +261,7 @@ SUBROUTINE diagnose(kstep)
 
      !   Close all diagnostic files
      CALL closef(fidres)
-     IF (nsave_cp .GT. 0) THEN
+     IF ((nsave_cp .GT. 0) .AND. (.NOT. crashed)) THEN
       CALL checkpoint_save(cp_counter)
       CALL closef(fidrst)
      ENDIF

src/tesend.F90

@@ -14,6 +14,7 @@ SUBROUTINE tesend
      &             ierr)
   IF( mlend ) THEN
     nlend = .TRUE.
+    crash = .TRUE.
     IF (my_id .EQ. 0) WRITE(*,'(/a)') 'rhs are NaN/Inf'
     IF (my_id .EQ. 0) WRITE(*,*) 'Run terminated at cstep=',cstep
     RETURN