[cig-commits] r22512 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-07-05 17:57:51 -0700 (Fri, 05 Jul 2013)
New Revision: 22512

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_regular_points.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90
Log:
renamed locate_reg_points() to locate_regular_points()


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_regular_points.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_regular_points.f90	2013-07-06 00:55:01 UTC (rev 22511)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_regular_points.f90	2013-07-06 00:57:51 UTC (rev 22512)
@@ -153,7 +153,7 @@
 !==============================================================
 
 ! how about using single precision for the iterations?
-subroutine locate_reg_points(npoints_slice,points_slice,GRID, &
+subroutine locate_regular_points(npoints_slice,points_slice,GRID, &
                              NEX_XI,nspec,xstore,ystore,zstore,ibool, &
                              xigll,yigll,zigll,ispec_reg, &
                              hxir_reg,hetar_reg,hgammar_reg)
@@ -354,7 +354,7 @@
 ! DEBUG
 !  print *, 'Maximum distance discrepancy ', maxval(dist_final(1:npoints_slice))
 
-end subroutine locate_reg_points
+end subroutine locate_regular_points
 
 !==============================================================
 

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90	2013-07-06 00:55:01 UTC (rev 22511)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90	2013-07-06 00:57:51 UTC (rev 22512)
@@ -1371,7 +1371,7 @@
     ! this is the core part that takes up most of the computation time,
     ! and presumably the more processors involved the faster.
     if (npoints_slice > 0) then
-      call locate_reg_points(npoints_slice, points_slice, KL_REG_GRID, &
+      call locate_regular_points(npoints_slice, points_slice, KL_REG_GRID, &
                              NEX_XI, NSPEC_CRUST_MANTLE, &
                              xstore_crust_mantle, ystore_crust_mantle, zstore_crust_mantle, &
                              ibool_crust_mantle, &