anchor.diff:              ! This is a 4-byte real, so we can't use the library read routines.
            READ (UnitWind, IOSTAT=TmpErrStat)   Dum_Real4               ! Zmax, in meters [4-byte REAL]
               IF ( TmpErrStat /= 0 )  THEN
  -               CALL SetErrStat( ErrID_Fatal, ' Error reading Zmax in the binary tower file "'//TRIM( InitData%WindFileName )//'."', ErrStat, ErrMsg, RoutineName )
  +               CALL SetErrStat( ErrID_Fatal, ' Error reading Zmax in the binary tower file "'//TRIM( TwrFile )//'."', ErrStat, ErrMsg, RoutineName )
                  RETURN
               ENDIF
   
               IF ( ABS(Dum_Real4/ParamData%GridBase-1) > TOL ) THEN
  -               CALL SetErrStat( ErrID_Fatal, ' Height in the FF binary file does not match the tower file "'//TRIM( InitData%WindFileName )//'."', ErrStat, ErrMsg, RoutineName )
  +               CALL SetErrStat( ErrID_Fatal, ' Height in the FF binary file does not match the 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:             ! This is a 4-byte real, so we can't use the library read routines.
           READ (UnitWind, IOSTAT=TmpErrStat)   Dum_Real4               ! dx, in meters [4-byte REAL]
              IF ( TmpErrStat /= 0 )  THEN
                 CALL SetErrStat( ErrID_Fatal, ' Error reading dx in the binary tower file "'//TRIM( TwrFile )//'."', ErrStat, ErrMsg, RoutineName )
                 RETURN
              ENDIF
  
  