'CR1000X Series
'Created by Short Cut (4.0)
'modified by Joel Bailey
'6-25-2019 designed to measure 53 CS655 sensors for VWC, EC, and Temp, the program measures every 5 minutes and records averages every hour
'the sensors are split between Control ports 1,3,5; there are 17 on C1, 19 on C3, 17 on C5; each sensor has a unique SDI address
'8-13-2019 added two sensors 54 and 54 CS655 for VWC, EC, and Temp, measures the woods area
'added on/off for wifi device 720-730 daily on SW12_1
'8-22-2019 added TCPOpen and SendVariables functions to run at 12:05pm AST, to initiate callback
'8-28-2019 removed callback function, added FTP call in function
'5-10-2023 removed FTP function, added Duckdns update 
' there are 3 test sections A, B, C, and D; A has 17 sensors, B has 19 and C has 17, and D had 2
'
'
'******************************************************** North ***************************************************************
'
' West                                             Test Section A                                                          East
'                             |------------------Paved Road Surface-----------------|
'                    6" deep      A11        A12        A13        A14        A15
'                             |-------------------- Bottom of D1 -------------------|
'              A16   12" deep     A6         A7         A8         A9         A10
'                             |-------Bottom of Gravel / top of Wicking Fabric -----|
'         A17        18" deep     A1         A2         A3         A4         A5
'
'
' West                                             Test Section B                                                          East
'                             |------------------Paved Road Surface-----------------|
'                    6" deep      B11        B12        B13        B14        B15
'                             |-------------------- Bottom of D1 -------------------|
'              B16   12" deep     B6         B7         B8         B9         B10        B18
'                             |-------Bottom of Gravel / top of Wicking Fabric -----|
'         B17        18" deep     B1         B2         B3         B4         B5                B19
'
'
' West                                            Test Section C                                                           East
'                             |------------------Paved Road Surface-----------------|
'                    6" deep      C11        C12        C13        C14        C15
'                             |-------------------- Bottom of D1 -------------------|
'              C16   12" deep     C6         C7         C8         C9         C10
'                             |-------------------Bottom of Gravel------------------|
'         C17        18" deep     C1         C2         C3         C4         C5
'
'******************************************************** South ***************************************************************
     
'Declare Variables and Units
Public BattV
Public PTemp_C
Public SW12State As Boolean
'Public FTPResult
'Public FTPResult2
Public UpdateURL As String * 100 = "https://www.duckdns.org/update?domains=nl241-toklat&token=ab975243-2ac8-423c-80b0-38d6e8840dc7&ip="
Public UpdateURLresult As String
Public IPAddress As String * 12
Public CS65X(3)
Public CS65X_2(3)
Public CS65X_3(3)
Public CS65X_4(3)
Public CS65X_5(3)
Public CS65X_6(3)
Public CS65X_7(3)
Public CS65X_8(3)
Public CS65X_9(3)
Public CS65X_10(3)
Public CS65X_11(3)
Public CS65X_12(3)
Public CS65X_13(3)
Public CS65X_14(3)
Public CS65X_15(3)
Public CS65X_16(3)
Public CS65X_17(3)
Public CS65X_18(3)
Public CS65X_19(3)
Public CS65X_20(3)
Public CS65X_21(3)
Public CS65X_22(3)
Public CS65X_23(3)
Public CS65X_24(3)
Public CS65X_25(3)
Public CS65X_26(3)
Public CS65X_27(3)
Public CS65X_28(3)
Public CS65X_29(3)
Public CS65X_30(3)
Public CS65X_31(3)
Public CS65X_32(3)
Public CS65X_33(3)
Public CS65X_34(3)
Public CS65X_35(3)
Public CS65X_36(3)
Public CS65X_37(3)
Public CS65X_38(3)
Public CS65X_39(3)
Public CS65X_40(3)
Public CS65X_41(3)
Public CS65X_42(3)
Public CS65X_43(3)
Public CS65X_44(3)
Public CS65X_45(3)
Public CS65X_46(3)
Public CS65X_47(3)
Public CS65X_48(3)
Public CS65X_49(3)
Public CS65X_50(3)
Public CS65X_51(3)
Public CS65X_52(3)
Public CS65X_53(3)
Public CS65X_54(3)
Public CS65X_55(3)

