From 436b91abac766166ecc7a6b6ee4c9723ff126750 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 25 May 2011 18:01:35 +0000
Subject: [PATCH] Removed unused declared variables
---
src/define_isostasy_bc.f90 | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/src/define_isostasy_bc.f90 b/src/define_isostasy_bc.f90
index bfd33910..4275bdf5 100644
--- a/src/define_isostasy_bc.f90
+++ b/src/define_isostasy_bc.f90
@@ -16,7 +16,7 @@
!------------------------------------------------------------------------------|
!------------------------------------------------------------------------------|
-subroutine define_isostasy_bc(params,osolve,vo,zi,firstcall,l,x0,spu,spv,&
+subroutine define_isostasy_bc(params,osolve,zi,firstcall,l,x0,spu,spv,&
phi,ldisp)
!------------------------------------------------------------------------------|
@@ -43,7 +43,6 @@ include 'mpif.h'
type (parameters) params
type (octreesolve) osolve
-type (void) vo
type (ziso) zi
!double precision zisodisp(2**params%levelmax_oct+1,2**params%levelmax_oct+1)
double precision x0(osolve%nnode),ldisp(osolve%nnode)
@@ -54,9 +53,11 @@ logical firstcall
!(((((((((((((((( declaration of the subroutine internal variables )))))))))))))
!------------------------------------------------------------------------------|
-integer i,j,iproc,nproc,ierr,nb,xdisp,ydisp,xnow,ynow,ie,jp
+integer i,j,iproc,nproc,ierr,nb,xdisp,ydisp,xnow,ynow
+!integer :: ie,jp
double precision eps,pi,zsl,dxy,zdisp,vinit,x1,x2
-double precision,dimension(:,:),allocatable::zisoslx,zisosly
+double precision,dimension(:,:),allocatable :: zisoslx
+!double precision,dimension(:,:),allocatable :: zisosly
!------------------------------------------------------------------------------|
!------------------------------------------------------------------------------|
--
GitLab