eccodes/definitions/grib2/sections.def

71 lines
1.7 KiB
Modula-2
Raw Permalink Normal View History

2020-01-28 14:32:34 +00:00
# (C) Copyright 2005- ECMWF.
2013-03-25 12:04:10 +00:00
meta headersOnly headers_only();
2020-05-26 15:30:00 +00:00
lookup[1] sectionNumber(4) ;
2013-03-25 12:04:10 +00:00
2020-05-26 15:30:00 +00:00
if(sectionNumber == 1 or new() ){
position sectionPosition;
template section_1 "grib2/section.1.def";
}
2013-03-25 12:04:10 +00:00
2020-05-26 15:30:00 +00:00
lookup[1] sectionNumber(4);
2013-03-25 12:04:10 +00:00
2020-05-26 15:30:00 +00:00
transient grib2LocalSectionPresent=0;
alias section2Used=zero;
alias setLocalDefinition=grib2LocalSectionPresent;
transient deleteLocalDefinition=0;
2013-03-25 12:04:10 +00:00
2021-02-06 13:07:35 +00:00
if ( (sectionNumber == 2 or grib2LocalSectionPresent>0) and deleteLocalDefinition == 0 ) {
2020-05-26 15:30:00 +00:00
position sectionPosition;
template section_2 "grib2/section.2.def";
}
alias localUsePresent=section2Used;
2013-03-25 12:04:10 +00:00
2020-05-26 15:30:00 +00:00
lookup[1] sectionNumber(4) ;
2013-03-25 12:04:10 +00:00
2021-02-06 13:07:35 +00:00
if (sectionNumber == 3 or new() ){
2020-05-26 15:30:00 +00:00
position sectionPosition;
template section_3 "grib2/section.3.def";
}
2013-03-25 12:04:10 +00:00
2020-05-26 15:30:00 +00:00
lookup[1] sectionNumber(4) ;
2021-02-06 13:07:35 +00:00
if (sectionNumber == 4 or new() ) {
2020-05-26 15:30:00 +00:00
position sectionPosition;
template section_4 "grib2/section.4.def";
}
2020-05-26 15:30:00 +00:00
# Used to mark end of headers. Can be accessed with grib_get_offset()
position endOfHeadersMarker;
2013-03-25 12:04:10 +00:00
2020-05-26 15:30:00 +00:00
meta lengthOfHeaders evaluate( endOfHeadersMarker-startOfHeaders);
meta md5Headers md5(startOfHeaders,lengthOfHeaders);
2013-03-25 12:04:10 +00:00
2020-05-26 15:30:00 +00:00
lookup[1] sectionNumber(4) ;
2013-03-25 12:04:10 +00:00
template_nofail hook_post_meta_data "grib2/post_meta_data.hook.products_[productionStatusOfProcessedData].def";
if (!headersOnly) {
if (sectionNumber == 5 or new() ) {
position sectionPosition;
template section_5 "grib2/section.5.def";
}
2013-03-25 12:04:10 +00:00
lookup[1] sectionNumber(4) ;
2013-03-25 12:04:10 +00:00
if (sectionNumber == 6 or new() ) {
position sectionPosition;
template section_6 "grib2/section.6.def";
}
2013-03-25 12:04:10 +00:00
lookup[1] sectionNumber(4) ;
2013-03-25 12:04:10 +00:00
if (sectionNumber == 7 or new() ) {
position sectionPosition;
template section_7 "grib2/section.7.def";
}
2020-05-26 15:30:00 +00:00
#template metas "grib2/meta.def";
}