mirror of https://github.com/ecmwf/eccodes.git
45 lines
1.3 KiB
Modula-2
45 lines
1.3 KiB
Modula-2
alias presentWeather1Present=zero;
|
|
alias presentWeather2Present=zero;
|
|
alias presentWeather3Present=zero;
|
|
if (is_in_list(g,"metar/present_weather.list")) {
|
|
rename(g,presentWeather1);
|
|
group g : dump; non_alpha na;
|
|
alias presentWeather1Present=one;
|
|
if (is_in_list(g,"metar/present_weather.list")) {
|
|
rename(g,presentWeather2);
|
|
group g : dump; non_alpha na;
|
|
alias presentWeather2Present=one;
|
|
}
|
|
if (is_in_list(g,"metar/present_weather.list")) {
|
|
rename(g,presentWeather3);
|
|
group g : dump; non_alpha na;
|
|
alias presentWeather3Present=one;
|
|
}
|
|
}
|
|
if (substr(g,0,1) is "-" || substr(g,0,1) is "+" || substr(g,0,2) is "FZ" || g is "//" ) {
|
|
rename(g,wrongPresentWeather);
|
|
group g : dump; non_alpha na;
|
|
}
|
|
if (! presentWeather1Present ) {
|
|
if (is_in_list(g,"metar/present_weather.list")) {
|
|
rename(g,presentWeather1);
|
|
group g : dump; non_alpha na;
|
|
alias presentWeather1Present=one;
|
|
}
|
|
}
|
|
if (! presentWeather2Present ) {
|
|
if ( is_in_list(g,"metar/present_weather.list")) {
|
|
rename(g,presentWeather2);
|
|
group g : dump; non_alpha na;
|
|
alias presentWeather2Present=one;
|
|
}
|
|
}
|
|
if (! presentWeather3Present ) {
|
|
if (is_in_list(g,"metar/present_weather.list")) {
|
|
rename(g,presentWeather3);
|
|
group g : dump; non_alpha na;
|
|
alias presentWeather3Present=one;
|
|
}
|
|
}
|
|
|