matlab_class/gcmfaces_convert/convert2array.m

function [a]=convert2array(b,varargin);
%object:    gcmfaces to array format conversion (if gcmfaces input)
%    or:    array to gcmfaces format conversion (if array input)
%
%notes:     - if array input, the gcmfaces format will be the one of mygrid.XC, so 
%           the array input must have originally been created according to convert2array
%           - global mygrid parameters (mygrid.XC.gridType) are used

input_list_check('convert2array',nargin);

gcmfaces_global;

if isfield(mygrid,'xtrct');
   a=convert2array_xtrct(b);
elseif strcmp(mygrid.XC.gridType,'llc');
   a=convert2array_llc(b); 
elseif strcmp(mygrid.XC.gridType,'cube');
   a=convert2array_cube(b);
elseif strcmp(mygrid.XC.gridType,'llpc');
   a=convert2array_llpc(b);
elseif strcmp(mygrid.XC.gridType,'ll');
   a=convert2array_ll(b);
else;
   error(['convert2array not implemented for ' mygrid.XC.gridType '!?']);
end;

1	gforget	1.1	function [a]=convert2array(b,varargin);
2			%object: gcmfaces to array format conversion (if gcmfaces input)
3			% or: array to gcmfaces format conversion (if array input)
4			%
5			%notes: - if array input, the gcmfaces format will be the one of mygrid.XC, so
6			% the array input must have originally been created according to convert2array
7			% - global mygrid parameters (mygrid.XC.gridType) are used
8
9			input_list_check('convert2array',nargin);
10
11	gforget	1.2	gcmfaces_global;
12	gforget	1.1
13	gforget	1.2	if isfield(mygrid,'xtrct');
14			a=convert2array_xtrct(b);
15			elseif strcmp(mygrid.XC.gridType,'llc');
16	gforget	1.1	a=convert2array_llc(b);
17			elseif strcmp(mygrid.XC.gridType,'cube');
18			a=convert2array_cube(b);
19			elseif strcmp(mygrid.XC.gridType,'llpc');
20			a=convert2array_llpc(b);
21			elseif strcmp(mygrid.XC.gridType,'ll');
22			a=convert2array_ll(b);
23			else;
24			error(['convert2array not implemented for ' mygrid.XC.gridType '!?']);
25			end;
26