Appendix E. Default Programs
E-4
'CONNECTOR: TEMP/RH
'HMP60-ET
Public
AirTempC
Public
AirTempF
Public
RelHum
'CONNECTOR: Solar Radiation
Public SlrRad_W
'Miscellaneous variables and calculations
Public
DewPntC
Public
HeatIndxC
Public
WindChilC
Dim
n
DataTable
(VW_Hourly,true,-1)
DataInterval
(0,60,Min,10)
Maximum(1, BattVolt, FP2, 0, False)
Minimum
(1, BattVolt, FP2, 0, False)
Maximum
(1, Encl_RH, FP2, 0, False)
Minimum
(1, Encl_RH, FP2, 0, False)
Maximum
(1, LogrTmpC, FP2, 0, False)
Minimum
(1, LogrTmpC, FP2, 0, False)
Maximum
(1,WindSpd_ms,FP2,False,False)
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 = R RainHrTtl
Rain24Ttl = R Rain24Ttl
If
TimeIntoInterval
(0,60,Min)
Then
