% Match the argo profiles with the WOA13 data to evaluate the temperature profiles.
%

load A5903130
%clear filename pp sal ss str tt

[yy,mm,dd]=datevec(jd);

load woa13_TSA

% Determine the best match for lon and lat
fixlat=fix(lat)-.5;
fixlon=fix(lon)-.5;

% find the woa13 temperature profile

for i=1:length(jd)
ila=find(rla==fixlat(i));
ilo=find(rlo==fixlon(i));
temwoa(i,:)=squeeze(ttclim(ila,ilo,:,mm(i)));
end