[cig-commits] r22247 - in seismo/3D/SPECFEM3D_GLOBE/branches/undo_att: . src/specfem3D
xie.zhinan at geodynamics.org
xie.zhinan at geodynamics.org
Thu Jun 13 04:46:22 PDT 2013
Author: xie.zhinan
Date: 2013-06-13 04:46:22 -0700 (Thu, 13 Jun 2013)
New Revision: 22247
Modified:
seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/part1_undo_att.F90
seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/specfem3D.F90
Log:
fix the error of time value
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/part1_undo_att.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/part1_undo_att.F90 2013-06-13 08:26:42 UTC (rev 22246)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/part1_undo_att.F90 2013-06-13 11:46:22 UTC (rev 22247)
@@ -1665,7 +1665,7 @@
NSTEP,NTSTEP_BETWEEN_OUTPUT_SEISMOS,t0,LOCAL_PATH)
nit_written = it
endif
- seismo_offset = seismo_offset + seismo_current
+!ZN seismo_offset = seismo_offset + seismo_current
seismo_current = 0
endif
else
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-13 08:26:42 UTC (rev 22246)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/specfem3D.F90 2013-06-13 11:46:22 UTC (rev 22247)
@@ -2300,9 +2300,9 @@
seismo_current = seismo_current + 1
include "part2_undo_att.F90"
- displ_crust_mantle_store_as_bwf(:,:,it_of_this_subset) = displ_crust_mantle(:,:)
- displ_outer_core_store_store_as_bwf(:,it_of_this_subset) = displ_outer_core(:)
- displ_inner_core_store_as_bwf(:,:,it_of_this_subset) = displ_inner_core(:,:)
+ displ_crust_mantle_store_as_bwf(:,:,it_of_this_subset) = b_displ_crust_mantle(:,:)
+ displ_outer_core_store_store_as_bwf(:,it_of_this_subset) = b_displ_outer_core(:)
+ displ_inner_core_store_as_bwf(:,:,it_of_this_subset) = b_displ_inner_core(:,:)
enddo
More information about the CIG-COMMITS
mailing list