Campbell CR1000 - Groundwater Pump Test

Section 7. Installation
'Declare Units
Units PTemp_C = deg C
Units AirTemp_C = deg C
Units DeltaT_C = deg C
'Declare Output Table -- Output Conditional on Delta T >=3
'Table stores data at the Scan rate (once per second) when condition met
'because DataInterval instruction is not included in table declaration.
DataTable(DeltaT,DeltaT_C >= 3,-1)
Sample(1,Status.StationName,String)
Sample(1,DeltaT_C,FP2)
Sample(1,PTemp_C,FP2)
Sample(1,AirTemp_C,FP2)
EndTable
BeginProg
Scan(1,Sec,1,0)
'Measure wiring panel temperature
PanelTemp(PTemp_C,_60Hz)
'Measure type T thermocouple
TCDiff(AirTemp_C,1,mV2_5C,1,TypeT,PTemp_C,True,0, _60Hz,1,0)
'Calculate the difference between air and panel temps
DeltaT_C = AirTemp_C - PTemp_C
'Call data table(s)
CallTable(DeltaT)
NextScan
EndProg
7.9.1.3 Groundwater Pump Test
CRBasic example Groundwater Pump Test (p. 171) demonstrates:
• How to write multiple-interval data to the same data table
• Use of program-control instructions outside the Scan() / NextScan structure
• One way to execute conditional code
• Use of multiple sequential scans, each with a scan count
171