/[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.30 by adcroft, Mon Mar 4 17:26:41 2002 UTC revision 1.31 by jmc, Wed Mar 27 23:13:39 2002 UTC
# Line 144  C--   Add source term arising from w=d/d Line 144  C--   Add source term arising from w=d/d
144  C Northern boundary  C Northern boundary
145            IF (OB_Jn(I,bi,bj).NE.0) THEN            IF (OB_Jn(I,bi,bj).NE.0) THEN
146             cg2d_b(I,OB_Jn(I,bi,bj),bi,bj)=0.             cg2d_b(I,OB_Jn(I,bi,bj),bi,bj)=0.
147               cg2d_x(I,OB_Jn(I,bi,bj),bi,bj)=0.
148            ENDIF            ENDIF
149  C Southern boundary  C Southern boundary
150            IF (OB_Js(I,bi,bj).NE.0) THEN            IF (OB_Js(I,bi,bj).NE.0) THEN
151             cg2d_b(I,OB_Js(I,bi,bj),bi,bj)=0.             cg2d_b(I,OB_Js(I,bi,bj),bi,bj)=0.
152               cg2d_x(I,OB_Js(I,bi,bj),bi,bj)=0.
153            ENDIF            ENDIF
154           ENDDO           ENDDO
155           DO j=1,sNy           DO j=1,sNy
156  C Eastern boundary  C Eastern boundary
157            IF (OB_Ie(J,bi,bj).NE.0) THEN            IF (OB_Ie(J,bi,bj).NE.0) THEN
158             cg2d_b(OB_Ie(J,bi,bj),J,bi,bj)=0.             cg2d_b(OB_Ie(J,bi,bj),J,bi,bj)=0.
159               cg2d_x(OB_Ie(J,bi,bj),J,bi,bj)=0.
160            ENDIF            ENDIF
161  C Western boundary  C Western boundary
162            IF (OB_Iw(J,bi,bj).NE.0) THEN            IF (OB_Iw(J,bi,bj).NE.0) THEN
163             cg2d_b(OB_Iw(J,bi,bj),J,bi,bj)=0.             cg2d_b(OB_Iw(J,bi,bj),J,bi,bj)=0.
164               cg2d_x(OB_Iw(J,bi,bj),J,bi,bj)=0.
165            ENDIF            ENDIF
166           ENDDO           ENDDO
167          ENDIF          ENDIF
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22