adiabatic.h

Go to the documentation of this file.

/*
  Copyright (C) 2012 - 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_initial_temperature_adiabatic_h
#define _aspect_initial_temperature_adiabatic_h

#include <aspect/initial_temperature/interface.h>
#include <aspect/simulator_access.h>
#include <aspect/utilities.h>

#include <deal.II/base/parsed_function.h>

namespace aspect
{
  namespace InitialTemperature
  {
    namespace BoundaryLayerAgeModel
    {
      enum Kind
      {
        constant,
        ascii_data,
        function
      };

      BoundaryLayerAgeModel::Kind
      parse (const std::string &parameter_name,
             const ParameterHandler &prm);
    }

    template <int dim>
    class Adiabatic : public Interface<dim>, public Utilities::AsciiDataBoundary<dim>
    {
      public:
        Adiabatic ();

        void initialize () override;

        // avoid -Woverloaded-virtual:
        using Utilities::AsciiDataBoundary<dim>::initialize;

        double initial_temperature (const Point<dim> &position) const override;

        static
        void
        declare_parameters (ParameterHandler &prm);

        void
        parse_parameters (ParameterHandler &prm) override;

      private:
        types::boundary_id surface_boundary_id;

        double age_top_boundary_layer;

        /* Age of the lower thermal boundary layer. */
        double age_bottom_boundary_layer;

        double radius;
        double amplitude;
        /*
         * Position of the initial temperature perturbation (in the
         * center or at the boundary of the model domain).
         */
        std::string perturbation_position;

        /*
         * Deviation from adiabaticity in a subadiabatic mantle
         * temperature profile. 0 for an adiabatic temperature
         * profile.
         */
        double subadiabaticity;

        BoundaryLayerAgeModel::Kind top_boundary_layer_age_model;

        /*
         * Whether to use the half space cooling model, or the plate cooling
         * model
         */
        std::string cooling_model;

        /*
         * Depth to the base of the lithosphere for plate cooling model, in m
         */
        double lithosphere_thickness;

        std::unique_ptr<Functions::ParsedFunction<1>> function;

        Functions::ParsedFunction<dim> age_function;

        Utilities::Coordinates::CoordinateSystem coordinate_system;

        double top_boundary_layer_age(const Point<dim> &position) const;
    };
  }
}


#endif