[cig-commits] r11940 - seismo/3D/SPECFEM3D_GLOBE/trunk

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-05-09 17:10:04 -0700 (Fri, 09 May 2008)
New Revision: 11940

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/create_header_file.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/save_header_file.f90
Log:
removed some old comments about the Japanese Earth Simulator


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_header_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_header_file.f90	2008-05-10 00:09:31 UTC (rev 11939)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_header_file.f90	2008-05-10 00:10:04 UTC (rev 11940)
@@ -215,8 +215,8 @@
   print *,'number of time steps = ',NSTEP
   print *
 
-  print *,'on NEC SX and Earth Simulator, make sure "loopcnt=" parameter'
-! use fused loops on the ES
+  print *,'on NEC SX, make sure "loopcnt=" parameter'
+! use fused loops on NEC SX
   print *,'in Makefile is greater than max vector length = ',nglob(IREGION_CRUST_MANTLE)*NDIM
   print *
 

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/save_header_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/save_header_file.f90	2008-05-10 00:09:31 UTC (rev 11939)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/save_header_file.f90	2008-05-10 00:10:04 UTC (rev 11940)
@@ -131,8 +131,8 @@
   write(IOUT,*) '!'
   write(IOUT,*) '! maximum number of points per region = ',nglob(IREGION_CRUST_MANTLE)
   write(IOUT,*) '!'
-! use fused loops on the ES
-  write(IOUT,*) '! on NEC SX and Earth Simulator, make sure "loopcnt=" parameter'
+! use fused loops on NEC SX
+  write(IOUT,*) '! on NEC SX, make sure "loopcnt=" parameter'
   write(IOUT,*) '! in Makefile is greater than max vector length = ',nglob(IREGION_CRUST_MANTLE)*NDIM
   write(IOUT,*) '!'