[cig-commits] r22951 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries

[elliott.sales.de.andrade at geodynamics.org]

Author: elliott.sales.de.andrade
Date: 2013-10-08 00:17:57 -0700 (Tue, 08 Oct 2013)
New Revision: 22951

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_paraview_strain_data.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_surf_data.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data_vtk.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/convolve_source_timefunction.f90
Log:
Use constants module instead of header in auxiliaries.

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_paraview_strain_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_paraview_strain_data.f90	2013-10-08 07:16:04 UTC (rev 22950)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_paraview_strain_data.f90	2013-10-08 07:17:57 UTC (rev 22951)
@@ -30,9 +30,10 @@
 ! combines the database files on several slices.
 ! the local database file needs to have been collected onto the frontend (copy_local_database.pl)
 
+  use constants
+
   implicit none
 
-  include "constants.h"
   include "OUTPUT_FILES/values_from_mesher.h"
 
   integer fid,i,ipoint, ios, it,itstart,itstop,dit_movie

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_surf_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_surf_data.f90	2013-10-08 07:16:04 UTC (rev 22950)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_surf_data.f90	2013-10-08 07:17:57 UTC (rev 22951)
@@ -29,9 +29,10 @@
 
   ! combines the database files on several slices.
 
+  use constants
+
   implicit none
 
-  include "constants.h"
   include "OUTPUT_FILES/values_from_mesher.h"
 
   integer,parameter :: MAX_NUM_NODES = 400

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data_vtk.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data_vtk.f90	2013-10-08 07:16:04 UTC (rev 22950)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data_vtk.f90	2013-10-08 07:17:57 UTC (rev 22951)
@@ -32,9 +32,10 @@
   ! combines the database files on several slices.
   ! the local database file needs to have been collected onto the frontend (copy_local_database.pl)
 
+  use constants
+
   implicit none
 
-  include "constants.h"
   include "OUTPUT_FILES/values_from_mesher.h"
 
   integer,parameter :: MAX_NUM_NODES = 2000

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/convolve_source_timefunction.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/convolve_source_timefunction.f90	2013-10-08 07:16:04 UTC (rev 22950)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/convolve_source_timefunction.f90	2013-10-08 07:17:57 UTC (rev 22951)
@@ -35,10 +35,10 @@
 ! using a Gaussian having a very close shape, as explained in Figure 4.2
 ! of the manual
 
+  use constants
+
   implicit none
 
-  include "constants.h"
-
   integer :: i,j,N_j,number_remove,nlines
 
   double precision :: alpha,dt,tau_j,source,exponent,t1,t2,displ1,displ2,gamma,height,half_duration_triangle