diff --git a/src/DOUAR.f90 b/src/DOUAR.f90
index 99dc93d28721871bc3fcb330617864bdd89b8679..977faa5f7b37e86378d6a099d65507039718a9f8 100644
--- a/src/DOUAR.f90
+++ b/src/DOUAR.f90
@@ -563,7 +563,7 @@ do while (istep.le.params%nstep)
       !------------------------------------------------------------------------|
       call show_time (total,step,inc,1,'Interpolate velo onto osolve$')
 
-      call interpolate_ov_on_osolve (osolve,ov,iter,params,threadinfo)
+      call interpolate_ov_on_osolve (osolve,ov,params,threadinfo)
 
       !------------------------------------------------------------------------|
       !------------------------------------------------------------------------|
diff --git a/src/interpolate_ov_on_osolve.f90 b/src/interpolate_ov_on_osolve.f90
index d5db3a2cb7d2421e0b79038d66e8134a6238a262..9f9c0181ab18e3af76608981cbb10a7e56d21b6a 100644
--- a/src/interpolate_ov_on_osolve.f90
+++ b/src/interpolate_ov_on_osolve.f90
@@ -16,7 +16,7 @@
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|
 
-subroutine interpolate_ov_on_osolve (osolve,ov,iter,params,threadinfo)
+subroutine interpolate_ov_on_osolve (osolve,ov,params,threadinfo)
 
 !------------------------------------------------------------------------------|
 !(((((((((((((((( Purpose of the routine  ))))))))))))))))))))))))))))))))))))))
@@ -45,17 +45,17 @@ type (parameters) params
 type (octreesolve) osolve
 type (octreev) ov
 type (thread) threadinfo
-integer iter
+
 !------------------------------------------------------------------------------|
 !(((((((((((((((( declaration of the subroutine internal variables )))))))))))))
 !------------------------------------------------------------------------------|
 
-integer err,ie_ov,ie_level,ie_loc,nproc,ierr,iproc,k,ie,ie_osolve,i,j
-double precision :: x,y,z,x0_leaf,y0_leaf,z0_leaf,dxyz_leaf
+integer err,nproc,ierr,iproc,k,ie
+!integer :: i,j
 double precision,dimension(:),allocatable::pressure,pressurep
 double precision,dimension(:),allocatable::u,v,w,wiso,temp
-double precision,dimension(:),allocatable::countnode
-double precision,dimension(:),allocatable::ov_nodepressure
+!double precision,dimension(:),allocatable::countnode
+!double precision,dimension(:),allocatable::ov_nodepressure
 character*72  :: shift
 
 !------------------------------------------------------------------------------|