1 |
C $Header: /u/gcmpack/MITgcm/pkg/streamice/streamice_cg_solve_petsc.F,v 1.4 2015/02/23 14:30:30 dgoldberg Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#include "STREAMICE_OPTIONS.h" |
5 |
|
6 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
7 |
|
8 |
CBOP |
9 |
SUBROUTINE STREAMICE_PETSCMATDESTROY( |
10 |
I myThid ) |
11 |
|
12 |
C /============================================================\ |
13 |
C | SUBROUTINE | |
14 |
C | o | |
15 |
C |============================================================| |
16 |
C | | |
17 |
C \============================================================/ |
18 |
IMPLICIT NONE |
19 |
|
20 |
|
21 |
|
22 |
|
23 |
#ifdef ALLOW_PETSC |
24 |
#include "finclude/petsc.h" |
25 |
#include "STREAMICE_PETSC.h" |
26 |
! UNCOMMENT IF V3.0 |
27 |
!#include "finclude/petscvec.h" |
28 |
!#include "finclude/petscmat.h" |
29 |
!#include "finclude/petscksp.h" |
30 |
!#include "finclude/petscpc.h" |
31 |
#endif |
32 |
C === Global variables === |
33 |
|
34 |
|
35 |
C !INPUT/OUTPUT ARGUMENTS |
36 |
C cg_Uin, cg_Vin - input and output velocities |
37 |
C cg_Bu, cg_Bv - driving stress |
38 |
INTEGER myThid |
39 |
#ifdef ALLOW_PETSC |
40 |
PetscErrorCode ierr |
41 |
call KSPDestroy (ksp, ierr) |
42 |
call MatDestroy (matrix, ierr) |
43 |
#endif |
44 |
|
45 |
|
46 |
RETURN |
47 |
END |