Appendix B. Example Programs
B-12
Units
cnr4_T_C = deg_C
Units
cnr4_T_K = K
Units
LWTopC = W/m^2
Units
LWBottomC = 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
cnr4_prt_R, Rs_R0
'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,LWTopC,IEEE4,False)
Average
(1,LWBottomC,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
D
ataTable
(cnr4_ts,True,-1)
DataInterval
(0,1,Sec,10)
CardOut
(1,-1)
Sample
(4,cnr4(1),IEEE4)
Sample
(1,cnr4_T_K,IEEE4)
EndTable
B
eginProg
'Load the multiplier values for the CNR4
cnr4_mult(1) = pyranometer_up_mult
cnr4_mult(2) = pyranometer_dn_mult
cnr4_mult(3) = pyrgeometer_up_mult
cnr4_mult(4) = pyrgeometer_dn_mult
Scan
(1,Sec,3,0)
PanelTemp
(logger_temp,250)
Battery
(batt_volt)
'CNR4 radiation measurements
VoltDiff
(cnr4(),4,mV20C,1,True ,0,_60Hz,cnr4_mult(),0)
'PRT (Pt-100) temperature measurement
Resistance
(cnr4_prt_R,1,mV200,8,Ix1,1,1500,True,True,0,_60Hz,1,0)
Содержание CNR4
Страница 2: ......
Страница 6: ......
Страница 10: ...Table of Contents iv ...
Страница 36: ...CNR4 Net Radiometer 26 ...
Страница 38: ......
Страница 52: ...Appendix B Example Programs B 14 ...
Страница 68: ...Appendix D CNF4 Heater Ventilator D 12 ...
Страница 69: ......