mirror of
https://github.com/OPM/ResInsight.git
synced 2025-02-25 18:55:39 -06:00
#3412 Non-Darcy perforations. Calculate d-factor and KH. Export to file
This commit is contained in:
@@ -8,6 +8,7 @@ ${CMAKE_CURRENT_LIST_DIR}/RigFractureTransmissibilityEquations.h
|
||||
${CMAKE_CURRENT_LIST_DIR}/RigWellPathStimplanIntersector.h
|
||||
${CMAKE_CURRENT_LIST_DIR}/RigVirtualPerforationTransmissibilities.h
|
||||
${CMAKE_CURRENT_LIST_DIR}/RigEclipseToStimPlanCalculator.h
|
||||
${CMAKE_CURRENT_LIST_DIR}/RigPerforationTransmissibilityEquations.h
|
||||
)
|
||||
|
||||
|
||||
@@ -20,6 +21,7 @@ ${CMAKE_CURRENT_LIST_DIR}/RigFractureTransmissibilityEquations.cpp
|
||||
${CMAKE_CURRENT_LIST_DIR}/RigWellPathStimplanIntersector.cpp
|
||||
${CMAKE_CURRENT_LIST_DIR}/RigVirtualPerforationTransmissibilities.cpp
|
||||
${CMAKE_CURRENT_LIST_DIR}/RigEclipseToStimPlanCalculator.cpp
|
||||
${CMAKE_CURRENT_LIST_DIR}/RigPerforationTransmissibilityEquations.cpp
|
||||
)
|
||||
|
||||
list(APPEND CODE_HEADER_FILES
|
||||
|
||||
@@ -160,13 +160,17 @@ void RigCompletionData::setTransAndWPImultBackgroundDataFromFishbone(double
|
||||
void RigCompletionData::setTransAndWPImultBackgroundDataFromPerforation(double transmissibility,
|
||||
double skinFactor,
|
||||
double diameter,
|
||||
double dFactor,
|
||||
double kh,
|
||||
CellDirection direction)
|
||||
{
|
||||
m_completionType = PERFORATION;
|
||||
m_transmissibility = transmissibility;
|
||||
m_skinFactor = skinFactor;
|
||||
m_diameter = diameter;
|
||||
m_dFactor = dFactor;
|
||||
m_direction = direction;
|
||||
m_kh = kh;
|
||||
m_isMainBore = true;
|
||||
}
|
||||
|
||||
|
||||
@@ -89,6 +89,8 @@ public:
|
||||
void setTransAndWPImultBackgroundDataFromPerforation(double transmissibility,
|
||||
double skinFactor,
|
||||
double diameter,
|
||||
double dFactor,
|
||||
double kh,
|
||||
CellDirection direction);
|
||||
|
||||
void setCombinedValuesExplicitTrans(double transmissibility,
|
||||
|
||||
@@ -0,0 +1,76 @@
|
||||
/////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// Copyright (C) 2017- Statoil ASA
|
||||
//
|
||||
// ResInsight is free software: you can redistribute it and/or modify
|
||||
// it under the terms of the GNU General Public License as published by
|
||||
// the Free Software Foundation, either version 3 of the License, or
|
||||
// (at your option) any later version.
|
||||
//
|
||||
// ResInsight is distributed in the hope that it will be useful, but WITHOUT ANY
|
||||
// WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||||
// FITNESS FOR A PARTICULAR PURPOSE.
|
||||
//
|
||||
// See the GNU General Public License at <http://www.gnu.org/licenses/gpl.html>
|
||||
// for more details.
|
||||
//
|
||||
/////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
#include "RigPerforationTransmissibilityEquations.h"
|
||||
|
||||
#include "cvfBase.h"
|
||||
#include "cvfMath.h"
|
||||
|
||||
#include <cmath>
|
||||
|
||||
const double RigPerforationTransmissibilityEquations::EPSILON = 1.0e-9;
|
||||
|
||||
|
||||
//--------------------------------------------------------------------------------------------------
|
||||
///
|
||||
//--------------------------------------------------------------------------------------------------
|
||||
double RigPerforationTransmissibilityEquations::effectivePermeability(double permeability,
|
||||
double krFactor)
|
||||
{
|
||||
return permeability * krFactor;
|
||||
}
|
||||
|
||||
//--------------------------------------------------------------------------------------------------
|
||||
///
|
||||
//--------------------------------------------------------------------------------------------------
|
||||
double RigPerforationTransmissibilityEquations::betaFactor(double intertialCoefficient,
|
||||
double effectivePermeability,
|
||||
double permeabilityScalingFactor,
|
||||
double porosity,
|
||||
double porosityScalingFactor)
|
||||
{
|
||||
return intertialCoefficient *
|
||||
std::pow(effectivePermeability, permeabilityScalingFactor) *
|
||||
std::pow(porosity, porosityScalingFactor);
|
||||
}
|
||||
|
||||
//--------------------------------------------------------------------------------------------------
|
||||
///
|
||||
//--------------------------------------------------------------------------------------------------
|
||||
double RigPerforationTransmissibilityEquations::dFactor(double unitConstant,
|
||||
double betaFactor,
|
||||
double effectivePermeability,
|
||||
double perforationLengthInCell,
|
||||
double wellRadius,
|
||||
double gasDenity,
|
||||
double gasViscosity)
|
||||
{
|
||||
return unitConstant *
|
||||
betaFactor *
|
||||
effectivePermeability / perforationLengthInCell *
|
||||
1 / wellRadius *
|
||||
gasDenity / gasViscosity;
|
||||
}
|
||||
|
||||
//--------------------------------------------------------------------------------------------------
|
||||
///
|
||||
//--------------------------------------------------------------------------------------------------
|
||||
double RigPerforationTransmissibilityEquations::kh(double effectivePermeability, double perforationLengthInCell)
|
||||
{
|
||||
return effectivePermeability * perforationLengthInCell;
|
||||
}
|
||||
@@ -0,0 +1,49 @@
|
||||
/////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// Copyright (C) 2017- Statoil ASA
|
||||
//
|
||||
// ResInsight is free software: you can redistribute it and/or modify
|
||||
// it under the terms of the GNU General Public License as published by
|
||||
// the Free Software Foundation, either version 3 of the License, or
|
||||
// (at your option) any later version.
|
||||
//
|
||||
// ResInsight is distributed in the hope that it will be useful, but WITHOUT ANY
|
||||
// WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||||
// FITNESS FOR A PARTICULAR PURPOSE.
|
||||
//
|
||||
// See the GNU General Public License at <http://www.gnu.org/licenses/gpl.html>
|
||||
// for more details.
|
||||
//
|
||||
/////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
#pragma once
|
||||
|
||||
//--------------------------------------------------------------------------------------------------
|
||||
///
|
||||
//--------------------------------------------------------------------------------------------------
|
||||
class RigPerforationTransmissibilityEquations
|
||||
{
|
||||
public:
|
||||
static double effectivePermeability(double permeability,
|
||||
double krFactor);
|
||||
|
||||
static double betaFactor(double intertialCoefficient,
|
||||
double effectivePermeability,
|
||||
double permeabilityScalingFactor,
|
||||
double porosity,
|
||||
double porosityScalingFactor);
|
||||
|
||||
static double dFactor(double unitConstant,
|
||||
double betaFactor,
|
||||
double effectivePermeability,
|
||||
double perforationLengthInCell,
|
||||
double wellRadius,
|
||||
double gasDensity,
|
||||
double gasViscosity);
|
||||
|
||||
static double kh(double effectivePermeability,
|
||||
double perforationLengthInCell);
|
||||
|
||||
private:
|
||||
static const double EPSILON;
|
||||
};
|
||||
Reference in New Issue
Block a user