Specifications

50
Delay(0,20,msec)' allows for settling time ... needed??
VoltDiff (CNR1_SWin,1,mV25,7,True,0,_50Hz,1,0)' may go out of range with ver
PulsePort(2,5000)
Delay(0,20,msec)' allows for settling time ... needed??
VoltDiff (CNR1_LWin,1,mV7_5,7,True,0,_50Hz,1,0)' may go out of range with ve
PulsePort(2,5000)
Delay(0,20,msec)' allows for settling time ... needed??
VoltDiff (CNR1_SWout,1,mV25,7,True,0,_50Hz,1,0)
PulsePort(2,5000)
Delay(0,20,msec)' allows for settling time ... needed??
VoltDiff (CNR1_LWout,1,mV7_5,7,True,0,_50Hz,1,0)
BrHalf4W (temp,1,mV25,mV25,3,Vx2,1,2035,True ,True ,0,_50Hz,1.0,0)'CNR1 Pt100
ExciteV(Vx3,2500,0)'This MUST be right after any bridge, P107 and Pa
PRT (CNR1_Pt100,1,temp,1.0,0)
'SR50 Sonic Ranging Sensor (SDI-12 Output) measurements DT, TCDT, and DBTCDT:
While TimeSince12Von < SR50Warmup
TimeSince12Von = Timer(2,sec,4)
Wend
If FastScanMode OR LastFastScan OR TimeIntoInterval(0,ScanRate,sec) Then
SDI12Recorder(SR50_SnowHeight(),7,SnowHeightSR50address,"M1!",1.0,0)'Snowh
SDI12Recorder(SR50_Ablation(),7,AblationSR50address,"M1!",1.0,0)
EndIf
'Rotronics aspirated shield sensor suite measurement AS_T and AS_RH (the fan i
PulsePort(2,5000)
Delay(0,20,msec)
While TimeSince12Von < HygroClipWarmup
TimeSince12Von = Timer(2,sec,4)
Wend
VoltSe(AS_T,1,6,14,0,0,_50Hz,1,0)'autorange, no gnd offset correction
VoltSe(AS_RH,1,1,13,1,0,_50Hz,1,0)
BrHalf4W (temp,1,mV25,mV25,1,Vx2,1,2035,True ,True ,0,_50Hz,1.0,0)'Rotronic Pt
ExciteV(Vx3,2500,0)'This MUST be right after any bridge, P107 and Pa
If Asp_fan_on Then Aspirated_Meas = True Else Aspirated_Meas = False' so tha
FanPowerDueForSwOff = True'If NOT (FastScanMode) Then FanPowerDueForSwOff =
'' PortSet(8,false)
'' Asp_fan_on = False
'' EndIf
AS_T=AS_T*.1
AS_RH=AS_RH*.1
PRT (AS_Pt100,1,temp,1.0,0)
'Rotronics UN-aspirated shield sensor suite measurement US_T and US_RH
PulsePort(2,5000)
Delay(0,20,msec)
VoltSe(US_T,1,6,14,0,0,_50Hz,1,0)'autorange, no gnd offset correction
VoltSe(US_RH,1,1,13,1,0,_50Hz,1,0)
BrHalf4W (temp,1,mV25,mV25,5,Vx2,1,2035,True ,True ,0,_50Hz,1.0,0)'Rotronic Pt
ExciteV(Vx3,2500,0)'This MUST be right after any bridge, P107 and Pane
US_T=US_T*.1
US_RH=US_RH*.1
PRT (US_Pt100,1,temp,1.0,0)
'Now the NT1400 water column pressure transducer
PulsePort(2,5000)
Delay(0,20,msec)
ExciteV(Vx3,2500,0)
While TimeSinceVx3on < NT1400Warmup
TimeSinceVx3on = Timer(3,sec,4)
Wend
BrFull (ablation_meter,1,mV250,7,Vx3,1,2500,True ,True ,10000,_50Hz,1.0,0)
Timer(3,sec,3)