anchor.diff:              ! This is a 4-byte real, so we can't use the library read routines.
            READ (UnitWind, IOSTAT=TmpErrStat)   Dum_Real4               ! UHub      [4-byte REAL]
               IF ( TmpErrStat /= 0 )  THEN
  -               CALL SetErrStat( ErrID_Fatal, ' Error reading UHub in the binary tower file "'//TRIM( InitData%WindFileName )//'."', ErrStat, ErrMsg, RoutineName )
  +               CALL SetErrStat( ErrID_Fatal, ' Error reading UHub in the binary tower file "'//TRIM( TwrFile )//'."', ErrStat, ErrMsg, RoutineName )
                  RETURN
               ENDIF
   
  
positive.code:             ! This is a 4-byte real, so we can't use the library read routines.
           READ (UnitWind, IOSTAT=TmpErrStat)   Dum_Real4               ! dz, in meters [4-byte REAL]
              IF ( TmpErrStat /= 0 )  THEN
                 CALL SetErrStat( ErrID_Fatal, ' Error reading dz in the binary tower file "'//TRIM( InitData%WindFileName )//'."', ErrStat, ErrMsg, RoutineName )
                 RETURN
              ENDIF
  
  
negative.code:                ! Read the TI values fromthe tower file: 4-byte reals.
                 
                 !bjj: not sure you can call this routine to read from a binary file...
              !CALL ReadVar( UnitWind, TRIM(TwrFile), TI(IC), 'TI('//TRIM(Num2LStr(IC))//')', 'TI value for u,v, or w', TmpErrStat, TmpErrMsg )
              !IF (TmpErrStat /= ErrID_None) THEN
              !   ParamData%NTGrids  = 0
              !   CALL SetErrStat( TmpErrStat, TmpErrMsg, ErrStat, ErrMsg, RoutineName )
  