Parent Directory | Revision Log | Revision Graph | Patch
revision 1.13 by adcroft, Thu Jun 29 18:29:15 2000 UTC | revision 1.14 by adcroft, Fri Feb 2 21:04:48 2001 UTC | |
---|---|---|
# | Line 100 C-- Add source term arising from w=d/d | Line 100 C-- Add source term arising from w=d/d |
100 | #endif | #endif |
101 | ||
102 | #ifdef ALLOW_OBCS | #ifdef ALLOW_OBCS |
103 | IF (openBoundaries) THEN | IF (useOBCS) THEN |
104 | DO i=1,sNx | DO i=1,sNx |
105 | C Northern boundary | C Northern boundary |
106 | IF (OB_Jn(I,bi,bj).NE.0) THEN | IF (OB_Jn(I,bi,bj).NE.0) THEN |
# | Line 154 C see CG3D.h for the interface to th | Line 154 C see CG3D.h for the interface to th |
154 | ENDDO | ENDDO |
155 | ||
156 | #ifdef ALLOW_OBCS | #ifdef ALLOW_OBCS |
157 | IF (openBoundaries) THEN | IF (useOBCS) THEN |
158 | DO i=1,sNx+1 | DO i=1,sNx+1 |
159 | C Northern boundary | C Northern boundary |
160 | IF (OB_Jn(I,bi,bj).NE.0) THEN | IF (OB_Jn(I,bi,bj).NE.0) THEN |
# | Line 224 C Western boundary | Line 224 C Western boundary |
224 | ENDDO | ENDDO |
225 | ||
226 | #ifdef ALLOW_OBCS | #ifdef ALLOW_OBCS |
227 | IF (openBoundaries) THEN | IF (useOBCS) THEN |
228 | DO K=1,Nr | DO K=1,Nr |
229 | DO i=1,sNx | DO i=1,sNx |
230 | C Northern boundary | C Northern boundary |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |