pkg/streamice/STREAMICE_PETSC_MOD.h

4bb3a4f6db Dani*0001 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0002
                0003 #ifdef ALLOW_STREAMICE
f0ff6e912a dngo*0004 #ifdef ALLOW_PETSC
                0005 #ifdef STREAMICE_PETSC_3_8
                0006        use STREAMICE_ARG_PETSC_MOD
                0007 #else
                0008
                0009 C     THE FOLLOWING VARIABLES ARE OF DEFINED TYPES IN THE PETSC
                0010 C     LIBRARY, USED BY STREAMICE WHEN AVAILABLE TO ACCELERATE
                0011 C     SOLVES OF LINEAR SYSTEMS
                0012
                0013 C     THE STORING OF PETSC OBJECTS IN COMMON BLOCKS IS
                0014 C     FORBIDDEN BY PETSC 3.8.x AND ABOVE
4bb3a4f6db Dani*0015
                0016       COMMON /STREAMICE_PETSC_MATRIX/
                0017      & matrix, mumpsFac
                0018       Mat matrix
                0019       Mat mumpsFac
                0020
                0021       COMMON /STREAMICE_PETSC_KSP/
                0022      & ksp
                0023       KSP ksp
                0024
                0025       COMMON /STREAMICE_PETSC_PC/
                0026      & pc
                0027       PC  pc
f0ff6e912a dngo*0028 #endif
                0029 #endif
4bb3a4f6db Dani*0030 #endif /* ALLOW_STREAMICE */
                0031
                0032 CEH3 ;;; Local Variables: ***
                0033 CEH3 ;;; mode:fortran ***
                0034 CEH3 ;;; End: ***