[cig-commits] r13238 - seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-11-03 18:09:03 -0800 (Mon, 03 Nov 2008)
New Revision: 13238

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/specfem3D.F90
Log:
fixed a typo in a comment


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/specfem3D.F90	2008-11-04 01:50:45 UTC (rev 13237)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/specfem3D.F90	2008-11-04 02:09:03 UTC (rev 13238)
@@ -1728,7 +1728,7 @@
 
     it_begin = IT_LAST_VALUE_DUMPED + 1
 
-! if this is not the first part of the run, read all the files dumped to disk
+! if this is not the first part of the run, read all the files previously written to disk
     if(IT_LAST_VALUE_DUMPED > 0) then
       write(outputname,"('/dump_all_arrays',i6.6)") myrank
       open(unit=55,file=trim(PATH_RESTART_FILES)//outputname,status='old',form='unformatted',action='read')
@@ -2896,7 +2896,7 @@
 #endif
 
 ! write restart files
-! if this is not the first part of the run, write all the files to disk
+! if this is not the last part of the run, write all the files to disk
   if(USE_RESTART_FILES .and. mod(it,INTERVAL_DUMP_FILES) == 0 .and. it /= NSTEP) then
 
     write(outputname,"('/dump_all_arrays',i6.6)") myrank