; Script that Harald Frey used to look at THEMIS data
; 

;==============================================================
	; overviews
thm_gen_overplot,probe='a',date='2007-08-29',dur=4,/dont
thm_gen_overplot,probe='b',date='2007-08-29',dur=4,/dont
thm_gen_overplot,probe='c',date='2007-08-29',dur=4,/dont
thm_gen_overplot,probe='d',date='2007-08-29',dur=4,/dont
thm_gen_overplot,probe='e',date='2007-08-29',dur=4,/dont
tlimit
tlimit,/full

thm_load_hsk,probe='a'
thm_load_hsk,probe='b'
thm_load_hsk,probe='c'
thm_load_hsk,probe='d'
thm_load_hsk,probe='e'
tplot,['tha_peif_en_eflux','tha_hsk_issr_survey_raw',$
'thb_peif_en_eflux','thb_hsk_issr_survey_raw',$
'thc_peif_en_eflux','thc_hsk_issr_survey_raw',$
'thd_peif_en_eflux','thd_hsk_issr_survey_raw',$
'the_peif_en_eflux','the_hsk_issr_survey_raw'],title='THEMIS A,B,C,D,E'

tplot,['thb_peif_en_eflux','thc_peif_en_eflux',$
   'thd_peif_en_eflux','the_peif_en_eflux','tha_peif_en_eflux']

del_data,'*'
;==============================================================
	; FGM
window,xsize=600,ysize=970
timespan,'7 8 29',4,/day
@thm_fgm_crib

;   1 tha_state_pos       
;   2 tha_state_vel       
;   3 tha_state_man       
;   4 tha_state_roi       
;   5 tha_state_spinras   
;   6 tha_state_spindec   
;   7 tha_state_spinalpha 
;   8 tha_state_spinbeta  
;   9 tha_state_spinper   
;  10 tha_state_spinphase 

;  52 tha_efs             
;  51 tha_fit             
;  53 tha_fgs             
;  66 tha_fge             
;  67 tha_fgl             
;  68 tha_fgh             

tplot,['tha_e*','tha_f*']
tplot,['thb_e*','thb_f*']
tplot,['thc_e*','thc_f*']
tplot,['thd_e*','thd_f*']
tplot,['the_e*','the_f*']

del_data,'th?_e*'
del_data,'th?_f*'
;========================================================
	; ESA
@thm_esa_crib

;   1 tha_peif_en_counts 
;   2 tha_peif_mode      
;   3 tha_peir_en_counts 
;   4 tha_peir_mode      
;   5 tha_peib_en_counts 
;   6 tha_peib_mode      
;   7 tha_peef_en_counts 
;   8 tha_peef_mode      
;   9 tha_peer_en_counts 
;  10 tha_peer_mode      
;  11 tha_peeb_en_counts 
;  12 tha_peeb_mode      

tplot,'tha_p*'
tplot,'thb_p*'
tplot,'thc_p*'
tplot,'thd_p*'
tplot,'the_p*'

del_data,'th?_p*'
;========================================================
	; SST
@thm_sst_crib

;  61 tha_psif_ang        
;  62 tha_psif_en         
;  63 tha_psif_tot        
;  64 tha_psef_ang        
;  65 tha_psef_en         
;  66 tha_psef_tot        
;  67 tha_psir_en         
;  68 tha_psir_tot        
;  69 tha_pser_en         
;  70 tha_pser_tot        

options,'th?_ps*en',spec=1,ylog=0	; prettier to see specplot
tplot,'tha_ps*'
tplot,'thb_ps*'
tplot,'thc_ps*'
tplot,'thd_ps*'
tplot,'the_ps*'

del_data,'th?_ps*'
;========================================================
	; EFI
@thm_efi_crib

;  64 thc_eff_hed         
;  65 thc_eff             
;  70 thc_efp_hed         
;  71 thc_efp             
;  76 thc_efw_hed         
;  77 thc_efw             
;  82 thc_vaf_hed         
;  83 thc_vaf             
;  88 thc_vap_hed         
;  89 thc_vap             
;  94 thc_vaw_hed         
;  95 thc_vaw             
; 100 thc_eff_0           
; 101 thc_efp_0           
; 102 thc_efw_0           

;tplot,['tha_e*','tha_f*','tha_v*']
;tplot,['thb_e*','thb_f*','thb_v*']
tplot,['thc_efs','thc_eff*','thc_vaf*']
;tplot,['thc_e*','thc_f*','thc_v*']
tplot,['thd_efs','thd_eff*','thd_vaf*']
;tplot,['thd_e*','thd_f*','thd_v*']
tplot,['the_efs','the_eff*','the_vaf*']
;tplot,['the_e*','the_f*','the_v*']

del_data,'th?_e*'
del_data,'th?_f*'
del_data,'th?_v*'
;=============================================
	; SCM
@thm_scm_crib

;  51 thd_scp             
;  52 thd_state_sunpulse  
;  53 thd_scf             
;  54 thd_scf_hed         
;  55 thd_scw             
;  56 thd_scw_hed         
;  57 thd_scw_dq          
;  58 thd_scp_volt        
;  59 thd_scp_hed         
;  60 thd_scp_misalign    
;  61 thd_scp_dc          
;  62 thd_scp_iano        
;  63 thd_scp_cal         
; 104 thd_scf_volt        
; 105 thd_scw_volt        

tplot,'tha_sc*'
tplot,'thb_sc*'
tplot,'thc_sc*'
tplot,'thd_sc*'
tplot,'the_sc*'

del_data,'th?_sc*'
;==============================================
	; trigger

timespan,'7 8 29',3,/day
thm_gen_overplot,sc='a',date='2007-08-29',dur=3,/dont
sc='a'
@trigger_Ni_crib

timespan,'7 8 30',2,/day
thm_gen_overplot,sc='b',date='2007-08-30',dur=2,/dont
sc='b'
@trigger_Ni_crib

thm_gen_overplot,sc='c',date='2007-08-30',dur=2,/dont
sc='c'
@trigger_Ni_crib

thm_gen_overplot,sc='d',date='2007-08-30',dur=2,/dont
sc='d'
@trigger_Ni_crib

thm_gen_overplot,sc='e',date='2007-08-30',dur=2,/dont
sc='e'
@trigger_Ni_crib