[cig-commits] r17883 - in seismo/3D/SPECFEM3D/trunk/src: meshfem3D specfem3D
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Wed Feb 16 07:47:10 PST 2011
Author: dkomati1
Date: 2011-02-16 07:47:09 -0800 (Wed, 16 Feb 2011)
New Revision: 17883
Modified:
seismo/3D/SPECFEM3D/trunk/src/meshfem3D/meshfem3D.f90
seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D.f90
Log:
added the CM-5 to history
Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/meshfem3D.f90 2011-02-16 15:45:32 UTC (rev 17882)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/meshfem3D.f90 2011-02-16 15:47:09 UTC (rev 17883)
@@ -180,6 +180,9 @@
! of Vs with depth, Hauksson's regional model, attenuation, oceans, movies
!
! MPI v. 1.0 Dimitri Komatitsch, Caltech, May 2002: first MPI version based on global code
+!
+! Dimitri Komatitsch, IPG Paris, December 1996: first 3-D solver for the CM-5 Connection Machine
+!
! number of spectral elements in each block
integer nspec,npointot
Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D.f90 2011-02-16 15:45:32 UTC (rev 17882)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/specfem3D.f90 2011-02-16 15:47:09 UTC (rev 17883)
@@ -266,6 +266,9 @@
! of Vs with depth, Hauksson's regional model, attenuation, oceans, movies
!
! MPI v. 1.0 Dimitri Komatitsch, Caltech, May 2002: first MPI version based on global code
+!
+! Dimitri Komatitsch, IPG Paris, December 1996: first 3-D solver for the CM-5 Connection Machine
+!
! ************** PROGRAM STARTS HERE **************
@@ -304,6 +307,5 @@
! saves last time frame and finishes kernel calculations
call finalize_simulation()
-
end subroutine specfem3D
More information about the CIG-COMMITS
mailing list