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

new variable fctrl_species for selecting species to be used for calc flame position

Browse source
This commit is contained in:
ignis 2020-02-21 08:23:56 +09:00
parent 964f8ccda6
commit a81ba9bcdf
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
code/m_parameters.f90
View file

@ -33,6 +33,7 @@ module m_parameters
! Solver Control
integer :: nsp, nrxn
integer :: ncyc=0,int_pr
integer :: fctrl_species=1
real :: absolute_tolerence=1e-8
real :: dt,tf,t_now,t_uf,dt_uf

6
code/ysolve.f90
View file

@ -121,8 +121,8 @@
pflold=pflame
pflame=0.
DO i=1,nx
pflame=pflame+y1(i,1)*hx
uxt(i)= 1. - y1(i,1)
pflame=pflame+y1(i,fctrl_species)*hx
uxt(i)= 1. - y1(i,fctrl_species)
ENDDO
CALL dfnonp(nx,hx,uxt,duxt,1,1)
@ -355,7 +355,7 @@
! calculate flame position
pflame=0.
DO i=1,nx
pflame=pflame+y1(i,1)*hx
pflame=pflame+y1(i,fctrl_species)*hx
ENDDO
END SUBROUTINE SET_IC