function [x,y,u,w,jd]=ez(cdf,var,itime,depth,velflag);
%function []=ez(cdf,var,itime,depth);
if(exist('depth')~=1),depth=-1;end
if(exist('itime')~=1),itime=1;end
[u,x,y]=zslice(cdf,var,itime,depth);
if(exist('velflag')==1),
  [w,x,y]=zsliceuv(cdf,itime,itime,depth);
end
x=x/1000;
y=y/1000;
tau=ecomtau(cdf);
tau=tau(itime);
j=jet(128);
pslice(x,y,u,var);...
if(exist('velflag')==1),
psliceuv(x,y,w,3,40,'black');...
end
text(202,180,greg2str(gregorian(jd)));...
axis([220 310 80 200]);...
fatarrow(220,110,80*tau,'y');
