287 |
I bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown, |
I bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown, |
288 |
I phiHyd,KappaRU,KappaRV, |
I phiHyd,KappaRU,KappaRV, |
289 |
U fVerU, fVerV, |
U fVerU, fVerV, |
290 |
I myTime, myThid) |
I myTime, myIter, myThid) |
291 |
#endif |
#endif |
292 |
#ifndef DISABLE_MOM_VECINV |
#ifndef DISABLE_MOM_VECINV |
293 |
IF (vectorInvariantMomentum) CALL MOM_VECINV( |
IF (vectorInvariantMomentum) CALL MOM_VECINV( |
294 |
I bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown, |
I bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown, |
295 |
I phiHyd,KappaRU,KappaRV, |
I phiHyd,KappaRU,KappaRV, |
296 |
U fVerU, fVerV, |
U fVerU, fVerV, |
297 |
I myTime, myThid) |
I myTime, myIter, myThid) |
298 |
#endif |
#endif |
299 |
CALL TIMESTEP( |
CALL TIMESTEP( |
300 |
I bi,bj,iMin,iMax,jMin,jMax,k, |
I bi,bj,iMin,iMax,jMin,jMax,k, |