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

removing unused variables

Browse source
This commit is contained in:
ignis 2020-02-27 09:50:21 +09:00
parent 9b6e5a7d0b
commit e377cb503e
1 changed files with 5 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
code/ysolve.f90
View file

@ -132,7 +132,7 @@
END SUBROUTINE calc_diff END SUBROUTINE calc_diff
END INTERFACE END INTERFACE
INTEGER :: i,j,k,savenum INTEGER :: i
REAL :: pflame,pflold,delf=0. REAL :: pflame,pflold,delf=0.
REAL :: residue = 0. REAL :: residue = 0.
@ -280,7 +280,7 @@
END SUBROUTINE write_sd END SUBROUTINE write_sd
SUBROUTINE save_final_field SUBROUTINE save_final_field
INTEGER :: i,j,k INTEGER :: i
OPEN (305,FILE='sfield.bin',form='unformatted',status='unknown') OPEN (305,FILE='sfield.bin',form='unformatted',status='unknown')
DO i=1,nx DO i=1,nx
@ -363,9 +363,7 @@
SUBROUTINE BASE_FLAME_PROFILE(x) SUBROUTINE BASE_FLAME_PROFILE(x)
INTEGER :: i, ifl, si INTEGER :: i, ifl, si
REAL :: xi
REAL :: x(nx) REAL :: x(nx)
REAL :: max_ysum
! initial flame thickness (0.2 pi n grids) ! initial flame thickness (0.2 pi n grids)
ifl=INT(2.0*pi*0.1/hx) ifl=INT(2.0*pi*0.1/hx)
@ -519,7 +517,6 @@
REAL, INTENT(INOUT),DIMENSION(:,:) :: ri,r1,r2 REAL, INTENT(INOUT),DIMENSION(:,:) :: ri,r1,r2
REAL, INTENT(OUT),DIMENSION(:,:) :: f REAL, INTENT(OUT),DIMENSION(:,:) :: f
INTEGER :: i,j,k
REAL :: at,bt REAL :: at,bt
CALL calc_diff(ri) CALL calc_diff(ri)
@ -562,9 +559,8 @@
REAL, INTENT(OUT),DIMENSION(:,:) :: f REAL, INTENT(OUT),DIMENSION(:,:) :: f
REAL, DIMENSION(nsp,nx) :: ux, dux, d2ux REAL, DIMENSION(nsp,nx) :: ux, dux, d2ux
REAL, DIMENSION(nx) :: dxdm REAL, DIMENSION(nx) :: dxdm
INTEGER :: i,j,k INTEGER :: i
REAL :: wrate,Ly,Dy,Lt,Dt REAL :: wrate,Ly,Dy,Lt,Dt
REAL :: wrate1, wrate2
! x-direction ! x-direction
DO i=1,nx DO i=1,nx
@ -604,8 +600,8 @@
REAL, INTENT(IN),DIMENSION(:,:) :: r1 REAL, INTENT(IN),DIMENSION(:,:) :: r1
REAL, INTENT(OUT),DIMENSION(:,:) :: f REAL, INTENT(OUT),DIMENSION(:,:) :: f
REAL, DIMENSION(3,nx) :: ux, dux, d2ux REAL, DIMENSION(3,nx) :: ux, dux, d2ux
INTEGER :: i,j,k INTEGER :: i
REAL :: wrate,Ly,Dy,Lt,Dt REAL :: Ly,Dy,Lt,Dt
REAL :: wrate1, wrate2 REAL :: wrate1, wrate2
! x-direction ! x-direction
@ -620,7 +616,6 @@
CALL d2fnonp(nx,hx,ux(:,:),d2ux(:,:),3,1) CALL d2fnonp(nx,hx,ux(:,:),d2ux(:,:),3,1)
DO i=1,nx DO i=1,nx
wrate=rate_1step(ux(1,i), ux(3,i))
wrate1=rate1_2step(ux(1,i), ux(2,i), ux(3,i)) wrate1=rate1_2step(ux(1,i), ux(2,i), ux(3,i))
wrate2=rate2_2step(ux(2,i), ux(3,i)) wrate2=rate2_2step(ux(2,i), ux(3,i))