2018-05-03 11:27:17 +00:00
|
|
|
#!/bin/sh
|
2020-01-28 14:32:34 +00:00
|
|
|
# (C) Copyright 2005- ECMWF.
|
2018-05-03 11:27:17 +00:00
|
|
|
#
|
|
|
|
|
# This software is licensed under the terms of the Apache Licence Version 2.0
|
|
|
|
|
# which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
|
|
|
|
|
#
|
|
|
|
|
# In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
|
|
|
|
|
# virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
|
|
|
|
|
#
|
|
|
|
|
|
2022-04-03 22:02:48 +00:00
|
|
|
. ./include.ctest.sh
|
2018-05-03 11:27:17 +00:00
|
|
|
|
|
|
|
|
# ---------------------------------------------------------
|
|
|
|
|
# This is the test for the JIRA issue ECC-686.
|
|
|
|
|
# It tests changing the subtype in the ECMWF local section
|
|
|
|
|
# ---------------------------------------------------------
|
2022-06-01 15:02:34 +00:00
|
|
|
label="bufr_ecc-686_test"
|
2018-05-03 11:27:17 +00:00
|
|
|
tempRules=temp.${label}.filter
|
|
|
|
|
tempBufr=temp.${label}.bufr
|
|
|
|
|
|
|
|
|
|
set_subtype()
|
|
|
|
|
{
|
|
|
|
|
oldSubtype=$1
|
|
|
|
|
newSubtype=$2
|
|
|
|
|
input=${data_dir}/bufr/aaen_55.bufr
|
|
|
|
|
cat > $tempRules << EOF
|
|
|
|
|
print " Setting oldSubtype $oldSubtype and newSubtype $newSubtype";
|
|
|
|
|
print " BEFORE: numObs=[localNumberOfObservations] satID=[satelliteID]";
|
|
|
|
|
transient old_localNumberOfObservations = localNumberOfObservations;
|
|
|
|
|
transient old_satelliteID = satelliteID;
|
|
|
|
|
set oldSubtype=$oldSubtype;
|
|
|
|
|
set newSubtype=$newSubtype;
|
|
|
|
|
print " AFTER: numObs=[localNumberOfObservations] satID=[satelliteID]";
|
|
|
|
|
set satelliteID = old_satelliteID;
|
|
|
|
|
set localNumberOfObservations = old_localNumberOfObservations;
|
|
|
|
|
print " RESTORE: numObs=[localNumberOfObservations] satID=[satelliteID]";
|
|
|
|
|
assert(localNumberOfObservations==128);
|
|
|
|
|
assert(satelliteID==209);
|
|
|
|
|
write;
|
|
|
|
|
EOF
|
|
|
|
|
${tools_dir}/codes_bufr_filter -o $tempBufr $tempRules $input
|
|
|
|
|
res=`${tools_dir}/bufr_get -p oldSubtype,newSubtype,localNumberOfObservations,satelliteID $tempBufr`
|
|
|
|
|
[ "$res" = "$oldSubtype $newSubtype 128 209" ]
|
|
|
|
|
rm -f $tempRules $tempBufr
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
# Non-special subType
|
|
|
|
|
set_subtype 30 256
|
|
|
|
|
|
|
|
|
|
# Special range: 31, 121 <= x <= 130
|
|
|
|
|
set_subtype 31 256
|
|
|
|
|
set_subtype 121 256
|
|
|
|
|
set_subtype 130 256
|
|
|
|
|
|
|
|
|
|
# oldSubtype = maximum 255 and newSubtype takes over
|
|
|
|
|
set_subtype 255 256
|
|
|
|
|
|
|
|
|
|
rm -f $tempRules $tempBufr
|
