;{CR10}
;
;Datalogger PD
;
;Pacific Tomato Growers WEATHER STATION
;
;written on 01/02/98 by John Capece
;updated on 01/02/98 by John Capece
;
;TestTemp thermocouple provided as a field calibration check
;
;output:
; A1. Station ID = 901
; B2. Year
; C3. Julian Day
; D4. HourMinute
; E5. Battery Voltage
; F6. Reference Temperature (C)
; G7. Wind Speed (mph)
; H8. Rain (inches)
; I9. Air Temperature (F)
; J10. Relative Humidity
; K11. Solar Radiation
;
;wiring:
; RefTemp (CR10T) E3=Black, AG=Silver, Red=1H
; Wind (Young 3001) P1=Black, G=Silver, G=White
; Rain (Texas Elec.) P2=Black, G=Silver, G=White
; AirTemp  (ThermoElectric TTX) 2H=Blue, 2L=Red
; TestTemp (ThermoElectric TTX) 3H=Blue, 3L=Red
; Humidity
; Solar
;
;
*Table 1 Program
  01: 60        Execution Interval (seconds)

1:  Z=F (P30)
 1: 904      F
 2: 00       Exponent of 10
 3: 1        Z Loc [ ID        ]

2:  Batt Voltage (P10)
 1: 2        Loc [ Volts     ]

3:  Temp (107) (P11)
 1: 1        Reps
 2: 1        SE Channel
 3: 3        Excite all reps w/Exchan 3
 4: 3        Loc [ RefTemp   ]
 5: 1        Mult
 6: 0        Offset

4:  Pulse (P3)
 1: 1        Reps
 2: 1        Pulse Input Channel
 3: 21       Low Level AC, Output Hz
 4: 4        Loc [ Wind      ]
 5: 1.677    Mult
 6: .4       Offset

5:  Pulse (P3)
 1: 1        Reps
 2: 2        Pulse Input Channel
 3: 2        Switch Closure, All Counts
 4: 5        Loc [ Rain      ]
 5: .01      Mult
 6: 0.0      Offset

6:  Thermocouple Temp (DIFF) (P14)
 1: 1        Reps
 2: 1        2.5 mV Slow Range
 3: 2        DIFF Channel
 4: 1        Type T (Copper-Constantan)
 5: 3        Ref Temp (Deg. C) Loc [ RefTemp   ]
 6: 6        Loc [ AirTemp   ]
 7: 1.8      Mult
 8: 32       Offset

7:  Thermocouple Temp (DIFF) (P14)
 1: 1        Reps
 2: 1        2.5 mV Slow Range
 3: 3        DIFF Channel
 4: 1        Type T (Copper-Constantan)
 5: 3        Ref Temp (Deg. C) Loc [ RefTemp   ]
 6: 9        Loc [ TestTemp  ]
 7: 1.8      Mult
 8: 32       Offset

8:  Z=X*F (P37)
 1: 3        X Loc [ RefTemp   ]
 2: 1.8      F
 3: 3        Z Loc [ RefTemp   ]

9:  Z=X+F (P34)
 1: 3        X Loc [ RefTemp   ]
 2: 32       F
 3: 3        Z Loc [ RefTemp   ]

10:  Z=F (P30)
 1: 9999     F
 2: 00       Exponent of 10
 3: 7        Z Loc [ Humidity  ]

11:  Z=F (P30)
 1: 9999     F
 2: 00       Exponent of 10
 3: 8        Z Loc [ Solar     ]

12:  If time is (P92)
 1: 0000     Minutes (Seconds --) into a
 2: 15       Interval (same units as above)
 3: 10       Set Output Flag High

13:  Sample (P70)
 1: 1        Reps
 2: 1        Loc [ ID        ]

14:  Real Time (P77)
 1: 1110     Year,Day,Hour/Minute (midnight = 0000)

15:  Average (P71)
 1: 1        Reps
 2: 2        Loc [ Volts     ]

16:  Average (P71)
 1: 1        Reps
 2: 3        Loc [ RefTemp   ]

17:  Average (P71)
 1: 1        Reps
 2: 4        Loc [ Wind      ]

18:  Average (P71)
 1: 1        Reps
 2: 5        Loc [ Rain      ]

19:  Average (P71)
 1: 1        Reps
 2: 6        Loc [ AirTemp   ]

20:  Average (P71)
 1: 1        Reps
 2: 7        Loc [ Humidity  ]

21:  Average (P71)
 1: 1        Reps
 2: 8        Loc [ Solar     ]

*Table 2 Program
  02: 0.0000    Execution Interval (seconds)

*Table 3 Subroutines

End Program

-Input Locations-
1 ID        1 1 1
2 Volts     1 1 1
3 RefTemp   1 5 3
4 Wind      1 1 1
5 Rain      1 1 1
6 AirTemp   1 1 1
7 Humidity  1 1 1
8 Solar     1 1 1
9 TestTemp  1 0 1
10 _________ 0 0 0
11 _________ 0 0 0
12 _________ 0 0 0
13 _________ 0 0 0
14 _________ 0 0 0
15 _________ 0 0 0
16 _________ 0 0 0
17 _________ 0 0 0
18 _________ 0 0 0
19 _________ 0 0 0
20 _________ 0 0 0
21 _________ 0 0 0
22 _________ 0 0 0
23 _________ 0 0 0
24 _________ 0 0 0
25 _________ 0 0 0
26 _________ 0 0 0
27 _________ 0 0 0
28 _________ 0 0 0
-Program Security-
0000
0000
0000
-Mode 4-
-Final Storage Area 2-
0