pkg/streamice/streamice_petscmatdestroy.F

aa0bae1d0d Dani*0001 #include "STREAMICE_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004
                0005 CBOP
8a34959769 dngo*0006       SUBROUTINE STREAMICE_PETSCMATDESTROY(
aa0bae1d0d Dani*0007      I                               myThid )
                0008
8a34959769 dngo*0009 C     *============================================================*
                0010 C     | SUBROUTINE                                                 |
aa0bae1d0d Dani*0011 C     | o                                                          |
8a34959769 dngo*0012 C     *============================================================*
aa0bae1d0d Dani*0013
                0014 #ifdef ALLOW_PETSC
8a34959769 dngo*0015 #ifdef STREAMICE_PETSC_3_8
f0ff6e912a dngo*0016
                0017 C     THE FOLLOWING MODULES ARE PART OF THE PETSC
                0018 C     LIBRARY, USED BY STREAMICE WHEN AVAILABLE TO ACCELERATE
                0019 C     SOLVES OF LINEAR SYSTEMS
                0020
                0021 C     assumes paths
                0022 C     {petsc_dir}/include/petsc/finclude/
                0023 C     {petsc_dir}/include
                0024 C     in the include statement
8a34959769 dngo*0025 #include "petsc/finclude/petsc.h"
                0026 #include "petsc/finclude/petscvec.h"
                0027       use petscvec
                0028 #include "petsc/finclude/petscmat.h"
                0029       use petscmat
                0030 #include "petsc/finclude/petscksp.h"
                0031       use petscksp
                0032 #include "petsc/finclude/petscpc.h"
                0033       use petscpc
f0ff6e912a dngo*0034 #include "STREAMICE_PETSC_MOD.h"
8a34959769 dngo*0035       IMPLICIT NONE
                0036 # else
                0037       IMPLICIT NONE
aa0bae1d0d Dani*0038 #include "finclude/petsc.h"
f0ff6e912a dngo*0039 #include "STREAMICE_PETSC_MOD.h"
                0040
aa0bae1d0d Dani*0041 #endif
8a34959769 dngo*0042 #endif
                0043
aa0bae1d0d Dani*0044 C     === Global variables ===
                0045
                0046 C     !INPUT/OUTPUT ARGUMENTS
                0047 C     cg_Uin, cg_Vin - input and output velocities
                0048 C     cg_Bu, cg_Bv - driving stress
                0049       INTEGER myThid
                0050 #ifdef ALLOW_PETSC
                0051       PetscErrorCode ierr
                0052       call KSPDestroy (ksp, ierr)
                0053       call MatDestroy (matrix, ierr)
                0054 #endif
                0055
                0056       RETURN
                0057       END