dgoldberg/code_cg3d_petsc/cg3d_finalize_petsc.F

C $Header: /u/gcmpack/MITgcm/pkg/streamice/streamice_finalize_petsc.F,v 1.2 2015/02/16 16:46:45 dgoldberg Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|

CBOP
      SUBROUTINE CG3D_FINALIZE_PETSC
C     /============================================================\
C     | SUBROUTINE                                                 |
C     | o                                                          |
C     |============================================================|
C     |                                                            |
C     \============================================================/
      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "GRID.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#ifdef ALLOW_NONHYDROSTATIC
#ifdef ALLOW_PETSC
#include "finclude/petsc.h"
#endif
#endif


C     !INPUT/OUTPUT ARGUMENTS
      INTEGER myThid

#ifdef ALLOW_NONHYDROSTATIC
#ifdef ALLOW_PETSC

      PetscErrorCode ierr

      if (use_cg3d_petsc) then
      call PetscFinalize(ierr)
      endif

#endif
#endif
      RETURN
      END

1	dgoldberg	1.1	C $Header: /u/gcmpack/MITgcm/pkg/streamice/streamice_finalize_petsc.F,v 1.2 2015/02/16 16:46:45 dgoldberg Exp $
2			C $Name: $
3
4			#include "CPP_OPTIONS.h"
5
6			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7
8			CBOP
9			SUBROUTINE CG3D_FINALIZE_PETSC
10			C /============================================================\
11			C \| SUBROUTINE \|
12			C \| o \|
13			C \|============================================================\|
14			C \| \|
15			C \============================================================/
16			IMPLICIT NONE
17
18			C === Global variables ===
19			#include "SIZE.h"
20			#include "GRID.h"
21			#include "EEPARAMS.h"
22			#include "PARAMS.h"
23			#ifdef ALLOW_NONHYDROSTATIC
24			#ifdef ALLOW_PETSC
25			#include "finclude/petsc.h"
26			#endif
27			#endif
28
29
30			C !INPUT/OUTPUT ARGUMENTS
31			INTEGER myThid
32
33			#ifdef ALLOW_NONHYDROSTATIC
34			#ifdef ALLOW_PETSC
35
36			PetscErrorCode ierr
37
38			if (use_cg3d_petsc) then
39			call PetscFinalize(ierr)
40			endif
41
42			#endif
43			#endif
44			RETURN
45			END
46