[cig-commits] [commit] devel: Modifies STATIONS path for simultaneous runs (39137df)

[cig_noreply at geodynamics.org]

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

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d_globe/compare/b9fb1aa33196d161098710455fadbb4ed91c5e47...897de40783bd1a4630c2aacd3fa5f8b016d4c189

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

commit 39137dfa5e3e38a726739f9b1dc9351312906895
Author: Matthieu Lefebvre <ml15 at princeton.edu>
Date:   Tue Dec 2 14:44:05 2014 -0500

    Modifies STATIONS path for simultaneous runs


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

39137dfa5e3e38a726739f9b1dc9351312906895
 src/specfem3D/initialize_simulation.f90 | 5 +++++
 src/specfem3D/locate_sources.f90        | 1 -
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/specfem3D/initialize_simulation.f90 b/src/specfem3D/initialize_simulation.f90
index 74a6b18..584ce83 100644
--- a/src/specfem3D/initialize_simulation.f90
+++ b/src/specfem3D/initialize_simulation.f90
@@ -36,6 +36,7 @@
   integer :: sizeprocs
   integer :: ier
   character(len=MAX_STRING_LEN) :: dummystring
+  character(len=MAX_STRING_LEN) :: path_to_add
 
   ! sizeprocs returns number of processes started (should be equal to NPROCTOT).
   ! myrank is the rank of each process, between 0 and sizeprocs-1.
@@ -225,6 +226,10 @@
   else
     rec_filename = 'DATA/STATIONS_ADJOINT'
   endif
+  if (NUMBER_OF_SIMULTANEOUS_RUNS > 1 .and. mygroup >= 0) then
+    write(path_to_add,"('run',i4.4,'/')") mygroup + 1
+    rec_filename=path_to_add(1:len_trim(path_to_add))//rec_filename(1:len_trim(rec_filename))
+  endif
   STATIONS = rec_filename
 
   ! get total number of receivers
diff --git a/src/specfem3D/locate_sources.f90 b/src/specfem3D/locate_sources.f90
index 47d83ac..db22e9f 100644
--- a/src/specfem3D/locate_sources.f90
+++ b/src/specfem3D/locate_sources.f90
@@ -180,7 +180,6 @@
     mask_source(:,:,:,:) = 1.0_CUSTOM_REAL
   endif
 
-  print *, "yo---------> ", trim(OUTPUT_FILES)
   ! appends receiver locations to sr.vtk file
   if (myrank == 0) then
     open(IOUT_VTK,file=trim(OUTPUT_FILES)//'/sr_tmp.vtk', &