# Copyright 2005-2015 ECMWF.
#
# This software is licensed under the terms of the Apache Licence Version 2.0
# which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
# 
# In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
# virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
#
# START 1/local.98.37 ----------------------------------------------------------------------
# LOCAL 98 37
#
# localDefinitionTemplate_037
# ---------------------------
#
# Description                  Octet    Code    Ksec1    Count
# -----------                  -----    ----    -----    -----
#localDefinitionNumber           41      I1      37      -
#class                           42      I1      38      -
#type                            43      I1      39      -
#stream                          44      I2      40      -
#experimentVersionNumber         46      A4      41      -
#number                          50      I1      42      -
#total                           51      I1      43      -
#channelNumber                   52      I1      44      -
#scalingFactorForFrequencies     53      I4      45      -
#numberOfFrequencies             57      I1      46      -
#spareSetToZero                  58      PAD     n/a     3
#listOfScaledFrequencies         61      LP_I4   47      numberOfFrequencies
#offsetToEndOf4DvarWindow        -       I2      -       -
#lengthOf4DvarWindow             -       I2      -       -
#moreSpareSetToZero              -       PADTO   -       1080
#

constant GRIBEXSection1Problem = 1080 - section1Length ;

template mars_labeling "grib1/mars_labeling.def";

unsigned[1] perturbationNumber  : dump;
alias number = perturbationNumber;

unsigned[1] numberOfForecastsInEnsemble : dump ;
alias totalNumber=numberOfForecastsInEnsemble;

unsigned[1] channelNumber : dump ;
alias mars.channel = channelNumber;

unsigned[4] scalingFactorForFrequencies : dump ;
alias integerScalingFactorAppliedToFrequencies = scalingFactorForFrequencies ;

unsigned[1] numberOfFrequencies : dump ;
alias totalNumberOfFrequencies =  numberOfFrequencies ;
alias Nf =  numberOfFrequencies ;

# spareSetToZero
pad padding_loc37_1(3);

unsigned[4] listOfScaledFrequencies[numberOfFrequencies] : dump;

# Hours
unsigned[2] offsetToEndOf4DvarWindow : dump;
unsigned[2] lengthOf4DvarWindow : dump;
alias anoffset=offsetToEndOf4DvarWindow;

# moreSpareSetToZero
padto padding_loc37_2(offsetSection1 + 1080);

# END   1/local.98.37 ----------------------------------------------------------------------

