Commit fd74e2be authored by Roberto Susino's avatar Roberto Susino
Browse files

Fix old version of planning info keywords

parent ff636dd8

metis_l2_prep_uv.pro

+14 −0
Original line number Diff line number Diff line
@@ -152,6 +152,20 @@ pro metis_l2_prep_uv 


	sxdelpar, primary_header, 'BLANK'

	

	; fix planning info keywords



	if header.soopname.startswith('unknown') then soopname = 'none' else soopname = header.soopname

	if header.obs_mode.startswith('unknown') then obs_mode = 'none' else obs_mode = header.obs_mode

	if soopname eq 'none' then sooptype = 'none' else sooptype = header.sooptype

	if obs_mode eq 'none' then obs_type = 'none' else obs_type = header.obs_type

	if soopname eq 'none' and obs_mode eq 'none' then obs_id = 'none' else obs_id = header.obs_id



	fxaddpar, primary_header, 'SOOPNAME', soopname

	fxaddpar, primary_header, 'SOOPTYPE', sooptype

	fxaddpar, primary_header, 'OBS_MODE', obs_mode

	fxaddpar, primary_header, 'OBS_TYPE', obs_type

	fxaddpar, primary_header, 'OBS_ID',  obs_id



	; append wcs keywords



	wcs = metis_wcs(header, cal_pack, ref_detector = ref_detector)

metis_l2_prep_vl_generic.pro

+14 −0
Original line number Diff line number Diff line
@@ -171,6 +171,20 @@ pro metis_l2_prep_vl_generic 


	sxdelpar, primary_header, 'BLANK'

	

	; fix planning info keywords



	if header.soopname.startswith('unknown') then soopname = 'none' else soopname = header.soopname

	if header.obs_mode.startswith('unknown') then obs_mode = 'none' else obs_mode = header.obs_mode

	if soopname eq 'none' then sooptype = 'none' else sooptype = header.sooptype

	if obs_mode eq 'none' then obs_type = 'none' else obs_type = header.obs_type

	if soopname eq 'none' and obs_mode eq 'none' then obs_id = 'none' else obs_id = header.obs_id



	fxaddpar, primary_header, 'SOOPNAME', soopname

	fxaddpar, primary_header, 'SOOPTYPE', sooptype

	fxaddpar, primary_header, 'OBS_MODE', obs_mode

	fxaddpar, primary_header, 'OBS_TYPE', obs_type

	fxaddpar, primary_header, 'OBS_ID',  obs_id



	; read the calibration curve to convert pmp raw voltages (dacpol) into effective polarization angles



	dacpol_cal = cal_pack.vl_channel.dacpol_cal

metis_l2_prep_vl_polariz.pro

+14 −0
Original line number Diff line number Diff line
@@ -350,6 +350,20 @@ pro metis_l2_prep_vl_polariz 
	fxaddpar, primary_header, 'TSENSOR', header.tsensor

	fxaddpar, primary_header, 'PMPTEMP', header.pmptemp



	; fix planning info keywords



	if header.soopname.startswith('unknown') then soopname = 'none' else soopname = header.soopname

	if header.obs_mode.startswith('unknown') then obs_mode = 'none' else obs_mode = header.obs_mode

	if soopname eq 'none' then sooptype = 'none' else sooptype = header.sooptype

	if obs_mode eq 'none' then obs_type = 'none' else obs_type = header.obs_type

	if soopname eq 'none' and obs_mode eq 'none' then obs_id = 'none' else obs_id = header.obs_id



	fxaddpar, primary_header, 'SOOPNAME', soopname

	fxaddpar, primary_header, 'SOOPTYPE', sooptype

	fxaddpar, primary_header, 'OBS_MODE', obs_mode

	fxaddpar, primary_header, 'OBS_TYPE', obs_type

	fxaddpar, primary_header, 'OBS_ID',  obs_id

	

	; append wcs keywords



	wcs = metis_wcs(header, cal_pack, ref_detector = ref_detector)