From a3dbb6f10cfef3edb7f542e04660077a51d40740 Mon Sep 17 00:00:00 2001
From: Matthias Schmiddunser <matthias.schmiddunser@uni-tuebingen.de>
Date: Tue, 2 Dec 2014 14:03:57 +0100
Subject: [PATCH] Remove warnings from define_bc_rot_sub_init
removing superflous variables and function parameters
---
src/define_bc.f90 | 2 +-
src/define_bc_rot_sub_init.f90 | 5 ++---
2 files changed, 3 insertions(+), 4 deletions(-)
diff --git a/src/define_bc.f90 b/src/define_bc.f90
index 9d40bbc5..a8d00415 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 c965ccc6..a97d79f6 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
!------------------------------------------------------------------------------|
--
GitLab