pkg/streamice/streamice_initialise_petsc.F

5fc0cd3689 Dani*0001 #include "STREAMICE_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004
                0005 CBOP
8a34959769 dngo*0006       SUBROUTINE STREAMICE_INITIALIZE_PETSC
                0007 C     *============================================================*
5fc0cd3689 Dani*0008 C     | SUBROUTINE                                                 |
                0009 C     | o                                                          |
8a34959769 dngo*0010 C     *============================================================*
5fc0cd3689 Dani*0011
                0012 C     === Global variables ===
                0013 #ifdef ALLOW_PETSC
8a34959769 dngo*0014 #ifdef STREAMICE_PETSC_3_8
f0ff6e912a dngo*0015
                0016 C     THE FOLLOWING MODULE AND HEADER FILE ARE PART OF THE PETSC
                0017 C     LIBRARY, USED BY STREAMICE WHEN AVAILABLE TO ACCELERATE
                0018 C     SOLVES OF LINEAR SYSTEMS
                0019
8a34959769 dngo*0020 #include "petsc/finclude/petsc.h"
                0021 #include "petsc/finclude/petscvec.h"
                0022       use petscvec
                0023       IMPLICIT NONE
                0024 #else
                0025       IMPLICIT NONE
5fc0cd3689 Dani*0026 #include "finclude/petsc.h"
                0027 #endif
8a34959769 dngo*0028 #endif
5fc0cd3689 Dani*0029
                0030 C     !INPUT/OUTPUT ARGUMENTS
96b006450c dngo*0031 c     INTEGER myThid
5fc0cd3689 Dani*0032
                0033 #ifdef ALLOW_STREAMICE
                0034
                0035 #ifdef ALLOW_PETSC
                0036       PetscErrorCode ierr
                0037       call petscInitialize(PETSC_NULL_CHARACTER,ierr)
                0038 #endif
                0039
                0040 #endif
                0041       RETURN
                0042       END