matlab_class/gcmfaces_IO/ncsave.m

function [] = ncsave(theNetCDFFile, varargin);

global useNativeMatlabNetcdf; if isempty(useNativeMatlabNetcdf); useNativeMatlabNetcdf = ~isempty(which('netcdf.open')); end;

if useNativeMatlabNetcdf;
    nc=netcdf.open(theNetCDFFile,'write');
else;%try to use old mex stuff
    nc=netcdf(theNetCDFFile,'write');
end;

for ii=1:nargin-1;
    nameCur=inputname(ii+1);
    if useNativeMatlabNetcdf;
        vv = netcdf.inqVarID(nc,nameCur); netcdf.putVar(nc,vv,varargin{ii}');
    else;%try to use old mex stuff
        nc{nameCur}(:)=varargin{ii};
    end;
end;


if useNativeMatlabNetcdf;
    netcdf.close(nc);
else;%try to use old mex stuff
    close(nc);
end;


1	gforget	1.1	function [] = ncsave(theNetCDFFile, varargin);
2
3			global useNativeMatlabNetcdf; if isempty(useNativeMatlabNetcdf); useNativeMatlabNetcdf = ~isempty(which('netcdf.open')); end;
4
5			if useNativeMatlabNetcdf;
6			nc=netcdf.open(theNetCDFFile,'write');
7			else;%try to use old mex stuff
8			nc=netcdf(theNetCDFFile,'write');
9			end;
10
11			for ii=1:nargin-1;
12			nameCur=inputname(ii+1);
13			if useNativeMatlabNetcdf;
14			vv = netcdf.inqVarID(nc,nameCur); netcdf.putVar(nc,vv,varargin{ii}');
15			else;%try to use old mex stuff
16			nc{nameCur}(:)=varargin{ii};
17			end;
18			end;
19
20
21			if useNativeMatlabNetcdf;
22			netcdf.close(nc);
23			else;%try to use old mex stuff
24			close(nc);
25			end;
26
27
28