[cig-commits] r12494 - seismo/2D/SPECFEM2D/trunk

[nlegoff at geodynamics.org]

Author: nlegoff
Date: 2008-07-29 17:05:50 -0700 (Tue, 29 Jul 2008)
New Revision: 12494

Modified:
   seismo/2D/SPECFEM2D/trunk/specfem2D.F90
Log:
previous commit message should read as follows :
"fixed a bug concerning fluid/solid coupled simulations and Cuthill-McKee : it is now okay to run fluid/solid coupled simulations along with a Cuthill-McKee reordering of the elements."


Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2008-07-30 00:01:18 UTC (rev 12493)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2008-07-30 00:05:50 UTC (rev 12494)
@@ -832,7 +832,7 @@
      allocate(fluid_solid_elastic_iedge(num_fluid_solid_edges))
 endif
      do inum = 1, num_fluid_solid_edges
-        read(IIN,*) fluid_solid_acoustic_ispec_read, fluid_solid_elastic_ispec_read
+        read(IIN,*) fluid_solid_acoustic_ispec_read,fluid_solid_elastic_ispec_read
         if(ipass == 1) then
           fluid_solid_acoustic_ispec(inum) = fluid_solid_acoustic_ispec_read
           fluid_solid_elastic_ispec(inum) = fluid_solid_elastic_ispec_read