'CR1000
'Created by Short Cut (3.1)

'Declare Variables and Units
Dim MinIntoDay
Public BattV
Public PTemp_C
Public SR50A(2)
Public TCDT
Public WL
Public SW12State As Boolean

Alias SR50A(1)=DT
Alias SR50A(2)=Q

Units BattV=Volts
Units PTemp_C=Deg C

'Define Data Tables
DataTable(Hydro,True,-1)
	DataInterval(0,15,Min,10)
	Average(1,WL,FP2,False)
	Sample(1,WL,FP2)
	Maximum(1,WL,FP2,False,False)
	Minimum(1,WL,FP2,False,False)
EndTable

DataTable(HrlyDiag,True,-1)
	DataInterval(0,60,Min,10)
	Minimum(1,BattV,FP2,False,False)
	Average(1,BattV,FP2,False)
	Average(1,PTemp_C,FP2,False)
EndTable

'Main Program
BeginProg
	'Main Scan
	Scan(60,Sec,1,0)
		'Default Datalogger Battery Voltage measurement 'BattV'
		Battery(BattV)
		'Default Wiring Panel Temperature measurement 'PTemp_C'
		PanelTemp(PTemp_C,250)
		'SR50A Sonic Ranging Sensor (SDI-12 Output) measurements 'DT', 'Q', 'TCDT', and 'WL'
		SDI12Recorder(SR50A(),7,"0","M1!",1,0)
		TCDT=DT*SQR((PTemp_C+273.15)/273.15)
		WL=1.585-TCDT
		'SW12 Timed Control
		'Get minutes into current day
		MinIntoDay=Public.TimeStamp(4,1)/60
		'Turn ON SW12 for 10 minutes every 60 minutes
		If (MinIntoDay Mod 60 < 10) Then
			SW12State=True
		ElseIf BattV > 13
		  SW12State=True
		EndIf
		'Always turn OFF SW12 if battery drops below 11.5 volts
		If BattV<11.5 Then SW12State=False
		'Set SW12 to the state of 'SW12State' variable
		SW12(SW12State)
		'Call Data Tables and Store Data
		CallTable Hydro
		CallTable HrlyDiag
	NextScan
EndProg