Skip to content

Update m_mpi_proxy.fpp #55

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 6 commits into from
Jan 14, 2023
Merged

Update m_mpi_proxy.fpp #55

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
6 commits
Select commit Hold shift + click to select a range
d9e5c56
Update m_mpi_proxy.fpp
sbryngelson Jan 13, 2023
91d110b
Update and rename m_mpi_proxy.f90 to m_mpi_proxy.fpp
sbryngelson Jan 13, 2023
7b79151
Update m_mpi_proxy.fpp
sbryngelson Jan 13, 2023
6e9ca72
Update m_mpi_proxy.fpp
sbryngelson Jan 13, 2023
7dcd1cb
Update and rename m_mpi_proxy.f90 to m_mpi_proxy.fpp
sbryngelson Jan 13, 2023
ecd0c1c
fypp
sbryngelson Jan 13, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
176 changes: 33 additions & 143 deletions src/post_process/m_mpi_proxy.f90 → src/post_process/m_mpi_proxy.fpp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -245,156 +245,46 @@ end subroutine s_initialize_mpi_proxy_module ! ----------------------------
subroutine s_mpi_bcast_user_inputs() ! ---------------------------------

#ifdef MFC_MPI

integer :: i !< Generic loop iterator

! Logistics
call MPI_BCAST(case_dir, len(case_dir), MPI_CHARACTER, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(case_dir, len(case_dir), MPI_CHARACTER, 0, MPI_COMM_WORLD, ierr)

#:for VAR in [ 'm', 'n', 'p', 'm_glb', 'n_glb', 'p_glb', &
& 't_step_start', 't_step_stop', 't_step_save', 'weno_order', &
& 'model_eqns', 'num_fluids', 'bc_x%beg', 'bc_x%end', 'bc_y%beg', &
& 'bc_y%end', 'bc_z%beg', 'bc_z%end', 'flux_lim', 'format', &
& 'precision', 'fd_order', 'thermal', 'nb' ]
call MPI_BCAST(${VAR}$, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
#:endfor

#:for VAR in [ 'cyl_coord', 'adv_alphan', 'mpp_lim', 'mixture_err', &
& 'alt_soundspeed', 'hypoelasticity', 'parallel_io', 'rho_wrt', &
& 'coarsen_silo', 'E_wrt', 'pres_wrt', 'gamma_wrt', &
& 'heat_ratio_wrt', 'pi_inf_wrt', 'pres_inf_wrt', 'cons_vars_wrt', &
& 'prim_vars_wrt', 'c_wrt', 'schlieren_wrt', 'bubbles', &
& 'polytropic', 'fourier_decomp', 'polydisperse' ]
call MPI_BCAST(${VAR}$, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)
#:endfor

