mirror of https://github.com/ecmwf/eccodes.git
40 lines
1.3 KiB
Modula-2
40 lines
1.3 KiB
Modula-2
# (C) Copyright 2005- ECMWF.
|
|
|
|
# Resolution and component flags
|
|
flags[1] resolutionAndComponentFlags 'grib3/tables/[tablesVersion]/4.1.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;
|
|
|