diff --git a/src/fourier_mod.F90 b/src/fourier_mod.F90 index e84bb5d2292232a6f21567d8ff25803f3ea30a8a..302aeb57acbffde27902d30d8bb864446c6f6407 100644 --- a/src/fourier_mod.F90 +++ b/src/fourier_mod.F90 @@ -139,7 +139,7 @@ MODULE fourier call fftw_mpi_execute_dft_c2r(planb, cmpx_data_f, real_data_f) call fftw_mpi_execute_dft_c2r(planb, cmpx_data_g, real_data_g) #endif - sum_real_ = sum_real_ - 0*real_data_f*real_data_g*inv_Ny*inv_Nx + sum_real_ = sum_real_ - real_data_f*real_data_g*inv_Ny*inv_Nx END SUBROUTINE poisson_bracket_and_sum