From e1d554aea7d3650197de4453f6baf97debbbf865 Mon Sep 17 00:00:00 2001
From: Grzegorz Kowal <grzegorz@amuncode.org>
Date: Mon, 23 Dec 2013 21:38:37 -0200
Subject: [PATCH] DOMAINS: Do not allocate data blocks in setup_domain().
The initial data block structure is fully allocated in generate_mesh()
of module MESH.
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
---
src/domains.F90 | 9 ---------
1 file changed, 9 deletions(-)
diff --git a/src/domains.F90 b/src/domains.F90
index 8db1e4e..d8ab745 100644
--- a/src/domains.F90
+++ b/src/domains.F90
@@ -159,7 +159,6 @@ module domains
! local pointers
!
type(block_meta), pointer :: pmeta, pnext
- type(block_data), pointer :: pdata
! allocatable arrays
!
@@ -304,14 +303,6 @@ module domains
!
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
!
call metablock_set_coord(pmeta, il, jl, kl)