Temporary alteration to adhesion calculation

Author: peternewell

Source/Orts.Simulation/Simulation/RollingStocks/MSTSLocomotive.cs

@@ -3026,7 +3026,7 @@ public virtual void UpdateFrictionCoefficient(float elapsedClockSeconds)
 
 
             // Test to see if loco wheel is slipping or skidding due to brake application
-            if (WheelSlip && ((ThrottlePercent > 0.2f && !BrakeSkid) || (ThrottlePercent < 0.1f && BrakeSkid)))   
+            if ((EngineType == EngineTypes.Steam && SteamEngineType != MSTSSteamLocomotive.SteamEngineTypes.Geared) && WheelSlip && ((ThrottlePercent > 0.2f && !BrakeSkid) || (ThrottlePercent < 0.1f && BrakeSkid)))   
             {
 
                 WheelStopSlipTimeS = 0; // Reset stop slip time if wheel slip starts
@@ -3051,7 +3051,7 @@ public virtual void UpdateFrictionCoefficient(float elapsedClockSeconds)
             {
                 WheelSlipTimeS = 0; // Reset slip time if wheel slip stops
 
-                if (SlipFrictionCoefficientFactor < BaseFrictionCoefficientFactor && SlipFrictionCoefficientFactor != 0) // Once these two are equal then assume that wheels have stopped slipping.
+                if ((EngineType == EngineTypes.Steam && SteamEngineType != MSTSSteamLocomotive.SteamEngineTypes.Geared) && SlipFrictionCoefficientFactor < BaseFrictionCoefficientFactor && SlipFrictionCoefficientFactor != 0) // Once these two are equal then assume that wheels have stopped slipping.
                 {
                     //                    Trace.TraceInformation("SlipFriction {0} Base {1}", SlipFrictionCoefficientFactor, BaseFrictionCoefficientFactor);
                     // Exponential curve is used to transition between dynamic friction and static friction when wheel stops slipping