anchor.diff:  !  1 Aug 2012    v1.01.00a-bjj                              B. Jonkman
   ! 10 Aug 2012    v1.01.00b-bjj                              B. Jonkman
   !----------------------------------------------------------------------------------------------------
  -!  
  +!
   !..................................................................................................................................
   ! LICENSING
   ! Copyright (C) 2012  National Renewable Energy Laboratory
   !
   !    This file is part of InflowWind.
   !
  -!    InflowWind is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as 
  +!    InflowWind is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as
   !    published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
   !
   !    This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty
   !    of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  -!    
  -!    You should have received a copy of the GNU General Public License along with InflowWind.  
  +!
  +!    You should have received a copy of the GNU General Public License along with InflowWind.
   !    If not, see <http://www.gnu.org/licenses/>.
  -!    
  +!
   !**********************************************************************************************************************************
   
      USE                              NWTC_Library
  
positive.code: !! !      VXGBAR = 0.25*( VXGBAR + FDWind( 1 ) )
  !! !      VYGBAR = 0.25*( VYGBAR + FDWind( 2 ) )
  !! !      VZGBAR = 0.25*( VZGBAR + FDWind( 3 ) )
  !! 
  !! 
  !!          Position(1) = 0.0
  !!          InflowWind_ADhack_diskVel(:) = 0.0
  !! 
  !!          DO IY = -1,1,2
  !!             Position(2)  =  IY*FD_GetValue('RotDiam',ErrStat)
  !! 
  !!             DO IZ = -1,1,2
  !!                Position(3)  = IZ*InpPosition(2) + InpPosition(3)
  !! 
  !!                NewVelocity = InflowWind_GetVelocity(Time, Position, ErrStat)
  !!                InflowWind_ADhack_diskVel(:) = InflowWind_ADhack_diskVel(:) + NewVelocity%Velocity(:)
  !!             END DO
  !!          END DO
  !!          InflowWind_ADhack_diskVel(:) = 0.25*InflowWind_ADhack_diskVel(:)
  !! 
  !!       CASE (HAWC_Wind)
  !!          InflowWind_ADhack_diskVel(1)   = HW_GetValue('UREF', ErrStat)
  !!          InflowWind_ADhack_diskVel(2:3) = 0.0
  !! 
  !!       CASE DEFAULT
  !!          CALL WrScr(' Error: Undefined wind type in InflowWind_ADhack_diskVel(). '// &
  !!                     'Call WindInflow_Init() before calling this function.' )
  !!          ErrStat = 1
  !! 
  !!    END SELECT
  !! 
  !!    RETURN
  !! 
  !! END FUNCTION InflowWind_ADhack_diskVel
  !====================================================================================================
  FUNCTION InflowWind_ADhack_DIcheck( ParamData, ErrStat )
  ! This function should be deleted ASAP.  It's purpose is to reproduce results of AeroDyn 12.57;
  ! it performs a wind speed check for the dynamic inflow initialization
  ! it returns MFFWS for the FF wind files; for all others, a sufficiently large number is used ( > 8 m/s)
  
negative.code: RETURN
  END SUBROUTINE GetWindType
  !====================================================================================================
  SUBROUTINE InflowWind_LinearizePerturbation( ParamData, LinPerturbations, ErrStat, ErrMsg )
  ! This function is used in FAST's linearization scheme.  It should be fixed at some point.
  !----------------------------------------------------------------------------------------------------
  
  