[cig-commits] r19776 - in seismo/3D/SPECFEM3D_GLOBE/trunk: doc/USER_MANUAL src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-03-14 08:54:59 -0700 (Wed, 14 Mar 2012)
New Revision: 19776

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/doc/USER_MANUAL/bibliography.bib
   seismo/3D/SPECFEM3D_GLOBE/trunk/doc/USER_MANUAL/manual_SPECFEM3D_GLOBE.pdf
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases.f90
Log:
fixed the write(IMAIN,'(i5)') problem detected by Craig P Steffen in the case of very large runs


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/doc/USER_MANUAL/bibliography.bib
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/doc/USER_MANUAL/bibliography.bib	2012-03-14 01:47:03 UTC (rev 19775)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/doc/USER_MANUAL/bibliography.bib	2012-03-14 15:54:59 UTC (rev 19776)
@@ -241,6 +241,21 @@
   address = {San Francisco, USA}
 }
 
+ at ARTICLE{AkBiBiEpFeGhKiLoOhTuUr03,
+  author = {Volkan Ak{\c c}elik and Jacobo Bielak and George Biros and Ioannis
+	Epanomeritakis and Antonio Fernandez and Omar Ghattas and Eui Joong
+	Kim and Julio Lopez and David O'Hallaron and Tiankai Tu and John
+	Urbanic},
+  title = {High-resolution forward and inverse earthquake modeling on terascale
+	computers},
+  journal = {Proceedings of the ACM/IEEE Supercomputing SC'2003 conference},
+  year = {2003},
+  pages = {52-72},
+  address = {Phoenix, Arizona, USA}
+  note = {{G}ordon {B}ell {P}rize winner article},
+  doi = {10.1145/1048935.1050202}
+}
+
 @ARTICLE{AlWo08,
   author = {David Al-Attar and John H. Woodhouse},
   title = {Calculation of seismic displacement fields in self-gravitating earth
@@ -1973,6 +1988,15 @@
   number = {2}
 }
 
+ at ARTICLE{But30,
+  author = {S. Butterworth},
+  title = {On the Theory of Filter Amplifiers},
+  journal = {Experimental Wireless and the Wireless Engineer},
+  year = {1930},
+  volume = {7},
+  pages = {536-541}
+}
+
 @BOOK{Cag39,
   title = {R\'eflexion et R\'efraction des Ondes Sismiques Progressives},
   publisher = {Gauthiers-Villars},
@@ -4474,6 +4498,13 @@
   doi = {10.1111/j.1365-246X.2005.02601.x}
 }
 
+ at BOOK{Fic10,
+  title = {{Full Seismic Waveform Modelling and Inversion}},
+  publisher = {Springer Verlag},
+  year = {2010},
+  author = {Andreas Fichtner}
+}
+
 @ARTICLE{FiIgBuKe09,
   author = {Andreas Fichtner and Heiner Igel and Hans-Peter Bunge and Brian L.
 	N. Kennett},

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/doc/USER_MANUAL/manual_SPECFEM3D_GLOBE.pdf
===================================================================
(Binary files differ)

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases.f90	2012-03-14 01:47:03 UTC (rev 19775)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases.f90	2012-03-14 15:54:59 UTC (rev 19776)
@@ -385,7 +385,7 @@
       write(IMAIN,'(20x)',advance='no')
       do iproc_eta = NPROC_ETA_VAL -1, 0, -1
         ichunk = CHUNK_AB
-        write(IMAIN,'(i5)',advance='no') addressing(ichunk,iproc_xi,iproc_eta)
+        write(IMAIN,'(i10)',advance='no') addressing(ichunk,iproc_xi,iproc_eta)
       enddo
       write(IMAIN,'(1x)',advance='yes')
     enddo
@@ -394,17 +394,17 @@
       write(IMAIN,'(1x)',advance='no')
       do iproc_eta = NPROC_ETA_VAL -1, 0, -1
         ichunk = CHUNK_BC
-        write(IMAIN,'(i5)',advance='no') addressing(ichunk,iproc_xi,iproc_eta)
+        write(IMAIN,'(i10)',advance='no') addressing(ichunk,iproc_xi,iproc_eta)
       enddo
       write(IMAIN,'(3x)',advance='no')
       do iproc_eta = NPROC_ETA_VAL -1, 0, -1
         ichunk = CHUNK_AC
-        write(IMAIN,'(i5)',advance='no') addressing(ichunk,iproc_xi,iproc_eta)
+        write(IMAIN,'(i10)',advance='no') addressing(ichunk,iproc_xi,iproc_eta)
       enddo
       write(IMAIN,'(3x)',advance='no')
       do iproc_eta = NPROC_ETA_VAL -1, 0, -1
         ichunk = CHUNK_BC_ANTIPODE
-        write(IMAIN,'(i5)',advance='no') addressing(ichunk,iproc_xi,iproc_eta)
+        write(IMAIN,'(i10)',advance='no') addressing(ichunk,iproc_xi,iproc_eta)
       enddo
       write(IMAIN,'(1x)',advance='yes')
     enddo
@@ -413,7 +413,7 @@
       write(IMAIN,'(20x)',advance='no')
       do iproc_eta = NPROC_ETA_VAL -1, 0, -1
         ichunk = CHUNK_AB_ANTIPODE
-        write(IMAIN,'(i5)',advance='no') addressing(ichunk,iproc_xi,iproc_eta)
+        write(IMAIN,'(i10)',advance='no') addressing(ichunk,iproc_xi,iproc_eta)
       enddo
       write(IMAIN,'(1x)',advance='yes')
     enddo
@@ -422,7 +422,7 @@
       write(IMAIN,'(20x)',advance='no')
       do iproc_eta = NPROC_ETA_VAL -1, 0, -1
         ichunk = CHUNK_AC_ANTIPODE
-        write(IMAIN,'(i5)',advance='no') addressing(ichunk,iproc_xi,iproc_eta)
+        write(IMAIN,'(i10)',advance='no') addressing(ichunk,iproc_xi,iproc_eta)
       enddo
       write(IMAIN,'(1x)',advance='yes')
     enddo