MFC: Simulation
High-fidelity multiphase flow simulation
Loading...
Searching...
No Matches
m_viscous.fpp.f90 File Reference

Functions/Subroutines

program __m_viscous_fpp_f90__
 
subroutine s_initialize_viscous_module ()
 
subroutine s_compute_viscous_stress_tensor (q_prim_vf, grad_x_vf, grad_y_vf, grad_z_vf, tau_re_vf, ix, iy, iz)
 The purpose of this subroutine is to compute the viscous.
 
subroutine s_get_viscous (ql_prim_rsx_vf, ql_prim_rsy_vf, ql_prim_rsz_vf, dql_prim_dx_n, dql_prim_dy_n, dql_prim_dz_n, ql_prim, qr_prim_rsx_vf, qr_prim_rsy_vf, qr_prim_rsz_vf, dqr_prim_dx_n, dqr_prim_dy_n, dqr_prim_dz_n, qr_prim, q_prim_qp, dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp, ix, iy, iz)
 Computes viscous terms.
 
subroutine s_compute_viscous_rhs (idir, q_prim_vf, rhs_vf, flux_src_n, dq_prim_dx_vf, dq_prim_dy_vf, dq_prim_dz_vf, ixt, iyt, izt)
 
subroutine s_reconstruct_cell_boundary_values_visc (v_vf, vl_x, vl_y, vl_z, vr_x, vr_y, vr_z, norm_dir, vl_prim_vf, vr_prim_vf, ix, iy, iz)
 
subroutine s_reconstruct_cell_boundary_values_visc_deriv (v_vf, vl_x, vl_y, vl_z, vr_x, vr_y, vr_z, norm_dir, vl_prim_vf, vr_prim_vf, ix, iy, iz)
 
subroutine s_apply_scalar_divergence_theorem (vl_vf, vr_vf, dv_ds_vf, norm_dir, ix, iy, iz, iv_in, dl, dim, buff_size_in)
 The purpose of this subroutine is to employ the inputted left and right cell-boundary integral-averaged variables to compute the relevant cell-average first-order spatial derivatives in the x-, y- or z-direction by means of the scalar divergence theorem.
 
subroutine s_compute_fd_gradient (var, grad_x, grad_y, grad_z, ix, iy, iz, buff_size_in)
 Computes the scalar gradient fields via finite differences.
 
subroutine s_finalize_viscous_module ()
 

Function/Subroutine Documentation

◆ __m_viscous_fpp_f90__()

program __m_viscous_fpp_f90__
Here is the call graph for this function:

◆ s_apply_scalar_divergence_theorem()

subroutine __m_viscous_fpp_f90__::s_apply_scalar_divergence_theorem ( type(scalar_field), dimension(iv%beg:iv%end), intent(in) vl_vf,
type(scalar_field), dimension(iv%beg:iv%end), intent(in) vr_vf,
type(scalar_field), dimension(iv%beg:iv%end), intent(inout) dv_ds_vf,
integer, intent(in) norm_dir,
type(int_bounds_info), intent(in) ix,
type(int_bounds_info), intent(in) iy,
type(int_bounds_info), intent(in) iz,
type(int_bounds_info), intent(in) iv_in,
real(kind(0d0)), dimension(-buff_size_in:dim + buff_size_in) dl,
integer dim,
integer buff_size_in )
private

The purpose of this subroutine is to employ the inputted left and right cell-boundary integral-averaged variables to compute the relevant cell-average first-order spatial derivatives in the x-, y- or z-direction by means of the scalar divergence theorem.

Parameters
vL_vfLeft cell-boundary integral averages
vR_vfRight cell-boundary integral averages
dv_ds_vfCell-average first-order spatial derivatives
norm_dirSplitting coordinate direction
Here is the caller graph for this function:

◆ s_compute_fd_gradient()

subroutine __m_viscous_fpp_f90__::s_compute_fd_gradient ( type(scalar_field), intent(in) var,
type(scalar_field), intent(inout) grad_x,
type(scalar_field), intent(inout) grad_y,
type(scalar_field), intent(inout) grad_z,
type(int_bounds_info) ix,
type(int_bounds_info) iy,
type(int_bounds_info) iz,
integer, intent(in) buff_size_in )
private

Computes the scalar gradient fields via finite differences.

Parameters
varVariable to compute derivative of
grad_xFirst coordinate direction component of the derivative
grad_ySecond coordinate direction component of the derivative
grad_zThird coordinate direction component of the derivative
normNorm of the gradient vector
Here is the caller graph for this function:

◆ s_compute_viscous_rhs()

subroutine __m_viscous_fpp_f90__::s_compute_viscous_rhs ( integer, intent(in) idir,
type(scalar_field), dimension(sys_size), intent(in) q_prim_vf,
type(scalar_field), dimension(sys_size), intent(inout) rhs_vf,
type(scalar_field), dimension(sys_size), intent(in) flux_src_n,
type(scalar_field), dimension(sys_size), intent(in) dq_prim_dx_vf,
type(scalar_field), dimension(sys_size), intent(in) dq_prim_dy_vf,
type(scalar_field), dimension(sys_size), intent(in) dq_prim_dz_vf,
type(int_bounds_info) ixt,
type(int_bounds_info) iyt,
type(int_bounds_info) izt )
private
Here is the call graph for this function:
Here is the caller graph for this function:

◆ s_compute_viscous_stress_tensor()

