PISM, A Parallel Ice Sheet Model  stable v2.0.4 committed by Constantine Khrulev on 2022-05-25 12:02:27 -0800
DM.cc
Go to the documentation of this file.
1 /* Copyright (C) 2015 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 "DM.hh"
21 
22 namespace pism {
23 
24 namespace petsc {
25 DM::DM(::DM dm) {
26  m_value = dm;
27 }
28 
29 DM::DM() {
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