/[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.74 by jmc, Mon Dec 21 00:24:58 2009 UTC revision 1.75 by jmc, Mon Dec 6 14:22:34 2010 UTC
# Line 242  C Southern boundary Line 242  C Southern boundary
242             cg2d_x(i,OB_Js(i,bi,bj),bi,bj)=0.             cg2d_x(i,OB_Js(i,bi,bj),bi,bj)=0.
243            ENDIF            ENDIF
244           ENDDO           ENDDO
245    #ifndef ALLOW_NEST_CHILD
246           DO j=1,sNy           DO j=1,sNy
247  C Eastern boundary  C Eastern boundary
248            IF (OB_Ie(j,bi,bj).NE.0) THEN            IF (OB_Ie(j,bi,bj).NE.0) THEN
# Line 254  C Western boundary Line 255  C Western boundary
255             cg2d_x(OB_Iw(j,bi,bj),j,bi,bj)=0.             cg2d_x(OB_Iw(j,bi,bj),j,bi,bj)=0.
256            ENDIF            ENDIF
257           ENDDO           ENDDO
258    #endif /* ALLOW_NEST_CHILD */
259          ENDIF          ENDIF
260  #endif /* ALLOW_OBCS */  #endif /* ALLOW_OBCS */
261  C-    end bi,bj loops  C-    end bi,bj loops
Legend:
Removed from v.1.74  
changed lines
  Added in v.1.75
  ViewVC Help
Powered by ViewVC 1.1.22