anchor.diff:  
   CONTAINS
   !====================================================================================================
  -FUNCTION GetWindType( FileName, ErrStat )
  +SUBROUTINE GetWindType( ParamData, ErrStat, ErrMsg )
   !  This subroutine checks the file FileName to see what kind of wind file we are using.  Used when
   !  the wind file type is unknown.
   !----------------------------------------------------------------------------------------------------
  -
  +!FIXME: may want to change this to a subroutine that sets stuff in the passed IfW_ParameterType variable
   
      IMPLICIT             NONE
   
   
         ! Passed Variables:
   
  -   CHARACTER(*),INTENT(INOUT) :: FileName
  -   INTEGER, INTENT(OUT)       :: ErrStat
  -
  -      ! Function definition
  -   INTEGER                    :: GetWindType
  +   TYPE( IfW_ParameterType),        INTENT(INOUT)     :: ParamData
  +   INTEGER(IntKi),                  INTENT(  OUT)     :: ErrStat
  +   CHARACTER(*),                    INTENT(  OUT)     :: ErrMsg
  +
   
         ! Local Variables:
   
  -   INTEGER                    :: IND
  -   LOGICAL                    :: Exists
  -
  -   CHARACTER(  3)             :: FileNameEnd
  -   CHARACTER(  8)             :: WndFilNam
  -
  -   CHARACTER(1024)            :: FileRoot
  -
  -
  -   ErrStat = 0
  +   INTEGER                                            :: IND
  +   LOGICAL                                            :: Exists
  +
  +   CHARACTER(1024)                                    :: FileName       ! Temporary name holder
  +   CHARACTER(  3)                                     :: FileNameEnd
  +   CHARACTER(  8)                                     :: WndFilNam      ! Temporary name holder
  +
  +   CHARACTER(1024)                                    :: FileRoot
  +
  +
  +   ErrStat  = 0
  +   ErrMsg   = ""
   
      !-------------------------------------------------------------------------------------------------
      ! Check for user-defined wind file first; file starts with "USERWIND"
      !-------------------------------------------------------------------------------------------------
   
  -   WndFilNam = FileName
  -   CALL Conv2UC( WndFilNam )
  +   WndFilNam = ParamData%WindFileName
  +   FileName  = ParamData%WindFileName
  +   CALL Conv2UC( WndFilNam )              ! convert name to upper case
   
      IF ( WndFilNam == 'USERWIND' )  THEN
   
         CALL WrScr1( ' Detected user-defined wind file.' )
  -      GetWindType = UD_Wind
  +      ParamData%WindFileType = UD_Wind
   
         RETURN
      END IF
  
positive.code:          INQUIRE ( FILE=FileName(1:IND)//'sum' , EXIST=Exists )
           IF (Exists) THEN
              CALL WrScr1(' Assuming '//TRIM(FileName)//' is a binary FF wind file.')
              GetWindType = FF_Wind
           ELSE
              CALL WrScr1(' Assuming '//TRIM(FileName)//' is a formatted HH wind file.')
              GetWindType = HH_Wind
           END IF
  
        CASE ('BTS')
           CALL WrScr1(' Assuming '//TRIM(FileName)//' is a binary FF wind file.')
           GetWindType = FF_Wind
  
        CASE ('CTP')
           CALL WrScr1(' Assuming '//TRIM(FileName)//' is a coherent turbulence wind file.')
           GetWindType = CTP_Wind
  
        CASE ('FDP')
           CALL WrScr1(' Assuming '//TRIM(FileName)//' is a binary 4-dimensional wind file.')
           GetWindType = FD_Wind
  
        CASE ('HWC')
           CALL WrScr1(' Assuming '//TRIM(FileName)//' contains full-field wind parameters in HAWC format.')
           GetWindType = HAWC_Wind
  
        CASE DEFAULT
           CALL WrScr1(' Assuming '//TRIM(FileName)//' is a formatted HH wind file.')
           GetWindType = HH_Wind
  
     END SELECT
  
  
  RETURN
  END FUNCTION GetWindType
  !====================================================================================================
  SUBROUTINE InflowWind_LinearizePerturbation( IfW_ParamData, LinPerturbations, ErrStat )
  ! This function is used in FAST's linearization scheme.  It should be fixed at some point.
  !----------------------------------------------------------------------------------------------------
  
        ! Passed variables
  
     TYPE( IfW_ParameterType),        INTENT(INOUT)     :: IfW_ParamData
  
     INTEGER,                         INTENT(OUT)       :: ErrStat
  
  
negative.code: 
     ErrStat = 0
  
     SELECT CASE ( ParamData%WindFileType )
        CASE (HH_Wind, UD_Wind, FD_Wind )
  
           InflowWind_ADhack_DIcheck = 50  ! just return something greater than 8 m/s
  