eccodes/definitions/bufr/section.2.def

14 lines
321 B
Modula-2
Raw Normal View History

2020-01-28 14:32:34 +00:00
# (C) Copyright 2005- ECMWF.
2013-03-25 12:04:10 +00:00
2019-11-12 10:35:37 +00:00
section_length[3] section2Length;
unsigned[1] reservedSection2 = 0;
if(bufrHeaderCentre == 98) {
2016-01-29 14:34:30 +00:00
if (section2Length==52 or new() ) {
2019-11-12 10:35:37 +00:00
template rdb_key "bufr/rdb_key.def";
}
if (section2Length==28) {
template rdb_key "bufr/rdb_key_28.def";
}
2013-03-25 12:04:10 +00:00
}
section_padding section2Padding;