Campbell T107, Instruction Manual

Page: 96 / 106

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