
CNR1 Net Radiometer
Units Batt_Volt=Volts
Units CM3Up=W/meter²
Units CM3Dn=W/meter²
Units CG3Up=W/meter²
Units CG3Dn=W/meter²
Units CNR1TC=Deg C
Units CNR1TK=K
Units NetRs=W/meter²
Units NetRl=W/meter²
Units Albedo=W/meter²
Units UpTot=W/meter²
Units DnTot=W/meter²
Units NetTot=W/meter²
Units CG3UpCo=W/meter²
Units CG3DnCo=W/meter²
'Define Data Tables
DataTable(Table1,True,-1)
DataInterval(0,60,Min,10)
Average(1,CM3Up,FP2,False)
Average(1,CM3Dn,FP2,False)
Average(1,CG3Up,FP2,False)
Average(1,CG3Dn,FP2,False)
Average(1,CNR1TC,FP2,False)
Average(1,CNR1TK,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,CG3UpCo,FP2,False)
Average(1,CG3DnCo,FP2,False)
EndTable
'Main Program
BeginProg
Scan(1,Sec,1,0)
'Default Datalogger Battery Voltage measurement Batt_Volt:
Battery(Batt_Volt)
'CNR1 Net Radiometer measurements CM3Up, CM3Dn, CG3Up, CG3Dn, CNR1TC, CNR1TK,
'NetRs, NetRl, Albedo, UpTot, DnTot, NetTot, CG3UpCo, and CG3DnCo:
'CNR1 Sensitivity 7.30 uV/m^2
VoltDiff(CM3Up,1,mV20C,1,True,200,250,136.99,0)
VoltDiff(CM3Dn,1,mV20C,2,True,200,250,136.9,0)
VoltDiff(CG3Up,1,mV20C,3,True,200,250,136.9,0)
VoltDiff(CG3Dn,1,mV20,4,True,200,250,136.9,0)
Resistance (CNR1TC,1,mV200,6,Ix1,1,1675,True ,True,200,250,1.0,0)
'Formulate the ratio Rs/R0
CNR1TC=CNR1TC/100
PRT(CNR1TC,1,CNR1TC,1,273.15)
'Compute Net short-wave radiation, Net long-wave radiation, Albedo and Net Radiation
CNR1TC=CNR1TK-273.15
NetRs=CM3Up-CM3Dn
NetRl=CG3Up-CG3Dn
21
Kommentare zu diesen Handbüchern