http://ocotal.iarc.uaf.edu/api.php?action=feedcontributions&feedformat=atom&user=137.229.92.134&*IARC 207 Wiki - User contributions [en]2026-05-12T22:03:37ZUser contributionsMediaWiki 1.34.2http://ocotal.iarc.uaf.edu/index.php?title=Sontek_handheld_ADP&diff=200Sontek handheld ADP2013-05-23T19:47:36Z<p>137.229.92.134: </p>
<hr />
<div>Note (from Rickley's): The standard metric rod marked in centimeter increments with a length of 1.2 meters. The anodized aluminum handle has an integral scale to indicate the correct setting of the current meter at the 0.2, 0.6 and 0.8- depth settings, which corresponds to the conventional two- position method. This unit permits convenient setting of the current meter at the proper depth. It allows the hydrologist to quickly set the meter at the correct depth without bringing the meter out of the water. The depth of the water is read on the graduated hex main rod. When the round setting rod is adjusted to the depth of the water, the current meter is automatically positioned for the 0.6-depth method (0.4-depth position up from the streambed). Setting the unit to half the water depth will place the meter at the 0.2-depth up from the streambed. Conversely, setting the unit to twice the water depth will place the meter at the 0.8-depth position up from the streambed. The latter two positions correspond to the conventional two-position method. <br />
<br />
===Rough Sontek Flowtracker Procedure for measuring Velocity===<br />
# Turn on the unit<br />
# Press '''Enter''' for the main menu<br />
# Set the units in the Setup parameters menu<br />
# To start the measurements select 'Start Data Run' from the main menu<br />
# Enter a junk name of some sort. The name isn't important since we won't be logging the data to the computer. To enter alphabet characters do the following:<br />
## press a number button<br />
## use the 'ABC+' and 'ABC-' keys to find the letter you want<br />
## press a number button to move to the next character in the name<br />
## repeat<br />
## press the 'Enter' key when you're done.<br />
# You don't need to worry about the next screen which prompts for staff and gauge heights. So, you're ready to begin the measurements by selecting the 'Next Station' button.<br />
# Specify starting from the left bank or the right bank by pushing the 'LEW/REW' key.<br />
# Now, you're ready to begin making measurements so hit the 'Next Station' button<br />
# At this point, if you'd like the unit to calculate discharge for you, you should enter the station number and depth by using the 'Set Location' key and the 'Set Depth' key.<br />
# Select 'Measure' to begin measuring.<br />
# At the end of the measurement period the flowtracker will ask you to accept or repeat the measurement. If you accept you can move to the next station and repeat.<br />
# When you've come to the far bank you're done measuring. To tell the meter this, press the 'End Selection' button twice.<br />
# Next, you need to specify the station value for this bank. Toggle left and right bank as before by pressing the 'LEW/REW' key.<br />
# Press 'Calc. Disch.' twice to let the meter calculate the discharge.<br />
# You can see the discharge from this display point. When you're done looking press '9' to exit and go back to the main menu.<br />
<br />
<br />
Other good items:<br />
*Battery Voltage accessible from the System Functions Menu. To get there select the 'System Functions Menu' and then choose on the second page option 5 'Battery Data'<br />
*User should check signal to noise ratio (SNR) and note this value. A low SNR means there are too few particles in the water for the signal to reflect reliably. Sontek recommends against using measurements with a SNR < 10. Dirt can be added upstream of your measurements if needed to increase the SNR of the measurements, but care should be taken to not disturb the cross section itself once measurements begin.<br />
<br />
===Further Background Information on making streamflow measurements with a wading rod type setup===<br />
http://wwwrcamnl.wr.usgs.gov/sws/SWTraining/WRIR004036/Index.html</div>137.229.92.134http://ocotal.iarc.uaf.edu/index.php?title=Sontek_handheld_ADP&diff=199Sontek handheld ADP2013-05-23T19:47:09Z<p>137.229.92.134: </p>
<hr />
<div>Note (from Rickley's): The standard metric rod marked in centimeter increments with a length of 1.2 meters. The anodized aluminum handle has an integral scale to indicate the correct setting of the current meter at the 0.2, 0.6 and 0.8- depth settings, which corresponds to the conventional two- position method. This unit permits convenient setting of the current meter at the proper depth. It allows the hydrologist to quickly set the meter at the correct depth without bringing the meter out of the water. The depth of the water is read on the graduated hex main rod. When the round setting rod is adjusted to the depth of the water, the current meter is automatically positioned for the 0.6-depth method (0.4-depth position up from the streambed). Setting the unit to half the water depth will place the meter at the 0.2-depth up from the streambed. Conversely, setting the unit to twice the water depth will place the meter at the 0.8-depth position up from the streambed. The latter two positions correspond to the conventional two-position method. <br />
<br />
===Rough Sontek Flowtracker Procedure for measuring Velocity===<br />
# Turn on the unit<br />
# Press '''Enter''' for the main menu<br />
# Set the units in the Setup parameters menu<br />
# To start the measurements select 'Start Data Run' from the main menu<br />
# Enter a junk name of some sort. The name isn't important since we won't be logging the data to the computer. To enter alphabet characters do the following:<br />
## press a number button<br />
## use the 'ABC+' and 'ABC-' keys to find the letter you want<br />
## press a number button to move to the next character in the name<br />
## repeat<br />
## press the 'Enter' key when you're done.<br />
# You don't need to worry about the next screen which prompts for staff and gauge heights. So, you're ready to begin the measurements by selecting the 'Next Station' button.<br />
# Specify starting from the left bank or the right bank by pushing the 'LEW/REW' key.<br />
# Now, you're ready to begin making measurements so hit the 'Next Station' button<br />
# At this point, if you'd like the unit to calculate discharge for you, you should enter the station number and depth by using the 'Set Location' key and the 'Set Depth' key.<br />
# Select 'Measure' to begin measuring.<br />
# At the end of the measurement period the flowtracker will ask you to accept or repeat the measurement. If you accept you can move to the next station and repeat.<br />
# When you've come to the far bank you're done measuring. To tell the meter this, press the 'End Selection' button twice.<br />
# Next, you need to specify the station value for this bank. Toggle left and right bank as before by pressing the 'LEW/REW' key.<br />
# Press 'Calc. Disch.' twice to let the meter calculate the discharge.<br />
# You can see the discharge from this display point. When you're done looking press '9' to exit and go back to the main menu.<br />
<br />
<br />
Other good items:<br />
*Battery Voltage accessible from the System Functions Menu. To get there select the 'System Functions Menu' and then choose on the second page option 5 'Battery Data'<br />
*User should check signal to noise ratio (SNR) and note this value. A low SNR means there are too few particles in the water for the signal to reflect reliably. Sontek recommends against using measurements with a SNR < 10. Dirt can be added upstream of your measurements if needed to increase the SNR of the measurements, but care should be taken to not disturb the cross section itself.<br />
<br />
===Further Background Information on making streamflow measurements with a wading rod type setup===<br />
http://wwwrcamnl.wr.usgs.gov/sws/SWTraining/WRIR004036/Index.html</div>137.229.92.134http://ocotal.iarc.uaf.edu/index.php?title=Sontek_handheld_ADP&diff=198Sontek handheld ADP2013-05-23T19:46:18Z<p>137.229.92.134: </p>
<hr />
<div>Note (from Rickley's): The standard metric rod marked in centimeter increments with a length of 1.2 meters. The anodized aluminum handle has an integral scale to indicate the correct setting of the current meter at the 0.2, 0.6 and 0.8- depth settings, which corresponds to the conventional two- position method. This unit permits convenient setting of the current meter at the proper depth. It allows the hydrologist to quickly set the meter at the correct depth without bringing the meter out of the water. The depth of the water is read on the graduated hex main rod. When the round setting rod is adjusted to the depth of the water, the current meter is automatically positioned for the 0.6-depth method (0.4-depth position up from the streambed). Setting the unit to half the water depth will place the meter at the 0.2-depth up from the streambed. Conversely, setting the unit to twice the water depth will place the meter at the 0.8-depth position up from the streambed. The latter two positions correspond to the conventional two-position method. <br />
<br />
===Rough Sontek Flowtracker Procedure for measuring Velocity===<br />
# Turn on the unit<br />
# Press '''Enter''' for the main menu<br />
# Set the units in the Setup parameters menu<br />
# To start the measurements select 'Start Data Run' from the main menu<br />
# Enter a junk name of some sort. The name isn't important since we won't be logging the data to the computer. To enter alphabet characters do the following:<br />
## press a number button<br />
## use the 'ABC+' and 'ABC-' keys to find the letter you want<br />
## press a number button to move to the next character in the name<br />
## repeat<br />
## press the 'Enter' key when you're done.<br />
# You don't need to worry about the next screen which prompts for staff and gauge heights. So, you're ready to begin the measurements by selecting the 'Next Station' button.<br />
# Specify starting from the left bank or the right bank by pushing the 'LEW/REW' key.<br />
# Now, you're ready to begin making measurements so hit the 'Next Station' button<br />
# At this point, if you'd like the unit to calculate discharge for you, you should enter the station number and depth by using the 'Set Location' key and the 'Set Depth' key.<br />
# Select 'Measure' to begin measuring.<br />
# At the end of the measurement period the flowtracker will ask you to accept or repeat the measurement. If you accept you can move to the next station and repeat.<br />
# When you've come to the far bank you're done measuring. To tell the meter this, press the 'End Selection' button twice.<br />
# Next, you need to specify the station value for this bank. Toggle left and right bank as before by pressing the 'LEW/REW' key.<br />
# Press 'Calc. Disch.' twice to let the meter calculate the discharge.<br />
# You can see the discharge from this display point. When you're done looking press '9' to exit and go back to the main menu.<br />
<br />
<br />
Other good items:<br />
*Battery Voltage accessible from the System Functions Menu. To get there select the 'System Functions Menu' and then choose on the second page option 5 'Battery Data'<br />
*User should check signal to noise ratio (SNR) and note this value. A low SNR means there are too few particles in the water for the signal to reflect reliably. Sontek recommends against using measurements with a SNR < 10. Dirt can be added upstream of your measurements if needed to increase the SNR of the measurements.<br />
<br />
===Further Background Information on making streamflow measurements with a wading rod type setup===<br />
http://wwwrcamnl.wr.usgs.gov/sws/SWTraining/WRIR004036/Index.html</div>137.229.92.134http://ocotal.iarc.uaf.edu/index.php?title=Barrow_ARM_TPS_Program&diff=2025Barrow ARM TPS Program2013-05-06T22:18:12Z<p>137.229.92.134: </p>
<hr />
<div>'CR1000 Series Datalogger<br />
<br />
'To create a different opening program template, type in new<br />
<br />
'instructions and select Template | Save as Default Template<br />
<br />
'date:<br />
<br />
'program author:<br />
<br />
'Declare Public Variables<br />
<br />
<br />
' Wiring:<br />
<br />
' TPS-3100 Sensor<br />
<br />
'Wire Purpose Datalogger<br />
<br />
'____________________________________<br />
<br />
' Pin 2 RS232 TPSc1 RX C5 (white)<br />
<br />
' Pin 3 RS232 TPSc1 TX C6 (red)<br />
<br />
' Pin 5 RS232 Gc1 G (black, green)<br />
<br />
' Pin 2 RS232 TPSs1 RX C7 (white)<br />
<br />
' Pin 3 RS232 TPSs1 TX C8 (red)<br />
<br />
' Pin 5 RS232 Gs1 G (black, green)<br />
<br />
<br />
'CS10_L sensor (actually a CS15_L)<br />
<br />
' CS10 white SE1<br />
<br />
' CS10 red AG<br />
<br />
' CS10 black AG<br />
<br />
' CS10 clear AG<br />
<br />
<br />
'Judd snow depth (analog)<br />
<br />
'Wire Purpose Datalogger<br />
<br />
'____________________________________<br />
<br />
'Clear Shield G<br />
'Black Power - G<br />
<br />
'Red Power + +12V<br />
<br />
'Green On/Off C1<br />
<br />
'White Signal + 3H<br />
<br />
'Brown Signal - 3L<br />
<br />
<br />
' C1 -- Judd, green<br />
<br />
' C5 -- TPSc1 RX, white <br />
<br />
' C6 -- TPSc1 TX, red<br />
<br />
' C7 -- TPSs1 RX, white<br />
<br />
' C8 -- TPSs1 TX, red<br />
<br />
' SE 1 -- CS10, white<br />
<br />
' SE 5 -- Judd, white<br />
<br />
' SE 6 -- Judd, brown<br />
<br />
' AG -- CS10, red, black, clear<br />
<br />
' G -- Judd, clear, black<br />
<br />
' 12v -- Judd, red<br />
<br />
<br />
Public TPS_out_format As String *3<br />
<br />
Public TPS_timestamp As String * 10<br />
<br />
Public TPS_Fault_Ind As String * 7<br />
<br />
Public TPS_cur_precip As Float<br />
<br />
Public TPS_accum_precip As Float<br />
<br />
Public TPS_AT As Float<br />
<br />
Public TPS_Inst_Temp As Float<br />
<br />
Public TPS_WS As Float<br />
<br />
Public TPS_CRC As String *4<br />
<br />
Public callstring As String * 3<br />
<br />
Public TPS_String As String * 200<br />
<br />
Public TPS_out_format2 As String *3<br />
<br />
Public TPS_timestamp2 As String * 10<br />
<br />
Public TPS_Fault_Ind2 As String * 7<br />
<br />
Public TPS_cur_precip2 As Float<br />
<br />
Public TPS_accum_precip2 As Float<br />
<br />
Public TPS_AT2 As Float<br />
<br />
Public TPS_Inst_Temp2 As Float<br />
<br />
Public TPS_WS2 As Float<br />
<br />
Public TPS_CRC2 As String *4<br />
<br />
Public callstring2 As String * 3<br />
<br />
Public TPS_String2 As String * 200<br />
<br />
Public LoggerTemp_C As Float<br />
<br />
Public BattVolts_V As Float<br />
<br />
<br />
Const num_samples = 100<br />
<br />
Public Amps<br />
<br />
Public Amp_mult<br />
<br />
Dim i_sig(num_samples)<br />
<br />
PreserveVariables<br />
<br />
<br />
Public Battery<br />
<br />
Public Air_TempC<br />
<br />
Public Air_TempF<br />
<br />
Public Depth<br />
<br />
<br />
'\\\\\\\\\\\\\\\\\\\\\\\\ OUTPUT SECTION ////////////////////////<br />
<br />
<br />
DataTable(TableTPSplus,true,-1)<br />
DataInterval(0,1,Min,0)<br />
Sample(1, TPS_out_format, FP2)<br />
Sample(1, TPS_timestamp, String)<br />
Sample(1, TPS_Fault_Ind, String)<br />
Sample(1, TPS_cur_precip,FP2)<br />
Sample(1, TPS_accum_precip,FP2)<br />
Sample(1, TPS_AT, FP2)<br />
Sample(1, TPS_Inst_Temp, FP2)<br />
Sample(1, TPS_WS, FP2)<br />
Sample(1, TPS_CRC, String)<br />
EndTable<br />
<br />
DataTable(AmpTable,True,-1)<br />
DataInterval(0,1,Min,10)<br />
Maximum(1,Amps,IEEE4,False,False)<br />
Average(1,Amps,FP2,False)<br />
EndTable<br />
<br />
<br />
DataTable(TableTPSplus2,true,-1)<br />
DataInterval(0,1,Min,0)<br />
Sample(1, TPS_out_format2, FP2)<br />
Sample(1, TPS_timestamp2, String)<br />
Sample(1, TPS_Fault_Ind2, String)<br />
Sample(1, TPS_cur_precip2,FP2)<br />
Sample(1, TPS_accum_precip2,FP2)<br />
Sample(1, TPS_AT2, FP2)<br />
Sample(1, TPS_Inst_Temp2, FP2)<br />
Sample(1, TPS_WS2, FP2)<br />
Sample(1, TPS_CRC2, String)<br />
<br />
EndTable<br />
<br />
DataTable(HourlyDiag,true,-1)<br />
DataInterval(0,60,Min,10)<br />
Sample(1, LoggerTemp_C,FP2)<br />
Average(1,LoggerTemp_C,FP2,False)<br />
Sample(1,BattVolts_V,FP2)<br />
Average(1,BattVolts_V,FP2,False)<br />
Maximum(1,BattVolts_V,FP2,False,False)<br />
Minimum(1,BattVolts_V,FP2,False,False)<br />
<br />
EndTable<br />
<br />
DataTable(DepthSensor,true,-1)<br />
OpenInterval<br />
DataInterval(0,1,Min,10)<br />
Average(1,Air_TempF,FP2,0)<br />
Sample(1,Depth,FP2)<br />
EndTable<br />
<br />
<br />
'\\\\\\\\\\\\\\\\\\\\\\\\\\\ PROGRAM ////////////////////////////<br />
<br />
BeginProg<br />
'Scan( 1,Min, 3, 0)<br />
Scan(250,mSec,10,0)<br />
SequentialMode<br />
'PipeLineMode<br />
'----------<br />
' Current sensor<br />
'----------<br />
<br />
Amp_mult = 0.2<br />
VoltSe(i_sig(1),num_samples,mV2500,-1,True,1000,0,1.0,0)<br />
StdDevSpa(Amps,num_samples,i_sig(1))<br />
Amps = Amps * Amp_mult<br />
CallTable AmpTable<br />
<br />
If IfTime(0,60,Sec) Then<br />
'SequentialMode<br />
'''''''''''''''''''''''''''''''''''''''''<br />
''' Measure TPS C1'''''''''''''''''''''''''<br />
'''''''''''''''''''''''''''''''''''''''''<br />
callstring = CHR (13 ) & CHR (13 ) & "T" & CHR (13 ) <br />
' 1) open the serial port<br />
SerialOpen (Com3,9600,0,300,10000)<br />
' 2) flush the port<br />
SerialFlush (Com3)<br />
' 3) Send the transmit code and put the response into variable TPS_String<br />
SerialOut (Com3,callstring,"",3,0)<br />
SerialIn (TPS_String,Com3,100,-1,100)<br />
' 4) Close the serial port<br />
SerialClose (Com3)<br />
' 5) Comma separate the string from the TPS<br />
'SplitStr (TPS_Array1(),TPS_String,",",8,2)<br />
' 6) Space separate the first bit o' data<br />
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)<br />
' 7) Star separate the last bit o' data<br />
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)<br />
TPS_out_format = Mid (TPS_String,3,3)<br />
TPS_timestamp = Mid(TPS_String,7,10)<br />
TPS_Fault_Ind = Mid(TPS_String,18,7)<br />
TPS_cur_precip = Mid(TPS_String,26,5)<br />
TPS_accum_precip = Mid(TPS_String,32,8)<br />
TPS_AT = Mid(TPS_String,41,5)<br />
TPS_Inst_Temp = Mid(TPS_String,47,5)<br />
TPS_WS = Mid(TPS_String,53,4)<br />
TPS_CRC = Mid(TPS_STring,58,4)<br />
<br />
'''''''''''''''''''''''''''''''''''''''''<br />
''' Measure TPS2 S1'''''''''''''''''''''''''<br />
'''''''''''''''''''''''''''''''''''''''''<br />
callstring2 = CHR (13 ) & CHR (13 ) & "T" & CHR (13 ) <br />
' 1) open the serial port<br />
SerialOpen (Com4,9600,0,300,10000)<br />
' 2) flush the port<br />
SerialFlush (Com4)<br />
' 3) Send the transmit code and put the response into variable TPS_String<br />
SerialOut (Com4,callstring2,"",3,0)<br />
SerialIn (TPS_String2,Com4,100,-1,100)<br />
' 4) Close the serial port<br />
SerialClose (Com4)<br />
' 5) Comma separate the string from the TPS<br />
'SplitStr (TPS_Array1(),TPS_String,",",8,2)<br />
' 6) Space separate the first bit o' data<br />
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)<br />
' 7) Star separate the last bit o' data<br />
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)<br />
TPS_out_format2 = Mid (TPS_String2,3,3)<br />
TPS_timestamp2 = Mid(TPS_String2,7,10)<br />
TPS_Fault_Ind2 = Mid(TPS_String2,18,7)<br />
TPS_cur_precip2 = Mid(TPS_String2,26,5)<br />
TPS_accum_precip2 = Mid(TPS_String2,32,8)<br />
TPS_AT2 = Mid(TPS_String2,41,5)<br />
TPS_Inst_Temp2 = Mid(TPS_String2,47,5)<br />
TPS_WS2 = Mid(TPS_String2,53,4)<br />
TPS_CRC2 = Mid(TPS_STring2,58,4)<br />
<br />
<br />
Battery (BattVolts_V)<br />
PanelTemp (LoggerTemp_C,250)<br />
<br />
<br />
'---------<br />
' judd<br />
'----------<br />
<br />
Battery(Battery)<br />
'Turn ON the depth sensor<br />
PortSet(1,1)<br />
'wait 0.8 seconds for the sensor to output the air temp<br />
Delay(0,800,MSEC)<br />
'air temp is output in milliVolts, scaled to Kelvin, <br />
'and then convert to Celsius.<br />
VoltDiff(Air_TempC,1,mV2500,3,True,0,250,0.2,-273)<br />
'Air temp is also converted and saved in F<br />
Air_TempF = Air_TempC * 1.8<br />
Air_TempF = Air_TempF +32<br />
'The depth sensor needs another 1.8 seconds to make up<br />
'to 10 measurements and perform error checking and <br />
'temp compensation<br />
Delay(0,1800,MSEC)<br />
'Distance is output in milliVolts, scaled to inches, and<br />
'then converted to depth by subtracting the distance<br />
'measured from the reference distance.<br />
'Use a multiplier of -.19685 for output in inches<br />
'and -.5 for output in centimeters.<br />
'<br />
'The following instruction is configured to output the measured distance in inches<br />
'To reconfigure the instruction to output depth in inches do the following:<br />
'Change the multiplier from .1968 to -.1968<br />
'Change the offset value from 0 to the distance measured<br />
VoltDiff(Depth,1,mV2500, 3,True,0,250,0.1968,0)<br />
'Turn off the sensor<br />
PortSet(1,0)<br />
<br />
<br />
' TPS Aliases<br />
<br />
'Alias TPS_Array2(2) = TPS_out_format<br />
<br />
'Alias TPS_Array1(2) = TPS_timestamp<br />
<br />
'Alias TPS_Array1(3) = TPS_Fault_Ind<br />
<br />
'Alias TPS_Array1(4) = TPS_cur_precip<br />
<br />
'Alias TPS_Array1(5) = TPS_accum_precip<br />
<br />
'Alias TPS_Array1(6) = TPS_AT<br />
<br />
'Alias TPS_Array1(7) = TPS_Inst_Temp<br />
<br />
'Alias TPS_Array3(1) = TPS_WS<br />
<br />
'Alias TPS_Array3(2) = TPS_CRC<br />
<br />
<br />
<br />
<br />
<br />
'------------------------------------------------<br />
'Log sensor output once an hour<br />
<br />
CallTable DepthSensor<br />
CallTable TableTPSplus<br />
CallTable TableTPSplus2<br />
CallTable HourlyDiag<br />
endif<br />
NextScan<br />
EndProg</div>137.229.92.134http://ocotal.iarc.uaf.edu/index.php?title=Barrow_ARM_TPS_Program&diff=2024Barrow ARM TPS Program2013-05-06T22:17:03Z<p>137.229.92.134: </p>
<hr />
<div>'CR1000 Series Datalogger<br />
<br />
'To create a different opening program template, type in new<br />
<br />
'instructions and select Template | Save as Default Template<br />
<br />
'date:<br />
<br />
'program author:<br />
<br />
'Declare Public Variables<br />
<br />
<br />
' Wiring:<br />
<br />
' TPS-3100 Sensor<br />
<br />
'Wire Purpose Datalogger<br />
<br />
'____________________________________<br />
<br />
' Pin 2 RS232 TPSc1 RX C5 (white)<br />
<br />
' Pin 3 RS232 TPSc1 TX C6 (red)<br />
<br />
' Pin 5 RS232 Gc1 G (black, green)<br />
<br />
' Pin 2 RS232 TPSs1 RX C7 (white)<br />
<br />
' Pin 3 RS232 TPSs1 TX C8 (red)<br />
<br />
' Pin 5 RS232 Gs1 G (black, green)<br />
<br />
<br />
'CS10_L sensor (actually a CS15_L)<br />
<br />
' CS10 white SE1<br />
<br />
' CS10 red AG<br />
<br />
' CS10 black AG<br />
<br />
' CS10 clear AG<br />
<br />
<br />
'Judd snow depth (analog)<br />
<br />
'Wire Purpose Datalogger<br />
<br />
'____________________________________<br />
<br />
'Clear Shield G<br />
'Black Power - G<br />
<br />
'Red Power + +12V<br />
<br />
'Green On/Off C1<br />
<br />
'White Signal + 3H<br />
<br />
'Brown Signal - 3L<br />
<br />
<br />
' C1 -- Judd, green<br />
<br />
' C5 -- TPSc1 RX, white <br />
<br />
' C6 -- TPSc1 TX, red<br />
<br />
' C7 -- TPSs1 RX, white<br />
<br />
' C8 -- TPSs1 TX, red<br />
<br />
' SE 1 -- CS10, white<br />
<br />
' SE 5 -- Judd, white<br />
<br />
' SE 6 -- Judd, brown<br />
<br />
' AG -- CS10, red, black, clear<br />
<br />
' G -- Judd, clear, black<br />
<br />
' 12v -- Judd, red<br />
<br />
<br />
Public TPS_out_format As String *3<br />
<br />
Public TPS_timestamp As String * 10<br />
<br />
Public TPS_Fault_Ind As String * 7<br />
<br />
Public TPS_cur_precip As Float<br />
<br />
Public TPS_accum_precip As Float<br />
<br />
Public TPS_AT As Float<br />
<br />
Public TPS_Inst_Temp As Float<br />
<br />
Public TPS_WS As Float<br />
<br />
Public TPS_CRC As String *4<br />
<br />
Public callstring As String * 3<br />
<br />
Public TPS_String As String * 200<br />
<br />
Public TPS_out_format2 As String *3<br />
<br />
Public TPS_timestamp2 As String * 10<br />
<br />
Public TPS_Fault_Ind2 As String * 7<br />
<br />
Public TPS_cur_precip2 As Float<br />
<br />
Public TPS_accum_precip2 As Float<br />
<br />
Public TPS_AT2 As Float<br />
<br />
Public TPS_Inst_Temp2 As Float<br />
<br />
Public TPS_WS2 As Float<br />
<br />
Public TPS_CRC2 As String *4<br />
<br />
Public callstring2 As String * 3<br />
<br />
Public TPS_String2 As String * 200<br />
<br />
Public LoggerTemp_C As Float<br />
<br />
Public BattVolts_V As Float<br />
<br />
<br />
Const num_samples = 100<br />
<br />
Public Amps<br />
<br />
Public Amp_mult<br />
<br />
Dim i_sig(num_samples)<br />
<br />
PreserveVariables<br />
<br />
<br />
Public Battery<br />
<br />
Public Air_TempC<br />
<br />
Public Air_TempF<br />
<br />
Public Depth<br />
<br />
<br />
'\\\\\\\\\\\\\\\\\\\\\\\\ OUTPUT SECTION ////////////////////////<br />
<br />
<br />
DataTable(TableTPSplus,true,-1)<br />
DataInterval(0,1,Min,0)<br />
Sample(1, TPS_out_format, FP2)<br />
Sample(1, TPS_timestamp, String)<br />
Sample(1, TPS_Fault_Ind, String)<br />
Sample(1, TPS_cur_precip,FP2)<br />
Sample(1, TPS_accum_precip,FP2)<br />
Sample(1, TPS_AT, FP2)<br />
Sample(1, TPS_Inst_Temp, FP2)<br />
Sample(1, TPS_WS, FP2)<br />
Sample(1, TPS_CRC, String)<br />
EndTable<br />
<br />
DataTable(AmpTable,True,-1)<br />
DataInterval(0,1,Min,10)<br />
Maximum(1,Amps,IEEE4,False,False)<br />
Average(1,Amps,FP2,False)<br />
EndTable<br />
<br />
<br />
DataTable(TableTPSplus2,true,-1)<br />
DataInterval(0,1,Min,0)<br />
Sample(1, TPS_out_format2, FP2)<br />
Sample(1, TPS_timestamp2, String)<br />
Sample(1, TPS_Fault_Ind2, String)<br />
Sample(1, TPS_cur_precip2,FP2)<br />
Sample(1, TPS_accum_precip2,FP2)<br />
Sample(1, TPS_AT2, FP2)<br />
Sample(1, TPS_Inst_Temp2, FP2)<br />
Sample(1, TPS_WS2, FP2)<br />
Sample(1, TPS_CRC2, String)<br />
<br />
EndTable<br />
<br />
DataTable(HourlyDiag,true,-1)<br />
DataInterval(0,60,Min,10)<br />
Sample(1, LoggerTemp_C,FP2)<br />
Average(1,LoggerTemp_C,FP2,False)<br />
Sample(1,BattVolts_V,FP2)<br />
Average(1,BattVolts_V,FP2,False)<br />
Maximum(1,BattVolts_V,FP2,False,False)<br />
Minimum(1,BattVolts_V,FP2,False,False)<br />
<br />
EndTable<br />
<br />
DataTable(DepthSensor,true,-1)<br />
OpenInterval<br />
DataInterval(0,1,Min,10)<br />
Average(1,Air_TempF,FP2,0)<br />
Sample(1,Depth,FP2)<br />
EndTable<br />
<br />
<br />
'\\\\\\\\\\\\\\\\\\\\\\\\\\\ PROGRAM ////////////////////////////<br />
<br />
BeginProg<br />
'Scan( 1,Min, 3, 0)<br />
Scan(250,mSec,10,0)<br />
SequentialMode<br />
'PipeLineMode<br />
'----------<br />
' Current sensor<br />
'----------<br />
<br />
Amp_mult = 0.2<br />
VoltSe(i_sig(1),num_samples,mV2500,-1,True,1000,0,1.0,0)<br />
StdDevSpa(Amps,num_samples,i_sig(1))<br />
Amps = Amps * Amp_mult<br />
CallTable AmpTable<br />
<br />
If IfTime(0,60,Sec) Then<br />
'SequentialMode<br />
'''''''''''''''''''''''''''''''''''''''''<br />
''' Measure TPS C1'''''''''''''''''''''''''<br />
'''''''''''''''''''''''''''''''''''''''''<br />
callstring = CHR (13 ) & CHR (13 ) & "T" & CHR (13 ) <br />
' 1) open the serial port<br />
SerialOpen (Com3,9600,0,300,10000)<br />
' 2) flush the port<br />
SerialFlush (Com3)<br />
' 3) Send the transmit code and put the response into variable TPS_String<br />
SerialOut (Com3,callstring,"",3,0)<br />
SerialIn (TPS_String,Com3,100,-1,100)<br />
' 4) Close the serial port<br />
SerialClose (Com3)<br />
' 5) Comma separate the string from the TPS<br />
'SplitStr (TPS_Array1(),TPS_String,",",8,2)<br />
' 6) Space separate the first bit o' data<br />
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)<br />
' 7) Star separate the last bit o' data<br />
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)<br />
TPS_out_format = Mid (TPS_String,3,3)<br />
TPS_timestamp = Mid(TPS_String,7,10)<br />
TPS_Fault_Ind = Mid(TPS_String,18,7)<br />
TPS_cur_precip = Mid(TPS_String,26,5)<br />
TPS_accum_precip = Mid(TPS_String,32,8)<br />
TPS_AT = Mid(TPS_String,41,5)<br />
TPS_Inst_Temp = Mid(TPS_String,47,5)<br />
TPS_WS = Mid(TPS_String,53,4)<br />
TPS_CRC = Mid(TPS_STring,58,4)<br />
<br />
'''''''''''''''''''''''''''''''''''''''''<br />
''' Measure TPS2 S1'''''''''''''''''''''''''<br />
'''''''''''''''''''''''''''''''''''''''''<br />
callstring2 = CHR (13 ) & CHR (13 ) & "T" & CHR (13 ) <br />
' 1) open the serial port<br />
SerialOpen (Com4,9600,0,300,10000)<br />
' 2) flush the port<br />
SerialFlush (Com4)<br />
' 3) Send the transmit code and put the response into variable TPS_String<br />
SerialOut (Com4,callstring2,"",3,0)<br />
SerialIn (TPS_String2,Com4,100,-1,100)<br />
' 4) Close the serial port<br />
SerialClose (Com4)<br />
' 5) Comma separate the string from the TPS<br />
'SplitStr (TPS_Array1(),TPS_String,",",8,2)<br />
' 6) Space separate the first bit o' data<br />
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)<br />
' 7) Star separate the last bit o' data<br />
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)<br />
TPS_out_format2 = Mid (TPS_String2,3,3)<br />
TPS_timestamp2 = Mid(TPS_String2,7,10)<br />
TPS_Fault_Ind2 = Mid(TPS_String2,18,7)<br />
TPS_cur_precip2 = Mid(TPS_String2,26,5)<br />
TPS_accum_precip2 = Mid(TPS_String2,32,8)<br />
TPS_AT2 = Mid(TPS_String2,41,5)<br />
TPS_Inst_Temp2 = Mid(TPS_String2,47,5)<br />
TPS_WS2 = Mid(TPS_String2,53,4)<br />
TPS_CRC2 = Mid(TPS_STring2,58,4)<br />
<br />
<br />
Battery (BattVolts_V)<br />
PanelTemp (LoggerTemp_C,250)<br />
<br />
<br />
'---------<br />
' judd<br />
'----------<br />
<br />
Battery(Battery)<br />
'Turn ON the depth sensor<br />
PortSet(1,1)<br />
'wait 0.8 seconds for the sensor to output the air temp<br />
Delay(0,800,MSEC)<br />
'air temp is output in milliVolts, scaled to Kelvin, <br />
'and then convert to Celsius.<br />
VoltDiff(Air_TempC,1,mV2500,3,True,0,250,0.2,-273)<br />
'Air temp is also converted and saved in F<br />
Air_TempF = Air_TempC * 1.8<br />
Air_TempF = Air_TempF +32<br />
'The depth sensor needs another 1.8 seconds to make up<br />
'to 10 measurements and perform error checking and <br />
'temp compensation<br />
Delay(0,1800,MSEC)<br />
'Distance is output in milliVolts, scaled to inches, and<br />
'then converted to depth by subtracting the distance<br />
'measured from the reference distance.<br />
'Use a multiplier of -.19685 for output in inches<br />
'and -.5 for output in centimeters.<br />
'<br />
'The following instruction is configured to output the measured distance in inches<br />
'To reconfigure the instruction to output depth in inches do the following:<br />
'Change the multiplier from .1968 to -.1968<br />
'Change the offset value from 0 to the distance measured<br />
VoltDiff(Depth,1,mV2500, 3,True,0,250,0.1968,0)<br />
'Turn off the sensor<br />
PortSet(1,0)<br />
<br />
<br />
' TPS Aliases<br />
'Alias TPS_Array2(2) = TPS_out_format<br />
'Alias TPS_Array1(2) = TPS_timestamp<br />
'Alias TPS_Array1(3) = TPS_Fault_Ind<br />
'Alias TPS_Array1(4) = TPS_cur_precip<br />
'Alias TPS_Array1(5) = TPS_accum_precip<br />
'Alias TPS_Array1(6) = TPS_AT<br />
'Alias TPS_Array1(7) = TPS_Inst_Temp<br />
'Alias TPS_Array3(1) = TPS_WS<br />
'Alias TPS_Array3(2) = TPS_CRC<br />
<br />
<br />
<br />
<br />
<br />
'------------------------------------------------<br />
'Log sensor output once an hour<br />
<br />
CallTable DepthSensor<br />
CallTable TableTPSplus<br />
CallTable TableTPSplus2<br />
CallTable HourlyDiag<br />
endif<br />
NextScan<br />
EndProg</div>137.229.92.134http://ocotal.iarc.uaf.edu/index.php?title=Barrow_ARM_TPS_Program&diff=2023Barrow ARM TPS Program2013-05-06T22:15:45Z<p>137.229.92.134: </p>
<hr />
<div>'CR1000 Series Datalogger<br />
<br />
'To create a different opening program template, type in new<br />
<br />
'instructions and select Template | Save as Default Template<br />
<br />
'date:<br />
<br />
'program author:<br />
<br />
'Declare Public Variables<br />
<br />
<br />
' Wiring:<br />
<br />
' TPS-3100 Sensor<br />
<br />
'Wire Purpose Datalogger<br />
<br />
'____________________________________<br />
<br />
' Pin 2 RS232 TPSc1 RX C5 (white)<br />
<br />
' Pin 3 RS232 TPSc1 TX C6 (red)<br />
<br />
' Pin 5 RS232 Gc1 G (black, green)<br />
<br />
' Pin 2 RS232 TPSs1 RX C7 (white)<br />
<br />
' Pin 3 RS232 TPSs1 TX C8 (red)<br />
<br />
' Pin 5 RS232 Gs1 G (black, green)<br />
<br />
<br />
'CS10_L sensor (actually a CS15_L)<br />
<br />
' CS10 white SE1<br />
<br />
' CS10 red AG<br />
<br />
' CS10 black AG<br />
<br />
' CS10 clear AG<br />
<br />
<br />
'Judd snow depth (analog)<br />
<br />
'Wire Purpose Datalogger<br />
<br />
'____________________________________<br />
<br />
'Clear Shield G<br />
'Black Power - G<br />
<br />
'Red Power + +12V<br />
<br />
'Green On/Off C1<br />
<br />
'White Signal + 3H<br />
<br />
'Brown Signal - 3L<br />
<br />
<br />
' C1 -- Judd, green<br />
<br />
' C5 -- TPSc1 RX, white <br />
<br />
' C6 -- TPSc1 TX, red<br />
<br />
' C7 -- TPSs1 RX, white<br />
<br />
' C8 -- TPSs1 TX, red<br />
<br />
' SE 1 -- CS10, white<br />
<br />
' SE 5 -- Judd, white<br />
<br />
' SE 6 -- Judd, brown<br />
<br />
' AG -- CS10, red, black, clear<br />
<br />
' G -- Judd, clear, black<br />
<br />
' 12v -- Judd, red<br />
<br />
<br />
Public TPS_out_format As String *3<br />
Public TPS_timestamp As String * 10<br />
Public TPS_Fault_Ind As String * 7<br />
Public TPS_cur_precip As Float<br />
Public TPS_accum_precip As Float<br />
Public TPS_AT As Float<br />
Public TPS_Inst_Temp As Float<br />
Public TPS_WS As Float<br />
Public TPS_CRC As String *4<br />
Public callstring As String * 3<br />
Public TPS_String As String * 200<br />
Public TPS_out_format2 As String *3<br />
Public TPS_timestamp2 As String * 10<br />
Public TPS_Fault_Ind2 As String * 7<br />
Public TPS_cur_precip2 As Float<br />
Public TPS_accum_precip2 As Float<br />
Public TPS_AT2 As Float<br />
Public TPS_Inst_Temp2 As Float<br />
Public TPS_WS2 As Float<br />
Public TPS_CRC2 As String *4<br />
Public callstring2 As String * 3<br />
Public TPS_String2 As String * 200<br />
Public LoggerTemp_C As Float<br />
Public BattVolts_V As Float<br />
<br />
<br />
Const num_samples = 100<br />
Public Amps<br />
Public Amp_mult<br />
Dim i_sig(num_samples)<br />
PreserveVariables<br />
<br />
Public Battery<br />
Public Air_TempC<br />
Public Air_TempF<br />
Public Depth<br />
<br />
'\\\\\\\\\\\\\\\\\\\\\\\\ OUTPUT SECTION ////////////////////////<br />
<br />
DataTable(TableTPSplus,true,-1)<br />
DataInterval(0,1,Min,0)<br />
Sample(1, TPS_out_format, FP2)<br />
Sample(1, TPS_timestamp, String)<br />
Sample(1, TPS_Fault_Ind, String)<br />
Sample(1, TPS_cur_precip,FP2)<br />
Sample(1, TPS_accum_precip,FP2)<br />
Sample(1, TPS_AT, FP2)<br />
Sample(1, TPS_Inst_Temp, FP2)<br />
Sample(1, TPS_WS, FP2)<br />
Sample(1, TPS_CRC, String)<br />
EndTable<br />
<br />
DataTable(AmpTable,True,-1)<br />
DataInterval(0,1,Min,10)<br />
Maximum(1,Amps,IEEE4,False,False)<br />
Average(1,Amps,FP2,False)<br />
EndTable<br />
<br />
<br />
DataTable(TableTPSplus2,true,-1)<br />
DataInterval(0,1,Min,0)<br />
Sample(1, TPS_out_format2, FP2)<br />
Sample(1, TPS_timestamp2, String)<br />
Sample(1, TPS_Fault_Ind2, String)<br />
Sample(1, TPS_cur_precip2,FP2)<br />
Sample(1, TPS_accum_precip2,FP2)<br />
Sample(1, TPS_AT2, FP2)<br />
Sample(1, TPS_Inst_Temp2, FP2)<br />
Sample(1, TPS_WS2, FP2)<br />
Sample(1, TPS_CRC2, String)<br />
<br />
EndTable<br />
<br />
DataTable(HourlyDiag,true,-1)<br />
DataInterval(0,60,Min,10)<br />
Sample(1, LoggerTemp_C,FP2)<br />
Average(1,LoggerTemp_C,FP2,False)<br />
Sample(1,BattVolts_V,FP2)<br />
Average(1,BattVolts_V,FP2,False)<br />
Maximum(1,BattVolts_V,FP2,False,False)<br />
Minimum(1,BattVolts_V,FP2,False,False)<br />
<br />
EndTable<br />
<br />
DataTable(DepthSensor,true,-1)<br />
OpenInterval<br />
DataInterval(0,1,Min,10)<br />
Average(1,Air_TempF,FP2,0)<br />
Sample(1,Depth,FP2)<br />
EndTable<br />
<br />
<br />
'\\\\\\\\\\\\\\\\\\\\\\\\\\\ PROGRAM ////////////////////////////<br />
<br />
BeginProg<br />
'Scan( 1,Min, 3, 0)<br />
Scan(250,mSec,10,0)<br />
SequentialMode<br />
'PipeLineMode<br />
'----------<br />
' Current sensor<br />
'----------<br />
<br />
Amp_mult = 0.2<br />
VoltSe(i_sig(1),num_samples,mV2500,-1,True,1000,0,1.0,0)<br />
StdDevSpa(Amps,num_samples,i_sig(1))<br />
Amps = Amps * Amp_mult<br />
CallTable AmpTable<br />
<br />
If IfTime(0,60,Sec) Then<br />
'SequentialMode<br />
'''''''''''''''''''''''''''''''''''''''''<br />
''' Measure TPS C1'''''''''''''''''''''''''<br />
'''''''''''''''''''''''''''''''''''''''''<br />
callstring = CHR (13 ) & CHR (13 ) & "T" & CHR (13 ) <br />
' 1) open the serial port<br />
SerialOpen (Com3,9600,0,300,10000)<br />
' 2) flush the port<br />
SerialFlush (Com3)<br />
' 3) Send the transmit code and put the response into variable TPS_String<br />
SerialOut (Com3,callstring,"",3,0)<br />
SerialIn (TPS_String,Com3,100,-1,100)<br />
' 4) Close the serial port<br />
SerialClose (Com3)<br />
' 5) Comma separate the string from the TPS<br />
'SplitStr (TPS_Array1(),TPS_String,",",8,2)<br />
' 6) Space separate the first bit o' data<br />
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)<br />
' 7) Star separate the last bit o' data<br />
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)<br />
TPS_out_format = Mid (TPS_String,3,3)<br />
TPS_timestamp = Mid(TPS_String,7,10)<br />
TPS_Fault_Ind = Mid(TPS_String,18,7)<br />
TPS_cur_precip = Mid(TPS_String,26,5)<br />
TPS_accum_precip = Mid(TPS_String,32,8)<br />
TPS_AT = Mid(TPS_String,41,5)<br />
TPS_Inst_Temp = Mid(TPS_String,47,5)<br />
TPS_WS = Mid(TPS_String,53,4)<br />
TPS_CRC = Mid(TPS_STring,58,4)<br />
<br />
'''''''''''''''''''''''''''''''''''''''''<br />
''' Measure TPS2 S1'''''''''''''''''''''''''<br />
'''''''''''''''''''''''''''''''''''''''''<br />
callstring2 = CHR (13 ) & CHR (13 ) & "T" & CHR (13 ) <br />
' 1) open the serial port<br />
SerialOpen (Com4,9600,0,300,10000)<br />
' 2) flush the port<br />
SerialFlush (Com4)<br />
' 3) Send the transmit code and put the response into variable TPS_String<br />
SerialOut (Com4,callstring2,"",3,0)<br />
SerialIn (TPS_String2,Com4,100,-1,100)<br />
' 4) Close the serial port<br />
SerialClose (Com4)<br />
' 5) Comma separate the string from the TPS<br />
'SplitStr (TPS_Array1(),TPS_String,",",8,2)<br />
' 6) Space separate the first bit o' data<br />
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)<br />
' 7) Star separate the last bit o' data<br />
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)<br />
TPS_out_format2 = Mid (TPS_String2,3,3)<br />
TPS_timestamp2 = Mid(TPS_String2,7,10)<br />
TPS_Fault_Ind2 = Mid(TPS_String2,18,7)<br />
TPS_cur_precip2 = Mid(TPS_String2,26,5)<br />
TPS_accum_precip2 = Mid(TPS_String2,32,8)<br />
TPS_AT2 = Mid(TPS_String2,41,5)<br />
TPS_Inst_Temp2 = Mid(TPS_String2,47,5)<br />
TPS_WS2 = Mid(TPS_String2,53,4)<br />
TPS_CRC2 = Mid(TPS_STring2,58,4)<br />
<br />
<br />
Battery (BattVolts_V)<br />
PanelTemp (LoggerTemp_C,250)<br />
<br />
<br />
'---------<br />
' judd<br />
'----------<br />
<br />
Battery(Battery)<br />
'Turn ON the depth sensor<br />
PortSet(1,1)<br />
'wait 0.8 seconds for the sensor to output the air temp<br />
Delay(0,800,MSEC)<br />
'air temp is output in milliVolts, scaled to Kelvin, <br />
'and then convert to Celsius.<br />
VoltDiff(Air_TempC,1,mV2500,3,True,0,250,0.2,-273)<br />
'Air temp is also converted and saved in F<br />
Air_TempF = Air_TempC * 1.8<br />
Air_TempF = Air_TempF +32<br />
'The depth sensor needs another 1.8 seconds to make up<br />
'to 10 measurements and perform error checking and <br />
'temp compensation<br />
Delay(0,1800,MSEC)<br />
'Distance is output in milliVolts, scaled to inches, and<br />
'then converted to depth by subtracting the distance<br />
'measured from the reference distance.<br />
'Use a multiplier of -.19685 for output in inches<br />
'and -.5 for output in centimeters.<br />
'<br />
'The following instruction is configured to output the measured distance in inches<br />
'To reconfigure the instruction to output depth in inches do the following:<br />
'Change the multiplier from .1968 to -.1968<br />
'Change the offset value from 0 to the distance measured<br />
VoltDiff(Depth,1,mV2500, 3,True,0,250,0.1968,0)<br />
'Turn off the sensor<br />
PortSet(1,0)<br />
<br />
<br />
' TPS Aliases<br />
'Alias TPS_Array2(2) = TPS_out_format<br />
'Alias TPS_Array1(2) = TPS_timestamp<br />
'Alias TPS_Array1(3) = TPS_Fault_Ind<br />
'Alias TPS_Array1(4) = TPS_cur_precip<br />
'Alias TPS_Array1(5) = TPS_accum_precip<br />
'Alias TPS_Array1(6) = TPS_AT<br />
'Alias TPS_Array1(7) = TPS_Inst_Temp<br />
'Alias TPS_Array3(1) = TPS_WS<br />
'Alias TPS_Array3(2) = TPS_CRC<br />
<br />
<br />
<br />
<br />
<br />
'------------------------------------------------<br />
'Log sensor output once an hour<br />
<br />
CallTable DepthSensor<br />
CallTable TableTPSplus<br />
CallTable TableTPSplus2<br />
CallTable HourlyDiag<br />
endif<br />
NextScan<br />
EndProg</div>137.229.92.134http://ocotal.iarc.uaf.edu/index.php?title=Barrow_ARM_TPS_Program&diff=2022Barrow ARM TPS Program2013-05-06T22:14:23Z<p>137.229.92.134: </p>
<hr />
<div>'CR1000 Series Datalogger<br />
<br />
'To create a different opening program template, type in new<br />
<br />
'instructions and select Template | Save as Default Template<br />
<br />
'date:<br />
<br />
'program author:<br />
<br />
'Declare Public Variables<br />
<br />
<br />
' Wiring:<br />
<br />
' TPS-3100 Sensor<br />
<br />
'Wire Purpose Datalogger<br />
<br />
'____________________________________<br />
<br />
' Pin 2 RS232 TPSc1 RX C5 (white)<br />
' Pin 3 RS232 TPSc1 TX C6 (red)<br />
' Pin 5 RS232 Gc1 G (black, green)<br />
<br />
' Pin 2 RS232 TPSs1 RX C7 (white)<br />
' Pin 3 RS232 TPSs1 TX C8 (red)<br />
' Pin 5 RS232 Gs1 G (black, green)<br />
<br />
'CS10_L sensor (actually a CS15_L)<br />
' CS10 white SE1<br />
' CS10 red AG<br />
' CS10 black AG<br />
' CS10 clear AG<br />
<br />
'Judd snow depth (analog)<br />
'Wire Purpose Datalogger<br />
'____________________________________<br />
'Clear Shield G<br />
'Black Power - G<br />
'Red Power + +12V<br />
'Green On/Off C1<br />
'White Signal + 3H<br />
'Brown Signal - 3L<br />
<br />
' C1 -- Judd, green<br />
' C5 -- TPSc1 RX, white <br />
' C6 -- TPSc1 TX, red<br />
' C7 -- TPSs1 RX, white<br />
' C8 -- TPSs1 TX, red<br />
' SE 1 -- CS10, white<br />
' SE 5 -- Judd, white<br />
' SE 6 -- Judd, brown<br />
' AG -- CS10, red, black, clear<br />
' G -- Judd, clear, black<br />
' 12v -- Judd, red<br />
<br />
Public TPS_out_format As String *3<br />
Public TPS_timestamp As String * 10<br />
Public TPS_Fault_Ind As String * 7<br />
Public TPS_cur_precip As Float<br />
Public TPS_accum_precip As Float<br />
Public TPS_AT As Float<br />
Public TPS_Inst_Temp As Float<br />
Public TPS_WS As Float<br />
Public TPS_CRC As String *4<br />
Public callstring As String * 3<br />
Public TPS_String As String * 200<br />
Public TPS_out_format2 As String *3<br />
Public TPS_timestamp2 As String * 10<br />
Public TPS_Fault_Ind2 As String * 7<br />
Public TPS_cur_precip2 As Float<br />
Public TPS_accum_precip2 As Float<br />
Public TPS_AT2 As Float<br />
Public TPS_Inst_Temp2 As Float<br />
Public TPS_WS2 As Float<br />
Public TPS_CRC2 As String *4<br />
Public callstring2 As String * 3<br />
Public TPS_String2 As String * 200<br />
Public LoggerTemp_C As Float<br />
Public BattVolts_V As Float<br />
<br />
<br />
Const num_samples = 100<br />
Public Amps<br />
Public Amp_mult<br />
Dim i_sig(num_samples)<br />
PreserveVariables<br />
<br />
Public Battery<br />
Public Air_TempC<br />
Public Air_TempF<br />
Public Depth<br />
<br />
'\\\\\\\\\\\\\\\\\\\\\\\\ OUTPUT SECTION ////////////////////////<br />
<br />
DataTable(TableTPSplus,true,-1)<br />
DataInterval(0,1,Min,0)<br />
Sample(1, TPS_out_format, FP2)<br />
Sample(1, TPS_timestamp, String)<br />
Sample(1, TPS_Fault_Ind, String)<br />
Sample(1, TPS_cur_precip,FP2)<br />
Sample(1, TPS_accum_precip,FP2)<br />
Sample(1, TPS_AT, FP2)<br />
Sample(1, TPS_Inst_Temp, FP2)<br />
Sample(1, TPS_WS, FP2)<br />
Sample(1, TPS_CRC, String)<br />
EndTable<br />
<br />
DataTable(AmpTable,True,-1)<br />
DataInterval(0,1,Min,10)<br />
Maximum(1,Amps,IEEE4,False,False)<br />
Average(1,Amps,FP2,False)<br />
EndTable<br />
<br />
<br />
DataTable(TableTPSplus2,true,-1)<br />
DataInterval(0,1,Min,0)<br />
Sample(1, TPS_out_format2, FP2)<br />
Sample(1, TPS_timestamp2, String)<br />
Sample(1, TPS_Fault_Ind2, String)<br />
Sample(1, TPS_cur_precip2,FP2)<br />
Sample(1, TPS_accum_precip2,FP2)<br />
Sample(1, TPS_AT2, FP2)<br />
Sample(1, TPS_Inst_Temp2, FP2)<br />
Sample(1, TPS_WS2, FP2)<br />
Sample(1, TPS_CRC2, String)<br />
<br />
EndTable<br />
<br />
DataTable(HourlyDiag,true,-1)<br />
DataInterval(0,60,Min,10)<br />
Sample(1, LoggerTemp_C,FP2)<br />
Average(1,LoggerTemp_C,FP2,False)<br />
Sample(1,BattVolts_V,FP2)<br />
Average(1,BattVolts_V,FP2,False)<br />
Maximum(1,BattVolts_V,FP2,False,False)<br />
Minimum(1,BattVolts_V,FP2,False,False)<br />
<br />
EndTable<br />
<br />
DataTable(DepthSensor,true,-1)<br />
OpenInterval<br />
DataInterval(0,1,Min,10)<br />
Average(1,Air_TempF,FP2,0)<br />
Sample(1,Depth,FP2)<br />
EndTable<br />
<br />
<br />
'\\\\\\\\\\\\\\\\\\\\\\\\\\\ PROGRAM ////////////////////////////<br />
<br />
BeginProg<br />
'Scan( 1,Min, 3, 0)<br />
Scan(250,mSec,10,0)<br />
SequentialMode<br />
'PipeLineMode<br />
'----------<br />
' Current sensor<br />
'----------<br />
<br />
Amp_mult = 0.2<br />
VoltSe(i_sig(1),num_samples,mV2500,-1,True,1000,0,1.0,0)<br />
StdDevSpa(Amps,num_samples,i_sig(1))<br />
Amps = Amps * Amp_mult<br />
CallTable AmpTable<br />
<br />
If IfTime(0,60,Sec) Then<br />
'SequentialMode<br />
'''''''''''''''''''''''''''''''''''''''''<br />
''' Measure TPS C1'''''''''''''''''''''''''<br />
'''''''''''''''''''''''''''''''''''''''''<br />
callstring = CHR (13 ) & CHR (13 ) & "T" & CHR (13 ) <br />
' 1) open the serial port<br />
SerialOpen (Com3,9600,0,300,10000)<br />
' 2) flush the port<br />
SerialFlush (Com3)<br />
' 3) Send the transmit code and put the response into variable TPS_String<br />
SerialOut (Com3,callstring,"",3,0)<br />
SerialIn (TPS_String,Com3,100,-1,100)<br />
' 4) Close the serial port<br />
SerialClose (Com3)<br />
' 5) Comma separate the string from the TPS<br />
'SplitStr (TPS_Array1(),TPS_String,",",8,2)<br />
' 6) Space separate the first bit o' data<br />
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)<br />
' 7) Star separate the last bit o' data<br />
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)<br />
TPS_out_format = Mid (TPS_String,3,3)<br />
TPS_timestamp = Mid(TPS_String,7,10)<br />
TPS_Fault_Ind = Mid(TPS_String,18,7)<br />
TPS_cur_precip = Mid(TPS_String,26,5)<br />
TPS_accum_precip = Mid(TPS_String,32,8)<br />
TPS_AT = Mid(TPS_String,41,5)<br />
TPS_Inst_Temp = Mid(TPS_String,47,5)<br />
TPS_WS = Mid(TPS_String,53,4)<br />
TPS_CRC = Mid(TPS_STring,58,4)<br />
<br />
'''''''''''''''''''''''''''''''''''''''''<br />
''' Measure TPS2 S1'''''''''''''''''''''''''<br />
'''''''''''''''''''''''''''''''''''''''''<br />
callstring2 = CHR (13 ) & CHR (13 ) & "T" & CHR (13 ) <br />
' 1) open the serial port<br />
SerialOpen (Com4,9600,0,300,10000)<br />
' 2) flush the port<br />
SerialFlush (Com4)<br />
' 3) Send the transmit code and put the response into variable TPS_String<br />
SerialOut (Com4,callstring2,"",3,0)<br />
SerialIn (TPS_String2,Com4,100,-1,100)<br />
' 4) Close the serial port<br />
SerialClose (Com4)<br />
' 5) Comma separate the string from the TPS<br />
'SplitStr (TPS_Array1(),TPS_String,",",8,2)<br />
' 6) Space separate the first bit o' data<br />
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)<br />
' 7) Star separate the last bit o' data<br />
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)<br />
TPS_out_format2 = Mid (TPS_String2,3,3)<br />
TPS_timestamp2 = Mid(TPS_String2,7,10)<br />
TPS_Fault_Ind2 = Mid(TPS_String2,18,7)<br />
TPS_cur_precip2 = Mid(TPS_String2,26,5)<br />
TPS_accum_precip2 = Mid(TPS_String2,32,8)<br />
TPS_AT2 = Mid(TPS_String2,41,5)<br />
TPS_Inst_Temp2 = Mid(TPS_String2,47,5)<br />
TPS_WS2 = Mid(TPS_String2,53,4)<br />
TPS_CRC2 = Mid(TPS_STring2,58,4)<br />
<br />
<br />
Battery (BattVolts_V)<br />
PanelTemp (LoggerTemp_C,250)<br />
<br />
<br />
'---------<br />
' judd<br />
'----------<br />
<br />
Battery(Battery)<br />
'Turn ON the depth sensor<br />
PortSet(1,1)<br />
'wait 0.8 seconds for the sensor to output the air temp<br />
Delay(0,800,MSEC)<br />
'air temp is output in milliVolts, scaled to Kelvin, <br />
'and then convert to Celsius.<br />
VoltDiff(Air_TempC,1,mV2500,3,True,0,250,0.2,-273)<br />
'Air temp is also converted and saved in F<br />
Air_TempF = Air_TempC * 1.8<br />
Air_TempF = Air_TempF +32<br />
'The depth sensor needs another 1.8 seconds to make up<br />
'to 10 measurements and perform error checking and <br />
'temp compensation<br />
Delay(0,1800,MSEC)<br />
'Distance is output in milliVolts, scaled to inches, and<br />
'then converted to depth by subtracting the distance<br />
'measured from the reference distance.<br />
'Use a multiplier of -.19685 for output in inches<br />
'and -.5 for output in centimeters.<br />
'<br />
'The following instruction is configured to output the measured distance in inches<br />
'To reconfigure the instruction to output depth in inches do the following:<br />
'Change the multiplier from .1968 to -.1968<br />
'Change the offset value from 0 to the distance measured<br />
VoltDiff(Depth,1,mV2500, 3,True,0,250,0.1968,0)<br />
'Turn off the sensor<br />
PortSet(1,0)<br />
<br />
<br />
' TPS Aliases<br />
'Alias TPS_Array2(2) = TPS_out_format<br />
'Alias TPS_Array1(2) = TPS_timestamp<br />
'Alias TPS_Array1(3) = TPS_Fault_Ind<br />
'Alias TPS_Array1(4) = TPS_cur_precip<br />
'Alias TPS_Array1(5) = TPS_accum_precip<br />
'Alias TPS_Array1(6) = TPS_AT<br />
'Alias TPS_Array1(7) = TPS_Inst_Temp<br />
'Alias TPS_Array3(1) = TPS_WS<br />
'Alias TPS_Array3(2) = TPS_CRC<br />
<br />
<br />
<br />
<br />
<br />
'------------------------------------------------<br />
'Log sensor output once an hour<br />
<br />
CallTable DepthSensor<br />
CallTable TableTPSplus<br />
CallTable TableTPSplus2<br />
CallTable HourlyDiag<br />
endif<br />
NextScan<br />
EndProg</div>137.229.92.134http://ocotal.iarc.uaf.edu/index.php?title=Barrow_ARM_TPS_Program&diff=2021Barrow ARM TPS Program2013-05-06T22:12:19Z<p>137.229.92.134: </p>
<hr />
<div><math>'CR1000 Series Datalogger<br />
'To create a different opening program template, type in new<br />
'instructions and select Template | Save as Default Template<br />
'date:<br />
'program author:<br />
<br />
'Declare Public Variables<br />
<br />
<br />
' Wiring:<br />
' TPS-3100 Sensor<br />
'Wire Purpose Datalogger<br />
'____________________________________<br />
' Pin 2 RS232 TPSc1 RX C5 (white)<br />
' Pin 3 RS232 TPSc1 TX C6 (red)<br />
' Pin 5 RS232 Gc1 G (black, green)<br />
<br />
' Pin 2 RS232 TPSs1 RX C7 (white)<br />
' Pin 3 RS232 TPSs1 TX C8 (red)<br />
' Pin 5 RS232 Gs1 G (black, green)<br />
<br />
'CS10_L sensor (actually a CS15_L)<br />
' CS10 white SE1<br />
' CS10 red AG<br />
' CS10 black AG<br />
' CS10 clear AG<br />
<br />
'Judd snow depth (analog)<br />
'Wire Purpose Datalogger<br />
'____________________________________<br />
'Clear Shield G<br />
'Black Power - G<br />
'Red Power + +12V<br />
'Green On/Off C1<br />
'White Signal + 3H<br />
'Brown Signal - 3L<br />
<br />
' C1 -- Judd, green<br />
' C5 -- TPSc1 RX, white <br />
' C6 -- TPSc1 TX, red<br />
' C7 -- TPSs1 RX, white<br />
' C8 -- TPSs1 TX, red<br />
' SE 1 -- CS10, white<br />
' SE 5 -- Judd, white<br />
' SE 6 -- Judd, brown<br />
' AG -- CS10, red, black, clear<br />
' G -- Judd, clear, black<br />
' 12v -- Judd, red<br />
<br />
Public TPS_out_format As String *3<br />
Public TPS_timestamp As String * 10<br />
Public TPS_Fault_Ind As String * 7<br />
Public TPS_cur_precip As Float<br />
Public TPS_accum_precip As Float<br />
Public TPS_AT As Float<br />
Public TPS_Inst_Temp As Float<br />
Public TPS_WS As Float<br />
Public TPS_CRC As String *4<br />
Public callstring As String * 3<br />
Public TPS_String As String * 200<br />
Public TPS_out_format2 As String *3<br />
Public TPS_timestamp2 As String * 10<br />
Public TPS_Fault_Ind2 As String * 7<br />
Public TPS_cur_precip2 As Float<br />
Public TPS_accum_precip2 As Float<br />
Public TPS_AT2 As Float<br />
Public TPS_Inst_Temp2 As Float<br />
Public TPS_WS2 As Float<br />
Public TPS_CRC2 As String *4<br />
Public callstring2 As String * 3<br />
Public TPS_String2 As String * 200<br />
Public LoggerTemp_C As Float<br />
Public BattVolts_V As Float<br />
<br />
<br />
Const num_samples = 100<br />
Public Amps<br />
Public Amp_mult<br />
Dim i_sig(num_samples)<br />
PreserveVariables<br />
<br />
Public Battery<br />
Public Air_TempC<br />
Public Air_TempF<br />
Public Depth<br />
<br />
'\\\\\\\\\\\\\\\\\\\\\\\\ OUTPUT SECTION ////////////////////////<br />
<br />
DataTable(TableTPSplus,true,-1)<br />
DataInterval(0,1,Min,0)<br />
Sample(1, TPS_out_format, FP2)<br />
Sample(1, TPS_timestamp, String)<br />
Sample(1, TPS_Fault_Ind, String)<br />
Sample(1, TPS_cur_precip,FP2)<br />
Sample(1, TPS_accum_precip,FP2)<br />
Sample(1, TPS_AT, FP2)<br />
Sample(1, TPS_Inst_Temp, FP2)<br />
Sample(1, TPS_WS, FP2)<br />
Sample(1, TPS_CRC, String)<br />
EndTable<br />
<br />
DataTable(AmpTable,True,-1)<br />
DataInterval(0,1,Min,10)<br />
Maximum(1,Amps,IEEE4,False,False)<br />
Average(1,Amps,FP2,False)<br />
EndTable<br />
<br />
<br />
DataTable(TableTPSplus2,true,-1)<br />
DataInterval(0,1,Min,0)<br />
Sample(1, TPS_out_format2, FP2)<br />
Sample(1, TPS_timestamp2, String)<br />
Sample(1, TPS_Fault_Ind2, String)<br />
Sample(1, TPS_cur_precip2,FP2)<br />
Sample(1, TPS_accum_precip2,FP2)<br />
Sample(1, TPS_AT2, FP2)<br />
Sample(1, TPS_Inst_Temp2, FP2)<br />
Sample(1, TPS_WS2, FP2)<br />
Sample(1, TPS_CRC2, String)<br />
<br />
EndTable<br />
<br />
DataTable(HourlyDiag,true,-1)<br />
DataInterval(0,60,Min,10)<br />
Sample(1, LoggerTemp_C,FP2)<br />
Average(1,LoggerTemp_C,FP2,False)<br />
Sample(1,BattVolts_V,FP2)<br />
Average(1,BattVolts_V,FP2,False)<br />
Maximum(1,BattVolts_V,FP2,False,False)<br />
Minimum(1,BattVolts_V,FP2,False,False)<br />
<br />
EndTable<br />
<br />
DataTable(DepthSensor,true,-1)<br />
OpenInterval<br />
DataInterval(0,1,Min,10)<br />
Average(1,Air_TempF,FP2,0)<br />
Sample(1,Depth,FP2)<br />
EndTable<br />
<br />
<br />
'\\\\\\\\\\\\\\\\\\\\\\\\\\\ PROGRAM ////////////////////////////<br />
<br />
BeginProg<br />
'Scan( 1,Min, 3, 0)<br />
Scan(250,mSec,10,0)<br />
SequentialMode<br />
'PipeLineMode<br />
'----------<br />
' Current sensor<br />
'----------<br />
<br />
Amp_mult = 0.2<br />
VoltSe(i_sig(1),num_samples,mV2500,-1,True,1000,0,1.0,0)<br />
StdDevSpa(Amps,num_samples,i_sig(1))<br />
Amps = Amps * Amp_mult<br />
CallTable AmpTable<br />
<br />
If IfTime(0,60,Sec) Then<br />
'SequentialMode<br />
'''''''''''''''''''''''''''''''''''''''''<br />
''' Measure TPS C1'''''''''''''''''''''''''<br />
'''''''''''''''''''''''''''''''''''''''''<br />
callstring = CHR (13 ) & CHR (13 ) & "T" & CHR (13 ) <br />
' 1) open the serial port<br />
SerialOpen (Com3,9600,0,300,10000)<br />
' 2) flush the port<br />
SerialFlush (Com3)<br />
' 3) Send the transmit code and put the response into variable TPS_String<br />
SerialOut (Com3,callstring,"",3,0)<br />
SerialIn (TPS_String,Com3,100,-1,100)<br />
' 4) Close the serial port<br />
SerialClose (Com3)<br />
' 5) Comma separate the string from the TPS<br />
'SplitStr (TPS_Array1(),TPS_String,",",8,2)<br />
' 6) Space separate the first bit o' data<br />
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)<br />
' 7) Star separate the last bit o' data<br />
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)<br />
TPS_out_format = Mid (TPS_String,3,3)<br />
TPS_timestamp = Mid(TPS_String,7,10)<br />
TPS_Fault_Ind = Mid(TPS_String,18,7)<br />
TPS_cur_precip = Mid(TPS_String,26,5)<br />
TPS_accum_precip = Mid(TPS_String,32,8)<br />
TPS_AT = Mid(TPS_String,41,5)<br />
TPS_Inst_Temp = Mid(TPS_String,47,5)<br />
TPS_WS = Mid(TPS_String,53,4)<br />
TPS_CRC = Mid(TPS_STring,58,4)<br />
<br />
'''''''''''''''''''''''''''''''''''''''''<br />
''' Measure TPS2 S1'''''''''''''''''''''''''<br />
'''''''''''''''''''''''''''''''''''''''''<br />
callstring2 = CHR (13 ) & CHR (13 ) & "T" & CHR (13 ) <br />
' 1) open the serial port<br />
SerialOpen (Com4,9600,0,300,10000)<br />
' 2) flush the port<br />
SerialFlush (Com4)<br />
' 3) Send the transmit code and put the response into variable TPS_String<br />
SerialOut (Com4,callstring2,"",3,0)<br />
SerialIn (TPS_String2,Com4,100,-1,100)<br />
' 4) Close the serial port<br />
SerialClose (Com4)<br />
' 5) Comma separate the string from the TPS<br />
'SplitStr (TPS_Array1(),TPS_String,",",8,2)<br />
' 6) Space separate the first bit o' data<br />
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)<br />
' 7) Star separate the last bit o' data<br />
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)<br />
TPS_out_format2 = Mid (TPS_String2,3,3)<br />
TPS_timestamp2 = Mid(TPS_String2,7,10)<br />
TPS_Fault_Ind2 = Mid(TPS_String2,18,7)<br />
TPS_cur_precip2 = Mid(TPS_String2,26,5)<br />
TPS_accum_precip2 = Mid(TPS_String2,32,8)<br />
TPS_AT2 = Mid(TPS_String2,41,5)<br />
TPS_Inst_Temp2 = Mid(TPS_String2,47,5)<br />
TPS_WS2 = Mid(TPS_String2,53,4)<br />
TPS_CRC2 = Mid(TPS_STring2,58,4)<br />
<br />
<br />
Battery (BattVolts_V)<br />
PanelTemp (LoggerTemp_C,250)<br />
<br />
<br />
'---------<br />
' judd<br />
'----------<br />
<br />
Battery(Battery)<br />
'Turn ON the depth sensor<br />
PortSet(1,1)<br />
'wait 0.8 seconds for the sensor to output the air temp<br />
Delay(0,800,MSEC)<br />
'air temp is output in milliVolts, scaled to Kelvin, <br />
'and then convert to Celsius.<br />
VoltDiff(Air_TempC,1,mV2500,3,True,0,250,0.2,-273)<br />
'Air temp is also converted and saved in F<br />
Air_TempF = Air_TempC * 1.8<br />
Air_TempF = Air_TempF +32<br />
'The depth sensor needs another 1.8 seconds to make up<br />
'to 10 measurements and perform error checking and <br />
'temp compensation<br />
Delay(0,1800,MSEC)<br />
'Distance is output in milliVolts, scaled to inches, and<br />
'then converted to depth by subtracting the distance<br />
'measured from the reference distance.<br />
'Use a multiplier of -.19685 for output in inches<br />
'and -.5 for output in centimeters.<br />
'<br />
'The following instruction is configured to output the measured distance in inches<br />
'To reconfigure the instruction to output depth in inches do the following:<br />
'Change the multiplier from .1968 to -.1968<br />
'Change the offset value from 0 to the distance measured<br />
VoltDiff(Depth,1,mV2500, 3,True,0,250,0.1968,0)<br />
'Turn off the sensor<br />
PortSet(1,0)<br />
<br />
<br />
' TPS Aliases<br />
'Alias TPS_Array2(2) = TPS_out_format<br />
'Alias TPS_Array1(2) = TPS_timestamp<br />
'Alias TPS_Array1(3) = TPS_Fault_Ind<br />
'Alias TPS_Array1(4) = TPS_cur_precip<br />
'Alias TPS_Array1(5) = TPS_accum_precip<br />
'Alias TPS_Array1(6) = TPS_AT<br />
'Alias TPS_Array1(7) = TPS_Inst_Temp<br />
'Alias TPS_Array3(1) = TPS_WS<br />
'Alias TPS_Array3(2) = TPS_CRC<br />
<br />
<br />
<br />
<br />
<br />
'------------------------------------------------<br />
'Log sensor output once an hour<br />
<br />
CallTable DepthSensor<br />
CallTable TableTPSplus<br />
CallTable TableTPSplus2<br />
CallTable HourlyDiag<br />
endif<br />
NextScan<br />
EndProg</math></div>137.229.92.134http://ocotal.iarc.uaf.edu/index.php?title=Barrow_ARM_TPS_Program&diff=2020Barrow ARM TPS Program2013-05-06T22:11:46Z<p>137.229.92.134: </p>
<hr />
<div>'CR1000 Series Datalogger<br />
'To create a different opening program template, type in new<br />
'instructions and select Template | Save as Default Template<br />
'date:<br />
'program author:<br />
<br />
'Declare Public Variables<br />
<br />
<br />
' Wiring:<br />
' TPS-3100 Sensor<br />
'Wire Purpose Datalogger<br />
'____________________________________<br />
' Pin 2 RS232 TPSc1 RX C5 (white)<br />
' Pin 3 RS232 TPSc1 TX C6 (red)<br />
' Pin 5 RS232 Gc1 G (black, green)<br />
<br />
' Pin 2 RS232 TPSs1 RX C7 (white)<br />
' Pin 3 RS232 TPSs1 TX C8 (red)<br />
' Pin 5 RS232 Gs1 G (black, green)<br />
<br />
'CS10_L sensor (actually a CS15_L)<br />
' CS10 white SE1<br />
' CS10 red AG<br />
' CS10 black AG<br />
' CS10 clear AG<br />
<br />
'Judd snow depth (analog)<br />
'Wire Purpose Datalogger<br />
'____________________________________<br />
'Clear Shield G<br />
'Black Power - G<br />
'Red Power + +12V<br />
'Green On/Off C1<br />
'White Signal + 3H<br />
'Brown Signal - 3L<br />
<br />
' C1 -- Judd, green<br />
' C5 -- TPSc1 RX, white <br />
' C6 -- TPSc1 TX, red<br />
' C7 -- TPSs1 RX, white<br />
' C8 -- TPSs1 TX, red<br />
' SE 1 -- CS10, white<br />
' SE 5 -- Judd, white<br />
' SE 6 -- Judd, brown<br />
' AG -- CS10, red, black, clear<br />
' G -- Judd, clear, black<br />
' 12v -- Judd, red<br />
<br />
Public TPS_out_format As String *3<br />
Public TPS_timestamp As String * 10<br />
Public TPS_Fault_Ind As String * 7<br />
Public TPS_cur_precip As Float<br />
Public TPS_accum_precip As Float<br />
Public TPS_AT As Float<br />
Public TPS_Inst_Temp As Float<br />
Public TPS_WS As Float<br />
Public TPS_CRC As String *4<br />
Public callstring As String * 3<br />
Public TPS_String As String * 200<br />
Public TPS_out_format2 As String *3<br />
Public TPS_timestamp2 As String * 10<br />
Public TPS_Fault_Ind2 As String * 7<br />
Public TPS_cur_precip2 As Float<br />
Public TPS_accum_precip2 As Float<br />
Public TPS_AT2 As Float<br />
Public TPS_Inst_Temp2 As Float<br />
Public TPS_WS2 As Float<br />
Public TPS_CRC2 As String *4<br />
Public callstring2 As String * 3<br />
Public TPS_String2 As String * 200<br />
Public LoggerTemp_C As Float<br />
Public BattVolts_V As Float<br />
<br />
<br />
Const num_samples = 100<br />
Public Amps<br />
Public Amp_mult<br />
Dim i_sig(num_samples)<br />
PreserveVariables<br />
<br />
Public Battery<br />
Public Air_TempC<br />
Public Air_TempF<br />
Public Depth<br />
<br />
'\\\\\\\\\\\\\\\\\\\\\\\\ OUTPUT SECTION ////////////////////////<br />
<br />
DataTable(TableTPSplus,true,-1)<br />
DataInterval(0,1,Min,0)<br />
Sample(1, TPS_out_format, FP2)<br />
Sample(1, TPS_timestamp, String)<br />
Sample(1, TPS_Fault_Ind, String)<br />
Sample(1, TPS_cur_precip,FP2)<br />
Sample(1, TPS_accum_precip,FP2)<br />
Sample(1, TPS_AT, FP2)<br />
Sample(1, TPS_Inst_Temp, FP2)<br />
Sample(1, TPS_WS, FP2)<br />
Sample(1, TPS_CRC, String)<br />
EndTable<br />
<br />
DataTable(AmpTable,True,-1)<br />
DataInterval(0,1,Min,10)<br />
Maximum(1,Amps,IEEE4,False,False)<br />
Average(1,Amps,FP2,False)<br />
EndTable<br />
<br />
<br />
DataTable(TableTPSplus2,true,-1)<br />
DataInterval(0,1,Min,0)<br />
Sample(1, TPS_out_format2, FP2)<br />
Sample(1, TPS_timestamp2, String)<br />
Sample(1, TPS_Fault_Ind2, String)<br />
Sample(1, TPS_cur_precip2,FP2)<br />
Sample(1, TPS_accum_precip2,FP2)<br />
Sample(1, TPS_AT2, FP2)<br />
Sample(1, TPS_Inst_Temp2, FP2)<br />
Sample(1, TPS_WS2, FP2)<br />
Sample(1, TPS_CRC2, String)<br />
<br />
EndTable<br />
<br />
DataTable(HourlyDiag,true,-1)<br />
DataInterval(0,60,Min,10)<br />
Sample(1, LoggerTemp_C,FP2)<br />
Average(1,LoggerTemp_C,FP2,False)<br />
Sample(1,BattVolts_V,FP2)<br />
Average(1,BattVolts_V,FP2,False)<br />
Maximum(1,BattVolts_V,FP2,False,False)<br />
Minimum(1,BattVolts_V,FP2,False,False)<br />
<br />
EndTable<br />
<br />
DataTable(DepthSensor,true,-1)<br />
OpenInterval<br />
DataInterval(0,1,Min,10)<br />
Average(1,Air_TempF,FP2,0)<br />
Sample(1,Depth,FP2)<br />
EndTable<br />
<br />
<br />
'\\\\\\\\\\\\\\\\\\\\\\\\\\\ PROGRAM ////////////////////////////<br />
<br />
BeginProg<br />
'Scan( 1,Min, 3, 0)<br />
Scan(250,mSec,10,0)<br />
SequentialMode<br />
'PipeLineMode<br />
'----------<br />
' Current sensor<br />
'----------<br />
<br />
Amp_mult = 0.2<br />
VoltSe(i_sig(1),num_samples,mV2500,-1,True,1000,0,1.0,0)<br />
StdDevSpa(Amps,num_samples,i_sig(1))<br />
Amps = Amps * Amp_mult<br />
CallTable AmpTable<br />
<br />
If IfTime(0,60,Sec) Then<br />
'SequentialMode<br />
'''''''''''''''''''''''''''''''''''''''''<br />
''' Measure TPS C1'''''''''''''''''''''''''<br />
'''''''''''''''''''''''''''''''''''''''''<br />
callstring = CHR (13 ) & CHR (13 ) & "T" & CHR (13 ) <br />
' 1) open the serial port<br />
SerialOpen (Com3,9600,0,300,10000)<br />
' 2) flush the port<br />
SerialFlush (Com3)<br />
' 3) Send the transmit code and put the response into variable TPS_String<br />
SerialOut (Com3,callstring,"",3,0)<br />
SerialIn (TPS_String,Com3,100,-1,100)<br />
' 4) Close the serial port<br />
SerialClose (Com3)<br />
' 5) Comma separate the string from the TPS<br />
'SplitStr (TPS_Array1(),TPS_String,",",8,2)<br />
' 6) Space separate the first bit o' data<br />
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)<br />
' 7) Star separate the last bit o' data<br />
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)<br />
TPS_out_format = Mid (TPS_String,3,3)<br />
TPS_timestamp = Mid(TPS_String,7,10)<br />
TPS_Fault_Ind = Mid(TPS_String,18,7)<br />
TPS_cur_precip = Mid(TPS_String,26,5)<br />
TPS_accum_precip = Mid(TPS_String,32,8)<br />
TPS_AT = Mid(TPS_String,41,5)<br />
TPS_Inst_Temp = Mid(TPS_String,47,5)<br />
TPS_WS = Mid(TPS_String,53,4)<br />
TPS_CRC = Mid(TPS_STring,58,4)<br />
<br />
'''''''''''''''''''''''''''''''''''''''''<br />
''' Measure TPS2 S1'''''''''''''''''''''''''<br />
'''''''''''''''''''''''''''''''''''''''''<br />
callstring2 = CHR (13 ) & CHR (13 ) & "T" & CHR (13 ) <br />
' 1) open the serial port<br />
SerialOpen (Com4,9600,0,300,10000)<br />
' 2) flush the port<br />
SerialFlush (Com4)<br />
' 3) Send the transmit code and put the response into variable TPS_String<br />
SerialOut (Com4,callstring2,"",3,0)<br />
SerialIn (TPS_String2,Com4,100,-1,100)<br />
' 4) Close the serial port<br />
SerialClose (Com4)<br />
' 5) Comma separate the string from the TPS<br />
'SplitStr (TPS_Array1(),TPS_String,",",8,2)<br />
' 6) Space separate the first bit o' data<br />
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)<br />
' 7) Star separate the last bit o' data<br />
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)<br />
TPS_out_format2 = Mid (TPS_String2,3,3)<br />
TPS_timestamp2 = Mid(TPS_String2,7,10)<br />
TPS_Fault_Ind2 = Mid(TPS_String2,18,7)<br />
TPS_cur_precip2 = Mid(TPS_String2,26,5)<br />
TPS_accum_precip2 = Mid(TPS_String2,32,8)<br />
TPS_AT2 = Mid(TPS_String2,41,5)<br />
TPS_Inst_Temp2 = Mid(TPS_String2,47,5)<br />
TPS_WS2 = Mid(TPS_String2,53,4)<br />
TPS_CRC2 = Mid(TPS_STring2,58,4)<br />
<br />
<br />
Battery (BattVolts_V)<br />
PanelTemp (LoggerTemp_C,250)<br />
<br />
<br />
'---------<br />
' judd<br />
'----------<br />
<br />
Battery(Battery)<br />
'Turn ON the depth sensor<br />
PortSet(1,1)<br />
'wait 0.8 seconds for the sensor to output the air temp<br />
Delay(0,800,MSEC)<br />
'air temp is output in milliVolts, scaled to Kelvin, <br />
'and then convert to Celsius.<br />
VoltDiff(Air_TempC,1,mV2500,3,True,0,250,0.2,-273)<br />
'Air temp is also converted and saved in F<br />
Air_TempF = Air_TempC * 1.8<br />
Air_TempF = Air_TempF +32<br />
'The depth sensor needs another 1.8 seconds to make up<br />
'to 10 measurements and perform error checking and <br />
'temp compensation<br />
Delay(0,1800,MSEC)<br />
'Distance is output in milliVolts, scaled to inches, and<br />
'then converted to depth by subtracting the distance<br />
'measured from the reference distance.<br />
'Use a multiplier of -.19685 for output in inches<br />
'and -.5 for output in centimeters.<br />
'<br />
'The following instruction is configured to output the measured distance in inches<br />
'To reconfigure the instruction to output depth in inches do the following:<br />
'Change the multiplier from .1968 to -.1968<br />
'Change the offset value from 0 to the distance measured<br />
VoltDiff(Depth,1,mV2500, 3,True,0,250,0.1968,0)<br />
'Turn off the sensor<br />
PortSet(1,0)<br />
<br />
<br />
' TPS Aliases<br />
'Alias TPS_Array2(2) = TPS_out_format<br />
'Alias TPS_Array1(2) = TPS_timestamp<br />
'Alias TPS_Array1(3) = TPS_Fault_Ind<br />
'Alias TPS_Array1(4) = TPS_cur_precip<br />
'Alias TPS_Array1(5) = TPS_accum_precip<br />
'Alias TPS_Array1(6) = TPS_AT<br />
'Alias TPS_Array1(7) = TPS_Inst_Temp<br />
'Alias TPS_Array3(1) = TPS_WS<br />
'Alias TPS_Array3(2) = TPS_CRC<br />
<br />
<br />
<br />
<br />
<br />
'------------------------------------------------<br />
'Log sensor output once an hour<br />
<br />
CallTable DepthSensor<br />
CallTable TableTPSplus<br />
CallTable TableTPSplus2<br />
CallTable HourlyDiag<br />
endif<br />
NextScan<br />
EndProg</div>137.229.92.134http://ocotal.iarc.uaf.edu/index.php?title=Barrow_ARM_TPS_Program&diff=2019Barrow ARM TPS Program2013-05-06T22:10:05Z<p>137.229.92.134: </p>
<hr />
<div><code>'CR1000 Series Datalogger<br />
'To create a different opening program template, type in new<br />
'instructions and select Template | Save as Default Template<br />
'date:<br />
'program author:<br />
<br />
'Declare Public Variables<br />
<br />
<br />
' Wiring:<br />
' TPS-3100 Sensor<br />
'Wire Purpose Datalogger<br />
'____________________________________<br />
' Pin 2 RS232 TPSc1 RX C5 (white)<br />
' Pin 3 RS232 TPSc1 TX C6 (red)<br />
' Pin 5 RS232 Gc1 G (black, green)<br />
<br />
' Pin 2 RS232 TPSs1 RX C7 (white)<br />
' Pin 3 RS232 TPSs1 TX C8 (red)<br />
' Pin 5 RS232 Gs1 G (black, green)<br />
<br />
'CS10_L sensor (actually a CS15_L)<br />
' CS10 white SE1<br />
' CS10 red AG<br />
' CS10 black AG<br />
' CS10 clear AG<br />
<br />
'Judd snow depth (analog)<br />
'Wire Purpose Datalogger<br />
'____________________________________<br />
'Clear Shield G<br />
'Black Power - G<br />
'Red Power + +12V<br />
'Green On/Off C1<br />
'White Signal + 3H<br />
'Brown Signal - 3L<br />
<br />
' C1 -- Judd, green<br />
' C5 -- TPSc1 RX, white <br />
' C6 -- TPSc1 TX, red<br />
' C7 -- TPSs1 RX, white<br />
' C8 -- TPSs1 TX, red<br />
' SE 1 -- CS10, white<br />
' SE 5 -- Judd, white<br />
' SE 6 -- Judd, brown<br />
' AG -- CS10, red, black, clear<br />
' G -- Judd, clear, black<br />
' 12v -- Judd, red<br />
<br />
Public TPS_out_format As String *3<br />
Public TPS_timestamp As String * 10<br />
Public TPS_Fault_Ind As String * 7<br />
Public TPS_cur_precip As Float<br />
Public TPS_accum_precip As Float<br />
Public TPS_AT As Float<br />
Public TPS_Inst_Temp As Float<br />
Public TPS_WS As Float<br />
Public TPS_CRC As String *4<br />
Public callstring As String * 3<br />
Public TPS_String As String * 200<br />
Public TPS_out_format2 As String *3<br />
Public TPS_timestamp2 As String * 10<br />
Public TPS_Fault_Ind2 As String * 7<br />
Public TPS_cur_precip2 As Float<br />
Public TPS_accum_precip2 As Float<br />
Public TPS_AT2 As Float<br />
Public TPS_Inst_Temp2 As Float<br />
Public TPS_WS2 As Float<br />
Public TPS_CRC2 As String *4<br />
Public callstring2 As String * 3<br />
Public TPS_String2 As String * 200<br />
Public LoggerTemp_C As Float<br />
Public BattVolts_V As Float<br />
<br />
<br />
Const num_samples = 100<br />
Public Amps<br />
Public Amp_mult<br />
Dim i_sig(num_samples)<br />
PreserveVariables<br />
<br />
Public Battery<br />
Public Air_TempC<br />
Public Air_TempF<br />
Public Depth<br />
<br />
'\\\\\\\\\\\\\\\\\\\\\\\\ OUTPUT SECTION ////////////////////////<br />
<br />
DataTable(TableTPSplus,true,-1)<br />
DataInterval(0,1,Min,0)<br />
Sample(1, TPS_out_format, FP2)<br />
Sample(1, TPS_timestamp, String)<br />
Sample(1, TPS_Fault_Ind, String)<br />
Sample(1, TPS_cur_precip,FP2)<br />
Sample(1, TPS_accum_precip,FP2)<br />
Sample(1, TPS_AT, FP2)<br />
Sample(1, TPS_Inst_Temp, FP2)<br />
Sample(1, TPS_WS, FP2)<br />
Sample(1, TPS_CRC, String)<br />
EndTable<br />
<br />
DataTable(AmpTable,True,-1)<br />
DataInterval(0,1,Min,10)<br />
Maximum(1,Amps,IEEE4,False,False)<br />
Average(1,Amps,FP2,False)<br />
EndTable<br />
<br />
<br />
DataTable(TableTPSplus2,true,-1)<br />
DataInterval(0,1,Min,0)<br />
Sample(1, TPS_out_format2, FP2)<br />
Sample(1, TPS_timestamp2, String)<br />
Sample(1, TPS_Fault_Ind2, String)<br />
Sample(1, TPS_cur_precip2,FP2)<br />
Sample(1, TPS_accum_precip2,FP2)<br />
Sample(1, TPS_AT2, FP2)<br />
Sample(1, TPS_Inst_Temp2, FP2)<br />
Sample(1, TPS_WS2, FP2)<br />
Sample(1, TPS_CRC2, String)<br />
<br />
EndTable<br />
<br />
DataTable(HourlyDiag,true,-1)<br />
DataInterval(0,60,Min,10)<br />
Sample(1, LoggerTemp_C,FP2)<br />
Average(1,LoggerTemp_C,FP2,False)<br />
Sample(1,BattVolts_V,FP2)<br />
Average(1,BattVolts_V,FP2,False)<br />
Maximum(1,BattVolts_V,FP2,False,False)<br />
Minimum(1,BattVolts_V,FP2,False,False)<br />
<br />
EndTable<br />
<br />
DataTable(DepthSensor,true,-1)<br />
OpenInterval<br />
DataInterval(0,1,Min,10)<br />
Average(1,Air_TempF,FP2,0)<br />
Sample(1,Depth,FP2)<br />
EndTable<br />
<br />
<br />
'\\\\\\\\\\\\\\\\\\\\\\\\\\\ PROGRAM ////////////////////////////<br />
<br />
BeginProg<br />
'Scan( 1,Min, 3, 0)<br />
Scan(250,mSec,10,0)<br />
SequentialMode<br />
'PipeLineMode<br />
'----------<br />
' Current sensor<br />
'----------<br />
<br />
Amp_mult = 0.2<br />
VoltSe(i_sig(1),num_samples,mV2500,-1,True,1000,0,1.0,0)<br />
StdDevSpa(Amps,num_samples,i_sig(1))<br />
Amps = Amps * Amp_mult<br />
CallTable AmpTable<br />
<br />
If IfTime(0,60,Sec) Then<br />
'SequentialMode<br />
'''''''''''''''''''''''''''''''''''''''''<br />
''' Measure TPS C1'''''''''''''''''''''''''<br />
'''''''''''''''''''''''''''''''''''''''''<br />
callstring = CHR (13 ) & CHR (13 ) & "T" & CHR (13 ) <br />
' 1) open the serial port<br />
SerialOpen (Com3,9600,0,300,10000)<br />
' 2) flush the port<br />
SerialFlush (Com3)<br />
' 3) Send the transmit code and put the response into variable TPS_String<br />
SerialOut (Com3,callstring,"",3,0)<br />
SerialIn (TPS_String,Com3,100,-1,100)<br />
' 4) Close the serial port<br />
SerialClose (Com3)<br />
' 5) Comma separate the string from the TPS<br />
'SplitStr (TPS_Array1(),TPS_String,",",8,2)<br />
' 6) Space separate the first bit o' data<br />
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)<br />
' 7) Star separate the last bit o' data<br />
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)<br />
TPS_out_format = Mid (TPS_String,3,3)<br />
TPS_timestamp = Mid(TPS_String,7,10)<br />
TPS_Fault_Ind = Mid(TPS_String,18,7)<br />
TPS_cur_precip = Mid(TPS_String,26,5)<br />
TPS_accum_precip = Mid(TPS_String,32,8)<br />
TPS_AT = Mid(TPS_String,41,5)<br />
TPS_Inst_Temp = Mid(TPS_String,47,5)<br />
TPS_WS = Mid(TPS_String,53,4)<br />
TPS_CRC = Mid(TPS_STring,58,4)<br />
<br />
'''''''''''''''''''''''''''''''''''''''''<br />
''' Measure TPS2 S1'''''''''''''''''''''''''<br />
'''''''''''''''''''''''''''''''''''''''''<br />
callstring2 = CHR (13 ) & CHR (13 ) & "T" & CHR (13 ) <br />
' 1) open the serial port<br />
SerialOpen (Com4,9600,0,300,10000)<br />
' 2) flush the port<br />
SerialFlush (Com4)<br />
' 3) Send the transmit code and put the response into variable TPS_String<br />
SerialOut (Com4,callstring2,"",3,0)<br />
SerialIn (TPS_String2,Com4,100,-1,100)<br />
' 4) Close the serial port<br />
SerialClose (Com4)<br />
' 5) Comma separate the string from the TPS<br />
'SplitStr (TPS_Array1(),TPS_String,",",8,2)<br />
' 6) Space separate the first bit o' data<br />
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)<br />
' 7) Star separate the last bit o' data<br />
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)<br />
TPS_out_format2 = Mid (TPS_String2,3,3)<br />
TPS_timestamp2 = Mid(TPS_String2,7,10)<br />
TPS_Fault_Ind2 = Mid(TPS_String2,18,7)<br />
TPS_cur_precip2 = Mid(TPS_String2,26,5)<br />
TPS_accum_precip2 = Mid(TPS_String2,32,8)<br />
TPS_AT2 = Mid(TPS_String2,41,5)<br />
TPS_Inst_Temp2 = Mid(TPS_String2,47,5)<br />
TPS_WS2 = Mid(TPS_String2,53,4)<br />
TPS_CRC2 = Mid(TPS_STring2,58,4)<br />
<br />
<br />
Battery (BattVolts_V)<br />
PanelTemp (LoggerTemp_C,250)<br />
<br />
<br />
'---------<br />
' judd<br />
'----------<br />
<br />
Battery(Battery)<br />
'Turn ON the depth sensor<br />
PortSet(1,1)<br />
'wait 0.8 seconds for the sensor to output the air temp<br />
Delay(0,800,MSEC)<br />
'air temp is output in milliVolts, scaled to Kelvin, <br />
'and then convert to Celsius.<br />
VoltDiff(Air_TempC,1,mV2500,3,True,0,250,0.2,-273)<br />
'Air temp is also converted and saved in F<br />
Air_TempF = Air_TempC * 1.8<br />
Air_TempF = Air_TempF +32<br />
'The depth sensor needs another 1.8 seconds to make up<br />
'to 10 measurements and perform error checking and <br />
'temp compensation<br />
Delay(0,1800,MSEC)<br />
'Distance is output in milliVolts, scaled to inches, and<br />
'then converted to depth by subtracting the distance<br />
'measured from the reference distance.<br />
'Use a multiplier of -.19685 for output in inches<br />
'and -.5 for output in centimeters.<br />
'<br />
'The following instruction is configured to output the measured distance in inches<br />
'To reconfigure the instruction to output depth in inches do the following:<br />
'Change the multiplier from .1968 to -.1968<br />
'Change the offset value from 0 to the distance measured<br />
VoltDiff(Depth,1,mV2500, 3,True,0,250,0.1968,0)<br />
'Turn off the sensor<br />
PortSet(1,0)<br />
<br />
<br />
' TPS Aliases<br />
'Alias TPS_Array2(2) = TPS_out_format<br />
'Alias TPS_Array1(2) = TPS_timestamp<br />
'Alias TPS_Array1(3) = TPS_Fault_Ind<br />
'Alias TPS_Array1(4) = TPS_cur_precip<br />
'Alias TPS_Array1(5) = TPS_accum_precip<br />
'Alias TPS_Array1(6) = TPS_AT<br />
'Alias TPS_Array1(7) = TPS_Inst_Temp<br />
'Alias TPS_Array3(1) = TPS_WS<br />
'Alias TPS_Array3(2) = TPS_CRC<br />
<br />
<br />
<br />
<br />
<br />
'------------------------------------------------<br />
'Log sensor output once an hour<br />
<br />
CallTable DepthSensor<br />
CallTable TableTPSplus<br />
CallTable TableTPSplus2<br />
CallTable HourlyDiag<br />
endif<br />
NextScan<br />
EndProg</code></div>137.229.92.134http://ocotal.iarc.uaf.edu/index.php?title=Barrow_ARM_TPS_Program&diff=2018Barrow ARM TPS Program2013-05-06T22:09:22Z<p>137.229.92.134: </p>
<hr />
<div>'CR1000 Series Datalogger<br />
'To create a different opening program template, type in new<br />
'instructions and select Template | Save as Default Template<br />
'date:<br />
'program author:<br />
<br />
'Declare Public Variables<br />
<br />
<br />
' Wiring:<br />
' TPS-3100 Sensor<br />
'Wire Purpose Datalogger<br />
'____________________________________<br />
' Pin 2 RS232 TPSc1 RX C5 (white)<br />
' Pin 3 RS232 TPSc1 TX C6 (red)<br />
' Pin 5 RS232 Gc1 G (black, green)<br />
<br />
' Pin 2 RS232 TPSs1 RX C7 (white)<br />
' Pin 3 RS232 TPSs1 TX C8 (red)<br />
' Pin 5 RS232 Gs1 G (black, green)<br />
<br />
'CS10_L sensor (actually a CS15_L)<br />
' CS10 white SE1<br />
' CS10 red AG<br />
' CS10 black AG<br />
' CS10 clear AG<br />
<br />
'Judd snow depth (analog)<br />
'Wire Purpose Datalogger<br />
'____________________________________<br />
'Clear Shield G<br />
'Black Power - G<br />
'Red Power + +12V<br />
'Green On/Off C1<br />
'White Signal + 3H<br />
'Brown Signal - 3L<br />
<br />
' C1 -- Judd, green<br />
' C5 -- TPSc1 RX, white <br />
' C6 -- TPSc1 TX, red<br />
' C7 -- TPSs1 RX, white<br />
' C8 -- TPSs1 TX, red<br />
' SE 1 -- CS10, white<br />
' SE 5 -- Judd, white<br />
' SE 6 -- Judd, brown<br />
' AG -- CS10, red, black, clear<br />
' G -- Judd, clear, black<br />
' 12v -- Judd, red<br />
<br />
Public TPS_out_format As String *3<br />
Public TPS_timestamp As String * 10<br />
Public TPS_Fault_Ind As String * 7<br />
Public TPS_cur_precip As Float<br />
Public TPS_accum_precip As Float<br />
Public TPS_AT As Float<br />
Public TPS_Inst_Temp As Float<br />
Public TPS_WS As Float<br />
Public TPS_CRC As String *4<br />
Public callstring As String * 3<br />
Public TPS_String As String * 200<br />
Public TPS_out_format2 As String *3<br />
Public TPS_timestamp2 As String * 10<br />
Public TPS_Fault_Ind2 As String * 7<br />
Public TPS_cur_precip2 As Float<br />
Public TPS_accum_precip2 As Float<br />
Public TPS_AT2 As Float<br />
Public TPS_Inst_Temp2 As Float<br />
Public TPS_WS2 As Float<br />
Public TPS_CRC2 As String *4<br />
Public callstring2 As String * 3<br />
Public TPS_String2 As String * 200<br />
Public LoggerTemp_C As Float<br />
Public BattVolts_V As Float<br />
<br />
<br />
Const num_samples = 100<br />
Public Amps<br />
Public Amp_mult<br />
Dim i_sig(num_samples)<br />
PreserveVariables<br />
<br />
Public Battery<br />
Public Air_TempC<br />
Public Air_TempF<br />
Public Depth<br />
<br />
'\\\\\\\\\\\\\\\\\\\\\\\\ OUTPUT SECTION ////////////////////////<br />
<br />
DataTable(TableTPSplus,true,-1)<br />
DataInterval(0,1,Min,0)<br />
Sample(1, TPS_out_format, FP2)<br />
Sample(1, TPS_timestamp, String)<br />
Sample(1, TPS_Fault_Ind, String)<br />
Sample(1, TPS_cur_precip,FP2)<br />
Sample(1, TPS_accum_precip,FP2)<br />
Sample(1, TPS_AT, FP2)<br />
Sample(1, TPS_Inst_Temp, FP2)<br />
Sample(1, TPS_WS, FP2)<br />
Sample(1, TPS_CRC, String)<br />
EndTable<br />
<br />
DataTable(AmpTable,True,-1)<br />
DataInterval(0,1,Min,10)<br />
Maximum(1,Amps,IEEE4,False,False)<br />
Average(1,Amps,FP2,False)<br />
EndTable<br />
<br />
<br />
DataTable(TableTPSplus2,true,-1)<br />
DataInterval(0,1,Min,0)<br />
Sample(1, TPS_out_format2, FP2)<br />
Sample(1, TPS_timestamp2, String)<br />
Sample(1, TPS_Fault_Ind2, String)<br />
Sample(1, TPS_cur_precip2,FP2)<br />
Sample(1, TPS_accum_precip2,FP2)<br />
Sample(1, TPS_AT2, FP2)<br />
Sample(1, TPS_Inst_Temp2, FP2)<br />
Sample(1, TPS_WS2, FP2)<br />
Sample(1, TPS_CRC2, String)<br />
<br />
EndTable<br />
<br />
DataTable(HourlyDiag,true,-1)<br />
DataInterval(0,60,Min,10)<br />
Sample(1, LoggerTemp_C,FP2)<br />
Average(1,LoggerTemp_C,FP2,False)<br />
Sample(1,BattVolts_V,FP2)<br />
Average(1,BattVolts_V,FP2,False)<br />
Maximum(1,BattVolts_V,FP2,False,False)<br />
Minimum(1,BattVolts_V,FP2,False,False)<br />
<br />
EndTable<br />
<br />
DataTable(DepthSensor,true,-1)<br />
OpenInterval<br />
DataInterval(0,1,Min,10)<br />
Average(1,Air_TempF,FP2,0)<br />
Sample(1,Depth,FP2)<br />
EndTable<br />
<br />
<br />
'\\\\\\\\\\\\\\\\\\\\\\\\\\\ PROGRAM ////////////////////////////<br />
<br />
BeginProg<br />
'Scan( 1,Min, 3, 0)<br />
Scan(250,mSec,10,0)<br />
SequentialMode<br />
'PipeLineMode<br />
'----------<br />
' Current sensor<br />
'----------<br />
<br />
Amp_mult = 0.2<br />
VoltSe(i_sig(1),num_samples,mV2500,-1,True,1000,0,1.0,0)<br />
StdDevSpa(Amps,num_samples,i_sig(1))<br />
Amps = Amps * Amp_mult<br />
CallTable AmpTable<br />
<br />
If IfTime(0,60,Sec) Then<br />
'SequentialMode<br />
'''''''''''''''''''''''''''''''''''''''''<br />
''' Measure TPS C1'''''''''''''''''''''''''<br />
'''''''''''''''''''''''''''''''''''''''''<br />
callstring = CHR (13 ) & CHR (13 ) & "T" & CHR (13 ) <br />
' 1) open the serial port<br />
SerialOpen (Com3,9600,0,300,10000)<br />
' 2) flush the port<br />
SerialFlush (Com3)<br />
' 3) Send the transmit code and put the response into variable TPS_String<br />
SerialOut (Com3,callstring,"",3,0)<br />
SerialIn (TPS_String,Com3,100,-1,100)<br />
' 4) Close the serial port<br />
SerialClose (Com3)<br />
' 5) Comma separate the string from the TPS<br />
'SplitStr (TPS_Array1(),TPS_String,",",8,2)<br />
' 6) Space separate the first bit o' data<br />
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)<br />
' 7) Star separate the last bit o' data<br />
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)<br />
TPS_out_format = Mid (TPS_String,3,3)<br />
TPS_timestamp = Mid(TPS_String,7,10)<br />
TPS_Fault_Ind = Mid(TPS_String,18,7)<br />
TPS_cur_precip = Mid(TPS_String,26,5)<br />
TPS_accum_precip = Mid(TPS_String,32,8)<br />
TPS_AT = Mid(TPS_String,41,5)<br />
TPS_Inst_Temp = Mid(TPS_String,47,5)<br />
TPS_WS = Mid(TPS_String,53,4)<br />
TPS_CRC = Mid(TPS_STring,58,4)<br />
<br />
'''''''''''''''''''''''''''''''''''''''''<br />
''' Measure TPS2 S1'''''''''''''''''''''''''<br />
'''''''''''''''''''''''''''''''''''''''''<br />
callstring2 = CHR (13 ) & CHR (13 ) & "T" & CHR (13 ) <br />
' 1) open the serial port<br />
SerialOpen (Com4,9600,0,300,10000)<br />
' 2) flush the port<br />
SerialFlush (Com4)<br />
' 3) Send the transmit code and put the response into variable TPS_String<br />
SerialOut (Com4,callstring2,"",3,0)<br />
SerialIn (TPS_String2,Com4,100,-1,100)<br />
' 4) Close the serial port<br />
SerialClose (Com4)<br />
' 5) Comma separate the string from the TPS<br />
'SplitStr (TPS_Array1(),TPS_String,",",8,2)<br />
' 6) Space separate the first bit o' data<br />
'SplitStr (TPS_Array2(),TPS_Array1(1)," ",2,2)<br />
' 7) Star separate the last bit o' data<br />
'SplitStr (TPS_Array3(),TPS_Array1(8),"*",2,2)<br />
TPS_out_format2 = Mid (TPS_String2,3,3)<br />
TPS_timestamp2 = Mid(TPS_String2,7,10)<br />
TPS_Fault_Ind2 = Mid(TPS_String2,18,7)<br />
TPS_cur_precip2 = Mid(TPS_String2,26,5)<br />
TPS_accum_precip2 = Mid(TPS_String2,32,8)<br />
TPS_AT2 = Mid(TPS_String2,41,5)<br />
TPS_Inst_Temp2 = Mid(TPS_String2,47,5)<br />
TPS_WS2 = Mid(TPS_String2,53,4)<br />
TPS_CRC2 = Mid(TPS_STring2,58,4)<br />
<br />
<br />
Battery (BattVolts_V)<br />
PanelTemp (LoggerTemp_C,250)<br />
<br />
<br />
'---------<br />
' judd<br />
'----------<br />
<br />
Battery(Battery)<br />
'Turn ON the depth sensor<br />
PortSet(1,1)<br />
'wait 0.8 seconds for the sensor to output the air temp<br />
Delay(0,800,MSEC)<br />
'air temp is output in milliVolts, scaled to Kelvin, <br />
'and then convert to Celsius.<br />
VoltDiff(Air_TempC,1,mV2500,3,True,0,250,0.2,-273)<br />
'Air temp is also converted and saved in F<br />
Air_TempF = Air_TempC * 1.8<br />
Air_TempF = Air_TempF +32<br />
'The depth sensor needs another 1.8 seconds to make up<br />
'to 10 measurements and perform error checking and <br />
'temp compensation<br />
Delay(0,1800,MSEC)<br />
'Distance is output in milliVolts, scaled to inches, and<br />
'then converted to depth by subtracting the distance<br />
'measured from the reference distance.<br />
'Use a multiplier of -.19685 for output in inches<br />
'and -.5 for output in centimeters.<br />
'<br />
'The following instruction is configured to output the measured distance in inches<br />
'To reconfigure the instruction to output depth in inches do the following:<br />
'Change the multiplier from .1968 to -.1968<br />
'Change the offset value from 0 to the distance measured<br />
VoltDiff(Depth,1,mV2500, 3,True,0,250,0.1968,0)<br />
'Turn off the sensor<br />
PortSet(1,0)<br />
<br />
<br />
' TPS Aliases<br />
'Alias TPS_Array2(2) = TPS_out_format<br />
'Alias TPS_Array1(2) = TPS_timestamp<br />
'Alias TPS_Array1(3) = TPS_Fault_Ind<br />
'Alias TPS_Array1(4) = TPS_cur_precip<br />
'Alias TPS_Array1(5) = TPS_accum_precip<br />
'Alias TPS_Array1(6) = TPS_AT<br />
'Alias TPS_Array1(7) = TPS_Inst_Temp<br />
'Alias TPS_Array3(1) = TPS_WS<br />
'Alias TPS_Array3(2) = TPS_CRC<br />
<br />
<br />
<br />
<br />
<br />
'------------------------------------------------<br />
'Log sensor output once an hour<br />
<br />
CallTable DepthSensor<br />
CallTable TableTPSplus<br />
CallTable TableTPSplus2<br />
CallTable HourlyDiag<br />
endif<br />
NextScan<br />
EndProg</div>137.229.92.134http://ocotal.iarc.uaf.edu/index.php?title=Jessie_Cherry_Barrow_site&diff=2016Jessie Cherry Barrow site2013-05-06T22:08:57Z<p>137.229.92.134: </p>
<hr />
<div>== Barrow Site ==<br />
<br />
This is a placeholder for Jessica Cherry's Barrow site.<br />
<br />
[[Barrow Program]]</div>137.229.92.134http://ocotal.iarc.uaf.edu/index.php?title=Main_Page&diff=88Main Page2013-05-06T22:07:15Z<p>137.229.92.134: /* Project Site Logs and To-Do lists */</p>
<hr />
<div>= Water and Environmental Research Center Hydrologic Research Sites Wikipedia =<br />
<br />
This is a collaborative website for people involved with WERC's research stations, in any of several different projects:<br />
<br />
== Some Good Things to Know ==<br />
<br />
* [[New Person]] in the department guide<br />
* [[North Slope Training Procedures - Bullen/Foothills/Kuparuk projects]]<br />
* [[Common Instrumentation]] links<br />
* [[Software]] we use<br />
* [[Troubleshooting]] sensors etc.<br />
* [[Common Sensor Wiring]]<br />
* [[Datalogger programming]]<br />
* [[Laboratory Scale Logging Computer]]<br />
* [[Field Safety]]<br />
<br />
== Field Notes and Procedures ==<br />
* Setting up [[Novatel GPS units]]<br />
* Making [[discharge measurements with ADCP]]<br />
* [[Spring Stream Gauging Field Supplies]] Umiat Project Supplies List <br />
* [[Winriver II]] Software for RDI ADCP Discharge Measurements<br />
* Using the [[RDI StreamPro ADCP]]<br />
* Using the [[RDI Rio Grande ADCP]]<br />
* [[Bluetooth Communiciations]] for ADCP Discharge Measurements<br />
* Using the [[Sontek RiverSurveyor S5 ADCP]]<br />
* [[Quality Assurance/Control of ADCP Measurements]]<br />
* Using the [[Sontek handheld ADP]]<br />
* Using the [[Sontek Rivercat and Toughbook]]<br />
* Using the [[Flo-Mate]] flow meter<br />
* [[WERC Snow Survey Procedure]]<br />
* Checking the [[TPS]] precipitation sensor.<br />
* [[Trimble R8 Fast-Static Surveys]]<br />
* A [[Thaw probe design]]<br />
* Alternative to the Gieck Stand-- [[variable terrain rain gage stand]]<br />
* [[Tripod setup|Cheap tripod setup]]<br><br />
*Using [[Isco 3700 Auto-Sampler]]<br />
* Update a [[CR10X Operating System]]<br />
* Add a [[scheduled task in windows]]<br />
* [[Change an SDI Address]]<br />
* [[RTK GPS Survey]]<br />
* [[AR Parrot and remote robotics type stuff]]<br />
<br />
== Project Site Logs and To-Do lists ==<br />
* [[Ambler/ADOT Project May 2013 Field Trip]] Bettles Crew Logistics & Planning<br />
* [[Umiat/ADOT Project May 2013 Field Trip]] Umiat Crew Logistics & Planning<br />
* [[Umiat/ADOT and USFWS Project May 2013 Field Trip]] Toolik Crew Logistics & Planning<br />
* [[Umiat Project Station Inventories]]<br />
* [[ADOT Project Toughbook Software List]]<br />
* [[Umiat May 2010 Field Trip]] Logistics Planning<br />
* [[Umiat May 2011 Field Trip]] Planning<br />
* [[April 2010 Snow Survey Trip]] TO DO List<br />
* [[all projects]] todo and site logs <br />
* [[Sept 2009 Field Trip ]] General ToDo List<br />
* [[Sept 2008 Field Trip - Emily and Ken]] General ToDo List<br />
* [[June 2008 Field Trip - Emily and Ken]] General ToDo List<br />
* [[North Slope Kuparuk]]<br />
* [[North Slope Bullen]]<br />
* [[North Slope Foothills]]<br />
* [[Seward Peninsula Sites]]<br />
* [[Super-Site]]<br />
* [[Jessie Cable & Bob Bolton EPSCOR in CPCRW project]]<br />
* [[Barrow Soil Moisture]] Anna L's SM experiment in Barrow<br />
* [[Chas Sites]]<br />
* [[NGEE]]<br />
* [[Pakbus IDs]]<br />
* [[Jessie Cherry May 2013 Toolik Trip]]<br />
* [[Jessie Cherry Barrow site]]<br />
<br />
== WERC Field Books ==<br />
* [[ken 2005 1]]<br />
* [[ken 2005-2]]<br />
* [[ken 2006-1]]<br />
* [[ken 2007-1]]<br />
* [[ken 2008-2]]<br />
* [[ken 2008-3]]<br />
<br />
<br />
== Equipment Manuals ==<br />
<br />
* [[Equipment Manuals]]<br />
<br />
== ''Meta-topics'' on the use & setup of the WERC wiki ==<br />
* editing wiki pages<br />
* [[implementing site todo lists and logs]]</div>137.229.92.134http://ocotal.iarc.uaf.edu/index.php?title=Jessie_Cherry_May_2013_Toolik_Trip&diff=1978Jessie Cherry May 2013 Toolik Trip2013-05-04T01:25:39Z<p>137.229.92.134: </p>
<hr />
<div>== Overview ==<br />
<br />
The met station at Toolik needs to be transferred from its tripod to a tower. The field requirements for this assignment will be outlined here.<br />
<br />
== Current Equipment ==<br />
<br />
New tower w/ enclosure & guy wires<br />
<br />
Garden web cam<br />
<br />
Pluvio 1<br />
<br />
Met Station w/ soil thermocouples, radiation, lake sensors on rusted tripod<br />
<br />
== Goals ==<br />
<br />
Mount recalibrated T/RH sensors<br />
<br />
Transfer as much equipment as possible to new tower<br />
<br />
Leave what can't be moved at the old site<br />
<br />
Install Pluvio 2<br />
<br />
Get Evaporation pan working<br />
<br />
Install new radiometer<br />
<br />
Tighten guy wires and level tower<br />
<br />
== Needs ==<br />
<br />
Map our site wiring / cable lengths<br />
<br />
List cable types needed<br />
<br />
List muxes needed<br />
<br />
List equipment/tools need to bring<br />
<br />
Conduit<br />
<br />
New Program (Bob Bu has draft)<br />
<br />
Troubleshoot Evaporation Pan<br />
<br />
Figure out what needs calibration<br />
<br />
== Updates ==<br />
<br />
- Pluvio 1 and Pluvio 2 use different base stands. Make sure to include the Pluvio 2 mounting hardware!<br />
<br />
- Evaporation pan may not be in the budget this year if the gauging unit (Campbell 21531) needs to be replaced.<br />
<br />
- Conduit isn't an immediate priority since this depends on the final setup.</div>137.229.92.134http://ocotal.iarc.uaf.edu/index.php?title=Jessie_Cherry_May_2013_Toolik_Trip&diff=1977Jessie Cherry May 2013 Toolik Trip2013-05-04T01:24:53Z<p>137.229.92.134: </p>
<hr />
<div>== Overview ==<br />
<br />
The met station at Toolik needs to be transferred from its tripod to a tower. The field requirements for this assignment will be outlined here.<br />
<br />
== Current Equipment ==<br />
<br />
New tower w/ enclosure & guy wires<br />
Garden web cam<br />
Pluvio 1<br />
Met Station w/ soil thermocouples, radiation, lake sensors on rusted tripod<br />
<br />
== Goals ==<br />
<br />
Mount recalibrated T/RH sensors<br />
Transfer as much equipment as possible to new tower<br />
Leave what can't be moved at the old site<br />
Install Pluvio 2<br />
Get Evaporation pan working<br />
Install new radiometer<br />
Tighten guy wires and level tower<br />
<br />
== Needs ==<br />
<br />
Map our site wiring / cable lengths<br />
List cable types needed<br />
List muxes needed<br />
List equipment/tools need to bring<br />
Conduit<br />
New Program (Bob Bu has draft)<br />
Troubleshoot Evaporation Pan<br />
Figure out what needs calibration<br />
<br />
== Updates ==<br />
<br />
- Pluvio 1 and Pluvio 2 use different base stands. Make sure to include the Pluvio 2 mounting hardware!<br />
- Evaporation pan may not be in the budget this year if the gauging unit (Campbell 21531) needs to be replaced.<br />
- Conduit isn't an immediate priority since this depends on the final setup.</div>137.229.92.134http://ocotal.iarc.uaf.edu/index.php?title=Main_Page&diff=86Main Page2013-05-04T01:13:08Z<p>137.229.92.134: /* Project Site Logs and To-Do lists */</p>
<hr />
<div>= Water and Environmental Research Center Hydrologic Research Sites Wikipedia =<br />
<br />
This is a collaborative website for people involved with WERC's research stations, in any of several different projects:<br />
<br />
== Some Good Things to Know ==<br />
<br />
* [[New Person]] in the department guide<br />
* [[North Slope Training Procedures - Bullen/Foothills/Kuparuk projects]]<br />
* [[Common Instrumentation]] links<br />
* [[Software]] we use<br />
* [[Troubleshooting]] sensors etc.<br />
* [[Common Sensor Wiring]]<br />
* [[Datalogger programming]]<br />
* [[Laboratory Scale Logging Computer]]<br />
* [[Field Safety]]<br />
<br />
== Field Notes and Procedures ==<br />
* Setting up [[Novatel GPS units]]<br />
* Making [[discharge measurements with ADCP]]<br />
* [[Spring Stream Gauging Field Supplies]] Umiat Project Supplies List <br />
* [[Winriver II]] Software for RDI ADCP Discharge Measurements<br />
* Using the [[RDI StreamPro ADCP]]<br />
* Using the [[RDI Rio Grande ADCP]]<br />
* [[Bluetooth Communiciations]] for ADCP Discharge Measurements<br />
* Using the [[Sontek RiverSurveyor S5 ADCP]]<br />
* [[Quality Assurance/Control of ADCP Measurements]]<br />
* Using the [[Sontek handheld ADP]]<br />
* Using the [[Sontek Rivercat and Toughbook]]<br />
* Using the [[Flo-Mate]] flow meter<br />
* [[WERC Snow Survey Procedure]]<br />
* Checking the [[TPS]] precipitation sensor.<br />
* [[Trimble R8 Fast-Static Surveys]]<br />
* A [[Thaw probe design]]<br />
* Alternative to the Gieck Stand-- [[variable terrain rain gage stand]]<br />
* [[Tripod setup|Cheap tripod setup]]<br><br />
*Using [[Isco 3700 Auto-Sampler]]<br />
* Update a [[CR10X Operating System]]<br />
* Add a [[scheduled task in windows]]<br />
* [[Change an SDI Address]]<br />
* [[RTK GPS Survey]]<br />
* [[AR Parrot and remote robotics type stuff]]<br />
<br />
== Project Site Logs and To-Do lists ==<br />
* [[Ambler/ADOT Project May 2013 Field Trip]] Bettles Crew Logistics & Planning<br />
* [[Umiat/ADOT Project May 2013 Field Trip]] Umiat Crew Logistics & Planning<br />
* [[Umiat/ADOT and USFWS Project May 2013 Field Trip]] Toolik Crew Logistics & Planning<br />
* [[Umiat Project Station Inventories]]<br />
* [[ADOT Project Toughbook Software List]]<br />
* [[Umiat May 2010 Field Trip]] Logistics Planning<br />
* [[Umiat May 2011 Field Trip]] Planning<br />
* [[April 2010 Snow Survey Trip]] TO DO List<br />
* [[all projects]] todo and site logs <br />
* [[Sept 2009 Field Trip ]] General ToDo List<br />
* [[Sept 2008 Field Trip - Emily and Ken]] General ToDo List<br />
* [[June 2008 Field Trip - Emily and Ken]] General ToDo List<br />
* [[North Slope Kuparuk]]<br />
* [[North Slope Bullen]]<br />
* [[North Slope Foothills]]<br />
* [[Seward Peninsula Sites]]<br />
* [[Super-Site]]<br />
* [[Jessie Cable & Bob Bolton EPSCOR in CPCRW project]]<br />
* [[Barrow Soil Moisture]] Anna L's SM experiment in Barrow<br />
* [[Chas Sites]]<br />
* [[NGEE]]<br />
* [[Pakbus IDs]]<br />
* [[Jessie Cherry May 2013 Toolik Trip]]<br />
<br />
== WERC Field Books ==<br />
* [[ken 2005 1]]<br />
* [[ken 2005-2]]<br />
* [[ken 2006-1]]<br />
* [[ken 2007-1]]<br />
* [[ken 2008-2]]<br />
* [[ken 2008-3]]<br />
<br />
<br />
== Equipment Manuals ==<br />
* [[Aire Boats]]<br />
* [[Achilles Boats]]<br />
<br />
== ''Meta-topics'' on the use & setup of the WERC wiki ==<br />
* editing wiki pages<br />
* [[implementing site todo lists and logs]]</div>137.229.92.134