Specifications

Appendix D. Default Programs
WindVector (1,WindSpd_ms,WindDir,FP2,False,0,0,1)
FieldNames ("WindSpd_ms_Avg,WindDir_Avg")
Totalize(1, Rain_mm, FP2, 0)
Average(1, AirTempC, FP2, 0)
Maximum(1, AirTempC, FP2, 0, False)
Minimum(1, AirTempC, FP2, 0, False)
Average(1, RelHum, FP2, 0)
Maximum(1, RelHum, FP2, 0, False)
Minimum(1, RelHum, FP2, 0, False)
Average(1, SlrRad_W, FP2, 0)
Maximum(1, SlrRad_W, FP2, 0, False)
Maximum (1,DewPntC,FP2,False,False)
Minimum (1,DewPntC,FP2,False,False)
Maximum (1,WindChilC,FP2,False,False)
Minimum (1,WindChilC,FP2,False,False)
Maximum (1,HeatIndxC,FP2,False,False)
Minimum (1,HeatIndxC,FP2,False,False)
EndTable
BeginProg
'Set all rain variables to zero.
For n = 1 To 24
Rain(n) = 0
Next n
Scan(5,Sec, 3, 0)
BattVolt = Status.Battery(1,1)
LogrTmpC = Status.PanelTemp(1,1)
WatchDog = Status.WatchdogErrors(1,1)
Overruns = Status.SkippedScan(1,1)
LowVolts = Status.Low12VCount(1,1)
LiBattV = Status.LithiumBattery(1,1)
VoltSe(Encl_RH, 1, mV2500, 10, False, 0, _60Hz, 0.1, 0)
If Encl_RH > 100 Then Encl_RH = 100
PulseCount(WindSpd_ms, 1, 1, 2, 1, 0.799, 0.2811)
If (WindSpd_ms < 0.29) Then WindSpd_ms = 0.001
WindSpd_mph = WindSpd_ms / 0.44707
BrHalf(WindDir, 1, mV2500, 3, VX2, 1, 2500,True, 0,_60Hz, 720, 0)
If (WindDir >= 360 OR WindDir < 0) Then WindDir = 0
If WindDir = NAN Then WindDir = -6999
PulseCount(Rain_mm, 1, 2, 2, 0, 0.254, 0)
RainHrTtl = Rain_mm + RainHrTtl
Rain24Ttl = Rain_mm + Rain24Ttl
If TimeIntoInterval(0,60,Min) Then
Rain24Ttl = 0
For n = 24 To 2 Step -1
Rain(n) = Rain(n-1)
Rain24Ttl = Rain24Ttl + Rain(n)
Next n
RainHrTtl = 0
EndIf
PortSet(9, 1)
Delay(0,200,MSEC)
VoltSe(AirTempC, 1, mV2500, 2, False, 0, _60Hz, 0.1, -40)
D-5