[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