matlab_class/gcmfaces_IO/rdmds2gcmfaces.m

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

if nargin==3; tt=varargin{1}; nFaces=varargin{2}; 
elseif nargin==2; tt=varargin{1}; nFaces=5;
else; tt=[]; nFaces=5; 
end;
 
if ~isempty(tt); v0=rdmds(fileName,tt); else; v0=rdmds(fileName); end;

fldOut=convert2gcmfaces(v0,nFaces);

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