Removed superflous variable declarations

To eliminate warnings, declared but unneeded variables were removed from
define_bc and define_bc_rot_subduction

src/define_bc.f90

@@ -831,7 +831,7 @@ case ('input.subduction','subduction')
    call define_bc_subduction (osolve%nnode,osolve%kfix,osolve%kfixt,osolve%x,osolve%y,osolve%z,osolve%u,osolve%v,osolve%w,osolve%temp,vo)
 
 case ('input.rot_subduction','rot_subduction')
-   call define_bc_rot_subduction (params,osolve,vo,bcdef,nest) 
+   call define_bc_rot_subduction (params,osolve,vo,bcdef) 
 
 
 case default

src/define_bc_rot_subduction.f90

@@ -11,12 +11,12 @@
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|
 !                                                                              |
-!              DEFINE_BC_SEGMENTED_S_LINE   Feb. 2009                          |
+!              DEFINE_BC_ROT_SUBDUCTION     AUG. 2014                          |
 !                                                                              |
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|
 
-subroutine define_bc_rot_subduction(params,osolve,vo,bcdef,nest)
+subroutine define_bc_rot_subduction(params,osolve,vo,bcdef)
 
 !------------------------------------------------------------------------------|
 !((((((((((((((((  Purpose of the routine  )))))))))))))))))))))))))))))))))))))
@@ -38,7 +38,6 @@ type (parameters) params
 type (octreesolve) osolve
 type (void) vo
 type (bc_definition) bcdef
-type (nest_info) nest
 
 !------------------------------------------------------------------------------|
 !(((((((((((((((( declaration of the subroutine internal variables )))))))))))))
@@ -46,11 +45,11 @@ type (nest_info) nest
 
 integer i,iproc,nproc,ierr,tempcase,strictflow
 double precision :: eps,pi,y0,h,rx,wy,vin,vtop,vback,nelemx,nelemz,dxy,dz
-double precision :: rmain,zmain,omega,theta,phi,distmain,distrot,distz0plane
+double precision :: rmain,zmain,omega,theta,distmain,distrot,distz0plane
 double precision :: distzonerad,distzoney,distzone,distedge
-double precision :: xedge,xminedge,xmaxedge,yfix_xedge, yedge,yminedge,ymaxedge
+double precision :: xedge,xminedge,yfix_xedge,yedge,yminedge
 double precision :: zedge,zminedge,zmaxedge, ustart,ustart2,uend,uend2
-double precision :: wstart,wstart2,wend, temp2,tempstart,tempstart2,tempend
+double precision :: wstart,wstart2,wend,temp2,tempstart,tempstart2,tempend
 
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|