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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-11-30 04:11:31 -0800 (Fri, 30 Nov 2012)
New Revision: 21091

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_regular_points.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_regular_kernels.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90
Log:
removed two unused variables


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_regular_points.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_regular_points.f90	2012-11-29 23:49:24 UTC (rev 21090)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_regular_points.f90	2012-11-30 12:11:31 UTC (rev 21091)
@@ -153,7 +153,7 @@
 !==============================================================
 
 ! how about using single precision for the iterations?
-subroutine locate_reg_points(myrank,npoints_slice,points_slice,GRID, &
+subroutine locate_reg_points(npoints_slice,points_slice,GRID, &
                              NEX_XI,nspec,xstore,ystore,zstore,ibool, &
                              xigll,yigll,zigll,ispec_reg, &
                              hxir_reg,hetar_reg,hgammar_reg)
@@ -162,7 +162,7 @@
   include 'constants.h'
 
   ! declarations of regular grid model
-  integer, intent(in) :: myrank, npoints_slice
+  integer, intent(in) :: npoints_slice
   integer, dimension(NM_KL_REG_PTS), intent(in) :: points_slice
 
   type kl_reg_grid_variables

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_regular_kernels.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_regular_kernels.f90	2012-11-29 23:49:24 UTC (rev 21090)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_regular_kernels.f90	2012-11-30 12:11:31 UTC (rev 21091)
@@ -26,8 +26,7 @@
 !=====================================================================
 
   subroutine save_regular_kernels_crust_mantle(myrank, &
-                  GRID, npoints_slice, &
-                  hxir_reg, hetar_reg, hgammar_reg, ispec_reg, &
+                  npoints_slice, hxir_reg, hetar_reg, hgammar_reg, ispec_reg, &
                   scale_t,scale_displ, &
                   cijkl_kl_crust_mantle,rho_kl_crust_mantle, &
                   alpha_kl_crust_mantle,beta_kl_crust_mantle, &
@@ -46,20 +45,6 @@
 
   integer myrank
 
-  type kl_reg_grid_variables
-    sequence
-    real dlat
-    real dlon
-    integer nlayer
-    real rlayer(NM_KL_REG_LAYER)
-    integer ndoubling(NM_KL_REG_LAYER)
-    integer nlat(NM_KL_REG_LAYER)
-    integer nlon(NM_KL_REG_LAYER)
-    integer npts_total
-    integer npts_before_layer(NM_KL_REG_LAYER+1)
-  end type kl_reg_grid_variables
-  type (kl_reg_grid_variables), intent(in) :: GRID
-
   integer, intent(in) :: npoints_slice
   real, dimension(NGLLX, NM_KL_REG_PTS), intent(in) :: hxir_reg
   real, dimension(NGLLY, NM_KL_REG_PTS), intent(in) :: hetar_reg

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90	2012-11-29 23:49:24 UTC (rev 21090)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90	2012-11-30 12:11:31 UTC (rev 21091)
@@ -1383,7 +1383,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(myrank, npoints_slice, points_slice, KL_REG_GRID, &
+      call locate_reg_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, &
@@ -4756,7 +4756,7 @@
     ! crust mantle
     if (SAVE_REGULAR_KL) then
     call save_regular_kernels_crust_mantle(myrank, &
-                  KL_REG_GRID, npoints_slice, hxir_reg, hetar_reg, hgammar_reg, &
+                  npoints_slice, hxir_reg, hetar_reg, hgammar_reg, &
                   scale_t,scale_displ, &
                   cijkl_kl_crust_mantle,rho_kl_crust_mantle, &
                   alpha_kl_crust_mantle,beta_kl_crust_mantle, &