;+ ;PROCEDURE: load_wi_phsp_3dp ;PURPOSE: ; loads WIND 3D Plasma Experiment key parameter data for "tplot". ; ;INPUTS: ; none, but will call "timespan" if time_range is not already set. ;KEYWORDS: ; DATA: Raw data can be returned through this named variable. ; NVDATA: Raw non-varying data can be returned through this variable. ; TIME_RANGE: 2 element vector specifying the time range. ; MASTERFILE: (string) full file name to the master file. ; PREFIX: Prefix for TPLOT variables created. Default is 'phsp' ;SEE ALSO: ; "loadcdf","loadcdfstr","loadallcdf" ; ;CREATED BY: Peter Schroeder ;LAST MODIFICATION: @(#)load_wi_phsp_3dp.pro 1.4 99/05/27 ;- pro load_wi_phsp_3dp $ ,time_range=trange $ ,data=d $ ,nvdata = nd $ ,masterfile=masterfile $ ,resolution = res $ ,prefix = prefix if not keyword_set(masterfile) then masterfile = 'wi_phsp_3dp_files' cdfnames = ['FLUX', 'ENERGY' ] d=0 loadallcdf,masterfile=masterfile,cdfnames=cdfnames,data=d, $ novarnames=novarnames,novard=nd,time_range=trange,resol=res if not keyword_set(d) then return if data_type(prefix) eq 7 then px=prefix else px = 'phsp' evals = roundsig(d(0).energy/1000.) elab = strtrim(string(evals,format='(g0)')+' keV',2) ;elabpos=reverse([100000., 42000., 15000., 5400., 790., 110., 5.3, 0.59, $ ; 0.21 ,0.046, 0.013, 0.0042, 0.0017, 0.0008, 0.00029 ]) store_data,px,data={x:d.time,y:dimen_shift(d.flux,1),v:dimen_shift(d.energy,1)}$ ,min=-1e30,dlim={ylog:1,labels:elab} end