profilesMatlabProcessing/profiles_misc/ncclose.m

function [] = ncclose(ncid);
% close a netcdf file.

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


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


1	function [] = ncclose(ncid);
2	% close a netcdf file.
3
4	global useNativeMatlabNetcdf;
5	if isempty(useNativeMatlabNetcdf); useNativeMatlabNetcdf = ~isempty(which('netcdf.open')); end;
6
7
8	if useNativeMatlabNetcdf;
9	netcdf.close(ncid);
10	else;%try to use old mex stuff
11	close(ncid);
12	end;
13
14
15