;+ ;Procedure: ACE_SWE_LOAD ; ;Purpose: Loads WIND SWE data ; ;keywords: ; TRANGE= (Optional) Time range of interest (2 element array). ; /VERBOSE : set to output some useful info ;Example: ; ace_swe_load,datatype='h2' ;Notes: ; This routine is still in development. ; Author: Davin Larson ; ; $LastChangedBy: davin-win $ ; $LastChangedDate: $ ; $LastChangedRevision: $ ; $URL $ ;- pro ace_swe_load,type,trange=trange,verbose=verbose,downloadonly=downloadonly, $ varformat=varformat,datatype=datatype, $ addmaster=addmaster,tplotnames=tn,source_options=source if not keyword_set(datatype) then datatype = 'k0' istp_init if not keyword_set(source) then source = !istp ;URLs changed due to SPDF reorg ;if datatype eq 'k0' then pathformat = 'ace/swe/YYYY/ac_k0_swe_YYYYMMDD_v01.cdf' ;if datatype eq 'k1' then pathformat = 'ace/swe_k1/YYYY/ac_k1_swe_YYYYMMDD_v02.cdf' ;if datatype eq 'h0' then pathformat = 'ace/swe_h0/YYYY/ac_h0_swe_YYYYMMDD_v??.cdf' ;if datatype eq 'h2' then pathformat = 'ace/swe_h2/YYYY/ac_h2_swe_YYYYMMDD_v??.cdf' ;New URLS 2012/10 pcruce@igpp if datatype eq 'k0' then pathformat = 'ace/swepam/level_2_cdaweb/swe_k0/YYYY/ac_k0_swe_YYYYMMDD_v01.cdf' if datatype eq 'k1' then pathformat = 'ace/swepam/level_2_cdaweb/swe_k1/YYYY/ac_k1_swe_YYYYMMDD_v02.cdf' if datatype eq 'h0' then pathformat = 'ace/swepam/level_2_cdaweb/swe_h0/YYYY/ac_h0_swe_YYYYMMDD_v??.cdf' if datatype eq 'h2' then pathformat = 'ace/swepam/level_2_cdaweb/swe_h2/YYYY/ac_h2_swe_YYYYMMDD_v??.cdf' if not keyword_set(varformat) then begin varformat = '*' ; if datatype eq 'k0' then varformat = 'BGSEc' ; if datatype eq 'h0' then varformat = '*' ; if datatype eq 'h1' then varformat = '*' endif relpathnames = file_dailynames(file_format=pathformat,trange=trange,addmaster=addmaster) files = file_retrieve(relpathnames, _extra=source, /last_version) if keyword_set(downloadonly) then return prefix = 'ace_'+datatype+'_swe_' cdf2tplot,file=files,varformat=varformat,verbose=source.verbose,prefix=prefix ,tplotnames=tn ; load data into tplot variables ; Set options for specific variables options,/def,strfilter(tn,'*GSE* *GSM*',delim=' '),/lazy_ytitle , colors='bgr' ; set colors for the vector quantities ;options,/def,strfilter(tn,'*B*GSE* *B*GSM*',delim=' '), labels=['Bx','By','Bz'] , ysubtitle = '[nT]' dprint,dlevel=3,'tplotnames: ',tn end