' Program Name: Program to operate 1 x IX-SF60 Implexx Sap Flow Sensor Gen2 on a CR350 data logger.
'
' (C) Copyright 2024. This program, and associated information, is copyright to, and property 
' of Edaphic Scientific Pty Ltd. This program is not to be copied or disseminated to any
' person, under any format, with out the written permission of Edaphic Scientific Pty Ltd.
'
' Date: 21/11/2024
' Program author: Implexx Sense

'Wiring
'Brown -> Power   -> 12V
'Green -> Ground  -> G
'White -> Data    -> C1


Const MEAST_INTERVAL_MIN = 15

'Declare Public Variables
Public Logger_Temp, Batt_volt
Dim d_SapFlow(9) 'This variable is required for correct timing of M! or C! command measurements

'===== SAP FLOW VARIABLES ================================================
'C! Command - Main sap flow and sap flux density variables
Public SapFlow(6)
Alias SapFlow(1) = SapFlowTotal  :  Units SapFlowTotal=L/hr
Alias SapFlow(2) = SFD_1  :  Units SFD_1 = cm3//cm2hr
Alias SapFlow(3) = SFD_2  :  Units SFD_2 = cm3/cm2/hr
Alias SapFlow(4) = SFD_3  :  Units SFD_3 = cm3/cm2/hr
Alias SapFlow(5) = SFD_4  :  Units SFD_4 = cm3/cm2/hr
Alias SapFlow(6) = SFD_5  :  Units SFD_5 = cm3/cm2/hr


'===== RAW DATA VARIABLES =================================================
'C1 – alpha and beta raw data:
Public Ratio_Data(10)
Alias Ratio_Data(1) = alpha_1
Alias Ratio_Data(2) = alpha_2
Alias Ratio_Data(3) = alpha_3
Alias Ratio_Data(4) = alpha_4
Alias Ratio_Data(5) = alpha_5
Alias Ratio_Data(6) = beta_1
Alias Ratio_Data(7) = beta_2
Alias Ratio_Data(8) = beta_3
Alias Ratio_Data(9) = beta_4
Alias Ratio_Data(10) = beta_5

'C2 - tmaxt raw data (time to maximum temperature rise) in the downstream (D) and upstream (U) thermistor positions:
Public tMaxT(10)
Alias tMaxT(1) = tMaxT_D1  :  Units  tMaxT_D1 = sec
Alias tMaxT(2) = tMaxT_D2  :  Units  tMaxT_D2 = sec
Alias tMaxT(3) = tMaxT_D3  :  Units  tMaxT_D3 = sec
Alias tMaxT(4) = tMaxT_D4  :  Units  tMaxT_D4 = sec
Alias tMaxT(5) = tMaxT_D5  :  Units  tMaxT_D5 = sec
Alias tMaxT(6) = tMaxT_U1  :  Units  tMaxT_U1 = sec
Alias tMaxT(7) = tMaxT_U2  :  Units  tMaxT_U2 = sec
Alias tMaxT(8) = tMaxT_U3  :  Units  tMaxT_U3 = sec
Alias tMaxT(9) = tMaxT_U4  :  Units  tMaxT_U4 = sec
Alias tMaxT(10) = tMaxT_U5  :  Units  tMaxT_U5 = sec


'===== STEM WATER CONTENT VARIABLES =======================================
'C3 - stem water content variables in the downstream (D) direction
'SWC = stem water content
'pc = volumetric stem heat capacity
Public SWC(12)
Alias SWC(1) = SWC_D1  :  Units  SWC_D1 = %
Alias SWC(2) = SWC_D2  :  Units  SWC_D2 = %
Alias SWC(3) = SWC_D3  :  Units  SWC_D3 = %
Alias SWC(4) = SWC_D4  :  Units  SWC_D4 = %
Alias SWC(5) = SWC_D5  :  Units  SWC_D5 = %
Alias SWC(6) = pc_D1   :  Units  pc_D1 = kJ/m3
Alias SWC(7) = pc_D2   :  Units  pc_D2 = kJ/m3
Alias SWC(8) = pc_D3   :  Units  pc_D3 = kJ/m3
Alias SWC(9) = pc_D4   :  Units  pc_D4 = kJ/m3
Alias SWC(10) = pc_D5   :  Units  pc_D5 = kJ/m3
Alias SWC(11) = pulse_time  :  Units pulse_time = seconds
Alias SWC(12) = pulse_energy :  Units pulse_energy = J/m

