Campbell NR01, Инструкция по эксплуатации

Страница: 33 / 42

Appendix A. Example Programs
A-5
Public NetTot
Public IR01UpCo
Public IR01DnCo
Units Batt_Volt = Volts
Units SR01Up = W/m2
Units SR01Dn = W/m2
Units IR01Up = W/m2
Units IR01Dn = W/m2
Units NR01TC = Deg C
Units NR01TK = K
Units NetRs = W/m2
Units NetRl = W/m2
Units Albedo = W/m2
Units UpTot = W/m2
Units DnTot = W/m2
Units NetTot = W/m2
Units IR01UpCo = W/m2
Units IR01DnCo = W/m2
'Load the four calibration coefficients specific to this sensor (see example 1)
Const SR01Upcal = 65.146
Const SR01Downcal = 75.18
Const IR01Upcal = 117.65
Const IR01Downcal = 121.95
'Define Data Tables
DataTable(Table1,True,-1)
DataInterval(0,60,Min,10)
Average(1,SR01Up,FP2,False)
Average(1,SR01Dn,FP2,False)
Average(1,IR01Up,FP2,False)
Average(1,IR01Dn,FP2,False)
Average(1,NR01TC,FP2,False)
Average(1,NR01TK,FP2,False)
Average(1,NetRs,FP2,False)
Average(1,NetRl,FP2,False)
Average(1,Albedo,FP2,False)
Average(1,UpTot,FP2,False)
Average(1,DnTot,FP2,False)
Average(1,NetTot,FP2,False)
Average(1,IR01UpCo,FP2,False)
Average(1,IR01DnCo,FP2,False)
EndTable
'Main Program
BeginProg
Scan(1,Sec,1,0)
'Default Datalogger Battery Voltage measurement Batt_Volt:
Battery(Batt_Volt)
'NR01 Net Radiometer measurements SR01Up, SR01Dn, IR01Up, IR01Dn, NR01TC, NR01TK,
'NetRs, NetRl, Albedo, UpTot, DnTot, NetTot, IR01UpCo, and IR01DnCo
'Uses fixed ranges as they fall more in line with the range of sensor outputs, so no need to
'autorange
VoltDiff(SR01Up,1,mV50,1,True,200,250,SR01Upcal,0)
VoltDiff(SR01Dn,1,mV50,2,True,200,250,SR01DownCal,0)
VoltDiff(IR01Up,1,mV20,3,True,200,250,IR01Upcal,0)
VoltDiff(IR01Dn,1,mV20,4,True,200,250,IR01DownCal,0)
'Note maximum sensor temperature with this excitation setting is just over +50 C.
Resistance (NR01TK,1,mV200,6,Ix1,1,1675,True ,True,200,250,1.0,0)
'Formulate the ratio Rs/R0
NR01TK=NR01TK/100
PRT(NR01TK,1,NR01TK,1,273.15)