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
feb7fa5d1e dngo*0006       SUBROUTINE STREAMICE_PETSCMATDESTROY()
aa0bae1d0d Dani*0007
8a34959769 dngo*0008 C     *============================================================*
                0009 C     | SUBROUTINE                                                 |
aa0bae1d0d Dani*0010 C     | o                                                          |
8a34959769 dngo*0011 C     *============================================================*
aa0bae1d0d Dani*0012
                0013 #ifdef ALLOW_PETSC
8a34959769 dngo*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
aa0bae1d0d Dani*0037 #include "finclude/petsc.h"
f0ff6e912a dngo*0038 #include "STREAMICE_PETSC_MOD.h"
                0039
aa0bae1d0d Dani*0040 #endif
8a34959769 dngo*0041 #endif
                0042
aa0bae1d0d Dani*0043 C     === Global variables ===
                0044
                0045 C     !INPUT/OUTPUT ARGUMENTS
                0046 C     cg_Uin, cg_Vin - input and output velocities
                0047 C     cg_Bu, cg_Bv - driving stress
                0048 #ifdef ALLOW_PETSC
                0049       PetscErrorCode ierr
                0050       call KSPDestroy (ksp, ierr)
                0051       call MatDestroy (matrix, ierr)
                0052 #endif
                0053
                0054       RETURN
                0055       END