/[MITgcm]/MITgcm/model/src/solve_for_pressure.F
ViewVC logotype

Diff of /MITgcm/model/src/solve_for_pressure.F

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

revision 1.65 by jmc, Wed Apr 22 01:30:00 2009 UTC revision 1.66 by jmc, Tue Apr 28 18:01:14 2009 UTC
# Line 290  C--   Call the not-self-adjoint version Line 290  C--   Call the not-self-adjoint version
290       U           numIters,       U           numIters,
291       I           myThid )       I           myThid )
292  #endif /* ALLOW_CG2D_NSA */  #endif /* ALLOW_CG2D_NSA */
293        _EXCH_XY_R8(cg2d_x, myThid )        _EXCH_XY_RL(cg2d_x, myThid )
294  c     CALL TIMER_STOP ('CG2D   [SOLVE_FOR_PRESSURE]',myThid)  c     CALL TIMER_STOP ('CG2D   [SOLVE_FOR_PRESSURE]',myThid)
295    
296  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
# Line 463  C-    end bi,bj loops Line 463  C-    end bi,bj loops
463       O           lastResidual,       O           lastResidual,
464       U           numIters,       U           numIters,
465       I           myThid )       I           myThid )
466        _EXCH_XYZ_R8(phi_nh, myThid )        _EXCH_XYZ_RL(phi_nh, myThid )
467        CALL TIMER_STOP ('CG3D   [SOLVE_FOR_PRESSURE]',myThid)        CALL TIMER_STOP ('CG3D   [SOLVE_FOR_PRESSURE]',myThid)
468    
469        IF ( DIFFERENT_MULTIPLE(monitorFreq,myTime,deltaTClock)        IF ( DIFFERENT_MULTIPLE(monitorFreq,myTime,deltaTClock)
Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66
  ViewVC Help
Powered by ViewVC 1.1.22