/[MITgcm]/MITgcm/pkg/mom_vecinv/mom_vecinv.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_vecinv/mom_vecinv.F

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

revision 1.44 by jmc, Sat Jul 30 23:52:10 2005 UTC revision 1.45 by jmc, Wed Aug 24 23:16:05 2005 UTC
# Line 456  C--   Horizontal advection of relative ( Line 456  C--   Horizontal advection of relative (
456         ENDIF         ENDIF
457    
458  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
 #ifndef MINIMAL_TAVE_OUTPUT  
459         IF (taveFreq.GT.0.) THEN         IF (taveFreq.GT.0.) THEN
460           CALL TIMEAVE_CUMUL_1K1T(uZetatave,vCf,deltaTClock,           CALL TIMEAVE_CUMUL_1K1T(uZetatave,vCf,deltaTClock,
461       &                           Nr, k, bi, bj, myThid)       &                           Nr, k, bi, bj, myThid)
462           CALL TIMEAVE_CUMUL_1K1T(vZetatave,uCf,deltaTClock,           CALL TIMEAVE_CUMUL_1K1T(vZetatave,uCf,deltaTClock,
463       &                           Nr, k, bi, bj, myThid)       &                           Nr, k, bi, bj, myThid)
464         ENDIF         ENDIF
 #endif /* ndef MINIMAL_TAVE_OUTPUT */  
465  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
466    
467  C--   Vertical shear terms (-w*du/dr & -w*dv/dr)  C--   Vertical shear terms (-w*du/dr & -w*dv/dr)
Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45
  ViewVC Help
Powered by ViewVC 1.1.22