From a47a8be2411102dbd34393b6ff3842050856fad2 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 25 May 2011 17:13:06 +0000
Subject: [PATCH] Removed unused declared/passed variables
---
src/DOUAR.f90 | 4 ++--
src/compute_convergence_criterion.f90 | 4 +---
2 files changed, 3 insertions(+), 5 deletions(-)
diff --git a/src/DOUAR.f90 b/src/DOUAR.f90
index 7e6249c8..25bf79da 100644
--- a/src/DOUAR.f90
+++ b/src/DOUAR.f90
@@ -798,8 +798,8 @@ do while (istep.le.params%nstep)
!--------------------------------------------------------------------------------------
call show_time (total,step,inc,1,'compute convergence criterion$')
- call compute_convergence_criterion(osolve,ov,vo,params,istep,iter,iter_nl, &
- current_level,velocity_converged)
+ call compute_convergence_criterion(osolve,ov,vo,params,istep,iter, &
+ iter_nl,velocity_converged)
cltemp=current_level !!++!!
diff --git a/src/compute_convergence_criterion.f90 b/src/compute_convergence_criterion.f90
index 1fd6cb0b..745bee9f 100644
--- a/src/compute_convergence_criterion.f90
+++ b/src/compute_convergence_criterion.f90
@@ -17,8 +17,7 @@
!------------------------------------------------------------------------------|
subroutine compute_convergence_criterion (osolve,ov,vo,params,istep,iter, &
- iter_nl,refine_level, &
- velocity_converged)
+ iter_nl,velocity_converged)
!------------------------------------------------------------------------------|
!(((((((((((((((( Purpose of the routine ))))))))))))))))))))))))))))))))))))))
@@ -44,7 +43,6 @@ type (void) vo
type (parameters) params
integer istep,iter, iter_nl
double precision maxu,maxv,maxw
-integer refine_level
logical velocity_converged
!------------------------------------------------------------------------------|
--
GitLab