[cig-commits] r11926 - seismo/3D/SPECFEM3D_GLOBE/trunk

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-05-08 15:32:29 -0700 (Thu, 08 May 2008)
New Revision: 11926

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_crust_mantle.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_inner_core.f90
Log:
changed Q_\Kappa to Q_\kappa


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_crust_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_crust_mantle.f90	2008-05-08 21:42:27 UTC (rev 11925)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_crust_mantle.f90	2008-05-08 22:32:29 UTC (rev 11926)
@@ -803,9 +803,9 @@
 ! term in xz = 4
 ! term in yz = 5
 ! term in zz not computed since zero trace
-! This is because we only implement Q_\mu attenuation and not Q_\Kappa.
+! This is because we only implement Q_\mu attenuation and not Q_\kappa.
 ! Note that this does *NOT* imply that there is no attenuation for P waves
-! because for Q_\Kappa = infinity one gets (see for instance Dahlen and Tromp (1998)
+! because for Q_\kappa = infinity one gets (see for instance Dahlen and Tromp (1998)
 ! equation (9.59) page 350): Q_\alpha = Q_\mu * 3 * (V_p/V_s)^2 / 4
 ! therefore Q_\alpha is not zero; for instance for V_p / V_s = sqrt(3)
 ! we get Q_\alpha = (9 / 4) * Q_\mu = 2.25 * Q_\mu

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_inner_core.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_inner_core.f90	2008-05-08 21:42:27 UTC (rev 11925)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_inner_core.f90	2008-05-08 22:32:29 UTC (rev 11926)
@@ -562,9 +562,9 @@
 ! term in xz = 4
 ! term in yz = 5
 ! term in zz not computed since zero trace
-! This is because we only implement Q_\mu attenuation and not Q_\Kappa.
+! This is because we only implement Q_\mu attenuation and not Q_\kappa.
 ! Note that this does *NOT* imply that there is no attenuation for P waves
-! because for Q_\Kappa = infinity one gets (see for instance Dahlen and Tromp (1998)
+! because for Q_\kappa = infinity one gets (see for instance Dahlen and Tromp (1998)
 ! equation (9.59) page 350): Q_\alpha = Q_\mu * 3 * (V_p/V_s)^2 / 4
 ! therefore Q_\alpha is not zero; for instance for V_p / V_s = sqrt(3)
 ! we get Q_\alpha = (9 / 4) * Q_\mu = 2.25 * Q_\mu