From fa7d767b4e56610256c7b805887c1a51fe009140 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 25 May 2011 18:04:30 +0000
Subject: [PATCH] Removed unused declared variables
---
src/define_cloud.f90 | 2 +-
src/define_ov.f90 | 4 ++--
src/define_surface.f90 | 4 ++--
3 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/define_cloud.f90 b/src/define_cloud.f90
index 588622a8..536239f2 100644
--- a/src/define_cloud.f90
+++ b/src/define_cloud.f90
@@ -47,7 +47,7 @@ type (ziso) zi
!------------------------------------------------------------------------------|
!(((((((((((((((( declaration of the subroutine internal variables )))))))))))))
!------------------------------------------------------------------------------|
-double precision x,y,z,u,v,w,p,r,s,t,e2d,xlsf,xn,yn,zn,don,con,wiso,ev,epr,espr
+double precision x,y,z,u,v,w,p,r,s,t,e2d,xlsf,xn,yn,zn,con,wiso,ev,epr,espr
double precision current_time,activation_time,dilatr
logical inf,wlif,ip
integer err,iproc,nproc,ierr,i,j,k,nl,nf,nn,nr,kx,ky,kz,kt,icon
diff --git a/src/define_ov.f90 b/src/define_ov.f90
index fbaf2641..b940675c 100644
--- a/src/define_ov.f90
+++ b/src/define_ov.f90
@@ -51,10 +51,10 @@ type (thread) threadinfo
integer iproc, nproc, err, ierr, levelv
integer nface, nlsf, i, j, k, np, kfix, matnum
-double precision s,e2d,xlsf,crit,wiso,evisc,dilatr
+double precision s,e2d,xlsf,crit,evisc,dilatr
integer ioctree_number_of_elements
external ioctree_number_of_elements
-double precision current_time,activation_time
+double precision current_time
logical is_plas
!------------------------------------------------------------------------------|
diff --git a/src/define_surface.f90 b/src/define_surface.f90
index 5a2b16f7..5a0228a4 100644
--- a/src/define_surface.f90
+++ b/src/define_surface.f90
@@ -49,11 +49,11 @@ double precision total, step, inc, current_time
!(((((((((((((((( declaration of the subroutine internal variables )))))))))))))
!------------------------------------------------------------------------------|
-integer err,ierr,iproc,nproc,iface,ioc,i,j,k,is,noctree,nnode,nleaves,nface,nt
+integer ierr,iproc,nproc,iface,ioc,i,j,k,is,noctree,nnode,nleaves,nface
integer icon,inn,inl,nlsf,ncl,nf,inr,kx,ky,kz,kt,matnum
logical inf,wlif,is_plas
character*7 ic
-double precision s,p,t,x,y,z,u,v,w,wiso,xlsf,e2d,don,con,activation_time,dilatr
+double precision s,p,t,x,y,z,u,v,w,wiso,xlsf,e2d,con,activation_time,dilatr
double precision epr,espr,evisc
!------------------------------------------------------------------------------|
--
GitLab