[cig-commits] r19345 - in seismo/2D/SPECFEM2D/trunk/src: meshfem2D specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-01-09 14:20:27 -0800 (Mon, 09 Jan 2012)
New Revision: 19345

Modified:
   seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_databases.f90
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_databases.f90
Log:
fixed a potential format problem for the database


Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_databases.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_databases.f90	2012-01-09 21:55:07 UTC (rev 19344)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_databases.f90	2012-01-09 22:20:27 UTC (rev 19345)
@@ -127,12 +127,15 @@
     write(15,*) 'assign_external_model READ_EXTERNAL_SEP_FILE'
     write(15,*) assign_external_model,READ_EXTERNAL_SEP_FILE
 
-    write(15,*) 'output_grid output_energy output_wavefield_snapshot ATTENUATION_VISCOELASTIC_SOLID'
-    write(15,*) output_grid,output_energy,output_wavefield_snapshot,ATTENUATION_VISCOELASTIC_SOLID
+    write(15,*) 'output_grid output_energy output_wavefield_snapshot'
+    write(15,*) output_grid,output_energy,output_wavefield_snapshot
 
-    write(15,*) 'ATTENUATION_POROELASTIC_SOLID Q0 freq0'
-    write(15,*) ATTENUATION_POROELASTIC_SOLID,Q0,freq0
+    write(15,*) 'ATTENUATION_VISCOELASTIC_SOLID ATTENUATION_POROELASTIC_SOLID'
+    write(15,*) ATTENUATION_VISCOELASTIC_SOLID,ATTENUATION_POROELASTIC_SOLID
 
+    write(15,*) 'Q0 freq0'
+    write(15,*) Q0,freq0
+
     write(15,*) 'p_sv'
     write(15,*) p_sv
 

Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_databases.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_databases.f90	2012-01-09 21:55:07 UTC (rev 19344)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_databases.f90	2012-01-09 22:20:27 UTC (rev 19345)
@@ -194,12 +194,15 @@
   read(IIN,*) assign_external_model,READ_EXTERNAL_SEP_FILE
 
   read(IIN,"(a80)") datlin
-  read(IIN,*) output_grid,output_energy,output_wavefield_snapshot,ATTENUATION_VISCOELASTIC_SOLID
+  read(IIN,*) output_grid,output_energy,output_wavefield_snapshot
 
   read(IIN,"(a80)") datlin
-  read(IIN,*) ATTENUATION_POROELASTIC_SOLID,Q0,freq0
+  read(IIN,*) ATTENUATION_VISCOELASTIC_SOLID,ATTENUATION_POROELASTIC_SOLID
 
   read(IIN,"(a80)") datlin
+  read(IIN,*) Q0,freq0
+
+  read(IIN,"(a80)") datlin
   read(IIN,*) p_sv
 
   read(IIN,"(a80)") datlin