;+ ; NAME: ; gui_acknowledgement ; ; PURPOSE: ; Show data policy for IUGONET data on GUI ; ; EXAMPLE: ; gui_acknowledgement, instrument=instrument, $ ; datatype=datatype, $ ; site_or_param=site_or_param, $ ; par_names=par_names ; ; Written by: Y.-M. Tanaka, May 11, 2012 (ytanaka at nipr.ac.jp) ;- function gui_acknowledgement, instrument=instrument, datatype=datatype, $ site_or_param=site_or_param, par_names=par_names if par_names[0] eq '' then return, 'Cancel' ;----- Get !iugonet.data_policy -----; case instrument of 'AllSky_Imager_Keograms': begin case site_or_param of 'hus': iug_var = !iugonet.data_policy.ask_nipr_ice 'lyr': iug_var = !iugonet.data_policy.ask_nipr_nor 'tjo': iug_var = !iugonet.data_policy.ask_nipr_ice 'tro': iug_var = !iugonet.data_policy.ask_nipr_nor 'spa': iug_var = !iugonet.data_policy.ask_nipr_spa 'syo': iug_var = !iugonet.data_policy.ask_nipr_syo endcase end 'Automatic_Weather_Station': begin case site_or_param of 'bik': iug_var = !iugonet.data_policy.aws_rish_id 'ktb': iug_var = !iugonet.data_policy.aws_rish_ktb 'mnd': iug_var = !iugonet.data_policy.aws_rish_id 'pon': iug_var = !iugonet.data_policy.aws_rish_id 'sgk': iug_var = !iugonet.data_policy.aws_rish_sgk endcase end 'Boundary_Layer_Radar': begin case site_or_param of 'ktb': iug_var = !iugonet.data_policy.blr_rish_ktb 'sgk': iug_var = !iugonet.data_policy.blr_rish_sgk 'srp': iug_var = !iugonet.data_policy.blr_rish_srp endcase end 'EISCAT_radar' : iug_var = !iugonet.data_policy.eiscat 'Equatorial_Atmosphere_Radar': iug_var = !iugonet.data_policy.ear 'geomagnetic_field_index': begin case datatype of 'ASY_index': iug_var = !iugonet.data_policy.gmag_wdc_ae_asy 'AE_index' : iug_var = !iugonet.data_policy.gmag_wdc_ae_asy 'Dst_index': iug_var = !iugonet.data_policy.gmag_wdc_dst 'Wp_index': iug_var = !iugonet.data_policy.gmag_wdc_wp endcase end 'geomagnetic_field_fluxgate': begin case datatype of 'icswse': begin case site_or_param of 'aab': iug_var = !iugonet.data_policy.gmag_icswse_aab 'abj': iug_var = !iugonet.data_policy.gmag_icswse_abj 'abu': iug_var = !iugonet.data_policy.gmag_icswse_abu 'ama': iug_var = !iugonet.data_policy.gmag_icswse_ama 'anc': iug_var = !iugonet.data_policy.gmag_icswse_anc 'asb': iug_var = !iugonet.data_policy.gmag_icswse_asb 'asw': iug_var = !iugonet.data_policy.gmag_icswse_asw 'bcl': iug_var = !iugonet.data_policy.gmag_icswse_bcl 'bik': iug_var = !iugonet.data_policy.gmag_icswse_bik 'bkl': iug_var = !iugonet.data_policy.gmag_icswse_bkl 'can': iug_var = !iugonet.data_policy.gmag_icswse_can 'cdo': iug_var = !iugonet.data_policy.gmag_icswse_cdo 'ceb': iug_var = !iugonet.data_policy.gmag_icswse_ceb 'cgr': iug_var = !iugonet.data_policy.gmag_icswse_cgr 'chd': iug_var = !iugonet.data_policy.gmag_icswse_chd 'ckt': iug_var = !iugonet.data_policy.gmag_icswse_ckt 'cmd': iug_var = !iugonet.data_policy.gmag_icswse_cmd 'dav': iug_var = !iugonet.data_policy.gmag_icswse_dav 'daw': iug_var = !iugonet.data_policy.gmag_icswse_daw 'des': iug_var = !iugonet.data_policy.gmag_icswse_des 'drb': iug_var = !iugonet.data_policy.gmag_icswse_drb 'dvs': iug_var = !iugonet.data_policy.gmag_icswse_dvs 'eus': iug_var = !iugonet.data_policy.gmag_icswse_eus 'ewa': iug_var = !iugonet.data_policy.gmag_icswse_ewa 'fym': iug_var = !iugonet.data_policy.gmag_icswse_fym 'gsi': iug_var = !iugonet.data_policy.gmag_icswse_gsi 'her': iug_var = !iugonet.data_policy.gmag_icswse_her 'hln': iug_var = !iugonet.data_policy.gmag_icswse_hln 'hob': iug_var = !iugonet.data_policy.gmag_icswse_hob 'hvd': iug_var = !iugonet.data_policy.gmag_icswse_hvd 'ica': iug_var = !iugonet.data_policy.gmag_icswse_ica 'ilr': iug_var = !iugonet.data_policy.gmag_icswse_ilr 'jrs': iug_var = !iugonet.data_policy.gmag_icswse_jrs 'jyp': iug_var = !iugonet.data_policy.gmag_icswse_jyp 'kpg': iug_var = !iugonet.data_policy.gmag_icswse_kpg 'krt': iug_var = !iugonet.data_policy.gmag_icswse_krt 'ktn': iug_var = !iugonet.data_policy.gmag_icswse_ktn 'kuj': iug_var = !iugonet.data_policy.gmag_icswse_kuj 'lag': iug_var = !iugonet.data_policy.gmag_icswse_lag 'laq': iug_var = !iugonet.data_policy.gmag_icswse_laq 'lgz': iug_var = !iugonet.data_policy.gmag_icswse_lgz 'lkw': iug_var = !iugonet.data_policy.gmag_icswse_lkw 'lsk': iug_var = !iugonet.data_policy.gmag_icswse_lsk 'lwa': iug_var = !iugonet.data_policy.gmag_icswse_lwa 'mcq': iug_var = !iugonet.data_policy.gmag_icswse_mcq 'mgd': iug_var = !iugonet.data_policy.gmag_icswse_mgd 'mlb': iug_var = !iugonet.data_policy.gmag_icswse_mlb 'mnd': iug_var = !iugonet.data_policy.gmag_icswse_mnd 'mut': iug_var = !iugonet.data_policy.gmag_icswse_mut 'nab': iug_var = !iugonet.data_policy.gmag_icswse_nab 'onw': iug_var = !iugonet.data_policy.gmag_icswse_onw 'prp': iug_var = !iugonet.data_policy.gmag_icswse_prp 'ptk': iug_var = !iugonet.data_policy.gmag_icswse_ptk 'ptn': iug_var = !iugonet.data_policy.gmag_icswse_ptn 'roc': iug_var = !iugonet.data_policy.gmag_icswse_roc 'sbh': iug_var = !iugonet.data_policy.gmag_icswse_sbh 'scn': iug_var = !iugonet.data_policy.gmag_icswse_scn 'sma': iug_var = !iugonet.data_policy.gmag_icswse_sma 'tgg': iug_var = !iugonet.data_policy.gmag_icswse_tgg 'tik': iug_var = !iugonet.data_policy.gmag_icswse_tik 'tir': iug_var = !iugonet.data_policy.gmag_icswse_tir 'twv': iug_var = !iugonet.data_policy.gmag_icswse_twv 'wad': iug_var = !iugonet.data_policy.gmag_icswse_wad 'yak': iug_var = !iugonet.data_policy.gmag_icswse_yak 'yap': iug_var = !iugonet.data_policy.gmag_icswse_yap 'zgn': iug_var = !iugonet.data_policy.gmag_icswse_zgn endcase end 'magdas#': begin case site_or_param of 'ama': iug_var = !iugonet.data_policy.gmag_magdas_ama 'asb': iug_var = !iugonet.data_policy.gmag_magdas_asb 'daw': iug_var = !iugonet.data_policy.gmag_magdas_daw 'her': iug_var = !iugonet.data_policy.gmag_magdas_her 'hln': iug_var = !iugonet.data_policy.gmag_magdas_hln 'hob': iug_var = !iugonet.data_policy.gmag_magdas_hob 'kuj': iug_var = !iugonet.data_policy.gmag_magdas_kuj 'laq': iug_var = !iugonet.data_policy.gmag_magdas_laq 'mcq': iug_var = !iugonet.data_policy.gmag_magdas_mcq 'mgd': iug_var = !iugonet.data_policy.gmag_magdas_mgd 'mlb': iug_var = !iugonet.data_policy.gmag_magdas_mlb 'mut': iug_var = !iugonet.data_policy.gmag_magdas_mut 'onw': iug_var = !iugonet.data_policy.gmag_magdas_onw 'ptk': iug_var = !iugonet.data_policy.gmag_magdas_ptk 'wad': iug_var = !iugonet.data_policy.gmag_magdas_wad 'yap': iug_var = !iugonet.data_policy.gmag_magdas_yap endcase end '210mm#': begin case site_or_param of 'adl': iug_var = !iugonet.data_policy.gmag_mm210_adl 'bik': iug_var = !iugonet.data_policy.gmag_mm210_bik 'bsv': iug_var = !iugonet.data_policy.gmag_mm210_bsv 'can': iug_var = !iugonet.data_policy.gmag_mm210_can 'cbi': iug_var = !iugonet.data_policy.gmag_mm210_cbi 'chd': iug_var = !iugonet.data_policy.gmag_mm210_chd 'dal': iug_var = !iugonet.data_policy.gmag_mm210_dal 'daw': iug_var = !iugonet.data_policy.gmag_mm210_daw 'ewa': iug_var = !iugonet.data_policy.gmag_mm210_ewa 'gua': iug_var = !iugonet.data_policy.gmag_mm210_gua 'kag': iug_var = !iugonet.data_policy.gmag_mm210_kag 'kat': iug_var = !iugonet.data_policy.gmag_mm210_kat 'kot': iug_var = !iugonet.data_policy.gmag_mm210_kot 'ktb': iug_var = !iugonet.data_policy.gmag_mm210_ktb 'ktn': iug_var = !iugonet.data_policy.gmag_mm210_ktn 'lmt': iug_var = !iugonet.data_policy.gmag_mm210_lmt 'lnp': iug_var = !iugonet.data_policy.gmag_mm210_lnp 'mcq': iug_var = !iugonet.data_policy.gmag_mm210_mcq 'mgd': iug_var = !iugonet.data_policy.gmag_mm210_mgd 'msr': iug_var = !iugonet.data_policy.gmag_mm210_msr 'mut': iug_var = !iugonet.data_policy.gmag_mm210_mut 'onw': iug_var = !iugonet.data_policy.gmag_mm210_onw 'ppi': iug_var = !iugonet.data_policy.gmag_mm210_ppi 'ptk': iug_var = !iugonet.data_policy.gmag_mm210_ptk 'ptn': iug_var = !iugonet.data_policy.gmag_mm210_ptn 'rik': iug_var = !iugonet.data_policy.gmag_mm210_rik 'tik': iug_var = !iugonet.data_policy.gmag_mm210_tik 'wep': iug_var = !iugonet.data_policy.gmag_mm210_wep 'wew': iug_var = !iugonet.data_policy.gmag_mm210_wew 'wtk': iug_var = !iugonet.data_policy.gmag_mm210_wtk 'yap': iug_var = !iugonet.data_policy.gmag_mm210_yap 'ymk': iug_var = !iugonet.data_policy.gmag_mm210_ymk 'zyk': iug_var = !iugonet.data_policy.gmag_mm210_zyk endcase end 'ISEE#': begin case site_or_param of 'msr': iug_var = !iugonet.data_policy.gmag_isee_msr 'rik': iug_var = !iugonet.data_policy.gmag_isee_rik 'kag': iug_var = !iugonet.data_policy.gmag_isee_kag 'ktb': iug_var = !iugonet.data_policy.gmag_isee_ktb 'mdm': iug_var = !iugonet.data_policy.gmag_isee_mdm 'tew': iug_var = !iugonet.data_policy.gmag_isee_tew endcase end 'WDC_kyoto': iug_var = !iugonet.data_policy.gmag_wdc 'NIPR#': begin case site_or_param of 'syo': iug_var = !iugonet.data_policy.gmag_nipr_syo 'amb': iug_var = !iugonet.data_policy.gmag_nipr_syo 'h57': iug_var = !iugonet.data_policy.gmag_nipr_syo 'h68': iug_var = !iugonet.data_policy.gmag_nipr_syo 'ihd': iug_var = !iugonet.data_policy.gmag_nipr_syo 'skl': iug_var = !iugonet.data_policy.gmag_nipr_syo 'srm': iug_var = !iugonet.data_policy.gmag_nipr_syo 'aed': iug_var = !iugonet.data_policy.gmag_nipr_ice 'hus': iug_var = !iugonet.data_policy.gmag_nipr_ice 'isa': iug_var = !iugonet.data_policy.gmag_nipr_ice 'tjo': iug_var = !iugonet.data_policy.gmag_nipr_ice endcase end endcase end 'geomagnetic_field_induction': begin case datatype of 'NIPR#': begin case site_or_param of 'syo': iug_var = !iugonet.data_policy.imag_nipr_syo 'aed': iug_var = !iugonet.data_policy.imag_nipr_ice 'hus': iug_var = !iugonet.data_policy.imag_nipr_ice 'isa': iug_var = !iugonet.data_policy.imag_nipr_ice 'tjo': iug_var = !iugonet.data_policy.imag_nipr_ice endcase end 'ISEE#': begin iug_var = !iugonet.data_policy.imag_isee end endcase end 'GPS_radio_occultation': iug_var = !iugonet.data_policy.gps_ro_rish 'HF_Solar_Jupiter_radio_spectrometer': iug_var = !iugonet.data_policy.hf_tohokuu 'Iitate_Planetary_Radio_Telescope': iug_var = !iugonet.data_policy.iprt 'Imaging_Riometer': begin case site_or_param of 'syo': iug_var = !iugonet.data_policy.irio_nipr_syo 'hus': iug_var = !iugonet.data_policy.irio_nipr_ice 'tjo': iug_var = !iugonet.data_policy.irio_nipr_ice endcase end 'Ionosonde' : iug_var = !iugonet.data_policy.ionosonde_rish 'Lower_Troposphere_Radar' : iug_var = !iugonet.data_policy.ltr_rish 'Low_Frequency_radio_transmitter' : iug_var = !iugonet.data_policy.lfrto 'Medium_Frequency_radar' : iug_var = !iugonet.data_policy.mf_rish 'Meteor_Wind_radar': begin case site_or_param of 'bik': iug_var = !iugonet.data_policy.meteor_rish_id 'ktb': iug_var = !iugonet.data_policy.meteor_rish_id 'srp': iug_var = !iugonet.data_policy.meteor_rish_id 'sgk': iug_var = !iugonet.data_policy.meteor_rish_sgk endcase end 'Middle_Upper_atmosphere_radar' : iug_var = !iugonet.data_policy.mu 'Radiosonde': begin case site_or_param of 'bdg': iug_var = !iugonet.data_policy.radiosonde_rish_sgk 'drw': iug_var = !iugonet.data_policy.radiosonde_rish_dawex 'gpn': iug_var = !iugonet.data_policy.radiosonde_rish_dawex 'ktb': iug_var = !iugonet.data_policy.radiosonde_rish_sgk 'ktr': iug_var = !iugonet.data_policy.radiosonde_rish_dawex 'pon': iug_var = !iugonet.data_policy.radiosonde_rish_sgk 'sgk': iug_var = !iugonet.data_policy.radiosonde_rish_sgk 'srp': iug_var = !iugonet.data_policy.radiosonde_rish_sgk 'uji': iug_var = !iugonet.data_policy.radiosonde_rish_sgk endcase end 'SuperDARN_radar#': begin case site_or_param of 'hok': iug_var = !iugonet.data_policy.sdfit_hok 'sye': iug_var = !iugonet.data_policy.sdfit_syo 'sys': iug_var = !iugonet.data_policy.sdfit_syo endcase end 'Wind_Profiler_Radar_(LQ-7)' : begin case site_or_param of 'bik': iug_var = !iugonet.data_policy.wpr_rish_bik 'mnd': iug_var = !iugonet.data_policy.wpr_rish_mnd 'pon': iug_var = !iugonet.data_policy.wpr_rish_pon 'sgk': iug_var = !iugonet.data_policy.wpr_rish_sgk endcase end endcase ;----- If iug_var is 0, show data policy. -----; if iug_var eq 1 then begin Answer = 'OK' endif else begin Answer = show_acknowledgement(instrument = instrument, datatype = datatype, $ par_names = par_names) if Answer eq 'OK' then begin iug_var = 1 ;----- Put !iugonet.data_policy -----; case instrument of 'AllSky_Imager_Keograms': begin case site_or_param of 'hus': !iugonet.data_policy.ask_nipr_ice = iug_var 'lyr': !iugonet.data_policy.ask_nipr_nor = iug_var 'tjo': !iugonet.data_policy.ask_nipr_ice = iug_var 'tro': !iugonet.data_policy.ask_nipr_nor = iug_var 'spa': !iugonet.data_policy.ask_nipr_spa = iug_var 'syo': !iugonet.data_policy.ask_nipr_syo = iug_var endcase end 'Automatic_Weather_Station': begin case site_or_param of 'bik': !iugonet.data_policy.aws_rish_id = iug_var 'ktb': !iugonet.data_policy.aws_rish_ktb = iug_var 'mnd': !iugonet.data_policy.aws_rish_id = iug_var 'pon': !iugonet.data_policy.aws_rish_id = iug_var 'sgk': !iugonet.data_policy.aws_rish_sgk = iug_var endcase end 'Boundary_Layer_Radar': begin case site_or_param of 'ktb': !iugonet.data_policy.blr_rish_ktb = iug_var 'sgk': !iugonet.data_policy.blr_rish_sgk = iug_var 'srp': !iugonet.data_policy.blr_rish_srp = iug_var endcase end 'EISCAT_radar' : !iugonet.data_policy.eiscat = iug_var 'Equatorial_Atmosphere_Radar' : !iugonet.data_policy.ear = iug_var 'geomagnetic_field_index': begin case datatype of 'ASY_index': !iugonet.data_policy.gmag_wdc_ae_asy = iug_var 'AE_index' : !iugonet.data_policy.gmag_wdc_ae_asy = iug_var 'Dst_index': !iugonet.data_policy.gmag_wdc_dst = iug_var 'Wp_index': !iugonet.data_policy.gmag_wdc_wp = iug_var endcase end 'geomagnetic_field_fluxgate': begin case datatype of 'icswse': begin case site_or_param of 'aab': !iugonet.data_policy.gmag_icswse_aab = iug_var 'abj': !iugonet.data_policy.gmag_icswse_abj = iug_var 'abu': !iugonet.data_policy.gmag_icswse_abu = iug_var 'ama': !iugonet.data_policy.gmag_icswse_ama = iug_var 'anc': !iugonet.data_policy.gmag_icswse_anc = iug_var 'asb': !iugonet.data_policy.gmag_icswse_asb = iug_var 'asw': !iugonet.data_policy.gmag_icswse_asw = iug_var 'bcl': !iugonet.data_policy.gmag_icswse_bcl = iug_var 'bik': !iugonet.data_policy.gmag_icswse_bik = iug_var 'bkl': !iugonet.data_policy.gmag_icswse_bkl = iug_var 'can': !iugonet.data_policy.gmag_icswse_can = iug_var 'cdo': !iugonet.data_policy.gmag_icswse_cdo = iug_var 'ceb': !iugonet.data_policy.gmag_icswse_ceb = iug_var 'cgr': !iugonet.data_policy.gmag_icswse_cgr = iug_var 'chd': !iugonet.data_policy.gmag_icswse_chd = iug_var 'ckt': !iugonet.data_policy.gmag_icswse_ckt = iug_var 'cmd': !iugonet.data_policy.gmag_icswse_cmd = iug_var 'dav': !iugonet.data_policy.gmag_icswse_dav = iug_var 'daw': !iugonet.data_policy.gmag_icswse_daw = iug_var 'des': !iugonet.data_policy.gmag_icswse_des = iug_var 'drb': !iugonet.data_policy.gmag_icswse_drb = iug_var 'dvs': !iugonet.data_policy.gmag_icswse_dvs = iug_var 'eus': !iugonet.data_policy.gmag_icswse_eus = iug_var 'ewa': !iugonet.data_policy.gmag_icswse_ewa = iug_var 'fym': !iugonet.data_policy.gmag_icswse_fym = iug_var 'gsi': !iugonet.data_policy.gmag_icswse_gsi = iug_var 'her': !iugonet.data_policy.gmag_icswse_her = iug_var 'hln': !iugonet.data_policy.gmag_icswse_hln = iug_var 'hob': !iugonet.data_policy.gmag_icswse_hob = iug_var 'hvd': !iugonet.data_policy.gmag_icswse_hvd = iug_var 'ica': !iugonet.data_policy.gmag_icswse_ica = iug_var 'ilr': !iugonet.data_policy.gmag_icswse_ilr = iug_var 'jrs': !iugonet.data_policy.gmag_icswse_jrs = iug_var 'jyp': !iugonet.data_policy.gmag_icswse_jyp = iug_var 'kpg': !iugonet.data_policy.gmag_icswse_kpg = iug_var 'krt': !iugonet.data_policy.gmag_icswse_krt = iug_var 'ktn': !iugonet.data_policy.gmag_icswse_ktn = iug_var 'kuj': !iugonet.data_policy.gmag_icswse_kuj = iug_var 'lag': !iugonet.data_policy.gmag_icswse_lag = iug_var 'laq': !iugonet.data_policy.gmag_icswse_laq = iug_var 'lgz': !iugonet.data_policy.gmag_icswse_lgz = iug_var 'lkw': !iugonet.data_policy.gmag_icswse_lkw = iug_var 'lsk': !iugonet.data_policy.gmag_icswse_lsk = iug_var 'lwa': !iugonet.data_policy.gmag_icswse_lwa = iug_var 'mcq': !iugonet.data_policy.gmag_icswse_mcq = iug_var 'mgd': !iugonet.data_policy.gmag_icswse_mgd = iug_var 'mlb': !iugonet.data_policy.gmag_icswse_mlb = iug_var 'mnd': !iugonet.data_policy.gmag_icswse_mnd = iug_var 'mut': !iugonet.data_policy.gmag_icswse_mut = iug_var 'nab': !iugonet.data_policy.gmag_icswse_nab = iug_var 'onw': !iugonet.data_policy.gmag_icswse_onw = iug_var 'prp': !iugonet.data_policy.gmag_icswse_prp = iug_var 'ptk': !iugonet.data_policy.gmag_icswse_ptk = iug_var 'ptn': !iugonet.data_policy.gmag_icswse_ptn = iug_var 'roc': !iugonet.data_policy.gmag_icswse_roc = iug_var 'sbh': !iugonet.data_policy.gmag_icswse_sbh = iug_var 'scn': !iugonet.data_policy.gmag_icswse_scn = iug_var 'sma': !iugonet.data_policy.gmag_icswse_sma = iug_var 'tgg': !iugonet.data_policy.gmag_icswse_tgg = iug_var 'tik': !iugonet.data_policy.gmag_icswse_tik = iug_var 'tir': !iugonet.data_policy.gmag_icswse_tir = iug_var 'twv': !iugonet.data_policy.gmag_icswse_twv = iug_var 'wad': !iugonet.data_policy.gmag_icswse_wad = iug_var 'yak': !iugonet.data_policy.gmag_icswse_yak = iug_var 'yap': !iugonet.data_policy.gmag_icswse_yap = iug_var 'zgn': !iugonet.data_policy.gmag_icswse_zgn = iug_var endcase end 'magdas#': begin case site_or_param of 'ama': !iugonet.data_policy.gmag_magdas_ama = iug_var 'asb': !iugonet.data_policy.gmag_magdas_asb = iug_var 'daw': !iugonet.data_policy.gmag_magdas_daw = iug_var 'her': !iugonet.data_policy.gmag_magdas_her = iug_var 'hln': !iugonet.data_policy.gmag_magdas_hln = iug_var 'hob': !iugonet.data_policy.gmag_magdas_hob = iug_var 'kuj': !iugonet.data_policy.gmag_magdas_kuj = iug_var 'laq': !iugonet.data_policy.gmag_magdas_laq = iug_var 'mcq': !iugonet.data_policy.gmag_magdas_mcq = iug_var 'mgd': !iugonet.data_policy.gmag_magdas_mgd = iug_var 'mlb': !iugonet.data_policy.gmag_magdas_mlb = iug_var 'mut': !iugonet.data_policy.gmag_magdas_mut = iug_var 'onw': !iugonet.data_policy.gmag_magdas_onw = iug_var 'ptk': !iugonet.data_policy.gmag_magdas_ptk = iug_var 'wad': !iugonet.data_policy.gmag_magdas_wad = iug_var 'yap': !iugonet.data_policy.gmag_magdas_yap = iug_var endcase end '210mm#' : begin case site_or_param of 'adl': !iugonet.data_policy.gmag_mm210_adl = iug_var 'bik': !iugonet.data_policy.gmag_mm210_bik = iug_var 'bsv': !iugonet.data_policy.gmag_mm210_bsv = iug_var 'can': !iugonet.data_policy.gmag_mm210_can = iug_var 'cbi': !iugonet.data_policy.gmag_mm210_cbi = iug_var 'chd': !iugonet.data_policy.gmag_mm210_chd = iug_var 'dal': !iugonet.data_policy.gmag_mm210_dal = iug_var 'daw': !iugonet.data_policy.gmag_mm210_daw = iug_var 'ewa': !iugonet.data_policy.gmag_mm210_ewa = iug_var 'gua': !iugonet.data_policy.gmag_mm210_gua = iug_var 'kag': !iugonet.data_policy.gmag_mm210_kag = iug_var 'kat': !iugonet.data_policy.gmag_mm210_kat = iug_var 'kot': !iugonet.data_policy.gmag_mm210_kot = iug_var 'ktb': !iugonet.data_policy.gmag_mm210_ktb = iug_var 'ktn': !iugonet.data_policy.gmag_mm210_ktn = iug_var 'lmt': !iugonet.data_policy.gmag_mm210_lmt = iug_var 'lnp': !iugonet.data_policy.gmag_mm210_lnp = iug_var 'mcq': !iugonet.data_policy.gmag_mm210_mcq = iug_var 'mgd': !iugonet.data_policy.gmag_mm210_mgd = iug_var 'msr': !iugonet.data_policy.gmag_mm210_msr = iug_var 'mut': !iugonet.data_policy.gmag_mm210_mut = iug_var 'onw': !iugonet.data_policy.gmag_mm210_onw = iug_var 'ppi': !iugonet.data_policy.gmag_mm210_ppi = iug_var 'ptk': !iugonet.data_policy.gmag_mm210_ptk = iug_var 'ptn': !iugonet.data_policy.gmag_mm210_ptn = iug_var 'rik': !iugonet.data_policy.gmag_mm210_rik = iug_var 'tik': !iugonet.data_policy.gmag_mm210_tik = iug_var 'wep': !iugonet.data_policy.gmag_mm210_wep = iug_var 'wew': !iugonet.data_policy.gmag_mm210_wew = iug_var 'wtk': !iugonet.data_policy.gmag_mm210_wtk = iug_var 'yap': !iugonet.data_policy.gmag_mm210_yap = iug_var 'ymk': !iugonet.data_policy.gmag_mm210_ymk = iug_var 'zyk': !iugonet.data_policy.gmag_mm210_zyk = iug_var endcase end 'ISEE#': begin case site_or_param of 'msr': !iugonet.data_policy.gmag_isee_msr = iug_var 'rik': !iugonet.data_policy.gmag_isee_rik = iug_var 'kag': !iugonet.data_policy.gmag_isee_kag = iug_var 'ktb': !iugonet.data_policy.gmag_isee_ktb = iug_var 'mdm': !iugonet.data_policy.gmag_isee_mdm = iug_var 'tew': !iugonet.data_policy.gmag_isee_tew = iug_var endcase end 'WDC_kyoto': !iugonet.data_policy.gmag_wdc = iug_var 'NIPR#': begin case site_or_param of 'syo': !iugonet.data_policy.gmag_nipr_syo = iug_var 'amb': !iugonet.data_policy.gmag_nipr_syo = iug_var 'h57': !iugonet.data_policy.gmag_nipr_syo = iug_var 'h68': !iugonet.data_policy.gmag_nipr_syo = iug_var 'ihd': !iugonet.data_policy.gmag_nipr_syo = iug_var 'skl': !iugonet.data_policy.gmag_nipr_syo = iug_var 'srm': !iugonet.data_policy.gmag_nipr_syo = iug_var 'aed': !iugonet.data_policy.gmag_nipr_ice = iug_var 'hus': !iugonet.data_policy.gmag_nipr_ice = iug_var 'isa': !iugonet.data_policy.gmag_nipr_ice = iug_var 'tjo': !iugonet.data_policy.gmag_nipr_ice = iug_var endcase end endcase end 'geomagnetic_field_induction': begin case datatype of 'NIPR#': begin case site_or_param of 'syo': !iugonet.data_policy.imag_nipr_syo = iug_var 'aed': !iugonet.data_policy.imag_nipr_ice = iug_var 'hus': !iugonet.data_policy.imag_nipr_ice = iug_var 'isa': !iugonet.data_policy.imag_nipr_ice = iug_var 'tjo': !iugonet.data_policy.imag_nipr_ice = iug_var endcase end 'ISEE#': begin !iugonet.data_policy.imag_isee = iug_var end endcase end 'GPS_radio_occultation': !iugonet.data_policy.gps_ro_rish = iug_var 'HF_Solar_Jupiter_radio_spectrometer': !iugonet.data_policy.hf_tohokuu = iug_var 'Iitate_Planetary_Radio_Telescope': !iugonet.data_policy.iprt = iug_var 'Imaging_Riometer': begin case site_or_param of 'syo': !iugonet.data_policy.irio_nipr_syo = iug_var 'hus': !iugonet.data_policy.irio_nipr_ice = iug_var 'tjo': !iugonet.data_policy.irio_nipr_ice = iug_var endcase end 'Ionosonde' : !iugonet.data_policy.ionosonde_rish = iug_var 'Lower_Troposphere_Radar' : !iugonet.data_policy.ltr_rish = iug_var 'Low_Frequency_radio_transmitter' : !iugonet.data_policy.lfrto = iug_var 'Medium_Frequency_radar' : !iugonet.data_policy.mf_rish = iug_var 'Meteor_Wind_radar': begin case site_or_param of 'bik': !iugonet.data_policy.meteor_rish_id = iug_var 'ktb': !iugonet.data_policy.meteor_rish_id = iug_var 'srp': !iugonet.data_policy.meteor_rish_id = iug_var 'sgk': !iugonet.data_policy.meteor_rish_sgk = iug_var endcase end 'Middle_Upper_atmosphere_radar' : !iugonet.data_policy.mu = iug_var 'Radiosonde': begin case site_or_param of 'bdg': !iugonet.data_policy.radiosonde_rish_sgk = iug_var 'drw': !iugonet.data_policy.radiosonde_rish_dawex = iug_var 'gpn': !iugonet.data_policy.radiosonde_rish_dawex = iug_var 'ktb': !iugonet.data_policy.radiosonde_rish_sgk = iug_var 'ktr': !iugonet.data_policy.radiosonde_rish_dawex = iug_var 'pon': !iugonet.data_policy.radiosonde_rish_sgk = iug_var 'sgk': !iugonet.data_policy.radiosonde_rish_sgk = iug_var 'srp': !iugonet.data_policy.radiosonde_rish_sgk = iug_var 'uji': !iugonet.data_policy.radiosonde_rish_sgk = iug_var endcase end 'SuperDARN_radar#': begin case site_or_param of 'hok': !iugonet.data_policy.sdfit_hok = iug_var 'sye': !iugonet.data_policy.sdfit_syo = iug_var 'sys': !iugonet.data_policy.sdfit_syo = iug_var endcase end 'Wind_Profiler_Radar_(LQ-7)': begin case site_or_param of 'bik': !iugonet.data_policy.wpr_rish_bik = iug_var 'mnd': !iugonet.data_policy.wpr_rish_mnd = iug_var 'pon': !iugonet.data_policy.wpr_rish_pon = iug_var 'sgk': !iugonet.data_policy.wpr_rish_sgk = iug_var endcase end endcase endif endelse return, Answer end