eccodes/definitions/mars/grib.msmm.fcstdev.def

20 lines
544 B
Modula-2
Raw Normal View History

2013-03-25 12:04:10 +00:00
# assert(16);
alias mars.fcmonth = marsForecastMonth;
alias mars.number = perturbationNumber;
alias mars.origin = centre;
unalias mars.step;
alias mars.method = methodNumber;
if (class is "od") { alias mars.system = systemNumber; }
if (class is "me") { alias mars.system = systemNumber; }
if (class is "en") { alias mars.system = systemNumber; }
if (class is "c3") { alias mars.system = systemNumber; }
2018-01-29 14:03:57 +00:00
# See ECC-624
if (centre == 80 && subCentre == 98 && class is "c3") {
constant cnmc_cmcc = 'cmcc';
alias mars.origin = cnmc_cmcc;
}