[cig-commits] [commit] devel: updated some comments in src/specfem2D/specfem2D.F90, and switched to the right version of the EXAMPLES (ed3167e)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem2d

On branch  : devel
Link       : https://github.com/geodynamics/specfem2d/compare/e4fa9d03bf2b0fc1837c42aa51eeb63f360575fe...fc67e6fd7ad890705b2b72b4b3c509accb22249e

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

commit ed3167e976d7eb2a7f228908e4d82f5fce8ec56d
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Tue Mar 18 14:51:49 2014 +0100

    updated some comments in src/specfem2D/specfem2D.F90, and switched to the right version of the EXAMPLES


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

ed3167e976d7eb2a7f228908e4d82f5fce8ec56d
 EXAMPLES                    |  2 +-
 src/specfem2D/specfem2D.F90 | 12 ++++++------
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/EXAMPLES b/EXAMPLES
index 3f66877..d3a8b0f 160000
--- a/EXAMPLES
+++ b/EXAMPLES
@@ -1 +1 @@
-Subproject commit 3f668770e35719b31929f1d6e23f4fdc0e81d13b
+Subproject commit d3a8b0fc108dfd6434cf2e7ee1148c01c5eee1f7
diff --git a/src/specfem2D/specfem2D.F90 b/src/specfem2D/specfem2D.F90
index 88923bf..7f9de4a 100644
--- a/src/specfem2D/specfem2D.F90
+++ b/src/specfem2D/specfem2D.F90
@@ -442,7 +442,7 @@
   logical :: anyabs
   double precision :: dxd,dyd,dzd,dcurld,valux,valuy,valuz,valcurl,hlagrange,xi,gamma,x,z
 
-!! DK DK Dec 2011: add a small crack (discontinuity) in the medium manually
+! add a small crack (discontinuity) in the medium manually
   logical, parameter :: ADD_A_SMALL_CRACK_IN_THE_MEDIUM = .false.
 !! must be set equal to the number of spectral elements on one vertical side of the crack
   integer :: NB_POINTS_TO_ADD_TO_NPGEO = 3
@@ -995,7 +995,7 @@
   integer :: count_nspec_acoustic,count_nspec_acoustic_total,nspec_total,nglob_total,nb_acoustic_DOFs,nb_elastic_DOFs
   double precision :: ratio_1DOF,ratio_2DOFs
 
-!PML parameters
+! PML parameters
   logical, dimension(:), allocatable :: is_PML
   integer, dimension(:), allocatable :: region_CPML
   double precision, dimension(:,:,:), allocatable :: &
@@ -1079,7 +1079,7 @@
                                   stop 'RK and LDDRK time scheme not supported for adjoint inversion'
   if(nproc /= nproc_read_from_database) stop 'must always have nproc == nproc_read_from_database'
 
-!! DK DK Dec 2011: add a small crack (discontinuity) in the medium manually
+! add a small crack (discontinuity) in the medium manually
   npgeo_ori = npgeo
   if(ADD_A_SMALL_CRACK_IN_THE_MEDIUM) npgeo = npgeo + NB_POINTS_TO_ADD_TO_NPGEO
 
@@ -1141,7 +1141,7 @@
   ! reads the spectral macrobloc nodal coordinates
   ! and basic properties of the spectral elements
   !! DK DK  call read_databases_coorg_elem(myrank,npgeo,coorg,numat,ngnod,nspec, &
-  !! DK DK Dec 2011: added a crack manually
+  !! DK DK  added a crack manually
   call read_databases_coorg_elem(myrank,npgeo_ori,coorg,numat,ngnod,nspec, &
                               pointsdisp,plot_lowerleft_corner_only, &
                               nelemabs,nelem_acoustic_surface, &
@@ -1195,11 +1195,11 @@
   !----  read spectral macrobloc data
   !
 
-!   DK DK add support for using pml in mpi mode with external mesh
+! add support for using PML in MPI mode with external mesh
   allocate(region_CPML(nspec))
   call read_databases_mato(nspec,ngnod,kmato,knods,region_CPML)
 
-!! DK DK Dec 2011: add a small crack (discontinuity) in the medium manually
+! add a small crack (discontinuity) in the medium manually
   if(ADD_A_SMALL_CRACK_IN_THE_MEDIUM) then
 
 #ifdef USE_MPI