!rm tides.met
hold off
stations=['Broad Sound '
          'Boston LNB  '
          'Scituate    '
          'U2          '
          'Manomet     '
          'Stell Basin '
          'Stell Bank  '
          'Cape Cod Bay'
          'Race Point  '];
[m,n]=size(stations);
for k=1:m 
  tsvel2('tsepic.cdf',k,[-5 -10]);
  title(stations(k,:));
  pause
  if(k==1),
   meta tides
  else
   meta
  end
end


