FUNCTION ncdf_listdims, ncid, sizes = sizes

  n = (ncdf_inquire(ncid)).ndims

  sizes = lonarr(n)
  names = strarr(n)

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

  return, names

end