From 2fd44bedfeacd4b9828223f951c4dab558d6c7c7 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 25 May 2011 18:21:48 +0000
Subject: [PATCH] Removed unused declared/passed variables
---
src/DOUAR.f90 | 2 +-
src/interpolate_ov_on_osolve.f90 | 12 ++++++------
2 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/src/DOUAR.f90 b/src/DOUAR.f90
index 99dc93d2..977faa5f 100644
--- a/src/DOUAR.f90
+++ b/src/DOUAR.f90
@@ -563,7 +563,7 @@ do while (istep.le.params%nstep)
!------------------------------------------------------------------------|
call show_time (total,step,inc,1,'Interpolate velo onto osolve$')
- call interpolate_ov_on_osolve (osolve,ov,iter,params,threadinfo)
+ call interpolate_ov_on_osolve (osolve,ov,params,threadinfo)
!------------------------------------------------------------------------|
!------------------------------------------------------------------------|
diff --git a/src/interpolate_ov_on_osolve.f90 b/src/interpolate_ov_on_osolve.f90
index d5db3a2c..9f9c0181 100644
--- a/src/interpolate_ov_on_osolve.f90
+++ b/src/interpolate_ov_on_osolve.f90
@@ -16,7 +16,7 @@
!------------------------------------------------------------------------------|
!------------------------------------------------------------------------------|
-subroutine interpolate_ov_on_osolve (osolve,ov,iter,params,threadinfo)
+subroutine interpolate_ov_on_osolve (osolve,ov,params,threadinfo)
!------------------------------------------------------------------------------|
!(((((((((((((((( Purpose of the routine ))))))))))))))))))))))))))))))))))))))
@@ -45,17 +45,17 @@ type (parameters) params
type (octreesolve) osolve
type (octreev) ov
type (thread) threadinfo
-integer iter
+
!------------------------------------------------------------------------------|
!(((((((((((((((( declaration of the subroutine internal variables )))))))))))))
!------------------------------------------------------------------------------|
-integer err,ie_ov,ie_level,ie_loc,nproc,ierr,iproc,k,ie,ie_osolve,i,j
-double precision :: x,y,z,x0_leaf,y0_leaf,z0_leaf,dxyz_leaf
+integer err,nproc,ierr,iproc,k,ie
+!integer :: i,j
double precision,dimension(:),allocatable::pressure,pressurep
double precision,dimension(:),allocatable::u,v,w,wiso,temp
-double precision,dimension(:),allocatable::countnode
-double precision,dimension(:),allocatable::ov_nodepressure
+!double precision,dimension(:),allocatable::countnode
+!double precision,dimension(:),allocatable::ov_nodepressure
character*72 :: shift
!------------------------------------------------------------------------------|
--
GitLab