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