Alias CS65X(1)=A1_VWC
Alias CS65X(2)=A1_EC
Alias CS65X(3)=A1_T
Alias CS65X_2(1)=A2_VWC
Alias CS65X_2(2)=A2_EC
Alias CS65X_2(3)=A2_T
Alias CS65X_3(1)=A3_VWC
Alias CS65X_3(2)=A3_EC
Alias CS65X_3(3)=A3_T
Alias CS65X_4(1)=A4_VWC
Alias CS65X_4(2)=A4_EC
Alias CS65X_4(3)=A4_T
Alias CS65X_5(1)=A5_VWC
Alias CS65X_5(2)=A5_EC
Alias CS65X_5(3)=A5_T
Alias CS65X_6(1)=A6_VWC
Alias CS65X_6(2)=A6_EC
Alias CS65X_6(3)=A6_T
Alias CS65X_7(1)=A7_VWC
Alias CS65X_7(2)=A7_EC
Alias CS65X_7(3)=A7_T
Alias CS65X_8(1)=A8_VWC
Alias CS65X_8(2)=A8_EC
Alias CS65X_8(3)=A8_T
Alias CS65X_9(1)=A9_VWC
Alias CS65X_9(2)=A9_EC
Alias CS65X_9(3)=A9_T
Alias CS65X_10(1)=A10_VWC
Alias CS65X_10(2)=A10_EC
Alias CS65X_10(3)=A10_T
Alias CS65X_11(1)=A11_VWC
Alias CS65X_11(2)=A11_EC
Alias CS65X_11(3)=A11_T
Alias CS65X_12(1)=A12_VWC
Alias CS65X_12(2)=A12_EC
Alias CS65X_12(3)=A12_T
Alias CS65X_13(1)=A13_VWC
Alias CS65X_13(2)=A13_EC
Alias CS65X_13(3)=A13_T
Alias CS65X_14(1)=A14_VWC
Alias CS65X_14(2)=A14_EC
Alias CS65X_14(3)=A14_T
Alias CS65X_15(1)=A15_VWC
Alias CS65X_15(2)=A15_EC
Alias CS65X_15(3)=A15_T
Alias CS65X_16(1)=B1_VWC
Alias CS65X_16(2)=B1_EC
Alias CS65X_16(3)=B1_T
Alias CS65X_17(1)=B2_VWC
Alias CS65X_17(2)=B2_EC
Alias CS65X_17(3)=B2_T
Alias CS65X_18(1)=B3_VWC
Alias CS65X_18(2)=B3_EC
Alias CS65X_18(3)=B3_T
Alias CS65X_19(1)=B4_VWC
Alias CS65X_19(2)=B4_EC
Alias CS65X_19(3)=B4_T
Alias CS65X_20(1)=B5_VWC
Alias CS65X_20(2)=B5_EC
Alias CS65X_20(3)=B5_T
Alias CS65X_21(1)=B6_VWC
Alias CS65X_21(2)=B6_EC
Alias CS65X_21(3)=B6_T
Alias CS65X_22(1)=B7_VWC
Alias CS65X_22(2)=B7_EC
Alias CS65X_22(3)=B7_T
Alias CS65X_23(1)=B8_VWC
Alias CS65X_23(2)=B8_EC
Alias CS65X_23(3)=B8_T
Alias CS65X_24(1)=B9_VWC
Alias CS65X_24(2)=B9_EC
Alias CS65X_24(3)=B9_T
Alias CS65X_25(1)=B10_VWC
Alias CS65X_25(2)=B10_EC
Alias CS65X_25(3)=B10_T
Alias CS65X_26(1)=B11_VWC
Alias CS65X_26(2)=B11_EC
Alias CS65X_26(3)=B11_T
Alias CS65X_27(1)=B12_VWC
Alias CS65X_27(2)=B12_EC
Alias CS65X_27(3)=B12_T
Alias CS65X_28(1)=B13_VWC
Alias CS65X_28(2)=B13_EC
Alias CS65X_28(3)=B13_T
Alias CS65X_29(1)=B14_VWC
Alias CS65X_29(2)=B14_EC
Alias CS65X_29(3)=B14_T
Alias CS65X_30(1)=B15_VWC
Alias CS65X_30(2)=B15_EC
Alias CS65X_30(3)=B15_T
Alias CS65X_31(1)=C1_VWC
Alias CS65X_31(2)=C1_EC
Alias CS65X_31(3)=C1_T
Alias CS65X_32(1)=C2_VWC
Alias CS65X_32(2)=C2_EC
Alias CS65X_32(3)=C2_T
Alias CS65X_33(1)=C3_VWC
Alias CS65X_33(2)=C3_EC
Alias CS65X_33(3)=C3_T
Alias CS65X_34(1)=C4_VWC
Alias CS65X_34(2)=C4_EC
Alias CS65X_34(3)=C4_T
Alias CS65X_35(1)=C5_VWC
Alias CS65X_35(2)=C5_EC
Alias CS65X_35(3)=C5_T
Alias CS65X_36(1)=C6_VWC
Alias CS65X_36(2)=C6_EC
Alias CS65X_36(3)=C6_T
Alias CS65X_37(1)=C7_VWC
Alias CS65X_37(2)=C7_EC
Alias CS65X_37(3)=C7_T
Alias CS65X_38(1)=C8_VWC
Alias CS65X_38(2)=C8_EC
Alias CS65X_38(3)=C8_T
Alias CS65X_39(1)=C9_VWC
Alias CS65X_39(2)=C9_EC
Alias CS65X_39(3)=C9_T
Alias CS65X_40(1)=C10_VWC
Alias CS65X_40(2)=C10_EC
Alias CS65X_40(3)=C10_T
Alias CS65X_41(1)=C11_VWC
Alias CS65X_41(2)=C11_EC
Alias CS65X_41(3)=C11_T
Alias CS65X_42(1)=C12_VWC
Alias CS65X_42(2)=C12_EC
Alias CS65X_42(3)=C12_T
Alias CS65X_43(1)=C13_VWC
Alias CS65X_43(2)=C13_EC
Alias CS65X_43(3)=C13_T
Alias CS65X_44(1)=C14_VWC
Alias CS65X_44(2)=C14_EC
Alias CS65X_44(3)=C14_T
Alias CS65X_45(1)=C15_VWC
Alias CS65X_45(2)=C15_EC
Alias CS65X_45(3)=C15_T
Alias CS65X_46(1)=A16_VWC
Alias CS65X_46(2)=A16_EC
Alias CS65X_46(3)=A16_T
Alias CS65X_47(1)=A17_VWC
Alias CS65X_47(2)=A17_EC
Alias CS65X_47(3)=A17_T
Alias CS65X_48(1)=B16_VWC
Alias CS65X_48(2)=B16_EC
Alias CS65X_48(3)=B16_T
Alias CS65X_49(1)=B17_VWC
Alias CS65X_49(2)=B17_EC
Alias CS65X_49(3)=B17_T
Alias CS65X_50(1)=B18_VWC
Alias CS65X_50(2)=B18_EC
Alias CS65X_50(3)=B18_T
Alias CS65X_51(1)=B19_VWC
Alias CS65X_51(2)=B19_EC
Alias CS65X_51(3)=B19_T
Alias CS65X_52(1)=C16_VWC
Alias CS65X_52(2)=C16_EC
Alias CS65X_52(3)=C16_T
Alias CS65X_53(1)=C17_VWC
Alias CS65X_53(2)=C17_EC
Alias CS65X_53(3)=C17_T
Alias CS65X_54(1)=D1_VWC
Alias CS65X_54(2)=D1_EC
Alias CS65X_54(3)=D1_T
Alias CS65X_55(1)=D2_VWC
Alias CS65X_55(2)=D2_EC
Alias CS65X_55(3)=D2_T

