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

Replace pblock with pdata in init_reconnection().

Browse Source
This commit is contained in:
Grzegorz Kowal 2011-05-11 17:25:27 -03:00
parent 745b208ab8
commit dff7771824
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

@ -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