change spec_file_broadcast_run_part name to pmc_mpi_broadcast_run_part

compdyn · May 28, 2024 · ae6bb3f · ae6bb3f
1 parent 28dbec8
commit ae6bb3f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/partmc.F90 b/src/partmc.F90
@@ -469,7 +469,7 @@ subroutine partmc_part(file)
        end if
     end if
 
-    call spec_file_broadcast_run_part(run_part_opt, aero_data, &
+    call pmc_mpi_broadcast_run_part(run_part_opt, aero_data, &
          aero_state_init, gas_data, gas_state_init, env_state_init, &
          aero_dist_init, scenario, &
 #ifdef PMC_USE_CAMP

diff --git a/src/run_part.F90 b/src/run_part.F90
@@ -1012,7 +1012,7 @@ end subroutine run_part_timeblock
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
   !> Read the specification for a run_part simulation from a spec file.
-  subroutine spec_file_broadcast_run_part(run_part_opt, aero_data, &
+  subroutine pmc_mpi_broadcast_run_part(run_part_opt, aero_data, &
        aero_state_init, gas_data, gas_state_init, env_state_init, &
        aero_dist_init, scenario, &
 #ifdef PMC_USE_CAMP
@@ -1138,7 +1138,7 @@ subroutine spec_file_broadcast_run_part(run_part_opt, aero_data, &
     deallocate(buffer)
 #endif
 
-  end subroutine spec_file_broadcast_run_part
+  end subroutine pmc_mpi_broadcast_run_part
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!