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	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