anchor.diff:        
      END DO ! n_t_global
     
  -   IF (UnErrLog > 0) CLOSE(UnErrLog)
     
      !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
      !  Write simulation times and stop
  
positive.code: CHARACTER(1024)                       :: CheckpointRoot                          ! Rootname of the checkpoint file
  CHARACTER(20)                         :: FlagArg                                 ! flag argument from command line
  INTEGER(IntKi)                        :: Restart_step                            ! step to start on (for restart) 
  INTEGER(IntKi)                        :: UnErrLog                                ! File unit for error log file
  
        !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        ! determine if this is a restart from checkpoint
  
negative.code:       
        IF ( ErrID /= ErrID_None ) THEN
           CALL WrScr( NewLine//TRIM(Msg)//NewLine )
           
           IF ( ErrID >= AbortErrLev ) THEN
              IF (UnErrLog > 0) CLOSE(UnErrLog)
  