'CR1000
Public Solar_Radiation, Batt_Volt
Public Li200Cal100Ohm
Const Li200Cal = -11.12 'Calibration constant for Licor 200X Solar Pyranometer W/m2 / uA

Units Solar_Radiation = W/m^2
Units Batt_Volt = V
Units Li200Cal100Ohm = W/m2 / mW

'Define Data Tables
DataTable(Main,True,-1)
	DataInterval(0,1,Sec,10)
	Sample(1,Solar_Radiation,FP2)
EndTable

'Main Program
BeginProg
' calculate instruction for mV measurement across 100 Ohm resistor
	Li200Cal100Ohm = Li200Cal * 10
	Scan(1,Sec,0,0)
		'Default Datalogger Battery Voltage measurement Batt_Volt:
		Battery(Batt_Volt)		
		'LI200X Pyranometer measurement SlrW:
		VoltDiff(Solar_Radiation,1,mV25,1,True,0,_60Hz,Li200Cal100Ohm,0)
		CallTable(Main)
	NextScan
EndProg

'wiring instructions
'Li200SZ Pyranometer
'  clear with copper wire: 1H
'  silver: 1L
' 100 Ohm resistor from 1H to 1L