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 |
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) |