From b391cfb11f11cd1d2b0413acf3ff734be21ea619 Mon Sep 17 00:00:00 2001
From: ShufflerBardOnTheEdge <matyas.parrag@gmail.com>
Date: Tue, 31 May 2022 13:04:24 +0100
Subject: [PATCH] fixed minor issue. #7

---
 src/spectral_method.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/spectral_method.f90 b/src/spectral_method.f90
index dc385f55..8f2caae3 100644
--- a/src/spectral_method.f90
+++ b/src/spectral_method.f90
@@ -135,7 +135,7 @@ subroutine spectral_method_iter(c_in, c_prev_in,a,dt,M,k, c_out,init,stab)
         if(init == 0) then
             ! $OMP PARALLEL WORKSHARE
             ans(:,:) = (2.0*dt/(3.0+2.0*dt*M*k*k4(:,:)+2*dt*c_A*M*k2(:,:)))*(2.0*M*k2(:,:)*out_bulk(:,:)-M*k2(:,:)*&
-                out_bulk_prev(:,:) + M*k2(:,:)*2*dt*c_a*out(:,:) - M*k2(:,:)*c_a*dt*out_prev(:,:) + (4.0*out(:,:)-out_prev(:,:))/(2.0*dt))
+                out_bulk_prev(:,:) + M*k2(:,:)*2*c_a*out(:,:) - M*k2(:,:)*c_a*out_prev(:,:) + (4.0*out(:,:)-out_prev(:,:))/(2.0*dt))
             ! $OMP END PARALLEL WORKSHARE
         else
             ! $OMP PARALLEL WORKSHARE