[cig-commits] r18089 - in seismo/2D/SPECFEM2D/trunk: EXAMPLES/Tape2007 src/specfem2D

[carltape at geodynamics.org]

Author: carltape
Date: 2011-03-09 17:55:11 -0800 (Wed, 09 Mar 2011)
New Revision: 18089

Modified:
   seismo/2D/SPECFEM2D/trunk/EXAMPLES/Tape2007/wavefield_Tape2007_onerec.pdf
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
added "sngl" within output_wavefield_snapshopt format statement to fix bug


Modified: seismo/2D/SPECFEM2D/trunk/EXAMPLES/Tape2007/wavefield_Tape2007_onerec.pdf
===================================================================
(Binary files differ)

Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2011-03-10 01:30:05 UTC (rev 18088)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2011-03-10 01:55:11 UTC (rev 18089)
@@ -6678,9 +6678,9 @@
         do i = 1,NGLLX
            iglob = ibool(i,j,ispec)
            write(27,'(5e16.6)') coord(1,iglob), coord(2,iglob), &
-             vector_field_display(1,iglob), &
-             vector_field_display(2,iglob), &
-             vector_field_display(3,iglob)
+             sngl(vector_field_display(1,iglob)), &
+             sngl(vector_field_display(2,iglob)), &
+             sngl(vector_field_display(3,iglob))
         enddo
      enddo
   enddo