Units BattV=Volts
Units PTemp_C=Deg C
Units A1_VWC=m^3/m^3
Units A1_EC=dS/m
Units A1_T=Deg C
Units A2_VWC=m^3/m^3
Units A2_EC=dS/m
Units A2_T=Deg C
Units A3_VWC=m^3/m^3
Units A3_EC=dS/m
Units A3_T=Deg C
Units A4_VWC=m^3/m^3
Units A4_EC=dS/m
Units A4_T=Deg C
Units A5_VWC=m^3/m^3
Units A5_EC=dS/m
Units A5_T=Deg C
Units A6_VWC=m^3/m^3
Units A6_EC=dS/m
Units A6_T=Deg C
Units A7_VWC=m^3/m^3
Units A7_EC=dS/m
Units A7_T=Deg C
Units A8_VWC=m^3/m^3
Units A8_EC=dS/m
Units A8_T=Deg C
Units A9_VWC=m^3/m^3
Units A9_EC=dS/m
Units A9_T=Deg C
Units A10_VWC=m^3/m^3
Units A10_EC=dS/m
Units A10_T=Deg C
Units A11_VWC=m^3/m^3
Units A11_EC=dS/m
Units A11_T=Deg C
Units A12_VWC=m^3/m^3
Units A12_EC=dS/m
Units A12_T=Deg C
Units A13_VWC=m^3/m^3
Units A13_EC=dS/m
Units A13_T=Deg C
Units A14_VWC=m^3/m^3
Units A14_EC=dS/m
Units A14_T=Deg C
Units A15_VWC=m^3/m^3
Units A15_EC=dS/m
Units A15_T=Deg C
Units B1_VWC=m^3/m^3
Units B1_EC=dS/m
Units B1_T=Deg C
Units B2_VWC=m^3/m^3
Units B2_EC=dS/m
Units B2_T=Deg C
Units B3_VWC=m^3/m^3
Units B3_EC=dS/m
Units B3_T=Deg C
Units B4_VWC=m^3/m^3
Units B4_EC=dS/m
Units B4_T=Deg C
Units B5_VWC=m^3/m^3
Units B5_EC=dS/m
Units B5_T=Deg C
Units B6_VWC=m^3/m^3
Units B6_EC=dS/m
Units B6_T=Deg C
Units B7_VWC=m^3/m^3
Units B7_EC=dS/m
Units B7_T=Deg C
Units B8_VWC=m^3/m^3
Units B8_EC=dS/m
Units B8_T=Deg C
Units B9_VWC=m^3/m^3
Units B9_EC=dS/m
Units B9_T=Deg C
Units B10_VWC=m^3/m^3
Units B10_EC=dS/m
Units B10_T=Deg C
Units B11_VWC=m^3/m^3
Units B11_EC=dS/m
Units B11_T=Deg C
Units B12_VWC=m^3/m^3
Units B12_EC=dS/m
Units B12_T=Deg C
Units B13_VWC=m^3/m^3
Units B13_EC=dS/m
Units B13_T=Deg C
Units B14_VWC=m^3/m^3
Units B14_EC=dS/m
Units B14_T=Deg C
Units B15_VWC=m^3/m^3
Units B15_EC=dS/m
Units B15_T=Deg C
Units C1_VWC=m^3/m^3
Units C1_EC=dS/m
Units C1_T=Deg C
Units C2_VWC=m^3/m^3
Units C2_EC=dS/m
Units C2_T=Deg C
Units C3_VWC=m^3/m^3
Units C3_EC=dS/m
Units C3_T=Deg C
Units C4_VWC=m^3/m^3
Units C4_EC=dS/m
Units C4_T=Deg C
Units C5_VWC=m^3/m^3
Units C5_EC=dS/m
Units C5_T=Deg C
Units C6_VWC=m^3/m^3
Units C6_EC=dS/m
Units C6_T=Deg C
Units C7_VWC=m^3/m^3
Units C7_EC=dS/m
Units C7_T=Deg C
Units C8_VWC=m^3/m^3
Units C8_EC=dS/m
Units C8_T=Deg C
Units C9_VWC=m^3/m^3
Units C9_EC=dS/m
Units C9_T=Deg C
Units C10_VWC=m^3/m^3
Units C10_EC=dS/m
Units C10_T=Deg C
Units C11_VWC=m^3/m^3
Units C11_EC=dS/m
Units C11_T=Deg C
Units C12_VWC=m^3/m^3
Units C12_EC=dS/m
Units C12_T=Deg C
Units C13_VWC=m^3/m^3
Units C13_EC=dS/m
Units C13_T=Deg C
Units C14_VWC=m^3/m^3
Units C14_EC=dS/m
Units C14_T=Deg C
Units C15_VWC=m^3/m^3
Units C15_EC=dS/m
Units C15_T=Deg C
Units A16_VWC=m^3/m^3
Units A16_EC=dS/m
Units A16_T=Deg C
Units A17_VWC=m^3/m^3
Units A17_EC=dS/m
Units A17_T=Deg C
Units B16_VWC=m^3/m^3
Units B16_EC=dS/m
Units B16_T=Deg C
Units B17_VWC=m^3/m^3
Units B17_EC=dS/m
Units B17_T=Deg C
Units B18_VWC=m^3/m^3
Units B18_EC=dS/m
Units B18_T=Deg C
Units B19_VWC=m^3/m^3
Units B19_EC=dS/m
Units B19_T=Deg C
Units C16_VWC=m^3/m^3
Units C16_EC=dS/m
Units C16_T=Deg C
Units C17_VWC=m^3/m^3
Units C17_EC=dS/m
Units C17_T=Deg C
Units D1_VWC=m^3/m^3
Units D1_EC=dS/m
Units D1_T=Deg C
Units D2_VWC=m^3/m^3
Units D2_EC=dS/m
Units D2_T=Deg C

