matlab_class/%40gcmfaces/exch_Z.m

function [FLD]=exch_Z(fld);
%[FLD]=exch_Z(fld);
%adds vorticity points (to north and east of center points)

if strcmp(fld.gridType,'llc');
   FLD=exch_Z_llc(fld); 
elseif strcmp(fld.gridType,'cube');
   FLD=exch_Z_cube(fld);
elseif strcmp(fld.gridType,'ll');
   FLD=exch_Z_ll(fld); 
else;
   error(['exch_Z not implemented for ' fld.gridType '!?']);
end;

1	function [FLD]=exch_Z(fld);
2	%[FLD]=exch_Z(fld);
3	%adds vorticity points (to north and east of center points)
4
5	if strcmp(fld.gridType,'llc');
6	FLD=exch_Z_llc(fld);
7	elseif strcmp(fld.gridType,'cube');
8	FLD=exch_Z_cube(fld);
9	elseif strcmp(fld.gridType,'ll');
10	FLD=exch_Z_ll(fld);
11	else;
12	error(['exch_Z not implemented for ' fld.gridType '!?']);
13	end;
14