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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-03-21 09:42:21 -0700 (Thu, 21 Mar 2013)
New Revision: 21599

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_external_model.f90
Log:
fixed an old (unknown) variable that I just introduced in define_external_model.f90 by cut and paste


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:36:58 UTC (rev 21598)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_external_model.f90	2013-03-21 16:42:21 UTC (rev 21599)
@@ -107,7 +107,7 @@
      c55(i,j,ispec) = 0.d0
 
    else
-     write(IOUT,*) 'flag number in external model is equal to ',iflag_element
+     write(IOUT,*) 'flag number in external model is equal to ',material_element(ispec)
      stop 'wrong flag number in external model; exiting...'
    endif