1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
if ( g is "CAVOK") {
rename(g,cavokTrend2);
group g : dump; non_alpha na;
constant isCavokTrend2=1;
constant ceilingAndVisibilityOKTrend2="true";
} else {
constant ceilingAndVisibilityOKTrend2="false";
constant isCavokTrend2=0;
if (g is "//" || g is "///" || g is "////" || g is "/////" || g is "//////") {
rename(g,missingVisibilityField1Trend2);
group g : dump; non_alpha na;
}
if (g is "//" || g is "///" || g is "////" || g is "/////" || g is "//////") {
rename(g,missingVisibilityField2Trend2);
group g : dump; non_alpha na;
}
if (substr(g,-3,3) is "NDV" || is_integer(g,0,4) ) {
rename(g,visibilityInMetresTrend2);
group g : dump; non_alpha na;
visibilityTrend2=to_integer(visibilityInMetresTrend2,0,4);
}
if (g is "NDV") {
rename(g,ndvTrend2);
modify ndv : hidden;
group g : dump; non_alpha na;
}
if (substr(g,-2,2) is "KM" ) {
rename(g,visibilityInKMTrend2);
group g : dump; non_alpha na;
visibilityInKilometresTrend2=to_integer(visibilityInKMTrend2,0,4);
meta visibilityTrend2 evaluate(visibilityInKilometresTrend2 * 1000);
}
if (is_integer(g,0,1)) {
rename(g,visibilityIntegerTrend2);
group g : dump; non_alpha na;
}
if (substr(g, -2 ,2) is "SM" ) {
rename(g,visibilityInStatuteMilesTrend2);
group g : dump; non_alpha na;
}
if ( ( substr(g,4,1) is "N" || substr(g,4,1) is "S" || substr(g,4,1) is "E" || substr(g,4,1) is "W"
||
substr(g,4,2) is "NE" || substr(g,4,2) is "SE" || substr(g,4,2) is "NW" || substr(g,4,2) is "SW"
||
substr(g,4,1) is "/" )
&&
is_integer(g,0,4)
) {
rename(g,directionalVariationInVisibilityTrend2);
group g : dump; non_alpha na;
variationOfVisibilityTrend2=to_integer(directionalVariationInVisibilityTrend2);
variationOfVisibilityDirectionTrend2=dict_search("metar/direction.table",1);
}
}
|
