%-----------------------------------------------------------------------
function plot_qklook()
%-----------------------------------------------------------------------
%==========================================================================
% A quik look of the prepared input for MODIS SRB SHORTWAVE ===============
% Binary files 
% RES ~1deg OR 5km ~
% SatName MODIS Terra or Aqua 
% group members: cli  ~ Chuan Li
%               ytma  ~ Yingtao Ma
%              wchen  ~ Wen Chen
%=======================================================================
addpath('/data/srb1/wchen/tools/m_fx','-end');
addpath('/data/srb1/wchen/tools/m_map','-end');

% global SatName
  
   
   nVar  = 21;
   
   nLat  = 406;
   nLon  = 270;
   
   Sat   = 'aqua'  
   dataType = 'float32';
     

 
filename  = '../input/input/2015/aqua/modis.aqua.2015243.1845.input';
   fid = fopen(filename,'r');
   dimsza= fread(fid,2,'int32')
   MISG  = fread(fid,1,'float32')
   data  = fread(fid,nVar*nLon*nLat,'float32');
   data(data<-9990.)=NaN;
   data1 = reshape(data,[nVar nLon nLat]); 
   for ivar =3:21;
%     ivar =3;
     
     
     I    = squeeze(data1(ivar,:,:));
    
            figure();
            imagesc(I);
   end 
   clear data


