peierls_creep.h

Go to the documentation of this file.

/*
  Copyright (C) 2020 - 2024 by the authors of the ASPECT code.

  This file is part of ASPECT.

  ASPECT 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 2, or (at your option)
  any later version.

  ASPECT 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 for more details.

  You should have received a copy of the GNU General Public License
  along with ASPECT; see the file LICENSE.  If not see
  <http://www.gnu.org/licenses/>.
*/

#ifndef _aspect_material_model_rheology_peierls_creep_h
#define _aspect_material_model_rheology_peierls_creep_h

#include <aspect/global.h>
#include <aspect/simulator_access.h>

namespace aspect
{
  namespace MaterialModel
  {
    namespace Rheology
    {
      struct PeierlsCreepParameters
      {
        double prefactor;
        double stress_exponent;
        double activation_energy;
        double activation_volume;
        double peierls_stress;
        double glide_parameter_p;
        double glide_parameter_q;
        double fitting_parameter;
        double stress_cutoff;

        PeierlsCreepParameters();
      };

      template <int dim>
      class PeierlsCreep : public ::aspect::SimulatorAccess<dim>
      {
        public:
          PeierlsCreep();

          const PeierlsCreepParameters
          compute_creep_parameters (const unsigned int composition,
                                    const std::vector<double> &phase_function_values = std::vector<double>(),
                                    const std::vector<unsigned int> &n_phases_per_composition = std::vector<unsigned int>()) const;

          static
          void
          declare_parameters (ParameterHandler &prm);

          void
          parse_parameters (ParameterHandler &prm,
                            const std::unique_ptr<std::vector<unsigned int>> &expected_n_phases_per_composition = nullptr);

          double
          compute_approximate_viscosity (const double strain_rate,
                                         const double pressure,
                                         const double temperature,
                                         const unsigned int composition,
                                         const std::vector<double> &phase_function_values = std::vector<double>(),
                                         const std::vector<unsigned int> &n_phase_transitions_per_composition = std::vector<unsigned int>()) const;

          double
          compute_exact_viscosity (const double strain_rate,
                                   const double pressure,
                                   const double temperature,
                                   const unsigned int composition,
                                   const std::vector<double> &phase_function_values = std::vector<double>(),
                                   const std::vector<unsigned int> &n_phase_transitions_per_composition = std::vector<unsigned int>()) const;

          double
          compute_viscosity (const double strain_rate,
                             const double pressure,
                             const double temperature,
                             const unsigned int composition,
                             const std::vector<double> &phase_function_values = std::vector<double>(),
                             const std::vector<unsigned int> &n_phase_transitions_per_composition = std::vector<unsigned int>()) const;

          std::pair<double, double>
          compute_approximate_strain_rate_and_derivative (const double stress,
                                                          const double pressure,
                                                          const double temperature,
                                                          const PeierlsCreepParameters creep_parameters) const;

          std::pair<double, double>
          compute_exact_strain_rate_and_derivative (const double stress,
                                                    const double pressure,
                                                    const double temperature,
                                                    const PeierlsCreepParameters creep_parameters) const;

          std::pair<double, double>
          compute_exact_log_strain_rate_and_derivative (const double log_stress,
                                                        const double pressure,
                                                        const double temperature,
                                                        const PeierlsCreepParameters creep_parameters) const;

          std::pair<double, double>
          compute_approximate_log_strain_rate_and_derivative (const double log_stress,
                                                              const double pressure,
                                                              const double temperature,
                                                              const PeierlsCreepParameters creep_parameters) const;

          std::pair<double, double>
          compute_strain_rate_and_derivative (const double stress,
                                              const double pressure,
                                              const double temperature,
                                              const PeierlsCreepParameters creep_parameters) const;

        private:
          enum PeierlsCreepScheme
          {
            viscosity_approximation,
            exact
          } peierls_creep_flow_law;

          std::vector<double> prefactors;

          std::vector<double> stress_exponents;

          std::vector<double> activation_energies;

          std::vector<double> activation_volumes;

          std::vector<double> peierls_stresses;

          std::vector<double> fitting_parameters;

          std::vector<double> glide_parameters_p;

          std::vector<double> glide_parameters_q;

          std::vector<double> stress_cutoffs;

          bool apply_strict_cutoff;

          double strain_rate_residual_threshold;
          unsigned int stress_max_iteration_number;

      };
    }
  }
}
#endif