Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.27 by adcroft, Tue Mar 14 17:47:25 2000 UTC | revision 1.27.2.1 by adcroft, Tue Jan 30 21:02:59 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 |