% This script sets up constants and control variables for an ADCP run.

   run.par.infile='/d4/Darmat/data/adcp/9806/tms4/tms4001s.000';
   % Load scan data and append to run structure.
   scanfile=[run.par.infile(1:length(run.par.infile)-8),'scan'];
   load (scanfile)
   run.goodtran=scan.goodtran;
   % Load data from CS-2000 data logger and append to run structure.
   csfile=[run.par.infile(1:length(run.par.infile)-8),'cs20'];
   load (csfile)
   run.cs20=cs20;
   run.par.dtrans = .32; % Value for tms4, from log sheets.
   run.par.thetap= 342; % Angle from magnetic north to channel axis.
   run.par.devmag=17.; % Magnetic deviation.
   run.par.lambda=.0075; % Sound wavelength.
   run.par.jtran1=1;
   run.par.jtran2=142;
   run.par.nensmax=200; % Number of ensembles to provide for.
   run.par.ndmax=60; % Number of depth bins to provide for.
   run.par.L1adcp=13.*12.*.0254; % Distance from west transect buoy 
				 % to shore (m).
   run.par.L2adcp=21.*12.*.0254; % Distance from east transect buoy 
				 % to shore (m).
   run.par.L1uvm=90.*12.*.0254; % Distance from west pier to shore (m).
   run.par.L2uvm=60.*12.*.0254; % Distance from east pier to shore (m).
   run.par.d0uvm=2.; % Depth of UVM path below sea level.
   run.par.thchan=-1.; % Bearing of channel centerline, in degrees.