make uuid4 call for only rank 0 process

compdyn · May 7, 2024 · 28dbec8 · 28dbec8
1 parent 8080638
commit 28dbec8
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/partmc.F90 b/src/partmc.F90
@@ -463,8 +463,10 @@ subroutine partmc_part(file)
 
     ! initialize RNG with random seed for UUID generation
     call pmc_srand(0, pmc_mpi_rank())
-    if (.not. do_restart) then
+    if (pmc_mpi_rank() == 0) then
+       if (.not. do_restart) then
           call uuid4_str(run_part_opt%uuid)
+       end if
     end if
 
     call spec_file_broadcast_run_part(run_part_opt, aero_data, &