Parent Directory | Revision Log | Revision Graph | Patch
revision 1.22 by jmc, Tue Nov 8 02:14:10 2005 UTC | revision 1.23 by jmc, Tue Dec 13 23:16:52 2005 UTC | |
---|---|---|
# | Line 81 CEOP | Line 81 CEOP |
81 | jMax = sNy | jMax = sNy |
82 | ||
83 | C Adams-Bashforth timestepping weights | C Adams-Bashforth timestepping weights |
84 | ab15 = 1.5 _d 0 + abeps | IF (myIter .EQ. 0) THEN |
85 | ab05 = -0.5 _d 0 - abeps | ab15 = 1.0 _d 0 |
86 | ab05 = 0.0 _d 0 | |
87 | ELSE | |
88 | ab15 = 1.5 _d 0 + abeps | |
89 | ab05 = -0.5 _d 0 - abeps | |
90 | ENDIF | |
91 | ||
92 | C Lateral friction (no-slip, free slip, or half slip): | C Lateral friction (no-slip, free slip, or half slip): |
93 | IF ( no_slip_sides ) THEN | IF ( no_slip_sides ) THEN |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |