'LAS Scintillometer LoggerNet program for Campbell Data Loggers 'Declaration of units and variables Public UCN2, demod, PowerUCN2, PUCN21000, N, UCN2_c, demod_c Public UCN2_P62, demod_P62, Var_UCN1, Var_demod, Var_UCN_3, Var_UCN_4 Public FLAG2 As Boolean Public FLAG3 As Boolean Public T_datalogger, Batery 'Definition of data tables DataTable(Table1,True,-1) DataInterval(0,10,Min,10) Average(1,UCN2,FP2,False) Average(1,demod,FP2,False) StdDev (1,UCN2_P62,IEEE4,False) StdDev (1,demod_P62,IEEE4,False) Average(1,PUCN21000,FP2,False) Sample (1,N,FP2) EndTable Sub Subroutine1 FLAG3=True UCN2_c=UCN2 demod_C=demod EndSub '------------------------------------------------------------------ 'Main Program BeginProg Scan (1,Sec,0,0) 'Start measurements at a full 10-minute interval If TimeIntoInterval (0,10,Min) Then FLAG2=true If FLAG2=false Then UCN2=0 : demod=0 : PowerUCN2=0 : PUCN21000=0 : N=0 : UCN2_c=0: demod_c=0 UCN2_P62=0 : demod_P62=0 : Var_UCN1=0 : Var_demod=0 ContinueScan EndIf 'Do measurements of CN2 signal LAS in Volts VoltDiff (UCN2,1,mv5000,1,True ,0,_50Hz,0.001,0) 'Do measurements of demod (or signal strength) signal LAS VoltDiff (demod,1,mV2500,2,True ,0,_50Hz,1,0) 'At the beginning of each measurement interval the first measurements 'are stored. The initial values are used To subtract the following 'measurements resulting in signals that fluctuate close To zero. These 'small values prevent overflow problems of the Data logger. If FLAG3=false Then Call Subroutine1 ' Calculate 10^(UCN2) PUCN21000=(10^UCN2)*1000 N=N+1 UCN2_P62=UCN2-UCN2_c demod_P62=demod-demod_c 'After 10-minutes write data to final storage. CallTable(Table1) PanelTemp (T_datalogger,250) Battery (Batery) NextScan EndProg