anchor.diff:        
         IF ( ErrID /= ErrID_None ) THEN
            CALL WrScr( NewLine//TRIM(Msg)//NewLine )
  -         IF (UnErrLog > 0) THEN
  -            WRITE (UnErrLog,'(/,A)')  TRIM(Num2LStr(ErrID))//':  '//Msg
  -         END IF
            
            IF ( ErrID >= AbortErrLev ) THEN
  -            IF (UnErrLog > 0) CLOSE(UnErrLog)
               IF (PRESENT(ErrLocMsg)) THEN
                  SimMsg = ErrLocMsg
               ELSE
  
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:       
     END DO ! n_t_global
    
    
     !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
     !  Write simulation times and stop
  