matlab_class/gcmfaces_IO/rdmds2gcmfaces.m

function [fldOut]=rdmds2gcmfaces(fileName,varargin);

if nargin>=3&~isempty(varargin{1}); 
        v0=rdmds(fileName,varargin{1:end-1});   nFaces=varargin{end};
elseif nargin>=3&isempty(varargin{1}); 
        v0=rdmds(fileName,varargin{2:end-1});   nFaces=varargin{end};
elseif nargin==2~isempty(varargin{1}); 
        v0=rdmds(fileName,varargin{1});         nFaces=5;
else;   
        v0=rdmds(fileName);                     nFaces=5; 
end;
 
fldOut=convert2gcmfaces(v0,nFaces);

1	function [fldOut]=rdmds2gcmfaces(fileName,varargin);
2
3	if nargin>=3&~isempty(varargin{1});
4	v0=rdmds(fileName,varargin{1:end-1}); nFaces=varargin{end};
5	elseif nargin>=3&isempty(varargin{1});
6	v0=rdmds(fileName,varargin{2:end-1}); nFaces=varargin{end};
7	elseif nargin==2~isempty(varargin{1});
8	v0=rdmds(fileName,varargin{1}); nFaces=5;
9	else;
10	v0=rdmds(fileName); nFaces=5;
11	end;
12
13	fldOut=convert2gcmfaces(v0,nFaces);
14