[cig-commits] r22841 - seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-09-22 11:43:02 -0700 (Sun, 22 Sep 2013)
New Revision: 22841

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_kernels.F90
   seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/save_kernels.f90
Log:
switched to "use constants" everywhere instead of include "constants.h"


Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_kernels.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_kernels.F90	2013-09-22 18:35:28 UTC (rev 22840)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_kernels.F90	2013-09-22 18:43:02 UTC (rev 22841)
@@ -607,8 +607,9 @@
   ! This then gives how the 21 kernels are organized
   ! For crust_mantle
 
+  use constants
+
   implicit none
-  include  "constants.h"
 
   real(kind=CUSTOM_REAL),dimension(21) :: prod
   real(kind=CUSTOM_REAL) :: eps_trace_over_3,b_eps_trace_over_3

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/save_kernels.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/save_kernels.f90	2013-09-22 18:35:28 UTC (rev 22840)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/save_kernels.f90	2013-09-22 18:43:02 UTC (rev 22841)
@@ -696,8 +696,9 @@
 ! the components of the elastic tensor in spherical coordinates
 ! by eq. (A.1) of Chen & Tromp, GJI 168 (2007)
 
+  use constants
+
   implicit none
-  include  "constants.h"
 
   real(kind=CUSTOM_REAL), intent(in) :: theta_in,phi_in