Campbell Scientific ET107 Evapotranspiration Monitoring Station - Manual (Page 108)

Appendix D. Default Programs
'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 = Rain_mm + RainHrTtl
Rain24Ttl = Rain_mm + Rain24Ttl
If TimeIntoInterval(0,60,Min) Then
Rain24Ttl = 0
D-4