'Define Data Tables
DataTable(Hrly_Soil,True,-1)
	DataInterval(0,60,Min,10)
	' Volumetric Water Content
	Average(1,A1_VWC,FP2,False)
	Average(1,A2_VWC,FP2,False)
	Average(1,A3_VWC,FP2,False)
	Average(1,A4_VWC,FP2,False)
	Average(1,A5_VWC,FP2,False)
  Average(1,A6_VWC,FP2,False)
  Average(1,A7_VWC,FP2,False)
  Average(1,A8_VWC,FP2,False)
  Average(1,A9_VWC,FP2,False)
  Average(1,A10_VWC,FP2,False)
  Average(1,A11_VWC,FP2,False)
  Average(1,A12_VWC,FP2,False)
  Average(1,A13_VWC,FP2,False)
  Average(1,A14_VWC,FP2,False)
  Average(1,A15_VWC,FP2,False)
  Average(1,A16_VWC,FP2,False)
  Average(1,A17_VWC,FP2,False)
  Average(1,B1_VWC,FP2,False)
  Average(1,B2_VWC,FP2,False)
  Average(1,B3_VWC,FP2,False)
  Average(1,B4_VWC,FP2,False)
  Average(1,B5_VWC,FP2,False)
  Average(1,B6_VWC,FP2,False)
  Average(1,B7_VWC,FP2,False)
  Average(1,B8_VWC,FP2,False)
  Average(1,B9_VWC,FP2,False)
  Average(1,B10_VWC,FP2,False)
  Average(1,B11_VWC,FP2,False)
  Average(1,B12_VWC,FP2,False)
  Average(1,B13_VWC,FP2,False)
  Average(1,B14_VWC,FP2,False)
  Average(1,B15_VWC,FP2,False)
  Average(1,B16_VWC,FP2,False)
  Average(1,B17_VWC,FP2,False)
  Average(1,B18_VWC,FP2,False)
  Average(1,B19_VWC,FP2,False)
  Average(1,C1_VWC,FP2,False)
  Average(1,C2_VWC,FP2,False)
  Average(1,C3_VWC,FP2,False)
  Average(1,C4_VWC,FP2,False)
  Average(1,C5_VWC,FP2,False)
  Average(1,C6_VWC,FP2,False)
  Average(1,C7_VWC,FP2,False)
  Average(1,C8_VWC,FP2,False)
  Average(1,C9_VWC,FP2,False)
  Average(1,C10_VWC,FP2,False)
  Average(1,C11_VWC,FP2,False)
  Average(1,C12_VWC,FP2,False)
  Average(1,C13_VWC,FP2,False)
  Average(1,C14_VWC,FP2,False)
  Average(1,C15_VWC,FP2,False)
  Average(1,C16_VWC,FP2,False)
  Average(1,C17_VWC,FP2,False)
  ' Electrical Conductivity
	Average(1,A1_EC,FP2,False)
	Average(1,A2_EC,FP2,False)
	Average(1,A3_EC,FP2,False)
	Average(1,A4_EC,FP2,False)
	Average(1,A5_EC,FP2,False)
  Average(1,A6_EC,FP2,False)
  Average(1,A7_EC,FP2,False)
  Average(1,A8_EC,FP2,False)
  Average(1,A9_EC,FP2,False)
  Average(1,A10_EC,FP2,False)
  Average(1,A11_EC,FP2,False)
  Average(1,A12_EC,FP2,False)
  Average(1,A13_EC,FP2,False)
  Average(1,A14_EC,FP2,False)
  Average(1,A15_EC,FP2,False)
  Average(1,A16_EC,FP2,False)
  Average(1,A17_EC,FP2,False)
  Average(1,B1_EC,FP2,False)
  Average(1,B2_EC,FP2,False)
  Average(1,B3_EC,FP2,False)
  Average(1,B4_EC,FP2,False)
  Average(1,B5_EC,FP2,False)
  Average(1,B6_EC,FP2,False)
  Average(1,B7_EC,FP2,False)
  Average(1,B8_EC,FP2,False)
  Average(1,B9_EC,FP2,False)
  Average(1,B10_EC,FP2,False)
  Average(1,B11_EC,FP2,False)
  Average(1,B12_EC,FP2,False)
  Average(1,B13_EC,FP2,False)
  Average(1,B14_EC,FP2,False)
  Average(1,B15_EC,FP2,False)
  Average(1,B16_EC,FP2,False)
  Average(1,B17_EC,FP2,False)
  Average(1,B18_EC,FP2,False)
  Average(1,B19_EC,FP2,False)
  Average(1,C1_EC,FP2,False)
  Average(1,C2_EC,FP2,False)
  Average(1,C3_EC,FP2,False)
  Average(1,C4_EC,FP2,False)
  Average(1,C5_EC,FP2,False)
  Average(1,C6_EC,FP2,False)
  Average(1,C7_EC,FP2,False)
  Average(1,C8_EC,FP2,False)
  Average(1,C9_EC,FP2,False)
  Average(1,C10_EC,FP2,False)
  Average(1,C11_EC,FP2,False)
  Average(1,C12_EC,FP2,False)
  Average(1,C13_EC,FP2,False)
  Average(1,C14_EC,FP2,False)
  Average(1,C15_EC,FP2,False)
  Average(1,C16_EC,FP2,False)
  Average(1,C17_EC,FP2,False)
  'Temperatures
	Average(1,A1_T,FP2,False)
	Average(1,A2_T,FP2,False)
	Average(1,A3_T,FP2,False)
	Average(1,A4_T,FP2,False)
	Average(1,A5_T,FP2,False)
  Average(1,A6_T,FP2,False)
  Average(1,A7_T,FP2,False)
  Average(1,A8_T,FP2,False)
  Average(1,A9_T,FP2,False)
  Average(1,A10_T,FP2,False)
  Average(1,A11_T,FP2,False)
  Average(1,A12_T,FP2,False)
  Average(1,A13_T,FP2,False)
  Average(1,A14_T,FP2,False)
  Average(1,A15_T,FP2,False)
  Average(1,A16_T,FP2,False)
  Average(1,A17_T,FP2,False)
  Average(1,B1_T,FP2,False)
  Average(1,B2_T,FP2,False)
  Average(1,B3_T,FP2,False)
  Average(1,B4_T,FP2,False)
  Average(1,B5_T,FP2,False)
  Average(1,B6_T,FP2,False)
  Average(1,B7_T,FP2,False)
  Average(1,B8_T,FP2,False)
  Average(1,B9_T,FP2,False)
  Average(1,B10_T,FP2,False)
  Average(1,B11_T,FP2,False)
  Average(1,B12_T,FP2,False)
  Average(1,B13_T,FP2,False)
  Average(1,B14_T,FP2,False)
  Average(1,B15_T,FP2,False)
  Average(1,B16_T,FP2,False)
  Average(1,B17_T,FP2,False)
  Average(1,B18_T,FP2,False)
  Average(1,B19_T,FP2,False)
  Average(1,C1_T,FP2,False)
  Average(1,C2_T,FP2,False)
  Average(1,C3_T,FP2,False)
  Average(1,C4_T,FP2,False)
  Average(1,C5_T,FP2,False)
  Average(1,C6_T,FP2,False)
  Average(1,C7_T,FP2,False)
  Average(1,C8_T,FP2,False)
  Average(1,C9_T,FP2,False)
  Average(1,C10_T,FP2,False)
  Average(1,C11_T,FP2,False)
  Average(1,C12_T,FP2,False)
  Average(1,C13_T,FP2,False)
  Average(1,C14_T,FP2,False)
  Average(1,C15_T,FP2,False)
  Average(1,C16_T,FP2,False)
  Average(1,C17_T,FP2,False)
  'D Section - Woods sensors
  Average(1,D1_VWC,FP2,False)
  Average(1,D1_EC,FP2,False)
  Average(1,D1_T,FP2,False)
  Average(1,D2_VWC,FP2,False)
  Average(1,D2_EC,FP2,False)
  Average(1,D2_T,FP2,False)
