56 |
|
|
57 |
IF ( taveFreq.GT.0. ) THEN |
IF ( taveFreq.GT.0. ) THEN |
58 |
CALL TIMEAVE_STATVARS(myTime, myIter, bi, bj, myThid) |
CALL TIMEAVE_STATVARS(myTime, myIter, bi, bj, myThid) |
59 |
|
# ifdef ALLOW_PTRACERS |
60 |
|
IF ( usePTRACERS ) THEN |
61 |
|
CALL PTRACERS_STATVARS(myTime, myIter, bi, bj, myThid) |
62 |
|
ENDIF |
63 |
|
# endif /* ALLOW_PTRACERS */ |
64 |
ENDIF |
ENDIF |
65 |
|
|
|
#ifdef ALLOW_PTRACERS |
|
|
#ifndef PTRACERS_SEPARATE_FORCING |
|
|
CALL PTRACERS_STATVARS(myTime, myIter, bi, bj, myThid) |
|
|
#endif |
|
|
#endif |
|
|
|
|
66 |
C-- End of bi,bj loop |
C-- End of bi,bj loop |
67 |
ENDDO |
ENDDO |
68 |
ENDDO |
ENDDO |