call MPI_BCAST(flux_wrt(1), 3, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(omega_wrt(1), 3, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(mom_wrt(1), 3, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(vel_wrt(1), 3, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(alpha_rho_wrt(1), num_fluids_max, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(alpha_wrt(1), num_fluids_max, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)

! Computational domain parameters
call MPI_BCAST(m, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(n, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(p, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(m_glb, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(n_glb, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(p_glb, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)

call MPI_BCAST(cyl_coord, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)

call MPI_BCAST(t_step_start, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(t_step_stop, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(t_step_save, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)

! Simulation algorithm parameters
call MPI_BCAST(model_eqns, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(num_fluids, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(adv_alphan, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(mpp_lim, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(weno_order, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(mixture_err, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(alt_soundspeed, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(hypoelasticity, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)

call MPI_BCAST(bc_x%beg, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(bc_x%end, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(bc_y%beg, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(bc_y%end, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(bc_z%beg, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(bc_z%end, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)

call MPI_BCAST(parallel_io, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)

! Fluids physical parameters
do i = 1, num_fluids_max
call MPI_BCAST(fluid_pp(i)%gamma, 1, &
MPI_DOUBLE_PRECISION, 0, &
MPI_COMM_WORLD, ierr)
call MPI_BCAST(fluid_pp(i)%pi_inf, 1, &
MPI_DOUBLE_PRECISION, 0, &
MPI_COMM_WORLD, ierr)
call MPI_BCAST(fluid_pp(i)%G, 1, &
MPI_DOUBLE_PRECISION, 0, &
MPI_COMM_WORLD, ierr)
call MPI_BCAST(fluid_pp(i)%gamma, 1, MPI_DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(fluid_pp(i)%pi_inf, 1, MPI_DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(fluid_pp(i)%G, 1, MPI_DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ierr)
end do

! Formatted database file(s) structure parameters
call MPI_BCAST(format, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)

call MPI_BCAST(precision, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)

call MPI_BCAST(coarsen_silo, 1, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)

call MPI_BCAST(rho_wrt, 1, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(mom_wrt(1), 3, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(vel_wrt(1), 3, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(flux_lim, 1, MPI_INTEGER, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(flux_wrt(1), 3, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(E_wrt, 1, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(pres_wrt, 1, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(gamma_wrt, 1, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(heat_ratio_wrt, 1, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(pi_inf_wrt, 1, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(pres_inf_wrt, 1, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(cons_vars_wrt, 1, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(prim_vars_wrt, 1, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(c_wrt, 1, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(omega_wrt(1), 3, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(schlieren_wrt, 1, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)
call MPI_BCAST(alpha_rho_wrt(1), num_fluids_max, MPI_LOGICAL, &
0, MPI_COMM_WORLD, &
ierr)
call MPI_BCAST(alpha_wrt(1), num_fluids_max, MPI_LOGICAL, &
0, MPI_COMM_WORLD, &
ierr)

call MPI_BCAST(schlieren_alpha(1), num_fluids_max, &
MPI_DOUBLE_PRECISION, 0, &
MPI_COMM_WORLD, ierr)

call MPI_BCAST(fd_order, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)

call MPI_BCAST(fourier_decomp, 1, MPI_LOGICAL, &
0, MPI_COMM_WORLD, ierr)

! Tait EOS
call MPI_BCAST(pref, 1, &
MPI_DOUBLE_PRECISION, 0, &
MPI_COMM_WORLD, ierr)
call MPI_BCAST(rhoref, 1, &
MPI_DOUBLE_PRECISION, 0, &
MPI_COMM_WORLD, ierr)

! Bubble modeling
call MPI_BCAST(bubbles, 1, &
MPI_LOGICAL, 0, &
MPI_COMM_WORLD, ierr)
call MPI_BCAST(polytropic, 1, &
MPI_LOGICAL, 0, &
MPI_COMM_WORLD, ierr)
call MPI_BCAST(thermal, 1, &
MPI_INTEGER, 0, &
MPI_COMM_WORLD, ierr)
call MPI_BCAST(R0ref, 1, &
MPI_DOUBLE_PRECISION, 0, &
MPI_COMM_WORLD, ierr)
call MPI_BCAST(nb, 1, &
MPI_INTEGER, 0, &
MPI_COMM_WORLD, ierr)
call MPI_BCAST(polydisperse, 1, &
MPI_LOGICAL, 0, &
MPI_COMM_WORLD, ierr)
call MPI_BCAST(poly_sigma, 1, &
MPI_DOUBLE_PRECISION, 0, &
MPI_COMM_WORLD, ierr)

call MPI_BCAST(Web, 1, &
MPI_DOUBLE_PRECISION, 0, &
MPI_COMM_WORLD, ierr)
call MPI_BCAST(Ca, 1, &
MPI_DOUBLE_PRECISION, 0, &
MPI_COMM_WORLD, ierr)
call MPI_BCAST(Re_inv, 1, &
MPI_DOUBLE_PRECISION, 0, &
MPI_COMM_WORLD, ierr)

#:for VAR in [ 'pref', 'rhoref', 'R0ref', 'poly_sigma', 'Web', 'Ca', &
& 'Re_inv' ]
call MPI_BCAST(${VAR}$, 1, MPI_DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ierr)
#:endfor
call MPI_BCAST(schlieren_alpha(1), num_fluids_max, MPI_DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ierr)
#endif

end subroutine s_mpi_bcast_user_inputs ! -------------------------------
Expand Down
Loading