eccodes/definitions/bufr/section.2.def

14 lines
321 B
Modula-2
Raw Normal View History

2019-04-15 13:44:45 +00:00
# Copyright 2005-2019 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;