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	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	gcmfaces_global;
12
13	if isfield(mygrid,'xtrct');
14	a=convert2array_xtrct(b);
15	elseif strcmp(mygrid.XC.gridType,'llc');
16	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