[cig-commits] r19247 - seismo/3D/SPECFEM3D/trunk/src/generate_databases

[cmorency at geodynamics.org]

Author: cmorency
Date: 2011-11-28 20:46:30 -0800 (Mon, 28 Nov 2011)
New Revision: 19247

Modified:
   seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_regions_mesh.f90
Log:
Corrected subroutine check_mesh_resolution_poro in /generate_databses/create_regions_mesh.f90.
Check: examples/meshfem3D_examples/simple_model and examples/homogeneous_halfspace are ok.


Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_regions_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_regions_mesh.f90	2011-11-29 04:28:42 UTC (rev 19246)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/create_regions_mesh.f90	2011-11-29 04:46:30 UTC (rev 19247)
@@ -471,7 +471,7 @@
 !chris: check for poro: At the moment cpI & cpII are for eta=0
   call check_mesh_resolution_poro(myrank,nspec,nglob,ibool,&
                             xstore_dummy,ystore_dummy,zstore_dummy, &
-                            kappastore,mustore,rho_vp,rho_vs, &
+                            kappastore,mustore, &
                             -1.0d0, model_speed_max,min_resolved_period, &
                             phistore,tortstore,rhoarraystore,rho_vpI,rho_vpII,rho_vsI )