matlab_class/%40gcmfaces/exch_UV.m

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

if strcmp(bU.gridType,'llc');
   [aU,aV]=exch_UV_llc(bU,bV); 
elseif strcmp(bU.gridType,'cube');
   [aU,aV]=exch_UV_cube(bU,bV);
elseif strcmp(bU.gridType,'llpc');
   [aU,aV]=exch_UV_llpc(bU,bV);
elseif strcmp(bU.gridType,'ll');
   [aU,aV]=exch_UV_ll(bU,bV);
else;
   error(['exch_UV not implemented for ' bU.gridType '!?']);
end;

1	gforget	1.1	function [aU,aV]=exch_UV(bU,bV);
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_llc(bU,bV);
6			elseif strcmp(bU.gridType,'cube');
7			[aU,aV]=exch_UV_cube(bU,bV);
8			elseif strcmp(bU.gridType,'llpc');
9			[aU,aV]=exch_UV_llpc(bU,bV);
10			elseif strcmp(bU.gridType,'ll');
11			[aU,aV]=exch_UV_ll(bU,bV);
12			else;
13			error(['exch_UV not implemented for ' bU.gridType '!?']);
14			end;
15