profilesMatlabProcessing/profiles_misc/ncopen.m

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

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

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

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


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