Appendix D. Default Programs
PortSet(9,
0)
AirTempF = AirTempC * 1.8 + 32
If FirstPass = False Then
MaxAirC
=
AirTempC
MinAirC
=
AirTempC
FirstPass
=
True
Else
If (AirTempC > MaxAirC) Then MaxAirC = AirTempC
If (AirTempC < MinAirC) Then MinAirC = AirTempC
Endif
'CONNECTOR
SOLAR
RADIATION
'CS305-ET or LI200X-ET Pyranometer
VoltDiff(SlrRad_W, 1, mV7_5, 3, true, 0, _60Hz, 200, 0)
If (SlrRad_W < 0) Then SlrRad_W = 0
If (SlrRad_W = NAN) Then
SlrRad_W
=
-6999
SlrRad_KW
=
-6999
SlrRad_MJ
=
-6999
Else
SlrRad_KW
=
SlrRad_W*0.001
SlrRad_MJ
=
SlrRad_W*0.000005
Endif
'CONNECTOR
RAIN
(PRECIP)
'TE525-ET, TE525WS-LC, CS700-LC, or TB4-LC tipping rain bucket
PulseCount(Rain_mm, 1, 2, 2, 0, 0.254, 0)
Rain_inch = Rain_mm * 0.03937
Rain_Hr = R Rain_Hr
RainRun = R Rain_mm
CallTable
ToroHourly
If
(ToroHourly.Output(1,1))
Then
ETos_mm
=
ToroHourly.ETos_mm(1,1)
ETos_Run
=
ETos_Run
+
ETos_mm
Rain_Hr
=
0
TotalWSmph
=
0
Endif
CallTable
ToroStatus
If
(ToroStatus.Output(1,1))
Then
Rain24
=
RainRun
RainRun
=
0
ETos24
=
ETos_Run
ETos_Run
=
0
Max24Air
=
MaxAirC
Min24Air
=
MinAirC
MaxAirC
=
AirTempC
MinAirC
=
AirTempC
'Watchdog
counts
WatchDog
=
Status.WatchdogErrors(1,1)
'Skipped
scan
counts
Overruns
=
Status.SkippedScan(1,1)
'Low
voltage
counts
LowVolts
=
Status.Low12VCount(1,1)
'Lithium
battery
voltage
LiBattV
=
Status.LithiumBattery(1,1)
Endif
NextScan
EndProg
D-3
Summary of Contents for T107
Page 2: ......
Page 3: ......
Page 49: ...T107 Weather Station FIGURE 2 31 Slide Antenna Bracket U Bolt around Back of the Pole 41...
Page 78: ...T107 Weather Station 70...
Page 93: ...Appendix C Exploded Views C 1 Enclosure C 1...
Page 94: ...Appendix C Exploded Views C 2 Crossarm C 2...
Page 102: ...Appendix D Default Programs D 8...
Page 105: ......