[loni,lati,names]=textread('station_list_spherical.xp','%f %f %s');
[urms,jdmat,lon2,lat2,depth]=cf_tseries('/mudpile/adria/swan/swan_mpi4.nc','urms',loni,lati,'interp');
[tmbot,jdmat,lon2,lat2,depth]=cf_tseries('/mudpile/adria/swan/swan_mpi4.nc','tmbot',loni,lati,'interp');
[rtp,jdmat,lon2,lat2,depth]=cf_tseries('/mudpile/adria/swan/swan_mpi4.nc','rtp',loni,lati,'interp');
[hsig,jdmat,lon2,lat2,depth]=cf_tseries('/mudpile/adria/swan/swan_mpi4.nc','hsig',loni,lati,'interp');
%[u,jdmat,lon2,lat2,depth]=cf_tseries('foo.nc','urms',loni,lati,'nearest');
%[u2,jdmat2,lon2,lon2]=cf_tseries('./lowres/swan_coamps2.nc','urms',loni,lati);
%u2=interp_r(jdmat2,u2,jdmat);
jd=jdmat2jdrps(jdmat);
%for i=1:length(loni);
 % timeplt(jd,[u(:,i) u2(:,i)]);legend('hires','lowres');
 % title(sta(i));
 % pause
%end
save swan_coamps_lowres2.mat urms tmbot rtp hsig jd loni lati depth names