diff --git a/metis_l1_prep.pro b/metis_l1_prep.pro index 9a76c54902bb4c578b2cf76f0e4c1f49599a0ac0..57c881e8361aff309c46324eb00f9adef2f48a44 100755 --- a/metis_l1_prep.pro +++ b/metis_l1_prep.pro @@ -143,9 +143,14 @@ pro metis_l1_prep ; campaign keywords - obs_id_fields = strsplit(planning_data.obs_id, '_', /extract) - soop_type = obs_id_fields[2] - obs_type = obs_id_fields[4] + if planning_data.obs_id ne 'none' then begin + obs_id_fields = strsplit(planning_data.obs_id, '_', /extract) + if obs_id_fields[2] eq '000' then sooptype = 'none' else sooptype = obs_id_fields[2] + if obs_id_fields[4] eq '000' then obs_type = 'none' else obs_type = obs_id_fields[4] + endif else begin + sooptype = 'none' + obs_type = 'none' + endelse ; build the fits file extensions @@ -323,7 +328,7 @@ pro metis_l1_prep fxaddpar, primary_header, 'NSUMEXP', nsumexp, 'number of detector readouts summed together', before = 'DATAMIN' fxaddpar, primary_header, 'TELAPSE', telapse, '[s] elapsed time during observation', before = 'DATAMIN' fxaddpar, primary_header, 'SOOPNAME', planning_data.soop_name, 'name of the SOOP that the data belong to', before = 'DATAMIN' - fxaddpar, primary_header, 'SOOPTYPE', soop_type, 'campaign ID(s) that the data belong to', before = 'DATAMIN' + fxaddpar, primary_header, 'SOOPTYPE', sooptype, 'campaign ID(s) that the data belong to', before = 'DATAMIN' fxaddpar, primary_header, 'OBS_ID', planning_data.obs_id, 'unique ID of the individual observation', before = 'DATAMIN' fxaddpar, primary_header, 'TARGET', 'TBD', 'type of target from planning', before = 'DATAMIN' fxaddpar, primary_header, 'BSCALE', 1, 'ratio of physical to array value at 0 offset', before = 'DATAMIN' @@ -395,7 +400,7 @@ pro metis_l1_prep fxaddpar, primary_header, 'HV_MCP_V', interpol_param(hk_table, 'NIT0E0B6', date_avg, empty_params = empty_params), '[V] HVU MCP read voltage', after = 'HV_SCR_V' fxaddpar, primary_header, 'HV_MCP_I', interpol_param(hk_table, 'NIT0E0BF', date_avg, empty_params = empty_params), '[uA] HVU MCP current', after = 'HV_MCP_V' fxaddpar, primary_header, 'HV_TEMP', interpol_param(hk_table, 'NIT0E0B5', date_avg, empty_params = empty_params), '[degC] HVU temperature', after = 'HV_MCP_I' - fxaddpar, primary_header, 'TSENSOR ', interpol_param(hk_table, 'NIT0E050', date_avg, empty_params = empty_params), '[degC] UVDA temperature' + fxaddpar, primary_header, 'TSENSOR', interpol_param(hk_table, 'NIT0E050', date_avg, empty_params = empty_params), '[degC] UVDA temperature' journal, 'Header keywords were calibrated using HK parameters:' journal, ' HVU_SCR = ' + string(fxpar(primary_header, 'HVU_SCR'), format = '(F0)')