1# Copyright 2005-2018 ECMWF.
2#
3# This software is licensed under the terms of the Apache Licence Version 2.0
4# which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
5#
6# In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
7# virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
8#
9
10# START 1/local.98.17 ----------------------------------------------------------------------
11# LOCAL 98 17
12#
13# localDefinitionTemplate_017
14# ---------------------------
15#
16# Description            Octet    Code    Ksec1    Count
17# -----------            -----    ----    -----    -----
18#localDefinitionNumber           41      I1      37      -
19#class                           42      I1      38      -
20#type                            43      I1      39      -
21#stream                          44      I2      40      -
22#experimentVersionNumber         46      A4      41      -
23#zeroes                          50      PAD     42      2
24#dateOfSSTFieldUsed              52      D3      44      -
25#typeOfSSTFieldUsed              55      I1      45      -
26#countOfICEFieldsUsed            56      I1      46      -
27#iceFieldDate+Satellite          57      LIST    47      countOfICEFieldsUsed
28#dateOfIceFieldUsed              -       D3      -       -
29#satelliteNumber                 -       I1      -       -
30#ENDLIST                         -       ENDLIST -       iceFieldDate+Satellite
31#paddingToMultipleOf40Bytes      57      PADMULT -       40
32#
33
34
35template mars_labeling "grib1/mars_labeling.def";
36
37# zeroes
38#pad padding_loc17_1(2);
39
40unsigned[1] perturbationNumber           : dump;
41alias number = perturbationNumber;
42
43unsigned[1] numberOfForecastsInEnsemble  : dump;
44
45# Need a proper date (sst_date)
46unsigned[3] dateOfSSTFieldUsed : dump ;
47
48unsigned[1] typeOfSSTFieldUsed : dump ;
49
50unsigned[1] countOfICEFieldsUsed : dump ;
51
52position offsetICEFieldsUsed;
53ICEFieldsUsed list(countOfICEFieldsUsed)
54{
55  unsigned[3] dateOfIceFieldUsed : dump ;
56#  d3date dateOfIceFieldUsed ;
57  unsigned[1] satelliteNumber : dump ;
58}
59
60# paddingToMultipleOf40Bytes
61padtomultiple padding_loc17_2(offsetICEFieldsUsed,40);
62position offsetAfterPadding;
63
64constant GRIBEXSection1Problem = ( offsetAfterPadding - offsetICEFieldsUsed ) % 40;
65
66# END   1/local.98.17 ----------------------------------------------------------------------
67