[cig-commits] r20454 - seismo/2D/SPECFEM2D/trunk/src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-07-04 09:13:33 -0700 (Wed, 04 Jul 2012)
New Revision: 20454

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_shape_functions.f90
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_databases.f90
Log:
fixed two comments about parametric elements


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_shape_functions.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_shape_functions.f90	2012-07-03 13:24:19 UTC (rev 20453)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_shape_functions.f90	2012-07-04 16:13:33 UTC (rev 20454)
@@ -46,7 +46,10 @@
 
 !=======================================================================
 !
-!  Set up the shape functions for the subparametric transformation.
+!  Set up the shape functions for the superparametric transformation
+! (i.e. the geometry is defined with lower-order functions than the unknowns
+!  of the problem; see for instance Chapter 19 of the finite-element course of
+!  Carlos Felippa in Colorado for a discussion about this).
 !  The routine can handle 4 or 9 control nodes defined as follows:
 !
 !                               4 . . . . 7 . . . . 3

Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_databases.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_databases.f90	2012-07-03 13:24:19 UTC (rev 20453)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_databases.f90	2012-07-04 16:13:33 UTC (rev 20454)
@@ -504,7 +504,7 @@
   endif
 
   ! output formats
-107 format(/5x,'--> Isoparametric Spectral Elements <--',//)
+107 format(/5x,'--> Spectral Elements <--',//)
 
 207 format(5x,'Number of spectral elements . . . . .  (nspec) =',i7,/5x, &
                'Number of control nodes per element .  (ngnod) =',i7,/5x, &