close all

[fname, dpath] = uigetfile('*141x121.flat');
if ~isequal(fname,0) & ~isequal(dpath,0)
fpath = fullfile(dpath, fname);

fid = fopen(fname,'r');
MSST = fread(fid,[141,121],'float'); 
fclose('all');

MSST = rot90(MSST,1); MSST = flipud(MSST);

imagesc(MSST); h=colorbar; % a=flipud(colormap('hsv'))
caxis([273.15 300.15]);a=colormap('jet');a(1,:)=[1 1 1];colormap(a);

tlt=['Group for High Resolution SST ', fname(1:8)];title(tlt);
set(get(h,'ylabel'),'String','GHRSST(K)','fontsize',12,'Rotation',90);
xlabel('column --->');ylabel('<--- line');
else
    disp('ファイルがありません。');
end;