[cig-commits] [commit] devel: Correct old bug on free_surface for HEX8 and HEX27 chunk Mesher (3813eeb)

[cig_noreply at geodynamics.org]

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

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/b1606e007063881bbc3b15c76c05f5da2d89684b...3813eeb2bf815bda9c5dd0395d9033bfb4d1383c

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

commit 3813eeb2bf815bda9c5dd0395d9033bfb4d1383c
Author: Clément Durochat <c.durochat at gmail.com>
Date:   Mon Nov 24 18:24:10 2014 +0100

    Correct old bug on free_surface for HEX8 and HEX27 chunk Mesher


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

3813eeb2bf815bda9c5dd0395d9033bfb4d1383c
 src/meshfem3D/earth_chunk_HEX27_Mesher.f90 | 2 +-
 src/meshfem3D/earth_chunk_HEX8_Mesher.f90  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/meshfem3D/earth_chunk_HEX27_Mesher.f90 b/src/meshfem3D/earth_chunk_HEX27_Mesher.f90
index 7be49d4..f7e2160 100644
--- a/src/meshfem3D/earth_chunk_HEX27_Mesher.f90
+++ b/src/meshfem3D/earth_chunk_HEX27_Mesher.f90
@@ -795,7 +795,7 @@
   open(27,file=trim(MESH)//'free_surface')
   write(27,*) ispec2Dzmax
   do ispec=1,nspec
-     if (iboun(1,ispec)) write(27,'(10(i10,1x))') ispec, &
+     if (iboun(6,ispec)) write(27,'(10(i10,1x))') ispec, &
                                                   inum_loc(1,1,3,ispec), inum_loc(3,1,3,ispec), &
                                                   inum_loc(3,3,3,ispec), inum_loc(1,3,3,ispec), &
                                                   inum_loc(2,1,3,ispec), inum_loc(3,2,3,ispec), &
diff --git a/src/meshfem3D/earth_chunk_HEX8_Mesher.f90 b/src/meshfem3D/earth_chunk_HEX8_Mesher.f90
index b96edf2..3a53944 100644
--- a/src/meshfem3D/earth_chunk_HEX8_Mesher.f90
+++ b/src/meshfem3D/earth_chunk_HEX8_Mesher.f90
@@ -695,7 +695,7 @@
   open(27,file=trim(MESH)//'free_surface')
   write(27,*) ispec2Dzmax
   do ispec=1,nspec
-     if (iboun(1,ispec)) write(27,'(5(i10,1x))') ispec,inum_loc(1,1,2,ispec),inum_loc(1,2,2,ispec),&
+     if (iboun(6,ispec)) write(27,'(5(i10,1x))') ispec,inum_loc(1,1,2,ispec),inum_loc(1,2,2,ispec),&
           inum_loc(2,2,2,ispec),inum_loc(2,1,2,ispec)
   enddo
   close(27)