diff --git a/src/define_isostasy_bc.f90 b/src/define_isostasy_bc.f90
index bfd33910df5c6b59ffc8d12797bbcf0c317add5b..4275bdf5d256ad89aedf04dfc76a32e7d4d26677 100644
--- a/src/define_isostasy_bc.f90
+++ b/src/define_isostasy_bc.f90
@@ -16,7 +16,7 @@
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|
 
-subroutine define_isostasy_bc(params,osolve,vo,zi,firstcall,l,x0,spu,spv,&
+subroutine define_isostasy_bc(params,osolve,zi,firstcall,l,x0,spu,spv,&
            phi,ldisp)
 
 !------------------------------------------------------------------------------|
@@ -43,7 +43,6 @@ include 'mpif.h'
 
 type (parameters) params
 type (octreesolve) osolve
-type (void) vo
 type (ziso) zi
 !double precision zisodisp(2**params%levelmax_oct+1,2**params%levelmax_oct+1)
 double precision x0(osolve%nnode),ldisp(osolve%nnode)
@@ -54,9 +53,11 @@ logical firstcall
 !(((((((((((((((( declaration of the subroutine internal variables )))))))))))))
 !------------------------------------------------------------------------------|
 
-integer i,j,iproc,nproc,ierr,nb,xdisp,ydisp,xnow,ynow,ie,jp
+integer i,j,iproc,nproc,ierr,nb,xdisp,ydisp,xnow,ynow
+!integer :: ie,jp
 double precision eps,pi,zsl,dxy,zdisp,vinit,x1,x2
-double precision,dimension(:,:),allocatable::zisoslx,zisosly
+double precision,dimension(:,:),allocatable :: zisoslx
+!double precision,dimension(:,:),allocatable :: zisosly
 
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|