Remove magic numbers and fix acc loop.

Author: haochey

src/simulation/m_acoustic_src.fpp

@@ -181,7 +181,7 @@ contains
             call s_mpi_send_random_number(phi_rn)
             sum_BB = 0d0
 
-            !$acc loop seq
+            !$acc loop reduction(+:sum_BB)
             do k = 1, num_broadband_freq
                 ! Acoustic period of the wave at each discrete frequency
                 period_BB(k) = 1d0/(broadband_freq_lowest + k*broadband_bandwidth)

src/simulation/m_mpi_proxy.fpp

@@ -2320,7 +2320,7 @@ contains
     end subroutine s_mpi_sendrecv_capilary_variables_buffers
 
     subroutine s_mpi_send_random_number(phi_rn)
-        real(kind(0d0)), dimension(1:100) :: phi_rn
+        real(kind(0d0)), intent(inout), dimension(1:num_broadband_freq) :: phi_rn
 #ifdef MFC_MPI
         call MPI_BCAST(phi_rn, size(phi_rn), MPI_DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ierr)
 #endif