From b2ed1c420755e515f520b789aa5dcd1b1f3c526d Mon Sep 17 00:00:00 2001
From: Grzegorz Kowal <grzegorz@gkowal.info>
Date: Fri, 27 Jul 2012 22:03:57 -0300
Subject: [PATCH] Deallocate primitive variable in deallocate_datablock().

---
 src/blocks.F90 | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/blocks.F90 b/src/blocks.F90
index d1b9ae6..b0e148a 100644
--- a/src/blocks.F90
+++ b/src/blocks.F90
@@ -1095,10 +1095,14 @@ module blocks
       if (associated(pdata%next)) &
         pdata%next%prev => pdata%prev
 
-! deallocate variables
+! deallocate conservative variables
 !
       if (allocated(pdata%u)) deallocate(pdata%u)
 
+! deallocate primitive variables
+!
+      if (allocated(pdata%q)) deallocate(pdata%q)
+
 ! deallocate numerical fluxes
 !
       if (allocated(pdata%f)) deallocate(pdata%f)