Remove warnings from define_bc_rot_sub_init

removing superflous variables and function parameters

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) 
 
 
 

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
 
 !------------------------------------------------------------------------------|