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

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:59:29 -0800 (Fri, 07 Dec 2007)
New Revision: 8595

Modified:
   seismo/2D/SPECFEM2D/trunk/assemble_MPI.F90
   seismo/2D/SPECFEM2D/trunk/construct_acoustic_surface.f90
   seismo/2D/SPECFEM2D/trunk/part_unstruct.F90
Log:
slightly modified some comments


Modified: seismo/2D/SPECFEM2D/trunk/assemble_MPI.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/assemble_MPI.F90	2007-11-05 14:17:26 UTC (rev 8594)
+++ seismo/2D/SPECFEM2D/trunk/assemble_MPI.F90	2007-12-07 23:59:29 UTC (rev 8595)
@@ -11,15 +11,12 @@
 !
 !========================================================================
 
-!====================================================================================
 !
 ! This file contains subroutines related to assembling (of the mass matrix, potential_dot_dot and 
 ! accel_elastic).
-! Those subroutines are for the most part not used in the sequential version.
+! These subroutines are for the most part not used in the sequential version.
 !
-!====================================================================================
 
-
 !-----------------------------------------------
 ! Determines the points that are on the interfaces with other partitions, to help 
 ! build the communication buffers, and determines which elements are considered 'inner'

Modified: seismo/2D/SPECFEM2D/trunk/construct_acoustic_surface.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/construct_acoustic_surface.f90	2007-11-05 14:17:26 UTC (rev 8594)
+++ seismo/2D/SPECFEM2D/trunk/construct_acoustic_surface.f90	2007-12-07 23:59:29 UTC (rev 8595)
@@ -11,14 +11,13 @@
 !
 !========================================================================
 
- 
-!-----------------------------------------------
+!
 ! From array 'surface' (element, type : node/edge, node(s) ) that describes the 
 ! acoustic free surface, determines the points (ixmin, ixmax, izmin and izmax) on the surface 
 ! for each element.
 ! We chose to have ixmin <= ixmax and izmin <= izmax, so as to be able to have DO loops on it with 
 ! an increment of +1.
-!-----------------------------------------------
+!
 subroutine construct_acoustic_surface ( nspec, ngnod, knods, nsurface, surface, tab_surface )
 
   implicit none
@@ -37,7 +36,6 @@
   integer  :: e1, e2
   integer  :: type
 
-
   do i = 1, nsurface
      tab_surface(1,i) = surface(1,i)
      type = surface(2,i)

Modified: seismo/2D/SPECFEM2D/trunk/part_unstruct.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/part_unstruct.F90	2007-11-05 14:17:26 UTC (rev 8594)
+++ seismo/2D/SPECFEM2D/trunk/part_unstruct.F90	2007-12-07 23:59:29 UTC (rev 8595)
@@ -11,12 +11,10 @@
 !
 !========================================================================
 
-!====================================================================================
 !
 ! This module contains subroutines related to unstructured meshes and partitioning of the 
 ! corresponding graphs.
 !
-!====================================================================================
 
 module part_unstruct