% clear all;
% temp=importdata('E:\CRUISES_RAW_data\GasExIII\UW_CO2\RB0802_lb2.CSV',',');
% disp(['Reading UWCO2 file'])
% 
% UW_CO2_air=[];jd_UW_CO2_air=[];
% UW_CO2_water=[];jd_UW_CO2_water=[];
% 
% for j=2:length(temp.textdata)
%     if strcmp(temp.textdata{j,1},'AIR')==1
%         UW_CO2_air=[UW_CO2_air str2num(temp.textdata{j,8})];
%         jd_UW_CO2_air=[jd_UW_CO2_air str2num(temp.textdata{j,4})];
%     elseif strcmp(temp.textdata{j,1},'WATER')==1
%         UW_CO2_water=[UW_CO2_water str2num(temp.textdata{j,8})];
%         jd_UW_CO2_water=[jd_UW_CO2_water str2num(temp.textdata{j,4})];
%     end;
% end

temp=importdata('E:\CRUISES_RAW_data\GasExIII\UW_CO2\RB0802_lb3.CSV',',');
disp(['Reading UWCO2 file'])

UW_CO2_air=[];jd_UW_CO2_air=[];
UW_CO2_water=[];jd_UW_CO2_water=[];

for j=2:length(temp.data)
    if strcmp(temp.textdata{j,1},'AIR')==1
        UW_CO2_air=[UW_CO2_air temp.data(j,5)];
        jd_UW_CO2_air=[jd_UW_CO2_air temp.data(j,1)];
    elseif strcmp(temp.textdata{j,1},'WATER')==1
        UW_CO2_water=[UW_CO2_water temp.data(j,5)];
        jd_UW_CO2_water=[jd_UW_CO2_water temp.data(j,1)];
    end;
end

% figure;plot(jd_UW_CO2_water,UW_CO2_water,'g.',jd_UW_CO2_air,UW_CO2_air,'b.');ylim([300 460]);
% legend('water concentration','air concentration');
% xlabel('JD 2008');ylabel('Concentration (umol/mol0');
% title('Air and Water CO2 concentrations from the AOML underway system')

% % e=['E:\CRUISES_RAW_data\GasExIII\UW_CO2\RB0802_lb2.CSV'];
% % flist=fopen(e,'r');
% % 
% % stx =textscan(flist,'%s %*s %*s %f  %*s %*s %*s %f %*[^\n]', 'delimiter', ', ', 'headerlines', 0)
% % 
% % 
% % ii=find(strcmp(stx{1},'WATER')==1);
% % jd_UW_CO2_water=stx{2}(ii);
% % UW_CO2_water=stx{3}(ii);
% % 
% % ii=find(strcmp(stx{1},'AIR')==1);
% % jd_UW_CO2_air=stx{2}(ii);
% % UW_CO2_air=stx{3}(ii);