mirror of https://github.com/ecmwf/eccodes.git
47 lines
1.7 KiB
Modula-2
47 lines
1.7 KiB
Modula-2
# (C) Copyright 2005- ECMWF.
|
|
#
|
|
# 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.
|
|
#
|
|
|
|
# Resolution and component flags
|
|
flags[1] resolutionAndComponentFlags 'grib2/tables/[tablesVersion]/3.3.table' : edition_specific,no_copy;
|
|
|
|
# Note our flagbit numbers run from 7 to 0, while WMO convention uses 1 to 8
|
|
# (most significant to least significant)
|
|
|
|
flagbit resolutionAndComponentFlags1(resolutionAndComponentFlags,7) = 0: read_only;
|
|
flagbit resolutionAndComponentFlags2(resolutionAndComponentFlags,6) = 0: read_only;
|
|
flagbit iDirectionIncrementGiven(resolutionAndComponentFlags,5);
|
|
flagbit jDirectionIncrementGiven(resolutionAndComponentFlags,4);
|
|
flagbit uvRelativeToGrid(resolutionAndComponentFlags,3);
|
|
flagbit resolutionAndComponentFlags6(resolutionAndComponentFlags,7) = 0: read_only;
|
|
flagbit resolutionAndComponentFlags7(resolutionAndComponentFlags,6) = 0: read_only;
|
|
flagbit resolutionAndComponentFlags8(resolutionAndComponentFlags,6) = 0: read_only;
|
|
|
|
concept ijDirectionIncrementGiven {
|
|
'1' = {
|
|
iDirectionIncrementGiven = 1;
|
|
jDirectionIncrementGiven = 1;
|
|
}
|
|
'0' = {
|
|
iDirectionIncrementGiven = 1;
|
|
jDirectionIncrementGiven = 0;
|
|
}
|
|
'0' = {
|
|
iDirectionIncrementGiven = 0;
|
|
jDirectionIncrementGiven = 1;
|
|
}
|
|
'0' = {
|
|
iDirectionIncrementGiven = 0;
|
|
jDirectionIncrementGiven = 0;
|
|
}
|
|
}
|
|
|
|
alias DiGiven=iDirectionIncrementGiven;
|
|
alias DjGiven=jDirectionIncrementGiven;
|
|
|