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

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

Appendix A. Example Programs
A-3
'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(2,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
'For the CR1000, use autorange for the SR01 measurements due to the wide dynamic range
* VoltDiff(SR01Up,1,autorange,1,True,0,_50Hz,SR01UpCal,0)
* VoltDiff(SR01Dn,1,autorange,2,True,0,_50Hz,SR01DownCal,0)
* VoltDiff(IR01Up,1,mV7_5,3,True,0,_50Hz,IR01Upcal,0)
* VoltDiff(IR01Dn,1,mV7_5,4,True,0,_50Hz,IR01DownCal,0)
** BrHalf4W (NR01TC,1,mV25,mV25,5,Vx1,1,2100,True ,True ,0,250,1.0,0)
PRT(NR01TC,1,NR01TC,1,0)
NR01TK=273.15
NetRs=SR01Up-SR01Dn
NetRl=IR01Up-IR01Dn
Albedo=SR01Dn/SR01Up
UpTot=IR01Up
DnTot=IR01Dn
NetTot=UpTot-DnTot
IR01UpCo=5.67*10^-8*NR01TK^4
IR01DnCo=5.67*10^-8*NR01TK^4
'Call Data Tables and Store Data
CallTable(Table1)
NextScan
EndProg
Note: Proper entries will vary with program and input channel usage. For other loggers use:
*mV50 range for the CR3000/5000
**mV50 range (both) with 4200 mV excitation for CR3000/5000