Fix force estimation

xcompact3d · Dec 9, 2024 · 1192570 · 1192570
1 parent e26a31d
commit 1192570
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/forces.f90 b/src/forces.f90
@@ -195,8 +195,8 @@ subroutine forces_unst(rhs_dux, rhs_duy, px, py, dt)
     do k = 1, xsize(3)
        do j = 1, xsize(2)
           do i = 1, xsize(1)
-             dux(i,j,k) = rhs_dux(i,j,k) - px(i,j,k) / dt
-             duy(i,j,k) = rhs_duy(i,j,k) - py(i,j,k) / dt
+             dux(i,j,k) = dt*rhs_dux(i,j,k) - px(i,j,k)
+             duy(i,j,k) = dt*rhs_duy(i,j,k) - py(i,j,k)
           end do
        end do
     end do