Difference between revisions of "March 2014 Barrow"
Jump to navigation
Jump to search
Line 49: | Line 49: | ||
* Snow sensor change out: | * Snow sensor change out: | ||
** screwdriver - phillips & flathead | ** screwdriver - phillips & flathead | ||
− | ** | + | ** channel locks maybe |
+ | ** From DevConfig: ''SDI12'' to go into SDI12 terminal mode. Then ''8M!'' to make a measurement. | ||
+ | * AT/RH | ||
+ | ** channel locks probably | ||
+ | * thermal conductivity | ||
+ | ** flat head screw driver | ||
+ | ** volt meter | ||
+ | ** Flag 1 High = Manual Measurement | ||
+ | ---------------------------------------------------------------------------------------- | ||
+ | ''''''''''''''''''''''''''''''''''''''''''''''''''''' | ||
+ | ''''''''''''''''''''''''''''''''''''''''''''''''''''' | ||
+ | ''' Measure the Thermal Conductivity Sensors ''''''' | ||
+ | ''''''''''''''''''''''''''''''''''''''''''''''''''''' | ||
+ | ''''''''''''''''''''''''''''''''''''''''''''''''''''' | ||
+ | generator = 0 | ||
+ | sum = 0 | ||
+ | tc = 0 | ||
+ | If TimeIntoInterval(0,1440,Min) Then | ||
+ | If measureTC = true Then | ||
+ | Flag(1) = True | ||
+ | EndIf | ||
+ | EndIf | ||
+ | If Flag(1) = True Then | ||
+ | generator = 1 | ||
+ | sum = 2.72 | ||
+ | tc = 1 | ||
+ | ' steady state, iniital measurments | ||
+ | PortSet (1,1) ' turn on mux #2 & loop through the thermocouples | ||
+ | SubScan(0,Sec,6) | ||
+ | PulsePort (4, 10000) | ||
+ | BrHalf (V_Ratio(tc),1,mV250,15,Vx3,1,50,False,0,_60Hz,1,0) | ||
+ | ' 1) computer resistance | ||
+ | ' 2) v_ratio = 10 / (Rtherm + 10) | ||
+ | TP_Rt = Rf* ( V_Ratio(tc) / (1 - V_Ratio(tc) ) ) | ||
+ | V_ratio(tc) = 10000 / (TP_Rt + 10000) | ||
+ | V_therm(tc) = LN( Rf * (1/V_ratio(tc) ) ) | ||
+ | Tinitial(tc) = -0.1087 * V_therm(tc)^3 + 1.6066 * V_therm(tc)^2 - 22.801 * V_therm(tc) - 273.15 | ||
+ | ' TCDiff(Tinitial(tc),1,mV2_5C,8,TypeE,Ptemp,True,0,250,1,0) | ||
+ | PulsePort (4, 10000) | ||
+ | tc = tc + 1 | ||
+ | NextSubScan | ||
+ | PortSet (1,0) ' turn off mux #2 | ||
+ | Timer(0,Sec,2) ' start the measurement timer | ||
+ | PortSet (8,1) ' turn heaters on | ||
+ | For i1 = 1 To 36 | ||
+ | generator = generator + 0.1 | ||
+ | expgener = EXP(generator) | ||
+ | ' an exponential delay algorithm | ||
+ | For i2 = 1 To 200 | ||
+ | Delay (0,700,mSec) | ||
+ | sum = sum + 0.5 | ||
+ | If (sum >= expgener) Then ExitFor | ||
+ | Next i2 | ||
+ | ' loop through the thermal conductivity probes | ||
+ | tc = 1 | ||
+ | muxincr = 1 | ||
+ | PortSet(1,1) | ||
+ | SubScan(0,Sec,6) | ||
+ | PulsePort(4,10000) | ||
+ | BrHalf (V_Ratio(tc),1,mV250,15,Vx3,1,50,False,0,_60Hz,1,0) | ||
+ | TP_Rt = Rf* ( V_Ratio(tc) / (1 - V_Ratio(tc) ) ) | ||
+ | V_ratio(tc) = 10000 / (TP_Rt + 10000) | ||
+ | V_therm(tc) = LN( Rf * (1/V_ratio(tc) ) ) | ||
+ | Theat(tc) = -0.1087 * V_therm(tc)^3 + 1.6066 * V_therm(tc)^2 - 22.801 * V_therm(tc) - 273.15 | ||
+ | PulsePort(4,10000) | ||
+ | VoltDiff(Vref, 1, mV250,8, True, 0, 250, 0.001, 0) | ||
+ | time(tc) = Timer(0,mSec,4) /1000 | ||
+ | Trise(tc) = Theat(tc) - Tinitial(tc) | ||
+ | sqVref = Vref * Vref | ||
+ | power (tc) = sqVref * heater(tc) | ||
+ | tc = tc + 1 | ||
+ | NextSubScan | ||
+ | PortSet(1,0) | ||
+ | CallTable TableTC | ||
+ | Next i1 | ||
+ | ' turn off current excitation | ||
+ | PortSet(8,0) | ||
+ | ' end of measurment | ||
+ | Flag(1) = False | ||
+ | measureTC = false | ||
+ | EndIf |
Latest revision as of 13:11, 16 March 2014
3/17/2014
- 6:30 Arrive at Airport
- 7:40am Fly to Barrow, on Alaska Flight 55
- 10:18 am arrival
- 11 - 1 Safety Training & Barrow Introduction
- 1 PM Snowmachine to sites
- At Sites
- General snowmachine tour of the area
- Measure Snowdepth under snow sensors
- Station Visit Site A
- Dust Snow off sensors
- Fix 1.4m AT/RH (tighten up wiring / re-secure sensor head / anti-corrosion gel on sensor head?)
- Replace SR50A #2
- Station Visit Site B
- Replace 1.4m AT/RH head
- Replace SR50A #2
- Station Visit Site C
- Replace SR50A #2 (Rim sensor I believe)
- Station Visit Site D
- Thermal Conductivity Wiring
- Any other odds or ends?
3/18/2014
- 9:30 AM head to airport
- 11:15 Return to Fairbanks on Alaska Flight 56
Meals: 3/17 Breakfast - at home or airport 3/17 Lunch - Bring from Fairbanks 3/17 Snacks - Bring from Fairbanks 3/17 Liquids - can get in Barrow 3/17 Dinner -- Eat out in Barrow 3/18 Breakfast - we can visit the grocery store or there is a cafeteria in Barrow
Clothing
- Current Forecast is for -20C to -15 C for 3/17 and 3/18
- there is a shed in the BEO kept at around +20C so there is a place to warm up but wind proof cold weather gear is preferred
- Be prepared to be outside in the cold for 7 hours though
Daypack etc
- I'll probably bring a backpack all ready to spend a day in the field with.
- I'll also bring an actionpacker of winter clothes to change into once we are done with the safety orientation.
- Bring a water bottle to fill up in Barrow
- wouldn't hurt to bring a head lamp just in case
- they will provide radios for us to communicate with the Barrow folks but our cell phones will probably work as well.
Tools list:
- Snow sensor change out:
- screwdriver - phillips & flathead
- channel locks maybe
- From DevConfig: SDI12 to go into SDI12 terminal mode. Then 8M! to make a measurement.
- AT/RH
- channel locks probably
- thermal conductivity
- flat head screw driver
- volt meter
- Flag 1 High = Manual Measurement
'''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''' Measure the Thermal Conductivity Sensors '' '''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''' generator = 0 sum = 0 tc = 0 If TimeIntoInterval(0,1440,Min) Then If measureTC = true Then Flag(1) = True EndIf EndIf If Flag(1) = True Then generator = 1 sum = 2.72 tc = 1 ' steady state, iniital measurments PortSet (1,1) ' turn on mux #2 & loop through the thermocouples SubScan(0,Sec,6) PulsePort (4, 10000) BrHalf (V_Ratio(tc),1,mV250,15,Vx3,1,50,False,0,_60Hz,1,0) ' 1) computer resistance ' 2) v_ratio = 10 / (Rtherm + 10) TP_Rt = Rf* ( V_Ratio(tc) / (1 - V_Ratio(tc) ) ) V_ratio(tc) = 10000 / (TP_Rt + 10000) V_therm(tc) = LN( Rf * (1/V_ratio(tc) ) ) Tinitial(tc) = -0.1087 * V_therm(tc)^3 + 1.6066 * V_therm(tc)^2 - 22.801 * V_therm(tc) - 273.15 ' TCDiff(Tinitial(tc),1,mV2_5C,8,TypeE,Ptemp,True,0,250,1,0) PulsePort (4, 10000) tc = tc + 1 NextSubScan PortSet (1,0) ' turn off mux #2 Timer(0,Sec,2) ' start the measurement timer PortSet (8,1) ' turn heaters on For i1 = 1 To 36 generator = generator + 0.1 expgener = EXP(generator) ' an exponential delay algorithm For i2 = 1 To 200 Delay (0,700,mSec) sum = sum + 0.5 If (sum >= expgener) Then ExitFor Next i2 ' loop through the thermal conductivity probes tc = 1 muxincr = 1 PortSet(1,1) SubScan(0,Sec,6) PulsePort(4,10000) BrHalf (V_Ratio(tc),1,mV250,15,Vx3,1,50,False,0,_60Hz,1,0) TP_Rt = Rf* ( V_Ratio(tc) / (1 - V_Ratio(tc) ) ) V_ratio(tc) = 10000 / (TP_Rt + 10000) V_therm(tc) = LN( Rf * (1/V_ratio(tc) ) ) Theat(tc) = -0.1087 * V_therm(tc)^3 + 1.6066 * V_therm(tc)^2 - 22.801 * V_therm(tc) - 273.15 PulsePort(4,10000) VoltDiff(Vref, 1, mV250,8, True, 0, 250, 0.001, 0) time(tc) = Timer(0,mSec,4) /1000 Trise(tc) = Theat(tc) - Tinitial(tc) sqVref = Vref * Vref power (tc) = sqVref * heater(tc) tc = tc + 1 NextSubScan PortSet(1,0) CallTable TableTC Next i1 ' turn off current excitation PortSet(8,0) ' end of measurment Flag(1) = False measureTC = false EndIf