[cig-commits] [commit] devel: Modif maillage Vadim (978df47)

[cig_noreply at geodynamics.org]

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

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/633036a25401037a02ea21bfa5d50d09cb9f6f08...f1bbebf172ce63bdb6fa2a4bcb20c86887966c50

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

commit 978df471df455f8d94b7f30e61d4c169a4ccd67d
Author: Clément Durochat <c.durochat at gmail.com>
Date:   Tue Sep 9 10:54:27 2014 +0200

    Modif maillage Vadim


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

978df471df455f8d94b7f30e61d4c169a4ccd67d
 .../Part1_create_SPECFEM3D_Cartesian_mesh_for_DSM/mesh_chunk.f90        | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/utils/DSM_FOR_SPECFEM3D/Part1_create_SPECFEM3D_Cartesian_mesh_for_DSM/mesh_chunk.f90 b/utils/DSM_FOR_SPECFEM3D/Part1_create_SPECFEM3D_Cartesian_mesh_for_DSM/mesh_chunk.f90
index eb504f0..d7abdf6 100755
--- a/utils/DSM_FOR_SPECFEM3D/Part1_create_SPECFEM3D_Cartesian_mesh_for_DSM/mesh_chunk.f90
+++ b/utils/DSM_FOR_SPECFEM3D/Part1_create_SPECFEM3D_Cartesian_mesh_for_DSM/mesh_chunk.f90
@@ -513,7 +513,7 @@ program mesh_chunk
   ! -------------------------------- SAUVEGARDE DES MESH FILES --------------------------------------------------------------------------------
  
   open(27,file='nodes_coords_file')
-  write(27,*) nglob
+  write(27,*) nglob ! nb de sommets
   do kglob=1,nglob
      write(27,'(i14,3x,3(f20.5,1x))') kglob,xp(kglob),yp(kglob),zp(kglob) 
   end do