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

MESH: Replace pblock with pmeta in some subroutines.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2014-09-13 10:19:25 -03:00
parent 2960aea9c4
commit d1e78eb0b7
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/mesh.F90
View File

@ -1031,11 +1031,11 @@ module mesh
!
! Arguments:
!
! pblock - the input meta block;
! pmeta - the input meta block;
!
!===============================================================================
!
subroutine prolong_block(pblock)
subroutine prolong_block(pmeta)
! import external procedures and variables
!
@ -1051,7 +1051,7 @@ module mesh
! input arguments
!
type(block_meta), pointer, intent(inout) :: pblock
type(block_meta), pointer, intent(inout) :: pmeta
! local variables
!
@ -1083,7 +1083,7 @@ module mesh
! assign the pdata pointer
!
pdata => pblock%data
pdata => pmeta%data
! prepare dimensions
!
@ -1175,7 +1175,7 @@ module mesh
! assign pointer to the current child
!
pchild => pblock%child(p)%ptr
pchild => pmeta%child(p)%ptr
! obtain the position of child in the parent block
!
@ -1236,11 +1236,11 @@ module mesh
!
! Arguments:
!
! pblock - the input meta block;
! pmeta - the input meta block;
!
!===============================================================================
!
subroutine restrict_block(pblock)
subroutine restrict_block(pmeta)
! import external procedures and variables
!
@ -1256,7 +1256,7 @@ module mesh
! subroutine arguments
!
type(block_meta), pointer, intent(inout) :: pblock
type(block_meta), pointer, intent(inout) :: pmeta
! local variables
!
@ -1282,7 +1282,7 @@ module mesh
! assign the parent data pointer
!
pparent => pblock%data
pparent => pmeta%data
! iterate over all children
!
@ -1290,7 +1290,7 @@ module mesh
! assign a pointer to the current child
!
pchild => pblock%child(p)%ptr%data
pchild => pmeta%child(p)%ptr%data
! obtain the child position in the parent block
!