binary record | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
This product definition is applicable if a product matches the following rule:
bytes(/,0,8) == "PRODUCT=" and bytes(/,9,10) == "GOM_PR2_AX" and bytes(/,95,21) == "AA-BB-CCC-DD-EEEE_V/I" or bytes(/,0,8) == "PRODUCT=" and bytes(/,9,10) == "GOM_PR2_AX" and bytes(/,95,21) == "PO-RS-ACR-GS-0003_5/1" or bytes(/,0,8) == "PRODUCT=" and bytes(/,9,10) == "GOM_PR2_AX" and bytes(/,95,21) == "PO-RS-MDA-GS-2009_3/C" or bytes(/,0,8) == "PRODUCT=" and bytes(/,9,10) == "GOM_PR2_AX" and bytes(/,95,22) == "PO-RS-MDA-GS2009_10_3G" or bytes(/,0,8) == "PRODUCT=" and bytes(/,9,10) == "GOM_PR2_AX" and bytes(/,95,22) == "PO-RS-MDA-GS2009_10_3H" |
name | size | initialisation |
---|---|---|
num_dsd | $num_dsd = int(/mph/num_dsd) | |
num_ds | $num_ds = 9 | |
ds_to_dsd_index | [$num_ds] | $ds_to_dsd_index[0] = index(/dsd, str(./ds_name) == "PR2_ATMOSPHERE "); $ds_to_dsd_index[1] = index(/dsd, str(./ds_name) == "PR2_GENERAL "); $ds_to_dsd_index[2] = index(/dsd, str(./ds_name) == "PR2_CONV_CRITERIA_GADS "); $ds_to_dsd_index[3] = index(/dsd, str(./ds_name) == "PR2_CONV_CRITERIA_MDS "); $ds_to_dsd_index[4] = index(/dsd, str(./ds_name) == "PR2_REF_LINE_DENSITIES "); $ds_to_dsd_index[5] = index(/dsd, str(./ds_name) == "PR2_GROUP_OF_SPECIES_INIT "); $ds_to_dsd_index[6] = index(/dsd, str(./ds_name) == "PR2_GROUP_OF_SPECIES "); $ds_to_dsd_index[7] = index(/dsd, str(./ds_name) == "PR2_SPECTRAL_WINDOWS_INIT "); $ds_to_dsd_index[8] = index(/dsd, str(./ds_name) == "PR2_SPECTRAL_WINDOWS ") |
ds_available | [$num_ds] | for i = 0 to $num_ds - 1 do $ds_available[i] = if($ds_to_dsd_index[i] != -1 and !(bytes(/dsd[$ds_to_dsd_index[i]]/filename,8) == "NOT USED"), 1, 0) |
ds_offset | [$num_ds] | for i = 0 to $num_ds - 1 do $ds_offset[i] = 8 * int(/dsd[$ds_to_dsd_index[i]]/ds_offset) |
num_dsr | [$num_ds] | for i = 0 to $num_ds - 1 do $num_dsr[i] = int(/dsd[$ds_to_dsd_index[i]]/num_dsr) |