Campbell Scientific CNR1 Net Radiometer - Manual (Page 34)

Appendix C. CR3000/CR5000 Program that Controls the Heater
'14H CNR1 upwelling longwave radiation signal (purple or pink)
'14L CNR1 upwelling longwave radiation signal reference (gray)
'CURRENT EXCITATION
'IX1
CNR1 Pt100 current excitation (white)
'IXR CNR1 Pt100 current excitation reference (green)
'CONTROL PORTS
'C1
SW12V control (green)
'G SW12V control/power reference (black)
'POWER OUT
'12V
HMP45C power (red)
' SW12V power (red)
'G HMP45C power reference (black)
'POWER IN
'12V datalogger
(red)
'G datalogger (black)
'EXTERNAL POWER SUPPLY
'POS datalogger
(red)
'NEG datalogger (black)
'SW12V Power Control Module
'SW12V NR 01 heater excitation (brown)
'G
NR 01 heater excitation reference (yellow)
PipeLineMode
'*** Constants ***
Const NR01_SHORT_DW_CAL = 1000/13.41 'Unique NR 01 shortwave downwelling multiplier (1000/15.5).
Const NR01_SHORT_UW_CAL = 1000/13.93 'Unique NR 01 shortwave upwelling multiplier (1000/13.5).
Const NR01_LONG_DW_CAL = 1000/8.8
'Unique NR 01 longwave downwelling multiplier (1000/10.5).
Const NR01_LONG_UW_CAL = 1000/9.4 'Unique NR 01 longwave upwelling multiplier (1000/10.3).
Const MAX_DUTY_CYCLE_1 = 1
Const MAX_DUTY_CYCLE_2 = 0.2
Const DELTA_SET_POINT_1 = 5
Const DELTA_SET_POINT_2 = 28
Const SLOPE_1 = (MAX_DUTY_CYCLE_2-MAX_DUTY_CYCLE_1)/DELTA_SET_POINT_1
Const SLOPE_2 = (-MAX_DUTY_CYCLE_2)/DELTA_SET_POINT_2
'*** Variables ***
Public no_heat_flag As Boolean
'Turn off heater control when TRUE.
Public panel_temp 'Datalogger panel temperature.
Public batt_volt 'Datalogger battery voltage.
Public hmp(2) 'HMP45C temperature and relative humidity.
Alias hmp(1) = t_hmp 'HMP45C temperature.
Alias hmp(2) = rh_hmp 'HMP45C relative humidity.
Public e_hmp 'HMP45C vapor pressure.
Public nr01(9) 'NR 01 net radiometer.
Alias nr01(1) = Rn
Alias nr01(2) = albedo
C-2