Parent Directory | Revision Log | Revision Graph | Patch
revision 1.27 by adcroft, Tue Mar 14 17:47:25 2000 UTC | revision 1.28 by adcroft, Fri Feb 2 21:04:48 2001 UTC | |
---|---|---|
# | Line 71 C aS2d: integral in Z Ay/dY | Line 71 C aS2d: integral in Z Ay/dY |
71 | ENDDO | ENDDO |
72 | ENDDO | ENDDO |
73 | #ifdef ALLOW_OBCS | #ifdef ALLOW_OBCS |
74 | IF (openBoundaries) THEN | IF (useOBCS) THEN |
75 | DO I=1,sNx | DO I=1,sNx |
76 | IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj),bi,bj)=0. | IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj),bi,bj)=0. |
77 | IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj)+1,bi,bj)=0. | IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj)+1,bi,bj)=0. |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |