Campbell Scientific RDP500 Remote Data Platform - Manual (Page 34)

Appendix A. CRBasic Program for Version 18
A-6
'Measure PRT and convert to C and Deg F.
'The PRT was originally included so that we could perform temperature corrections on
'the load cell. However, after several cycles in the temperature chamber, it was found
'that a temperature correction was not necessicary. We left the PRT on the sensor
'so anyone who wanted to could verify our findings.
BrHalf3W (PRT_raw,1,mV250C,13,Vx2,2,2500,True,0,250,10,0)
PRT (PRT_C,1,PRT_raw,1.0,0)
PRT_F=((PRT_C)*1.8)+32
If TimeIntoInterval (0,15,Min) AND RecordAccumulation Then
If Accum_15m.PrecipF_in(1,1) <> NAN Then
FifteenMinAccum = PrecipF_in - Accum_15m.PrecipF_in(1,1)
Else
FifteenMinAccum = PrecipF_in '- 0 ''subtracting zero
EndIf
If FifteenMinAccum < 0.002 Then 'Register only if the difference is more than 0.002"
'the assumption here is that the load cell will drift less than the accumulation.
FifteenMinAccum=0
EndIf
TotFAccum = TotFAccum + FifteenMinAccum
TotAccum = Round (TotFAccum,2)
CallTable
(Accum_15m)
EndIf
'Call Data Tables to output data.
CallTable (Rain_15m)
CallTable (Rain_1h)
CallTable (Rain_1d)
If PrecipF_in <0.002 Then PrecipF_in = 0
If Precip_in<0.002 Then Precip_in = 0
NextScan
SlowSequence
Scan
(1,Sec,3,0)
Time = Status.TimeStamp(1,1)
StaName = Status.StationName
OSVer = Status.OSVersion
ProgName = Status.ProgName
StartTime = Status.StartTime(1,1)
NextScan
EndProg