close all
fid = fopen('BATHY_421x361_4f.flat','r');
BATH = fread(fid,[421,361],'short'); 
fclose('all');

%BATH = rot90(BATH,1);
imagesc(BATH); colorbar;
% a=flipud(colormap('hsv'))
a=colormap('jet')
title('NOAA-ETOPO5 BATHYMETRY DATA');
caxis([-5000 10]);
