@@ -38,6 +38,12 @@ contains
3838 !! @param f_bub_adv_src Source for bubble volume fraction
3939 !! @param f_divu Divergence of velocity
4040 !! @param fCson Speed of sound from fP (EL)
41+ !! @param gam_l Physical Bubble parameter (pass in from global parameters)
42+ !! @param Ca_l Cavitation number (pass in from global parameters)
43+ !! @param Web_l Weber number (pass in from global parameters)
44+ !! @param Re_inv_l Inverse Reynolds number (pass in from global parameters)
45+ !! @param bubbles_euler_l Bubbles euler on/ off (pass in from global parameters)
46+ !! @param polytropic_l Polytropic switch (pass in from global parameters)
4147 pure elemental function f_rddot(fRho, fP, fR, fV, fR0, fpb, fpbdot, alf, fntait, fBtait, f_bub_adv_src, f_divu, fCson, gam_l, Ca_l, Web_l, Re_inv_l, bubbles_euler_l, polytropic_l)
4248 !$acc routine seq
4349 real (wp), intent (in ) :: fRho, fP, fR, fV, fR0, fpb, fpbdot, alf
@@ -311,7 +317,6 @@ contains
311317 !! @param Web_l Weber number (pass in from global parameters)
312318 !! @param Re_inv_l Inverse Reynolds number (pass in from global parameters)
313319 !! @param polytropic_l Polytropic switch (pass in from global parameters)
314- !! @param bubbles_lagrange_l Lagrangian subgrid bubble model switch (pass in from global parameters)
315320 pure elemental function f_rddot_KM(fpbdot, fCp, fCpbw, fRho, fR, fV, fR0, fC, gam_l, Ca_l, Web_l, Re_inv_l, polytropic_l)
316321 !$acc routine seq
317322 real (wp), intent (in ) :: fpbdot, fCp, fCpbw
@@ -385,7 +390,6 @@ contains
385390 !! @param thermal_l Thermal behavior (pass in from global parameters)
386391 !! @param fmass_n Current gas mass (EL)
387392 !! @param fbeta_c Mass transfer coefficient (EL)
388- !! @param fconc_v Current vapor concentration (EL)
389393 function f_vflux (fR , fV , fpb , fmass_v , iR0 , mass_n0_l , Re_trans_c_l , chi_vw_l , rho_mw_l , Pe_c_l , pv_l , R_v_l , Tw_l , thermal_l , bubbles_lagrange_l , fmass_n , fbeta_c , fR_m , fgamma_m )
390394 !$acc routine seq
391395 real (wp), intent (in ) :: fR
@@ -446,11 +450,21 @@ contains
446450 !! @param fpb Current internal bubble pressure
447451 !! @param fmass_v Current mass of vapour
448452 !! @param iR0 Bubble size index (EE) or bubble identifier (EL)
449- !! @param fbeta_t Mass transfer coefficient (EL)
453+ !! @param Tw_l Physical bubble parameters (pass in from global parameters)
454+ !! @param R_v_l Physical bubble parameters (pass in from global parameters)
455+ !! @param pv_l Physical bubble parameters (pass in from global parameters)
456+ !! @param pb0_l Physical bubble parameters (pass in from global parameters)
457+ !! @param mass_n0_l Physical bubble parameters (pass in from global parameters)
458+ !! @param mass_v0_l Physical bubble parameters (pass in from global parameters)
459+ !! @param Pe_T_l Physical bubble parameters (pass in from global parameters)
460+ !! @param Re_trans_T_l Physical bubble parameters (pass in from global parameters)
461+ !! @param k_mw_l Bubble Wall properties (pass in from bubbles module)
462+ !! @param thermal_l Thermal Behavior (pass in from global parameters)
463+ !! @param bubbles_lagrange_l Lagrangian subgrid bubble model switch (pass in from global parameters)
464+ !! @param fbeta_t Mass transfer coefficient (EL)
450465 !! @param fR_m Mixture gas constant (EL)
451466 !! @param fgamma_m Mixture gamma (EL)
452- !! @param fconc_v Current vapor concentration (EL)
453- function f_bpres_dot (fvflux , fR , fV , fpb , fmass_v , iR0 , Tw_l , R_v_l , pv_l , pb0_l , mass_n0_l , mass_v0_l , Pe_T_l , Re_trans_T_l , k_mw_l , thermal_l , bubbles_lagrange_l , fbeta_t , fR_m , fgamma_m )
467+ pure function f_bpres_dot (fvflux , fR , fV , fpb , fmass_v , iR0 , Tw_l , R_v_l , pv_l , pb0_l , mass_n0_l , mass_v0_l , Pe_T_l , Re_trans_T_l , k_mw_l , thermal_l , bubbles_lagrange_l , fbeta_t , fR_m , fgamma_m )
454468 !$acc routine seq
455469 real (wp), intent (in ) :: fvflux
456470 real (wp), intent (in ) :: fR
0 commit comments