BlatterTestHalfar.cc

Go to the documentation of this file.

/* Copyright (C) 2020, 2021, 2022, 2023 PISM Authors
 *
 * This file is part of PISM.
 *
 * PISM 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 3 of the License, or (at your option) any later
 * version.
 *
 * PISM 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 PISM; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
*/
 
#include "pism/stressbalance/blatter/verification/BlatterTestHalfar.hh"
 
#include "pism/rheology/IsothermalGlen.hh"
 
#include "pism/stressbalance/blatter/verification/manufactured_solutions.hh"
 
namespace pism {
namespace stressbalance {
 
BlatterTestHalfar::BlatterTestHalfar(std::shared_ptr<const Grid> grid,
                                     int Mz, int coarsening_factor)
  : Blatter(grid, Mz, coarsening_factor) {
 
  // use the isothermal Glen flow law
  m_flow_law.reset(new rheology::IsothermalGlen("stress_balance.blatter.", *m_config, m_EC));
 
  // make sure we use the same Glen exponent
  assert(m_flow_law->exponent() == 3.0);
 
  // make sure the grid is periodic in the Y direction
  assert(m_grid->periodicity() == grid::Y_PERIODIC);
 
  // store constant ice hardness (enthalpy and pressure values are irrelevant)
  m_B = m_flow_law->hardness(1e5, 0);
 
  // dome radius
  m_R0 = 750e3;
 
  // ice thickness (m)
  m_H0 = 3600.0;
 
  m_rho = m_config->get_number("constants.ice.density");
 
  m_g   = m_config->get_number("constants.standard_gravity");
}
 
bool BlatterTestHalfar::dirichlet_node(const DMDALocalInfo &info,
                                       const fem::Element3::GlobalIndex& I) {
  // use Dirichlet BC at x == 0 and the "cliff" near the right boundary
  return I.i == 0 or I.i == info.mx - 1;
}
 
Vector2d BlatterTestHalfar::u_bc(double x, double y, double z) const {
  (void) y;
 
  return blatter_xz_halfar_exact(x, z, m_H0, m_R0, m_rho, m_g, m_B);
}
 
double BlatterTestHalfar::H_exact(double x) const {
  if (fabs(x) >= m_R0) {
    return 0.0;
  }
  return m_H0 * pow(1.0 - pow(fabs(x) / m_R0, 4.0 / 3.0), 3.0 / 7.0);
}
 
double BlatterTestHalfar::u_exact(double x, double z) const {
  return u_bc(x, 0.0, z).u;
}
 
void BlatterTestHalfar::residual_source_term(const fem::Q1Element3 &element,
                                             const double *surface,
                                             const double *bed,
                                             Vector2d *residual) {
 
  (void) surface;
  (void) bed;
 
  // compute x and z coordinates of quadrature points
  double
    *x = m_work[0],
    *z = m_work[1];
  {
    double
      *x_nodal = m_work[2],
      *z_nodal = m_work[3];
 
    for (int n = 0; n < fem::q13d::n_chi; ++n) {
      x_nodal[n] = element.x(n);
      z_nodal[n] = element.z(n);
    }
 
    element.evaluate(x_nodal, x);
    element.evaluate(z_nodal, z);
  }
 
  // loop over all quadrature points
  for (int q = 0; q < element.n_pts(); ++q) {
    auto W = element.weight(q) / m_scaling;
 
    auto F = blatter_xz_halfar_source(x[q], z[q], m_H0, m_R0, m_rho, m_g, m_B);
 
    // loop over all test functions
    for (int t = 0; t < element.n_chi(); ++t) {
      const auto &psi = element.chi(q, t);
 
      residual[t] += W * psi.val * F;
    }
  }
}
 
void BlatterTestHalfar::residual_lateral(const fem::Q1Element3 &element,
                                         const fem::Q1Element3Face &face,
                                         const double *surface_nodal,
                                         const double *z_nodal,
                                         const double *sl_nodal,
                                         Vector2d *residual) {
  (void) surface_nodal;
  (void) sl_nodal;
 
  // compute x and z coordinates of quadrature points
  double
    *x = m_work[0],
    *z = m_work[1];
  {
    double
      *x_nodal = m_work[2];
 
    for (int n = 0; n < element.n_chi(); ++n) {
      x_nodal[n] = element.x(n);
    }
 
    face.evaluate(x_nodal, x);
    face.evaluate(z_nodal, z);
  }
 
  // loop over all quadrature points
  for (int q = 0; q < face.n_pts(); ++q) {
    auto W = face.weight(q) / m_scaling;
    auto N3 = face.normal(q);
    Vector2d N = {N3.x, N3.y};
 
    double F = 0.0;
    if (x[q] > 0.0) {
      // this lateral BC is not defined at the left (x = 0) boundary
      F = blatter_xz_halfar_source_lateral(x[q], z[q], m_H0, m_R0, m_rho, m_g, m_B).u;
    }
 
    // loop over all test functions
    for (int t = 0; t < element.n_chi(); ++t) {
      auto psi = face.chi(q, t);
 
      residual[t] += W * psi * F * N;
    }
  }
}
 
/*!
 * Top surface contribution to the residual.
 */
void BlatterTestHalfar::residual_surface(const fem::Q1Element3 &element,
                                         const fem::Q1Element3Face &face,
                                         Vector2d *residual) {
 
  // compute x coordinates of quadrature points
  double
    *x = m_work[0];
  {
    double *x_nodal = m_work[1];
 
    for (int n = 0; n < fem::q13d::n_chi; ++n) {
      x_nodal[n] = element.x(n);
    }
 
    face.evaluate(x_nodal, x);
  }
 
  for (int q = 0; q < face.n_pts(); ++q) {
    auto W = face.weight(q) / m_scaling;
 
    auto F = blatter_xz_halfar_source_surface(x[q], m_H0, m_R0, m_rho, m_g, m_B);
 
    // loop over all test functions
    for (int t = 0; t < element.n_chi(); ++t) {
      auto psi = face.chi(q, t);
 
      residual[t] += - W * psi * F;
    }
  }
}
 
/*!
 * Basal contribution to the residual.
 */
void BlatterTestHalfar::residual_basal(const fem::Q1Element3 &element,
                                       const fem::Q1Element3Face &face,
                                       const double *tauc_nodal,
                                       const double *f_nodal,
                                       const Vector2d *u_nodal,
                                       Vector2d *residual) {
  (void) tauc_nodal;
  (void) f_nodal;
  (void) u_nodal;
 
  // compute x coordinates of quadrature points
  double *x = m_work[0];
  {
    double *x_nodal = m_work[1];
 
    for (int n = 0; n < fem::q13d::n_chi; ++n) {
      x_nodal[n] = element.x(n);
    }
 
    face.evaluate(x_nodal, x);
  }
 
  for (int q = 0; q < face.n_pts(); ++q) {
    auto W = face.weight(q) / m_scaling;
 
    auto F = blatter_xz_halfar_source_base(x[q], m_H0, m_R0, m_rho, m_g, m_B);
 
    // loop over all test functions
    for (int t = 0; t < element.n_chi(); ++t) {
      auto psi = face.chi(q, t);
 
      residual[t] += - W * psi * F;
    }
  }
}
 
void BlatterTestHalfar::jacobian_basal(const fem::Q1Element3Face &face,
                                       const double *tauc_nodal,
                                       const double *f_nodal,
                                       const Vector2d *u_nodal,
                                       double K[2 * fem::q13d::n_chi][2 * fem::q13d::n_chi]) {
  (void) face;
  (void) tauc_nodal;
  (void) f_nodal;
  (void) u_nodal;
  (void) K;
  // empty: residual contribution from the basal boundary does not depend on ice velocity
}
 
} // end of namespace stressbalance
} // end of namespace pism