'C4 - dTmax: maximum temperature rise, minus pre-heat pulse temperature, after the heat pulse in the downstream (D) position
Public dTmax(5)
Alias dTmax(1) = dTmax_D1  :  Units  dTmax_D1 = deg_C
Alias dTmax(2) = dTmax_D2  :  Units  dTmax_D2 = deg_C
Alias dTmax(3) = dTmax_D3  :  Units  dTmax_D3 = deg_C
Alias dTmax(4) = dTmax_D4  :  Units  dTmax_D4 = deg_C
Alias dTmax(5) = dTmax_D5  :  Units  dTmax_D5 = deg_C



'===== STEM TEMPERATURE VARIABLES =========================================
'C7 – ambient temperatures at the beginning of the measurement in the downstream (D) and upstream (U) thermistor positions:

Public Stem_Temp(10)
Alias Stem_Temp(1) = Stem_Temp_D1  :  Units Stem_Temp_D1 = deg_C
Alias Stem_Temp(2) = Stem_Temp_D2  :  Units Stem_Temp_D2 = deg_C
Alias Stem_Temp(3) = Stem_Temp_D3  :  Units Stem_Temp_D3 = deg_C
Alias Stem_Temp(4) = Stem_Temp_D4  :  Units Stem_Temp_D4 = deg_C
Alias Stem_Temp(5) = Stem_Temp_D5  :  Units Stem_Temp_D5 = deg_C
Alias Stem_Temp(6) = Stem_Temp_U1  :  Units Stem_Temp_U1 = deg_C
Alias Stem_Temp(7) = Stem_Temp_U2  :  Units Stem_Temp_U2 = deg_C
Alias Stem_Temp(8) = Stem_Temp_U3  :  Units Stem_Temp_U3 = deg_C
Alias Stem_Temp(9) = Stem_Temp_U4  :  Units Stem_Temp_U4 = deg_C
Alias Stem_Temp(10) = Stem_Temp_U5  :  Units Stem_Temp_U5 = deg_C



'==========================================================================
'===== DATA TABLES ========================================================
DataTable (Implexx_SF60,1,-1)
	DataInterval (0,MEAST_INTERVAL_MIN,Min,10)
	Sample (1,Logger_Temp,FP2)
	Sample (1,Batt_volt,FP2)
	Sample (6,SapFlow(),IEEE4)
	Sample (10,Ratio_Data(),IEEE4)
	Sample (10,tMaxT(),IEEE4)
	Sample (10,Stem_Temp(),IEEE4)
	Sample (12,SWC(),IEEE4)
	Sample (5,dTmax(),IEEE4)
EndTable


'===== MAIN PROGRAM =======================================================
BeginProg
	Scan (MEAST_INTERVAL_MIN,Min,0,0)
	
    PanelTemp (Logger_Temp,50)
		Battery (Batt_volt)
		
'Send measurement command for heat pulse cycle
    SDI12Recorder (d_SapFlow(),C1,0,"C!",1.0,0,-1,0)
    
' Retrieve the data from the C! command
    Delay (0,126,Sec)
    SDI12Recorder (SapFlow(1),C1,0,"D0!",1.0,0,-1,1)
		SDI12Recorder (Ratio_Data(),C1,0,"C1!",1.0,0)
    SDI12Recorder (tMaxT(),C1,0,"C2!",1.0,0)
    SDI12Recorder (SWC(),C1,0,"C3!",1.0,0)
    SDI12Recorder (dTmax(),C1,0,"C4!",1.0,0)
    SDI12Recorder (Stem_Temp(),C1,0,"C7!",1.0,0)
    
		'Call Output Tables
		CallTable Implexx_SF60
		
	NextScan
EndProg