research/incomp-flame-1d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix bug in subroutine fonestep

Browse source
This commit is contained in:
ignis 2020-02-27 09:48:28 +09:00
parent 1b4ab8456e
commit 9b6e5a7d0b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
code/ysolve.f90
View file

@ -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