anchor.diff:  
      ErrStat = 0
   
  -   SELECT CASE ( IfW_ParamData%WindType )
  +   SELECT CASE ( ParamData%WindFileType )
         CASE (HH_Wind)
   
            CALL HH_SetLinearizeDels( LinPerturbations, ErrStat )
  
positive.code: 
  CONTAINS
  !====================================================================================================
  FUNCTION GetWindType( FileName, ErrStat )
  !  This subroutine checks the file FileName to see what kind of wind file we are using.  Used when
  !  the wind file type is unknown.
  !----------------------------------------------------------------------------------------------------
  
  
     IMPLICIT             NONE
  
  
        ! Passed Variables:
  
     CHARACTER(*),INTENT(INOUT) :: FileName
     INTEGER, INTENT(OUT)       :: ErrStat
  
        ! Function definition
     INTEGER                    :: GetWindType
  
        ! Local Variables:
  
     INTEGER                    :: IND
     LOGICAL                    :: Exists
  
     CHARACTER(  3)             :: FileNameEnd
     CHARACTER(  8)             :: WndFilNam
  
     CHARACTER(1024)            :: FileRoot
  
  
     ErrStat = 0
  
     !-------------------------------------------------------------------------------------------------
     ! Check for user-defined wind file first; file starts with "USERWIND"
     !-------------------------------------------------------------------------------------------------
  
     WndFilNam = FileName
     CALL Conv2UC( WndFilNam )
  
     IF ( WndFilNam == 'USERWIND' )  THEN
  
        CALL WrScr1( ' Detected user-defined wind file.' )
        GetWindType = UD_Wind
  
        RETURN
     END IF
  
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 = ""
  