FUNCTION ncdf_listdims,ncid

n=(ncdf_inquire(ncid)).ndims

names=strarr(n)

for i=0,n-1 do begin
    ncdf_diminq,ncid,i,name,size
    names[i]=name
endfor

return,names

end