[cig-commits] r22394 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D

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

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))