Loading [MathJax]/extensions/tex2jax.js
PISM, A Parallel Ice Sheet Model 2.2.2-d6b3a29ca committed by Constantine Khrulev on 2025-03-28
All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
DM.cc
Go to the documentation of this file.
1/* Copyright (C) 2015, 2023 PISM Authors
2 *
3 * This file is part of PISM.
4 *
5 * PISM is free software; you can redistribute it and/or modify it under the
6 * terms of the GNU General Public License as published by the Free Software
7 * Foundation; either version 3 of the License, or (at your option) any later
8 * version.
9 *
10 * PISM is distributed in the hope that it will be useful, but WITHOUT ANY
11 * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
12 * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
13 * details.
14 *
15 * You should have received a copy of the GNU General Public License
16 * along with PISM; if not, write to the Free Software
17 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
18 */
19
20#include "pism/util/petscwrappers/DM.hh"
21
22namespace pism {
23
24namespace petsc {
25DM::DM(::DM dm) {
26 m_value = dm;
27}
28
30 m_value = NULL;
31}
32
34 if (m_value != NULL) {
35 PetscErrorCode ierr = DMDestroy(&m_value); CHKERRCONTINUE(ierr);
36 }
37}
38} // end of namespace petsc
39} // end of namespace pism