Add darcys constant to RimUnitSystem

ApplicationCode/ProjectDataModel/RimUnitSystem.cpp

@@ -17,8 +17,10 @@
 /////////////////////////////////////////////////////////////////////////////////
 
 #include "RimUnitSystem.h"
+
 #include "cafAppEnum.h"
 
+#include "cvfAssert.h"
 
 namespace caf
 {
@@ -32,3 +34,26 @@ namespace caf
         setDefault(RimUnitSystem::UNITS_METRIC);
     }
 }
+
+//--------------------------------------------------------------------------------------------------
+/// 
+//--------------------------------------------------------------------------------------------------
+double RimUnitSystem::darcysConstant(UnitSystem unitSystem)
+{
+    // See "Cartesian transmissibility calculations" in the "Eclipse Technical Description"
+    //     CDARCY Darcys constant
+    //         = 0.00852702 (E300); 0.008527 (ECLIPSE 100) (METRIC)
+    //         = 0.00112712 (E300); 0.001127 (ECLIPSE 100) (FIELD)
+    //         = 3.6 (LAB)
+    //         = 0.00864 (PVT - M)
+    switch (unitSystem)
+    {
+    case UNITS_FIELD:
+        return 0.001127;
+    case UNITS_METRIC:
+        return 0.008527;
+    default:
+        CVF_ASSERT(false);
+        return 0.0;
+    }
+}

ApplicationCode/ProjectDataModel/RimUnitSystem.h

@@ -41,5 +41,7 @@ public:
     static double feetToMeter(double feet)          { return feet*meterPerFeet();}
     static double meterToInch(double meter)         { return meter*feetPerMeter()*12; }
     static double inchToMeter(double inch)          { return (inch / 12)*meterPerFeet(); }
+
+    static double darcysConstant(UnitSystem unitSystem);
 };