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	roquet	1.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