Parent Directory | Revision Log | Revision Graph | Patch
revision 1.4 by adcroft, Tue May 29 14:01:39 2001 UTC | revision 1.5 by jmc, Wed Jan 30 04:22:31 2002 UTC | |
---|---|---|
# | Line 63 C == Local variables == | Line 63 C == Local variables == |
63 | ENDDO | ENDDO |
64 | ENDDO | ENDDO |
65 | ||
66 | #ifdef NONLIN_FRSURF | |
67 | DO I=1-Olx,sNx+Olx | |
68 | OBNeta(I,bi,bj)=0. | |
69 | OBSeta(I,bi,bj)=0. | |
70 | ENDDO | |
71 | DO J=1-Oly,sNy+Oly | |
72 | OBEeta(J,bi,bj)=0. | |
73 | OBWeta(J,bi,bj)=0. | |
74 | ENDDO | |
75 | #endif /* NONLIN_FRSURF */ | |
76 | ||
77 | #ifdef ALLOW_ORLANSKI | #ifdef ALLOW_ORLANSKI |
78 | IF (useOrlanskiNorth.OR.useOrlanskiSouth.OR. | IF (useOrlanskiNorth.OR.useOrlanskiSouth.OR. |
79 | & useOrlanskiEast.OR.useOrlanskiWest) THEN | & useOrlanskiEast.OR.useOrlanskiWest) THEN |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |