Re: NetCDF Attribute Inquiry

[Alex Schuster <alex(at)pet.mpin-koeln.mpg.de>]

"Liam E. Gumley" wrote:

> Alex Schuster wrote:

[How to check for available attributes without using NCDF_ATTINQ(),
which sometimes gives bad results]

> Here is a function which returns a list of attribute names for a given
> variable name. If the variable name is set to the null string '', a list
> of global attribute names is returned.
> 
> FUNCTION NCDF_ATTDIR, CDFID, VARNAME
[...]

Thanks! That's what I needed. 

As I also don't know for sure beforehand which variables are in the
file, I modified your routine so it returns this info. I guess you also
already have a NCDF_VARDIR() function, but here it is anyway:


FUNCTION NCDF_VARDIR, CDFID

;- Check arguments
if n_params() ne 1 then message, 'Usage: RESULT = NCDF_VARDIR(CDFID)'
if n_elements(cdfid) eq 0 then message, 'CDFID is undefined'

;- Set default return value
varnames = ''

fileinfo = ncdf_inquire(cdfid)
nvars = fileinfo.nvars

;- If variables were found, get attribute names
if nvars gt 0 then begin
  varnames = strarr(nvars)
  for index = 0, nvars - 1 do $
    varnames[index] = (ncdf_varinq(cdfid,index)).name
endif

;- Return the result
return, varnames

END

        Alex
-- 
  Alex Schuster     Wonko@weird.cologne.de          PGP Key available
                    alex@pet.mpin-koeln.mpg.de