
Model HFP01SC Self-Calibrating Soil Heat Flux Plate
Heater Resistor Signal #1 Yellow 13H
Heater Resistor Signal Reference #1 Purple
Shield #1 Clear
Power #1 Red SW12-1
Power Reference #1 Black G
Heater Resistor Signal #2 Yellow 13L
Heater Resistor Signal Reference #2 Purple
Shield #2 Clear
Power #2 Red SW12-1
Power Reference #2 Black G
Heater Resistor Signal #3 Yellow 14H
Heater Resistor Signal Reference #3 Purple
Shield #3 Clear
Power #3 Red SW12-1
Power Reference #3 Black G
Heater Resistor Signal #4 Yellow 14L
Heater Resistor Signal Reference #4 Purple
Shield #4 Clear
Power #4 Red SW12-1
'CR3000 Series Datalogger
Const OUTPUT_INTERVAL = 30 'Online mean output interval in minutes.
Const CAL_INTERVAL = 1440 'HFP01SC insitu calibration interval (minutes).
Const END_CAL = OUTPUT_INTERVAL-1 'End HFP01SC insitu calibration one minute before the next Output.
Const HFP01SC_CAL_1 = 15 'Unique multiplier for HFP01SC #1 (1000/sensitivity).
Const HFP01SC_CAL_2 = 15 'Unique multiplier for HFP01SC #2 (1000/sensitivity).
Const HFP01SC_CAL_3 = 15 'Unique multiplier for HFP01SC #3 (1000/sensitivity).
Const HFP01SC_CAL_4 = 15 'Unique multiplier for HFP01SC #4 (1000/sensitivity).
'*** Variables ***
Public shf(4)
Public shf_cal(4)
Units shf = W/m^2
Units shf_cal = W/(m^2 mV)
'HFP01SC calibration variables.
Dim shf_mV(4)
Dim shf_mV_0(4)
Dim shf_mV_180(4)
Dim shf_mV_end(4)
Dim V_Rf(4)
Dim V_Rf_180(4)
Dim shf_cal_on_f As Boolean
Dim sw12_1_state As Boolean 'State of the switched 12Vdc port 1.
Dim ii As Long
DataTable (mean,TRUE,100)
DataInterval (0,OUTPUT_INTERVAL,Min,10)
Average (4,shf(1),IEEE4,shf_cal_on_f)
Sample (4,shf_cal(1),IEEE4)
EndTable
7
Comentários a estes Manuais