426 |
ENDDO |
ENDDO |
427 |
|
|
428 |
#ifdef ALLOW_TIMEAVE |
#ifdef ALLOW_TIMEAVE |
429 |
|
#ifndef HRCUBE |
430 |
IF (taveFreq.GT.0.) THEN |
IF (taveFreq.GT.0.) THEN |
431 |
CALL TIMEAVE_CUMUL_1K1T(uZetatave,vCf,deltaTClock, |
CALL TIMEAVE_CUMUL_1K1T(uZetatave,vCf,deltaTClock, |
432 |
& Nr, k, bi, bj, myThid) |
& Nr, k, bi, bj, myThid) |
433 |
CALL TIMEAVE_CUMUL_1K1T(vZetatave,uCf,deltaTClock, |
CALL TIMEAVE_CUMUL_1K1T(vZetatave,uCf,deltaTClock, |
434 |
& Nr, k, bi, bj, myThid) |
& Nr, k, bi, bj, myThid) |
435 |
ENDIF |
ENDIF |
436 |
#endif |
#endif /* ALLOW_TIMEAVE */ |
437 |
|
#endif /* ndef HRCUBE */ |
438 |
|
|
439 |
C-- Vertical shear terms (-w*du/dr & -w*dv/dr) |
C-- Vertical shear terms (-w*du/dr & -w*dv/dr) |
440 |
IF ( .NOT. momImplVertAdv ) THEN |
IF ( .NOT. momImplVertAdv ) THEN |