Code:
<script language="Javascript1.2">
function add_output(text)
{
document.encoded.decreport.value = document.encoded.decreport.value + text;
}
function is_num_digit(ch)
{
return ( (ch == '0') || (ch == '1') || (ch == '2') || (ch == '3') ||
(ch == '4') || (ch == '5') || (ch == '6') || (ch == '7') ||
(ch == '8') || (ch == '9') );
}
function is_alphabetic_char(ch)
{
return ( (ch >= 'A') && (ch <= 'Z') );
}
function decode_token(token)
{
// Check if token is "calm wind"
if(token == "00000KT")
{
add_output("Wind...............: calm\n");
return;
}
// Check if token is "calm wind"
if(token == "00000MPS")
{
add_output("Wind...............: calm\n");
return;
}
// Check if token is "calm wind"
if(token == "00000KMH")
{
add_output("Wind...............: calm\n");
return;
}
// Check if token is Wind indication
var reWindKT = /^(\d{3}|VRB)(\d{2,3})(G\d{2,3})?(KT|MPS|KMH)$/;
if(reWindKT.test(token))
{
// Wind token: dddss(s){Gss(s)}KT -- ddd is true direction, ss(s) speed in knots
var myArray = reWindKT.exec(token);
var units = myArray[4];
add_output("Wind...............: ");
if(myArray[1]=="VRB")
add_output(" variable in direction");
else
add_output("true direction = " + myArray[1] + " degrees");
add_output("; speed = " + parseInt(myArray[2],10));
if(units=="KT") add_output(" knots");
else if(units=="KMH") add_output(" km/h");
else if(units=="MPS") add_output(" m/s");
if(myArray[3] != null)
{
if (myArray[3]!="")
{
add_output(" with gusts of " + parseInt(myArray[3].substr(1,myArray[3].length),10));
if(units=="KT") add_output(" knots");
else if(units=="KMH") add_output(" km/h");
else if(units=="MPS") add_output(" m/s");
}
}
add_output("\n"); return;
}
// Check if token is "variable wind direction"
var reVariableWind = /^(\d{3})V(\d{3})$/;
if(reVariableWind.test(token))
{
// Variable wind direction: aaaVbbb, aaa and bbb are directions in clockwise order
add_output("Wind direction.....: variable between "+token.substr(0,3)+" and "+token.substr(4,3)+" degrees \n");
return;
}
// Check if token is visibility
var reVis = /^(\d{4})(N|S)?(E|W)?$/;
if(reVis.test(token))
{
var myArray = reVis.exec(token);
add_output("Visibility.........: ");
if(myArray[1]=="9999")
add_output("10 km or more");
else if (myArray[1]=="0000")
add_output("less than 50 m");
else
add_output(parseInt(myArray[1],10) + " m");
var dir = "";
if(typeof myArray[2] != "undefined")
{
dir=dir + myArray[2];
}
if(typeof myArray[3] != "undefined")
{
dir=dir + myArray[3];
}
if(dir != "")
{
add_output(" direction ");
if(dir=="N") add_output("North");
else if(dir=="NE") add_output("North East");
else if(dir=="E") add_output("East");
else if(dir=="SE") add_output("South East");
else if(dir=="S") add_output("South");
else if(dir=="SW") add_output("South West");
else if(dir=="W") add_output("West");
else if(dir=="NW") add_output("North West");
}
add_output("\n"); return;
}
// Check if token is Statute-Miles visibility
var reVisUS = /(SM)$/;
if(reVisUS.test(token))
{
add_output("Visibility: ");
var myVisArray = token.split("S");
add_output(myVisArray[0]);
add_output(" Statute Miles\n");
}
// Check if token is QNH indication in mmHg or hPa
var reQNHhPa = /Q\d{3,4}/;
if(reQNHhPa.test(token))
{
// QNH token: Qpppp -- pppp is pressure hPa
add_output("QNH (msl pressure).: ");
add_output(parseInt(token.substr(1,4),10) + " hPa");
add_output("\n"); return;
}
// Check if token is QNH indication in mmHg: Annnn
var reINHg = /A\d{4}/;
if(reINHg.test(token))
{
add_output("QNH: ");
add_output(token.substr(1,2) + "." + token.substr(3,4) + " inHg");
add_output("\n"); return;
}
// Check if token is NOSIG
if(token == "NOSIG")
{
add_output("Next 2 hours.......: no significant changes\n");
return;
}
// Check if token is runway visual range (RVR) indication
var reRVR = /^R(\d{2})(R|C|L)?\/(M|P)?(\d{4})(V\d{4})?(U|D|N)?$/;
if(reRVR.test(token))
{
var myArray = reRVR.exec(token);
add_output("Runway visibilty...: on runway ");
add_output(myArray[1]);
if(typeof myArray[2] != "undefined")
{
if(myArray[2]=="L") add_output(" Left");
else if(myArray[2]=="R") add_output(" Right");
else if(myArray[2]=="C") add_output(" Central");
}
add_output(", touchdown zone visual range is ");
if(typeof myArray[5] != "undefined")
{
// Variable range
add_output("variable from a minimum of ");
if(myArray[3]=="P") add_output("more than ");
else if(myArray[3]=="M") add_output("less than ");
add_output(myArray[4]);
add_output(" meters");
add_output(" until a maximum of "+myArray[5].substr(1,myArray[5].length)+" meters");
if(myArray[5]=="P") add_output("more than ");
}
else
{
// Single value
if( (typeof myArray[3] != "undefined") &&
(typeof myArray[4] != "undefined") )
{
if(myArray[3]=="P") add_output("more than ");
else if(myArray[3]=="M") add_output("less than ");
add_output(myArray[4]);
add_output(" meters");
}
}
if( (myArray.length > 5) && (typeof myArray[6] != "undefined") )
{
if(myArray[6]=="U") add_output(", and increasing");
else if(myArray[6]=="D") add_output(", and decreasing");
}
add_output("\n");
return;
}
// Check if token is CAVOK
if(token=="CAVOK")
{
add_output("CAVOK conditions...: Ceiling And Visibility OK, which means visibility 10 kilometers or more, no cloud below 5000 feet or below the minimum sector altitude (whichever is greater), no cumulonimbus, and no weather of significance to aviation at the aerodrome or its vicinity\n");
return;
}
// Check if token is a present weather code - The regular expression is a bit
// long, because several precipitation types can be joined in a token, and I
// don't see a better way to get all the codes.
var reWX = /^(\-|\+|)?(VC)?(MI|BC|DR|BL|SH|TS|FZ|PR)?(DZ|RA|SN|SG|IC|PL|GR|GS)?(DZ|RA|SN|SG|IC|PL|GR|GS)?(DZ|RA|SN|SG|IC|PL|GR|GS)?(DZ|RA|SN|SG|IC|PL|GR|GS)?(SH|TS|DZ|RA|SN|SG|IC|PL|GR|GS|BR|FG|FU|VA|DU|SA|HZ|PO|SQ|FC|SS|DS)$/;
if(reWX.test(token))
{
add_output("Weather............: ");
var myArray = reWX.exec(token);
for(var i=1;i<myArray.length; i++)
{
if(myArray[i] == "-") add_output("light ");
if(myArray[i] == "+") add_output("heavy ");
if(myArray[i] == "VC") add_output("in the vicinity ");
if(myArray[i] == "MI") add_output("shallow ");
if(myArray[i] == "BC") add_output("patches of ");
if(myArray[i] == "SH") add_output("shower(s) of ");
if(myArray[i] == "TS") add_output("thunderstorm ");
if(myArray[i] == "FZ") add_output("freezing ");
if(myArray[i] == "PR") add_output("partial ");
if(myArray[i] == "DZ") add_output("drizzle ");
if(myArray[i] == "RA") add_output("rain ");
if(myArray[i] == "SN") add_output("snow ");
if(myArray[i] == "SG") add_output("snow grains ");
if(myArray[i] == "IC") add_output("ice crystals ");
if(myArray[i] == "PL") add_output("ice pellets ");
if(myArray[i] == "GR") add_output("hail ");
if(myArray[i] == "GS") add_output("small hail and/or snow pellets ");
if(myArray[i] == "BR") add_output("mist ");
if(myArray[i] == "FG") add_output("fog ");
if(myArray[i] == "FU") add_output("smoke ");
if(myArray[i] == "VA") add_output("volcanic ash ");
if(myArray[i] == "DU") add_output("widespread dust ");
if(myArray[i] == "SA") add_output("sand ");
if(myArray[i] == "HZ") add_output("haze ");
if(myArray[i] == "PO") add_output("dust/sand whirls (dust devils)");
if(myArray[i] == "SQ") add_output("squall ");
if(myArray[i] == "FC") add_output("funnel cloud(s) (tornado or waterspout) ");
if(myArray[i] == "SS") add_output("sandstorm ");
if(myArray[i] == "DS") add_output("duststorm ");
if(myArray[i] == "DR") add_output("low drifting ");
if(myArray[i] == "BL") add_output("blowing ");
}
add_output("\n"); return;
}
// Check if token is recent weather observation
var reREWX = /^RE(\-|\+)?(VC)?(MI|BC|BL|DR|SH|TS|FZ|PR)?(DZ|RA|SN|SG|IC|PL|GR|GS)?(DZ|RA|SN|SG|IC|PL|GR|GS)?(DZ|RA|SN|SG|IC|PL|GR|GS)?(DZ|RA|SN|SG|IC|PL|GR|GS)?(DZ|RA|SN|SG|IC|PL|GR|GS|BR|FG|FU|VA|DU|SA|HZ|PO|SQ|FC|SS|DS)?$/;
if(reREWX.test(token))
{
add_output("Since the previous observation (but not at present), the following\nmeteorological phenomena were observed: ");
var myArray = reREWX.exec(token);
for(var i=1;i<myArray.length; i++)
{
if(myArray[i] == "-") add_output("light ");
if(myArray[i] == "+") add_output("heavy ");
if(myArray[i] == "VC") add_output("in the vicinity ");
if(myArray[i] == "MI") add_output("shallow ");
if(myArray[i] == "BC") add_output("patches of ");
if(myArray[i] == "SH") add_output("shower(s) of ");
if(myArray[i] == "TS") add_output("thunderstorm ");
if(myArray[i] == "FZ") add_output("freezing ");
if(myArray[i] == "PR") add_output("partial ");
if(myArray[i] == "DZ") add_output("drizzle ");
if(myArray[i] == "RA") add_output("rain ");
if(myArray[i] == "SN") add_output("snow ");
if(myArray[i] == "SG") add_output("snow grains ");
if(myArray[i] == "IC") add_output("ice crystals ");
if(myArray[i] == "PL") add_output("ice pellets ");
if(myArray[i] == "GR") add_output("hail ");
if(myArray[i] == "GS") add_output("small hail and/or snow pellets ");
if(myArray[i] == "BR") add_output("mist ");
if(myArray[i] == "FG") add_output("fog ");
if(myArray[i] == "FU") add_output("smoke ");
if(myArray[i] == "VA") add_output("volcanic ash ");
if(myArray[i] == "DU") add_output("widespread dust ");
if(myArray[i] == "SA") add_output("sand ");
if(myArray[i] == "HZ") add_output("haze ");
if(myArray[i] == "PO") add_output("dust/Sand whirls (dust devils) ");
if(myArray[i] == "SQ") add_output("squall ");
if(myArray[i] == "FC") add_output("funnel cloud(s) (tornado or waterspout) ");
if(myArray[i] == "SS") add_output("sandstorm ");
if(myArray[i] == "DS") add_output("duststorm ");
if(myArray[i] == "DR") add_output("low drifting ");
if(myArray[i] == "BL") add_output("blowing ");
}
add_output("\n"); return;
}
// Check if token is temperature / dewpoint pair
var reTempDew = /^(M?\d\d|\/\/)\/(M?\d\d)?$/;
if(reTempDew.test(token))
{
var myArray = reTempDew.exec(token);
if(myArray[1].charAt(0)=='M')
add_output("Temperature........: -" + myArray[1].substr(1,2) + " degrees Celsius\n");
else
add_output("Temperature........: " + myArray[1].substr(0,2) + " degrees Celsius\n");
if(myArray[2]!="")
{
if(myArray[2].charAt(0)=='M')
add_output("Dewpoint...........: -" + myArray[2].substr(1,2) + " degrees Celsius\n");
else
add_output("Dewpoint...........: " + myArray[2].substr(0,2) + " degrees Celsius\n");
}
return;
}
// Check if token is "sky clear" indication
if(token=="SKC")
{
add_output("no clouds and no restrictions on vertical visibility\n");
return;
}
// Check if token is "vertical visibility" indication
var reVV = /^VV(\d{3}|\/{3})$/;
if(reVV.test(token))
{
// VVddd -- ddd is vertical distance, or /// if unspecified
var myArray = reVV.exec(token);
add_output("Vertical visibility");
if(myArray[1] == "///")
add_output(" has indefinite ceiling\n");
else
add_output(": " + (100*parseInt(myArray[1],10)) + " feet\n");
return;
}
// Check if token is cloud indication
var reCloud = /^(FEW|SCT|BKN|OVC)(\d{3})(CB|TCU)?$/;
if(reCloud.test(token))
{
// Clouds: aaadddkk -- aaa indicates amount of sky covered, ddd distance over
// aerodrome level, and kk the type of cloud.
var myArray = reCloud.exec(token);
add_output("Cloud coverage.....: ");
if(myArray[1] == "FEW") add_output("few (1 to 2 oktas)");
else if(myArray[1] == "SCT") add_output("scattered (3 to 4 oktas)");
else if(myArray[1] == "BKN") add_output("broken (5 to 7 oktas)");
else if(myArray[1] == "OVC") add_output("overcast (8 oktas)");
add_output(" at " + (100*parseInt(myArray[2],10)) + " feet above aerodrome level");
if(myArray[3] == "CB") add_output(" cumulonimbus");
else if(myArray[3] == "TCU") add_output(" towering cumulus");
add_output("\n"); return;
}
// Check if token is part of a wind-shear indication
var reRWY = /^RWY(\d{2})(L|C|R)?$/;
if(token=="WS") { add_output("there is wind-shear in "); return; }
else if(token=="ALL") { add_output("all "); return; }
else if(token=="RWY") { add_output("runways\n"); return; }
else if (reRWY.test(token))
{
var myArray = reRWY.exec(token);
add_output("runway "+myArray[1]);
if(myArray[2]=="L") add_output(" Left");
else if(myArray[2]=="C") add_output(" Central");
else if(myArray[2]=="R") add_output(" Right");
add_output("\n");
return;
}
// Check if token is no-significant-weather indication
if(token=="NSW")
{
add_output("no significant weather\n");
return;
}
// Check if token is no-significant-clouds indication
if(token=="NSC")
{
add_output("Clouds.............: no significant clouds are observed below 5000 feet or below the minimum sector altitude (whichever is higher)\n");
return;
}
// Check if token is part of trend indication
if(token=="BECMG")
{
add_output("Next 2hrs gradually:\n");
return;
}
if(token=="TEMPO")
{
add_output("Next 2hrs temporary:\n");
return;
}
var reFM = /^FM(\d{2})(\d{2})Z?$/;
if(reFM.test(token))
{
var myArray = reFM.exec(token);
add_output("From "+myArray[1]+":"+myArray[2]+" UTC.....:\n");
return;
}
var reTL = /^TL(\d{2})(\d{2})Z?$/;
if(reTL.test(token))
{
var myArray = reTL.exec(token);
add_output("Until "+myArray[1]+":"+myArray[2]+" UTC....:\n");
return;
}
var reAT = /^AT(\d{2})(\d{2})Z?$/;
if(reAT.test(token))
{
var myArray = reAT.exec(token);
add_output("At "+myArray[1]+":"+myArray[2]+" UTC.......:\n");
return;
}
// Check if item is runway state group
var reRSG = /^(\d\d)(\d|C|\/)(\d|L|\/)(\d\d|RD|\/)(\d\d)$/;
if(reRSG.test(token))
{
var myArray = reRSG.exec(token);
add_output("Runway state.......:");
// Runway designator (first 2 digits)
var r = parseInt(myArray[1],10);
if(r < 50) add_output(" Runway " + myArray[1] + " (or "+myArray[1]+" Left): ");
else if(r < 88) add_output(" Runway " + (r-50) + " Right: ");
else if(r == 88) add_output(" All runways: ");
// Check if "CLRD" occurs in digits 3-6
if(token.substr(2,4)=="CLRD") add_output("clear, ");
else
{
// Runway deposits (third digit)
if(myArray[2]=="0") add_output("clear and dry, ");
else if(myArray[2]=="1") add_output("damp, ");
else if(myArray[2]=="2") add_output("wet or water patches, ");
else if(myArray[2]=="3") add_output("rime or frost covered, ");
else if(myArray[2]=="4") add_output("dry snow, ");
else if(myArray[2]=="5") add_output("wet snow, ");
else if(myArray[2]=="6") add_output("slush, ");
else if(myArray[2]=="7") add_output("ice, ");
else if(myArray[2]=="8") add_output("compacted or rolled snow, ");
else if(myArray[2]=="9") add_output("frozen ruts or ridges, ");
else if(myArray[2]=="/") add_output("deposit not reported, ");
// Extent of runway contamination (fourth digit)
if(myArray[3]=="1") add_output("contamination 10% or less, ");
else if(myArray[3]=="2") add_output("contamination 11% to 25%, ");
else if(myArray[3]=="5") add_output("contamination 26% to 50%, ");
else if(myArray[3]=="9") add_output("contamination 51% to 100%, ");
else if(myArray[3]=="/") add_output("contamination not reported, ");
// Depth of deposit (fifth and sixth digits)
if(myArray[4]=="//") add_output("depth of deposit not reported, ");
else
{
var d = parseInt(myArray[4],10);
if(d == 0) add_output("deposit less than 1 mm deep, ");
else if ((d > 0) && (d < 91)) add_output("deposit is "+d+" mm deep, ");
else if (d == 92) add_output("deposit is 10 cm deep, ");
else if (d == 93) add_output("deposit is 15 cm deep, ");
else if (d == 94) add_output("deposit is 20 cm deep, ");
else if (d == 95) add_output("deposit is 25 cm deep, ");
else if (d == 96) add_output("deposit is 30 cm deep, ");
else if (d == 97) add_output("deposit is 35 cm deep, ");
else if (d == 98) add_output("deposit is 40 cm or more deep, ");
else if (d == 99) add_output("runway(s) is/are non-operational due to snow, slush, ice, large drifts or runway clearance, but depth of deposit is not reported, ");
}
}
// Friction coefficient or braking action (seventh and eighth digit)
if(myArray[5]=="//") add_output("braking action not reported");
else
{
var b = parseInt(myArray[5],10);
if(b<91) add_output("friction coefficient 0."+myArray[5]);
else
{
if(b == 91) add_output("braking action is poor");
else if(b == 92) add_output("braking action is medium/poor");
else if(b == 93) add_output("braking action is medium");
else if(b == 94) add_output("braking action is medium/good");
else if(b == 95) add_output("braking action is good");
else if(b == 99) add_output("braking action figures are unreliable");
}
}
add_output("\n"); return;
}
if(token=="SNOCLO")
{
add_output("Aerodrome is closed due to snow on runways\n");
return;
}
// Check if item is sea status indication
reSea = /^W(M)?(\d\d)\/S(\d)/;
if(reSea.test(token))
{
var myArray = reSea.exec(token);
add_output("Sea surface temperature: ");
if(myArray[1]=="M")
add_output("-");
add_output(parseInt(myArray[2],10) + " degrees Celsius\n");
add_output("Sea waves have height: ");
if(myArray[3]=="0") add_output("0 m (calm)\n");
else if(myArray[3]=="1") add_output("0-0,1 m\n");
else if(myArray[3]=="2") add_output("0,1-0,5 m\n");
else if(myArray[3]=="3") add_output("0,5-1,25 m\n");
else if(myArray[3]=="4") add_output("1,25-2,5 m\n");
else if(myArray[3]=="5") add_output("2,5-4 m\n");
else if(myArray[3]=="6") add_output("4-6 m\n");
else if(myArray[3]=="7") add_output("6-9 m\n");
else if(myArray[3]=="8") add_output("9-14 m\n");
else if(myArray[3]=="9") add_output("more than 14 m (huge!)\n");
return;
}
}
function metar_decode(text)
{
document.encoded.decreport.value = "";
// Join newline-separated pieces...
var newlineJoined = text.replace(/\n/, " ");
// An '=' finishes the report
var equalPosition = newlineJoined.indexOf("=");
if (equalPosition > -1)
{
alert("End of a METAR report is indicated by '='. We only decode until the first '='!!");
newlineJoined = newlineJoined.substr(0,equalPosition);
}
arrayOfTokens = newlineJoined.split(" ");
var numToken = 0;
// Check if initial token is non-METAR date
var reDate = /^\d\d\d\d\/\d\d\/\d\d/;
if (reDate.test(arrayOfTokens[numToken]))
numToken++;
// Check if initial token is non-METAR time
var reTime = /^\d\d:\d\d/;
if (reTime.test(arrayOfTokens[numToken]))
numToken++;
// Check if initial token indicates type of report
if(arrayOfTokens[numToken] == "METAR")
numToken++;
else if(arrayOfTokens[numToken] == "SPECI")
{
add_output("Report is a SPECIAL report\n");
numToken++;
}
// Parse location token
if (arrayOfTokens[numToken].length == 4)
{
add_output("Location...........: " + arrayOfTokens[numToken] + "\n");
numToken++;
}
else
{
add_output("Invalid report: malformed location token '" + arrayOfTokens[numToken] + "' \n-- it should be 4 characters long!");
return;
}
// Parse date-time token -- we allow time specifications without final 'Z'
if ( (
( (arrayOfTokens[numToken].length == 7) &&
(arrayOfTokens[numToken].charAt(6) == 'Z') ) ||
( arrayOfTokens[numToken].length == 6 )
) &&
is_num_digit(arrayOfTokens[numToken].charAt(0)) &&
is_num_digit(arrayOfTokens[numToken].charAt(1)) &&
is_num_digit(arrayOfTokens[numToken].charAt(2)) &&
is_num_digit(arrayOfTokens[numToken].charAt(3)) &&
is_num_digit(arrayOfTokens[numToken].charAt(4)) &&
is_num_digit(arrayOfTokens[numToken].charAt(5)) )
{
add_output("Day of month.......: " + arrayOfTokens[numToken].substr(0,2) + "\n");
add_output("Time...............: " + arrayOfTokens[numToken].substr(2,2) +":" +
arrayOfTokens[numToken].substr(4,2) + " UTC");
if(arrayOfTokens[numToken].length == 6)
add_output(" (Time specification is non-compliant!)");
add_output("\n");
numToken++;
}
else
{
add_output("Time token not found or with wrong format!");
return;
}
// Check if "AUTO" or "COR" token comes next.
if (arrayOfTokens[numToken] == "AUTO")
{
add_output("Report is fully automated, with no human intervention or oversight\n");
numToken++;
}
else if (arrayOfTokens[numToken] == "COR")
{
add_output("Report is a correction over a METAR or SPECI report\n");
numToken++;
}
// Parse remaining tokens
for (var i=numToken; i<arrayOfTokens.length; i++)
{
if(arrayOfTokens[i].length > 0)
{
decode_token(arrayOfTokens[i].toUpperCase());
}
}
}
function ejem(text)
{
alert(text);
}
</script>