%
% a piece of code to read SeeBor V5.0 With BF emis
%
%  October 2007, Eva Borbas UW/CIMSS
%
%%%%%%%%%%%%%%%%%%%%%%%%
% reading training data
%%%%%%%%%%%%%%%%%%%%%%%%
nrec=15704;
recl=338;

fn='SeeBorV5.1_Training_data_Emis10inf2004.bin';

fid=fopen(fn,'r');
clear a prof
a=fread(fid,'float32')';
prof=reshape(a,recl,nrec);

tprof=prof(1:101,:); %from top to the surface
mrprof=(102:202,:);
o3prof=(203:303,:);

lat=prof(304,:);
lon=prof(305,:);
sfpres=prof(306,:);
skint=prof(307,:);
windsp=prof(308,:);
tpw=prof(309,:);
igbp=prof(310,:);
elev=prof(311,:);
landfr=prof(312,:);
year=prof(313,:);
month=prof(314,:);
day=prof(315,:);
hour=prof(316,:);
prtype=prof(317,:);
wavelen=prof(318:327,:);
bfemis=prof(328:337,:);


