[cig-commits] r22514 - in seismo/3D/SPECFEM3D_GLOBE/trunk/src: meshfem3D shared specfem3D
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Fri Jul 5 18:55:29 PDT 2013
Author: dkomati1
Date: 2013-07-05 18:55:29 -0700 (Fri, 05 Jul 2013)
New Revision: 22514
Modified:
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_chunk_buffers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.F90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D_models.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_mantle.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_atten3D_QRFSI12.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_attenuation.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_crust.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_crustmaps.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_epcrust.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_eucrust.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_gapp2.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_gll.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_heterogen_mantle.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_jp3d.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_ppm.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s20rts.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s362ani.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s40rts.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_sea99_s.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/broadcast_compute_parameters.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/exit_mpi.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/model_topo_bathy.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube_block.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar_block.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector_block.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/check_simulation_stability.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/create_central_cube_buffers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_event_info.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/initialize_simulation.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_receivers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_sources.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/noise_tomography.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/prepare_timerun.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_arrays_buffers_solver.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/setup_sources_receivers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_surface.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_volume.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_seismograms.f90
Log:
switched from "include mpif.h" to "use mpi"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_chunk_buffers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_chunk_buffers.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_chunk_buffers.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -36,11 +36,10 @@
myrank,LOCAL_PATH,addressing, &
ichunk_slice,iproc_xi_slice,iproc_eta_slice,NCHUNKS)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
include "precision.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.F90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh.F90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -48,12 +48,10 @@
use meshfem3D_models_par
+ use mpi
+
implicit none
-! include "constants.h"
-! standard include of the MPI library
- include 'mpif.h'
-
! this to cut the doubling brick
integer, dimension(MAX_NUM_REGIONS,NB_SQUARE_CORNERS) :: NSPEC1D_RADIAL_CORNER,NGLOB1D_RADIAL_CORNER
integer, dimension(MAX_NUM_REGIONS,NB_SQUARE_EDGES_ONEDIR) :: NSPEC2D_XI_FACE,NSPEC2D_ETA_FACE
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -30,13 +30,10 @@
program xmeshfem3D
use meshfem3D_models_par
+ use mpi
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
- !include "constants.h"
include "precision.h"
!=====================================================================!
@@ -1204,11 +1201,10 @@
RCMB,RICB,R_CENTRAL_CUBE,ANGULAR_WIDTH_XI_IN_DEGREES,ANGULAR_WIDTH_ETA_IN_DEGREES)
use meshfem3D_models_par
+ use mpi
implicit none
- include 'mpif.h'
-
integer :: myrank,NCHUNKS,iregion_code
double precision :: area_local_bottom,area_local_top,volume_local,ANGULAR_WIDTH_XI_IN_DEGREES,ANGULAR_WIDTH_ETA_IN_DEGREES
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D_models.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D_models.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D_models.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -446,12 +446,10 @@
! preparing model parameter coefficients on all processes
use meshfem3D_models_par
+ use mpi
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
integer myrank
integer, dimension(MAX_NUM_REGIONS) :: NSPEC
@@ -595,15 +593,12 @@
! preparing model parameter coefficients on all processes
use meshfem3D_models_par
+ use mpi
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
integer myrank
-
!---
!
! ADD YOUR MODEL HERE
@@ -1166,13 +1161,10 @@
! returns velocity/density for default crust
use meshfem3D_models_par
+ use mpi
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
- !integer myrank
double precision,intent(in) :: lat,lon,r
double precision,intent(out) :: vpc,vsc,rhoc
double precision,intent(out) :: moho
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_mantle.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_mantle.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -45,11 +45,11 @@
! standard routine to setup model
+ use mpi
+
implicit none
include "constants.h"
- ! standard include of the MPI library
- include 'mpif.h'
! model_aniso_mantle_variables
type model_aniso_mantle_variables
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_atten3D_QRFSI12.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_atten3D_QRFSI12.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_atten3D_QRFSI12.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -52,11 +52,11 @@
! standard routine to setup model
+ use mpi
+
implicit none
include "constants.h"
- ! standard include of the MPI library
- include 'mpif.h'
! model_atten3D_QRFSI12_variables
type model_atten3D_QRFSI12_variables
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_attenuation.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_attenuation.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_attenuation.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -65,11 +65,11 @@
! standard routine to setup model
+ use mpi
+
implicit none
include "constants.h"
- ! standard include of the MPI library
- include 'mpif.h'
! model_attenuation_variables
type model_attenuation_variables
@@ -171,9 +171,10 @@
subroutine model_attenuation_setup(REFERENCE_1D_MODEL,RICB,RCMB,R670, &
R220,R80,AM_V,M1066a_V,Mak135_V,Mref_V,SEA1DM_V,AM_S,AS_V)
+ use mpi
+
implicit none
- include 'mpif.h'
include 'constants.h'
! model_attenuation_variables
@@ -453,8 +454,10 @@
subroutine model_attenuation_storage(Qmu, tau_e, rw, AM_S)
+ use mpi
+
implicit none
- include 'mpif.h'
+
include 'constants.h'
! model_attenuation_storage_var
@@ -597,10 +600,10 @@
subroutine attenuation_invert_by_simplex(t2, t1, n, Q_real, omega_not, tau_s, tau_e, AS_V)
+ use mpi
+
implicit none
- include 'mpif.h'
-
! attenuation_simplex_variables
type attenuation_simplex_variables
sequence
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_crust.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_crust.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_crust.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -39,11 +39,11 @@
! standard routine to setup model
+ use mpi
+
implicit none
include "constants.h"
- ! standard include of the MPI library
- include 'mpif.h'
! model_crust_variables
type model_crust_variables
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_crustmaps.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_crustmaps.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_crustmaps.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -43,11 +43,11 @@
! standard routine to setup model
+ use mpi
+
implicit none
include "constants.h"
- ! standard include of the MPI library
- include 'mpif.h'
integer :: myrank
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_epcrust.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_epcrust.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_epcrust.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -35,10 +35,11 @@
subroutine model_epcrust_broadcast(myrank,EPCRUST)
+ use mpi
+
implicit none
include "constants.h"
- include 'mpif.h'
type model_epcrust_variables
sequence
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_eucrust.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_eucrust.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_eucrust.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -37,11 +37,11 @@
! standard routine to setup model
+ use mpi
+
implicit none
include "constants.h"
- ! standard include of the MPI library
- include 'mpif.h'
! EUcrust
type model_eucrust_variables
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_gapp2.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_gapp2.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_gapp2.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -53,11 +53,12 @@
! standard routine to setup model
use gapp2_mantle_model_constants
+ use mpi
implicit none
+
include "constants.h"
- ! standard include of the MPI library
- include 'mpif.h'
+
integer :: myrank
integer :: ier
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_gll.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_gll.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_gll.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -38,12 +38,11 @@
! standard routine to setup model
use meshfem3D_models_par,only: TRANSVERSE_ISOTROPY
+ use mpi
implicit none
include "constants.h"
- ! standard include of the MPI library
- include 'mpif.h'
include "precision.h"
! GLL model_variables
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_heterogen_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_heterogen_mantle.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_heterogen_mantle.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -35,11 +35,11 @@
! standard routine to setup model
+ use mpi
+
implicit none
include "constants.h"
- ! standard include of the MPI library
- include 'mpif.h'
! model_heterogen_m_variables
type model_heterogen_m_variables
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_jp3d.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_jp3d.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_jp3d.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -63,11 +63,11 @@
! standard routine to setup model
+ use mpi
+
implicit none
include "constants.h"
- ! standard include of the MPI library
- include 'mpif.h'
! model_jp3d_variables
type model_jp3d_variables
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_ppm.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_ppm.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_ppm.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -95,11 +95,11 @@
! standard routine to setup model
+ use mpi
+
implicit none
include "constants.h"
- ! standard include of the MPI library
- include 'mpif.h'
! point profile model_variables
type model_ppm_variables
@@ -544,9 +544,10 @@
! smooth model parameters
+ use mpi
+
implicit none
- include 'mpif.h'
include "constants.h"
include "precision.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s20rts.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s20rts.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s20rts.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -39,11 +39,11 @@
! standard routine to setup model
+ use mpi
+
implicit none
include "constants.h"
- ! standard include of the MPI library
- include 'mpif.h'
! model_s20rts_variables s20rts
type model_s20rts_variables
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s362ani.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s362ani.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s362ani.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -49,11 +49,11 @@
! standard routine to setup model
+ use mpi
+
implicit none
include "constants.h"
- ! standard include of the MPI library
- include 'mpif.h'
integer THREE_D_MODEL
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s40rts.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s40rts.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s40rts.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -44,11 +44,11 @@
! standard routine to setup model
+ use mpi
+
implicit none
include "constants.h"
- ! standard include of the MPI library
- include 'mpif.h'
! model_s40rts_variables s40rts
type model_s40rts_variables
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_sea99_s.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_sea99_s.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_sea99_s.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -45,11 +45,11 @@
! standard routine to setup model
+ use mpi
+
implicit none
include "constants.h"
- ! standard include of the MPI library
- include 'mpif.h'
! model_sea99_s_variables
type model_sea99_s_variables
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/broadcast_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/broadcast_compute_parameters.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/broadcast_compute_parameters.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -59,10 +59,11 @@
ATTENUATION,ATTENUATION_3D,ANISOTROPIC_INNER_CORE,NOISE_TOMOGRAPHY, &
SAVE_REGULAR_KL,PARTIAL_PHYS_DISPERSION_ONLY,UNDO_ATTENUATION,NT_DUMP_ATTENUATION)
+ use mpi
+
implicit none
! standard include of the MPI library
- include 'mpif.h'
include "constants.h"
include "precision.h"
@@ -332,10 +333,10 @@
!! \param GPU_MODE Flag to indicate that GPU computing is ON or OFF.
subroutine broadcast_gpu_parameters(myrank,GPU_MODE)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
include "constants.h"
include "precision.h"
@@ -360,10 +361,10 @@
ADIOS_FOR_ARRAYS_SOLVER, ADIOS_FOR_SOLVER_MESHFILES, &
ADIOS_FOR_AVS_DX)
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
include "constants.h"
include "precision.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/exit_mpi.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/exit_mpi.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/exit_mpi.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -30,11 +30,10 @@
! version with rank number printed in the error message
subroutine exit_MPI(myrank,error_msg)
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
! identifier for error message file
@@ -84,11 +83,10 @@
! version without rank number printed in the error message
subroutine exit_MPI_without_rank(error_msg)
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
character(len=*) error_msg
@@ -140,11 +138,10 @@
subroutine sync_all()
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
integer :: ier,rank
! gets callers rank
@@ -162,11 +159,10 @@
subroutine irecv_cr(recvbuf, recvcount, dest, recvtag, req)
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
include "precision.h"
@@ -186,11 +182,10 @@
subroutine isend_cr(sendbuf, sendcount, dest, sendtag, req)
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
include "precision.h"
@@ -210,11 +205,10 @@
subroutine wait_req(req)
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
integer :: req
integer, dimension(MPI_STATUS_SIZE) :: req_mpi_status
@@ -231,11 +225,10 @@
double precision function wtime()
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
wtime = MPI_WTIME()
end function wtime
@@ -246,11 +239,10 @@
subroutine min_all_i(sendbuf, recvbuf)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
include "precision.h"
@@ -268,11 +260,10 @@
subroutine max_all_i(sendbuf, recvbuf)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
include "precision.h"
@@ -290,11 +281,10 @@
subroutine max_all_cr(sendbuf, recvbuf)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
include "precision.h"
@@ -312,11 +302,10 @@
subroutine sum_all_i(sendbuf, recvbuf)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
integer :: sendbuf, recvbuf
integer :: ier
@@ -331,11 +320,10 @@
subroutine sum_all_dp(sendbuf, recvbuf)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
double precision sendbuf, recvbuf
integer ier
@@ -350,11 +338,10 @@
subroutine bcast_iproc_i(buffer,iproc)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
integer :: iproc
integer :: buffer
@@ -370,11 +357,10 @@
subroutine bcast_all_singlei(buffer)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
integer :: buffer
integer ier
@@ -390,11 +376,10 @@
subroutine recv_singlei(recvbuf, dest, recvtag)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
integer :: dest,recvtag
integer :: recvbuf
@@ -413,11 +398,10 @@
subroutine recv_i(recvbuf, recvcount, dest, recvtag)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
integer :: dest,recvtag
integer :: recvcount
integer,dimension(recvcount) :: recvbuf
@@ -436,12 +420,10 @@
subroutine send_i(sendbuf, sendcount, dest, sendtag)
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
- !integer sendbuf,sendcount,dest,sendtag
integer dest,sendtag
integer sendcount
integer,dimension(sendcount):: sendbuf
@@ -457,12 +439,10 @@
subroutine send_singlei(sendbuf, dest, sendtag)
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
- !integer sendbuf,sendcount,dest,sendtag
integer :: dest,sendtag
integer :: sendbuf
integer :: ier
@@ -477,11 +457,10 @@
subroutine world_size(size)
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
integer size
integer ier
@@ -495,11 +474,10 @@
subroutine world_rank(rank)
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
integer rank
integer ier
@@ -513,11 +491,10 @@
subroutine gather_all_i(sendbuf, sendcnt, recvbuf, recvcount, NPROC)
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
integer sendcnt, recvcount, NPROC
integer, dimension(sendcnt) :: sendbuf
integer, dimension(recvcount,0:NPROC-1) :: recvbuf
@@ -536,11 +513,10 @@
subroutine gatherv_all_i(sendbuf, sendcnt, recvbuf, recvcount, recvoffset,recvcounttot, NPROC)
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
include "precision.h"
@@ -563,11 +539,10 @@
subroutine gatherv_all_cr(sendbuf, sendcnt, recvbuf, recvcount, recvoffset,recvcounttot, NPROC)
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
include "precision.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/model_topo_bathy.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/model_topo_bathy.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/model_topo_bathy.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -37,11 +37,11 @@
! standard routine to setup model
+ use mpi
+
implicit none
include "constants.h"
- ! standard include of the MPI library
- include 'mpif.h'
integer :: myrank
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -30,10 +30,10 @@
receiver_cube_from_slices,ibool_inner_core,idoubling_inner_core, &
ibelm_bottom_inner_core,NSPEC2D_BOTTOM_INNER_CORE,vector_assemble,ndim_assemble,iphase_CC)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
include 'constants.h'
! include values created by the mesher
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube_block.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube_block.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_central_cube_block.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -32,10 +32,10 @@
! this version of the routine is based on blocking MPI calls
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
include 'constants.h'
! for matching with central cube in inner core
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -45,11 +45,10 @@
! blocking send/receive
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
include "precision.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar_block.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar_block.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_scalar_block.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -45,11 +45,10 @@
! this version of the routine is based on blocking MPI calls
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
include "precision.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -47,11 +47,10 @@
NPROC_XI,NPROC_ETA,NGLOB1D_RADIAL_crust_mantle, &
NGLOB1D_RADIAL_inner_core,NCHUNKS,iphase)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
include "precision.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector_block.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector_block.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/assemble_MPI_vector_block.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -51,11 +51,10 @@
! this version of the routine is based on blocking MPI calls
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
include "precision.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/check_simulation_stability.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/check_simulation_stability.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/check_simulation_stability.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -29,9 +29,10 @@
SIMULATION_TYPE,OUTPUT_FILES,time_start,DT,t0,NSTEP, &
it_begin,it_end,NUMBER_OF_THIS_RUN,NUMBER_OF_RUNS,myrank)
+ use mpi
+
implicit none
- include 'mpif.h'
include "constants.h"
include "precision.h"
include "OUTPUT_FILES/values_from_mesher.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/create_central_cube_buffers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/create_central_cube_buffers.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/create_central_cube_buffers.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -40,11 +40,10 @@
receiver_cube_from_slices,sender_from_slices_to_cube,ibool_central_cube, &
buffer_slices,buffer_slices2,buffer_all_cube_from_slices)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
integer, intent(in) :: myrank,iproc_xi,iproc_eta,ichunk, &
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_event_info.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_event_info.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_event_info.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -38,11 +38,10 @@
elat,elon,depth,mb,cmt_lat, &
cmt_lon,cmt_depth,cmt_hdur,NSOURCES)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
!--- input or output arguments of the subroutine below
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/initialize_simulation.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/initialize_simulation.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/initialize_simulation.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -57,9 +57,10 @@
rec_filename,STATIONS,nrec,NOISE_TOMOGRAPHY,SAVE_REGULAR_KL, &
PARTIAL_PHYS_DISPERSION_ONLY,UNDO_ATTENUATION,NT_DUMP_ATTENUATION)
+ use mpi
+
implicit none
- include 'mpif.h'
include "constants.h"
include "OUTPUT_FILES/values_from_mesher.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_receivers.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_receivers.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -38,11 +38,10 @@
theta_source,phi_source,rspl,espl,espl2,nspl, &
ibathy_topo,RECEIVERS_CAN_BE_BURIED,NCHUNKS)
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
include "precision.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_sources.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_sources.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_sources.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -39,11 +39,10 @@
rspl,espl,espl2,nspl,ibathy_topo,NEX_XI,PRINT_SOURCE_TIME_FUNCTION, &
LOCAL_PATH,SIMULATION_TYPE)
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
include "precision.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/noise_tomography.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/noise_tomography.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/noise_tomography.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -79,9 +79,10 @@
NIT, ibool_crust_mantle, ibelm_top_crust_mantle, &
xstore_crust_mantle,ystore_crust_mantle,zstore_crust_mantle, &
irec_master_noise,normal_x_noise,normal_y_noise,normal_z_noise,mask_noise)
+ use mpi
+
implicit none
- include 'mpif.h'
include "precision.h"
include "constants.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/prepare_timerun.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/prepare_timerun.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/prepare_timerun.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -47,9 +47,10 @@
NUMMSGS_FACES,NUM_MSG_TYPES,NCORNERSCHUNKS,NGLOB_XY,ABSORBING_CONDITIONS, &
NGLOB1D_RADIAL,NGLOB2DMAX_XMIN_XMAX,NGLOB2DMAX_YMIN_YMAX,npoin2D_max_all_CM_IC)
+ use mpi
+
implicit none
- include 'mpif.h'
include "constants.h"
include "OUTPUT_FILES/values_from_mesher.h"
@@ -235,9 +236,10 @@
sender_from_slices_to_cube,ibool_central_cube, &
buffer_slices,buffer_slices2,buffer_all_cube_from_slices)
+ use mpi
+
implicit none
- include 'mpif.h'
include "constants.h"
include "OUTPUT_FILES/values_from_mesher.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_arrays_buffers_solver.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_arrays_buffers_solver.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_arrays_buffers_solver.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -36,11 +36,10 @@
NUMMSGS_FACES,NCORNERSCHUNKS,NPROCTOT,NPROC_XI,NPROC_ETA, &
LOCAL_PATH,NCHUNKS)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
integer iregion_code,myrank,NCHUNKS
@@ -158,11 +157,10 @@
npoin2D_xi,npoin2D_eta, &
NGLOB2DMAX_XMIN_XMAX,NGLOB2DMAX_YMIN_YMAX,LOCAL_PATH)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
integer iregion_code,myrank
@@ -313,11 +311,10 @@
NGLOB2DMAX_XY,NGLOB1D_RADIAL, &
NUMMSGS_FACES,NCORNERSCHUNKS,NPROC_XI,NPROC_ETA,LOCAL_PATH)
+ use mpi
+
implicit none
-! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
integer iregion_code,myrank
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -332,9 +332,10 @@
addressing,ichunk_slice,iproc_xi_slice,iproc_eta_slice, &
ichunk,iproc_xi,iproc_eta)
+ use mpi
+
implicit none
- include 'mpif.h'
include "constants.h"
include "OUTPUT_FILES/values_from_mesher.h"
@@ -590,9 +591,11 @@
LOCAL_PATH,SIMULATION_TYPE)
! to couple mantle with outer core
+
+ use mpi
+
implicit none
- include 'mpif.h'
include "constants.h"
include "OUTPUT_FILES/values_from_mesher.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/setup_sources_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/setup_sources_receivers.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/setup_sources_receivers.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -40,9 +40,10 @@
SIMULATION_TYPE,RECEIVERS_CAN_BE_BURIED,MOVIE_SURFACE,MOVIE_VOLUME, &
HDUR_MOVIE,OUTPUT_FILES,LOCAL_PATH)
+ use mpi
+
implicit none
- include 'mpif.h'
include "constants.h"
include "OUTPUT_FILES/values_from_mesher.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -29,11 +29,10 @@
program xspecfem3D
+ use mpi
+
implicit none
- ! standard include of the MPI library
- include 'mpif.h'
-
include "constants.h"
include "precision.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_surface.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_surface.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_surface.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -35,9 +35,10 @@
ibelm_top_crust_mantle,ibool_crust_mantle,nspec_top, &
NIT,it,OUTPUT_FILES,MOVIE_VOLUME_TYPE)
+ use mpi
+
implicit none
- include 'mpif.h'
include "precision.h"
include "constants.h"
include "OUTPUT_FILES/values_from_mesher.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_volume.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_volume.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_volume.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -1074,9 +1074,10 @@
! outputs single file for all processes
+ use mpi
+
implicit none
- include 'mpif.h'
include "precision.h"
include "constants.h"
include "OUTPUT_FILES/values_from_mesher.h"
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_seismograms.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_seismograms.f90 2013-07-06 01:37:58 UTC (rev 22513)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_seismograms.f90 2013-07-06 01:55:29 UTC (rev 22514)
@@ -37,16 +37,15 @@
seismo_offset,seismo_current,WRITE_SEISMOGRAMS_BY_MASTER,&
SAVE_ALL_SEISMOS_IN_ONE_FILE,USE_BINARY_FOR_LARGE_FILE,MODEL)
- implicit none
+ use mpi
-! standard include of the MPI library
- include 'mpif.h'
+ implicit none
- include "constants.h"
- include "precision.h"
+ include "constants.h"
+ include "precision.h"
! parameters
- integer nrec,nrec_local,myrank,it_end,NPROCTOT,NEX_XI !,NSOURCES
+ integer nrec,nrec_local,myrank,it_end,NPROCTOT,NEX_XI
character(len=256) sisname
integer :: seismo_offset, seismo_current, NTSTEP_BETWEEN_OUTPUT_SEISMOS
More information about the CIG-COMMITS
mailing list