[cig-commits] [commit] devel: Last updates (6608495)

[cig_noreply at geodynamics.org]

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

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

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

commit 66084950fa4613b0b2d9ce4e60de02624436dbc8
Author: Clément Durochat <c.durochat at gmail.com>
Date:   Thu Jul 3 16:21:53 2014 +0200

    Last updates


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

66084950fa4613b0b2d9ce4e60de02624436dbc8
 setup/constants.h.in                               |  2 +-
 src/specfem3D/compute_add_sources_viscoelastic.f90 | 12 ++++++------
 src/specfem3D/compute_stacey_viscoelastic.f90      |  6 +++---
 3 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/setup/constants.h.in b/setup/constants.h.in
index 001d1a0..3640209 100644
--- a/setup/constants.h.in
+++ b/setup/constants.h.in
@@ -157,7 +157,7 @@
 
 !!-----------------------------------------------------------
 !!
-!! For coupling with DSM by VM
+!! For coupling with DSM
 !!
 !!-----------------------------------------------------------
 
diff --git a/src/specfem3D/compute_add_sources_viscoelastic.f90 b/src/specfem3D/compute_add_sources_viscoelastic.f90
index 67de68f..b230a1a 100644
--- a/src/specfem3D/compute_add_sources_viscoelastic.f90
+++ b/src/specfem3D/compute_add_sources_viscoelastic.f90
@@ -103,9 +103,9 @@
   !equivalence (i2head,i4head,r4head)    ! share the same 240-byte-memory
   double precision :: hxir(NGLLX),hpxir(NGLLX),hetar(NGLLY),hpetar(NGLLY),hgammar(NGLLZ),hpgammar(NGLLZ)
 
-  !! CD modif (implemented by VM) : !! For coupling with DSM
+  !! CD modif. : begin (implemented by VM) !! For coupling with DSM
   if (COUPLE_WITH_DSM) return
-  !! CD modif : end
+  !! CD modif. : end
 
 ! plotting source time function
   if(PRINT_SOURCE_TIME_FUNCTION .and. .not. phase_is_inner ) then
@@ -447,9 +447,9 @@
   real(kind=CUSTOM_REAL) stf_used,stf_used_total_all,time_source
   integer :: isource,iglob,i,j,k,ispec
 
-  !! CD modif (implemented by VM) : !! For coupling with DSM
+  !! CD modif. : begin (implemented by VM) !! For coupling with DSM
   if (COUPLE_WITH_DSM) return
-  !! CD modif : end
+  !! CD modif. : end
 
 ! plotting source time function
   if(PRINT_SOURCE_TIME_FUNCTION .and. .not. phase_is_inner ) then
@@ -668,9 +668,9 @@
   !equivalence (i2head,i4head,r4head)    ! share the same 240-byte-memory
   double precision :: hxir(NGLLX),hpxir(NGLLX),hetar(NGLLY),hpetar(NGLLY),hgammar(NGLLZ),hpgammar(NGLLZ)
 
-  !! CD modif (implemented by VM) : !! For coupling with DSM
+  !! CD modif. : begin (implemented by VM) !! For coupling with DSM
   if (COUPLE_WITH_DSM) return
-  !! CD modif : end
+  !! CD modif. : end
 
 ! plotting source time function
   if(PRINT_SOURCE_TIME_FUNCTION .and. .not. phase_is_inner ) then
diff --git a/src/specfem3D/compute_stacey_viscoelastic.f90 b/src/specfem3D/compute_stacey_viscoelastic.f90
index 88ad4b0..3298a8b 100644
--- a/src/specfem3D/compute_stacey_viscoelastic.f90
+++ b/src/specfem3D/compute_stacey_viscoelastic.f90
@@ -79,7 +79,7 @@
   real(kind=CUSTOM_REAL) vx,vy,vz,nx,ny,nz,tx,ty,tz,vn,jacobianw
   integer :: ispec,iglob,i,j,k,iface,igll
 
-  !! CD modif (implemented by VM) : begin !! For coupling with DSM
+  !! CD modif. : begin (implemented by VM) !! For coupling with DSM
    
   ! See also DSM parameters in setup/constants.h.in
   real(kind=CUSTOM_REAL) :: Veloc_dsm_boundary(3,Ntime_step_dsm,NGLLSQUARE,num_abs_boundary_faces)
@@ -95,7 +95,7 @@
     endif
   endif
 
-  !! CD modif : end
+  !! CD modif. : end
 
   ! checks if anything to do
   if( num_abs_boundary_faces == 0 ) return
@@ -348,7 +348,7 @@
   ! GPU_MODE variables
   integer(kind=8) :: Mesh_pointer
 
-  !! CD modif (implemented by VM) : begin !! For coupling with DSM
+  !! CD modif. : begin (implemented by VM) !! For coupling with DSM
   real(kind=CUSTOM_REAL) :: Veloc_dsm_boundary(3,Ntime_step_dsm,NGLLSQUARE,num_abs_boundary_faces)
   real(kind=CUSTOM_REAL) :: Tract_dsm_boundary(3,Ntime_step_dsm,NGLLSQUARE,num_abs_boundary_faces)