March 2014 Barrow

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