tsloc

 TSLOC shows locations of time series stations on map of bathymetry
  Usage  function []=tsloc(ecom_file,ts_file);
       ecom_file='ecom3d.cdf'
       ts_file='tsepic.cdf';

0001 function []=tsloc(ecom_file,ts_file);
0002 % TSLOC shows locations of time series stations on map of bathymetry
0003 %  Usage  function []=tsloc(ecom_file,ts_file);
0004 %       ecom_file='ecom3d.cdf'
0005 %       ts_file='tsepic.cdf';
0006 if(nargin<1),
0007   ecom_file='ecom3d.cdf';
0008   ts_file='tsepic.cdf';
0009 end
0010 [d,x,y]=kslice(ecom_file,'depth');
0011 pslice(x,y,d);
0012 loc=mcvgt(ts_file,'loc');
0013 loc=loc.';
0014 [m,n]=size(loc);
0015 for i=1:m,
0016   text(x(loc(i,1),loc(i,2)),y(loc(i,1),loc(i,2)),int2str(i));
0017 end