mirror of https://github.com/ecmwf/eccodes.git
24 lines
652 B
Modula-2
24 lines
652 B
Modula-2
#no step in type an
|
|
unalias mars.step;
|
|
|
|
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; }
|
|
if (class is "ci") { alias mars.system = systemNumber; }
|
|
alias mars.number = perturbationNumber;
|
|
alias mars.method = methodNumber;
|
|
|
|
if (!(class is "gw")) { # ECC-1448
|
|
alias mars.origin = centre;
|
|
}
|
|
|
|
# See ECC-624
|
|
if (centre == 80 && subCentre == 98 && class is "c3") {
|
|
constant cnmc_cmcc = 'cmcc';
|
|
alias mars.origin = cnmc_cmcc;
|
|
}
|
|
|
|
if (class is "ci") { unalias mars.method; }
|
|
|