Campbell Scientific T.Weather T107 Toro Weather Station - Manual (Page 95)

Appendix D. Default Programs
D.1 Program for T107 with 034B
'Program name: C:\TORO\T107_034B.CR1
'Programmer: Bart Nef - CSI
'Date: 4.Nov.2010
'Ver: C
'Notes: Toro T107_034B program to work with both the Toro software and Eicon.
'Changes from A (22.Jan.2007) to B: Corrected multiplier to convert wind speed in m/s to mph.
'Changes from B (25.Jan.2008) to C: Put in changes to handle an HMP60-ET
StationName (T107_034B_VC)
Public SaveSite
'Setting value to 1 moves site information to non-volatile memory.
Public Latitude 'Latitude in decimal degrees. Must be negative for southern latitudes.
Public Longitude 'Longitude in decimal degrees. Longitude runs 0 - 360 degrees from west to east.
Public Altitude_m 'Altitude of site in meters.
Public BPoffset_KPa 'Offset for barometric pressure. Not used with T107.
'Datalogger status and binary control flags.
Public WatchDog
'Number of watchdog errors. Should always be zero.
Public Overruns 'Number of table overrun errors. Should always be zero.
Public LowVolts 'Number of low voltage errors. Should always be zero.
Public FirstPass As Boolean 'Checks to see if this is the first time program has been run.
'Measured inputs
Public Meas(18)
Alias Meas(1) = BattVolt
'Meas(1) = Battery Voltage - VDC
Alias Meas(2) = SlrRad_W 'Meas(2) = Solar Radiation - Watts/meter^2
Alias Meas(3) = AirTempC 'Meas(3) = Air Temperature - Celsius
Alias Meas(4) = RelHum 'Meas(4) = Relative Humidity - %
Alias Meas(5) = Baro_Kpa 'Meas(5) = Barometric Pressure - Kilopascals. Not used in T107.
Alias Meas(6) = WindSpd_ms 'Meas(6) = Wind Speed - meters/second
Alias Meas(7) = WindDir 'Meas(7) = Wind Direction - degrees
Alias Meas(8) = Rain_mm 'Meas(8) = Past 10-Second Rain Fall - millimeters
Alias Meas(9) = Rain_Hr 'Meas(9) = Rain fall for this hour. Resets at the top of the hour.
Alias Meas(10) = RainRun 'Meas(10) = Rain Fall Since Midnight 'till Now - millimeters
Alias Meas(11) = Rain24 'Meas(11) = Yesterdays Midnight to Midnight Rain Fall - millimeters
Alias Meas(12) = ETos_mm 'Meas(12) = Hour ETo Value - millimeters
Alias Meas(13) = ETos_Run 'Meas(13) = ETo Since Midnight - millimeters
Alias Meas(14) = ETos24 'Meas(14) = Yesterdays Midnight to Midnight ETo - millimeters
Alias Meas(15) = MaxAirC 'Meas(15) = High Air Temp Since Midnight - Celsius
Alias Meas(16) = MinAirC 'Meas(16) = Low Air Temp Since Midnight - Celsius
Alias Meas(17) = Max24Air 'Meas(17) = Yesterdays Midnight to Midnight High Air Temp -
Celsius
Alias Meas(18) = Min24Air
'Meas(18) = Yesterdays Midnight to Midnight Low Air Temp - Celsius
Public LogrTmpC 'CR1000 Temperature - Celsius
Public Encl_RH 'Enclosure Humidity - %
Public LiBattV 'Lithium Battery Voltage - VDC
'Unit conversions.
Public AirTempF
'Air Temperature - Fahrenheit
Public WindSpd_mph 'Wind Speed - miles/hour
Public TotalWSmph 'Totalized Wind Speed - miles/hour
Public SlrRad_KW 'Solar radiation - Kilowatts/meter^2
Public SlrRad_MJ 'Solar radiation - Megajoules/meter^2
Public Rain_inch 'Rain - inches
Dim Scratch 'Scratch pad variable for calculations.
'Define Data Tables
DataTable (SiteVal,True,5)
Sample (1,Altitude_m,IEEE4)
Sample (1,Latitude,IEEE4)
Sample (1,Longitude,IEEE4)
EndTable
DataTable (ToroHourly,1,-1)
DataInterval (0,60,Min,5)
Average (1,SlrRad_KW,FP2,False)
Average (1,AirTempC,FP2,False)
Average (1,RelHum,FP2,False)
Sample (1,TotalWSmph,FP2)
Totalize (1,Rain_inch,FP2,False)
D-1