/[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.23 by adcroft, Wed Jun 6 14:55:45 2001 UTC revision 1.24 by adcroft, Wed Jun 6 15:14:06 2001 UTC
# Line 136  C Western boundary Line 136  C Western boundary
136        ENDDO        ENDDO
137    
138  #ifndef EXCLUDE_DEBUGMODE  #ifndef EXCLUDE_DEBUGMODE
139          IF (debugMode) THEN
140         CALL DEBUG_STATS_RL(1,cg2d_b,'cg2d_b (SOLVE_FOR_PRESSURE)',         CALL DEBUG_STATS_RL(1,cg2d_b,'cg2d_b (SOLVE_FOR_PRESSURE)',
141       &                        myThid)       &                        myThid)
142          ENDIF
143  #endif  #endif
144    
145  C--   Find the surface pressure using a two-dimensional conjugate  C--   Find the surface pressure using a two-dimensional conjugate
# Line 156  C     see CG2D.h for the interface to th Line 158  C     see CG2D.h for the interface to th
158        _EXCH_XY_R8(cg2d_x, myThid )        _EXCH_XY_R8(cg2d_x, myThid )
159    
160  #ifndef EXCLUDE_DEBUGMODE  #ifndef EXCLUDE_DEBUGMODE
161          IF (debugMode) THEN
162         CALL DEBUG_STATS_RL(1,cg2d_x,'cg2d_x (SOLVE_FOR_PRESSURE)',         CALL DEBUG_STATS_RL(1,cg2d_x,'cg2d_x (SOLVE_FOR_PRESSURE)',
163       &                        myThid)       &                        myThid)
164          ENDIF
165  #endif  #endif
166    
167        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22