[cig-commits] [commit] devel, master: suppressed useless /plevel/ common (1be8b31)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d_globe

On branches: devel,master
Link       : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f

>---------------------------------------------------------------

commit 1be8b31c50e47fe3229e3665a95a1da3dfc38031
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Wed Jul 25 01:09:13 2007 +0000

    suppressed useless /plevel/ common


>---------------------------------------------------------------

1be8b31c50e47fe3229e3665a95a1da3dfc38031
 s362ani/src_f90/rd3dmodl.f90 | 2 --
 1 file changed, 2 deletions(-)

diff --git a/s362ani/src_f90/rd3dmodl.f90 b/s362ani/src_f90/rd3dmodl.f90
index 4adb9b5..da9d8ad 100644
--- a/s362ani/src_f90/rd3dmodl.f90
+++ b/s362ani/src_f90/rd3dmodl.f90
@@ -14,8 +14,6 @@
 
   integer :: ncoef,i,ihor,iprtlv,ifst,ilst,ifst1,ios,lstr,nmodkern,idummy,nhorpar,lmax
 
-  common /plevel/ iprtlv
-
   open(lu,file=filename,iostat=ios)
   if(ios /= 0) then
   stop 'error opening 3-d model'