132 |
#endif /* GM_VISBECK_VARIABLE_K */ |
#endif /* GM_VISBECK_VARIABLE_K */ |
133 |
|
|
134 |
|
|
135 |
#ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE |
#ifdef ALLOW_TIMEAVE |
136 |
C-- Time-average |
C-- Time-average |
137 |
GM_Kwx_T(i,j,k,bi,bj)=GM_Kwx_T(i,j,k,bi,bj) |
GM_Kwx_T(i,j,k,bi,bj)=GM_Kwx_T(i,j,k,bi,bj) |
138 |
& +Kwx(i,j,k,bi,bj)*deltaTclock |
& +Kwx(i,j,k,bi,bj)*deltaTclock |
145 |
& 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) |
146 |
& +VisbeckK(i,j,bi,bj)*deltaTclock |
& +VisbeckK(i,j,bi,bj)*deltaTclock |
147 |
#endif |
#endif |
148 |
#endif /* INCLUDE_DIAGNOSTICS_INTERFACE_CODE */ |
#endif /* ALLOW_TIMEAVE */ |
149 |
ENDDO |
ENDDO |
150 |
ENDDO |
ENDDO |
151 |
|
|
152 |
#ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE |
#ifdef ALLOW_TIMEAVE |
153 |
GM_TimeAve(k,bi,bj)=GM_TimeAve(k,bi,bj)+deltaTclock |
GM_TimeAve(k,bi,bj)=GM_TimeAve(k,bi,bj)+deltaTclock |
154 |
#endif |
#endif |
155 |
|
|