mirror of https://github.com/ecmwf/eccodes.git
32 lines
770 B
Modula-2
32 lines
770 B
Modula-2
#! ---------------------------
|
|
#!
|
|
#!Description Octet Code Ksec1 Count
|
|
#!----------- ----- ----- ----- -----
|
|
#!
|
|
# OCTET 41-52 ARE DESCRIBED in local.82.0.def
|
|
#spareSetToZero 53 PAD n/a 1
|
|
#########################
|
|
#
|
|
# author: Sebastien Villaume <Sebastien.Villaume@smhi.se>
|
|
# created: 6 Oct 2011
|
|
# modified: 13 May 2013
|
|
#
|
|
#################################
|
|
### LOCAL SECTION DESCRIPTION ###
|
|
#################################
|
|
|
|
constant GRIBEXSection1Problem = 53 - section1Length;
|
|
|
|
# base local definition
|
|
include "local.82.0.def";
|
|
|
|
# nothing else, local definition 82 is the base definition
|
|
pad padding_local1_1(1);
|
|
|
|
#####################
|
|
### MARS LABELING ###
|
|
#####################
|
|
|
|
template mars_labeling "grib1/mars_labeling.82.def";
|
|
|