| 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) == "PO-RS-ACR-GS-0003_6/0" or bytes(/,0,8) == "PRODUCT=" and bytes(/,9,10) == "GOM_PR2_AX" and bytes(/,95,22) == "PO-RS-MDA-GS2009_10_3I" or bytes(/,0,8) == "PRODUCT=" and bytes(/,9,10) == "GOM_PR2_AX" and bytes(/,95,23) == "PO-RS-MDA-GS-2009_3/J " |
| 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) |