diff --git a/src/define_bc.f90 b/src/define_bc.f90
index 9d40bbc58a38bd7a7a155c2d5631eca13c4b1d61..a8d004158f692fbfbf8a45d83b0214aaa979d958 100644
--- a/src/define_bc.f90
+++ b/src/define_bc.f90
@@ -830,7 +830,7 @@ case ('input.rot_subduction','rot_subduction')
    call define_bc_rot_subduction (params,osolve,vo,bcdef) 
 
 case ('input.rot_sub_init','rot_sub_init')
-   call define_bc_rot_sub_init (params,osolve,vo,bcdef,nest) 
+   call define_bc_rot_sub_init (params,osolve,vo,bcdef) 
 
 
 
diff --git a/src/define_bc_rot_sub_init.f90 b/src/define_bc_rot_sub_init.f90
index c965ccc6c043d1cf8b4e02c7c75227f10a6aa79c..a97d79f65747b3063743de59ee7cc6835ae53872 100644
--- a/src/define_bc_rot_sub_init.f90
+++ b/src/define_bc_rot_sub_init.f90
@@ -16,7 +16,7 @@
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|
 
-subroutine define_bc_rot_sub_init(params,osolve,vo,bcdef,nest)
+subroutine define_bc_rot_sub_init(params,osolve,vo,bcdef)
 
 !------------------------------------------------------------------------------|
 !((((((((((((((((  Purpose of the routine  )))))))))))))))))))))))))))))))))))))
@@ -46,8 +46,7 @@ type (nest_info) nest
 
 integer i,iproc,nproc,ierr,tempcase
 double precision :: eps,pi,y0,h,rx,wy,vin
-double precision :: rmain,zmain,omega,theta,phi,distmain,distrot
-double precision :: distzonerad,distzoney,distzone,distedge
+double precision :: rmain,zmain,omega,theta,distmain,distrot
 double precision :: nl_heat,hr,depth,ztemp,shellwidth
 
 !------------------------------------------------------------------------------|