'CR1000 Series Datalogger

'date:  7/15/24
'program author:  Katie Anderson
'Program to read 1 METER TEROS 11 on a CR1000

'Wiring:
'Brown wire (power) -> SW12V
'Orange wire (data) ->  C1
'Bare wire (ground) -> G

'Declare Public Variables
'Example:
Public PTemp, batt_volt

'Declare Other Variables
'Example:
'Dim Counter

'Declare Constants
'Example:
'CONST PI = 3.141592654	

Public SensorOut(2)
Public VWCmineral
Public VWCsoilless
Public VWCdielectric

Alias SensorOut(1) = calibratedCountsVWC
Alias SensorOut(2) = temperature

Units VWCmineral = m^3/m^3
Units VWCsoilless = m^3/m^3
Units VWCdielectric = m^3/m^3
Units temperature = Deg_C

'Define Data Tables
DataTable (TEROS11data,1,-1)
	DataInterval (0,1,Min,10)
	Minimum (1,batt_volt,FP2,0,False)
	Sample (1,PTemp,FP2)
	Sample (1,calibratedCountsVWC,FP2)
	Sample (1,temperature,FP2)
	Sample (1,VWCmineral,FP2)
	Sample (1,VWCsoilless,FP2)
	Sample (1,VWCdielectric,FP2)
EndTable

'Define Subroutines
'Sub
	'EnterSub instructions here
'EndSub

'Main Program
SequentialMode
BeginProg
	Scan (5,Sec,0,0)
		PanelTemp (PTemp,250)
		Battery (batt_volt)
		
		'Apply power to brown wire of sensor through SW-12
		PortSet (9,1)
		'Delay for at least 250 mSec for sensor to enter SDI-12 mode.
		Delay (0,1,Sec)
		'Query sensor for 3 SDI-12 outputs.  Default address for all Decagon Digital sensors is 0.
		SDI12Recorder (SensorOut(),1,0,"M!",1.0,0)
		
		'Turn SW12V off
		PortSet (9,0)
			
		'Apply calibration to calibrated counts for volumetric water content(VWC) for mineral soil (VWCmineral), soilless media (VWCsoilless), and dielectric permittivity (VWCdielectric)
		VWCmineral = 3.879E-4*calibratedCountsVWC - 0.6956 'mineral soil calibration
    VWCsoilless = 6.771E-10*calibratedCountsVWC^3 - 5.105E-6*calibratedCountsVWC^2 + 1.302E-2*calibratedCountsVWC - 10.848 'soilless substrate calibration
    VWCdielectric = 1.112E-18*calibratedCountsVWC^5.607 'apparent dielectric permittivity calibration
		
		'Enter other measurement instructions
		'Call Output Tables
		'Example:
		CallTable TEROS11data
	NextScan
EndProg