beautypg.com

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

Page 21

background image

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