eccodes/definitions/grib1/local.98.17.def

32 lines
814 B
Modula-2
Raw Normal View History

2020-01-28 14:32:34 +00:00
# (C) Copyright 2005- ECMWF.
# Surface temperature or sea-ice data
2013-03-25 12:04:10 +00:00
template mars_labeling "grib1/mars_labeling.def";
#pad padding_loc17_1(2);
unsigned[1] perturbationNumber : dump;
2013-03-25 12:04:10 +00:00
alias number = perturbationNumber;
unsigned[1] numberOfForecastsInEnsemble : dump;
2013-03-25 12:04:10 +00:00
# Need a proper date (sst_date)
unsigned[3] dateOfSSTFieldUsed : dump ;
unsigned[1] typeOfSSTFieldUsed : dump ;
unsigned[1] countOfICEFieldsUsed : dump ;
position offsetICEFieldsUsed;
ICEFieldsUsed list(countOfICEFieldsUsed) {
2013-03-25 12:04:10 +00:00
unsigned[3] dateOfIceFieldUsed : dump ;
# d3date dateOfIceFieldUsed ;
2013-03-25 12:04:10 +00:00
unsigned[1] satelliteNumber : dump ;
}
# paddingToMultipleOf40Bytes
padtomultiple padding_loc17_2(offsetICEFieldsUsed,40);
position offsetAfterPadding;
constant GRIBEXSection1Problem = ( offsetAfterPadding - offsetICEFieldsUsed ) % 40;