Campbell Scientific 229 Water Matric Potential Sensor and CE4/CE8 - Manual (Page 14)

229 Heat Dissipation Matric Water Potential Sensor
'CR1000
SequentialMode
Const Num229 = 4
'Enter number of 229 sensors to measure
Dim LoopCount
Public RefTemp_C, StartTemp_C(Num229), Temp_1sec_C(Num229)
Public Temp_30sec_C(Num229), DeltaT_C(Num229)
Public Flag(1) as Boolean
Units StartTemp_C()=Deg C
Units DeltaT_C()=Deg C
DataTable(Matric,Flag(1),-1)
Sample(Num229,StartTemp_C(),FP2)
Sample(Num229,DeltaT_C(),FP2)
EndTable
BeginProg
Scan(30,Sec,1,0)
PanelTemp
(RefTemp_C,250)
If IfTime (0,240,Min) Then Flag(1)=True 'Every 4 hours set Flag(1) high
If Flag(1) = True Then
'Flag(1) true triggers 229 readings
'Measure starting temperature before heating
TCDiff(StartTemp_C(),Num229,mV2_5C,1,TypeT,RefTemp_C,True,0,_60Hz,1,0)
PortSet
(1,1 ) 'Set C1 high to activate CE4
Delay (0,1,Sec) 'Wait 1 second
'Measure temperature after 1 second of heating
TCDiff(Temp_1sec_C(),Num229,mV2_5C,1,TypeT,RefTemp_C,True,0,_60Hz,1,0)
'Measure temperature after 30 second of heating
Delay (0,29,Sec)
'Wait 29 seconds more for total of 30 seconds heating
TCDiff(Temp_30sec_C(),Num229,mV2_5C,1,TypeT,RefTemp_C,True,0,_60Hz,1,0)
PortSet
(1,0 ) 'Set C1 low to deactivate CE4
For LoopCount=1 to Num229
'Calculate temperature rise
DeltaT_C(LoopCount)=Temp_30sec_C(LoopCount)-Temp_1sec_C(LoopCount)
'LoopCount=LoopCount+1
Next
LoopCount
EndIf 'Ends Flag(1) true condition
CallTable(Matric) 'Call Data Tables and Store Data
Flag(1)=False 'Set Flag 1 false to disable 229 measurements
NextScan
EndProg
10