EndTable

DataTable(HrlyDiag,True,-1)
	DataInterval(0,60,Min,10)
	Average(1,PTemp_C,FP2,False)
	Average(1,BattV,FP2,False)
EndTable

DataTable(DailyDiag,True,-1)
	DataInterval(0,1440,Min,10)
	Average(1,BattV,FP2,False)
EndTable

'Main Program
BeginProg
	'Main Scan
	Scan(300,Sec,1,0)
		'Default CR1000X Datalogger Battery Voltage measurement 'BattV'
		Battery(BattV)
		'Default CR1000X Datalogger Wiring Panel Temperature measurement 'PTemp_C'
		PanelTemp(PTemp_C,15000)
		'CS650/655 Water Content Reflectometer measurements 'A1_VWC', 'A1_EC', and 'A1_T'
		SDI12Recorder(CS65X(),C1,"1","M!",1,0,-1)
		'CS650/655 Water Content Reflectometer measurements 'A2_VWC', 'A2_EC', and 'A2_T'
		SDI12Recorder(CS65X_2(),C1,"2","M!",1,0,-1)
		'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_3(),C1,"3","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_4(),C1,"4","M!",1,0,-1)
		'CS650/655 Water CoNtent Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_5(),C1,"5","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_6(),C1,"6","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_7(),C1,"7","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_8(),C1,"8","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_9(),C1,"9","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_10(),C1,"A","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_11(),C1,"B","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_12(),C1,"C","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_13(),C1,"D","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_14(),C1,"E","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_15(),C1,"F","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_16(),C3,"G","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_17(),C3,"H","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_18(),C3,"I","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_19(),C3,"J","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_20(),C3,"K","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_21(),C3,"L","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_22(),C3,"M","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_23(),C3,"N","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_24(),C3,"O","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_25(),C3,"P","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_26(),C3,"Q","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_27(),C3,"R","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_28(),C3,"S","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_29(),C3,"T","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_30(),C3,"U","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_31(),C5,"a","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_32(),C5,"b","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_33(),C5,"c","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_34(),C5,"d","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_35(),C5,"e","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_36(),C5,"f","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_37(),C5,"g","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_38(),C5,"h","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_39(),C5,"i","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_40(),C5,"j","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_41(),C5,"k","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_42(),C5,"l","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_43(),C5,"m","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_44(),C5,"n","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_45(),C5,"o","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_46(),C1,"p","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_47(),C1,"q","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_48(),C3,"r","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_49(),C3,"s","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_50(),C3,"t","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_51(),C3,"u","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_52(),C5,"v","M!",1,0,-1)
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_53(),C5,"w","M!",1,0,-1)	
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_54(),C7,"x","M!",1,0,-1)	
				'CS650/655 Water Content Reflectometer measurements 'XX_VWC', 'XX_EC', and 'XX_T'
		SDI12Recorder(CS65X_55(),C7,"y","M!",1,0,-1)	
		'SW12 Timed Control
		'Turn ON SW12 between 11:55am and 12:09pm hours
		If TimeIsBetween(0,5,60,Min) Then
			SW12State=True
		Else
			SW12State=False
		EndIf
		'Always turn OFF SW12 if battery drops below 12.2 volts
		If BattV<12.2 Then SW12State=False
		'Set SW12_1 to the state of 'SW12State' variable
		SW12(SW12_1,SW12State,0)

		'Call Data Tables and Store Data
		CallTable Hrly_Soil
		CallTable HrlyDiag
		CallTable DailyDiag
	NextScan
	
  SlowSequence
  Do
    If TimeIntoInterval (55,60,Min) Then
    Delay(1,10,Sec)
    IPAddress = IPInfo(3,0)
    HTTPGet(UpdateURL + IPAddress,UpdateURLresult,"")
'    FTPResult =FTPClient ("snobold.ine.uaf.edu","ftpuser","AKS1bridge","Hrly_Soil","/Toklat_Way/Toklat_Way_Soil_FTP.dat",9,0,5,Min,-1008)
'    FTPResult2=FTPClient ("snobold.ine.uaf.edu","ftpuser","AKS1bridge","HrlyDiag","/Toklat_Way/Toklat_Way_HrlyDiag_FTP.dat",9,5,Min,Sec,-1008)
    Endif
  Loop
EndProg