144 |
& Visbeck_K_T(i,j,bi,bj)=Visbeck_K_T(i,j,bi,bj) |
& Visbeck_K_T(i,j,bi,bj)=Visbeck_K_T(i,j,bi,bj) |
145 |
& +VisbeckK(i,j,bi,bj)*deltaTclock |
& +VisbeckK(i,j,bi,bj)*deltaTclock |
146 |
#endif |
#endif |
147 |
|
#endif /* INCLUDE_DIAGNOSTICS_INTERFACE_CODE */ |
148 |
ENDDO |
ENDDO |
149 |
ENDDO |
ENDDO |
|
GM_TimeAve(k,bi,bj)=GM_TimeAve(k,bi,bj)+deltaTclock |
|
|
#endif /* INCLUDE_DIAGNOSTICS_INTERFACE_CODE */ |
|
150 |
|
|
151 |
|
#ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE |
152 |
|
GM_TimeAve(k,bi,bj)=GM_TimeAve(k,bi,bj)+deltaTclock |
153 |
|
#endif |
154 |
|
|
155 |
|
|
156 |
#ifdef GM_NON_UNITY_DIAGONAL |
#ifdef GM_NON_UNITY_DIAGONAL |