[cig-commits] [commit] devel: Update for couple with DSM (b09e4e9)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/8a3f14d7d473f70feb7f073639045daa35c587bc...d759e09dd946c593868753fbb4253d77378fb276

>---------------------------------------------------------------

commit b09e4e954f3fc8280210ac5fa817a9eb81a4c820
Author: Clément Durochat <c.durochat at gmail.com>
Date:   Wed Jun 25 13:03:32 2014 +0200

    Update for couple with DSM


>---------------------------------------------------------------

b09e4e954f3fc8280210ac5fa817a9eb81a4c820
 src/generate_databases/get_absorbing_boundary.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/generate_databases/get_absorbing_boundary.f90 b/src/generate_databases/get_absorbing_boundary.f90
index fb83eaa..cdb9e5b 100644
--- a/src/generate_databases/get_absorbing_boundary.f90
+++ b/src/generate_databases/get_absorbing_boundary.f90
@@ -42,7 +42,7 @@
   implicit none
 
 ! number of spectral elements in each block
-  integer :: myrank,nspec
+  integer :: myrank,ier,nspec
 
 ! arrays with the mesh
   integer, dimension(NGLLX,NGLLY,NGLLZ,nspec) :: ibool
@@ -94,7 +94,7 @@
            xcoord_iboun(NGNOD2D,6,nspec), &
            ycoord_iboun(NGNOD2D,6,nspec), &
            zcoord_iboun(NGNOD2D,6,nspec),stat=ier)
-  if(ier /= 0) call exit_MPI(myrank,'not enough memory to allocate arrays')
+  if(ier /= 0) stop 'not enough memory to allocate arrays'
 
   ! sets flag in array iboun for elements with an absorbing boundary faces
   if(COUPLE_WITH_DSM) then