anchor.diff:  
            ! Close files here:
   
  -      close(p%UnOu)
   
            ! Destroy the input data:
   
  
positive.code:    errMsg  = ""
     n = int(t / p%dt)
     
  ! DEBUG INFO
     call GeneratePlaneOutputs(n,1,u,p)
  ! END DEBUG
     call LowResGridCalcOutput(n, u, p, y, m, errStat2, errMsg2)
        call SetErrStat ( errStat2, errMsg2, errStat, errMsg, RoutineName )
        if (errStat2 >= AbortErrLev) then 
  
negative.code:    p%WrDisWind        = InitInp%InputFileData%WrDisWind
     p%WrDisSkp1        = InitInp%InputFileData%WrDisSkp + 1
     
     call allocAry( p%OutDisWindZ, p%NOutDisWindXY, "OutDisWindZ", ErrStat2, ErrMsg2 )
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName)
        if ( ErrStat >= AbortErrLev ) then
  