From 9b6e5a7d0b6f21f7720bdc830c5467d84d108174 Mon Sep 17 00:00:00 2001
From: ignis <ignis@postech.ac.kr>
Date: Thu, 27 Feb 2020 09:48:28 +0900
Subject: [PATCH] fix bug in subroutine fonestep

---
 code/ysolve.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/ysolve.f90 b/code/ysolve.f90
index 5a14813..0f3d650 100644
--- a/code/ysolve.f90
+++ b/code/ysolve.f90
@@ -589,8 +589,8 @@
 
         ! Boundary conditions
         IF (i.eq.nx) THEN
-            f(nx,1) = -wrate1 - u(nx)*dux(1,nx)
-            f(nx,2) = wrate1 - u(nx)*dux(2,nx)
+            f(nx,1) = -wrate - u(nx)*dux(1,nx)
+            f(nx,2) = wrate - u(nx)*dux(2,nx)
         ENDIF
       ENDDO