Appendix B. Example Programs
B-9
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
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) = pyra_up_mult
cnr4_mult(2) = pyra_dn_mult
cnr4_mult(3) = pyrg_up_mult
cnr4_mult(4) = pyrg_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)
'CNR4 thermistor measurement
BrHalf
(Vs_Vx,1,mv5000,21,Vx1,1,2500,True ,0,250,1.0,0)
Rs = 1000*(Vs_Vx/(1-Vs_Vx))
cnr4_T_C = 1/(1.0295e-3+2.391e-4*LN(Rs)+1.568e-7*(LN(Rs))^3)-273.15
'Convert CNR4 temperature to Kelvin
cnr4_T_K = c273.15
'Correct the long-wave radiation values from pyrgeometers
LWTopC = LWTop+5.67e-8*cnr4_T_K^4
LWBottomC = L5.67e-8*cnr4_T_K^4
'Compute short-wave net radiation
Rs_net = SWTop - SWBottom
'Compute long-wave net radiation
Rl_net = LWTopC - LWBottomC
'Compute albedo
albedo = SWBottom/SWTop
'Compute net radiation
Rn = Rl_net
CallTable
cnr4_dat
CallTable
cnr4_ts
NextScan
EndProg
Содержание 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: ......