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

hxp,hyp,hzp to m_parameters

Browse source
This commit is contained in:
ignis 2019-04-18 23:52:03 +09:00
parent 6b27d54349
commit 3ffa106f3a
2 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
code/m_parameters.f90
View file

@ -4,6 +4,8 @@ module m_parameters
integer :: nxp,nyp,nzp integer :: nxp,nyp,nzp
real :: hxp,hyp,hzp
real :: l_0 real :: l_0
integer :: startnum,endnum,skipnum,shiftnum integer :: startnum,endnum,skipnum,shiftnum
@ -22,6 +24,8 @@ module m_parameters
integer, allocatable :: omit_t(:,:) integer, allocatable :: omit_t(:,:)
real, parameter :: pi=3.14159265358979323846
real, parameter :: me=1.00e-20
contains contains
@ -109,6 +113,11 @@ subroutine read_intro
prp=scp/lep prp=scp/lep
! hyp=l_0*pi/REAL(nyp)
hyp=l_0*pi/REAL(nyp-1) ! kwon
hxp=hyp
hzp=hyp
close (100) close (100)
close (101) close (101)

7
code/post.f90
View file

@ -9,9 +9,6 @@
INTEGER :: countnum INTEGER :: countnum
INTEGER :: num_, dummyu_ ! hybrid INTEGER :: num_, dummyu_ ! hybrid
REAL :: tnow REAL :: tnow
REAL :: hxp,hyp,hzp
REAL, PARAMETER :: pi=3.14159265358979323846
REAL, PARAMETER :: me=1.00e-20
REAL, DIMENSION(:), ALLOCATABLE :: favg_ndata REAL, DIMENSION(:), ALLOCATABLE :: favg_ndata
!REAL, DIMENSION(:,:), ALLOCATABLE :: SMF,SMC,FMS,KMS !REAL, DIMENSION(:,:), ALLOCATABLE :: SMF,SMC,FMS,KMS
REAL, DIMENSION(:,:), ALLOCATABLE :: SMF,SMC REAL, DIMENSION(:,:), ALLOCATABLE :: SMF,SMC
@ -1580,10 +1577,6 @@
!ALLOCATE(IRE9(14,nxp),STAT=ierr) ; IRE9=0. !ALLOCATE(IRE9(14,nxp),STAT=ierr) ; IRE9=0.
! hyp=l_0*pi/REAL(nyp)
hyp=l_0*pi/REAL(nyp-1) ! kwon
hxp=hyp; hzp=hyp
WRITE(*,'(a6,i3,a8,i3,a8,i3)') ' NX = ',nxp,' / NY = ',nyp,' / NZ = ',nzp WRITE(*,'(a6,i3,a8,i3,a8,i3)') ' NX = ',nxp,' / NY = ',nyp,' / NZ = ',nzp
WRITE(*,*) ' Preparing memory space for COMPACT SCHEME' WRITE(*,*) ' Preparing memory space for COMPACT SCHEME'
CALL ludcmp(nxp,nyp,nzp,1,0,0) ! 1,1,0 CALL ludcmp(nxp,nyp,nzp,1,0,0) ! 1,1,0