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