matlab_class/gcmfaces_convert/convert2vector.m

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

global mygrid;

if isa(b,'gcmfaces'); do_gcmfaces2vector=1; else; do_gcmfaces2vector=0; end;

if do_gcmfaces2vector;
  bb=convert2array(b);
  a=bb(:);
else;
  bb=convert2array(mygrid.XC);
  if mod(length(b(:)),length(bb(:)))~=0;
      error('vector length is inconsistent with gcmfaces objects');
  else;
      n3=length(b(:))/length(bb(:));
  end;
  b=reshape(b,[size(bb) n3]);
  a=convert2array(b);
end;


1	gforget	1.1	function [a]=convert2vector(b);
2			%object: gcmfaces to vector format conversion (if gcmfaces input)
3			% or: vector to gcmfaces format conversion (if array input)
4			%
5			%notes: - if vector input, the gcmfaces format will be the one of mygrid.XC, so
6			% the vector input must have originally been created according to convert2vector
7			% - global mygrid parameters (mygrid.XC.gridType) are used
8
9			global mygrid;
10
11			if isa(b,'gcmfaces'); do_gcmfaces2vector=1; else; do_gcmfaces2vector=0; end;
12
13			if do_gcmfaces2vector;
14			bb=convert2array(b);
15			a=bb(:);
16			else;
17			bb=convert2array(mygrid.XC);
18			if mod(length(b(:)),length(bb(:)))~=0;
19			error('vector length is inconsistent with gcmfaces objects');
20			else;
21			n3=length(b(:))/length(bb(:));
22			end;
23			b=reshape(b,[size(bb) n3]);
24			a=convert2array(b);
25			end;
26
27
28