Campbell Scientific 223-L Delmhorst Cylindrical Soil Moisture Block User Manual
Page 21

223 Delmhorst Cylindrical Soil Moisture Block
'Define Data Tables
DataTable(Table1,True,–1)
DataInterval(0,60,Min,10)
Sample(1,kohms(1),FP2)
Sample(1,WP_kPa(1),FP2)
Sample(1,kohms(2),FP2)
Sample(1,WP_kPa(2),FP2)
Sample(1,kohms(3),FP2)
Sample(1,WP_kPa(3),FP2)
Sample(1,kohms(4),FP2)
Sample(1,WP_kPa(4),FP2)
Sample(1,kohms(5),FP2)
Sample(1,WP_kPa(5),FP2)
EndTable
DataTable(Table2,True,–1)
DataInterval(0,1440,Min,10)
Minimum(1,BattV,FP2,False,False)
EndTable
'Main Program
BeginProg
'Main Scan
Scan(30,Sec,1,0)
'Default Datalogger Battery Voltage measurement 'BattV'
Battery(BattV)
'Default Wiring Panel Temperature measurement 'PTemp_C'
PanelTemp(PTemp_C,_60Hz)
'Turn AM16/32 Multiplexer On
PortSet(2,1)
Delay(0,150,mSec)
LCount=1
SubScan(0,uSec,5)
'Switch to next AM16/32 Multiplexer channel
PulsePort(1,10000)
'223 Soil Moisture Sensor measurements 'kohms()' and 'WP_kPa()' on the AM16/32 Multiplexer
BrHalf(kohms(LCount),1,mV250,1,1,1,250,True,20000,250,1,0)
'Convert resistance ratios to kilohms and kilohms to water potential
kohms(LCount)=kohms(LCount)/(1–kohms(LCount))
If kohms(LCount)<17 Then
WP_kPa(LCount)=kohms(LCount)*0.1
WP_kPa(LCount)=0.15836+(6.1445*WP_kPa(LCount))+(–8.4189*WP_kPa(LCount)^2)+(9.2493*WP_kPa(LCount)^3)+(–3.1685*WP_kPa(LCount)^4)+(0.33392*WP_kPa(LCount)^5)
WP_kPa(LCount)=WP_kPa(LCount)*100
Else
WP_kPa(LCount)=1000
EndIf
LCount=LCount+1
NextSubScan
'Turn AM16/32 Multiplexer Off
PortSet(2,0)
Delay(0,150,mSec)
'Call Data Tables and Store Data
CallTable(Table1)
CallTable(Table2)
NextScan
EndProg
15