profilesMatlabProcessing/profiles_misc/ncdefDim.m

function ncdefDim(ncid,dimname,dimlen);
% add a dimension in a netcdf file.

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

if useNativeMatlabNetcdf;
    netcdf.defDim(ncid,dimname,dimlen);
else;%try to use old mex stuff
    eval(sprintf('ncid(''%s'')=%d;',dimname,dimlen));
end;


1	roquet	1.1	function ncdefDim(ncid,dimname,dimlen);
2			% add a dimension in a netcdf file.
3
4			global useNativeMatlabNetcdf;
5			if isempty(useNativeMatlabNetcdf); useNativeMatlabNetcdf = ~isempty(which('netcdf.open')); end;
6
7			if useNativeMatlabNetcdf;
8			netcdf.defDim(ncid,dimname,dimlen);
9			else;%try to use old mex stuff
10			eval(sprintf('ncid(''%s'')=%d;',dimname,dimlen));
11			end;
12
13
14