katz2003_mantle_melting.h

Go to the documentation of this file.

/*
  Copyright (C) 2024 - 2026 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_reaction_model_katz2003_mantle_melting_h
#define _aspect_material_model_reaction_model_katz2003_mantle_melting_h

#include <aspect/material_model/interface.h>
#include <aspect/simulator_access.h>
#include <aspect/postprocess/melt_statistics.h>
#include <aspect/melt.h>

namespace aspect
{
  namespace MaterialModel
  {
    namespace ReactionModel
    {

      template <int dim>
      class Katz2003MantleMelting : public ::aspect::SimulatorAccess<dim>
      {
        public:
          static
          void
          declare_parameters (ParameterHandler &prm);

          void
          parse_parameters (ParameterHandler &prm);

          double
          melt_fraction (const double temperature,
                         const double pressure) const;

          double
          entropy_change (const double temperature,
                          const double pressure,
                          const double maximum_melt_fraction,
                          const NonlinearDependence::Dependence dependence) const;

          void
          calculate_reaction_rate_outputs (const typename Interface<dim>::MaterialModelInputs &in,
                                           typename Interface<dim>::MaterialModelOutputs &out) const;

          void
          calculate_fluid_outputs (const typename Interface<dim>::MaterialModelInputs &in,
                                   typename Interface<dim>::MaterialModelOutputs &out,
                                   const double reference_T) const;

          double
          reference_darcy_coefficient () const;

        private:
          double reference_rho_fluid;

          double xi_0;

          double viscosity_fluid;

          double thermal_bulk_viscosity_exponent;

          double alpha_phi;

          double extraction_depth;

          double melt_compressibility;

          double melt_bulk_modulus_derivative;

          double depletion_solidus_change;

          bool fractional_melting;

          double freezing_rate;

          double melting_time_scale;

          double reference_permeability;

          double A1;

          double A2;

          double A3;

          double B1;

          double B2;

          double B3;

          double C1;

          double C2;

          double C3;

          double r1;

          double r2;

          double M_cpx;

          double beta;

          double peridotite_melting_entropy_change;
      };
    }

  }
}

#endif