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	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