/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/streamice_cg_solve.F
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/streamice/streamice_cg_solve.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.8 by dgoldberg, Tue May 28 22:32:39 2013 UTC revision 1.9 by dgoldberg, Sat Jun 8 22:15:33 2013 UTC
# Line 36  C     \================================= Line 36  C     \=================================
36    
37  #ifdef ALLOW_PETSC  #ifdef ALLOW_PETSC
38  #include "finclude/petsc.h"  #include "finclude/petsc.h"
39  #include "finclude/petscvec.h"  ! UNCOMMENT IF V3.0
40  #include "finclude/petscmat.h"  !#include "finclude/petscvec.h"
41  #include "finclude/petscksp.h"  !#include "finclude/petscmat.h"
42  #include "finclude/petscpc.h"  !#include "finclude/petscksp.h"
43    !#include "finclude/petscpc.h"
44  #endif  #endif
45  C     === Global variables ===  C     === Global variables ===
46    
# Line 191  C     LOCAL VARIABLES Line 192  C     LOCAL VARIABLES
192        call VecAssemblyBegin(solution, ierr)        call VecAssemblyBegin(solution, ierr)
193        call VecAssemblyEnd(solution, ierr)        call VecAssemblyEnd(solution, ierr)
194    
195    !     IF USING v3.0 THEN
196        call MatCreateMPIAIJ (PETSC_COMM_WORLD,  !     call MatCreateMPIAIJ (PETSC_COMM_WORLD,
197          call MatCreateAIJ (PETSC_COMM_WORLD,
198       &                      local_dofs, local_dofs,       &                      local_dofs, local_dofs,
199       &                      global_dofs, global_dofs,       &                      global_dofs, global_dofs,
200       &                      18, PETSC_NULL_INTEGER,       &                      18, PETSC_NULL_INTEGER,
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22