--- MITgcm/model/src/dynamics.F 2001/08/16 17:12:24 1.79 +++ MITgcm/model/src/dynamics.F 2001/08/17 18:40:30 1.80 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.79 2001/08/16 17:12:24 adcroft Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/dynamics.F,v 1.80 2001/08/17 18:40:30 adcroft Exp $ C $Name: $ #include "CPP_OPTIONS.h" @@ -287,14 +287,14 @@ I bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown, I phiHyd,KappaRU,KappaRV, U fVerU, fVerV, - I myTime, myThid) + I myTime, myIter, myThid) #endif #ifndef DISABLE_MOM_VECINV IF (vectorInvariantMomentum) CALL MOM_VECINV( I bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown, I phiHyd,KappaRU,KappaRV, U fVerU, fVerV, - I myTime, myThid) + I myTime, myIter, myThid) #endif CALL TIMESTEP( I bi,bj,iMin,iMax,jMin,jMax,k,