From fd74e2be809fb13c54fc166fa79add258a6fedfb Mon Sep 17 00:00:00 2001
From: Roberto <roberto.susino@inaf.it>
Date: Thu, 4 May 2023 09:03:42 +0200
Subject: [PATCH] Fix old version of planning info keywords

---
 metis_l2_prep_uv.pro         | 14 ++++++++++++++
 metis_l2_prep_vl_generic.pro | 14 ++++++++++++++
 metis_l2_prep_vl_polariz.pro | 14 ++++++++++++++
 3 files changed, 42 insertions(+)

diff --git a/metis_l2_prep_uv.pro b/metis_l2_prep_uv.pro
index 1f14da9..1a55c86 100644
--- a/metis_l2_prep_uv.pro
+++ b/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)
diff --git a/metis_l2_prep_vl_generic.pro b/metis_l2_prep_vl_generic.pro
index 42fd622..810e005 100644
--- a/metis_l2_prep_vl_generic.pro
+++ b/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
diff --git a/metis_l2_prep_vl_polariz.pro b/metis_l2_prep_vl_polariz.pro
index f6f1240..c6d39d3 100755
--- a/metis_l2_prep_vl_polariz.pro
+++ b/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)
-- 
GitLab