[cig-commits] r20317 - in seismo/3D/SPECFEM3D_GEOTECH/trunk: doc src
homnath at geodynamics.org
homnath at geodynamics.org
Tue Jun 5 06:13:21 PDT 2012
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.'
More information about the CIG-COMMITS
mailing list