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

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:54:18 -0800 (Fri, 07 Dec 2007)
New Revision: 8534

Modified:
   seismo/2D/SPECFEM2D/trunk/TODO_list
   seismo/2D/SPECFEM2D/trunk/plotpost.F90
Log:
updated TODO list. color in vectxxxx.ps files for fluid/solid edges was not pink as it should be.

Modified: seismo/2D/SPECFEM2D/trunk/TODO_list
===================================================================
--- seismo/2D/SPECFEM2D/trunk/TODO_list	2007-06-26 00:55:05 UTC (rev 8533)
+++ seismo/2D/SPECFEM2D/trunk/TODO_list	2007-12-07 23:54:18 UTC (rev 8534)
@@ -1,6 +1,5 @@
-- looking for a better way to show mesh partitioning.
 - splitting file part_unstruct.F90 in several files for clarity purpose.
-- improving compiling with SCOTCH (issue with header file scotchf.h which is Fortran77 legal). Having our own scotchf.h file (without the comments) is ugly.
+- improving compiling with SCOTCH (issue with header file scotchf.h which is Fortran77 legal). Having our own scotchf.h file (without the comments) is not wise.
 - comparing the different partitioning methods for METIS and SCOTCH, and finding a good default for SCOTCH.
 - partitioning using weights for load-balancing.
 - choosing a way to use assign_external_model?

Modified: seismo/2D/SPECFEM2D/trunk/plotpost.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/plotpost.F90	2007-06-26 00:55:05 UTC (rev 8533)
+++ seismo/2D/SPECFEM2D/trunk/plotpost.F90	2007-12-07 23:54:18 UTC (rev 8534)
@@ -2275,6 +2275,7 @@
         buffer_offset = 0
         do ispec = 1, nspec_recv
            buffer_offset = buffer_offset + 1
+           write(24,*) '1 0.75 0.8 RG'
            write(24,602) coorg_recv(1,buffer_offset), coorg_recv(2,buffer_offset), &
                 coorg_recv(3,buffer_offset), coorg_recv(4,buffer_offset)
         end do