From 18b4de64580bff73e2e7103052ee74eef073726a Mon Sep 17 00:00:00 2001
From: Grzegorz Kowal <grzegorz@gkowal.info>
Date: Fri, 27 Jul 2012 21:45:35 -0300
Subject: [PATCH] Add array Q in the data block structure to store primitive
 variables.

---
 src/blocks.F90 | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/src/blocks.F90 b/src/blocks.F90
index 532a8f7..d1b9ae6 100644
--- a/src/blocks.F90
+++ b/src/blocks.F90
@@ -134,10 +134,16 @@ module blocks
                                  !
     type(block_meta), pointer :: meta
 
-                                 ! an allocatable array to store all variables
+                                 ! an allocatable array to store all conserved
+                                 ! variables
                                  !
     real, dimension(:,:,:,:)  , allocatable :: u
 
+                                 ! an allocatable array to store all primitive
+                                 ! variables
+                                 !
+    real, dimension(:,:,:,:)  , allocatable :: q
+
                                  ! an allocatable array to store all fluxes
                                  !
     real, dimension(:,:,:,:,:), allocatable :: f
@@ -1032,10 +1038,14 @@ module blocks
     nullify(pdata%next)
     nullify(pdata%meta)
 
-! allocate space for the conserved variables
+! allocate space for conserved variables
 !
     allocate(pdata%u(nvars,nx,ny,nz))
 
+! allocate space for primitive variables
+!
+    allocate(pdata%q(nvars,nx,ny,nz))
+
 ! allocate space for the numerical fluxes
 !
     if (nflux .gt. 0) allocate(pdata%f(ndims,nflux,nx,ny,nz))