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	function [aU,aV]=exch_UV(bU,bV);
2	%special exchange routine for velocity points
3
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