385 |
#endif |
#endif |
386 |
& *(fZon(i,j ) - fZon(i-1,j) |
& *(fZon(i,j ) - fZon(i-1,j) |
387 |
& +fMer(i,j+1) - fMer(i ,j) |
& +fMer(i,j+1) - fMer(i ,j) |
388 |
& +fVerU(i,j,kUp)*rkFac - fVerU(i,j,kDown)*rkFac |
& -fVerU(i,j,kUp)*rkSign + fVerU(i,j,kDown)*rkSign |
389 |
& ) |
& ) |
390 |
& - phxFac*dPhiHydX(i,j) |
& - phxFac*dPhiHydX(i,j) |
391 |
ENDDO |
ENDDO |
546 |
#endif |
#endif |
547 |
& *(fZon(i+1,j) - fZon(i,j ) |
& *(fZon(i+1,j) - fZon(i,j ) |
548 |
& +fMer(i,j ) - fMer(i,j-1) |
& +fMer(i,j ) - fMer(i,j-1) |
549 |
& +fVerV(i,j,kUp)*rkFac - fVerV(i,j,kDown)*rkFac |
& -fVerV(i,j,kUp)*rkSign + fVerV(i,j,kDown)*rkSign |
550 |
& ) |
& ) |
551 |
& - phyFac*dPhiHydY(i,j) |
& - phyFac*dPhiHydY(i,j) |
552 |
ENDDO |
ENDDO |