[cig-commits] r21598 - seismo/2D/SPECFEM2D/trunk/src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-03-21 09:36:58 -0700 (Thu, 21 Mar 2013)
New Revision: 21598

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_external_model.f90
Log:
clearer stop statement in define_external_model.f90


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_external_model.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_external_model.f90	2013-03-21 16:04:05 UTC (rev 21597)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_external_model.f90	2013-03-21 16:36:58 UTC (rev 21598)
@@ -107,7 +107,8 @@
      c55(i,j,ispec) = 0.d0
 
    else
-     stop 'wrong material number in external model'
+     write(IOUT,*) 'flag number in external model is equal to ',iflag_element
+     stop 'wrong flag number in external model; exiting...'
    endif
 
       enddo