% This script plots velocity (as a color) versus distance across the
% Slough and time (actually ensemble number and transect number).
% Transects which have been identified as bad are replaced by 100
% ensembles with zeros for the velocities.  The order of the ensembles
% is reversed in east-to-west transects, so that for all transects the
% ensembles are in an order which increases as the boat moves from west
% to east.
% It is assumed that a run structure is in memory.
% RWB, November 9, 1999.
   vparray = run.vpav'; % array
   ntran=run.ntran
   for itran=1:ntran
      if run.goodtran(itran) ~= 1
         vparray(itran,1:run.nens(itran))=0;
      end
      if run.dist(1,itran) ~= 0
 	 vparray(itran,1:run.nens(itran))=fliplr( ...
	    vparray(itran,1:run.nens(itran)));
      end
   end
   surface(vparray); % surface plot
   xlabel('ensemble number (west to east)','fontsize',14)
   ylabel('transect number','fontsize',14)
   title('Three-Mile Slough, June 2, 1998','fontsize',16)

   print -djpeg  ...
    /Users/faculty/bland/public_html/research/si3dmod/p91109a.jpg
   print -djpeg -r20 ...
    /Users/faculty/bland/public_html/research/si3dmod/p91109at.jpg