mirror of https://github.com/ecmwf/eccodes.git
18 lines
482 B
Modula-2
18 lines
482 B
Modula-2
# assert(local=1)
|
|
meta verificationDate g1verificationdate(dataDate, dataTime, endStep) : read_only;
|
|
meta monthlyVerificationDate g1monthlydate(verificationDate) : dump,no_copy;
|
|
alias mars.date = monthlyVerificationDate;
|
|
|
|
#
|
|
# See GRIB-497, GRIB-766, GRIB-833
|
|
#
|
|
if (class is "em" || class is "e2" || class is "ea" || class is "ep" ||
|
|
class is "rd" || class is "mc" || class is "et")
|
|
{
|
|
alias mars.step = endStep;
|
|
}
|
|
else
|
|
{
|
|
alias mars.step = startStep;
|
|
}
|