/[MITgcm]/MITgcm/pkg/streamice/streamice_cg_solve.F
ViewVC logotype

Diff of /MITgcm/pkg/streamice/streamice_cg_solve.F

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

revision 1.6 by dgoldberg, Fri Sep 5 14:25:11 2014 UTC revision 1.8 by dgoldberg, Mon Feb 16 16:46:44 2015 UTC
# Line 103  C     LOCAL VARIABLES Line 103  C     LOCAL VARIABLES
103    
104  #ifdef ALLOW_PETSC  #ifdef ALLOW_PETSC
105    
106          if (streamice_use_petsc) then
107    
108        CALL STREAMICE_CG_SOLVE_PETSC(        CALL STREAMICE_CG_SOLVE_PETSC(
109       U         cg_Uin,     ! x-velocities       U         cg_Uin,     ! x-velocities
110       U         cg_Vin,     ! y-velocities       U         cg_Vin,     ! y-velocities
# Line 113  C     LOCAL VARIABLES Line 115  C     LOCAL VARIABLES
115       I         A_vu,       ! section of matrix that multiplies u and projects on v       I         A_vu,       ! section of matrix that multiplies u and projects on v
116       I         A_vv,       ! section of matrix that multiplies v and projects on v       I         A_vv,       ! section of matrix that multiplies v and projects on v
117       I         tolerance,       I         tolerance,
118       I         maxIter,       I         iters,
119       O         iters,       O         maxiter,
120       I         myThid )       I         myThid )
121    
122    
123  #else  /* ALLOW_PETSC */        else
124    
125    #endif  /* ALLOW_PETSC */
126    
127    
128        iters = maxIter        iters = maxIter
# Line 520  c     if iters has reached max_iters the Line 524  c     if iters has reached max_iters the
524  !       _EXCH_XY_RL( cg_Uin, myThid )  !       _EXCH_XY_RL( cg_Uin, myThid )
525  !       _EXCH_XY_RL( cg_Vin, myThid )          !       _EXCH_XY_RL( cg_Vin, myThid )        
526    
527  #endif /* ifndef ALLOW_PETSC */  
528    #ifdef ALLOW_PETSC
529          endif   !if (streamice_use_petsc)
530    #endif
531    
532  #else /* STREAMICE_SERIAL_TRISOLVE */  #else /* STREAMICE_SERIAL_TRISOLVE */
533    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22