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

Replace pblock with pdata in init_binaries().

Browse Source
This commit is contained in:
Grzegorz Kowal 2011-05-11 17:24:02 -03:00
parent b20c60404a
commit 745b208ab8
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/problem.F90
View File

@ -702,7 +702,7 @@ module problem
! !
!=============================================================================== !===============================================================================
! !
subroutine init_binaries(pblock) subroutine init_binaries(pdata)
use blocks , only : block_data use blocks , only : block_data
use config , only : im, jm, km use config , only : im, jm, km
@ -726,7 +726,7 @@ module problem
! input arguments ! input arguments
! !
type(block_data), pointer, intent(inout) :: pblock type(block_data), pointer, intent(inout) :: pdata
! local variables ! local variables
! !
@ -777,10 +777,10 @@ module problem
! obtain cell sizes ! obtain cell sizes
! !
dx = adx(pblock%meta%level) dx = adx(pdata%meta%level)
dy = ady(pblock%meta%level) dy = ady(pdata%meta%level)
#if NDIMS == 3 #if NDIMS == 3
dz = adz(pblock%meta%level) dz = adz(pdata%meta%level)
dr = sqrt(dx * dx + dy * dy + dz * dz) dr = sqrt(dx * dx + dy * dy + dz * dz)
#else /* NDIMS == 3 */ #else /* NDIMS == 3 */
dz = 1.0d0 dz = 1.0d0
@ -789,10 +789,10 @@ module problem
! obtain block coordinates ! obtain block coordinates
! !
x(:) = pblock%meta%xmin + ax(pblock%meta%level,:) x(:) = pdata%meta%xmin + ax(pdata%meta%level,:)
y(:) = pblock%meta%ymin + ay(pblock%meta%level,:) y(:) = pdata%meta%ymin + ay(pdata%meta%level,:)
#if NDIMS == 3 #if NDIMS == 3
z(:) = pblock%meta%zmin + az(pblock%meta%level,:) z(:) = pdata%meta%zmin + az(pdata%meta%level,:)
#else /* NDIMS == 3 */ #else /* NDIMS == 3 */
z(:) = 0.0d0 z(:) = 0.0d0
#endif /* NDIMS == 3 */ #endif /* NDIMS == 3 */
@ -869,7 +869,7 @@ module problem
! copy conservative variables to the current block ! 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 ! j end do ! j
end do ! k end do ! k