print, "--- Start of crib sheet ---"
re=6378.16
eventdate = ['c2008-01-29-tail', 'a2008-03-28-tail', 'd2008-03-24-tail', $
'a2008-03-14-tail', 'd2008-03-15-tail', 'a2008-08-18-subsolar', $
'e2008-09-05-subsolar', 'a2008-08-28-subsolar', 'd2008-08-03-subsolar',$
'e2008-08-14-subsolar', 'd2008-08-16-subsolar', 'a2008-09-04-subsolar',$
'e2008-08-03-subsolar', 'e2008-08-12-subsolar', 'e2008-09-02-subsolar',$
'a2008-09-04-subsolar']
nevent = n_elements(eventdate)
ievent = 5
probe = strmid(eventdate[ievent],0,1)
date = strmid(eventdate[ievent],1,10)
if strlen(eventdate[ievent]) gt 17 then subsolar = 1 else subsolar = 0
timespan, date
ree_set_gsm, probe
thm_efi_clean_efp, probe=probe, subsolar = subsolar
thm_efi_clean_efp, probe=sc, minrat=0.01
tplot, 'th' + probe + '_' + ['efp', 'efp_clean_dsl', 'efp_clean_fac']
print, "--- End of crib sheet ---"
end