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

DOMAINS: Do not allocate data blocks in setup_domain().

Browse Source 
The initial data block structure is fully allocated in generate_mesh()
of module MESH.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2013-12-23 21:38:37 -02:00
parent 156d8cf1dd
commit e1d554aea7
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/domains.F90
View File

@ -159,7 +159,6 @@ module domains
! local pointers ! local pointers
! !
type(block_meta), pointer :: pmeta, pnext type(block_meta), pointer :: pmeta, pnext
type(block_data), pointer :: pdata
! allocatable arrays ! allocatable arrays
! !
@ -304,14 +303,6 @@ module domains
! !
call metablock_set_level(pmeta, 1) call metablock_set_level(pmeta, 1)
! create a new data block
!
call append_datablock(pdata)
! associate meta and data blocks
!
call link_blocks(pmeta, pdata)
! set block coordinates ! set block coordinates
! !
call metablock_set_coord(pmeta, il, jl, kl) call metablock_set_coord(pmeta, il, jl, kl)