#3412 Non-Darcy perforations. Calculate d-factor and KH. Export to file

This commit is contained in:
Bjørn Erik Jensen
2018-10-02 12:36:47 +02:00
parent 464c0b9d15
commit 2f027f0de0
7 changed files with 251 additions and 9 deletions

View File

@@ -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

View File

@@ -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;
}

View File

@@ -89,6 +89,8 @@ public:
void setTransAndWPImultBackgroundDataFromPerforation(double transmissibility,
double skinFactor,
double diameter,
double dFactor,
double kh,
CellDirection direction);
void setCombinedValuesExplicitTrans(double transmissibility,

View File

@@ -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;
}

View File

@@ -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;
};