The purpose of this procedure is to compute the source terms that are needed for the bubble modeling @param idir Dimension splitting index @param q_prim_vf Primitive variables @param q_cons_vf Conservative variables @param mydivu Divergence of velocity @param bub_adv_src Advection equation source due to bubble compression/expansion @param bub_r_src Bubble radius equation source @param bub_v_src Bubble velocity equation source @param bub_p_src Bubble pressure equation source @param bub_m_src Bubble mass equation source
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | idir | |||
| type(scalar_field), | intent(in), | dimension(sys_size) | :: | q_prim_vf | ||
| type(scalar_field), | intent(in), | dimension(sys_size) | :: | q_cons_vf | ||
| type(scalar_field), | intent(in) | :: | mydivu | |||
| real(kind=kind(0d0)), | intent(inout), | dimension(0:m, 0:n, 0:p) | :: | bub_adv_src | ||
| real(kind=kind(0d0)), | intent(inout), | dimension(0:m, 0:n, 0:p, 1:nb) | :: | bub_r_src | ||
| real(kind=kind(0d0)), | intent(inout), | dimension(0:m, 0:n, 0:p, 1:nb) | :: | bub_v_src | ||
| real(kind=kind(0d0)), | intent(inout), | dimension(0:m, 0:n, 0:p, 1:nb) | :: | bub_p_src | ||
| real(kind=kind(0d0)), | intent(inout), | dimension(0:m, 0:n, 0:p, 1:nb) | :: | bub_m_src |