/[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.41 by edhill, Thu Oct 30 12:00:41 2003 UTC revision 1.42 by edhill, Tue Nov 4 18:40:58 2003 UTC
# Line 178  C Western boundary Line 178  C Western boundary
178         ENDDO         ENDDO
179        ENDDO        ENDDO
180    
181  #ifndef DISABLE_DEBUGMODE  #ifdef ALLOW_DEBUG
182        IF ( debugLevel .GE. debLevB ) THEN        IF ( debugLevel .GE. debLevB ) THEN
183         CALL DEBUG_STATS_RL(1,cg2d_b,'cg2d_b (SOLVE_FOR_PRESSURE)',         CALL DEBUG_STATS_RL(1,cg2d_b,'cg2d_b (SOLVE_FOR_PRESSURE)',
184       &                        myThid)       &                        myThid)
# Line 200  C     see CG2D.h for the interface to th Line 200  C     see CG2D.h for the interface to th
200       I           myThid )       I           myThid )
201        _EXCH_XY_R8(cg2d_x, myThid )        _EXCH_XY_R8(cg2d_x, myThid )
202    
203  #ifndef DISABLE_DEBUGMODE  #ifdef ALLOW_DEBUG
204        IF ( debugLevel .GE. debLevB ) THEN        IF ( debugLevel .GE. debLevB ) THEN
205         CALL DEBUG_STATS_RL(1,cg2d_x,'cg2d_x (SOLVE_FOR_PRESSURE)',         CALL DEBUG_STATS_RL(1,cg2d_x,'cg2d_x (SOLVE_FOR_PRESSURE)',
206       &                        myThid)       &                        myThid)
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22