[cig-commits] [commit] devel: fixed a typo in a comment (aa9b457)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/7616dfa81fe0573db3a26c89be8f849861a631aa...aa9b457da36c96e9f5e43db4e6224a0ab06269fa

>---------------------------------------------------------------

commit aa9b457da36c96e9f5e43db4e6224a0ab06269fa
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Thu Jul 31 00:16:47 2014 +0200

    fixed a typo in a comment


>---------------------------------------------------------------

aa9b457da36c96e9f5e43db4e6224a0ab06269fa
 setup/constants.h.in                                | 6 +++---
 src/specfem3D/compute_forces_viscoelastic_Dev.F90   | 2 +-
 src/specfem3D/compute_forces_viscoelastic_noDev.f90 | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/setup/constants.h.in b/setup/constants.h.in
index 2a2126d..32ff30a 100644
--- a/setup/constants.h.in
+++ b/setup/constants.h.in
@@ -156,13 +156,13 @@
 !!
 !!-----------------------------------------------------------
 
-! in the case of weakly nonlinear materials the stress tensor becomes non-symmetric, see for instance equation (A9)
+! in the case of weakly nonlinear materials the stress tensor becomes non-symmetric, see for instance equation (A9) in
 ! D. L. Johnson, S. Kostek and A. N. Norris, Nonlinear tube waves, J. Acoust. Soc. Am. vol. 96, p. 1829-1843 (1994).
 
   logical, parameter :: MAKE_HOOKE_LAW_WEAKLY_NONLINEAR = .false.
 
-! enter here the third-order elastic constants that are needed in addition to lambda and mu
-! for now we make them constant in the whole medium; that will be easy to change later if needed
+! define here the third-order elastic constants that are needed in addition to lambda and mu
+! for now they are constant in the whole medium; that will be easy to change later if needed
   real(kind=CUSTOM_REAL), parameter :: A = 0.0_CUSTOM_REAL
   real(kind=CUSTOM_REAL), parameter :: B = 0.0_CUSTOM_REAL
   real(kind=CUSTOM_REAL), parameter :: C = 0.0_CUSTOM_REAL
diff --git a/src/specfem3D/compute_forces_viscoelastic_Dev.F90 b/src/specfem3D/compute_forces_viscoelastic_Dev.F90
index 390da89..116ebed 100644
--- a/src/specfem3D/compute_forces_viscoelastic_Dev.F90
+++ b/src/specfem3D/compute_forces_viscoelastic_Dev.F90
@@ -779,7 +779,7 @@
 
             else
 
-            ! in the case of weakly nonlinear materials the stress tensor becomes non-symmetric, see for instance equation (A9)
+            ! in the case of weakly nonlinear materials the stress tensor becomes non-symmetric, see for instance equation (A9) in
             ! D. L. Johnson, S. Kostek and A. N. Norris, Nonlinear tube waves, J. Acoust. Soc. Am. vol. 96, p. 1829-1843 (1994).
 
               epsilon_trace = duxdxl + duydyl + duzdzl
diff --git a/src/specfem3D/compute_forces_viscoelastic_noDev.f90 b/src/specfem3D/compute_forces_viscoelastic_noDev.f90
index 86fd23b..64bfd37 100644
--- a/src/specfem3D/compute_forces_viscoelastic_noDev.f90
+++ b/src/specfem3D/compute_forces_viscoelastic_noDev.f90
@@ -662,7 +662,7 @@ subroutine compute_forces_viscoelastic_noDev(iphase, &
 
             else
 
-            ! in the case of weakly nonlinear materials the stress tensor becomes non-symmetric, see for instance equation (A9)
+            ! in the case of weakly nonlinear materials the stress tensor becomes non-symmetric, see for instance equation (A9) in
             ! D. L. Johnson, S. Kostek and A. N. Norris, Nonlinear tube waves, J. Acoust. Soc. Am. vol. 96, p. 1829-1843 (1994).
 
               epsilon_trace = duxdxl + duydyl + duzdzl