Campbell Scientific CNR4 Net Radiometer - Manual (Page 34)

CNR4 Net Radiometer
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)
CardOut (1,-1)
Minimum (1,batt_volt,FP2,0,False)
Sample (1,logger_temp,FP2)
Average (4,cnr4(1),IEEE4,False)
Average (1,cnr4_T_C,IEEE4,False)
Average (1,cnr4_T_K,IEEE4,False)
Average (1,long_up_corr,IEEE4,False)
Average (1,long_dn_corr,IEEE4,False)
Average (1,Rs_net,IEEE4,False)
Average (1,Rl_net,IEEE4,False)
Average (1,albedo,IEEE4,False)
Average (1,Rn,IEEE4,False)
EndTable
DataTable (cnr4_ts,True,-1)
DataInterval (0,1,Sec,10)
CardOut (1,-1)
Sample (4,cnr4(1),IEEE4)
Sample (1,cnr4_T_K,IEEE4)
EndTable
BeginProg
'Load the multiplie
alues for the CNR4 r v
cnr4_mu 1) = pyranometer_up_mult lt(
cnr4_mult 2) = pyranometer_dn_mult (
cnr4_mult 3) = pyrgeometer_up_mult (
cnr 4) = pyrgeometer_dn_mult 4_mult(
Scan (1,Sec,3,0)
PanelTe temp,250) mp (logger_
Battery (batt_volt)
'CNR4 radiation measurements
VoltDiff (cnr4(),4,mV20C,1,True ,0,_60Hz,cnr4_mult(),0)
26