Replace pblock with pdata in init_reconnection().
This commit is contained in:
parent
745b208ab8
commit
dff7771824
@ -885,7 +885,7 @@ module problem
|
|||||||
!
|
!
|
||||||
!===============================================================================
|
!===============================================================================
|
||||||
!
|
!
|
||||||
subroutine init_reconnection(pblock)
|
subroutine init_reconnection(pdata)
|
||||||
|
|
||||||
use blocks , only : block_data
|
use blocks , only : block_data
|
||||||
use config , only : in, jn, kn, im, jm, km, ng &
|
use config , only : in, jn, kn, im, jm, km, ng &
|
||||||
@ -909,7 +909,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
|
||||||
!
|
!
|
||||||
@ -941,20 +941,20 @@ module problem
|
|||||||
|
|
||||||
! calculate the cell sizes
|
! calculate the cell sizes
|
||||||
!
|
!
|
||||||
dx = (pblock%meta%xmax - pblock%meta%xmin) / in
|
dx = (pdata%meta%xmax - pdata%meta%xmin) / in
|
||||||
dy = (pblock%meta%ymax - pblock%meta%ymin) / jn
|
dy = (pdata%meta%ymax - pdata%meta%ymin) / jn
|
||||||
#if NDIMS == 3
|
#if NDIMS == 3
|
||||||
dz = (pblock%meta%zmax - pblock%meta%zmin) / kn
|
dz = (pdata%meta%zmax - pdata%meta%zmin) / kn
|
||||||
#else /* NDIMS == 3 */
|
#else /* NDIMS == 3 */
|
||||||
dz = 1.0
|
dz = 1.0
|
||||||
#endif /* NDIMS == 3 */
|
#endif /* NDIMS == 3 */
|
||||||
|
|
||||||
! generate the coordinates
|
! generate the coordinates
|
||||||
!
|
!
|
||||||
x(:) = ((/(i, i = 1, im)/) - ng - 0.5) * dx + pblock%meta%xmin
|
x(:) = ((/(i, i = 1, im)/) - ng - 0.5) * dx + pdata%meta%xmin
|
||||||
y(:) = ((/(j, j = 1, jm)/) - ng - 0.5) * dy + pblock%meta%ymin
|
y(:) = ((/(j, j = 1, jm)/) - ng - 0.5) * dy + pdata%meta%ymin
|
||||||
#if NDIMS == 3
|
#if NDIMS == 3
|
||||||
z(:) = ((/(k, k = 1, km)/) - ng - 0.5) * dz + pblock%meta%zmin
|
z(:) = ((/(k, k = 1, km)/) - ng - 0.5) * dz + pdata%meta%zmin
|
||||||
#else /* NDIMS == 3 */
|
#else /* NDIMS == 3 */
|
||||||
z(1) = 0.0
|
z(1) = 0.0
|
||||||
#endif /* NDIMS == 3 */
|
#endif /* NDIMS == 3 */
|
||||||
@ -1022,7 +1022,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
|
end do
|
||||||
end do
|
end do
|
||||||
|
Loading…
x
Reference in New Issue
Block a user