Appendix A. Example Programs
A-7
'13H NR01 downwelling longwave radiation signal (brown)
'13L NR01 downwelling longwave radiation signal reference (yellow)
'14H NR01 upwelling longwave radiation signal (purple or pink)
'14L NR01 upwelling longwave radiation signal reference (gray)
'CURRENT EXCITATION
'IX1 NR01 Pt100 current excitation (red)
'IXR NR01 Pt100 current excitation reference (blue)
'CONTROL PORTS
'C4 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
Alias nr01(3) = Rs_downwell
Alias nr01(4) = Rs_upwell
Alias nr01(5) = Rl_downwell
Alias nr01(6) = Rl_upwell
Alias nr01(7) = t_nr01
Alias nr01(8) = Rl_down_meas
Alias nr01(9) = Rl_up_meas
