katz2003_mantle_melting.h

Go to the documentation of this file.

/*
  Copyright (C) 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_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:
          // constructor
          Katz2003MantleMelting();

          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;

          // for the solidus temperature
          double A1;   // °C
          double A2; // °C/Pa
          double A3; // °C/(Pa^2)

          // for the lherzolite liquidus temperature
          double B1;   // °C
          double B2;   // °C/Pa
          double B3; // °C/(Pa^2)

          // for the liquidus temperature
          double C1;   // °C
          double C2;  // °C/Pa
          double C3; // °C/(Pa^2)

          // for the reaction coefficient of pyroxene
          double r1;     // cpx/melt
          double r2;     // cpx/melt/GPa
          double M_cpx;  // mass fraction of pyroxene

          // melt fraction exponent
          double beta;

          // entropy change upon melting
          double peridotite_melting_entropy_change;
      };
    }

  }
}

#endif