Campbell Scientific 223-L Delmhorst Cylindrical Soil Moisture Block User Manual
Page 23
223 Delmhorst Cylindrical Soil Moisture Block
08: Do (P86)
;Turn off multiplexer
1:
51
Set Port 1 Low
;The following loop checks each block resistance and calculates
;water potential if BlockR < 17 kohms. Because 2 blocks are measured
;with each pass through the previous measurement loop, it is simpler
;to use a separate loop for the calculations.
;Leave out following loop if only recording block resistance.
09: Beginning of Loop (P87)
;Loop to calculate water potential
1:
0
Delay
2:
32
Loop
Count
10: If (X<=>F) (P89)
;If Rs < 17, apply polynomial
1:
1--
X Loc [ BlockR_1 ]
2:
4
<
3:
17
F
4:
30
Then
Do
11: Z=X*F (P37)
;Scale Rs for polynomial
1:
1--
X Loc [ BlockR_1 ]
2:
.1
F
3:
33--
Z Loc [ WatPot_1 ]
12: Polynomial (P55)
;Convert Rs to bars with 10 bar polynomial
1:
1
Reps
2:
33--
X Loc [ WatPot_1 ]
3:
33--
F(X) Loc [ WatPot_1 ]
4:
.15836 C0
5:
6.1445 C1
6:
–8.4198 C2
7:
9.2493 C3
8:
–3.1685 C4
9:
.33392 C5
13: Else (P94)
;If Rs > 17 load over range value for potential
14: Z=F (P30)
1: –99999
F
2:
0
Exponent
of
10
3:
33
Z Loc [ WatPot_1 ]
15: End (P95)
;End then do
16: End (P95)
;End loop
17: If time is (P92)
;Output Resistance and Water Potential each
Hour
1:
0
Minutes (Seconds --) into a
2:
60
Interval (same units as above)
3:
10
Set Output Flag High (Flag 0)
18: Set Active Storage Area (P80)
;Fix the Array ID to 60
1:
1
Final Storage Area 1
2:
60
Array
ID
17