[cig-commits] r22394 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D
elliott.sales.de.andrade at geodynamics.org
elliott.sales.de.andrade at geodynamics.org
Thu Jun 20 15:04:39 PDT 2013
Author: elliott.sales.de.andrade
Date: 2013-06-20 15:04:39 -0700 (Thu, 20 Jun 2013)
New Revision: 22394
Modified:
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_regular_points.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90
Log:
Fix arguments to exit_MPI.
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_regular_points.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_regular_points.f90 2013-06-20 22:04:26 UTC (rev 22393)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/locate_regular_points.f90 2013-06-20 22:04:39 UTC (rev 22394)
@@ -25,7 +25,7 @@
!
!=====================================================================
-subroutine read_kl_regular_grid(GRID)
+subroutine read_kl_regular_grid(myrank, GRID)
implicit none
include 'constants.h'
@@ -45,7 +45,7 @@
type (kl_reg_grid_variables), intent(inout) :: GRID
- integer :: ios,nlayer,i,nlat,nlon,npts_this_layer
+ integer :: myrank,ios,nlayer,i,nlat,nlon,npts_this_layer
! improvements to make: read-in by master and broadcast to all slaves
open(10,file=PATHNAME_KL_REG,iostat=ios,status='old',action='read')
@@ -61,7 +61,7 @@
close(10)
if (nlayer > NM_KL_REG_LAYER) then
- call exit_MPI('Increase NM_KL_REG_LAYER limit')
+ call exit_MPI(myrank, 'Increase NM_KL_REG_LAYER limit')
endif
GRID%nlayer = nlayer
@@ -78,7 +78,7 @@
GRID%npts_before_layer(i+1) = GRID%npts_before_layer(i) + npts_this_layer
enddo
if (GRID%npts_total <= 0) then
- call exit_MPI('No Model points read in')
+ call exit_MPI(myrank, 'No Model points read in')
endif
end subroutine read_kl_regular_grid
@@ -116,7 +116,7 @@
! assuming 6 chunks full global simulations right now
if (NCHUNKS /= 6 .or. NPROC_XI /= NPROC_ETA) then
- call exit_MPI('Only deal with 6 chunks at this moment')
+ call exit_MPI(0, 'Only deal with 6 chunks at this moment')
endif
xi_width=PI/2; eta_width=PI/2; nproc=NPROC_XI
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90 2013-06-20 22:04:26 UTC (rev 22393)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D.F90 2013-06-20 22:04:39 UTC (rev 22394)
@@ -1316,7 +1316,7 @@
endif
if (SAVE_REGULAR_KL) then
- call read_kl_regular_grid(KL_REG_GRID)
+ call read_kl_regular_grid(myrank, KL_REG_GRID)
if (myrank==0) then
allocate(slice_number(KL_REG_GRID%npts_total))
More information about the CIG-COMMITS
mailing list