anchor.diff:     REAL(ReKi)                    :: V_tmp                ! interpolated V       at input TIME
      REAL(ReKi)                    :: VZ_tmp               ! interpolated VZ      at input TIME
   
  -   
  -   
  +
  +
      ErrStat = ErrID_None
   
      SELECT CASE ( ParamData%WindFileType )
         CASE (HH_WindNumber)
  -            
  +
            !-------------------------------------------------------------------------------------------------
  -         ! Linearly interpolate in time (or use nearest-neighbor to extrapolate) 
  +         ! Linearly interpolate in time (or use nearest-neighbor to extrapolate)
            ! (compare with NWTC_Num.f90\InterpStpReal)
            !-------------------------------------------------------------------------------------------------
   
  -      
  +
               ! Let's check the limits.
            IF ( Time <= OtherStates%HHWind%Tdata(1) .OR. OtherStates%HHWind%NumDataLines == 1 )  THEN
   
  
positive.code: 
              END DO
  
           END IF         
                                        
        !-------------------------------------------------------------------------------------------------
        ! calculate the wind speed at this time
        !-------------------------------------------------------------------------------------------------
        
           WindInf_ADhack_diskVel(1) =  V_tmp * COS( Delta_tmp )
           WindInf_ADhack_diskVel(2) = -V_tmp * SIN( Delta_tmp )
           WindInf_ADhack_diskVel(3) =  VZ_tmp      
                                    
  
  
        CASE (FF_WindNumber)
  
           WindInf_ADhack_diskVel(1)   = OtherStates%FFWind%MeanFFWS
           WindInf_ADhack_diskVel(2:3) = 0.0                 
  
        CASE DEFAULT
           ErrStat = ErrID_Fatal
  
negative.code: 
           ! Local variables
  
        TYPE(IfW_HHWind_InitInputType)                     :: HH_InitData       ! initialization info
        TYPE(IfW_HHWind_InputType)                         :: HH_InData         ! input positions.
        TYPE(IfW_HHWind_ContinuousStateType)               :: HH_ContStates     ! Unused
        TYPE(IfW_HHWind_DiscreteStateType)                 :: HH_DiscStates     ! Unused
        TYPE(IfW_HHWind_ConstraintStateType)               :: HH_ConstrStates   ! Unused
        TYPE(IfW_HHWind_OutputType)                        :: HH_OutData        ! output velocities
  
        TYPE(IfW_FFWind_InitInputType)                     :: FF_InitData       ! initialization info
        TYPE(IfW_FFWind_InputType)                         :: FF_InData         ! input positions.
        TYPE(IfW_FFWind_ContinuousStateType)               :: FF_ContStates     ! Unused
        TYPE(IfW_FFWind_DiscreteStateType)                 :: FF_DiscStates     ! Unused
        TYPE(IfW_FFWind_ConstraintStateType)               :: FF_ConstrStates   ! Unused
        TYPE(IfW_FFWind_OutputType)                        :: FF_OutData        ! output velocities
  
  
  
  