pkg/streamice/streamice_arg_petsc_mod.F

8a34959769 dngo*0001 #include "STREAMICE_OPTIONS.h"
                0002
f0ff6e912a dngo*0003       MODULE STREAMICE_ARG_PETSC_mod
8a34959769 dngo*0004 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0005
                0006 #ifdef ALLOW_STREAMICE
                0007 #ifdef ALLOW_PETSC
                0008 #ifdef STREAMICE_PETSC_3_8
                0009
f0ff6e912a dngo*0010 C     THE FOLLOWING VARIABLES ARE OF DEFINED TYPES IN THE PETSC
                0011 C     LIBRARY, USED BY STREAMICE WHEN AVAILABLE TO ACCELERATE
                0012 C     SOLVES OF LINEAR SYSTEMS
                0013
                0014 C     THE STORING OF PETSC OBJECTS IN COMMON BLOCKS IS
                0015 C     FORBIDDEN BY PETSC 3.8.x AND ABOVE, SO A MODULE IS USED
                0016
8a34959769 dngo*0017 #include "petsc/finclude/petsc.h"
                0018 #include "petsc/finclude/petscvec.h"
                0019       use petscvec
                0020 #include "petsc/finclude/petscmat.h"
                0021       use petscmat
                0022 #include "petsc/finclude/petscksp.h"
                0023       use petscksp
                0024 #include "petsc/finclude/petscpc.h"
                0025       use petscpc
                0026
                0027       Mat matrix
                0028       Mat mumpsFac
                0029       KSP ksp
                0030       PC  pc
                0031
                0032 #endif /* ALLOW_STREAMICE */
                0033 #endif
                0034 #endif
                0035        END MODULE
                0036
                0037 CEH3 ;;; Local Variables: ***
                0038 CEH3 ;;; mode:fortran ***
                0039 CEH3 ;;; End: ***