matlab_class/gcmfaces_IO/ncvars.m

function [vars]=ncvars(ncid);
%input:     ncid is a netcdf file id
%output:    vars is the list of its variables name (in cell)

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

if useNativeMatlabNetcdf;
    
    [numdims, numvars, numglobalatts, unlimdimID] = netcdf.inq(ncid);
    for ii=1:numvars;
        aa=netcdf.inqVar(ncid,ii-1);
        if ii==1; vars={aa}; else; vars=[vars aa]; end;
    end;
    
else;%try to use old mex stuff
    vars=ncnames(var(ncid));
end;
1	function [vars]=ncvars(ncid);
2	%input: ncid is a netcdf file id
3	%output: vars is the list of its variables name (in cell)
4
5	global useNativeMatlabNetcdf; if isempty(useNativeMatlabNetcdf); useNativeMatlabNetcdf = ~isempty(which('netcdf.open')); end;
6
7	if useNativeMatlabNetcdf;
8
9	[numdims, numvars, numglobalatts, unlimdimID] = netcdf.inq(ncid);
10	for ii=1:numvars;
11	aa=netcdf.inqVar(ncid,ii-1);
12	if ii==1; vars={aa}; else; vars=[vars aa]; end;
13	end;
14
15	else;%try to use old mex stuff
16	vars=ncnames(var(ncid));
17	end;