anchor.diff:              IF (TmpErrStat /= 0) THEN
                  ParamData%NTGrids  = 0
                  CALL SetErrStat( ErrID_Fatal, ' Error reading TI('//TRIM(Num2LStr(IC))//') in the binary tower file "' &
  -                               //TRIM( InitData%WindFileName )//'."', ErrStat, ErrMsg, RoutineName )
  +                               //TRIM( TwrFile )//'."', ErrStat, ErrMsg, RoutineName )
                  RETURN
               ENDIF
            
  
positive.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(InitData%WindFileName), 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 )
  
negative.code:             ! This is a 4-byte integer, so we can't use the library read routines.
           READ (UnitWind, IOSTAT=TmpErrStat)   Dum_Int4                ! NumOutSteps [4-byte INTEGER]
              IF ( TmpErrStat /= 0 )  THEN
                 CALL SetErrStat( ErrID_Fatal, ' Error reading NumOutSteps in the binary tower file "'//TRIM( TwrFile )//'."', ErrStat, ErrMsg, RoutineName )
                 RETURN
              ENDIF
  
  