'CR3000
'Created by Jose Miguel Campillo Anguita

'Declare Variables and Units
  Public BattV
  Public PTemp_C

  Public SDI12MC(10)

  Alias SDI12MC(1)=Rain_Intencity
  Alias SDI12MC(2)=Raint_Amount_Acumulated
  Alias SDI12MC(3)=Water_Code_according_To_SYNOP_0
  Alias SDI12MC(4)=Radar_Reflectivity
  Alias SDI12MC(5)=MOR_visibility_in_Presipitation
  Alias SDI12MC(6)=Sample_interval
  Alias SDI12MC(7)=S_A_laser_strip
  Alias SDI12MC(8)=N_p_d_and_validated
  

  Public SDI12MC1(10)
  
  Alias SDI12MC1(1)=kinetic_Energy
  Alias SDI12MC1(2)=Snow_Depth_Intencity
  Alias SDI12MC1(3)=Water_Code_according_To_SYNOP_1
  Alias SDI12MC1(4)=Temp_PCB
  Alias SDI12MC1(5)=Tenp_SC_Right
  Alias SDI12MC1(6)=Tenp_SC_Left
  Alias SDI12MC1(7)=Sensor_Status
  Alias SDI12MC1(8)=Sensor_Head_heating_Current
  Alias SDI12MC1(9)=Power_Supply_Voltaje
  
  
  Units BattV=Volts
  
  Units Rain_Intencity=[mm/h]
  Units Raint_Amount_Acumulated=[mm]
  Units Water_Code_according_To_SYNOP_0=WaWa
  Units Radar_Reflectivity=[dBz]
  
  Units kinetic_Energy=[J/(m2h)]
  Units Snow_Depth_Intencity=[mm/h]
  Units Water_Code_according_To_SYNOP_1=[ww]
  Units Temp_PCB=[C]
  Units Tenp_SC_Right=[C]
  Units Tenp_SC_Left=[C]
  Units Sensor_Head_heating_Current=[a]
  Units Power_Supply_Voltaje=[V]

'Define Data Tables
  DataTable(Table1,True,-1)
	DataInterval(0,1,Min,10)
	Sample(1,BattV,IEEE4)
	Sample(1,PTemp_C,IEEE4)
	
  Sample(1,SDI12MC(1),IEEE4)
  Sample(1,SDI12MC(2),IEEE4)
  Sample(1,SDI12MC(3),IEEE4)
  Sample(1,SDI12MC(4),IEEE4)
  Sample(1,SDI12MC(5),IEEE4)
  Sample(1,SDI12MC(6),IEEE4)
  Sample(1,SDI12MC(7),IEEE4)
  Sample(1,SDI12MC(8),IEEE4)
  'Sample(1,SDI12MC1(9),IEEE4)
  'Sample(1,SDI12MC1(10),IEEE4)

  Sample(1,SDI12MC1(1),IEEE4)
  Sample(1,SDI12MC1(2),IEEE4)
  Sample(1,SDI12MC1(3),IEEE4)
  Sample(1,SDI12MC1(4),IEEE4)
  Sample(1,SDI12MC1(5),IEEE4)
  Sample(1,SDI12MC1(6),IEEE4)
  Sample(1,SDI12MC1(7),IEEE4)
  Sample(1,SDI12MC1(8),IEEE4)
  Sample(1,SDI12MC1(9),IEEE4)
  'Sample(1,SDI12MC1(10),IEEE4)

  EndTable
  
  DataTable(Table2,True,-1)
  	DataInterval(0,1440,Min,10)
  	Minimum(1,BattV,IEEE4,False,False)
  EndTable
  
  'Main Program
  BeginProg
    	'Main Scan
    	  
  	Scan(1,sec,1,0)
  		'Default CR3000 Datalogger Battery Voltage measurement 'BattV'
  		Battery(BattV)
  		'Default CR3000 Datalogger Wiring Panel Temperature measurement 'PTemp_C'
  		PanelTemp(PTemp_C,_50Hz)
  		'OTT Parsivel-2 SDI-12 Sensor measurements
  
  		CallTable Table1
  		CallTable Table2
  	
    NextScan
    
    SlowSequence
    Do
      Delay(1,1,Min)
      SDI12Recorder(SDI12MC() ,1,"0","MC!" ,1,0,-1)
      SDI12Recorder(SDI12MC1(),1,"0","MC1!",1,0,-1)
    Loop
  
  EndProg