/[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.120 by jmc, Mon Jul 11 19:30:42 2005 UTC revision 1.121 by jmc, Sat Jul 30 22:09:38 2005 UTC
# Line 370  C        and step forward storing the re Line 370  C        and step forward storing the re
370  #ifdef ALLOW_MOM_FLUXFORM  #ifdef ALLOW_MOM_FLUXFORM
371             IF (.NOT. vectorInvariantMomentum) CALL MOM_FLUXFORM(             IF (.NOT. vectorInvariantMomentum) CALL MOM_FLUXFORM(
372       I         bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown,       I         bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown,
373       I         dPhiHydX,dPhiHydY,KappaRU,KappaRV,       I         KappaRU, KappaRV,
374       U         fVerU, fVerV,       U         fVerU, fVerV,
375         O         guDissip, gvDissip,
376       I         myTime, myIter, myThid)       I         myTime, myIter, myThid)
377  #endif  #endif
378  #ifdef ALLOW_MOM_VECINV  #ifdef ALLOW_MOM_VECINV
379             IF (vectorInvariantMomentum) CALL MOM_VECINV(             IF (vectorInvariantMomentum) CALL MOM_VECINV(
380       I         bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown,       I         bi,bj,iMin,iMax,jMin,jMax,k,kup,kDown,
381       I         dPhiHydX,dPhiHydY,KappaRU,KappaRV,       I         KappaRU, KappaRV,
382       U         fVerU, fVerV,       U         fVerU, fVerV,
383       O         guDissip, gvDissip,       O         guDissip, gvDissip,
384       I         myTime, myIter, myThid)       I         myTime, myIter, myThid)
Legend:
Removed from v.1.120  
changed lines
  Added in v.1.121
  ViewVC Help
Powered by ViewVC 1.1.22