Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.7.2.1 by adcroft, Tue Jan 9 21:26:07 2001 UTC | revision 1.7.2.2 by adcroft, Tue Jan 30 21:02:59 2001 UTC | |
|---|---|---|
| # | Line 103 caja & +drF(K-1)*_hFacC(i,j,k-1,bi,b | Line 103 caja & +drF(K-1)*_hFacC(i,j,k-1,bi,b |
| 103 | ENDDO | ENDDO |
| 104 | #ifdef ALLOW_OBCS | #ifdef ALLOW_OBCS |
| 105 | DO K=1,Nr | DO K=1,Nr |
| 106 | IF (openBoundaries) THEN | IF (useOBCS) THEN |
| 107 | DO I=1,sNx | DO I=1,sNx |
| 108 | IF (OB_Jn(I,bi,bj).NE.0) THEN | IF (OB_Jn(I,bi,bj).NE.0) THEN |
| 109 | aS3d(I,OB_Jn(I,bi,bj),K,bi,bj)=0. | aS3d(I,OB_Jn(I,bi,bj),K,bi,bj)=0. |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |