[cig-commits] r20317 - in seismo/3D/SPECFEM3D_GEOTECH/trunk: doc src

[homnath at geodynamics.org]

Author: homnath
Date: 2012-06-05 06:13:20 -0700 (Tue, 05 Jun 2012)
New Revision: 20317

Modified:
   seismo/3D/SPECFEM3D_GEOTECH/trunk/doc/manual_SPECFEM3D_GEOTECH.bib
   seismo/3D/SPECFEM3D_GEOTECH/trunk/doc/manual_SPECFEM3D_GEOTECH.pdf
   seismo/3D/SPECFEM3D_GEOTECH/trunk/doc/manual_SPECFEM3D_GEOTECH.tex
   seismo/3D/SPECFEM3D_GEOTECH/trunk/src/compute_pressure.f90
   seismo/3D/SPECFEM3D_GEOTECH/trunk/src/semgeotech.F90
Log:
minor fix in compute_pressure.f90

Modified: seismo/3D/SPECFEM3D_GEOTECH/trunk/doc/manual_SPECFEM3D_GEOTECH.bib
===================================================================
--- seismo/3D/SPECFEM3D_GEOTECH/trunk/doc/manual_SPECFEM3D_GEOTECH.bib	2012-06-05 12:48:29 UTC (rev 20316)
+++ seismo/3D/SPECFEM3D_GEOTECH/trunk/doc/manual_SPECFEM3D_GEOTECH.bib	2012-06-05 13:13:20 UTC (rev 20317)
@@ -136,7 +136,7 @@
 
 @ARTICLE{gharti2012a,
   author = {Gharti, H. N. and Oye, V. and Komatitsch, D. and Tromp, J.},
-  title = {Simulation of multistage excavation based on a 3D spectral-element
+  title = {Simulation of multistage excavation based on a {3D} spectral-element
 	method},
   journal = cs,
   year = {2012},

Modified: seismo/3D/SPECFEM3D_GEOTECH/trunk/doc/manual_SPECFEM3D_GEOTECH.pdf
===================================================================
(Binary files differ)

Modified: seismo/3D/SPECFEM3D_GEOTECH/trunk/doc/manual_SPECFEM3D_GEOTECH.tex
===================================================================
--- seismo/3D/SPECFEM3D_GEOTECH/trunk/doc/manual_SPECFEM3D_GEOTECH.tex	2012-06-05 12:48:29 UTC (rev 20316)
+++ seismo/3D/SPECFEM3D_GEOTECH/trunk/doc/manual_SPECFEM3D_GEOTECH.tex	2012-06-05 13:13:20 UTC (rev 20317)
@@ -42,7 +42,7 @@
 
 % Package name and version
 \def\pack{SPECFEM3D\_GEOTECH}
-\def\packver{\pack\ 1.1 Beta}
+\def\packver{\pack\ 1.2 Beta}
 
 \begin{document}
 %\thispagestyle{empty}\textbf{}%

Modified: seismo/3D/SPECFEM3D_GEOTECH/trunk/src/compute_pressure.f90
===================================================================
--- seismo/3D/SPECFEM3D_GEOTECH/trunk/src/compute_pressure.f90	2012-06-05 12:48:29 UTC (rev 20316)
+++ seismo/3D/SPECFEM3D_GEOTECH/trunk/src/compute_pressure.f90	2012-06-05 13:13:20 UTC (rev 20317)
@@ -151,7 +151,7 @@
 fname=trim(data_path)//trim(wsfile)
 open(unit=11,file=trim(fname),status='old',action='read',iostat=ios)
 if (ios /= 0)then
-  write(errtag,'(a)')'ERROR: input file "',trim(fname),'" cannot be opened!'
+  write(errtag,'(a)')'ERROR: input file "'//trim(fname)//'" cannot be opened!'
   return
 endif
 read(11,*)nwsurf

Modified: seismo/3D/SPECFEM3D_GEOTECH/trunk/src/semgeotech.F90
===================================================================
--- seismo/3D/SPECFEM3D_GEOTECH/trunk/src/semgeotech.F90	2012-06-05 12:48:29 UTC (rev 20316)
+++ seismo/3D/SPECFEM3D_GEOTECH/trunk/src/semgeotech.F90	2012-06-05 13:13:20 UTC (rev 20317)
@@ -65,7 +65,7 @@
   call close_process()
 elseif(trim(arg1)==('--version'))then
   if(myid==1)then
-    write(stdout,'(a)')'SPECFEM3D_GEOTECH 1.1 Beta'
+    write(stdout,'(a)')'SPECFEM3D_GEOTECH 1.2 Beta'
     write(stdout,'(a)')'This is free software; see the source for copying '
     write(stdout,'(a)')'conditions.  There is NO warranty; not even for '
     write(stdout,'(a)')'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.'