
function d = test_read_eos_fields(f);
%
% function d = test_read_eos_fields(f);
%

%dn = '/taro/s2/jpl/ops/sim/v2_2_0_aa_nn/2000/12/15/airibrad';
%fn = 'AIRS.2000.12.15.124.L1B.AIRS_Rad.v2.2.0.33.v2_2_0_aa_nn.S000';

%dn = '/home/davet/airs/weather/airs/tlscf/2000/12/15/airibrad/';
%fn = 'AIRS.2000.12.15.081.L1B.AIRS_Rad.v2.2.0.64.A000';

%dn = '/home/davet/airs/weather/airs/tlscf/2000/12/airx2mat/';
%fn = 'AIRS.2000.12.15.T00Z.L2.Match_RaObs.a.v2.2.0.85.A000';

%f  = fullfile(dn,fn);

if nargin == 0
  [fn,dn] = uigetfile;
  f  = fullfile(dn,fn);
end

s  = 'L1B_AIRS_Science';

start  = '[]';
stride = '[]';
edge   = '[]';
		
clear flist

% $$$ % First way
% $$$ flist(1) = {'radiances'};
% $$$ flist(2) = {'spectral_freq'};
% $$$ flist(3) = {'Latitude'};
% $$$ flist(4) = {'Longitude'};
% $$$ flist(5) = {'scanang'};
% $$$ flist(6) = {'solzen'};
% $$$ flist(7) = {'landFrac'};

% $$$ % Second way
% $$$ d = read_eos_fields(f,s,'scanang','landFrac','Longitude',start,stride,edge);

% Third way
%flist = {'radiances','spectral_freq','Latitude','Time',...
%	 'Longitude','scanang','scanang','landFrac','CalFlag','NeN',...
%         'CalGranSummary','CalChanSummary','ExcludedChans','PopCount',...
%         'CalScanSummary'};

% MMG - PopCount and CalGranSummary are giving errors so I've removed
% them...
flist = {'radiances','spectral_freq','Latitude','Time',...
	 'Longitude','scanang','scanang','landFrac','CalFlag','NeN',...
         'CalChanSummary','ExcludedChans',...
         'CalScanSummary'};



d = read_eos_fields(f,s,flist{:},start,stride,edge);

