pro tidy_data, index, data, ii, dd
bad = where(gt_percentd(index) lt 100)
good = kill_index(indgen(n_elements(index)),bad)
ii = index(good)
dd = data(*,*,good)
end