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

hxp, hyp, hzp calculation after reading nxp, nyp, nzp

Browse source
This commit is contained in:
ignis 2019-04-19 03:35:50 +09:00
parent e55318038c
commit 70e298b1cd
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
code/m_parameters.f90
View file

@ -113,11 +113,6 @@ subroutine read_intro
prp=scp/lep
! hyp=l_0*pi/REAL(nyp)
hyp=l_0*pi/REAL(nyp-1) ! kwon
hxp=hyp
hzp=hyp
close (100)
close (101)
@ -142,6 +137,11 @@ subroutine read_intro
CLOSE(first_file)
! hyp=l_0*pi/REAL(nyp)
hyp=l_0*pi/REAL(nyp-1) ! kwon
hxp=hyp
hzp=hyp
end subroutine read_intro