Appendix D. Default Programs
Maximum
(1,SlrRad_KW,FP2,False,False)
Maximum
(1,AirTempC,FP2,False,False)
Maximum
(1,RelHum,FP2,False,False)
Maximum
(1,WindSpd_mph,FP2,False,False)
Minimum
(1,SlrRad_KW,FP2,False,False)
Minimum
(1,AirTempC,FP2,False,False)
Minimum
(1,RelHum,FP2,False,False)
Minimum
(1,WindSpd_mph,FP2,False,False)
WindVector
(1,WindSpd_mph,WindDir,FP2,False,0,0,1)
FieldNames
("AvgWSmph,AvgWindDir")
ETsz
(AirTempC,RelHum,WindSpd_ms,SlrRad_MJ,Longitude,Latitude,Altitude_m,3,0,FP2,False)
FieldNames
("ETos_mm,Rso_MJ")
EndTable
DataTable (ToroStatus,1,-1)
DataInterval
(0,1440,Min,5)
Maximum
(1,BattVolt,FP2,False,False)
Minimum
(1,BattVolt,FP2,False,False)
Maximum
(1,LogrTmpC,FP2,False,False)
Minimum
(1,LogrTmpC,FP2,False,False)
Maximum
(1,Encl_RH,FP2,False,False)
Minimum
(1,Encl_RH,FP2,False,False)
Sample
(1,WatchDog,FP2)
Sample
(1,Overruns,FP2)
Sample
(1,LowVolts,FP2)
EndTable
'Main Program
BeginProg
'Initialize Values (unitialized values are zero)
Latitude=0.00001
Longitude=latitude
Altitude_m=latitude
FirstPass = False
Baro_Kpa
=
0
Scan(5,Sec, 3, 0)
PortSet(9,1)
'Battery
voltage
Battery
(BattVolt)
'Micrologger
temperature
PanelTemp
(LogrTmpC,250)
'Save
Site
Values
If SaveSite = 1 then
CallTable
SiteVal
SaveSite=0
Endif
'Query Site Values from data table and use if needed.
If Latitude = 0.00001 and SiteVal.Latitude(1,1)<> NAN then
Latitude=SiteVal.Latitude(1,1)
Longitude=SiteVal.Longitude(1,1)
Altitude_m=SiteVal.Altitude_m(1,1)
Endif
'Enclosure
humidity
VoltSE(Encl_RH, 1, mV2500, 10, False, 0, _60Hz, 0.1, 0)
If Encl_RH > 100 Then Encl_RH = 100
'CONNECTOR
WS/WD
'034B-ET wind speed/direction sensor
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
TotalWSmph = Tota WindSpd_mph*0.0833
'CONNECTOR
TEMP/RH
'HMP60-ET or HMP45C-ET temperature/humidity sensor
VoltSe(AirTempC, 1, mV2500, 2, False, 0, _60Hz, 0.1, -40)
If (AirTempC = NAN) Then AirTempC = -6999
VoltSe(RelHum, 1, mV2500, 1, False, 0, _60Hz, 0.1, 0)
If (RelHum = NAN) Then RelHum = -6999
If (RelHum >= 100) AND (RelHum < 108) Then RelHum = 100
D-2
Содержание T107
Страница 2: ......
Страница 3: ......
Страница 49: ...T107 Weather Station FIGURE 2 31 Slide Antenna Bracket U Bolt around Back of the Pole 41...
Страница 75: ...T107 Weather Station FIGURE 4 7 Schematic of TE525 ET Rain Sensor and Connector Rain Precip Rain Precip 67...
Страница 78: ...T107 Weather Station 70...
Страница 82: ...Appendix B PS24 24 Ahr Power Supply and 10 x 12 inch Enclosure FIGURE B 2 24 Ahr Battery and Battery Cable B 2...
Страница 83: ...Appendix B PS24 24 Ahr Power Supply and 10 x 12 inch Enclosure FIGURE B 3 Enclosure Supply Kit B 3...
Страница 93: ...Appendix C Exploded Views C 1 Enclosure C 1...
Страница 94: ...Appendix C Exploded Views C 2 Crossarm C 2...
Страница 102: ...Appendix D Default Programs D 8...
Страница 105: ......