FUNCTION ncdf_listvars,ncid

n=(ncdf_inquire(ncid)).nvars

names=strarr(n)

for i=0,n-1 do begin
    names[i]=(ncdf_varinq(ncid,i)).name
endfor

return,names

end