[cig-commits] r22837 - in seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src: auxiliaries meshfem3D shared specfem3D
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Sat Sep 21 16:23:45 PDT 2013
Author: dkomati1
Date: 2013-09-21 16:23:44 -0700 (Sat, 21 Sep 2013)
New Revision: 22837
Modified:
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_vol_data.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_vol_data_vtk.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/rules.mk
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_MPI_interfaces.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_chunk_buffers.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_meshes.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regions_mesh.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/finalize_mesher.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/initialize_mesher.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_gapp2.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_ppm.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_MPI_interfaces.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_color_perm.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_model.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/test_MPI_interfaces.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/parallel.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/finalize_simulation.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/initialize_simulation.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/iterate_time.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/iterate_time_undoatt.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/locate_receivers.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/locate_sources.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/prepare_timerun.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_arrays_solver_adios.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_forward_arrays_adios.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_mesh_databases.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_mesh_databases_adios.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_topography_bathymetry.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/setup_sources_receivers.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_movie_output.f90
Log:
fixed all the warnings on Cray with the "ftn" compiler (except warnings about temporary array copies).
In particular, renamed sync_all() to synchronize_all() because sync_all() seems to be a reserved function on Cray.
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_vol_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_vol_data.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_vol_data.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -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,parameter :: MAX_NUM_NODES = 2000
@@ -141,16 +142,24 @@
! resolution
read(arg(6),*) ires
- di = 0; dj = 0; dk = 0
+ di = 0
+ dj = 0
+ dk = 0
if (ires == 0) then
HIGH_RESOLUTION_MESH = .false.
- di = NGLLX-1; dj = NGLLY-1; dk = NGLLZ-1
+ di = NGLLX-1
+ dj = NGLLY-1
+ dk = NGLLZ-1
else if( ires == 1 ) then
HIGH_RESOLUTION_MESH = .true.
- di = 1; dj = 1; dk = 1
+ di = 1
+ dj = 1
+ dk = 1
else if( ires == 2 ) then
HIGH_RESOLUTION_MESH = .false.
- di = (NGLLX-1)/2.0; dj = (NGLLY-1)/2.0; dk = (NGLLZ-1)/2.0
+ di = int((NGLLX-1)/2.0)
+ dj = int((NGLLY-1)/2.0)
+ dk = int((NGLLZ-1)/2.0)
endif
if( HIGH_RESOLUTION_MESH ) then
print *, ' high resolution ', HIGH_RESOLUTION_MESH
@@ -1009,39 +1018,3 @@
end subroutine spline_evaluation
-!
-! ------------------------------------------------------------------------------------------------
-!
-
-! copy from rthetaphi_xyz.f90 to avoid compiling issues
-
-
- subroutine xyz_2_rthetaphi_dble(x,y,z,r,theta,phi)
-
-! convert x y z to r theta phi, double precision call
-
- use constants
-
- implicit none
-
- double precision x,y,z,r,theta,phi
- double precision xmesh,ymesh,zmesh
-
- xmesh = x
- ymesh = y
- zmesh = z
-
- if(zmesh > -SMALL_VAL_ANGLE .and. zmesh <= ZERO) zmesh = -SMALL_VAL_ANGLE
- if(zmesh < SMALL_VAL_ANGLE .and. zmesh >= ZERO) zmesh = SMALL_VAL_ANGLE
-
- theta = datan2(dsqrt(xmesh*xmesh+ymesh*ymesh),zmesh)
-
- if(xmesh > -SMALL_VAL_ANGLE .and. xmesh <= ZERO) xmesh = -SMALL_VAL_ANGLE
- if(xmesh < SMALL_VAL_ANGLE .and. xmesh >= ZERO) xmesh = SMALL_VAL_ANGLE
-
- phi = datan2(ymesh,xmesh)
-
- r = dsqrt(xmesh*xmesh + ymesh*ymesh + zmesh*zmesh)
-
- end subroutine xyz_2_rthetaphi_dble
-
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_vol_data_vtk.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_vol_data_vtk.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_vol_data_vtk.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -151,16 +151,24 @@
! resolution
read(arg(6),*) ires
- di = 0; dj = 0; dk = 0
+ di = 0
+ dj = 0
+ dk = 0
if (ires == 0) then
HIGH_RESOLUTION_MESH = .false.
- di = NGLLX-1; dj = NGLLY-1; dk = NGLLZ-1
+ di = NGLLX-1
+ dj = NGLLY-1
+ dk = NGLLZ-1
else if( ires == 1 ) then
HIGH_RESOLUTION_MESH = .true.
- di = 1; dj = 1; dk = 1
+ di = 1
+ dj = 1
+ dk = 1
else if( ires == 2 ) then
HIGH_RESOLUTION_MESH = .false.
- di = (NGLLX-1)/2.0; dj = (NGLLY-1)/2.0; dk = (NGLLZ-1)/2.0
+ di = int((NGLLX-1)/2.0)
+ dj = int((NGLLY-1)/2.0)
+ dk = int((NGLLZ-1)/2.0)
endif
if( HIGH_RESOLUTION_MESH ) then
print *, ' high resolution ', HIGH_RESOLUTION_MESH
@@ -1121,40 +1129,3 @@
end subroutine spline_evaluation
-
-!
-! ------------------------------------------------------------------------------------------------
-!
-
-! copy from rthetaphi_xyz.f90 to avoid compiling issues
-
-
- subroutine xyz_2_rthetaphi_dble(x,y,z,r,theta,phi)
-
-! convert x y z to r theta phi, double precision call
-
- use constants
-
- implicit none
-
- double precision x,y,z,r,theta,phi
- double precision xmesh,ymesh,zmesh
-
- xmesh = x
- ymesh = y
- zmesh = z
-
- if(zmesh > -SMALL_VAL_ANGLE .and. zmesh <= ZERO) zmesh = -SMALL_VAL_ANGLE
- if(zmesh < SMALL_VAL_ANGLE .and. zmesh >= ZERO) zmesh = SMALL_VAL_ANGLE
-
- theta = datan2(dsqrt(xmesh*xmesh+ymesh*ymesh),zmesh)
-
- if(xmesh > -SMALL_VAL_ANGLE .and. xmesh <= ZERO) xmesh = -SMALL_VAL_ANGLE
- if(xmesh < SMALL_VAL_ANGLE .and. xmesh >= ZERO) xmesh = SMALL_VAL_ANGLE
-
- phi = datan2(ymesh,xmesh)
-
- r = dsqrt(xmesh*xmesh + ymesh*ymesh + zmesh*zmesh)
-
- end subroutine xyz_2_rthetaphi_dble
-
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/rules.mk
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/rules.mk 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/rules.mk 2013-09-21 23:23:44 UTC (rev 22837)
@@ -108,17 +108,17 @@
${E}/xcombine_AVS_DX: $(auxiliaries_SHARED_OBJECTS) $O/get_cmt.solver.o $O/combine_AVS_DX.aux.o
${FCCOMPILE_CHECK} -o ${E}/xcombine_AVS_DX $(auxiliaries_SHARED_OBJECTS) $O/get_cmt.solver.o $O/combine_AVS_DX.aux.o
-${E}/xcombine_paraview_strain_data: $O/combine_paraview_strain_data.auxsolver.o $O/write_c_binary.cc.o
- ${FCCOMPILE_CHECK} -o ${E}/xcombine_paraview_strain_data $O/combine_paraview_strain_data.auxsolver.o $O/write_c_binary.cc.o
+${E}/xcombine_paraview_strain_data: $(auxiliaries_SHARED_OBJECTS) $O/combine_paraview_strain_data.auxsolver.o $O/write_c_binary.cc.o
+ ${FCCOMPILE_CHECK} -o ${E}/xcombine_paraview_strain_data $(auxiliaries_SHARED_OBJECTS) $O/combine_paraview_strain_data.auxsolver.o $O/write_c_binary.cc.o
-${E}/xcombine_vol_data: $O/combine_vol_data.auxsolver.o $O/write_c_binary.cc.o
- ${FCCOMPILE_CHECK} -o ${E}/xcombine_vol_data $O/combine_vol_data.auxsolver.o $O/write_c_binary.cc.o
+${E}/xcombine_vol_data: $(auxiliaries_SHARED_OBJECTS) $O/combine_vol_data.auxsolver.o $O/write_c_binary.cc.o
+ ${FCCOMPILE_CHECK} -o ${E}/xcombine_vol_data $(auxiliaries_SHARED_OBJECTS) $O/combine_vol_data.auxsolver.o $O/write_c_binary.cc.o
-${E}/xcombine_vol_data_vtk: $O/combine_vol_data_vtk.auxsolver.o $O/write_c_binary.cc.o
- ${FCCOMPILE_CHECK} -o ${E}/xcombine_vol_data_vtk $O/combine_vol_data_vtk.auxsolver.o $O/write_c_binary.cc.o
+${E}/xcombine_vol_data_vtk: $(auxiliaries_SHARED_OBJECTS) $O/combine_vol_data_vtk.auxsolver.o $O/write_c_binary.cc.o
+ ${FCCOMPILE_CHECK} -o ${E}/xcombine_vol_data_vtk $(auxiliaries_SHARED_OBJECTS) $O/combine_vol_data_vtk.auxsolver.o $O/write_c_binary.cc.o
-${E}/xcombine_surf_data: $O/combine_surf_data.auxsolver.o $O/write_c_binary.cc.o
- ${FCCOMPILE_CHECK} -o ${E}/xcombine_surf_data $O/combine_surf_data.auxsolver.o $O/write_c_binary.cc.o
+${E}/xcombine_surf_data: $(auxiliaries_SHARED_OBJECTS) $O/combine_surf_data.auxsolver.o $O/write_c_binary.cc.o
+ ${FCCOMPILE_CHECK} -o ${E}/xcombine_surf_data $(auxiliaries_SHARED_OBJECTS) $O/combine_surf_data.auxsolver.o $O/write_c_binary.cc.o
${E}/xcreate_movie_AVS_DX: $(auxiliaries_SHARED_OBJECTS) $O/create_movie_AVS_DX.aux.o
${FCCOMPILE_CHECK} -o ${E}/xcreate_movie_AVS_DX $(auxiliaries_SHARED_OBJECTS) $O/create_movie_AVS_DX.aux.o
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_MPI_interfaces.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_MPI_interfaces.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_MPI_interfaces.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -184,7 +184,7 @@
end select
! synchronize processes
- call sync_all()
+ call synchronize_all()
end subroutine cmi_allocate_addressing
@@ -246,7 +246,7 @@
end select
! synchronize processes
- call sync_all()
+ call synchronize_all()
end subroutine cmi_get_addressing
@@ -411,7 +411,7 @@
write(IMAIN,*) 'including central cube'
call flush_IMAIN()
endif
- call sync_all()
+ call synchronize_all()
! allocates boundary indexing arrays for central cube
allocate(ibelm_xmin_inner_core(NSPEC2DMAX_XMIN_XMAX_IC), &
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_chunk_buffers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_chunk_buffers.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_chunk_buffers.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -795,7 +795,7 @@
!
! synchronize all the processes to make sure all the buffers are ready
- call sync_all()
+ call synchronize_all()
! gather information about all the messages on all processes
do imsg = 1,NUMMSGS_FACES
@@ -823,7 +823,7 @@
write(IMAIN,*)
call flush_IMAIN()
endif
- call sync_all()
+ call synchronize_all()
!
!---- generate the 8 message patterns sharing a corner of valence 3
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_meshes.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_meshes.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_meshes.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -44,7 +44,7 @@
volume_total = ZERO
! make sure everybody is synchronized
- call sync_all()
+ call synchronize_all()
!----
!---- loop on all the regions of the mesh
@@ -113,7 +113,7 @@
deallocate(is_on_a_slice_edge)
! make sure everybody is synchronized
- call sync_all()
+ call synchronize_all()
! end of loop on all the regions
enddo
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regions_mesh.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regions_mesh.F90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regions_mesh.F90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -123,7 +123,7 @@
call create_name_database(prname,myrank,iregion_code,LOCAL_PATH)
! initializes arrays
- call sync_all()
+ call synchronize_all()
if( myrank == 0) then
write(IMAIN,*)
write(IMAIN,*) ' ...allocating arrays '
@@ -135,7 +135,7 @@
! initialize number of layers
- call sync_all()
+ call synchronize_all()
if( myrank == 0) then
write(IMAIN,*)
write(IMAIN,*) ' ...setting up layers '
@@ -144,7 +144,7 @@
call crm_setup_layers(iregion_code,nspec,ipass,NEX_PER_PROC_ETA)
! creates mesh elements
- call sync_all()
+ call synchronize_all()
if( myrank == 0) then
write(IMAIN,*)
write(IMAIN,*) ' ...creating mesh elements '
@@ -159,7 +159,7 @@
select case(ipass)
case( 1 )
! creates ibool index array for projection from local to global points
- call sync_all()
+ call synchronize_all()
if( myrank == 0) then
write(IMAIN,*)
write(IMAIN,*) ' ...creating global addressing'
@@ -169,7 +169,7 @@
! create MPI buffers
- call sync_all()
+ call synchronize_all()
if( myrank == 0) then
write(IMAIN,*)
write(IMAIN,*) ' ...creating MPI buffers'
@@ -188,7 +188,7 @@
! only create mass matrix and save all the final arrays in the second pass
case( 2 )
! precomputes jacobian for 2d absorbing boundary surfaces
- call sync_all()
+ call synchronize_all()
if( myrank == 0) then
write(IMAIN,*)
write(IMAIN,*) ' ...precomputing jacobian'
@@ -209,7 +209,7 @@
xigll,yigll,zigll)
! create chunk buffers if more than one chunk
- call sync_all()
+ call synchronize_all()
if( myrank == 0) then
write(IMAIN,*)
write(IMAIN,*) ' ...creating chunk buffers'
@@ -227,7 +227,7 @@
xyz1D_leftxi_righteta,xyz1D_rightxi_righteta)
! setup mpi communication interfaces
- call sync_all()
+ call synchronize_all()
if( myrank == 0) then
write(IMAIN,*)
write(IMAIN,*) ' ...preparing MPI interfaces'
@@ -245,7 +245,7 @@
deallocate(iboolcorner)
! sets up inner/outer element arrays
- call sync_all()
+ call synchronize_all()
if( myrank == 0) then
write(IMAIN,*)
write(IMAIN,*) ' ...element inner/outer separation '
@@ -254,7 +254,7 @@
call setup_inner_outer(iregion_code)
! sets up mesh coloring
- call sync_all()
+ call synchronize_all()
if( myrank == 0) then
write(IMAIN,*)
write(IMAIN,*) ' ...element mesh coloring '
@@ -286,7 +286,7 @@
! creates mass matrix
- call sync_all()
+ call synchronize_all()
if( myrank == 0) then
write(IMAIN,*)
write(IMAIN,*) ' ...creating mass matrix'
@@ -353,7 +353,7 @@
NSPEC2D_TOP,NSPEC2D_BOTTOM)
! save the binary files
- call sync_all()
+ call synchronize_all()
if( myrank == 0) then
write(IMAIN,*)
write(IMAIN,*) ' ...saving binary files'
@@ -388,7 +388,7 @@
! boundary mesh for MOHO, 400 and 670 discontinuities
if (SAVE_BOUNDARY_MESH .and. iregion_code == IREGION_CRUST_MANTLE) then
! user output
- call sync_all()
+ call synchronize_all()
if( myrank == 0) then
write(IMAIN,*)
write(IMAIN,*) ' ...saving boundary mesh files'
@@ -416,7 +416,7 @@
! create AVS or DX mesh data for the slices
if(SAVE_MESH_FILES) then
! user output
- call sync_all()
+ call synchronize_all()
if( myrank == 0) then
write(IMAIN,*)
write(IMAIN,*) ' ...saving AVS mesh files'
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/finalize_mesher.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/finalize_mesher.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/finalize_mesher.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -163,7 +163,7 @@
endif
! synchronize all the processes to make sure everybody has finished
- call sync_all()
+ call synchronize_all()
if (ADIOS_ENABLED) then
call adios_cleanup()
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/initialize_mesher.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/initialize_mesher.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/initialize_mesher.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -76,7 +76,7 @@
if(sizeprocs /= NPROCTOT) call exit_MPI(myrank,'wrong number of MPI processes')
! synchronizes processes
- call sync_all()
+ call synchronize_all()
! compute rotation matrix from Euler angles
ANGULAR_WIDTH_XI_RAD = ANGULAR_WIDTH_XI_IN_DEGREES * DEGREES_TO_RADIANS
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_gapp2.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_gapp2.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_gapp2.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -215,11 +215,11 @@
if(theta>=PI) then
ia = na
else
- ia = theta / dtheta + 1
+ ia = int(theta / dtheta) + 1
endif
! longitude
if(phi < 0.0d0) phi = phi + 2.*PI
- io=phi / dphi + 1
+ io=int(phi / dphi) + 1
if(io>no) io=io-no
! velocity and density perturbations
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_ppm.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_ppm.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_ppm.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -756,7 +756,7 @@
deallocate(xix,xiy,xiz,etax,etay,etaz,gammax,gammay,gammaz)
if (myrank == 0) write(IMAIN, *) 'distributing locations, jacobians and model values ...'
- call sync_all()
+ call synchronize_all()
! get location/jacobian info from slices
allocate( slice_x(NGLLX,NGLLY,NGLLZ,NSPEC,nums))
@@ -842,7 +842,7 @@
enddo
! get the global maximum value of the original kernel file
- !call sync_all()
+ !call synchronize_all()
!call max_all_cr(maxval(abs(muvstore(:,:,:,:))), max_old)
if (myrank == 0) write(IMAIN, *) 'start looping over elements and points for smoothing ...'
@@ -1048,14 +1048,14 @@
!if (myrank == 0) write(IMAIN, *) 'Maximum data value before smoothing = ', max_old
! the maximum value for the smoothed kernel
- !call sync_all()
+ !call synchronize_all()
!call max_all_cr(maxval(abs(muvstore(:,:,:,:))), max_new)
!if (myrank == 0) then
! write(IMAIN, *) 'Maximum data value after smoothing = ', max_new
! write(IMAIN, *)
!endif
- !call sync_all()
+ !call synchronize_all()
end subroutine
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_MPI_interfaces.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_MPI_interfaces.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_MPI_interfaces.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -114,7 +114,7 @@
end select
! synchronizes MPI processes
- call sync_all()
+ call synchronize_all()
end subroutine setup_MPI_interfaces
@@ -233,7 +233,7 @@
ibool_interfaces_crust_mantle(1:nibool_interfaces_crust_mantle(i),i), &
nibool_interfaces_crust_mantle(i),filename)
enddo
- call sync_all()
+ call synchronize_all()
endif
! checks addressing
@@ -364,7 +364,7 @@
ibool_interfaces_outer_core(1:nibool_interfaces_outer_core(i),i), &
nibool_interfaces_outer_core(i),filename)
enddo
- call sync_all()
+ call synchronize_all()
endif
! checks addressing
@@ -460,7 +460,7 @@
xstore_inner_core,ystore_inner_core,zstore_inner_core, &
ibool, &
idoubling,filename)
- call sync_all()
+ call synchronize_all()
endif
! including central cube
@@ -504,7 +504,7 @@
! IREGION_INNER_CORE,.false.,idoubling,INCLUDE_CENTRAL_CUBE, &
! xstore_inner_core,ystore_inner_core,zstore_inner_core,NPROCTOT)
! endif
- ! call sync_all()
+ ! call synchronize_all()
!enddo
! gets new interfaces for inner_core without central cube yet
@@ -556,7 +556,7 @@
ibool_interfaces_inner_core(1:nibool_interfaces_inner_core(i),i), &
nibool_interfaces_inner_core(i),filename)
enddo
- call sync_all()
+ call synchronize_all()
endif
! checks addressing
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_color_perm.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_color_perm.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_color_perm.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -90,7 +90,7 @@
call exit_MPI(myrank, 'maxval(perm) should be num_phase_ispec_crust_mantle')
! sorts array according to permutation
- call sync_all()
+ call synchronize_all()
if(myrank == 0) then
write(IMAIN,*) ' mesh permutation:'
endif
@@ -142,7 +142,7 @@
call exit_MPI(myrank, 'maxval(perm) should be num_phase_ispec_outer_core')
! sorts array according to permutation
- call sync_all()
+ call synchronize_all()
if(myrank == 0) then
write(IMAIN,*) ' mesh permutation:'
endif
@@ -197,7 +197,7 @@
endif
! sorts array according to permutation
- call sync_all()
+ call synchronize_all()
if(myrank == 0) then
write(IMAIN,*) ' mesh permutation:'
endif
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_model.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_model.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -67,7 +67,7 @@
write(IMAIN,*)
write(IMAIN,*)
endif
- call sync_all()
+ call synchronize_all()
end subroutine setup_model
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/test_MPI_interfaces.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/test_MPI_interfaces.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/test_MPI_interfaces.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -61,7 +61,7 @@
! enddo
! print*
! endif
- ! call sync_all()
+ ! call synchronize_all()
!enddo
! checks maximum number of interface points
@@ -165,7 +165,7 @@
call send_i(nibool_interfaces(1:num_interfaces),num_interfaces,0,itag)
endif
endif
- call sync_all()
+ call synchronize_all()
! checks if addressing is okay
if( myrank == 0 ) then
@@ -224,7 +224,7 @@
deallocate(dummy_i)
deallocate(test_interfaces)
endif
- call sync_all()
+ call synchronize_all()
end subroutine test_MPI_neighbours
@@ -341,7 +341,7 @@
deallocate(test_flag_vector)
deallocate(valence)
- call sync_all()
+ call synchronize_all()
end subroutine test_MPI_cm
@@ -450,7 +450,7 @@
deallocate(test_flag)
deallocate(valence)
- call sync_all()
+ call synchronize_all()
end subroutine test_MPI_oc
@@ -562,6 +562,6 @@
deallocate(test_flag_vector)
deallocate(valence)
- call sync_all()
+ call synchronize_all()
end subroutine test_MPI_ic
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/parallel.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/parallel.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/parallel.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -87,7 +87,7 @@
!-------------------------------------------------------------------------------------------------
!
- subroutine sync_all()
+ subroutine synchronize_all()
use mpi
@@ -102,7 +102,7 @@
call MPI_BARRIER(MPI_COMM_WORLD,ier)
if( ier /= 0 ) call exit_mpi(rank,'error synchronize MPI processes')
- end subroutine sync_all
+ end subroutine synchronize_all
!
!-------------------------------------------------------------------------------------------------
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/finalize_simulation.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/finalize_simulation.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/finalize_simulation.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -35,7 +35,7 @@
implicit none
! synchronize all processes, waits until all processes have written their seismograms
- call sync_all()
+ call synchronize_all()
! closes Stacey absorbing boundary snapshots
if( ABSORBING_CONDITIONS ) then
@@ -161,7 +161,7 @@
endif
! synchronize all the processes to make sure everybody has finished
- call sync_all()
+ call synchronize_all()
if (ADIOS_ENABLED) then
call adios_cleanup()
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/initialize_simulation.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/initialize_simulation.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/initialize_simulation.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -59,7 +59,7 @@
endif
! synchronizes processes
- call sync_all()
+ call synchronize_all()
! get the base pathname for output files
call get_value_string(OUTPUT_FILES, 'OUTPUT_FILES', 'OUTPUT_FILES')
@@ -204,7 +204,7 @@
call initialize_simulation_check()
! synchronizes processes
- call sync_all()
+ call synchronize_all()
! counts receiver stations
if (SIMULATION_TYPE == 1) then
@@ -251,7 +251,7 @@
!endif
! synchronizes processes
- call sync_all()
+ call synchronize_all()
end subroutine initialize_simulation
@@ -470,7 +470,7 @@
call initialize_cuda_device(myrank,ncuda_devices)
! collects min/max of local devices found for statistics
- call sync_all()
+ call synchronize_all()
call min_all_i(ncuda_devices,ncuda_devices_min)
call max_all_i(ncuda_devices,ncuda_devices_max)
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/iterate_time.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/iterate_time.F90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/iterate_time.F90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -42,7 +42,7 @@
!
! synchronize all processes to make sure everybody is ready to start time loop
- call sync_all()
+ call synchronize_all()
if(myrank == 0) then
write(IMAIN,*)
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/iterate_time_undoatt.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/iterate_time_undoatt.F90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/iterate_time_undoatt.F90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -74,7 +74,7 @@
endif
! synchronize all processes to make sure everybody is ready to start time loop
- call sync_all()
+ call synchronize_all()
if(myrank == 0) then
write(IMAIN,*)
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/locate_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/locate_receivers.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/locate_receivers.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -844,7 +844,7 @@
endif ! end of section executed by main process only
- call sync_all()
+ call synchronize_all()
! deallocate arrays
deallocate(epidist)
@@ -882,7 +882,7 @@
write(IMAIN,*)
call flush_IMAIN()
endif
- call sync_all()
+ call synchronize_all()
end subroutine locate_receivers
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/locate_sources.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/locate_sources.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/locate_sources.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -568,7 +568,7 @@
! end of loop on all the sources
enddo
! synchronizes processes
- call sync_all()
+ call synchronize_all()
! now gather information from all the nodes
call gather_all_i(ispec_selected_source_subset,NSOURCES_SUBSET_current_size, &
@@ -752,7 +752,7 @@
! closing sr_tmp.vtk
close(IOVTK)
endif
- call sync_all()
+ call synchronize_all()
! main process broadcasts the results to all the slices
call bcast_all_i(islice_selected_source,NSOURCES)
@@ -778,7 +778,7 @@
write(IMAIN,*)
call flush_IMAIN()
endif
- call sync_all()
+ call synchronize_all()
end subroutine locate_sources
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-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/prepare_timerun.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -89,7 +89,7 @@
if( VTK_MODE ) call prepare_vtk_window()
! synchronize all the processes
- call sync_all()
+ call synchronize_all()
! user output
if( myrank == 0 ) then
@@ -441,7 +441,7 @@
endif
endif
- call sync_all()
+ call synchronize_all()
end subroutine prepare_timerun_rmass_assembly
@@ -576,7 +576,7 @@
call flush_IMAIN()
endif
- call sync_all()
+ call synchronize_all()
end subroutine prepare_timerun_movie_surface
@@ -652,7 +652,7 @@
if( MOVIE_VOLUME_TYPE < 1 .or. MOVIE_VOLUME_TYPE > 9) &
call exit_MPI(myrank, 'MOVIE_VOLUME_TYPE has to be in range from 1 to 9')
- call sync_all()
+ call synchronize_all()
end subroutine prepare_timerun_movie_volume
@@ -736,7 +736,7 @@
b_two_omega_earth = two_omega_earth
endif
- call sync_all()
+ call synchronize_all()
end subroutine prepare_timerun_constants
@@ -830,7 +830,7 @@
endif
- call sync_all()
+ call synchronize_all()
end subroutine prepare_timerun_gravity
@@ -1034,7 +1034,7 @@
endif
! synchronizes processes
- call sync_all()
+ call synchronize_all()
end subroutine prepare_timerun_attenuation
@@ -1466,7 +1466,7 @@
endif
- call sync_all()
+ call synchronize_all()
end subroutine prepare_timerun_init_wavefield
@@ -1795,7 +1795,7 @@
call check_parameters_noise()
- call sync_all()
+ call synchronize_all()
endif
@@ -2205,7 +2205,7 @@
endif
! synchronizes processes
- call sync_all()
+ call synchronize_all()
! outputs GPU usage to files for all processes
call output_free_device_memory(myrank)
@@ -2283,7 +2283,7 @@
print*
print*,"vtk:"
endif
- call sync_all()
+ call synchronize_all()
! to avoid compiler warnings
!NPROC = NPROCTOT_VAL
@@ -2294,7 +2294,7 @@
print*," vtk source sphere:"
call prepare_vtksource(vtkdata_source_x,vtkdata_source_y,vtkdata_source_z)
endif
- call sync_all()
+ call synchronize_all()
! mask
allocate(vtkmask(NGLOB_CRUST_MANTLE),stat=ier)
@@ -2556,7 +2556,7 @@
if(myrank == 0 ) deallocate(free_x_all,free_y_all,free_z_all,free_conn_all)
endif
endif ! VTK_SHOW_FREESURFACE
- call sync_all()
+ call synchronize_all()
! volume data
if( VTK_SHOW_VOLUME ) then
@@ -2831,7 +2831,7 @@
if(myrank == 0 ) deallocate(vol_x_all,vol_y_all,vol_z_all,vol_conn_all)
endif
endif ! VTK_SHOW_VOLUME
- call sync_all()
+ call synchronize_all()
! user output
!if( myrank == 0 ) then
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_arrays_solver_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_arrays_solver_adios.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_arrays_solver_adios.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -470,7 +470,7 @@
call adios_read_finalize_method(ADIOS_READ_METHOD_BP, adios_err)
call check_adios_err(myrank,adios_err)
- call sync_all()
+ call synchronize_all()
! checks dimensions
if( lnspec /= nspec ) then
print*,'error file dimension: nspec in file = ',lnspec, &
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_forward_arrays_adios.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_forward_arrays_adios.F90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_forward_arrays_adios.F90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -231,7 +231,7 @@
call adios_read_finalize_method(ADIOS_READ_METHOD_BP, adios_err)
call check_adios_err(myrank,adios_err)
- call sync_all()
+ call synchronize_all()
end subroutine read_intermediate_forward_arrays_adios
@@ -437,6 +437,6 @@
call adios_read_finalize_method(ADIOS_READ_METHOD_BP, adios_err)
call check_adios_err(myrank,adios_err)
- call sync_all()
+ call synchronize_all()
end subroutine read_forward_arrays_adios
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_mesh_databases.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_mesh_databases.F90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_mesh_databases.F90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -95,7 +95,7 @@
#endif
! user output
- call sync_all()
+ call synchronize_all()
if( myrank == 0 ) then
! elapsed time since beginning of mesh generation
tCPU = wtime() - time_start
@@ -903,7 +903,7 @@
call flush_IMAIN()
endif
! synchronizes MPI processes
- call sync_all()
+ call synchronize_all()
end subroutine read_mesh_databases_MPI
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_mesh_databases_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_mesh_databases_adios.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_mesh_databases_adios.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -919,7 +919,7 @@
call adios_read_finalize_method(ADIOS_READ_METHOD_BP, adios_err)
call check_adios_err(myrank,adios_err)
- call sync_all()
+ call synchronize_all()
end subroutine read_mesh_databases_MPI_CM_adios
@@ -1102,7 +1102,7 @@
call adios_read_finalize_method(ADIOS_READ_METHOD_BP, adios_err)
call check_adios_err(myrank,adios_err)
- call sync_all()
+ call synchronize_all()
end subroutine read_mesh_databases_MPI_OC_adios
@@ -1287,7 +1287,7 @@
call adios_read_finalize_method(ADIOS_READ_METHOD_BP, adios_err)
call check_adios_err(myrank,adios_err)
- call sync_all()
+ call synchronize_all()
end subroutine read_mesh_databases_MPI_IC_adios
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_topography_bathymetry.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_topography_bathymetry.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_topography_bathymetry.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -74,7 +74,7 @@
endif
! user output
- call sync_all()
+ call synchronize_all()
if( myrank == 0 .and. (TOPOGRAPHY .or. OCEANS_VAL .or. ELLIPTICITY_VAL)) then
! elapsed time since beginning of mesh generation
tCPU = wtime() - time_start
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/setup_sources_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/setup_sources_receivers.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/setup_sources_receivers.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -53,7 +53,7 @@
if(NSOURCES > 1) write(IMAIN,*) 'Using ',NSOURCES,' point sources'
call flush_IMAIN()
endif
- call sync_all()
+ call synchronize_all()
! frees arrays
deallocate(theta_source,phi_source)
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_movie_output.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_movie_output.f90 2013-09-21 23:14:15 UTC (rev 22836)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_movie_output.f90 2013-09-21 23:23:44 UTC (rev 22837)
@@ -233,7 +233,7 @@
! executes an external script on the node
if( RUN_EXTERNAL_SCRIPT ) then
- call sync_all()
+ call synchronize_all()
if( myrank == 0 ) then
write(system_command,"('./',a,1x,i6.6,' >& out.',i6.6,'.log &')") trim(script_name),it,it
!print*,trim(system_command)
More information about the CIG-COMMITS
mailing list