anchor.diff:           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
  +            ParamData%WindFileType = FF_Wind
            ELSE
               CALL WrScr1(' Assuming '//TRIM(FileName)//' is a formatted HH wind file.')
  -            GetWindType = HH_Wind
  +            ParamData%WindFileType = HH_Wind
            END IF
   
         CASE ('BTS')
            CALL WrScr1(' Assuming '//TRIM(FileName)//' is a binary FF wind file.')
  -         GetWindType = FF_Wind
  +         ParamData%WindFileType = FF_Wind
   
         CASE ('CTP')
            CALL WrScr1(' Assuming '//TRIM(FileName)//' is a coherent turbulence wind file.')
  -         GetWindType = CTP_Wind
  +         ParamData%WindFileType = CTP_Wind
   
         CASE ('FDP')
            CALL WrScr1(' Assuming '//TRIM(FileName)//' is a binary 4-dimensional wind file.')
  -         GetWindType = FD_Wind
  +         ParamData%WindFileType = FD_Wind
   
         CASE ('HWC')
            CALL WrScr1(' Assuming '//TRIM(FileName)//' contains full-field wind parameters in HAWC format.')
  -         GetWindType = HAWC_Wind
  +         ParamData%WindFileType = HAWC_Wind
   
         CASE DEFAULT
            CALL WrScr1(' Assuming '//TRIM(FileName)//' is a formatted HH wind file.')
  -         GetWindType = HH_Wind
  +         ParamData%WindFileType = HH_Wind
   
      END SELECT
   
   
   RETURN
  -END FUNCTION GetWindType
  +END SUBROUTINE GetWindType
   !====================================================================================================
  -SUBROUTINE InflowWind_LinearizePerturbation( IfW_ParamData, LinPerturbations, ErrStat )
  +SUBROUTINE InflowWind_LinearizePerturbation( 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
  +   TYPE( IfW_ParameterType),        INTENT(INOUT)     :: ParamData
   
      INTEGER,                         INTENT(OUT)       :: ErrStat
   
  
positive.code: !! 
  !! END FUNCTION InflowWind_ADhack_diskVel
  !====================================================================================================
  FUNCTION InflowWind_ADhack_DIcheck( IfW_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:    !-------------------------------------------------------------------------------------------------
     ! Get the file extension (or at least what we expect the extension to be)
     !-------------------------------------------------------------------------------------------------
     CALL GetRoot ( ParamData%WindFileName, ParamData%WindFileNameRoot )            ! Get the root name
  
     IND = LEN_TRIM( ParamData%WindFileNameRoot ) + 1
     IF ( IND < LEN_TRIM( ParamData%WindFileName ) ) THEN
           ! Get the extention, starting at first character past (may not be the whole "extension")
        FileNameEnd = ParamData%WindFileName(IND+1:)
        CALL Conv2UC (FileNameEnd)
     ELSE
        FileNameEnd = ""
  