[cig-commits] r22302 - seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D

xie.zhinan at geodynamics.org xie.zhinan at geodynamics.org
Fri Jun 14 23:42:18 PDT 2013


Author: xie.zhinan
Date: 2013-06-14 23:42:17 -0700 (Fri, 14 Jun 2013)
New Revision: 22302

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/specfem3D.F90
Log:
remove one comment.


Modified: seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/specfem3D.F90	2013-06-15 01:22:59 UTC (rev 22301)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/specfem3D.F90	2013-06-15 06:42:17 UTC (rev 22302)
@@ -2416,7 +2416,6 @@
   call MPI_BARRIER(MPI_COMM_WORLD,ier)
   if( ier /= 0 ) call exit_mpi(myrank,'error synchronize closing snapshots')
 
-  !ZN we move this part of code inside the time loop above
   ! save files to local disk or tape system if restart file
   if(.not. UNDO_ATT) call save_forward_arrays(myrank,SIMULATION_TYPE,SAVE_FORWARD, &
                     NUMBER_OF_RUNS,NUMBER_OF_THIS_RUN, &



More information about the CIG-COMMITS mailing list