Fix a bug in init_implosion().

This commit is contained in:
Grzegorz Kowal 2011-05-12 09:45:29 -03:00
parent 7abd1386ff
commit bbeb181473

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