Appendix D. Default Programs
VoltSe(Encl_RH, 1, mV2500, 10, False, 0, _60Hz, 0.1, 0)
If Encl_RH > 100 Then Encl_RH = 100
SerialInRecord
(Com1,in_bytes_str,&h02,0,&h0d0a,nmbr_bytes_rtrnd,01)
WindDir
=
Mid
(in_bytes_str,3,3)
WindSpd_ms = Mid (in_bytes_str,7,6)
diag
=
Mid
(in_bytes_str,16,2)
checksum_flg = ( (HexToDec (Mid (in_bytes_str,20,2))) EQV (CheckSum (in_bytes_str,9,18)))
disable_flag
=
(NOT
(checksum_flg)
OR (nmbr_bytes_rtrnd=0) OR (diag<>0))
WindSpd_mph
=
WindSpd_ms
*
2.236936
PulseCount(Rain_mm, 1, 2, 2, 0, 0.254, 0)
RainHrTtl = R RainHrTtl
Rain24Ttl = R 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)
VoltSe(RelHum, 1, mV2500, 1, False, 0, _60Hz, 0.1, 0)
If (RelHum >= 100) AND (RelHum < 108) Then RelHum = 100
AirTempF = AirTempC * 1.8 + 32
VoltDiff(SlrRad_W, 1, mV7_5, 3, true, 0, _60Hz, 200, 0)
If (SlrRad_W < 0) Then SlrRad_W = 0
DewPoint
(DewPntC,AirTempC,RelHum)
If DewPntC > AirTempC OR DewPntC = NAN Then DewPntC = AirTempC
'Wind
chill
calculation
'Trap and set any wind speeds higher than 110 to 110.
WC_WSmph
=
WindSpd_mph
If WC_WSmph > 110 Then WC_WSmph = 110
'Trap and set any airtempF less than -50
WC_AirtempF
=
AirTempF
If WC_AirtempF < -50 Then WC_AirtempF = -50
WindChilC
=
35.74+0.6215*WC_AirtempF-35.75*WindSpd_mph^0.16+0.4275*WC_
AirtempF*WindSpd_mph^0.16
If WindChilC > WC_AirtempF OR WindChilC = NAN Then WindChilC = WC_AirtempF
If WC_AirtempF > 50 OR WindSpd_mph < 3 Then WindChilC = AirTempF
WindChilC = (5/9)*(WindChilC - 32)
'Heat
Index
calculation
If (AirTempF >= 80) AND (RelHum >= 40) Then
HeatIndxC
=
-42.379+2.04901523*A10.14333127*RelHum-0.22475541*
AirTempF*RelHum-6.83783E-3*AirTempF^2-5.481717E-2*RelHum^2+
1.22874E-3*AirTempF^2*8.5282E-4*AirTempF*RelHum^2-1.99E-6*
AirTempF^2*RelHum^2
Else
HeatIndxC
=
AirTempF
EndIf
If (HeatIndxC < AirTempF) OR (HeatIndxC = NAN) Then HeatIndxC = AirTempF
D-3
Summary of Contents for ET107
Page 8: ...ET107 Weather Station Table of Contents vi This is a blank page...
Page 68: ...Section 3 ET Software 3 2 This is a blank page...
Page 86: ...Section 4 Maintenance Troubleshooting and Schematics 4 18...
Page 101: ...Appendix C Exploded Views C 1 Enclosure C 1...
Page 102: ...Appendix C Exploded Views C 2 Crossarm C 2...
Page 109: ......