Commit 5a485cee authored by Roberto Susino's avatar Roberto Susino
Browse files

Add compression status check

parent c92dfdc1

metis_l1_prep.pro

+24 −0
Original line number Diff line number Diff line
@@ -179,6 +179,30 @@ pro metis_l1_prep 
		endif

	endforeach



	compr = fxpar(primary_header, 'COMPR',  missing = -1)

	xsize = fxpar(primary_header, 'X_SIZE', missing = -1)

	

	if compr and xsize lt 0 then begin

		bin_type = fxpar(primary_header, 'BIN_TYPE')

		fxaddpar, primary_header, 'X_SIZE', 2048/2^bin_type, before = 'CHECKSUM'

		fxaddpar, primary_header, 'Y_SIZE', 2048/2^bin_type, before = 'CHECKSUM'

		fxaddpar, primary_header, 'Z_SIZE', 1, before = 'CHECKSUM'

		fxaddpar, primary_header, 'P_BANDS', 0, before = 'CHECKSUM'

		fxaddpar, primary_header, 'N_BANDS', 1, before = 'CHECKSUM'

		fxaddpar, primary_header, 'ORIG_X', 2048, before = 'CHECKSUM'

		fxaddpar, primary_header, 'ORIG_Y', 2048, before = 'CHECKSUM'

		fxaddpar, primary_header, 'FIRSTROW', 0, before = 'CHECKSUM'

		fxaddpar, primary_header, 'B0_BIN', bin_type, before = 'CHECKSUM'

		fxaddpar, primary_header, 'B0_DQ', 0, before = 'CHECKSUM'

		fxaddpar, primary_header, 'B0_STOP', 2048, before = 'CHECKSUM'

		fxaddpar, primary_header, 'B1_BIN', 0, before = 'CHECKSUM'

		fxaddpar, primary_header, 'B1_DQ', 0, before = 'CHECKSUM'

		fxaddpar, primary_header, 'B1_STOP', 0, before = 'CHECKSUM'

		fxaddpar, primary_header, 'B2_BIN', 0, before = 'CHECKSUM'

		fxaddpar, primary_header, 'B2_DQ', 0, before = 'CHECKSUM'

		fxaddpar, primary_header, 'B2_STOP', 0, before = 'CHECKSUM'

	endif



	; rebin the image if binning was applied during the acquisition and check for the data quality

	; NOTE - this is done only for image data products