;+ ;PROCEDURE: setfileenv ;PURPOSE: ; Sets up environment variables giving information on the location ; of master index files and file paths of WIND 3DP data. ; This should be the one and only file that needs editting for new file systems. ;CREATED BY: Davin Larson and Peter Schroeder ;VERSION: @(#)setfileenv.pro 1.24 03/09/20 ; ;- pro setfileenv,force=force if keyword_set(getenv('FILE_ENV_SET')) and not keyword_set(force) then return ; Only run this procedure once! setenv,'FILE_ENV_SET=1' basedir = getenv('BASE_DATA_DIR') if not keyword_set(basedir) then begin basedir =!version.os_family eq 'Windows' ? 'y:' : '/home/wind/dat' message,/info,'Warning! Environment variable "BASE_DATA_DIR" is not set!;' message,/info,'Using default value: "'+basedir+'"' endif themisdir = getenv('THEMIS_DATA_DIR') setenv,'THG_MAG_FILES=' + themisdir+'thg/l2/mag/ setenv,'WI_K0_3DP_FILES=' +basedir+'/wi/3dp/k0/????/wi_k0_3dp*.cdf' setenv,'WI_K0_SWE_FILES=' +basedir+'/wi/swe/k0/????/wi_k0_swe*.cdf' setenv,'WI_SWE_K0_FILES=' +basedir+'/wi/swe/k0/????/wi_k0_swe*.cdf' setenv,'WI_SWE_K0_B_FILES=' +basedir+'/wi/swe/k0/bartel/wi_swe_k0*.cdf' setenv,'WI_K0_MFI_FILES=' +basedir+'/wi/mfi/k0/????/wi_k0_mfi*.cdf' setenv,'WI_SP_MFI_FILES=' +basedir+'/wi/mfi/sp/????/wi_sp_mfi*.cdf' setenv,'WI_K0_MFI_B_FILES=' +basedir+'/wi/mfi/k0/bartel/wi_*.cdf' setenv,'WI_H0_MFI_FILES=' +basedir+'/wi/mfi/h0/v??/wi_h0_mfi*.cdf' setenv,'WI_OR_DEF_FILES=' +basedir+'/wi/or/def/????/wi_or_def*.cdf' setenv,'WI_OR_PRE_FILES=' +basedir+'/wi/or/pre/????/wi_or_pre*.cdf' setenv,'WI_OR_CMB_FILES=' +basedir+'/wi/or/cmb/????/wi_or_*.cdf' setenv,'WI_OR_LNG_FILES=' +basedir+'/wi/or/lng/wi_or_lng*.cdf' setenv,'WI_OR_CMB_B_FILES=' +basedir+'/wi/or/cmb/bartel/wi_or_cmb_B*.cdf' setenv,'GE_K0_EPI_FILES=' +basedir+'/ge/epi/k0/????/ge_k0_epi*.cdf' setenv,'WI_3DP_ELPD_FILES=' +basedir+'/wi/3dp/elpd/????/wi_3dp_elpd*.cdf' setenv,'WI_3DP_ELPD_B_FILES=' +basedir+'/wi/3dp/elpd/bartel/wi_3dp_elpd*.cdf' setenv,'WI_3DP_PDFIT_FILES=' +basedir+'/wi/3dp/pdfit/????/*pdfit*.cdf' setenv,'WI_3DP_EHSP_FILES=' +basedir+'/wi/3dp/ehsp/????/wi_3dp_ehsp*.cdf' setenv,'WI_3DP_EHSP_B_FILES=' +basedir+'/wi/3dp/ehsp/bartel/wi_3dp_ehsp*.cdf' setenv,'WI_3DP_SFSP_FILES=' +basedir+'/wi/3dp/sfsp/????/wi_3dp_sfsp*.cdf' setenv,'WI_3DP_SFSP_B_FILES=' +basedir+'/wi/3dp/sfsp/bartel/wi_3dp_sfsp_B*.cdf' setenv,'WI_3DP_SFSP2_FILES=' +basedir+'/wi/3dp/sfsp2/????/wi_sfsp_3dp*.cdf' setenv,'WI_3DP_SFSP2_B_FILES='+basedir+'/wi/3dp/sfsp2/bartel/wi_3dp_sfsp2_B*.cdf' setenv,'WI_3DP_SOSP_B_FILES=' +basedir+'/wi/3dp/sosp/bartel/wi_3dp_sosp_B*.cdf' setenv,'WI_3DP_PLSP_FILES=' +basedir+'/wi/3dp/plsp/????/wi_plsp_3dp*.cdf' setenv,'WI_PLSP_3DP_FILES=' +basedir+'/wi/3dp/plsp/????/wi_plsp_3dp*.cdf' setenv,'WI_3DP_PLSP_B_FILES=' +basedir+'/wi/3dp/plsp/bartel/wi_3dp_plsp_B*.cdf' setenv,'WI_EHPD_3DP_FILES=' +basedir+'/wi/3dp/ehpd/????/wi_ehpd_3dp*' setenv,'WI_EHSP_3DP_FILES=' +basedir+'/wi/3dp/ehsp2/????/wi_ehsp_3dp*' setenv,'WI_ELM2_3DP_FILES=' +basedir+'/wi/3dp/elm2/????/wi_elm2_3dp*' setenv,'WI_ELPD_3DP_FILES=' +basedir+'/wi/3dp/elpd/????/wi_elpd_3dp*.cdf' setenv,'WI_ELSP_3DP_FILES=' +basedir+'/wi/3dp/elsp/????/wi_elsp_3dp*' setenv,'WI_EM_3DP_FILES=' +basedir+'/wi/3dp/em/????/wi_em_3dp*' setenv,'WI_K0_3DP_FILES=' +basedir+'/wi/3dp/k0/????/wi_k0_3dp*' setenv,'WI_K0_SWE_FILES=' +basedir+'/wi/swe/k0/????/wi_k0_swe*' setenv,'WI_OR_DEF_FILES=' +basedir+'/wi/or/def/????/wi_or_def*' setenv,'WI_OR_LNG_FILES=' +basedir+'/wi/or/lng/????/wi_or_lng*' setenv,'WI_OR_PRE_FILES=' +basedir+'/wi/or/pre/????/wi_or_pre*' setenv,'WI_PLSP_3DP_FILES=' +basedir+'/wi/3dp/plsp/????/wi_plsp_3dp*' setenv,'WI_SFPD_3DP_FILES=' +basedir+'/wi/3dp/sfpd/????/wi_sfpd_3dp*' setenv,'WI_SFSP_3DP_FILES=' +basedir+'/wi/3dp/sfsp1/????/wi_sfsp_3dp*' setenv,'WI_SOSP_3DP_FILES=' +basedir+'/wi/3dp/sosp1/????/wi_sosp_3dp*' setenv,'WI_SOPD_3DP_FILES=' +basedir+'/wi/3dp/sopd/????/wi_sopd_3dp*' ; The following environment variables will slowly be replaced. if not keyword_set(getenv('WIND_DATA_DIRS')) then $ setenv,'WIND_DATA_DIRS='+basedir+'/d*/' disks= getenv('WIND_DATA_DIRS') indexdir = getenv('CDF_INDEX_DIR')+'/' setenv,'GE_K0_CPI_FILES='+disks+'ge/k0/cpi/ge_k0_cpi*' setenv,'GE_K0_EFD_FILES='+disks+'ge/k0/efd/ge_k0_efd*' setenv,'GE_K0_LEP_FILES='+disks+'ge/k0/lep/ge_k0_lep*' setenv,'GE_K0_MGF_FILES='+disks+'ge/k0/mgf/ge_k0_mgf*' setenv,'GE_K0_PWI_FILES='+disks+'ge/k0/pwi/ge_k0_pwi*' setenv,'IG_K0_PCI_FILES='+disks+'ig/k0/pci/ig_k0_pci*' setenv,'PO_K0_EFI_FILES='+disks+'po/k0/efi/po_k0_efi*' setenv,'PO_K0_HYD_FILES='+disks+'po/k0/hyd/po_k0_hyd*' setenv,'PO_K0_MFE_FILES='+disks+'po/k0/mfe/po_k0_mfe*' setenv,'PO_K0_PIX_FILES='+disks+'po/k0/pix/po_k0_pix*' setenv,'PO_K0_PWI_FILES='+disks+'po/k0/pwi/po_k0_pwi*' setenv,'PO_K0_UVI_FILES='+disks+'po/k0/uvi/po_k0_uvi*' setenv,'SO_K0_CEL_FILES='+disks+'so/k0/cel/so_k0_cel*' setenv,'SO_K0_CST_FILES='+disks+'so/k0/cst/so_k0_cst*' setenv,'SO_K0_ERN_FILES='+disks+'so/k0/ern/so_k0_ern*' setenv,'WI_AT_DEF_FILES='+disks+'wi/at/def/wi_at_def*' setenv,'WI_AT_PRE_FILES='+disks+'wi/at/pre/wi_at_pre*' ;setenv,'WI_EHPD_3DP_FILES='+disks+'wi/3dp/ehpd/wi_ehpd_3dp*' ;setenv,'WI_EHSP_3DP_FILES='+disks+'wi/3dp/ehsp/wi_ehsp_3dp*' ;setenv,'WI_ELM2_3DP_FILES='+disks+'wi/3dp/elm2/wi_elm2_3dp*' ;setenv,'WI_ELPD_3DP_FILES='+disks+'wi/3dp/elpd/wi_elpd_3dp*' ;setenv,'WI_ELSP_3DP_FILES='+disks+'wi/3dp/elsp/wi_elsp_3dp*' ;setenv,'WI_EM_3DP_FILES='+disks+'wi/3dp/em/wi_em_3dp*' setenv,'WI_FRM_3DP_FILES='+disks+'wi/3dp/frm/wi_frm_3dp*' ;setenv,'WI_H0_MFI_FILES='+disks+'wi/h0/mfi/wi_h0_mfi*' setenv,'WI_HKP_3DP_FILES='+disks+'wi/3dp/hkp/wi_hkp_3dp*' ;setenv,'WI_K0_3DP_FILES='+disks+'wi/k0/3dp/wi_k0_3dp*' setenv,'WI_K0_EPA_FILES='+disks+'wi/k0/epa/wi_k0_epa*' ;setenv,'WI_K0_MFI_FILES='+disks+'wi/k0/mfi/wi_k0_mfi*' setenv,'WI_K0_SMS_FILES='+disks+'wi/k0/sms/wi_k0_sms*' setenv,'WI_K0_SPHA_FILES='+disks+'wi/k0/spha/wi_k0_spha*' ;setenv,'WI_K0_SWE_FILES='+disks+'wi/k0/swe/wi_k0_swe*' setenv,'WI_K0_WAV_FILES='+disks+'wi/k0/wav/wi_k0_wav*' setenv,'WI_LZ_3DP_FILES='+disks+'wi/lz/3dp/wi_lz_3dp*' ;setenv,'WI_OR_DEF_FILES='+disks+'wi/or/def/wi_or_def*' ;setenv,'WI_OR_LNG_FILES='+disks+'wi/or/lng/wi_or_lng*' ;setenv,'WI_OR_PRE_FILES='+disks+'wi/or/pre/wi_or_pre*' setenv,'WI_PHSP_3DP_FILES='+disks+'wi/3dp/phsp/wi_phsp_3dp*' ;setenv,'WI_PLSP_3DP_FILES='+disks+'wi/3dp/plsp/wi_plsp_3dp*' setenv,'WI_PM_3DP_FILES='+disks+'wi/3dp/pm/wi_pm_3dp*' ;setenv,'WI_SFPD_3DP_FILES='+disks+'wi/3dp/sfpd/wi_sfpd_3dp*' ;setenv,'WI_SFSP_3DP_FILES='+disks+'wi/3dp/sfsp/wi_sfsp_3dp*' setenv,'WI_SOPD_3DP_FILES='+disks+'wi/3dp/sopd/wi_sopd_3dp*' ;setenv,'WI_SOSP_3DP_FILES='+disks+'wi/3dp/sosp/wi_sosp_3dp*' ;setenv,'WI_SP_MFI_FILES='+disks+'wi/sp/mfi/wi_sp_mfi*' return end