/[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.29 by jmc, Sun Feb 10 00:39:22 2002 UTC revision 1.30 by adcroft, Mon Mar 4 17:26:41 2002 UTC
# Line 165  C Western boundary Line 165  C Western boundary
165         ENDDO         ENDDO
166        ENDDO        ENDDO
167    
168  #ifndef EXCLUDE_DEBUGMODE  #ifndef DISABLE_DEBUGMODE
169        IF (debugMode) THEN        IF (debugMode) THEN
170         CALL DEBUG_STATS_RL(1,cg2d_b,'cg2d_b (SOLVE_FOR_PRESSURE)',         CALL DEBUG_STATS_RL(1,cg2d_b,'cg2d_b (SOLVE_FOR_PRESSURE)',
171       &                        myThid)       &                        myThid)
# Line 187  C     see CG2D.h for the interface to th Line 187  C     see CG2D.h for the interface to th
187       I           myThid )       I           myThid )
188        _EXCH_XY_R8(cg2d_x, myThid )        _EXCH_XY_R8(cg2d_x, myThid )
189    
190  #ifndef EXCLUDE_DEBUGMODE  #ifndef DISABLE_DEBUGMODE
191        IF (debugMode) THEN        IF (debugMode) THEN
192         CALL DEBUG_STATS_RL(1,cg2d_x,'cg2d_x (SOLVE_FOR_PRESSURE)',         CALL DEBUG_STATS_RL(1,cg2d_x,'cg2d_x (SOLVE_FOR_PRESSURE)',
193       &                        myThid)       &                        myThid)
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22