matlab_class/gcmfaces_IO/nccreateFile.m

function [nc] = nccreateFile(theNetCDFFile, varargin);
% create a new netcdf file.
%   mode: 'write','nowrite'

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

mode='NC_NOCLOBBER';
if nargin>1,
    mode=varargin{1};
end

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


1	gforget	1.2	function [nc] = nccreateFile(theNetCDFFile, varargin);
2	gforget	1.1	% create a new netcdf file.
3			% mode: 'write','nowrite'
4
5			global useNativeMatlabNetcdf;
6			if isempty(useNativeMatlabNetcdf); useNativeMatlabNetcdf = ~isempty(which('netcdf.open')); end;
7
8			mode='NC_NOCLOBBER';
9			if nargin>1,
10			mode=varargin{1};
11			end
12
13			if useNativeMatlabNetcdf;
14			nc=netcdf.create(theNetCDFFile,mode);
15			else;%try to use old mex stuff
16			nc=netcdf(theNetCDFFile,mode);
17			end;
18
19
20