Campbell Scientific CNR4 Net Radiometer User Manual

Page 61

Appendix C. CR3000 Program for Measuring Pt-100 Temperature Sensor

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 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

oV/W/m^2)

'(micr

Const pyrgeometer_ n_sensi

vity for lower pyrgeometer

tivity = 7.09

'unique sensiti

'(microV/W/m^2)

'CNR4 multipliers

Public cnr4_mult(4)
Const pyranometer_ p_mult

2/mV)

= 1000/pyranometer_up_sensitivity

'(W/m^

Const pyranometer_ n_mult

2/mV)

= 1000/pyranometer_dn_sensitivity

'(W/m^

Const pyrgeometer_ p_mult

2/mV)

= 1000/pyrgeometer_up_sensitivity

'(W/m^

Const pyrgeometer_ n_mult

m^2/mV)

= 1000/pyrgeometer_dn_sensitivity

'(W/

DataTable (cnr4_da a,True,

-1)

DataInterval (0,

,Min,1

CardOut (1,-1)
Minimum (1,batt_vo

,0,False)

lt,FP2

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)
Av

s_net,IEEE4,False)

erage (1,R

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 multiplier values for the CNR4
cnr4_mult(1) = pyranom

_mult

eter_up

cnr4_mult(2) = pyranom

_mult

eter_dn

cnr4_mult(3) = pyrgeome

_mult

ter_up

cnr4_mult(4) = pyrgeom

mult

eter_dn_

Sca

c,3,0)

n (1,Se

PanelTemp (logger_temp,250)
Battery (batt_volt)

'CNR4 radiation measurements
VoltDiff (cnr4(),4,mV20C,1,True ,0,_60Hz,cnr4_mult(),0)

C-3