[cig-commits] [commit] devel: Updated for coupling with DSM (7c85c3d)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/8a3f14d7d473f70feb7f073639045daa35c587bc...d759e09dd946c593868753fbb4253d77378fb276

>---------------------------------------------------------------

commit 7c85c3d5ef34d771ad9999099518f95df096192a
Author: Clément Durochat <c.durochat at gmail.com>
Date:   Thu Jun 19 17:01:18 2014 +0200

    Updated for coupling with DSM


>---------------------------------------------------------------

7c85c3d5ef34d771ad9999099518f95df096192a
 setup/constants.h.in            | 8 ++++----
 src/specfem3D/specfem3D_par.f90 | 3 ++-
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/setup/constants.h.in b/setup/constants.h.in
index b4828d6..e9b0924 100644
--- a/setup/constants.h.in
+++ b/setup/constants.h.in
@@ -164,6 +164,10 @@
   !! C. DUROCHAT modification : begin 
   logical, parameter :: COUPLE_WITH_DSM = .false. !!! .true.
 
+! some old tests (currently unstable; do not remove them though, we might fix this one day)
+  logical, parameter :: OLD_TEST_TO_FIX_ONE_DAY = .false.
+  integer, parameter :: IIN_veloc_dsm = 51, IIN_tract_dsm = 52, Ntime_step_dsm = 100
+
   !! C. DUROCHAT modification : end
 
 !!-----------------------------------------------------------
@@ -488,7 +492,3 @@
   integer, parameter :: IMODEL_IPATI            = 10
   integer, parameter :: IMODEL_IPATI_WATER      = 11
 
-! some old tests (currently unstable; do not remove them though, we might fix this one day)
-  logical, parameter :: OLD_TEST_TO_FIX_ONE_DAY = .false.
-  integer, parameter :: IIN_veloc_dsm = 51, IIN_tract_dsm = 52, Ntime_step_dsm = 100
-
diff --git a/src/specfem3D/specfem3D_par.f90 b/src/specfem3D/specfem3D_par.f90
index daf0b83..0f4e957 100644
--- a/src/specfem3D/specfem3D_par.f90
+++ b/src/specfem3D/specfem3D_par.f90
@@ -95,8 +95,9 @@ module specfem_par
 ! time loop step
   integer :: it
 
-! for new method
+  !! C. DUROCHAT modification : begin !! For coupling with DSM by VM
   integer :: it_dsm
+  !! C. DUROCHAT modification : end
 
 ! parameters for the source
   integer, dimension(:), allocatable :: islice_selected_source,ispec_selected_source