/[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.31 by jmc, Wed Nov 10 03:05:04 2004 UTC revision 1.32 by dimitri, Sat Dec 4 05:59:50 2004 UTC
# Line 445  c      CALL MOM_VI_V_CORIOLIS_C4(bi,bj,K Line 445  c      CALL MOM_VI_V_CORIOLIS_C4(bi,bj,K
445         ENDIF         ENDIF
446    
447  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
448  #ifndef HRCUBE  #ifndef MINIMAL_TAVE_OUTPUT
449         IF (taveFreq.GT.0.) THEN         IF (taveFreq.GT.0.) THEN
450           CALL TIMEAVE_CUMUL_1K1T(uZetatave,vCf,deltaTClock,           CALL TIMEAVE_CUMUL_1K1T(uZetatave,vCf,deltaTClock,
451       &                           Nr, k, bi, bj, myThid)       &                           Nr, k, bi, bj, myThid)
452           CALL TIMEAVE_CUMUL_1K1T(vZetatave,uCf,deltaTClock,           CALL TIMEAVE_CUMUL_1K1T(vZetatave,uCf,deltaTClock,
453       &                           Nr, k, bi, bj, myThid)       &                           Nr, k, bi, bj, myThid)
454         ENDIF         ENDIF
455  #endif /* ndef HRCUBE */  #endif /* ndef MINIMAL_TAVE_OUTPUT */
456  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
457    
458  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.31  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22