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

Fix a bug in init_implosion().

Browse Source
This commit is contained in:
Grzegorz Kowal 2011-05-12 09:45:29 -03:00
parent 7abd1386ff
commit bbeb181473
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/problem.F90
View File

@ -643,8 +643,11 @@ module problem
q(ivx,:) = 0.0d0 q(ivx,:) = 0.0d0
q(ivy,:) = 0.0d0 q(ivy,:) = 0.0d0
q(ivz,:) = 0.0d0 q(ivz,:) = 0.0d0
#ifdef ADI
q(ipr,:) = pres
#endif /* ADI */
! set initial pressure ! set initial density and pressure
! !
do j = 1, jm do j = 1, jm
do i = 1, im do i = 1, im
@ -683,7 +686,9 @@ module problem
! copy conservative variables to the current block ! copy conservative variables to the current block
! !
pdata%u(1:nqt,1:im,j,k) = u(1:nqt,1:im) do k = 1, km
pdata%u(1:nqt,1:im,j,k) = u(1:nqt,1:im)
end do
end do end do