272 |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
& -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k) |
273 |
& *recip_rAw(i,j,bi,bj) |
& *recip_rAw(i,j,bi,bj) |
274 |
& *( |
& *( |
275 |
& +fVerU(i,j,kUp)*rkFac - fVerU(i,j,kDown)*rkFac |
& fVerU(i,j,kDown) - fVerU(i,j,kUp) |
276 |
& ) |
& )*rkSign |
277 |
ENDDO |
ENDDO |
278 |
ENDDO |
ENDDO |
279 |
ENDIF |
ENDIF |
332 |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
& -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k) |
333 |
& *recip_rAs(i,j,bi,bj) |
& *recip_rAs(i,j,bi,bj) |
334 |
& *( |
& *( |
335 |
& +fVerV(i,j,kUp)*rkFac - fVerV(i,j,kDown)*rkFac |
& fVerV(i,j,kDown) - fVerV(i,j,kUp) |
336 |
& ) |
& )*rkSign |
337 |
ENDDO |
ENDDO |
338 |
ENDDO |
ENDDO |
339 |
ENDIF |
ENDIF |