[cig-commits] [commit] devel: Fixed passing of ispec from get_model.f90 (4f7e397)

[cig_noreply at geodynamics.org]

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

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d_globe/compare/8f81cfeaeac461f4becc68841f66a95658c5a5d8...4f7e397c81c5703963927bed503d947d128a4a5f

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

commit 4f7e397c81c5703963927bed503d947d128a4a5f
Author: Michael Afanasiev <michael.afanasiev at erdw.ethz.ch>
Date:   Wed Sep 3 16:27:55 2014 +0200

    Fixed passing of ispec from get_model.f90


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

4f7e397c81c5703963927bed503d947d128a4a5f
 src/meshfem3D/get_model.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/meshfem3D/get_model.f90 b/src/meshfem3D/get_model.f90
index db391b6..c98465f 100644
--- a/src/meshfem3D/get_model.f90
+++ b/src/meshfem3D/get_model.f90
@@ -155,7 +155,8 @@
                               RCMB,R670,RMOHO, &
                               xmesh,ymesh,zmesh,r, &
                               c11,c12,c13,c14,c15,c16,c22,c23,c24,c25,c26,&
-                              c33,c34,c35,c36,c44,c45,c46,c55,c56,c66)
+                              c33,c34,c35,c36,c44,c45,c46,c55,c56,c66, &
+                              ispec,i,j,k)
 
         ! gets the 3-D crustal model
         ! M.A. don't overwrite crust if using CEM.