Merge pull request #6504 from KratosMultiphysics/PfemFluid/add-consti…

…tutive-laws

[PfemFluid] Add constitutive laws

applications/DelaunayMeshingApplication/custom_utilities/mesh_data_transfer_utilities.cpp

@@ -1347,6 +1347,13 @@ void MeshDataTransferUtilities::TransferElementalValuesToElements(ModelPart& rMo
         new_element->SetProperties(p_new_property);
     }
 
+    // Clone the constitutive law
+    const PropertiesType& rProperties = new_element->GetProperties();
+    if (rProperties.Has(CONSTITUTIVE_LAW)) {
+        const ConstitutiveLaw::Pointer& pConstitutiveLaw = rProperties[CONSTITUTIVE_LAW];
+        new_element->SetValue(CONSTITUTIVE_LAW, pConstitutiveLaw->Clone());
+    }
+
     //check
     //new_element->PrintInfo(std::cout);
 

applications/PfemFluidDynamicsApplication/CMakeLists.txt

@@ -38,6 +38,24 @@ set( KRATOS_PFEM_FLUID_DYNAMICS_APPLICATION_CORE
 	${CMAKE_CURRENT_SOURCE_DIR}/custom_elements/two_step_updated_lagrangian_V_P_implicit_fluid_element.cpp
 	${CMAKE_CURRENT_SOURCE_DIR}/custom_elements/two_step_updated_lagrangian_V_P_implicit_fluid_DEM_coupling_element.cpp
 	${CMAKE_CURRENT_SOURCE_DIR}/custom_processes/assign_scalar_variable_to_pfem_entities_process.cpp
+
+    # Fluid constitutive laws
+    ${CMAKE_CURRENT_SOURCE_DIR}/custom_constitutive/fluid_laws/fluid_constitutive_law.cpp
+    ${CMAKE_CURRENT_SOURCE_DIR}/custom_constitutive/fluid_laws/bingham_2D_law.cpp
+    ${CMAKE_CURRENT_SOURCE_DIR}/custom_constitutive/fluid_laws/bingham_3D_law.cpp
+    ${CMAKE_CURRENT_SOURCE_DIR}/custom_constitutive/fluid_laws/newtonian_2D_law.cpp
+    ${CMAKE_CURRENT_SOURCE_DIR}/custom_constitutive/fluid_laws/newtonian_3D_law.cpp
+    ${CMAKE_CURRENT_SOURCE_DIR}/custom_constitutive/fluid_laws/papanastasiou_mu_I_rheology_2D_law.cpp
+    ${CMAKE_CURRENT_SOURCE_DIR}/custom_constitutive/fluid_laws/papanastasiou_mu_I_rheology_3D_law.cpp
+    ${CMAKE_CURRENT_SOURCE_DIR}/custom_constitutive/fluid_laws/barker_mu_I_rheology_3D_law.cpp
+    ${CMAKE_CURRENT_SOURCE_DIR}/custom_constitutive/fluid_laws/bercovier_mu_I_rheology_3D_law.cpp
+    ${CMAKE_CURRENT_SOURCE_DIR}/custom_constitutive/fluid_laws/barker_bercovier_mu_I_rheology_3D_law.cpp
+    ${CMAKE_CURRENT_SOURCE_DIR}/custom_constitutive/fluid_laws/jop_mu_I_rheology_3D_law.cpp
+
+    # Solid constitutive laws
+    ${CMAKE_CURRENT_SOURCE_DIR}/custom_constitutive/solid_laws/solid_constitutive_law.cpp
+    ${CMAKE_CURRENT_SOURCE_DIR}/custom_constitutive/solid_laws/hypoelastic_2D_law.cpp
+    ${CMAKE_CURRENT_SOURCE_DIR}/custom_constitutive/solid_laws/hypoelastic_3D_law.cpp
 )
 
 set( KRATOS_PFEM_FLUID_DYNAMICS_APPLICATION_PYTHON_INTERFACE
@@ -102,4 +120,4 @@ endif(${INSTALL_TESTING_FILES} MATCHES ON)
 
 # Install targets
 install(TARGETS KratosPfemFluidDynamicsCore DESTINATION libs )
-install(TARGETS KratosPfemFluidDynamicsApplication DESTINATION libs )
+install(TARGETS KratosPfemFluidDynamicsApplication DESTINATION libs )

applications/PfemFluidDynamicsApplication/custom_constitutive/fluid_laws/barker_bercovier_mu_I_rheology_3D_law.cpp

@@ -0,0 +1,240 @@
+//-------------------------------------------------------------
+//         ___  __           ___ _      _    _
+//  KRATOS| _ \/ _|___ _ __ | __| |_  _(_)__| |
+//        |  _/  _/ -_) '  \| _|| | || | / _` |
+//        |_| |_| \___|_|_|_|_| |_|\_,_|_\__,_|DYNAMICS
+//
+//  BSD License:    PfemFluidDynamicsApplication/license.txt
+//
+//  Main authors:   Alessandro Franci
+//  Collaborators:  Massimiliano Zecchetto
+//
+//-------------------------------------------------------------
+//
+
+// System includes
+#include <iostream>
+
+// External includes
+#include <cmath>
+
+// Project includes
+#include "custom_constitutive/fluid_laws/barker_bercovier_mu_I_rheology_3D_law.h"
+#include "includes/checks.h"
+#include "includes/properties.h"
+#include "pfem_fluid_dynamics_application_variables.h"
+
+namespace Kratos {
+
+//********************************CONSTRUCTOR*********************************
+//****************************************************************************
+
+BarkerBercovierMuIRheology3DLaw::BarkerBercovierMuIRheology3DLaw() : PfemFluidConstitutiveLaw() {}
+
+//******************************COPY CONSTRUCTOR******************************
+//****************************************************************************
+
+BarkerBercovierMuIRheology3DLaw::BarkerBercovierMuIRheology3DLaw(const BarkerBercovierMuIRheology3DLaw& rOther)
+    : PfemFluidConstitutiveLaw(rOther) {}
+
+//***********************************CLONE************************************
+//****************************************************************************
+
+ConstitutiveLaw::Pointer BarkerBercovierMuIRheology3DLaw::Clone() const {
+    return Kratos::make_shared<BarkerBercovierMuIRheology3DLaw>(*this);
+}
+
+//*********************************DESTRUCTOR*********************************
+//****************************************************************************
+
+BarkerBercovierMuIRheology3DLaw::~BarkerBercovierMuIRheology3DLaw() {}
+
+ConstitutiveLaw::SizeType BarkerBercovierMuIRheology3DLaw::WorkingSpaceDimension() { return 3; }
+
+ConstitutiveLaw::SizeType BarkerBercovierMuIRheology3DLaw::GetStrainSize() { return 6; }
+
+void BarkerBercovierMuIRheology3DLaw::CalculateMaterialResponseCauchy(Parameters& rValues) {
+
+    Flags& r_options = rValues.GetOptions();
+
+    const Properties& r_properties = rValues.GetMaterialProperties();
+
+    Vector& r_strain_vector = rValues.GetStrainVector();
+    Vector& r_stress_vector = rValues.GetStressVector();
+
+    const double static_friction = r_properties[STATIC_FRICTION];
+    const double dynamic_friction = r_properties[DYNAMIC_FRICTION];
+    const double delta_friction = dynamic_friction - static_friction;
+    const double inertial_number_zero = r_properties[INERTIAL_NUMBER_ZERO];
+    const double grain_diameter = r_properties[GRAIN_DIAMETER];
+    const double grain_density = r_properties[GRAIN_DENSITY];
+    const double regularization_coeff = r_properties[REGULARIZATION_COEFFICIENT];
+    const double inertial_number_one = r_properties[INERTIAL_NUMBER_ONE];
+    const double infinite_friction_coeff = r_properties[INFINITE_FRICTION];
+    const double alpha_parameter = r_properties[ALPHA_PARAMETER];
+    double inertial_number = 0;
+    double effective_dynamic_viscosity = 0;
+
+    const double old_pressure = this->CalculateInGaussPoint(PRESSURE, rValues, 1);
+    const double new_pressure = this->CalculateInGaussPoint(PRESSURE, rValues, 0);
+    const GeometryType& r_geometry = rValues.GetElementGeometry();
+
+    const double theta_momentum = r_geometry[0].GetValue(THETA_MOMENTUM);
+    double mean_pressure = (1.0 - theta_momentum) * old_pressure + theta_momentum * new_pressure;
+    if (mean_pressure > 0.0) {
+        mean_pressure = 0.0000001;
+    }
+
+    const double equivalent_strain_rate =
+        std::sqrt(2.0 * r_strain_vector[0] * r_strain_vector[0] + 2.0 * r_strain_vector[1] * r_strain_vector[1] +
+                  2.0 * r_strain_vector[2] * r_strain_vector[2] + 4.0 * r_strain_vector[3] * r_strain_vector[3] +
+                  4.0 * r_strain_vector[4] * r_strain_vector[4] + 4.0 * r_strain_vector[5] * r_strain_vector[5]);
+
+    if (mean_pressure != 0) {
+        inertial_number = equivalent_strain_rate * grain_diameter / std::sqrt(std::fabs(mean_pressure) / grain_density);
+    }
+
+    double exponent;
+
+    if (inertial_number > inertial_number_one) {
+        const double first_viscous_term = static_friction;
+        const double second_viscous_term = delta_friction * inertial_number / (inertial_number_zero + inertial_number);
+        effective_dynamic_viscosity = (first_viscous_term + second_viscous_term);
+    } else {
+        const double denominator = static_friction * inertial_number_zero + dynamic_friction * inertial_number_one +
+                                   infinite_friction_coeff * std::pow(inertial_number_one, 2);
+        exponent = alpha_parameter * (inertial_number_zero + inertial_number_one) *
+                   (inertial_number_zero + inertial_number_one) / std::pow(denominator, 2);
+        const double firstAconstant = inertial_number_one * std::exp(exponent);
+        effective_dynamic_viscosity = std::sqrt(alpha_parameter / std::log(firstAconstant / inertial_number));
+    }
+
+    if (equivalent_strain_rate != 0 && std::fabs(mean_pressure) != 0) {
+        exponent = -equivalent_strain_rate / regularization_coeff;
+        effective_dynamic_viscosity *= std::fabs(mean_pressure) * (1.0 - std::exp(exponent)) / equivalent_strain_rate;
+    } else {
+        if (mean_pressure == 0.0 && equivalent_strain_rate != 0.0) {
+            effective_dynamic_viscosity *=
+                1.0 / std::sqrt(std::pow(equivalent_strain_rate, 2) + std::pow(regularization_coeff, 2));
+        } else if (mean_pressure != 0 && equivalent_strain_rate == 0) {
+            effective_dynamic_viscosity *=
+                std::fabs(mean_pressure) / std::sqrt(0.001 + std::pow(regularization_coeff, 2));
+        } else {
+            effective_dynamic_viscosity = 1.0;
+        }
+    }
+
+    const double strain_trace = r_strain_vector[0] + r_strain_vector[1] + r_strain_vector[2];
+
+    r_stress_vector[0] = 2.0 * effective_dynamic_viscosity * (r_strain_vector[0] - strain_trace / 3.0);
+    r_stress_vector[1] = 2.0 * effective_dynamic_viscosity * (r_strain_vector[1] - strain_trace / 3.0);
+    r_stress_vector[2] = 2.0 * effective_dynamic_viscosity * (r_strain_vector[2] - strain_trace / 3.0);
+    r_stress_vector[3] = 2.0 * effective_dynamic_viscosity * r_strain_vector[3];
+    r_stress_vector[4] = 2.0 * effective_dynamic_viscosity * r_strain_vector[4];
+    r_stress_vector[5] = 2.0 * effective_dynamic_viscosity * r_strain_vector[5];
+
+    if (r_options.Is(ConstitutiveLaw::COMPUTE_CONSTITUTIVE_TENSOR)) {
+        this->EffectiveViscousConstitutiveMatrix3D(effective_dynamic_viscosity, rValues.GetConstitutiveMatrix());
+    }
+}
+
+std::string BarkerBercovierMuIRheology3DLaw::Info() const { return "BarkerBercovierMuIRheology3DLaw"; }
+
+//******************CHECK CONSISTENCY IN THE CONSTITUTIVE LAW******************
+//*****************************************************************************
+
+int BarkerBercovierMuIRheology3DLaw::Check(const Properties& rMaterialProperties, const GeometryType& rElementGeometry,
+                                           const ProcessInfo& rCurrentProcessInfo) {
+    KRATOS_CHECK_VARIABLE_KEY(STATIC_FRICTION);
+    KRATOS_CHECK_VARIABLE_KEY(DYNAMIC_FRICTION);
+    KRATOS_CHECK_VARIABLE_KEY(INERTIAL_NUMBER_ZERO);
+    KRATOS_CHECK_VARIABLE_KEY(GRAIN_DIAMETER);
+    KRATOS_CHECK_VARIABLE_KEY(GRAIN_DENSITY);
+    KRATOS_CHECK_VARIABLE_KEY(REGULARIZATION_COEFFICIENT);
+    KRATOS_CHECK_VARIABLE_KEY(INERTIAL_NUMBER_ONE);
+    KRATOS_CHECK_VARIABLE_KEY(ALPHA_PARAMETER);
+    KRATOS_CHECK_VARIABLE_KEY(INFINITE_FRICTION);
+    KRATOS_CHECK_VARIABLE_KEY(BULK_MODULUS);
+
+    if (rMaterialProperties[STATIC_FRICTION] <= 0.0) {
+        KRATOS_ERROR
+            << "Incorrect or missing STATIC_FRICTION provided in process info for BarkerBercovierMuIRheology3DLaw: "
+            << rMaterialProperties[STATIC_FRICTION] << std::endl;
+    }
+
+    if (rMaterialProperties[DYNAMIC_FRICTION] <= 0.0) {
+        KRATOS_ERROR
+            << "Incorrect or missing DYNAMIC_FRICTION provided in process info for BarkerBercovierMuIRheology3DLaw: "
+            << rMaterialProperties[DYNAMIC_FRICTION] << std::endl;
+    }
+
+    if (rMaterialProperties[INERTIAL_NUMBER_ZERO] <= 0.0) {
+        KRATOS_ERROR << "Incorrect or missing INERTIAL_NUMBER_ZERO provided in process info for "
+                        "BarkerBercovierMuIRheology3DLaw: "
+                     << rMaterialProperties[INERTIAL_NUMBER_ZERO] << std::endl;
+    }
+
+    if (rMaterialProperties[INERTIAL_NUMBER_ONE] <= 0.0) {
+        KRATOS_ERROR
+            << "Incorrect or missing INERTIAL_NUMBER_ONE provided in process info for BarkerBercovierMuIRheology3DLaw: "
+            << rMaterialProperties[INERTIAL_NUMBER_ONE] << std::endl;
+    }
+
+    if (rMaterialProperties[GRAIN_DIAMETER] <= 0.0) {
+        KRATOS_ERROR
+            << "Incorrect or missing GRAIN_DIAMETER provided in process info for BarkerBercovierMuIRheology3DLaw: "
+            << rMaterialProperties[GRAIN_DIAMETER] << std::endl;
+    }
+
+    if (rMaterialProperties[GRAIN_DENSITY] <= 0.0) {
+        KRATOS_ERROR
+            << "Incorrect or missing GRAIN_DENSITY provided in process info for BarkerBercovierMuIRheology3DLaw: "
+            << rMaterialProperties[GRAIN_DENSITY] << std::endl;
+    }
+
+    if (rMaterialProperties[REGULARIZATION_COEFFICIENT] <= 0.0) {
+        KRATOS_ERROR << "Incorrect or missing REGULARIZATION_COEFFICIENT provided in process info for "
+                        "BarkerBercovierMuIRheology3DLaw: "
+                     << rMaterialProperties[REGULARIZATION_COEFFICIENT] << std::endl;
+    }
+
+    if (rMaterialProperties[INFINITE_FRICTION] <= 0.0) {
+        KRATOS_ERROR
+            << "Incorrect or missing INFINITE_FRICTION provided in process info for BarkerBercovierMuIRheology3DLaw: "
+            << rMaterialProperties[INFINITE_FRICTION] << std::endl;
+    }
+
+    if (rMaterialProperties[ALPHA_PARAMETER] <= 0.0) {
+        KRATOS_ERROR
+            << "Incorrect or missing ALPHA_PARAMETER provided in process info for BarkerBercovierMuIRheology3DLaw: "
+            << rMaterialProperties[ALPHA_PARAMETER] << std::endl;
+    }
+
+    if (rMaterialProperties[BULK_MODULUS] <= 0.0) {
+        KRATOS_ERROR
+            << "Incorrect or missing BULK_MODULUS provided in process info for BarkerBercovierMuIRheology3DLaw: "
+            << rMaterialProperties[BULK_MODULUS] << std::endl;
+    }
+
+    return 0;
+}
+
+double BarkerBercovierMuIRheology3DLaw::GetEffectiveViscosity(ConstitutiveLaw::Parameters& rParameters) const {
+    return rParameters.GetConstitutiveMatrix()(5, 5);
+}
+
+double BarkerBercovierMuIRheology3DLaw::GetEffectiveDensity(ConstitutiveLaw::Parameters& rParameters) const {
+    const Properties& r_prop = rParameters.GetMaterialProperties();
+    const double effective_density = r_prop[DENSITY];
+    return effective_density;
+}
+
+void BarkerBercovierMuIRheology3DLaw::save(Serializer& rSerializer) const {
+    KRATOS_SERIALIZE_SAVE_BASE_CLASS(rSerializer, PfemFluidConstitutiveLaw)
+}
+
+void BarkerBercovierMuIRheology3DLaw::load(Serializer& rSerializer) {
+    KRATOS_SERIALIZE_LOAD_BASE_CLASS(rSerializer, PfemFluidConstitutiveLaw)
+}
+
+}  // Namespace Kratos