[cig-commits] [commit] devel: fixed a warning in src/specfem2D/read_databases.F90 and a file name that was not right in the default DATA/Par_file (af88b4b)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem2d

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

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

commit af88b4bb1828c99cb4910f5dc2d9cb8dfb87e5bf
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Thu Mar 20 02:35:24 2014 +0100

    fixed a warning in src/specfem2D/read_databases.F90 and a file name that was not right in the default DATA/Par_file


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

af88b4bb1828c99cb4910f5dc2d9cb8dfb87e5bf
 DATA/Par_file                    | 2 +-
 src/specfem2D/read_databases.F90 | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/DATA/Par_file b/DATA/Par_file
index 72c1e1e..6f14096 100644
--- a/DATA/Par_file
+++ b/DATA/Par_file
@@ -160,7 +160,7 @@ tangential_detection_curve_file = ./DATA/courbe_eros_nodes # file containing the
 # PARAMETERS FOR INTERNAL MESHING
 
 # file containing interfaces for internal mesh
-interfacesfile                  = ../EXAMPLES/M2_UPPA/interfaces_M2_UPPA_curved.dat
+interfacesfile                  = ../EXAMPLES/simple_topography_and_also_a_simple_fluid_layer/interfaces_simple_topo_curved.dat
 
 # geometry of the model (origin lower-left corner = 0,0) and mesh description
 xmin                            = 0.d0           # abscissa of left side of the model
diff --git a/src/specfem2D/read_databases.F90 b/src/specfem2D/read_databases.F90
index 6ff1761..708e042 100644
--- a/src/specfem2D/read_databases.F90
+++ b/src/specfem2D/read_databases.F90
@@ -1003,8 +1003,7 @@
                                                                                                                      !axisym
   do i = 1,nelem_on_the_axis                                                                                         !axisym
     read(IIN,*) ispec_of_axial_elements(i)                                                                           !axisym
-  enddo                                                                                                              !axisym                                                                                                            !axisym
+  enddo                                                                                                              !axisym
                                                                                                                      !axisym
   end subroutine read_databases_axial_elements                                                                       !axisym
 
-