10 |
I bi, bj, iMin, iMax, jMin, jMax, K, |
I bi, bj, iMin, iMax, jMin, jMax, K, |
11 |
I advection_scheme, |
I advection_scheme, |
12 |
I tracer, gTracer, |
I tracer, gTracer, |
|
O gTrNm1, |
|
13 |
I myIter, myThid ) |
I myIter, myThid ) |
14 |
C !DESCRIPTION: \bv |
C !DESCRIPTION: \bv |
15 |
C *==========================================================* |
C *==========================================================* |
34 |
INTEGER advection_scheme |
INTEGER advection_scheme |
35 |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
36 |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
_RL gTrNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
37 |
INTEGER myIter, myThid |
INTEGER myIter, myThid |
38 |
|
|
39 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
40 |
C == Local variables == |
C == Local variables == |
41 |
INTEGER i,j |
INTEGER i,j |
42 |
_RL ab15,ab05 |
_RL ab15,ab05 |
|
_RL gTrtmp(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
43 |
CEOP |
CEOP |
44 |
|
|
45 |
C Adams-Bashforth timestepping weights |
C Adams-Bashforth timestepping weights |