matlab_class/%40gcmfaces/exch_UV_N.m

function [aU,aV]=exch_UV_N(bU,bV,varargin);
%special exchange routine for velocity points

if strcmp(bU.gridType,'llc');
   [aU,aV]=exch_UV_N_llc(bU,bV,varargin{:}); 
elseif strcmp(bU.gridType,'cube');
   [aU,aV]=exch_UV_N_cube(bU,bV,varargin{:});
elseif strcmp(bU.gridType,'llpc');
   [aU,aV]=exch_UV_N_llpc(bU,bV,varargin{:});
elseif strcmp(bU.gridType,'ll');
   [aU,aV]=exch_UV_N_ll(bU,bV,varargin{:});
else;
   error(['exch_UV_N not implemented for ' bU.gridType '!?']);
end;

1	gforget	1.1	function [aU,aV]=exch_UV_N(bU,bV,varargin);
2	gforget	1.2	%special exchange routine for velocity points
3	gforget	1.1
4			if strcmp(bU.gridType,'llc');
5			[aU,aV]=exch_UV_N_llc(bU,bV,varargin{:});
6			elseif strcmp(bU.gridType,'cube');
7			[aU,aV]=exch_UV_N_cube(bU,bV,varargin{:});
8			elseif strcmp(bU.gridType,'llpc');
9			[aU,aV]=exch_UV_N_llpc(bU,bV,varargin{:});
10			elseif strcmp(bU.gridType,'ll');
11			[aU,aV]=exch_UV_N_ll(bU,bV,varargin{:});
12			else;
13			error(['exch_UV_N not implemented for ' bU.gridType '!?']);
14			end;
15