930 |
& deltaTclock, bi, bj, myThid ) |
& deltaTclock, bi, bj, myThid ) |
931 |
ENDIF |
ENDIF |
932 |
#endif |
#endif |
933 |
DO k=1,Nr |
GM_timeAve(bi,bj) = GM_timeAve(bi,bj)+deltaTclock |
|
GM_TimeAve(k,bi,bj)=GM_TimeAve(k,bi,bj)+deltaTclock |
|
|
ENDDO |
|
934 |
|
|
935 |
ENDIF |
ENDIF |
936 |
#endif /* ALLOW_TIMEAVE */ |
#endif /* ALLOW_TIMEAVE */ |
946 |
RETURN |
RETURN |
947 |
END |
END |
948 |
|
|
949 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
950 |
|
|
951 |
SUBROUTINE GMREDI_CALC_TENSOR_DUMMY( |
SUBROUTINE GMREDI_CALC_TENSOR_DUMMY( |
952 |
I iMin, iMax, jMin, jMax, |
I iMin, iMax, jMin, jMax, |