Campbell HFP01SC Instrukcja Użytkownika Pobierz pdf (Strona 20)

Model HFP01SC Self-Calibrating Soil Heat Flux Plate

If ( IfTime (4,CAL_INTERVAL,Min) ) Then

Move (shf_mV_180(1),4,shf_mV_run(1),4)

Move (V_Rf_180(1),4,V_Rf_run(1),4)

sw12_state = FALSE

EndIf

If ( IfTime (END_CAL,CAL_INTERVAL,Min) ) Then

Move (shf_mV_end(1),4,shf_mV_run(1),4)

'Compute new HFP01SC calibration factors.

For j = 1 to 4

shf_cal(j) = (V_Rf_180(j)*V_Rf_180(j)*128.7)/ABS (((shf_mV_0(j)+shf_mV_end(j))/2)-shf_mV_180)

Next j

shf_cal_on = FALSE

EndIf

EndSub

BeginProg

'HFP01SC factory calibration in W/(m^2 mV) = 1000/sensitivity.

shf_cal(1) = HFP01SC_CAL_1

shf_cal(2) = HFP01SC_CAL_2

shf_cal(3) = HFP01SC_CAL_3

shf_cal(4) = HFP01SC_CAL_4

Scan (100,mSec,3,0)

'Measure the HFP01SC soil heat flux plates.

VoltDiff (shf_mV(1),4,mV50C,11,TRUE,200,250,1,0)

'Apply calibration to HFP01SC soil heat flux plates.

For j = 1 to 4

shf(j) = shf_mV(j)*shf_cal(j)

Next j

'Measure voltage across the heater (Rf_V).

VoltSe (V_Rf(1),4,mV5000,33,TRUE,200,250,0.001,0)

'Maintain a 100 sample running average.

AvgRun (shf_mV_run(1),4,shf_mV(1),100)

AvgRun (V_Rf_run(1),4,V_Rf(1),100)

CallTable (mean)

Call hfp01sc_cal

NextScan

EndProg

1 2 ... 15 16 17 18 19 20 21 22 23 24 25 ... 31 32

Brak uwag

Campbell HFP01SC Instrukcja Użytkownika Strona 20