Campbell Scientific CS616 CS616 and CS625 Water Content Reflectometers - Page 18

CS625 Sample Program 2

Page 18 highlights

CS616 and CS625 Water Content Reflectometers 'CR200(X) program to read 4 CS625s 'Standard calibration is used to convert CS625 output 'period to volumetric water content. 'Sensors are read hourly and average water content are written to storage every 4 hours. 'Declare Variables Public period(4),vwc(4) Dim i 'Declare Constants Const a0=-0.0663 Const a1=-0.0063 Const a2=0.0007 'Define Data Tables DataTable (ofile,1,10) DataInterval (0,4,hr) Average (4,vwc,0) EndTable 'Main Program BeginProg Scan (1,hr) SWBatt (1) PeriodAvg (period(1),1,0,10,10,C1,1,0) PeriodAvg (period(2),2,0,10,10,C1,1,0) PeriodAvg (period(3),3,0,10,10,C1,1,0) PeriodAvg (period(4),4,0,10,10,C1,1,0) For i=1 To 4 vwc(i) = a0 + a1*period(i) + a2*period(i)^2 Next i CallTable ofile NextScan EndProg 6.4.3.2 CS625 Sample Program 2 Measure temperature with 109 probe and use the 109 temperature to correct the period for 1 CS625. Use standard calibration equation to convert temperaturecorrected period to volumetric water content. Sensors are read hourly and average water content and temperature are written to storage every 4 hours. CS625 leads CR200(X) green Single-Ended Channel 1 (SE1) black ground for SE1 orange Control Port 1 (C1) red SW Battery clear G 109 leads CR200(X) black Switched excitation channel 1 (EX1) red Single-Ended Channel 5 (SE5) purple G clear G 12

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50

CS616 and CS625 Water Content Reflectometers
'CR200(X) program to read 4 CS625s
'Standard calibration is used to convert CS625 output
'period to volumetric water content.
'Sensors are read hourly and average water content are written to storage every 4 hours.
'Declare Variables
Public period(4),vwc(4)
Dim i
'Declare Constants
Const a0=-0.0663
Const a1=-0.0063
Const a2=0.0007
'Define Data Tables
DataTable (ofile,1,10)
DataInterval (0,4,hr)
Average (4,vwc,0)
EndTable
'Main Program
BeginProg
Scan (1,hr)
SWBatt (1)
PeriodAvg (period(1),1,0,10,10,C1,1,0)
PeriodAvg (period(2),2,0,10,10,C1,1,0)
PeriodAvg (period(3),3,0,10,10,C1,1,0)
PeriodAvg (period(4),4,0,10,10,C1,1,0)
For i=1 To 4
vwc(i) = a0 + a1*period(i) + a2*period(i)^2
Next i
CallTable ofile
NextScan
EndProg
6.4.3.2 CS625 Sample Program 2
Measure temperature with 109 probe and use the 109 temperature to correct the
period for 1 CS625.
Use standard calibration equation to convert temperature-
corrected period to volumetric water content.
Sensors are read hourly and
average water content and temperature are written to storage every 4 hours.
CS625 leads
CR200(X)
green
Single-Ended Channel 1 (SE1)
black
ground for SE1
orange
Control Port 1 (C1)
red
SW Battery
clear
G
109 leads
CR200(X)
black
Switched excitation channel 1 (EX1)
red
Single-Ended Channel 5 (SE5)
purple
G
clear
G
12