diff --git a/src/compute_pressure.f90 b/src/compute_pressure.f90
index 2aa772e34408adcda31bda3d0f405dceda580df2..3f86b18f56706712e00df0f5bb63b6541e116c0b 100644
--- a/src/compute_pressure.f90
+++ b/src/compute_pressure.f90
@@ -70,9 +70,9 @@ type (material) mat(0:params%nmat)
 
 integer err,iproc,nproc,ierr,ileaves,level,i,k,levelmax,icut
 double precision,dimension(:,:),allocatable::lsf_el
-double precision r0,s0,t0,rst,volc
+double precision r0,s0,t0,rst
 double precision,dimension(:),allocatable::press
-integer,dimension(:),allocatable::levs
+!integer,dimension(:),allocatable::levs
 character*72  :: shift
 
 !------------------------------------------------------------------------------|