[cig-commits] [commit] devel, master: Fixed passing of ispec from get_model.f90 (4f7e397)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu Nov 6 08:29:48 PST 2014
Repository : https://github.com/geodynamics/specfem3d_globe
On branches: devel,master
Link : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f
>---------------------------------------------------------------
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.
More information about the CIG-COMMITS
mailing list