Parent Directory | Revision Log | Revision Graph | Patch
revision 1.5 by jmc, Sun Dec 16 18:54:49 2001 UTC | revision 1.6 by jmc, Wed Mar 6 01:56:27 2002 UTC | |
---|---|---|
# | Line 96 C- Off-diagonal components of horiz | Line 96 C- Off-diagonal components of horiz |
96 | #endif /* GM_EXTRA_DIAGONAL */ | #endif /* GM_EXTRA_DIAGONAL */ |
97 | ||
98 | #ifdef GM_BOLUS_ADVEC | #ifdef GM_BOLUS_ADVEC |
99 | IF (GM_AdvForm) THEN | IF (GM_AdvForm .AND. GM_AdvSeparate) THEN |
100 | kp1 = MIN(k+1,Nr) | kp1 = MIN(k+1,Nr) |
101 | maskp1 = 1. | maskp1 = 1. |
102 | IF (k.GE.Nr) maskp1 = 0. | IF (k.GE.Nr) maskp1 = 0. |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |