Campbell Scientific LI200X LI200X-L LI-COR Silicon Pyranometer - Page 11

CR10X Example Program

Page 11 highlights

LI200X Pyranometer 'Define Data Tables DataTable(Table1,True,-1) DataInterval(0,60,Min,10) Average(1,SlrW,FP2,False) EndTable DataTable(Table2,True,-1) DataInterval(0,1440,Min,10) Totalize(1,SlrMJ,IEEE4,False) EndTable 'Main Program BeginProg Scan(10,Sec,1,0) 'measure the LI200X VoltDiff(SlrW,1,mV7_5,1,True,0,_60Hz,1,0) 'use 20mV range for 'CR5000 and CR3000 'set negative values to zero If SlrW

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18

LI200X Pyranometer
'Define Data Tables
DataTable(Table1,True,-1)
DataInterval(0,60,Min,10)
Average(1,SlrW,FP2,False)
EndTable
DataTable(Table2,True,-1)
DataInterval(0,1440,Min,10)
Totalize(1,SlrMJ,IEEE4,False)
EndTable
'Main Program
BeginProg
Scan(10,Sec,1,0)
'measure the LI200X
VoltDiff(SlrW,1,mV7_5,1,True,0,_60Hz,1,0)
‘use 20mV range for
‘CR5000 and CR3000
‘set negative values to zero
If SlrW<0 Then SlrW=0
‘convert mV to MJ/m2 for 10 second execution interval
SlrMJ=SlrW*0.002
‘convert mV to W/m2
SlrW=SlrW*200.0
'Call Data Tables and Store Data
CallTable(Table1)
CallTable(Table2)
NextScan
EndProg
4.1.2
CR10X Example Program
;{CR10X}
*Table 1 Program
01: 10.0000
Execution Interval (seconds)
; measure the LI200X
1:
Volt (Diff) (P2)
1:
1
Reps
2:
22
7.5 mV 60 Hz Rejection Range
;use 15 mV range for the
;21X and CR7,10 mV range for CR23X.
3:
1
DIFF Channel
4:
3
Loc [ SlrW
] ; result in mV
5:
1
Multiplier
6:
0
Offset
7