[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
cig_noreply at geodynamics.org
Tue Mar 18 06:53:05 PDT 2014
Repository : ssh://geoshell/specfem2d
On branch : devel
Link : https://github.com/geodynamics/specfem2d/compare/9e800f8c2ea920d3c442a33d2b9ae8b692e35c03...3d0000c46c8db00194044bf65a08f2372f35fd24
>---------------------------------------------------------------
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
More information about the CIG-COMMITS
mailing list