subroutine __m_viscous_fpp_f90__::s_compute_viscous_stress_tensor ( type(scalar_field), dimension(sys_size), intent(in) q_prim_vf,
type(scalar_field), dimension(num_dims), intent(in) grad_x_vf,
type(scalar_field), dimension(num_dims), intent(in) grad_y_vf,
type(scalar_field), dimension(num_dims), intent(in) grad_z_vf,
type(scalar_field), dimension(1:sys_size) tau_re_vf,
type(int_bounds_info) ix,
type(int_bounds_info) iy,
type(int_bounds_info) iz )
private

The purpose of this subroutine is to compute the viscous.

Here is the caller graph for this function:

◆ s_finalize_viscous_module()

subroutine __m_viscous_fpp_f90__::s_finalize_viscous_module
private
Here is the caller graph for this function:

◆ s_get_viscous()

subroutine __m_viscous_fpp_f90__::s_get_viscous ( real(kind(0d0)), dimension(startx:, starty:, startz:, 1:), intent(inout) ql_prim_rsx_vf,
real(kind(0d0)), dimension(startx:, starty:, startz:, 1:), intent(inout) ql_prim_rsy_vf,
real(kind(0d0)), dimension(startx:, starty:, startz:, 1:), intent(inout) ql_prim_rsz_vf,
type(vector_field), dimension(1:num_dims), intent(inout) dql_prim_dx_n,
type(vector_field), dimension(1:num_dims), intent(inout) dql_prim_dy_n,
type(vector_field), dimension(1:num_dims), intent(inout) dql_prim_dz_n,
type(vector_field), dimension(num_dims), intent(inout) ql_prim,
real(kind(0d0)), dimension(startx:, starty:, startz:, 1:), intent(inout) qr_prim_rsx_vf,
real(kind(0d0)), dimension(startx:, starty:, startz:, 1:), intent(inout) qr_prim_rsy_vf,
real(kind(0d0)), dimension(startx:, starty:, startz:, 1:), intent(inout) qr_prim_rsz_vf,
type(vector_field), dimension(1:num_dims), intent(inout) dqr_prim_dx_n,
type(vector_field), dimension(1:num_dims), intent(inout) dqr_prim_dy_n,
type(vector_field), dimension(1:num_dims), intent(inout) dqr_prim_dz_n,
type(vector_field), dimension(num_dims), intent(inout) qr_prim,
type(vector_field) q_prim_qp,
type(vector_field), dimension(1), intent(inout) dq_prim_dx_qp,
type(vector_field), dimension(1), intent(inout) dq_prim_dy_qp,
type(vector_field), dimension(1), intent(inout) dq_prim_dz_qp,
type(int_bounds_info), intent(in) ix,
type(int_bounds_info), intent(in) iy,
type(int_bounds_info), intent(in) iz )
private

Computes viscous terms.

Parameters
q_cons_vfCell-averaged conservative variables
q_prim_vfCell-averaged primitive variables
rhs_vfCell-averaged RHS variables
Here is the call graph for this function:
Here is the caller graph for this function:

◆ s_initialize_viscous_module()

subroutine __m_viscous_fpp_f90__::s_initialize_viscous_module
Here is the caller graph for this function:

◆ s_reconstruct_cell_boundary_values_visc()

subroutine __m_viscous_fpp_f90__::s_reconstruct_cell_boundary_values_visc ( type(scalar_field), dimension(iv%beg:iv%end), intent(in) v_vf,
real(kind(0d0)), dimension(startx:, starty:, startz:, 1:), intent(inout) vl_x,
real(kind(0d0)), dimension(startx:, starty:, startz:, 1:), intent(inout) vl_y,
real(kind(0d0)), dimension(startx:, starty:, startz:, 1:), intent(inout) vl_z,
real(kind(0d0)), dimension(startx:, starty:, startz:, 1:), intent(inout) vr_x,
real(kind(0d0)), dimension(startx:, starty:, startz:, 1:), intent(inout) vr_y,
real(kind(0d0)), dimension(startx:, starty:, startz:, 1:), intent(inout) vr_z,
integer, intent(in) norm_dir,
type(scalar_field), dimension(iv%beg:iv%end), intent(inout) vl_prim_vf,
type(scalar_field), dimension(iv%beg:iv%end), intent(inout) vr_prim_vf,
type(int_bounds_info) ix,
type(int_bounds_info) iy,
type(int_bounds_info) iz )
private
Here is the call graph for this function:
Here is the caller graph for this function:

◆ s_reconstruct_cell_boundary_values_visc_deriv()

subroutine __m_viscous_fpp_f90__::s_reconstruct_cell_boundary_values_visc_deriv ( type(scalar_field), dimension(iv%beg:iv%end), intent(in) v_vf,
real(kind(0d0)), dimension(startx:, starty:, startz:, iv%beg:), intent(inout) vl_x,
real(kind(0d0)), dimension(startx:, starty:, startz:, iv%beg:), intent(inout) vl_y,
real(kind(0d0)), dimension(startx:, starty:, startz:, iv%beg:), intent(inout) vl_z,
real(kind(0d0)), dimension(startx:, starty:, startz:, iv%beg:), intent(inout) vr_x,
real(kind(0d0)), dimension(startx:, starty:, startz:, iv%beg:), intent(inout) vr_y,
real(kind(0d0)), dimension(startx:, starty:, startz:, iv%beg:), intent(inout) vr_z,
integer, intent(in) norm_dir,
type(scalar_field), dimension(iv%beg:iv%end), intent(inout) vl_prim_vf,
type(scalar_field), dimension(iv%beg:iv%end), intent(inout) vr_prim_vf,
type(int_bounds_info) ix,
type(int_bounds_info) iy,
type(int_bounds_info) iz )
private
Here is the call graph for this function:
Here is the caller graph for this function: