mirror of https://github.com/ecmwf/eccodes.git
6 lines
124 B
Modula-2
6 lines
124 B
Modula-2
|
if ( substr(g,0,1) is "W" && substr(g,-2,1) is "S" ) {
|
||
|
|
rename(g,seaState);
|
||
|
|
group g : dump; non_alpha na;
|
||
|
|
}
|
||
|
|
|