Skip to content
Snippets Groups Projects
Commit d0906c51 authored by Dave Whipp's avatar Dave Whipp
Browse files

Removed unused variables

parent c512ff97
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 5 additions and 6 deletions
src/isostasy.f90
+ 5
− 6
View file @ d0906c51
...@@ -24,13 +24,14 @@ type(ziso) zi ...@@ -24,13 +24,14 @@ type(ziso) zi
!double precision zisodisp(2**params%levelmax_oct+1,2**params%levelmax_oct+1) !double precision zisodisp(2**params%levelmax_oct+1,2**params%levelmax_oct+1)
double precision xc,yc,zc,eps,dtcur double precision xc,yc,zc,eps,dtcur
integer i,j,ii,jj,kk,ie,dlev,is,iproc,nproc,ierr,ic integer i,j,ii,jj,kk,ie,dlev,is,iproc,nproc,ierr
double precision x0,y0,z0,dxyz,dd double precision x0,y0,z0,dxyz,dd
integer leaf,level,loc integer leaf,level,loc
double precision x0b,y0b,z0b,dxyzb !double precision x0b,y0b,z0b,dxyzb
integer leafb,levelb,locb !integer leafb,levelb,locb
double precision,dimension(:),allocatable::diso double precision,dimension(:),allocatable::diso
double precision weightref,disoel,w double precision weightref
!double precision :: w
integer,dimension(:),allocatable::np integer,dimension(:),allocatable::np
character shift*72 character shift*72
double precision,dimension(:,:),allocatable::weight,flex,work double precision,dimension(:,:),allocatable::weight,flex,work
...@@ -38,8 +39,6 @@ double precision pi,hx,dh,pihx,xk,fi,fj,tij,d ...@@ -38,8 +39,6 @@ double precision pi,hx,dh,pihx,xk,fi,fj,tij,d
integer nflex integer nflex
integer im,jm,ip,jp,nb integer im,jm,ip,jp,nb
integer iunit
call mpi_comm_size (mpi_comm_world,nproc,ierr) call mpi_comm_size (mpi_comm_world,nproc,ierr)
call mpi_comm_rank (mpi_comm_world,iproc,ierr) call mpi_comm_rank (mpi_comm_world,iproc,ierr)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment