/[MITgcm]/MITgcm_contrib/heimbach/OpenAD/code_shallow_openad/cg2d.F
ViewVC logotype

Diff of /MITgcm_contrib/heimbach/OpenAD/code_shallow_openad/cg2d.F

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

revision 1.1 by utke, Wed Jan 11 06:31:20 2006 UTC revision 1.2 by utke, Tue Jan 24 02:46:07 2006 UTC
# Line 227  c     _END_MASTER( myThid ) Line 227  c     _END_MASTER( myThid )
227  C     >>>>>>>>>>>>>>> BEGIN SOLVER <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  C     >>>>>>>>>>>>>>> BEGIN SOLVER <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
228        it2d=1        it2d=1
229                
230        DO while ((it2d1 .le. numIters .and. err .ge. cg2dTolerance))        DO while ((it2d .le. numIters .and. err .ge. cg2dTolerance))
231    
232  CcnhDebugStarts  CcnhDebugStarts
233  C      WRITE(*,*) ' CG2D: Iteration ',it2d-1,' residual = ',  C      WRITE(*,*) ' CG2D: Iteration ',it2d-1,' residual = ',
# Line 349  C      _EXCH_XY_R8(cg2d_r, myThid ) Line 349  C      _EXCH_XY_R8(cg2d_r, myThid )
349  #else  #else
350        CALL EXCH_XY_RL( cg2d_r, myThid )        CALL EXCH_XY_RL( cg2d_r, myThid )
351  #endif  #endif
352           it2d=it2d+1
353    
354        end do        end do
355        end if        end if
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22