Fill in the form below to provide a location, date and time for your point of interest.
The SARG meteorological archive tool will retrieve the reported weather conditions.

Location (OSGB):	Date:	Time:
" size=12 maxlength=12 />	"/>	<%For F = 0 to 23 %> <% If F = Request.Form("pointtimeh") Then %> <%=F%> <% Else %> <%=F%> <% End If %> <% Next %> : 00 30	Use 24-hour time E.g. 14:20

<% If Request.Form("Trigger")="true" Then DateString=Request.Form("SurveyDate") & " " &Request.Form("pointtimeh") & ":" & Request.Form("pointtimem") & ":" & "00" DateType = CDate(DateString) If len(Request.Form("Trigger"))>0 Then MetTable = DrawMetTable(OSGB_Clean(Request.Form("GridRef")),DateType,meteorology) response.write(MetTable) End If End If %> <% Function DrawMetTable(OSGBLocation,DateType,meteorology) Call GetGridMETAR(OSGBLocation, DateType, meteorology) Style1 = "border:thin solid black;text-align:center;padding:10px;border-bottom:none;padding-bottom:0;background-color:white;color:black;" 'data cells Style2 = "border:thin solid black;padding:10px;border-top:none;text-align:center;padding-top:0;background-color:white;color:black;" 'header cells TableString2="" TableString2=TableString2 & "" TableString2=TableString2 & "" TableString2=TableString2 & GetFieldCell(1,"OSGB Reference",OSGBLocation) TableString2=TableString2 & GetFieldCell(2,"Closest town",Get_Closest_Town(OSGBLocation)) TableString2=TableString2 & GetFieldCell(1,"Date & time",DateType) TableString2=TableString2 & "" TableString2=TableString2 & "" TableString2=TableString2 & GetFieldCell(2,"Closest WMO station",meteorology.GetValue("WMOname")) TableString2=TableString2 & GetFieldCell(1,"WMO code",meteorology.GetValue("WMOID")) TableString2=TableString2 & GetFieldCell(1,"Distance from site",meteorology.GetValue("DistanceDeltaKm") & " km") TableString2=TableString2 & "" TableString2=TableString2 & "" TableString2=TableString2 & GetFieldCell(1,"Air Temperature",meteorology.GetValue("AirTempDegC")& " °C") TableString2=TableString2 & GetFieldCell(1,"Air Pressure",meteorology.GetValue("SeaLevelPressureMbar")& " mbar") TableString2=TableString2 & GetFieldCell(1,"Relative Humidity",meteorology.GetValue("RelHumidityPerC")& " %") TableString2=TableString2 & GetFieldCell(1,"Cloud Cover",meteorology.GetValue("CloudCover")& " Octa") TableString2=TableString2 & "" TableString2=TableString2 & "" TableString2=TableString2 & GetFieldCell(1,"Wind velocity",meteorology.GetValue("WindSpeedMPH") & " mph") TableString2=TableString2 & GetFieldCell(1,"Wind bearing",meteorology.GetValue("WindDirectionBearing")) TableString2=TableString2 & GetFieldCell(1,"Gust velocity",meteorology.GetValue("GustSpeedMPH") & " mph") TableString2=TableString2 & GetFieldCell(1,"Visibility",meteorology.GetValue("VisibilityKm") & " km") TableString2=TableString2 & "" GetMoonPhase(MoonDate) TableString2=TableString2 & "" TableString2=TableString2 & GetFieldCell(1,"Moon phase",MoonAge(Formatdatetime(DateType,2),"Phase")) TableString2=TableString2 & GetFieldCell(1,"Moon age",MoonAge(Formatdatetime(DateType,2),"Age")) TableString2=TableString2 & GetFieldCell(1,"Ecliptic latitude",MoonAge(Formatdatetime(DateType,2),"Lat")) TableString2=TableString2 & GetFieldCell(1,"Ecliptic longitude",MoonAge(Formatdatetime(DateType,2),"Lon")) TableString2=TableString2 & "" TableString2=TableString2 & "" DrawMetTable = TableString2 & "
 
 " End Function Function GetFieldCell(Colspan,legend,CellContents) GetFieldCell="

 " & legend & " 

" & CellContents & "

" End Function %>