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