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

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 16:00:57 -0800 (Fri, 07 Dec 2007)
New Revision: 8610

Modified:
   seismo/2D/SPECFEM2D/trunk/write_seismograms.F90
Log:
fixed a bug (deallocate of a temporary array in write_seismograms).

Modified: seismo/2D/SPECFEM2D/trunk/write_seismograms.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/write_seismograms.F90	2007-12-04 10:15:04 UTC (rev 8609)
+++ seismo/2D/SPECFEM2D/trunk/write_seismograms.F90	2007-12-08 00:00:57 UTC (rev 8610)
@@ -279,8 +279,8 @@
 
 !----
 
+  deallocate(buffer_binary)
 
-
 !----
    if ( myrank == 0 ) then