Merge pull request #1783 from eyalshimony/devel

Correct num_device value in initialize_GPU

Author: danielpeter

src/specfem3D/initialize_simulation.F90

@@ -583,6 +583,8 @@ subroutine initialize_GPU()
 
   if (NPROC == 1 .and. NUMBER_OF_SIMULTANEOUS_RUNS > 1 ) then
     num_device = mygroup
+  else if (NPROC > 1 .and. NUMBER_OF_SIMULTANEOUS_RUNS > 1 ) then
+    num_device = myrank + mygroup * NPROC
   else
     num_device = myrank
   endif