Difference between revisions of "March 2014 Barrow"

From IARC 207 Wiki
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