[cig-commits] r8421 - in seismo/2D/SPECFEM2D/trunk: MAILLE90 SPECFEM90

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:44:55 -0800 (Fri, 07 Dec 2007)
New Revision: 8421

Added:
   seismo/2D/SPECFEM2D/trunk/MAILLE90/topo_rouen_aniso.dat
Modified:
   seismo/2D/SPECFEM2D/trunk/SPECFEM90/constants.h
   seismo/2D/SPECFEM2D/trunk/SPECFEM90/plotgll.f90
Log:
cleaned constants.h and two f90 files, also added topo_rouen_aniso.dat


Added: seismo/2D/SPECFEM2D/trunk/MAILLE90/topo_rouen_aniso.dat
===================================================================
--- seismo/2D/SPECFEM2D/trunk/MAILLE90/topo_rouen_aniso.dat	2004-05-21 00:41:27 UTC (rev 8420)
+++ seismo/2D/SPECFEM2D/trunk/MAILLE90/topo_rouen_aniso.dat	2007-12-07 23:44:55 UTC (rev 8421)
@@ -0,0 +1,3 @@
+2
+0 0.06d0
+1 0.06d0

Modified: seismo/2D/SPECFEM2D/trunk/SPECFEM90/constants.h
===================================================================
--- seismo/2D/SPECFEM2D/trunk/SPECFEM90/constants.h	2004-05-21 00:41:27 UTC (rev 8420)
+++ seismo/2D/SPECFEM2D/trunk/SPECFEM90/constants.h	2007-12-07 23:44:55 UTC (rev 8421)
@@ -75,14 +75,14 @@
 
 !-----------------------------------------------------------------------
 
-!! DK DK
-!! DK DK anisotropic copper crystal (cubic symmetry)
-!! DK DK
+!
+! anisotropic copper crystal (cubic symmetry)
+!
 
 ! switch anisotropy on or off
   logical, parameter :: TURN_ANISOTROPY_ON = .false.
 
-!! DK DK regular c_ijkl with no rotation
+! regular c_ijkl with no rotation
   double precision, parameter :: c11val = 169.d9
   double precision, parameter :: c12val = 122.d9
   double precision, parameter :: c13val = c12val

Modified: seismo/2D/SPECFEM2D/trunk/SPECFEM90/plotgll.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/SPECFEM90/plotgll.f90	2004-05-21 00:41:27 UTC (rev 8420)
+++ seismo/2D/SPECFEM2D/trunk/SPECFEM90/plotgll.f90	2007-12-07 23:44:55 UTC (rev 8421)
@@ -203,21 +203,23 @@
 !
   open(unit=20,file='plotall_gll_mesh.gnu',status='unknown')
   write(20,*) 'set term x11'
+  write(20,*) '# set term postscript landscape color solid "Helvetica" 22'
+  write(20,*) '# set output "gll_mesh.ps"'
   write(20,*) 'set xlabel "X"'
   write(20,*) 'set ylabel "Y"'
   write(20,*) 'set title "Gauss-Lobatto-Legendre Mesh"'
-  write(20,*) 'plot "gllmesh1.gnu" title '''' w l 2,', &
-            ' "gllmesh2.gnu" title '''' w linesp 1 3'
+  write(20,*) 'plot "gllmesh1.gnu" title '''' w l 2, "gllmesh2.gnu" title '''' w linesp 1 3'
   write(20,*) 'pause -1 "Hit any key to exit..."'
   close(20)
 
-  open(unit=20,file='plotall_macros_mesh.gnu',status='unknown')
+  open(unit=20,file='plotall_macro_mesh.gnu',status='unknown')
   write(20,*) 'set term x11'
+  write(20,*) '# set term postscript landscape color solid "Helvetica" 22'
+  write(20,*) '# set output "macro_mesh.ps"'
   write(20,*) 'set xlabel "X"'
   write(20,*) 'set ylabel "Y"'
   write(20,*) 'set title "Spectral Element (Macrobloc) Mesh"'
-  write(20,*) 'plot "macros2.gnu" title '''' w l 2,', &
-            ' "macros1.gnu" title '''' w linesp 1 3'
+  write(20,*) 'plot "macros2.gnu" title '''' w l 2, "macros1.gnu" title '''' w linesp 1 3'
   write(20,*) 'pause -1 "Hit any key to exit..."'
   close(20)