Parent Directory | Revision Log | Revision Graph | Patch
revision 1.9 by heimbach, Thu Sep 27 20:12:11 2001 UTC | revision 1.10 by adcroft, Fri Sep 28 02:26:57 2001 UTC | |
---|---|---|
# | Line 39 C == Routine Arguments == | Line 39 C == Routine Arguments == |
39 | C !LOCAL VARIABLES: | C !LOCAL VARIABLES: |
40 | C == Local variables == | C == Local variables == |
41 | INTEGER i,j | INTEGER i,j |
_RL ab15,ab05 | ||
42 | CEOP | CEOP |
43 | ||
C Adams-Bashforth timestepping weights | ||
IF (myIter .EQ. 0) THEN | ||
ab15=1.0 | ||
ab05=0.0 | ||
ELSE | ||
ab15=1.5+abEps | ||
ab05=-(0.5+abEps) | ||
ENDIF | ||
44 | C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| | C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
45 | ||
46 | C- Step forward tracer | C- Extrapolate tendancies to mid-time level (n+1/2) |
47 | DO j=jMin,jMax | DO j=jMin,jMax |
48 | DO i=iMin,iMax | DO i=iMin,iMax |
49 | gTracer(i,j,k,bi,bj)=tracer(i,j,k,bi,bj) | gTracer(i,j,k,bi,bj)=tracer(i,j,k,bi,bj) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |