'CR800 Series Datalogger
'TTS Campbell 107 temperature sensor test program
'Temperature is recorded every 10 sec.
'Water temperature is recorded as "waterTemperature" on SE chan 5, and EX2,
'	if connected set Flag(1) = True, if not connected set Flag(1) = Flase
'Air temperature is recorded as "airTemperature" on SE chan 6, and EX2,
'	if connected set Flag(2) = True, if not connected set Flag(2) = False
'Sensor not selected records a value of "-999"
'Sensor selected but not connected records a value of "NAN"
'Program date: 4/27/2007
'Program author: R. Eads, RiverMetrics LLC

'\\\\\\\\\\\\\\\\\\\\\\\\\ DECLARATIONS /////////////////////////

PreserveVariables
Public waterTemperature
Public airTemperature
Public Flag(2)

'\\\\\\\\\\\\\\\\\\\\\\\\ OUTPUT SECTION ////////////////////////

DataTable(OutTable,1,-1)
   Sample(1,waterTemperature,FP2)
   Sample(1,airTemperature,FP2)
EndTable

'\\\\\\\\\\\\\\\\\\\\\\\\\ SUBROUTINES //////////////////////////

Sub ReadTemperature
   'Measure water/air temperature
   'If water temperaure device is T107
   If Flag(1) = True Then
      'Read water temperature on SE channel 5
      Therm107(waterTemperature,1,5,VX2,400,250,1,0)
   Else
      waterTemperature = -999
   EndIf
   'If air temperature requested, then measure with T107 on SE channel 6
   If  Flag(2) = True then
      Therm107(airTemperature,1,6,VX2,400,250,1,0)
   Else
      airTemperature = -999
   EndIf
EndSub

'\\\\\\\\\\\\\\\\\\\\\\\\\\\ MAIN PROGRAM ////////////////////////////

BeginProg
   SequentialMode
   Scan(10,Sec, 3, 0)
      ReadTemperature
      CallTable OutTable
   NextScan
EndProg

'\\\\\\\\\\\\\\\\\\\\\\\\\\\ END MAIN PROGRAM ////////////////////////////