pkg/streamice/streamice_finalize_petsc.F

5fc0cd3689 Dani*0001 #include "STREAMICE_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004
                0005 CBOP
                0006       SUBROUTINE STREAMICE_FINALIZE_PETSC
8a34959769 dngo*0007 C     *============================================================*
5fc0cd3689 Dani*0008 C     | SUBROUTINE                                                 |
                0009 C     | o                                                          |
8a34959769 dngo*0010 C     *============================================================*
5fc0cd3689 Dani*0011
                0012 C     === Global variables ===
8a34959769 dngo*0013 #ifdef ALLOW_PETSC
                0014 #ifdef STREAMICE_PETSC_3_8
f0ff6e912a dngo*0015
                0016 C     THE FOLLOWING MODULES ARE PART OF THE PETSC
                0017 C     LIBRARY, USED BY STREAMICE WHEN AVAILABLE TO ACCELERATE
                0018 C     SOLVES OF LINEAR SYSTEMS
                0019
                0020 C     assumes paths
                0021 C     {petsc_dir}/include/petsc/finclude/
                0022 C     {petsc_dir}/include
                0023 C     in the include statement
8a34959769 dngo*0024 #include "petsc/finclude/petsc.h"
                0025 #include "petsc/finclude/petscvec.h"
                0026       use petscvec
                0027 #include "petsc/finclude/petscmat.h"
                0028       use petscmat
                0029 #include "petsc/finclude/petscksp.h"
                0030       use petscksp
                0031 #include "petsc/finclude/petscpc.h"
                0032       use petscpc
f0ff6e912a dngo*0033 #include "STREAMICE_PETSC_MOD.h"
8a34959769 dngo*0034       IMPLICIT NONE
                0035 # else
                0036       IMPLICIT NONE
                0037 #include "finclude/petsc.h"
f0ff6e912a dngo*0038 #include "STREAMICE_PETSC_MOD.h"
                0039
8a34959769 dngo*0040 #endif
                0041 #endif
                0042
18a089944d Dani*0043 #include "SIZE.h"
                0044 #include "GRID.h"
                0045 #include "EEPARAMS.h"
                0046 #include "PARAMS.h"
                0047 #include "STREAMICE.h"
5fc0cd3689 Dani*0048
                0049 C     !INPUT/OUTPUT ARGUMENTS
96b006450c dngo*0050 c     INTEGER myThid
5fc0cd3689 Dani*0051
                0052 #ifdef ALLOW_STREAMICE
                0053
                0054 #ifdef ALLOW_PETSC
18a089944d Dani*0055
5fc0cd3689 Dani*0056       PetscErrorCode ierr
18a089944d Dani*0057
                0058       if (streamice_use_petsc) then
5fc0cd3689 Dani*0059       call PetscFinalize(ierr)
18a089944d Dani*0060       endif
5fc0cd3689 Dani*0061
                0062 #endif
                0063
                0064 #endif
                0065       RETURN
                0066       END