[cig-commits] [commit] devel: Correct bug in save arrays solver ofr coupling with DSM (2578ab3)

[cig_noreply at geodynamics.org]

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

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/a5d1c3e764d2ff278509c9003e6ef0234e2e7cfe...57a4b7e1b5f763b55273969c2fb226cd3c8e5fcb

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

commit 2578ab35d1af74e7454ef1b7305f059beb667698
Author: Clément Durochat <c.durochat at gmail.com>
Date:   Fri Jan 16 17:34:56 2015 +0100

    Correct bug in save arrays solver ofr coupling with DSM


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

2578ab35d1af74e7454ef1b7305f059beb667698
 EXAMPLES/DSM_FOR_SPECFEM3D/example_simple_small/DATA/Par_file | 2 +-
 src/generate_databases/save_arrays_solver.f90                 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/EXAMPLES/DSM_FOR_SPECFEM3D/example_simple_small/DATA/Par_file b/EXAMPLES/DSM_FOR_SPECFEM3D/example_simple_small/DATA/Par_file
index 789190e..65876b0 100644
--- a/EXAMPLES/DSM_FOR_SPECFEM3D/example_simple_small/DATA/Par_file
+++ b/EXAMPLES/DSM_FOR_SPECFEM3D/example_simple_small/DATA/Par_file
@@ -87,7 +87,7 @@ NTSTEP_BETWEEN_FRAMES           = 80
 HDUR_MOVIE                      = 0.0
 
 # save AVS or OpenDX mesh files to check the mesh
-SAVE_MESH_FILES                 = .false.
+SAVE_MESH_FILES                 = .true.
 
 # path to store the local database file on each node
 LOCAL_PATH                      = ./OUTPUT_FILES/DATABASES_MPI
diff --git a/src/generate_databases/save_arrays_solver.f90 b/src/generate_databases/save_arrays_solver.f90
index 6fc2d71..7632203 100644
--- a/src/generate_databases/save_arrays_solver.f90
+++ b/src/generate_databases/save_arrays_solver.f90
@@ -317,7 +317,7 @@
   close(IOUT)
 
   ! stores arrays in binary files
-  if (SAVE_MESH_FILES) then
+  if (SAVE_MESH_FILES .or. COUPLE_WITH_EXTERNAL_CODE) then
     call save_arrays_solver_files(nspec,nglob,ibool)
 
     ! debug: saves 1. MPI interface