82 |
INTEGER kUp,kDown,km1 |
INTEGER kUp,kDown,km1 |
83 |
INTEGER GAD_TR |
INTEGER GAD_TR |
84 |
LOGICAL calcAdvection |
LOGICAL calcAdvection |
85 |
INTEGER iterNb |
INTEGER iterNb, startAB |
86 |
CEOP |
CEOP |
87 |
|
|
88 |
C Loop ranges for daughter routines |
C Loop ranges for daughter routines |
172 |
#endif |
#endif |
173 |
iterNb = myIter |
iterNb = myIter |
174 |
IF (staggerTimeStep) iterNb = myIter - 1 |
IF (staggerTimeStep) iterNb = myIter - 1 |
175 |
|
startAB = nIter0 - PTRACERS_Iter0 |
176 |
CALL ADAMS_BASHFORTH2( |
CALL ADAMS_BASHFORTH2( |
177 |
I bi,bj,K, |
I bi,bj,K, |
178 |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
179 |
U gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer), |
U gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer), |
180 |
I iterNb, myThid ) |
I startAB, iterNb, myThid ) |
181 |
#ifdef ALLOW_MATRIX |
#ifdef ALLOW_MATRIX |
182 |
ENDIF |
ENDIF |
183 |
#endif |
#endif |