anchor.diff:     DO i_turb = 1,NumTurbines
         CALL FAST_CreateCheckpoint_T(t_initial, n_t_global, NumTurbines, Turbine(i_turb), CheckpointRoot, ErrStat2, ErrMsg2, Unit )
            CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  -         IF (ErrStat >= AbortErrLev ) RETURN
  +         if (ErrStat >= AbortErrLev ) then
  +            if (Unit > 0) close(Unit)
  +            RETURN
  +         end if
  +         
      END DO
                  
      
  
positive.code:       end if      
     END IF
     
     
                    
  END SUBROUTINE FAST_CreateCheckpoint_T
  !----------------------------------------------------------------------------------------------------------------------------------
  !> Routine that calls FAST_RestoreFromCheckpoint_T for an array of Turbine data structures. 
  
negative.code:       ! Get the arrays of data to be stored in the output file
     CALL FAST_PackTurbineType( ReKiBuf, DbKiBuf, IntKiBuf, Turbine, ErrStat2, ErrMsg2 )
        CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
        if (ErrStat >= AbortErrLev ) then
           call cleanup()
           RETURN
        end if
        
        
     ArraySizes = 0   
     IF ( ALLOCATED(ReKiBuf)  ) ArraySizes(1) = SIZE(ReKiBuf)
  