[cig-commits] r22677 - in seismo/3D/SPECFEM3D_GLOBE: branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D trunk/src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-07-25 15:26:37 -0700 (Thu, 25 Jul 2013)
New Revision: 22677

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_area.f90
   seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/prepare_timerun.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/prepare_timerun.f90
Log:
made the position of "use mpi" suitable for automatic replacement with "include mpif.h" based on a script


Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_area.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_area.f90	2013-07-25 22:15:15 UTC (rev 22676)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_area.f90	2013-07-25 22:26:37 UTC (rev 22677)
@@ -44,7 +44,7 @@
   ! local parameters
   double precision :: volume_total_region,area_total_bottom,area_total_top
 
-  ! use MPI reduction to compute total area and volume
+  ! use an MPI reduction to compute the total area and volume
   volume_total_region = ZERO
   area_total_bottom   = ZERO
   area_total_top   = ZERO

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/prepare_timerun.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/prepare_timerun.f90	2013-07-25 22:15:15 UTC (rev 22676)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/prepare_timerun.f90	2013-07-25 22:26:37 UTC (rev 22677)
@@ -1443,12 +1443,12 @@
 
   subroutine prepare_timerun_GPU()
 
-  use mpi
   use specfem_par
   use specfem_par_crustmantle
   use specfem_par_innercore
   use specfem_par_outercore
   use specfem_par_movie
+  use mpi
 
   implicit none
 

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/prepare_timerun.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/prepare_timerun.f90	2013-07-25 22:15:15 UTC (rev 22676)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/prepare_timerun.f90	2013-07-25 22:26:37 UTC (rev 22677)
@@ -52,6 +52,7 @@
                       b_rmassx_inner_core,b_rmassy_inner_core)
 
   use mpi
+
   implicit none
 
   include "constants.h"