User Manual

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