[cig-commits] r19140 - seismo/3D/SPECFEM3D/trunk/src/meshfem3D

[liuqy at geodynamics.org]

Author: liuqy
Date: 2011-11-01 07:15:02 -0700 (Tue, 01 Nov 2011)
New Revision: 19140

Modified:
   seismo/3D/SPECFEM3D/trunk/src/meshfem3D/save_databases.f90
Log:
add ten dummy zeros for the output of elastic/acoustic material properties in the database file, to accommodate the output format for general poroelastic media.



Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/save_databases.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/save_databases.f90	2011-11-01 13:26:14 UTC (rev 19139)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/save_databases.f90	2011-11-01 14:15:02 UTC (rev 19140)
@@ -96,7 +96,8 @@
    do idoubl = 1,NMATERIALS
       !write(15,*) material_properties(idoubl,:)
       matpropl(:) = material_properties(idoubl,:)
-      write(15,*) matpropl
+      ! pad dummy zeros to fill up 16 entries (poroelastic medium not allowed)
+      write(15,*) matpropl, 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
    end do