mirror of https://github.com/ecmwf/eccodes.git
18 lines
434 B
Modula-2
18 lines
434 B
Modula-2
|
if (substr(g,0,2) is "WS" ) {
|
||
|
|
rename(g,windShearPresent);
|
||
|
|
group g : dump; non_alpha na;
|
||
|
|
if (g is "ALL") {
|
||
|
|
rename(g,windShear);
|
||
|
|
group g : dump; non_alpha na;
|
||
|
|
if (g is "RWY") {
|
||
|
|
rename(g,rwy);
|
||
|
|
modify rwy : hidden;
|
||
|
|
group g : dump; non_alpha na;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
rename(g,windShear);
|
||
|
|
group g : dump; non_alpha na;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|