;Procedure: RBSP_LOAD_EFW_HSK
;
;Purpose: Loads RBSP EFW Housekeeping data
;
;keywords:
; probe = Probe name. The default is 'all', i.e., load all available probes.
; This can be an array of strings, e.g., ['a', 'b'] or a
; single string delimited by spaces, e.g., 'a b'
; varformat=string
; TRANGE= (Optional) Time range of interest (2 element array), if
; this is not set, the default is to prompt the user. Note
; that if the input time range is not a full day, a full
; day's data is loaded
; VARNAMES: names of variables to load from cdf: default is all.
; /GET_SUPPORT_DATA: load support_data variables as well as data variables
; into tplot variables. (NOT IMPLEMENTED YET)
; /QA: If set, load data from l1_qa testing directory.
; /INTEGRATION: If set, load data from integration.
; /MSIM: If set, load data from mission simulations.
; /ETU: If set, load data from the ETU.
; /DOWNLOADONLY: download file but don't read it. (NOT IMPLEMENTED YET)
; /valid_names, if set, then this routine will return the valid probe, datatype
; and/or level options in named variables supplied as
; arguments to the corresponding keywords.
; files named varible for output of pathnames of local files.
; /VERBOSE set to output some useful info
; type: set to 'calibrated' to automatically convert data into physical units
;Example:
; rbsp_load_efw_hsk,/get_suppport_data,probe=['a', 'b']
;Notes:
; 1. Written by Peter Schroeder, July 2011
; 2. Fixed the verbose keyword so that it now actually has the intended effects.
; JBT, SSL/UCB, 2012-11-03.
;
; $LastChangedBy: aaronbreneman $
; $LastChangedDate: 2015-07-10 07:53:58 -0700 (Fri, 10 Jul 2015) $
; $LastChangedRevision: 18071 $
; $URL: svn+ssh://thmsvn@ambrosia.ssl.berkeley.edu/repos/spdsoft/tags/spedas_2_1/general/missions/rbsp/efw/rbsp_load_efw_hsk.pro $
;-
pro rbsp_load_efw_hsk,probe=probe, datatype=datatype, trange=trange, $
level=level, verbose=verbose, downloadonly=downloadonly, $
cdf_data=cdf_data,get_support_data=get_support_data, $
tplotnames=tns, make_multi_tplotvar=make_multi_tplotvar, $
varformat=varformat, valid_names = valid_names, files=files,$
type=type, integration=integration, msim=msim, etu=etu, qa=qa
rbsp_efw_init
dprint,verbose=verbose,dlevel=4,'$Id: rbsp_load_efw_hsk.pro 18071 2015-07-10 14:53:58Z aaronbreneman $'
if keyword_set(etu) then probe = 'a'
if(keyword_set(probe)) then $
p_var = strlowcase(probe)
; vb = keyword_set(verbose) ? verbose : 0
; vb = vb > !rbsp_efw.verbose
; verbose keyword fix. JBT, 11/3/12.
if n_elements(verbose) gt 0 then vb = verbose else begin
vb = 0
vb >= !rbsp_efw.verbose
endelse
vprobes = ['a','b']
vlevels = ['l1','l2']
vdatatypes=['hsk']
if ~keyword_set(type) then begin
type = 'raw'
endif
if keyword_set(valid_names) then begin
probe = vprobes
level = vlevels
datatype = vdatatypes
return
endif
if not keyword_set(p_var) then p_var='*'
p_var = strfilter(vprobes, p_var ,delimiter=' ',/string)
if not keyword_set(datatype) then datatype='*'
datatype = strfilter(vdatatypes, datatype ,delimiter=' ',/string)
if not keyword_set(level) then level='*'
level = strfilter(vdatatypes, level ,delimiter=' ',/string)
addmaster=0
probe_colors = ['m','b']
for s=0,n_elements(p_var)-1 do begin
rbspx = 'rbsp'+ p_var[s]
if keyword_set(integration) then rbsppref = rbspx + '/l1_int' $
else if keyword_set(msim) then rbsppref = rbspx+ '/l1_msim' $
else if keyword_set(etu) then rbsppref = rbspx+ '/l1_etu' $
else if keyword_set(qa) then rbsppref = rbspx+ '/l1_qa' $
else rbsppref = rbspx + '/l1'
; relpathnames = file_dailynames(thx+'/l1/hsk/',dir='YYYY/',thx+'_l1_hsk_','_v01.cdf',trange=trange,addmaster=addmaster)
format = rbsppref + '/hsk_beb_analog/YYYY/'+rbspx+'_l1_hsk_beb_analog_YYYYMMDD_v*.cdf'
relpathnames = file_dailynames(file_format=format,trange=trange,addmaster=addmaster)
; if vb ge 4 then printdat,/pgmtrace,relpathnames
dprint,dlevel=3,verbose=verbose,relpathnames,/phelp
files = file_retrieve(relpathnames, /last_version, _extra=!rbsp_efw)
if keyword_set(!rbsp_efw.downloadonly) or keyword_set(downloadonly) then continue
; suf='_raw'
suf=''
; midfix='_hsk_beb_analog_'
prefix=rbspx+'_efw_hsk_beb_analog_'
if keyword_set(get_support_data) then $
cdf2tplot,file=files,varformat=varformat,all=0,prefix=prefix,suffix=suf,verbose=vb, $
tplotnames=tns,/convert_int1_to_int2,get_support_data=get_support_data ; load data into tplot variables
if is_string(tns) then begin
pn = byte(p_var[s]) - byte('a')
options, /def, tns, colors = probe_colors[pn]
dprint, dlevel = 5, verbose = verbose, 'Setting options...'
options, /def, tns, code_id = '$Id: rbsp_load_efw_hsk.pro 18071 2015-07-10 14:53:58Z aaronbreneman $'
c_var = [1, 2, 3, 4, 5, 6]
; hsk_options_grp = [thx+'_hsk_iefi_ibias',thx+'_hsk_iefi_usher',thx+'_hsk_iefi_guard']
; hsk_options_ele = [thx+'_hsk_iefi_ibias?',thx+'_hsk_iefi_usher?',thx+'_hsk_iefi_guard?']
; options, hsk_options_grp+'_raw', data_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', colors = c_var, labels = string(c_var), $
; labflag = 1, /def
; options, hsk_options_ele+'_raw', ata_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', labflag = 1, /def
; options, thx+'_hsk_iefi_braid_raw', data_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', /def
; options, hsk_options_grp+'_cal', colors = c_var, labels = string(c_var), $
; labflag = 1, /def
; options, /def, strfilter(tns, '*ietc_covers*'), tplot_routine = 'bitplot', colors = ''
; options, /def ,strfilter(tns, '*ipwrswitch*'), tplot_routine = 'bitplot', colors= ''
dprint, dwait = 5., verbose = verbose, 'Flushing output'
dprint, dlevel = 4, verbose = verbose, 'Housekeeping data Loaded for probe: '+p_var[s]
endif else begin
dprint, dlevel = 0, verbose = verbose, 'No EFW HSK BEB Analog data loaded...'+' Probe: '+p_var[s]
dprint, dlevel = 0, verbose = verbose, 'Try using get_support_data keyword'
endelse
format = rbsppref + '/hsk_idpu_analog/YYYY/'+rbspx+'_l1_hsk_idpu_analog_YYYYMMDD_v*.cdf'
relpathnames = file_dailynames(file_format=format,trange=trange,addmaster=addmaster)
; if vb ge 4 then printdat,/pgmtrace,relpathnames
dprint,dlevel=3,verbose=verbose,relpathnames,/phelp
files = file_retrieve(relpathnames, /last_version, _extra=!rbsp_efw)
if keyword_set(!rbsp_efw.downloadonly) or keyword_set(downloadonly) then continue
; suf='_raw'
suf=''
; midfix='_hsk_idpu_analog_'
prefix=rbspx+'_efw_hsk_idpu_analog_'
if keyword_set(get_support_data) then $
cdf2tplot,file=files,varformat=varformat,all=0,prefix=prefix,suffix=suf,verbose=vb, $
tplotnames=tns,/convert_int1_to_int2,get_support_data=get_support_data ; load data into tplot variables
if is_string(tns) then begin
pn = byte(p_var[s]) - byte('a')
options, /def, tns, colors = probe_colors[pn]
dprint, dlevel = 5, verbose = verbose, 'Setting options...'
options, /def, tns, code_id = '$Id: rbsp_load_efw_hsk.pro 18071 2015-07-10 14:53:58Z aaronbreneman $'
c_var = [1, 2, 3, 4, 5, 6]
; hsk_options_grp = [thx+'_hsk_iefi_ibias',thx+'_hsk_iefi_usher',thx+'_hsk_iefi_guard']
; hsk_options_ele = [thx+'_hsk_iefi_ibias?',thx+'_hsk_iefi_usher?',thx+'_hsk_iefi_guard?']
; options, hsk_options_grp+'_raw', data_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', colors = c_var, labels = string(c_var), $
; labflag = 1, /def
; options, hsk_options_ele+'_raw', ata_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', labflag = 1, /def
; options, thx+'_hsk_iefi_braid_raw', data_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', /def
; options, hsk_options_grp+'_cal', colors = c_var, labels = string(c_var), $
; labflag = 1, /def
; options, /def, strfilter(tns, '*ietc_covers*'), tplot_routine = 'bitplot', colors = ''
; options, /def ,strfilter(tns, '*ipwrswitch*'), tplot_routine = 'bitplot', colors= ''
dprint, dwait = 5., verbose = verbose, 'Flushing output'
dprint, dlevel = 4, verbose = verbose, 'Housekeeping data Loaded for probe: '+p_var[s]
endif else begin
dprint, dlevel = 0, verbose = verbose, 'No EFW HSK IDPU Analog data loaded...'+' Probe: '+p_var[s]
dprint, dlevel = 0, verbose = verbose, 'Try using get_support_data keyword'
endelse
format = rbsppref + '/hsk_idpu_crit/YYYY/'+rbspx+'_l1_hsk_idpu_crit_YYYYMMDD_v*.cdf'
relpathnames = file_dailynames(file_format=format,trange=trange,addmaster=addmaster)
; if vb ge 4 then printdat,/pgmtrace,relpathnames
dprint,dlevel=3,verbose=verbose,relpathnames,/phelp
files = file_retrieve(relpathnames, /last_version, _extra=!rbsp_efw)
if keyword_set(!rbsp_efw.downloadonly) or keyword_set(downloadonly) then continue
; suf='_raw'
suf=''
; midfix='_hsk_idpu_analog_'
prefix=rbspx+'_efw_hsk_idpu_crit_'
if keyword_set(get_support_data) then $
cdf2tplot,file=files,varformat=varformat,all=0,prefix=prefix,suffix=suf,verbose=vb, $
tplotnames=tns,/convert_int1_to_int2,get_support_data=get_support_data ; load data into tplot variables
if is_string(tns) then begin
pn = byte(p_var[s]) - byte('a')
options, /def, tns, colors = probe_colors[pn]
dprint, dlevel = 5, verbose = verbose, 'Setting options...'
options, /def, tns, code_id = '$Id: rbsp_load_efw_hsk.pro 18071 2015-07-10 14:53:58Z aaronbreneman $'
c_var = [1, 2, 3, 4, 5, 6]
; hsk_options_grp = [thx+'_hsk_iefi_ibias',thx+'_hsk_iefi_usher',thx+'_hsk_iefi_guard']
; hsk_options_ele = [thx+'_hsk_iefi_ibias?',thx+'_hsk_iefi_usher?',thx+'_hsk_iefi_guard?']
; options, hsk_options_grp+'_raw', data_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', colors = c_var, labels = string(c_var), $
; labflag = 1, /def
; options, hsk_options_ele+'_raw', ata_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', labflag = 1, /def
; options, thx+'_hsk_iefi_braid_raw', data_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', /def
; options, hsk_options_grp+'_cal', colors = c_var, labels = string(c_var), $
; labflag = 1, /def
; options, /def, strfilter(tns, '*ietc_covers*'), tplot_routine = 'bitplot', colors = ''
; options, /def ,strfilter(tns, '*ipwrswitch*'), tplot_routine = 'bitplot', colors= ''
dprint, dwait = 5., verbose = verbose, 'Flushing output'
dprint, dlevel = 4, verbose = verbose, 'Housekeeping data Loaded for probe: '+p_var[s]
endif else begin
dprint, dlevel = 0, verbose = verbose, 'No EFW HSK IDPU CRIT data loaded...'+' Probe: '+p_var[s]
dprint, dlevel = 0, verbose = verbose, 'Try using get_support_data keyword'
endelse
format = rbsppref + '/hsk_idpu_eng/YYYY/'+rbspx+'_l1_hsk_idpu_eng_YYYYMMDD_v*.cdf'
relpathnames = file_dailynames(file_format=format,trange=trange,addmaster=addmaster)
; if vb ge 4 then printdat,/pgmtrace,relpathnames
dprint,dlevel=3,verbose=verbose,relpathnames,/phelp
files = file_retrieve(relpathnames, /last_version, _extra=!rbsp_efw)
if keyword_set(!rbsp_efw.downloadonly) or keyword_set(downloadonly) then continue
; suf='_raw'
suf=''
; midfix='_hsk_idpu_analog_'
prefix=rbspx+'_efw_hsk_idpu_eng_'
if keyword_set(get_support_data) then $
cdf2tplot,file=files,varformat=varformat,all=0,prefix=prefix,suffix=suf,verbose=vb, $
tplotnames=tns,/convert_int1_to_int2,get_support_data=get_support_data ; load data into tplot variables
if is_string(tns) then begin
pn = byte(p_var[s]) - byte('a')
options, /def, tns, colors = probe_colors[pn]
dprint, dlevel = 5, verbose = verbose, 'Setting options...'
options, /def, tns, code_id = '$Id: rbsp_load_efw_hsk.pro 18071 2015-07-10 14:53:58Z aaronbreneman $'
c_var = [1, 2, 3, 4, 5, 6]
; hsk_options_grp = [thx+'_hsk_iefi_ibias',thx+'_hsk_iefi_usher',thx+'_hsk_iefi_guard']
; hsk_options_ele = [thx+'_hsk_iefi_ibias?',thx+'_hsk_iefi_usher?',thx+'_hsk_iefi_guard?']
; options, hsk_options_grp+'_raw', data_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', colors = c_var, labels = string(c_var), $
; labflag = 1, /def
; options, hsk_options_ele+'_raw', ata_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', labflag = 1, /def
; options, thx+'_hsk_iefi_braid_raw', data_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', /def
; options, hsk_options_grp+'_cal', colors = c_var, labels = string(c_var), $
; labflag = 1, /def
; options, /def, strfilter(tns, '*ietc_covers*'), tplot_routine = 'bitplot', colors = ''
; options, /def ,strfilter(tns, '*ipwrswitch*'), tplot_routine = 'bitplot', colors= ''
dprint, dwait = 5., verbose = verbose, 'Flushing output'
dprint, dlevel = 4, verbose = verbose, 'Housekeeping data Loaded for probe: '+p_var[s]
endif else begin
dprint, dlevel = 0, verbose = verbose, 'No EFW HSK IDPU ENG data loaded...'+' Probe: '+p_var[s]
dprint, dlevel = 0, verbose = verbose, 'Try using get_support_data keyword'
endelse
format = rbsppref + '/hsk_idpu_events/YYYY/'+rbspx+'_l1_hsk_idpu_events_YYYYMMDD_v*.cdf'
relpathnames = file_dailynames(file_format=format,trange=trange,addmaster=addmaster)
; if vb ge 4 then printdat,/pgmtrace,relpathnames
dprint,dlevel=3,verbose=verbose,relpathnames,/phelp
files = file_retrieve(relpathnames, /last_version, _extra=!rbsp_efw)
if keyword_set(!rbsp_efw.downloadonly) or keyword_set(downloadonly) then continue
; suf='_raw'
suf=''
; midfix='_hsk_idpu_analog_'
prefix=rbspx+'_efw_hsk_idpu_events_'
; if keyword_set(get_support_data) then $
cdf2tplot,file=files,varformat=varformat,all=0,prefix=prefix,suffix=suf,verbose=vb, $
tplotnames=tns,/convert_int1_to_int2,get_support_data=get_support_data ; load data into tplot variables
if is_string(tns) then begin
pn = byte(p_var[s]) - byte('a')
options, /def, tns, colors = probe_colors[pn]
dprint, dlevel = 5, verbose = verbose, 'Setting options...'
options, /def, tns, code_id = '$Id: rbsp_load_efw_hsk.pro 18071 2015-07-10 14:53:58Z aaronbreneman $'
c_var = [1, 2, 3, 4, 5, 6]
; hsk_options_grp = [thx+'_hsk_iefi_ibias',thx+'_hsk_iefi_usher',thx+'_hsk_iefi_guard']
; hsk_options_ele = [thx+'_hsk_iefi_ibias?',thx+'_hsk_iefi_usher?',thx+'_hsk_iefi_guard?']
; options, hsk_options_grp+'_raw', data_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', colors = c_var, labels = string(c_var), $
; labflag = 1, /def
; options, hsk_options_ele+'_raw', ata_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', labflag = 1, /def
; options, thx+'_hsk_iefi_braid_raw', data_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', /def
; options, hsk_options_grp+'_cal', colors = c_var, labels = string(c_var), $
; labflag = 1, /def
; options, /def, strfilter(tns, '*ietc_covers*'), tplot_routine = 'bitplot', colors = ''
; options, /def ,strfilter(tns, '*ipwrswitch*'), tplot_routine = 'bitplot', colors= ''
dprint, dwait = 5., verbose = verbose, 'Flushing output'
dprint, dlevel = 4, verbose = verbose, 'Housekeeping data Loaded for probe: '+p_var[s]
endif else begin
dprint, dlevel = 0, verbose = verbose, 'No EFW HSK IDPU Events data loaded...'+' Probe: '+p_var[s]
; dprint, dlevel = 0, verbose = verbose, 'Try using get_support_data keyword'
endelse
format = rbsppref + '/hsk_idpu_fast/YYYY/'+rbspx+'_l1_hsk_idpu_fast_YYYYMMDD_v*.cdf'
relpathnames = file_dailynames(file_format=format,trange=trange,addmaster=addmaster)
; if vb ge 4 then printdat,/pgmtrace,relpathnames
dprint,dlevel=3,verbose=verbose,relpathnames,/phelp
files = file_retrieve(relpathnames, /last_version, _extra=!rbsp_efw)
if keyword_set(!rbsp_efw.downloadonly) or keyword_set(downloadonly) then continue
; suf='_raw'
suf=''
; midfix='_hsk_idpu_analog_'
prefix=rbspx+'_efw_hsk_idpu_fast_'
if keyword_set(get_support_data) then $
cdf2tplot,file=files,varformat=varformat,all=0,prefix=prefix,suffix=suf,verbose=vb, $
tplotnames=tns,/convert_int1_to_int2,get_support_data=get_support_data ; load data into tplot variables
if is_string(tns) then begin
pn = byte(p_var[s]) - byte('a')
options, /def, tns, colors = probe_colors[pn]
dprint, dlevel = 5, verbose = verbose, 'Setting options...'
options, /def, tns, code_id = '$Id: rbsp_load_efw_hsk.pro 18071 2015-07-10 14:53:58Z aaronbreneman $'
c_var = [1, 2, 3, 4, 5, 6]
; hsk_options_grp = [thx+'_hsk_iefi_ibias',thx+'_hsk_iefi_usher',thx+'_hsk_iefi_guard']
; hsk_options_ele = [thx+'_hsk_iefi_ibias?',thx+'_hsk_iefi_usher?',thx+'_hsk_iefi_guard?']
; options, hsk_options_grp+'_raw', data_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', colors = c_var, labels = string(c_var), $
; labflag = 1, /def
; options, hsk_options_ele+'_raw', ata_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', labflag = 1, /def
; options, thx+'_hsk_iefi_braid_raw', data_att = {units:'ADC'}, $
; ysubtitle = '[ADC]', /def
; options, hsk_options_grp+'_cal', colors = c_var, labels = string(c_var), $
; labflag = 1, /def
; options, /def, strfilter(tns, '*ietc_covers*'), tplot_routine = 'bitplot', colors = ''
; options, /def ,strfilter(tns, '*ipwrswitch*'), tplot_routine = 'bitplot', colors= ''
dprint, dwait = 5., verbose = verbose, 'Flushing output'
dprint, dlevel = 4, verbose = verbose, 'Housekeeping data Loaded for probe: '+p_var[s]
endif else begin
dprint, dlevel = 0, verbose = verbose, 'No EFW HSK IDPU Fast data loaded...'+' Probe: '+p_var[s]
dprint, dlevel = 0, verbose = verbose, 'Try using get_support_data keyword'
endelse
endfor
;if keyword_set(make_multi_tplotvar) then begin
; tns = tnames('th?_hsk_*')
; tns_suf = strmid(tns,8)
; tns_suf = tns_suf[uniq(tns_suf,sort(tns_suf))]
; for i=0,n_elements(tns_suf)-1 do store_data,'Thx_hsk_'+tns_suf[i],data=tnames('th?_hsk_'+tns_suf[i])
;endif
end