WIP. Changes to M9 and M4 regarding Unit Rates to get Flow per second and FC...

WIP. Changes to M9 and M4 regarding Unit Rates to get Flow per second and  FC per second in M9 ( grams )

git-tfs-id: [http://tfs00.element.root.com:8080/tfs/TFSCollection]$/VECTO;C1674

VECTOAux/VectoAuxiliaries/DownstreamModules/M9.vb

@@ -118,12 +118,14 @@ End Property
  End Property
  private ReadOnly Property S11 As Single
      Get
-       Return FMAP.fFCdelaunay_Intp(Signals.EngineSpeed,s7)
+       'Divide by 3600 to get grams per second.
+       Return FMAP.fFCdelaunay_Intp(Signals.EngineSpeed,s7) / 3600
      End Get
  End Property
  private ReadOnly Property S12 As Single
       Get
-          return   FMAP.fFCdelaunay_Intp(Signals.EngineSpeed,s8)
+          'Divide by 3600 to get grams per second.
+          return   FMAP.fFCdelaunay_Intp(Signals.EngineSpeed,s8) /3600
       End Get
   End Property
 

VECTOAux/VectoAuxiliaries/Pneumatics/M4_AirCompressor.vb

@@ -105,7 +105,10 @@ Namespace Pneumatics
         ''' <remarks></remarks>
         Public Function GetFlowRate() As Single Implements IM4_AirCompressor.GetFlowRate
             Dim compressorRpm As Single = _signals.EngineSpeed * PulleyGearRatio
-            Return _map.GetFlowRate(compressorRpm)
+
+            ''Flow Rate in the map is Litres/Hour so divide by 60 to get Units per second.
+            Return _map.GetFlowRate(compressorRpm) / 60
+
         End Function
 
         ''' <summary>
@@ -152,7 +155,11 @@ Namespace Pneumatics
             End If
         End Function
 
-
+        ''' <summary>
+        ''' Aver
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
         Public Function GetAveragePowerDemandPerCompressorUnitFlowRate() As Single Implements IM4_AirCompressor.GetAveragePowerDemandPerCompressorUnitFlowRate
 
             Return _map.GetAveragePowerDemandPerCompressorUnitFlowRate() 

VECTOAux/VectoAuxiliariesTests/UnitTests/AirCompressorTests.vb

@@ -132,7 +132,7 @@ End Sub
         <Test()>
         Public Sub GetCompressorFlowRateTest()
             Dim comp As M4_AirCompressor = GetGoodCompressor()
-            Dim expected As Single = 2.0
+            Dim expected As Single = 0.0333333351f
             Dim actual = comp.GetFlowRate()
             Assert.AreEqual(expected, actual)
         End Sub

VECTOAux/VectoAuxiliariesTests/UnitTests/M6Tests.vb

@@ -4,7 +4,7 @@ Imports VectoAuxiliaries.Hvac
 Imports VectoAuxiliaries.DownstreamModules
 Imports NUnit.Framework
 Imports VectoAuxiliaries
-Imports Moq;
+Imports Moq
 
 Namespace UnitTests