gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Slightly rewrite init_turbulence().

Browse Source
This commit is contained in:
Grzegorz Kowal 2011-05-12 09:02:01 -03:00
parent 62c1aabba4
commit 146991d7b9
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/problem.F90
View File

@ -1160,10 +1160,11 @@ module problem
!
!===============================================================================
!
subroutine init_turbulence(pblock)
subroutine init_turbulence(pdata)
use blocks , only : block_data
use config , only : im, jm, km, dens, pres, bamp
use config , only : im, jm, km
use config , only : dens, pres, bamp
use scheme , only : prim2cons
use variables, only : nvr, nqt
use variables, only : idn, ivx, ivy, ivz
@ -1179,12 +1180,11 @@ module problem
! input arguments
!
type(block_data), pointer, intent(inout) :: pblock
type(block_data), pointer, intent(inout) :: pdata
! local variables
!
integer(kind=4), dimension(3) :: dm
integer :: i, j, k
integer :: j, k
! local arrays
!
@ -1193,7 +1193,7 @@ module problem
!
!-------------------------------------------------------------------------------
!
! set variables
! initiate the primitive variables
!
q(idn,:) = dens
q(ivx,:) = 0.0d0
@ -1211,22 +1211,22 @@ module problem
#endif /* GLM */
#endif /* MHD */
! convert the primitive variables to their conserved representation
!
call prim2cons(im, q(1:nvr,1:im), u(1:nqt,1:im))
! set the initial profiles
!
do k = 1, km
do j = 1, jm
! convert primitive variables to conserved
! copy the conservative variables to the current block
!
call prim2cons(im, q(1:nvr,1:im), u(1:nqt,1:im))
! copy conservative variables to the current block
!
pblock%u(1:nqt,1:im,j,k) = u(1:nqt,1:im)
pdata%u(1:nqt,1:im,j,k) = u(1:nqt,1:im)
end do
end do
!
!-------------------------------------------------------------------------------
!
end subroutine init_turbulence