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	gforget	1.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;