/[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.13 by adcroft, Thu Jun 29 18:29:15 2000 UTC revision 1.14 by adcroft, Fri Feb 2 21:04:48 2001 UTC
# Line 100  C--   Add source term arising from w=d/d Line 100  C--   Add source term arising from w=d/d
100  #endif  #endif
101    
102  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
103          IF (openBoundaries) THEN          IF (useOBCS) THEN
104           DO i=1,sNx           DO i=1,sNx
105  C Northern boundary  C Northern boundary
106            IF (OB_Jn(I,bi,bj).NE.0) THEN            IF (OB_Jn(I,bi,bj).NE.0) THEN
# Line 154  C     see CG3D.h for the interface to th Line 154  C     see CG3D.h for the interface to th
154           ENDDO           ENDDO
155    
156  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
157           IF (openBoundaries) THEN           IF (useOBCS) THEN
158            DO i=1,sNx+1            DO i=1,sNx+1
159  C Northern boundary  C Northern boundary
160            IF (OB_Jn(I,bi,bj).NE.0) THEN            IF (OB_Jn(I,bi,bj).NE.0) THEN
# Line 224  C Western boundary Line 224  C Western boundary
224           ENDDO           ENDDO
225    
226  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
227           IF (openBoundaries) THEN           IF (useOBCS) THEN
228            DO K=1,Nr            DO K=1,Nr
229            DO i=1,sNx            DO i=1,sNx
230  C Northern boundary  C Northern boundary
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22