Appendix B. CNF4 Heater/Ventilator
B-8
'
'G CNF4 ventilator - (blue)
' CNF4 heater - (yellow)
'
'gnd ventilator & heater shield (clear)
PipeLineMode
'CNR4 sensor
Public logger_temp, batt_volt
Public flag(2) As Boolean
Public cnr4(4)
Alias cnr4(1) = short_up
Alias cnr4(2) = short_dn
Alias cnr4(3) = long_up
Alias cnr4(4) = long_dn
Public cnr4_T_C
'CNR4 thermistor temperature in Celcius
Public cnr4_T_K
'CNR4 thermistor temperature in Kelvin
Public long_up_corr
'Downwelling long-wave radiation with temperature correction
Public long_dn_corr
'Upwelling long-wave radiation with temperature correction
Public Rs_net
'short-wave net radiation
Public Rl_net
'long-wave net radiation
Public albedo
'Albedo
Public Rn
'total net radiation
Units logger_temp = degC
Units batt_volt = volts
Units short_up = W/m^2
Units short_dn = W/m^2
Units long_up = W/m^2
Units long_dn = W/m^2
Units cnr4_T_C = deg_C
Units cnr4_T_K = K
Units long_up_corr = W/m^2
Units long_dn_corr = W/m^2
Units Rs_net = W/m^2
Units Rl_net = W/m^2
Units albedo = W/m^2
Units Rn = W/m^2
Dim Rs, Vs_Vx
'CNR4 sensitivities: refer to the Certificate of Calibration from Kipp & Zonen for sensitivity values
'for each probes, and enter them below.
Const pyranometer_up_sensitivity = 15.35
'unique sensitivity for upper pyranometer
'(microV/W/m^2)
Const pyranometer_dn_sensitivity = 15.41
'unique sensitivity for lower pyranometer
'(microV/W/m^2)
Const pyrgeometer_up_sensitivity = 8.50
'unique sensitivity for upper pyrgeometer
'(microV/W/m^2)
Const pyrgeometer_dn_sensitivity = 7.09
'unique sensitivity for lower pyrgeometer
'(microV/W/m^2)
'CNR4 multipliers
Public cnr4_mult(4)
Const pyranometer_up_mult = 1000/pyranometer_up_sensitivity
'(W/m^2/mV)
Const pyranometer_dn_mult = 1000/pyranometer_dn_sensitivity
'(W/m^2/mV)
Const pyrgeometer_up_mult = 1000/pyrgeometer_up_sensitivity
'(W/m^2/mV)
Const pyrgeometer_dn_mult = 1000/pyrgeometer_dn_sensitivity
'(W/m^2/mV)
DataTable (cnr4_data,True,-1)
DataInterval (0,60,Min,10)