diff --git a/src/mesh.F90 b/src/mesh.F90
index 54543e8..abfbecb 100644
--- a/src/mesh.F90
+++ b/src/mesh.F90
@@ -1384,25 +1384,25 @@ module mesh
 #ifdef MPI
 ! local variables
 !
-    integer                                 :: iret
-    integer(kind=4)                         :: np, nl
+    integer                                   :: iret
+    integer(kind=4)                           :: np, nl
 
 ! local pointers
 !
-    type(block_meta), pointer               :: pmeta
-    type(block_data), pointer               :: pdata
+    type(block_meta), pointer                 :: pmeta
+    type(block_data), pointer                 :: pdata
 
 ! tag for the MPI data exchange
 !
-    integer(kind=4)                         :: itag
+    integer(kind=4)                           :: itag
 
 ! array for number of data block for autobalancing
 !
-    integer(kind=4), dimension(0:nprocs-1)  :: lb
+    integer(kind=4), dimension(0:nprocs-1)    :: lb
 
 ! local buffer for data block exchange
 !
-    real(kind=8)   , dimension(nv,im,jm,km) :: rbuf
+    real(kind=8)   , dimension(2,nv,im,jm,km) :: rbuf
 #endif /* MPI */
 
 !-------------------------------------------------------------------------------
@@ -1451,7 +1451,8 @@ module mesh
 
 ! copy data to buffer
 !
-            rbuf(:,:,:,:) = pmeta%data%u(:,:,:,:)
+            rbuf(1,:,:,:,:) = pmeta%data%u(:,:,:,:)
+            rbuf(2,:,:,:,:) = pmeta%data%q(:,:,:,:)
 
 ! send data
 !
@@ -1480,7 +1481,8 @@ module mesh
 
 ! coppy the buffer to data block
 !
-            pmeta%data%u(:,:,:,:) = rbuf(:,:,:,:)
+            pmeta%data%u(:,:,:,:) = rbuf(1,:,:,:,:)
+            pmeta%data%q(:,:,:,:) = rbuf(2,:,:,:,:)
 
           end if ! nproc == n