[cig-commits] r22268 - seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D
xie.zhinan at geodynamics.org
xie.zhinan at geodynamics.org
Fri Jun 14 08:29:10 PDT 2013
Author: xie.zhinan
Date: 2013-06-14 08:29:10 -0700 (Fri, 14 Jun 2013)
New Revision: 22268
Modified:
seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/compute_kernels.f90
Log:
fix one type error
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/compute_kernels.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/compute_kernels.f90 2013-06-14 15:22:28 UTC (rev 22267)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/compute_kernels.f90 2013-06-14 15:29:10 UTC (rev 22268)
@@ -1005,7 +1005,7 @@
!=====================================================================
- subroutine compute_stain_crust_mantle(displ_crust_mantle,hprime_xx,hprime_yy,hprime_zz,ibool,&
+ subroutine compute_strain_crust_mantle(displ_crust_mantle,hprime_xx,hprime_yy,hprime_zz,ibool,&
xix,xiy,xiz,etax,etay,etaz,gammax,gammay,gammaz, &
epsilondev,epsilon_trace_over_3)
@@ -1161,12 +1161,12 @@
enddo ! spectral element loop NSPEC_CRUST_MANTLE
- end subroutine compute_stain_crust_mantle
+ end subroutine compute_strain_crust_mantle
!=====================================================================
- subroutine compute_stain_inner_core(displ_inner_core,hprime_xx,hprime_yy,hprime_zz,ibool,&
+ subroutine compute_strain_inner_core(displ_inner_core,hprime_xx,hprime_yy,hprime_zz,ibool,&
xix,xiy,xiz,etax,etay,etaz,gammax,gammay,gammaz, &
epsilondev,epsilon_trace_over_3)
@@ -1322,7 +1322,7 @@
enddo ! spectral element loop NSPEC_CRUST_MANTLE
- end subroutine compute_stain_inner_core
+ end subroutine compute_strain_inner_core
More information about the CIG-COMMITS
mailing list