/[MITgcm]/MITgcm/model/src/dynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/dynamics.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.79 by adcroft, Thu Aug 16 17:12:24 2001 UTC revision 1.81 by adcroft, Wed Sep 19 02:43:27 2001 UTC
# Line 268  C        distinguishe between Stagger an Line 268  C        distinguishe between Stagger an
268           IF (staggerTimeStep) THEN           IF (staggerTimeStep) THEN
269             CALL CALC_PHI_HYD(             CALL CALC_PHI_HYD(
270       I        bi,bj,iMin,iMax,jMin,jMax,k,       I        bi,bj,iMin,iMax,jMin,jMax,k,
271       I        gTnm1, gSnm1,       I        gT, gS,
272       U        phiHyd,       U        phiHyd,
273       I        myThid )       I        myThid )
274           ELSE           ELSE
# Line 287  C        and step forward storing the re Line 287  C        and step forward storing the re
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,
Legend:
Removed from v.1.79  
changed lines
  Added in v.1.81
  ViewVC Help
Powered by ViewVC 1.1.22