getvel

  GETVEL Gets time-series vector data from an EPIC style netcdf file,
         allowing the user to grab the whole time-series, or
         specify start and stop time.

   USAGE:
       [w,jd] = getvel(cdf,uvar,vvar);  % gets whole series
 or
       [w,jd] = getvel(cdf,var,start,stop);

0001 function [w,jd] = getvel(cdf,uvar,vvar,start,stop)
0002 %  GETVEL Gets time-series vector data from an EPIC style netcdf file,
0003 %         allowing the user to grab the whole time-series, or
0004 %         specify start and stop time.
0005 %
0006 %   USAGE:
0007 %       [w,jd] = getvel(cdf,uvar,vvar);  % gets whole series
0008 % or
0009 %       [w,jd] = getvel(cdf,var,start,stop);
0010 %
0011 %
0012 if(nargin<5),
0013  [u,jd]=getts(cdf,uvar);
0014  [v,jd]=getts(cdf,vvar);
0015 else
0016  [u,jd]=getts(cdf,uvar,start,stop);
0017  [v,jd]=getts(cdf,vvar,start,stop);
0018 end
0019 w=u(:)+sqrt(-1)*v(:);