Fix old version of planning info keywords

metis_l2_prep_uv.pro

@@ -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

@@ -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

@@ -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)