Campbell T107, Instruction Manual

Page: 98 / 106

Appendix D. Default Programs
D.2 Program for T107 with Gill WindSonic
'Program name: C:\TORO\T107_GILL.CR1
'Programmer: Bart Nef - CSI
'Date: 7.April.2011
'Ver: D
'Notes: Toro T107_GILL program To work with both the Toro software AND Eicon.
'Changes from version A to B: Corrected the method used to read the Gill wind sonic.
'Customer must have version 13 OS in their CR1000 to use this program!
'Changes from version B to C: Updated the method used to read the Gill wind sonic.
'Customer must have version 14 OS in their CR1000 to use this program!
'Changes from C to D: Put in changes to handle a HMP60-ET.
StationName (T107_GILL_VD)
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.
'Gill Sonic variables
Dim in_bytes_str As String * 21
Dim checksum_flg As Boolean
Dim nmbr_bytes_rtrnd
Dim disable_flag As Boolean
Dim one
Units one = samples
Public diag
Units diag = unitless
'Define Data Tables
DataTable (SiteVal,True,5)
Sample (1,Altitude_m,FP2)
Sample (1,Latitude,IEEE4)
Sample (1,Longitude,IEEE4)
EndTable
D-4