Campbell Scientific 237-L Leaf Wetness Sensor - Manual (Page 9)

Model 237 Leaf Wetness Sensor
'Check if Leaf wetness is below 150 kOhms transition and count as time dry
If Rs_kohm < 150 AND Rs_kohm > 0 Then
ScanIntervalWet = ScanIntervalWet + 1
EndIf
'Calculate Time Fraction Wet at top of each hour
If IfTime (0,60,Min) Then 'Interval must match data table interval
TimeFractionWet = ScanIntervalWet / ScanIntervalSum
ScanIntervalWet = 0
ScanIntervalSum = 0
EndIf
CallTable
(Wetness)
NextScan
EndProg
4.3 CR10(X) Programming Example
*Table 1 Program
01: 60
Execution Interval (seconds)
1: AC Half Bridge (P5)
1: 1
Reps
2: 13 25 mV Fast Range
3: 1 SE Channel
4: 1 Excite all reps w/Exchan 1
5: 2500 mV Excitation
6: 1 Loc [ Vs_Vx ]
7: 1 Multiplier
8: 0 Offset
2: Z=1/X (P42)
1: 1
X Loc [ Vs_Vx ]
2: 2 Z Loc [ Rs_kOhms ]
3: Z=X+F (P34)
1: 2
X Loc [ Rs_kOhms ]
2: -101 F
3: 2 Z Loc [ Rs_kOhms ]
4: If time is (P92)
1: 0
Minutes (Seconds --) into a
2: 60 Interval (same units as above)
3: 10 Set Output Flag High (Flag 0)
5: Real Time (P77)
1: 1220
Year,Day,Hour/Minute (midnight = 2400)
6: Sample (P70)
1: 1
Reps
2: 2 Loc [ Rs_kOhms ]
5