
CNR4 Net Radiometer
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 pyra_up_sensitiv = 15.35 'unique sensitivity for upper pyranometer (microV/W/m^2)
Const pyra_dn_sensitiv = 15.41 'unique sensitivity for lower pyranometer (microV/W/m^2)
Const pyrg_up_sensitiv = 8.50 'unique sensitivity for upper pyrgeometer (microV/W/m^2)
Const pyrg_dn_sensitiv = 7.09 'unique sensitivity for lower pyrgeometer (microV/W/m^2)
'CNR4 multipliers
Public cnr4_mult(4)
Const pyra_up_mult = 1000/pyra_up_sensitiv '(W/m^2/mV)
Const pyra_dn_mult = 1000/pyra_dn_sensitiv '(W/m^2/mV)
Const pyrg_up_mult = 1000/pyrg_up_sensitiv '(W/m^2/mV)
Const pyrg_dn_mult = 1000/pyrg_dn_sensitiv '(W/m^2/mV)
DataTable (cnr4_dat,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
26
Commenti su questo manuale