Parent Directory | Revision Log | Revision Graph | Patch
revision 1.58 by adcroft, Fri Feb 2 21:04:48 2001 UTC | revision 1.60 by adcroft, Wed Feb 7 16:28:54 2001 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | C $Header$ | C $Header$ |
2 | C $Name$ | |
3 | ||
4 | #include "CPP_OPTIONS.h" | #include "CPP_OPTIONS.h" |
5 | ||
# | Line 285 C-- Integrate continuity verticall | Line 286 C-- Integrate continuity verticall |
286 | ||
287 | #ifdef ALLOW_OBCS | #ifdef ALLOW_OBCS |
288 | #ifdef ALLOW_NONHYDROSTATIC | #ifdef ALLOW_NONHYDROSTATIC |
289 | C-- Calculate future values on open boundaries | C-- Apply OBC to W if in N-H mode |
290 | IF (useOBCS.AND.nonHydrostatic) THEN | IF (useOBCS.AND.nonHydrostatic) THEN |
291 | CALL OBCS_APPLY_W( bi, bj, k, wVel, myThid ) | CALL OBCS_APPLY_W( bi, bj, k, wVel, myThid ) |
292 | ENDIF | ENDIF |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |