anchor.diff:  
            ! Local variables
   
  -      TYPE(IfW_HHWind_InputType)                         :: HH_InitData       ! 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_InputType)                         :: FF_InitData       ! 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    
  +      TYPE(IfW_HHWind_InputType)                         :: HH_InitData       ! 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_InputType)                         :: FF_InitData       ! 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
   
   
   !     TYPE(CT_Backgr)                                    :: BackGrndValues
  
positive.code:          !----------------------------------------------------------------------------------------------
  
        ParamData%DT            = TimeInterval             ! InflowWind does not require a specific time interval, so this is never changed.
        ParamData%WindFileType  = InitData%WindFileType    
        ParamData%WindFileName  = InitData%WindFileName    
  
        CALL NWTC_Init()                                   ! This might not be needed
        CALL DispNVD( IfW_Ver )                            ! This might be changed later
  
negative.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
  