2013-03-25 12:04:10 +00:00
|
|
|
#!/bin/sh
|
2020-01-28 14:32:34 +00:00
|
|
|
# (C) Copyright 2005- ECMWF.
|
2013-03-25 12:04:10 +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.
|
2014-08-28 09:03:16 +00:00
|
|
|
#
|
2013-03-25 12:04:10 +00:00
|
|
|
# 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
|
2013-03-25 12:04:10 +00:00
|
|
|
|
2014-05-07 13:14:42 +00:00
|
|
|
files="
|
|
|
|
constant_width_bitmap.grib
|
|
|
|
constant_width_boust_bitmap.grib
|
|
|
|
gen.grib
|
|
|
|
gen_bitmap.grib
|
|
|
|
gen_ext.grib
|
|
|
|
gen_ext_bitmap.grib
|
|
|
|
gen_ext_boust.grib
|
|
|
|
gen_ext_boust_bitmap.grib
|
|
|
|
gen_ext_spd_2.grib
|
|
|
|
gen_ext_spd_2_bitmap.grib
|
|
|
|
gen_ext_spd_2_boust_bitmap.grib
|
|
|
|
gen_ext_spd_3.grib
|
|
|
|
gen_ext_spd_3_boust_bitmap.grib
|
|
|
|
grid_ieee.grib
|
|
|
|
gts.grib
|
|
|
|
in_copy.grib
|
|
|
|
index.grib
|
|
|
|
mixed.grib
|
|
|
|
pad.grib
|
|
|
|
row.grib
|
|
|
|
satellite.grib
|
|
|
|
simple.grib
|
|
|
|
simple_bitmap.grib
|
|
|
|
sst_globus0083.grib
|
|
|
|
timeRangeIndicator_0.grib
|
|
|
|
timeRangeIndicator_10.grib
|
|
|
|
timeRangeIndicator_5.grib
|
|
|
|
tp_ecmwf.grib
|
|
|
|
constant_field.grib1
|
|
|
|
lfpw.grib1
|
|
|
|
missing_field.grib1
|
|
|
|
reduced_gaussian_lsm.grib1
|
|
|
|
reduced_gaussian_model_level.grib1
|
|
|
|
reduced_gaussian_pressure_level.grib1
|
|
|
|
reduced_gaussian_pressure_level_constant.grib1
|
|
|
|
reduced_gaussian_sub_area.grib1
|
|
|
|
reduced_gaussian_surface.grib1
|
|
|
|
reduced_latlon_surface.grib1
|
|
|
|
reduced_latlon_surface_constant.grib1
|
|
|
|
reference_ensemble_mean.grib1
|
|
|
|
reference_stdev.grib1
|
|
|
|
regular_gaussian_model_level.grib1
|
|
|
|
regular_gaussian_pressure_level.grib1
|
|
|
|
regular_gaussian_pressure_level_constant.grib1
|
|
|
|
regular_gaussian_surface.grib1
|
|
|
|
regular_latlon_surface.grib1
|
|
|
|
regular_latlon_surface_constant.grib1
|
|
|
|
second_ord_rbr.grib1
|
|
|
|
small_ensemble.grib1
|
|
|
|
spectral_complex.grib1
|
|
|
|
spherical_model_level.grib1
|
|
|
|
spherical_pressure_level.grib1
|
|
|
|
test.grib1
|
|
|
|
gep10.t12z.pgrb2af78.grib2
|
|
|
|
gfs.c255.grib2
|
|
|
|
jpeg.grib2
|
|
|
|
lfpw.grib2
|
|
|
|
missing.grib2
|
|
|
|
multi.grib2
|
|
|
|
multi_created.grib2
|
|
|
|
reduced_gaussian_surface_jpeg.grib2
|
|
|
|
sample.grib2
|
|
|
|
test_uuid.grib2
|
|
|
|
tigge.sm.grib2
|
|
|
|
tigge.sm.miss.grib2
|
|
|
|
tigge_af_ecmwf.grib2
|
|
|
|
tigge_cf_ecmwf.grib2
|
|
|
|
tigge_ecmwf.grib2
|
|
|
|
tigge_pf_ecmwf.grib2
|
|
|
|
v.grib2
|
|
|
|
"
|
|
|
|
|
|
|
|
# Make sure the key "bitsPerValue" is defined for all gribs
|
|
|
|
# grib_get will fail if the key is not defined
|
|
|
|
for file in $files; do
|
|
|
|
infile=${data_dir}/$file
|
|
|
|
if [ -f "$infile" ]; then
|
2017-02-03 14:21:24 +00:00
|
|
|
${tools_dir}/grib_get -p bitsPerValue $infile >/dev/null
|
2014-05-07 13:14:42 +00:00
|
|
|
fi
|
|
|
|
done
|
|
|
|
|
|
|
|
|
2022-01-18 17:53:26 +00:00
|
|
|
files="regular_latlon_surface.grib2
|
|
|
|
regular_latlon_surface.grib1
|
|
|
|
lfpw.grib1"
|
2013-03-25 12:04:10 +00:00
|
|
|
|
2022-01-18 17:53:26 +00:00
|
|
|
for file in $files; do
|
2013-03-25 12:04:10 +00:00
|
|
|
infile=${data_dir}/$file
|
|
|
|
outfile1=${infile}_bitsPerValue_1
|
|
|
|
outfile2=${infile}_bitsPerValue_2
|
2022-01-18 17:53:26 +00:00
|
|
|
|
|
|
|
# Setting with setBitsPerValue key should be identical to using the repack option
|
2017-02-03 14:21:24 +00:00
|
|
|
${tools_dir}/grib_set -r -s bitsPerValue=10 $infile $outfile1
|
|
|
|
${tools_dir}/grib_set -s setBitsPerValue=10 $infile $outfile2
|
2013-03-25 12:04:10 +00:00
|
|
|
|
2017-02-03 14:21:24 +00:00
|
|
|
${tools_dir}/grib_compare $outfile1 $outfile2
|
2013-03-25 12:04:10 +00:00
|
|
|
|
2020-02-05 16:13:07 +00:00
|
|
|
rm -f $outfile1 $outfile2
|
2013-03-25 12:04:10 +00:00
|
|
|
|
|
|
|
done
|
|
|
|
|
|
|
|
# Extra test for grid_complex_spatial_differencing
|
2017-02-03 14:21:24 +00:00
|
|
|
res=`${tools_dir}/grib_get -p decimalScaleFactor,bitsPerValue ${data_dir}/gfs.c255.grib2`
|
2013-12-13 12:57:32 +00:00
|
|
|
[ "$res" = "1 20" ]
|
2020-02-05 16:13:07 +00:00
|
|
|
|
|
|
|
|
|
|
|
# Test increasing bits per value
|
|
|
|
input=${data_dir}/sample.grib2
|
|
|
|
temp=temp.grib_bitsPerValue.grib
|
2020-02-06 12:31:07 +00:00
|
|
|
MAX_BPV=58
|
|
|
|
if [ $ECCODES_ON_WINDOWS -eq 1 ]; then
|
|
|
|
MAX_BPV=26
|
|
|
|
fi
|
2020-02-05 16:13:07 +00:00
|
|
|
stats1=`${tools_dir}/grib_get -M -F%.3f -p min,max,avg,sd $input`
|
|
|
|
grib_check_key_equals $input 'bitsPerValue,packingType' '16 grid_simple'
|
2020-02-06 12:31:07 +00:00
|
|
|
for bpv in `seq 17 $MAX_BPV`; do
|
2020-02-05 16:13:07 +00:00
|
|
|
${tools_dir}/grib_set -M -s setBitsPerValue=$bpv $input $temp
|
|
|
|
stats2=`${tools_dir}/grib_get -M -F%.3f -p min,max,avg,sd $temp`
|
|
|
|
[ "$stats1" = "$stats2" ]
|
|
|
|
rm -f $temp
|
|
|
|
done
|
2022-05-09 15:16:45 +00:00
|
|
|
|
|
|
|
# Cater for case of constant field with bitsPerValue > 0
|
|
|
|
# TODO: This is a crazy case - still not sure if we should cater for it
|
|
|
|
#sample2=$ECCODES_SAMPLES_PATH/GRIB2.tmpl
|
|
|
|
#${tools_dir}/grib_set -s bitsPerValue=16 $sample2 $temp
|
|
|
|
#minmax=`${tools_dir}/grib_get -p min,max $temp`
|
|
|
|
#[ "$minmax" = "1 1" ]
|
|
|
|
|
|
|
|
rm -f $temp
|