/[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.21 by adcroft, Tue Jul 20 17:46:38 2004 UTC revision 1.22 by jmc, Mon Sep 20 21:54:55 2004 UTC
# Line 459  c      CALL MOM_VI_V_CORIOLIS_C4(bi,bj,K Line 459  c      CALL MOM_VI_V_CORIOLIS_C4(bi,bj,K
459           CALL TIMEAVE_CUMUL_1K1T(vZetatave,uCf,deltaTClock,           CALL TIMEAVE_CUMUL_1K1T(vZetatave,uCf,deltaTClock,
460       &                           Nr, k, bi, bj, myThid)       &                           Nr, k, bi, bj, myThid)
461         ENDIF         ENDIF
 #endif /* ALLOW_TIMEAVE */  
462  #endif /* ndef HRCUBE */  #endif /* ndef HRCUBE */
463    #endif /* ALLOW_TIMEAVE */
464    
465  C--   Vertical shear terms (-w*du/dr & -w*dv/dr)  C--   Vertical shear terms (-w*du/dr & -w*dv/dr)
466         IF ( .NOT. momImplVertAdv ) THEN         IF ( .NOT. momImplVertAdv ) THEN
# Line 507  C--   Set du/dt & dv/dt on boundaries to Line 507  C--   Set du/dt & dv/dt on boundaries to
507         ENDDO         ENDDO
508        ENDDO        ENDDO
509    
510    #ifdef ALLOW_DEBUG
511          IF ( debugLevel .GE. debLevB
512         &   .AND. k.EQ.4 .AND. myIter.EQ.nIter0
513         &   .AND. nPx.EQ.1 .AND. nPy.EQ.1
514         &   .AND. useCubedSphereExchange ) THEN
515            CALL DEBUG_CS_CORNER_UV(uDiss,vDiss,k,
516         &                          standardMessageUnit,bi,bj,myThid)
517          ENDIF
518    #endif /* ALLOW_DEBUG */
519    
520        IF ( writeDiag ) THEN        IF ( writeDiag ) THEN
521         CALL WRITE_LOCAL_RL('Ds','I10',1,strain,bi,bj,k,myIter,myThid)         CALL WRITE_LOCAL_RL('Ds','I10',1,strain,bi,bj,k,myIter,myThid)
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22