1 #ifndef __CS_CONVECTION_DIFFUSION_H__ 2 #define __CS_CONVECTION_DIFFUSION_H__ 117 const int iconvp = var_cal_opt.
iconv;
118 const int isstpp = var_cal_opt.
isstpc;
119 const double blencp = var_cal_opt.
blencv;
123 if (f_id > -1 && iconvp > 0 && blencp > 0. && isstpp == 0) {
125 static int _k_slope_test_f_id = -1;
129 int f_track_slope_test_id = -1;
131 if (_k_slope_test_f_id < 0)
133 if (_k_slope_test_f_id > -1 && isstpp == 0)
136 if (f_track_slope_test_id > -1)
139 if (v_slope_test != NULL) {
141 # pragma omp parallel for 142 for (
cs_lnum_t cell_id = 0; cell_id < n_cells_ext; cell_id++)
143 v_slope_test[cell_id] = 0.;
197 # pragma omp parallel for 198 for (
cs_lnum_t ii = 0; ii < n_cells_ext; ii++) {
206 for (
int g_id = 0; g_id < n_i_groups; g_id++) {
207 # pragma omp parallel for 208 for (
int t_id = 0; t_id < n_i_threads; t_id++) {
209 for (
cs_lnum_t face_id = i_group_index[(t_id*n_i_groups + g_id)*2];
210 face_id < i_group_index[(t_id*n_i_groups + g_id)*2 + 1];
215 cnt =
CS_ABS(i_massflux[face_id])*dt[ii]/vol[ii];
216 courant[ii] =
CS_MAX(courant[ii], cnt);
218 cnt =
CS_ABS(i_massflux[face_id])*dt[jj]/vol[jj];
219 courant[jj] =
CS_MAX(courant[jj], cnt);
226 for (
int g_id = 0; g_id < n_b_groups; g_id++) {
227 # pragma omp parallel for 228 for (
int t_id = 0; t_id < n_b_threads; t_id++) {
229 for (
cs_lnum_t face_id = b_group_index[(t_id*n_b_groups + g_id)*2];
230 face_id < b_group_index[(t_id*n_b_groups + g_id)*2 + 1];
234 cnt =
CS_ABS(b_massflux[face_id])*dt[ii]/vol[ii];
235 courant[ii] =
CS_MAX(courant[ii], cnt);
267 rfc = (nvf_r_f-nvf_r_c)/(1.-nvf_r_c);
269 if (nvf_p_c < beta_m) {
270 nvf_p_f = nvf_p_c*(1.+rfc*(1.-nvf_p_c)/beta_m);
272 r1f = (1.-nvf_r_f)/(1.-nvf_r_c);
274 nvf_p_f = r1f*nvf_p_c+rfc;
280 if (nvf_p_c < (nvf_r_c/3.)) {
281 r1 = nvf_r_f*(1.-3.*nvf_r_c+2.*nvf_r_f);
282 r2 = nvf_r_c*(1.-nvf_r_c);
284 nvf_p_f = nvf_p_c*r1/r2;
285 }
else if (nvf_p_c <= (nvf_r_c*(1.+nvf_r_f-nvf_r_c)/nvf_r_f)) {
286 rfc = (nvf_r_f-nvf_r_c)/(1.-nvf_r_c);
287 r1f = (1.-nvf_r_f)/(1.-nvf_r_c);
289 nvf_p_f = nvf_r_f*(r1f*nvf_p_c/nvf_r_c + rfc);
297 if (nvf_p_c < (3.*nvf_r_c/4.)) {
298 rfc = (nvf_r_f-nvf_r_c)/(1.-nvf_r_c);
300 nvf_p_f = nvf_r_f*(1.+rfc/3.)*nvf_p_c/nvf_r_c;
301 }
else if (nvf_p_c <= (nvf_r_c*(1.+2.*(nvf_r_f-nvf_r_c))/(2.*nvf_r_f-nvf_r_c))) {
302 rfc = (nvf_r_f-nvf_r_c)/(1.-nvf_r_c);
303 r1f = (1.-nvf_r_f)/(1.-nvf_r_c);
305 nvf_p_f = nvf_r_f*(r1f*nvf_p_c/nvf_r_c+rfc);
307 r1f = (1.-nvf_r_f)/(1.-nvf_r_c);
309 nvf_p_f = 1.-.5*r1f*(1.-nvf_p_c);
315 if (nvf_p_c < (nvf_r_c/(2.-nvf_r_c))) {
316 nvf_p_f = (2.*nvf_r_f-nvf_r_c)*nvf_p_c/nvf_r_c;
317 }
else if (nvf_p_c < nvf_r_c) {
318 rfc = (nvf_r_f-nvf_r_c)/(1.-nvf_r_c);
319 r1f = (1.-nvf_r_f)/(1.-nvf_r_c);
321 nvf_p_f = r1f*nvf_p_c+rfc;
322 }
else if (nvf_p_c < (nvf_r_c/nvf_r_f)) {
323 nvf_p_f = nvf_r_f*nvf_p_c/nvf_r_c;
331 if (nvf_p_c < (.5*nvf_r_c)) {
332 nvf_p_f = (2.*nvf_r_f-nvf_r_c)*nvf_p_c/nvf_r_c;
333 }
else if (nvf_p_c < (1.+nvf_r_c-nvf_r_f)) {
334 nvf_p_f = nvf_p_c+nvf_r_f-nvf_r_c;
342 if (nvf_p_c < nvf_r_c) {
343 nvf_p_f = nvf_r_f*nvf_p_c/nvf_r_c;
345 rfc = (nvf_r_f-nvf_r_c)/(1.-nvf_r_c);
346 r1f = (1.-nvf_r_f)/(1.-nvf_r_c);
348 nvf_p_f = r1f*nvf_p_c+rfc;
354 r1 = nvf_r_c*nvf_r_c-nvf_r_f;
355 r2 = nvf_r_c*(nvf_r_c-1.);
356 r3 = nvf_r_f-nvf_r_c;
358 nvf_p_f = nvf_p_c*(r1+r3*nvf_p_c)/r2;
363 b1 = (nvf_r_c-nvf_r_f)*nvf_r_c;
364 b2 = nvf_r_c+nvf_r_f+2.*nvf_r_f*nvf_r_f-4.*nvf_r_f*nvf_r_c;
366 if (nvf_p_c < (b1/b2)) {
367 r1 = -nvf_r_f*(1.-3.*nvf_r_c+2.*nvf_r_f);
368 r2 = nvf_r_c*(nvf_r_c-1.);
370 nvf_p_f = nvf_p_c*r1/r2;
371 }
else if (nvf_p_c < nvf_r_c) {
372 rfc = (nvf_r_f-nvf_r_c)/(1.-nvf_r_c);
373 r1f = (1.-nvf_r_f)/(1.-nvf_r_c);
375 nvf_p_f = r1f*nvf_p_c+rfc;
376 }
else if (nvf_p_c < (nvf_r_c*(1.+nvf_r_f-nvf_r_c)/nvf_r_f)) {
377 rfc = (nvf_r_f-nvf_r_c)/(1.-nvf_r_c);
378 r1f = (1.-nvf_r_f)/(1.-nvf_r_c);
380 nvf_p_f = nvf_r_f*(nvf_p_c*r1f/nvf_r_c+rfc);
388 if (nvf_p_c < (nvf_r_c/nvf_r_f)) {
389 nvf_p_f = nvf_r_f*nvf_p_c/nvf_r_c;
397 r1 = nvf_r_c*nvf_r_f*(nvf_r_f-nvf_r_c);
398 r2 = 2.*nvf_r_c*(1.-nvf_r_c)-nvf_r_f*(1.-nvf_r_f);
400 if (nvf_p_c < (r1/r2)) {
401 nvf_p_f = 2.*nvf_p_c;
402 }
else if (nvf_p_c <= (nvf_r_c*(1.+nvf_r_f-nvf_r_c)/nvf_r_f)) {
403 rfc = (nvf_r_f-nvf_r_c)/(1.-nvf_r_c);
404 r1f = (1.-nvf_r_f)/(1.-nvf_r_c);
406 nvf_p_f = nvf_r_f*(nvf_p_c*r1f/nvf_r_c+rfc);
451 cs_real_t blend, high_order, low_order, ratio;
462 high_order = 2.*nvf_p_c;
478 blend =
CS_MIN(1., pow(ratio, .5));
482 nvf_p_f = blend*high_order + (1.-blend)*low_order;
485 if (c_courant < .7 && c_courant > .3) {
486 nvf_p_f = nvf_p_f + (nvf_p_f - low_order)*(.7 - c_courant )/.4;
487 }
else if (c_courant >= .7) {
492 if (c_courant <= .3) {
494 }
else if (c_courant <= .6) {
495 high_order =
CS_MIN(1., nvf_p_c/.3);
496 }
else if (c_courant <= .7) {
501 high_order = 10.*( (.7-c_courant)*
CS_MIN(1., nvf_p_c/.3)
502 + (c_courant-.6)*superbee);
522 blend =
CS_MIN(1., pow(ratio, 2.));
526 nvf_p_f = blend*high_order + (1.-blend)*low_order;
545 blend =
CS_MIN(1., pow(ratio, 4.));
549 nvf_p_f = blend*high_order + (1.-blend)*low_order;
593 testi = grdpai[0]*i_face_normal[0]
594 + grdpai[1]*i_face_normal[1]
595 + grdpai[2]*i_face_normal[2];
596 testj = grdpaj[0]*i_face_normal[0]
597 + grdpaj[1]*i_face_normal[1]
598 + grdpaj[2]*i_face_normal[2];
600 *testij = grdpai[0]*grdpaj[0]
601 + grdpai[1]*grdpaj[1]
602 + grdpai[2]*grdpaj[2];
605 dcc = gradi[0]*i_face_normal[0]
606 + gradi[1]*i_face_normal[1]
607 + gradi[2]*i_face_normal[2];
609 ddj = (pj-
pi)/distf *srfan;
611 dcc = gradj[0]*i_face_normal[0]
612 + gradj[1]*i_face_normal[1]
613 + gradj[2]*i_face_normal[2];
614 ddi = (pj-
pi)/distf *srfan;
661 for (
int i = 0; i < 3; i++) {
662 *testij += gradsti[i][0]*gradstj[i][0]
663 + gradsti[i][1]*gradstj[i][1]
664 + gradsti[i][2]*gradstj[i][2];
666 testi[i] = gradsti[i][0]*i_face_normal[0]
667 + gradsti[i][1]*i_face_normal[1]
668 + gradsti[i][2]*i_face_normal[2];
669 testj[i] = gradstj[i][0]*i_face_normal[0]
670 + gradstj[i][1]*i_face_normal[1]
671 + gradstj[i][2]*i_face_normal[2];
673 if (i_massflux > 0.) {
674 dcc[i] = gradi[i][0]*i_face_normal[0]
675 + gradi[i][1]*i_face_normal[1]
676 + gradi[i][2]*i_face_normal[2];
678 ddj[i] = (pj[i]-pi[i])/distf *srfan;
680 dcc[i] = gradj[i][0]*i_face_normal[0]
681 + gradj[i][1]*i_face_normal[1]
682 + gradj[i][2]*i_face_normal[2];
683 ddi[i] = (pj[i]-pi[i])/distf *srfan;
732 for (
int ij = 0; ij < 6; ij++) {
733 *testij += gradsti[ij][0]*gradstj[ij][0]
734 + gradsti[ij][1]*gradstj[ij][1]
735 + gradsti[ij][2]*gradstj[ij][2];
736 testi[ij] = gradsti[ij][0]*i_face_normal[0]
737 + gradsti[ij][1]*i_face_normal[1]
738 + gradsti[ij][2]*i_face_normal[2];
739 testj[ij] = gradstj[ij][0]*i_face_normal[0]
740 + gradstj[ij][1]*i_face_normal[1]
741 + gradstj[ij][2]*i_face_normal[2];
743 if (i_massflux > 0.) {
744 dcc[ij] = gradi[ij][0]*i_face_normal[0]
745 + gradi[ij][1]*i_face_normal[1]
746 + gradi[ij][2]*i_face_normal[2];
748 ddj[ij] = (pj[ij]-pi[ij])/distf *srfan;
751 dcc[ij] = gradj[ij][0]*i_face_normal[0]
752 + gradj[ij][1]*i_face_normal[1]
753 + gradj[ij][2]*i_face_normal[2];
754 ddi[ij] = (pj[ij]-pi[ij])/distf *srfan;
793 cs_real_t gradpf[3] = {0.5*(gradi[0] + gradj[0]),
794 0.5*(gradi[1] + gradj[1]),
795 0.5*(gradi[2] + gradj[2])};
839 for (
int isou = 0; isou < 3; isou++) {
841 for (
int jsou = 0; jsou < 3; jsou++)
842 dpvf[jsou] = 0.5*( gradi[isou][jsou]
843 + gradj[isou][jsou]);
850 pip[isou] = pi[isou] + recoi[isou];
851 pjp[isou] = pj[isou] + recoj[isou];
891 for (
int isou = 0; isou < 6; isou++) {
893 for (
int jsou = 0; jsou < 3; jsou++)
894 dpvf[jsou] = 0.5*( gradi[isou][jsou]
895 + gradj[isou][jsou]);
902 pip[isou] = pi[isou] + recoi[isou];
903 pjp[isou] = pj[isou] + recoj[isou];
939 *pir = pi/relaxp - (1.-relaxp)/relaxp * pia;
940 *pjr = pj/relaxp - (1.-relaxp)/relaxp * pja;
942 *pipr = *pir + recoi;
943 *pjpr = *pjr + recoj;
977 for (
int isou = 0; isou < 3; isou++) {
978 pir[isou] = pi[isou] /relaxp - (1.-relaxp)/relaxp * pia[isou];
979 pjr[isou] = pj[isou] /relaxp - (1.-relaxp)/relaxp * pja[isou];
981 pipr[isou] = pir[isou] + recoi[isou];
982 pjpr[isou] = pjr[isou] + recoj[isou];
1017 for (
int isou = 0; isou < 6; isou++) {
1018 pir[isou] = pi[isou] /relaxp - (1.-relaxp)/relaxp * pia[isou];
1019 pjr[isou] = pj[isou] /relaxp - (1.-relaxp)/relaxp * pja[isou];
1021 pipr[isou] = pir[isou] + recoi[isou];
1022 pjpr[isou] = pjr[isou] + recoj[isou];
1055 for (
int isou = 0; isou < 3; isou++)
1072 for (
int isou = 0; isou < 6; isou++)
1093 *pf = pnd*pip + (1.-pnd)*pjp;
1113 for (
int isou = 0; isou < 3; isou++)
1114 pf[isou] = pnd*pip[isou] + (1.-pnd)*pjp[isou];
1134 for (
int isou = 0; isou < 6; isou++)
1135 pf[isou] = pnd*pip[isou] + (1.-pnd)*pjp[isou];
1159 df[0] = i_face_cog[0] - cell_cen[0];
1160 df[1] = i_face_cog[1] - cell_cen[1];
1161 df[2] = i_face_cog[2] - cell_cen[2];
1187 for (
int jsou = 0; jsou < 3; jsou++)
1188 df[jsou] = i_face_cog[jsou] - cell_cen[jsou];
1190 for (
int isou = 0; isou < 3; isou++) {
1191 pf[isou] = p[isou] + df[0]*grad[isou][0]
1192 + df[1]*grad[isou][1]
1193 + df[2]*grad[isou][2];
1219 for (
int jsou = 0; jsou < 3; jsou++)
1220 df[jsou] = i_face_cog[jsou] - cell_cen[jsou];
1222 for (
int isou = 0; isou < 6; isou++) {
1223 pf[isou] = p[isou] + df[0]*grad[isou][0]
1224 + df[1]*grad[isou][1]
1225 + df[2]*grad[isou][2];
1246 *pf = blencp * (*pf) + (1. - blencp) * p;
1266 for (
int isou = 0; isou < 3; isou++)
1267 pf[isou] = blencp*(pf[isou])+(1.-blencp)*p[isou];
1287 for (
int isou = 0; isou < 6; isou++)
1288 pf[isou] = blencp*(pf[isou])+(1.-blencp)*p[isou];
1331 flui = 0.5*(i_massflux + fabs(i_massflux));
1332 fluj = 0.5*(i_massflux - fabs(i_massflux));
1334 fluxij[0] += iconvp*xcppi*(thetap*(flui*pifri + fluj*pjfri) - imasac*i_massflux*pi);
1335 fluxij[1] += iconvp*xcppj*(thetap*(flui*pifrj + fluj*pjfrj) - imasac*i_massflux*pj);
1374 flui = 0.5*(i_massflux + fabs(i_massflux));
1375 fluj = 0.5*(i_massflux - fabs(i_massflux));
1377 for (
int isou = 0; isou < 3; isou++) {
1379 fluxi[isou] += iconvp*( thetap*(flui*pifri[isou] + fluj*pjfri[isou])
1380 - imasac*i_massflux*pi[isou]);
1381 fluxj[isou] += iconvp*( thetap*(flui*pifrj[isou] + fluj*pjfrj[isou])
1382 - imasac*i_massflux*pj[isou]);
1422 flui = 0.5*(i_massflux + fabs(i_massflux));
1423 fluj = 0.5*(i_massflux - fabs(i_massflux));
1425 for (
int isou = 0; isou < 6; isou++) {
1426 fluxi[isou] += iconvp*( thetap*(flui*pifri[isou] + fluj*pjfri[isou])
1427 - imasac*i_massflux*pi[isou]);
1428 fluxj[isou] += iconvp*( thetap*(flui*pifrj[isou] + fluj*pjfrj[isou])
1429 - imasac*i_massflux*pj[isou]);
1458 fluxij[0] += idiffp*thetap*i_visc*(pipr -pjp);
1459 fluxij[1] += idiffp*thetap*i_visc*(pip -pjpr);
1489 for (
int isou = 0; isou < 3; isou++) {
1490 fluxi[isou] += idiffp*thetap*i_visc*(pipr[isou] -pjp[isou]);
1491 fluxj[isou] += idiffp*thetap*i_visc*(pip[isou] -pjpr[isou]);
1522 for (
int isou = 0; isou < 6; isou++) {
1523 fluxi[isou] += idiffp*thetap*i_visc*(pipr[isou] -pjp[isou]);
1524 fluxj[isou] += idiffp*thetap*i_visc*(pip[isou] -pjpr[isou]);
1966 const double relaxp,
1967 const double blencp,
2040 }
else if (ischcp == 0) {
2147 const double relaxp,
2148 const double blencp,
2300 const double relaxp,
2301 const double blencp,
2453 const double blencp,
2502 }
else if (ischcp == 0) {
2518 }
else if (ischcp == 3) {
2548 hybrid_blend_interp =
fmin(hybrid_blend_i,hybrid_blend_j);
2549 *pif = hybrid_blend_interp*(*pif) + (1. - hybrid_blend_interp)*pif_up;
2550 *pjf = hybrid_blend_interp*(*pjf) + (1. - hybrid_blend_interp)*pjf_up;
2613 const double blencp,
2659 }
else if (ischcp == 3) {
2689 hybrid_blend_interp =
fmin(hybrid_blend_i,hybrid_blend_j);
2690 for (
int isou = 0; isou < 3; isou++) {
2691 pif[isou] = hybrid_blend_interp *pif[isou]
2692 + (1. - hybrid_blend_interp)*pif_up[isou];
2693 pjf[isou] = hybrid_blend_interp *pjf[isou]
2694 + (1. - hybrid_blend_interp)*pjf_up[isou];
2755 const double blencp,
2881 const double relaxp,
2882 const double blencp,
2883 const double blend_st,
2917 *upwind_switch =
false;
2980 }
else if (ischcp == 0) {
3037 if (tesqck <= 0. || testij <= 0.) {
3052 *upwind_switch =
true;
3136 const double relaxp,
3137 const double blencp,
3138 const double blend_st,
3210 for (isou = 0; isou < 3; isou++) {
3266 if (tesqck <= 0. || testij <= 0.) {
3280 *upwind_switch =
true;
3301 for (isou = 0; isou < 3; isou++) {
3364 const double relaxp,
3365 const double blencp,
3366 const double blend_st,
3438 for (isou = 0; isou < 6; isou++) {
3494 if (tesqck <= 0. || testij <= 0.) {
3509 *upwind_switch =
true;
3532 for (isou = 0; isou < 6; isou++) {
3590 const double blencp,
3591 const double blend_st,
3620 *upwind_switch =
false;
3663 }
else if (ischcp == 0) {
3700 if (tesqck<=0. || testij<=0.) {
3709 *upwind_switch =
true;
3753 if (i_massflux >= 0.) {
3816 const cs_real_t dist_du = dist_dc + dist_cu;
3822 const cs_real_t grad2c = ((p_d - p_c)/dist_dc - gradc)/dist_dc;
3824 cs_real_t p_u = p_c + (grad2c*dist_cu - gradc)*dist_cu;
3828 const cs_real_t nvf_r_f = (dist_fc+dist_cu)/dist_du;
3829 const cs_real_t nvf_r_c = dist_cu/dist_du;
3836 if (
CS_ABS(p_d-p_u) <= _small) {
3840 const cs_real_t nvf_p_c = (p_c - p_u)/(p_d - p_u);
3842 if (nvf_p_c <= 0. || nvf_p_c >= 1.) {
3864 *pif = p_u + nvf_p_f*(p_d - p_u);
3918 const double blencp,
3919 const double blend_st,
3971 for (
int isou = 0; isou < 3; isou++) {
4009 if (tesqck <= 0. || testij <= 0.) {
4018 *upwind_switch =
true;
4035 for (
int isou = 0; isou < 3; isou++) {
4088 const double blencp,
4089 const double blend_st,
4142 for (isou = 0; isou < 6; isou++) {
4178 if (tesqck <= 0. || testij <= 0.) {
4190 *upwind_switch =
true;
4207 for (isou = 0; isou < 6; isou++) {
4233 *recoi = bldfrp * ( gradi[0]*diipb[0]
4235 + gradi[2]*diipb[2]);
4255 for (
int isou = 0; isou < 3; isou++) {
4256 recoi[isou] = bldfrp * ( gradi[isou][0]*diipb[0]
4257 + gradi[isou][1]*diipb[1]
4258 + gradi[isou][2]*diipb[2]);
4279 for (
int isou = 0; isou < 6; isou++) {
4280 recoi[isou] = bldfrp * ( gradi[isou][0]*diipb[0]
4281 + gradi[isou][1]*diipb[1]
4282 + gradi[isou][2]*diipb[2]);
4307 *pir = pi/relaxp - (1.-relaxp)/relaxp*pia;
4308 *pipr = *pir + recoi;
4332 for (
int isou = 0; isou < 3; isou++) {
4333 pir[isou] = pi[isou]/relaxp - (1.-relaxp)/relaxp*pia[isou];
4334 pipr[isou] = pir[isou] + recoi[isou];
4359 for (
int isou = 0; isou < 6; isou++) {
4360 pir[isou] = pi[isou]/relaxp - (1.-relaxp)/relaxp*pia[isou];
4361 pipr[isou] = pir[isou] + recoi[isou];
4420 flui = 0.5*(b_massflux +fabs(b_massflux));
4421 fluj = 0.5*(b_massflux -fabs(b_massflux));
4424 pfac = inc*coefap + coefbp*pipr;
4425 *flux += iconvp*xcpp*(thetap*(flui*pir + fluj*pfac) -imasac*( b_massflux*pi));
4431 pfac = inc*coface + cofbce*pipr;
4432 *flux += iconvp*xcpp*(-imasac*(b_massflux*
pi) + thetap*(pfac));
4489 flui = 0.5*(b_massflux +fabs(b_massflux));
4490 fluj = 0.5*(b_massflux -fabs(b_massflux));
4492 for (
int isou = 0; isou < 3; isou++) {
4493 pfac = inc*coefap[isou];
4494 for (
int jsou = 0; jsou < 3; jsou++) {
4495 pfac += coefbp[isou][jsou]*pipr[jsou];
4497 flux[isou] += iconvp*( thetap*(flui*pir[isou] + fluj*pfac)
4498 - imasac*b_massflux*
pi[isou]);
4505 for (
int isou = 0; isou < 3; isou++) {
4506 pfac = inc*coface[isou];
4507 for (
int jsou = 0; jsou < 3; jsou++) {
4508 pfac += cofbce[isou][jsou]*pipr[jsou];
4510 flux[isou] += iconvp*( thetap*pfac
4511 - imasac*b_massflux*
pi[isou]);
4561 flui = 0.5*(b_massflux +fabs(b_massflux));
4562 fluj = 0.5*(b_massflux -fabs(b_massflux));
4565 pfac = inc*coefap + coefbp*pipr;
4566 *flux += iconvp*xcpp*(thetap*(flui*pir + fluj*pfac) -imasac*( b_massflux*pi));
4612 flui = 0.5*(b_massflux +fabs(b_massflux));
4613 fluj = 0.5*(b_massflux -fabs(b_massflux));
4615 for (
int isou = 0; isou < 3; isou++) {
4616 pfac = inc*coefa[isou];
4617 for (
int jsou = 0; jsou < 3; jsou++) {
4618 pfac += coefb[isou][jsou]*pipr[jsou];
4620 flux[isou] += iconvp*( thetap*(flui*pir[isou] + fluj*pfac)
4621 - imasac*b_massflux*pi[isou]);
4668 flui = 0.5*(b_massflux +fabs(b_massflux));
4669 fluj = 0.5*(b_massflux -fabs(b_massflux));
4671 for (
int isou = 0; isou < 6; isou++) {
4672 pfac = inc*coefa[isou];
4673 for (
int jsou = 0; jsou < 6; jsou++) {
4674 pfac += coefb[isou][jsou]*pipr[jsou];
4676 flux[isou] += iconvp*( thetap*(flui*pir[isou] + fluj*pfac)
4677 - imasac*b_massflux*pi[isou]);
4706 cs_real_t pfacd = inc*cofafp + cofbfp*pipr;
4707 *flux += idiffp*thetap*b_visc*pfacd;
4736 for (
int isou = 0; isou < 3; isou++) {
4737 pfacd = inc*cofaf[isou];
4738 for (
int jsou = 0; jsou < 3; jsou++) {
4739 pfacd += cofbf[isou][jsou]*pipr[jsou];
4741 flux[isou] += idiffp*thetap*b_visc*pfacd;
4771 for (
int isou = 0; isou < 6; isou++) {
4772 pfacd = inc*cofaf[isou];
4773 for (
int jsou = 0; jsou < 6; jsou++) {
4774 pfacd += cofbf[isou][jsou]*pipr[jsou];
4776 flux[isou] += idiffp*thetap*b_visc*pfacd;
4798 const double relaxp,
4839 const double relaxp,
4880 const double relaxp,
4960 for (
int isou = 0; isou < 3; isou++)
4961 pip[isou] = pi[isou] + recoi[isou];
4991 for(
int isou = 0; isou< 6; isou++)
4992 pip[isou] = pi[isou] + recoi[isou];
5015 *fluxi += idiffp*b_visc*(pi - pj);
5038 for (
int k = 0;
k < 3;
k++)
5039 fluxi[
k] += idiffp*b_visc*(pi[
k] - pj[
k]);
5053 const int *
const f_id,
5054 const int *
const init,
5055 const int *
const inc,
5057 const int *
const iccocg,
5058 const int *
const nswrgp,
5059 const int *
const imligp,
5060 const int *
const iphydp,
5061 const int *
const iwgrp,
5062 const int *
const iwarnp,
5085 const int *
const f_id,
5086 const int *
const init,
5087 const int *
const inc,
5089 const int *
const iccocg,
5090 const int *
const nswrgp,
5091 const int *
const imligp,
5092 const int *
const ircflp,
5093 const int *
const iphydp,
5094 const int *
const iwgrp,
5095 const int *
const iwarnp,
5120 const int *
const f_id,
5121 const int *
const init,
5122 const int *
const inc,
5124 const int *
const iccocg,
5125 const int *
const nswrgp,
5126 const int *
const imligp,
5127 const int *
const iphydp,
5128 const int *
const iwgrp,
5129 const int *
const iwarnp,
5151 const int *
const f_id,
5152 const int *
const init,
5153 const int *
const inc,
5155 const int *
const iccocg,
5156 const int *
const nswrgp,
5157 const int *
const imligp,
5158 const int *
const ircflp,
5159 const int *
const iphydp,
5160 const int *
const iwgrp,
5161 const int *
const iwarnp,
Definition: cs_field_pointer.h:70
static void cs_i_cd_unsteady_tensor(const cs_real_t bldfrp, const int ischcp, const double blencp, const cs_real_t weight, const cs_real_3_t cell_ceni, const cs_real_3_t cell_cenj, const cs_real_3_t i_face_cog, const cs_real_3_t diipf, const cs_real_3_t djjpf, const cs_real_63_t gradi, const cs_real_63_t gradj, const cs_real_6_t pi, const cs_real_6_t pj, cs_real_t pif[6], cs_real_t pjf[6], cs_real_t pip[6], cs_real_t pjp[6])
Handle preparation of internal face values for the fluxes computation in case of an unsteady algorith...
Definition: cs_convection_diffusion.h:2753
static void cs_sync_scalar_halo(const cs_mesh_t *m, cs_real_t pvar[])
Definition: cs_convection_diffusion.h:95
static void cs_upwind_f_val_vector(const cs_real_3_t p, cs_real_t pf[3])
Prepare value at face ij by using an upwind scheme.
Definition: cs_convection_diffusion.h:1052
void itrgrv(const int *const f_id, const int *const init, const int *const inc, const int *const imrgra, const int *const iccocg, const int *const nswrgp, const int *const imligp, const int *const ircflp, const int *const iphydp, const int *const iwgrp, const int *const iwarnp, const cs_real_t *const epsrgp, const cs_real_t *const climgp, const cs_real_t *const extrap, cs_real_3_t frcxt[], cs_real_t pvar[], const cs_real_t coefap[], const cs_real_t coefbp[], const cs_real_t cofafp[], const cs_real_t cofbfp[], const cs_real_t i_visc[], const cs_real_t b_visc[], cs_real_6_t viscel[], const cs_real_2_t weighf[], const cs_real_t weighb[], cs_real_t diverg[])
Definition: cs_convection_diffusion.c:812
void cs_convection_diffusion_vector(int idtvar, int f_id, const cs_var_cal_opt_t var_cal_opt, int icvflb, int inc, int ivisep, int imasac, cs_real_3_t *restrict pvar, const cs_real_3_t *restrict pvara, const int icvfli[], const cs_real_3_t coefav[], const cs_real_33_t coefbv[], const cs_real_3_t cofafv[], const cs_real_33_t cofbfv[], const cs_real_t i_massflux[], const cs_real_t b_massflux[], const cs_real_t i_visc[], const cs_real_t b_visc[], const cs_real_t i_secvis[], const cs_real_t b_secvis[], cs_real_3_t *restrict rhs)
Add the explicit part of the convection/diffusion terms of a transport equation of a vector field ...
Definition: cs_convection_diffusion.c:4169
double precision, dimension(:,:), pointer diipb
Definition: mesh.f90:212
#define restrict
Definition: cs_defs.h:142
static cs_real_t cs_math_3_dot_product(const cs_real_t u[3], const cs_real_t v[3])
Compute the dot product of two vectors of 3 real values.
Definition: cs_math.h:332
static void cs_b_diff_flux_tensor(const int idiffp, const cs_real_t thetap, const int inc, const cs_real_6_t pipr, const cs_real_6_t cofaf, const cs_real_66_t cofbf, const cs_real_t b_visc, cs_real_t flux[6])
Add diffusive flux to flux at boundary face.
Definition: cs_convection_diffusion.h:4761
static void cs_i_cd_steady_upwind_vector(const cs_real_t bldfrp, const cs_real_t relaxp, const cs_real_t diipf[3], const cs_real_t djjpf[3], const cs_real_t gradi[3][3], const cs_real_t gradj[3][3], const cs_real_t pi[3], const cs_real_t pj[3], const cs_real_t pia[3], const cs_real_t pja[3], cs_real_t pifri[3], cs_real_t pifrj[3], cs_real_t pjfri[3], cs_real_t pjfrj[3], cs_real_t pip[3], cs_real_t pjp[3], cs_real_t pipr[3], cs_real_t pjpr[3])
Handle preparation of internal face values for the fluxes computation in case of a steady algorithm a...
Definition: cs_convection_diffusion.h:1638
cs_real_t cs_real_2_t[2]
vector of 2 floating-point values
Definition: cs_defs.h:334
static void cs_i_cd_unsteady_upwind_vector(const cs_real_t bldfrp, const cs_real_t diipf[3], const cs_real_t djjpf[3], const cs_real_t gradi[3][3], const cs_real_t gradj[3][3], const cs_real_t pi[3], const cs_real_t pj[3], cs_real_t pif[3], cs_real_t pjf[3], cs_real_t pip[3], cs_real_t pjp[3])
Handle preparation of internal face values for the fluxes computation in case of an unsteady algorith...
Definition: cs_convection_diffusion.h:1847
static void cs_b_compute_quantities_tensor(const cs_real_3_t diipb, const cs_real_63_t gradi, const cs_real_t bldfrp, cs_real_t recoi[6])
Reconstruct values in I' at boundary cell i.
Definition: cs_convection_diffusion.h:4274
cs_real_t cs_real_6_t[6]
vector of 6 floating-point values
Definition: cs_defs.h:337
int cs_field_key_id_try(const char *name)
Return an id associated with a given key name if present.
Definition: cs_field.c:2524
void cs_anisotropic_diffusion_tensor(int idtvar, int f_id, const cs_var_cal_opt_t var_cal_opt, int inc, cs_real_6_t *restrict pvar, const cs_real_6_t *restrict pvara, const cs_real_6_t coefa[], const cs_real_66_t coefb[], const cs_real_6_t cofaf[], const cs_real_66_t cofbf[], const cs_real_t i_visc[], const cs_real_t b_visc[], cs_real_6_t *restrict viscel, const cs_real_2_t weighf[], const cs_real_t weighb[], cs_real_6_t *restrict rhs)
Add the explicit part of the diffusion terms with a symmetric tensor diffusivity for a transport equa...
Definition: cs_convection_diffusion.c:10164
static void cs_central_downwind_cells(const cs_lnum_t ii, const cs_lnum_t jj, const cs_real_t i_massflux, cs_lnum_t *ic, cs_lnum_t *id)
Determine the upwind and downwind sides of an internal face and matching cell indices.
Definition: cs_convection_diffusion.h:3747
static void cs_centered_f_val_tensor(const double pnd, const cs_real_6_t pip, const cs_real_6_t pjp, cs_real_t pf[6])
Prepare value at face ij by using a centered scheme.
Definition: cs_convection_diffusion.h:1129
static void cs_slope_test_tensor(const cs_real_t pi[6], const cs_real_t pj[6], const cs_real_t distf, const cs_real_t srfan, const cs_real_t i_face_normal[3], const cs_real_t gradi[6][3], const cs_real_t gradj[6][3], const cs_real_t gradsti[6][3], const cs_real_t gradstj[6][3], const cs_real_t i_massflux, cs_real_t *testij, cs_real_t *tesqck)
Compute slope test criteria at internal face between cell i and j.
Definition: cs_convection_diffusion.h:711
cs_nvd_type_t
Definition: cs_convection_diffusion.h:59
void cs_face_diffusion_potential(const int f_id, const cs_mesh_t *m, cs_mesh_quantities_t *fvq, int init, int inc, int imrgra, int iccocg, int nswrgp, int imligp, int iphydp, int iwgrp, int iwarnp, double epsrgp, double climgp, cs_real_3_t *restrict frcxt, cs_real_t *restrict pvar, const cs_real_t coefap[], const cs_real_t coefbp[], const cs_real_t cofafp[], const cs_real_t cofbfp[], const cs_real_t i_visc[], const cs_real_t b_visc[], cs_real_t *restrict visel, cs_real_t *restrict i_massflux, cs_real_t *restrict b_massflux)
Update the face mass flux with the face pressure (or pressure increment, or pressure double increment...
Definition: cs_convection_diffusion.c:10781
void cs_anisotropic_diffusion_scalar(int idtvar, int f_id, const cs_var_cal_opt_t var_cal_opt, int inc, int iccocg, cs_real_t *restrict pvar, const cs_real_t *restrict pvara, const cs_real_t coefap[], const cs_real_t coefbp[], const cs_real_t cofafp[], const cs_real_t cofbfp[], const cs_real_t i_visc[], const cs_real_t b_visc[], cs_real_6_t *restrict viscel, const cs_real_2_t weighf[], const cs_real_t weighb[], cs_real_t *restrict rhs)
Add the explicit part of the diffusion terms with a symmetric tensor diffusivity for a transport equa...
Definition: cs_convection_diffusion.c:8154
Field descriptor.
Definition: cs_field.h:125
static void cs_i_relax_c_val_tensor(const cs_real_t relaxp, const cs_real_t pia[6], const cs_real_t pja[6], const cs_real_t recoi[6], const cs_real_t recoj[6], const cs_real_t pi[6], const cs_real_t pj[6], cs_real_t pir[6], cs_real_t pjr[6], cs_real_t pipr[6], cs_real_t pjpr[6])
Compute relaxed values at cell i and j.
Definition: cs_convection_diffusion.h:1005
Set of parameters to handle an unsteady convection-diffusion-reaction equation with term sources...
Definition: cs_equation_param.h:186
static void cs_i_compute_quantities_vector(const cs_real_t bldfrp, const cs_real_3_t diipf, const cs_real_3_t djjpf, const cs_real_33_t gradi, const cs_real_33_t gradj, const cs_real_3_t pi, const cs_real_3_t pj, cs_real_t recoi[3], cs_real_t recoj[3], cs_real_t pip[3], cs_real_t pjp[3])
Reconstruct values in I' and J'.
Definition: cs_convection_diffusion.h:823
#define CS_ABS(a)
Definition: cs_defs.h:472
cs_field_t * cs_field_by_id(int id)
Return a pointer to a field based on its id.
Definition: cs_field.c:2314
static void cs_upwind_f_val_tensor(const cs_real_6_t p, cs_real_t pf[6])
Prepare value at face ij by using an upwind scheme.
Definition: cs_convection_diffusion.h:1069
static void cs_b_cd_unsteady(const cs_real_t bldfrp, const cs_real_3_t diipb, const cs_real_3_t gradi, const cs_real_t pi, cs_real_t *pip)
Handle preparation of boundary face values for the flux computation in case of an unsteady algorithm...
Definition: cs_convection_diffusion.h:4917
static void cs_i_conv_flux_vector(const int iconvp, const cs_real_t thetap, const int imasac, const cs_real_t pi[3], const cs_real_t pj[3], const cs_real_t pifri[3], const cs_real_t pifrj[3], const cs_real_t pjfri[3], const cs_real_t pjfrj[3], const cs_real_t i_massflux, cs_real_t fluxi[3], cs_real_t fluxj[3])
Add convective fluxes (substracting the mass accumulation from them) to fluxes at face ij...
Definition: cs_convection_diffusion.h:1359
cs_real_t cs_real_66_t[6][6]
6x6 matrix of floating-point values
Definition: cs_defs.h:343
static void cs_b_compute_quantities(const cs_real_3_t diipb, const cs_real_3_t gradi, const cs_real_t bldfrp, cs_real_t *recoi)
Reconstruct values in I' at boundary cell i.
Definition: cs_convection_diffusion.h:4228
void itrgrp(const int *const f_id, const int *const init, const int *const inc, const int *const imrgra, const int *const iccocg, const int *const nswrgp, const int *const imligp, const int *const iphydp, const int *const iwgrp, const int *const iwarnp, const cs_real_t *const epsrgp, const cs_real_t *const climgp, const cs_real_t *const extrap, cs_real_3_t frcxt[], cs_real_t pvar[], const cs_real_t coefap[], const cs_real_t coefbp[], const cs_real_t cofafp[], const cs_real_t cofbfp[], const cs_real_t i_visc[], const cs_real_t b_visc[], cs_real_t visel[], cs_real_t diverg[])
Definition: cs_convection_diffusion.c:750
static void cs_b_cd_steady(const cs_real_t bldfrp, const double relaxp, const cs_real_3_t diipb, const cs_real_3_t gradi, const cs_real_t pi, const cs_real_t pia, cs_real_t *pir, cs_real_t *pipr)
Handle preparation of boundary face values for the flux computation in case of a steady algorithm...
Definition: cs_convection_diffusion.h:4797
Definition: cs_convection_diffusion.h:68
static void cs_b_cd_unsteady_tensor(const cs_real_t bldfrp, const cs_real_3_t diipb, const cs_real_63_t gradi, const cs_real_6_t pi, cs_real_t pip[6])
Handle preparation of boundary face values for the flux computation in case of a steady algorithm...
Definition: cs_convection_diffusion.h:4978
void cs_slope_test_gradient_tensor(const int inc, const cs_halo_type_t halo_type, const cs_real_63_t *grad, cs_real_63_t *grdpa, const cs_real_6_t *pvar, const cs_real_6_t *coefa, const cs_real_66_t *coefb, const cs_real_t *i_massflux)
Compute the upwind gradient used in the slope tests.
Definition: cs_convection_diffusion.c:1328
static cs_real_t cs_nvd_scheme_scalar(const cs_nvd_type_t limiter, const cs_real_t nvf_p_c, const cs_real_t nvf_r_f, const cs_real_t nvf_r_c)
Compute the normalised face scalar using the specified NVD scheme.
Definition: cs_convection_diffusion.h:255
double precision pi
value with 16 digits
Definition: cstnum.f90:48
#define BEGIN_C_DECLS
Definition: cs_defs.h:510
void cs_face_convection_scalar(int idtvar, int f_id, const cs_var_cal_opt_t var_cal_opt, int icvflb, int inc, int iccocg, int imasac, cs_real_t *restrict pvar, const cs_real_t *restrict pvara, const int icvfli[], const cs_real_t coefap[], const cs_real_t coefbp[], const cs_real_t i_massflux[], const cs_real_t b_massflux[], cs_real_2_t i_conv_flux[], cs_real_t b_conv_flux[])
Update face flux with convection contribution of a standard transport equation of a scalar field ...
Definition: cs_convection_diffusion.c:3058
const cs_real_t cs_math_epzero
static void cs_b_imposed_conv_flux_vector(int iconvp, cs_real_t thetap, int imasac, int inc, int bc_type, int icvfli, const cs_real_t pi[restrict 3], const cs_real_t pir[restrict 3], const cs_real_t pipr[restrict 3], const cs_real_t coefap[restrict 3], const cs_real_t coefbp[restrict 3][3], const cs_real_t coface[restrict 3], const cs_real_t cofbce[restrict 3][3], cs_real_t b_massflux, cs_real_t flux[restrict 3])
Add convective flux (substracting the mass accumulation from it) to flux at boundary face...
Definition: cs_convection_diffusion.h:4462
static void cs_i_diff_flux(const int idiffp, const cs_real_t thetap, const cs_real_t pip, const cs_real_t pjp, const cs_real_t pipr, const cs_real_t pjpr, const cs_real_t i_visc, cs_real_t fluxij[2])
Add diffusive fluxes to fluxes at face ij.
Definition: cs_convection_diffusion.h:1449
static void cs_i_cd_unsteady_slope_test_vector(bool *upwind_switch, const int iconvp, const cs_real_t bldfrp, const int ischcp, const double blencp, const double blend_st, const cs_real_t weight, const cs_real_t i_dist, const cs_real_t i_face_surf, const cs_real_3_t cell_ceni, const cs_real_3_t cell_cenj, const cs_real_3_t i_face_normal, const cs_real_3_t i_face_cog, const cs_real_3_t diipf, const cs_real_3_t djjpf, const cs_real_t i_massflux, const cs_real_33_t gradi, const cs_real_33_t gradj, const cs_real_33_t grdpai, const cs_real_33_t grdpaj, const cs_real_3_t pi, const cs_real_3_t pj, cs_real_t pif[3], cs_real_t pjf[3], cs_real_t pip[3], cs_real_t pjp[3])
Handle preparation of internal face values for the fluxes computation in case of a unsteady algorithm...
Definition: cs_convection_diffusion.h:3914
#define CS_UNUSED(x)
Definition: cs_defs.h:496
static void cs_i_cd_unsteady_vector(const cs_real_t bldfrp, const int ischcp, const double blencp, const cs_real_t weight, const cs_real_3_t cell_ceni, const cs_real_3_t cell_cenj, const cs_real_3_t i_face_cog, const cs_real_t hybrid_blend_i, const cs_real_t hybrid_blend_j, const cs_real_3_t diipf, const cs_real_3_t djjpf, const cs_real_33_t gradi, const cs_real_33_t gradj, const cs_real_3_t pi, const cs_real_3_t pj, cs_real_t pif[3], cs_real_t pjf[3], cs_real_t pip[3], cs_real_t pjp[3])
Handle preparation of internal face values for the fluxes computation in case of an unsteady algorith...
Definition: cs_convection_diffusion.h:2611
static void cs_i_relax_c_val(const double relaxp, const cs_real_t pia, const cs_real_t pja, const cs_real_t recoi, const cs_real_t recoj, const cs_real_t pi, const cs_real_t pj, cs_real_t *pir, cs_real_t *pjr, cs_real_t *pipr, cs_real_t *pjpr)
Compute relaxed values at cell i and j.
Definition: cs_convection_diffusion.h:927
static void cs_i_conv_flux_tensor(const int iconvp, const cs_real_t thetap, const int imasac, const cs_real_t pi[6], const cs_real_t pj[6], const cs_real_t pifri[6], const cs_real_t pifrj[6], const cs_real_t pjfri[6], const cs_real_t pjfrj[6], const cs_real_t i_massflux, cs_real_t fluxi[6], cs_real_t fluxj[6])
Add convective fluxes (substracting the mass accumulation from them) to fluxes at face ij...
Definition: cs_convection_diffusion.h:1407
void cs_slope_test_gradient_vector(const int inc, const cs_halo_type_t halo_type, const cs_real_33_t *grad, cs_real_33_t *grdpa, const cs_real_3_t *pvar, const cs_real_3_t *coefa, const cs_real_33_t *coefb, const cs_real_t *i_massflux)
Compute the upwind gradient used in the slope tests.
Definition: cs_convection_diffusion.c:1173
double precision, dimension(ncharm), save beta
Definition: cpincl.f90:99
static void cs_centered_f_val(const double pnd, const cs_real_t pip, const cs_real_t pjp, cs_real_t *pf)
Prepare value at face ij by using a centered scheme.
Definition: cs_convection_diffusion.h:1088
static void cs_i_cd_steady(const cs_real_t bldfrp, const int ischcp, const double relaxp, const double blencp, const cs_real_t weight, const cs_real_t cell_ceni[3], const cs_real_t cell_cenj[3], const cs_real_t i_face_cog[3], const cs_real_t diipf[3], const cs_real_t djjpf[3], const cs_real_t gradi[3], const cs_real_t gradj[3], const cs_real_t gradupi[3], const cs_real_t gradupj[3], const cs_real_t pi, const cs_real_t pj, const cs_real_t pia, const cs_real_t pja, cs_real_t *pifri, cs_real_t *pifrj, cs_real_t *pjfri, cs_real_t *pjfrj, cs_real_t *pip, cs_real_t *pjp, cs_real_t *pipr, cs_real_t *pjpr)
Handle preparation of internal face values for the fluxes computation in case of a steady algorithm a...
Definition: cs_convection_diffusion.h:1964
integer(c_int), pointer, save idtvar
option for a variable time step
Definition: optcal.f90:383
static void cs_i_cd_steady_slope_test(bool *upwind_switch, const int iconvp, const cs_real_t bldfrp, const int ischcp, const double relaxp, const double blencp, const double blend_st, const cs_real_t weight, const cs_real_t i_dist, const cs_real_t i_face_surf, const cs_real_3_t cell_ceni, const cs_real_3_t cell_cenj, const cs_real_3_t i_face_normal, const cs_real_3_t i_face_cog, const cs_real_3_t diipf, const cs_real_3_t djjpf, const cs_real_t i_massflux, const cs_real_3_t gradi, const cs_real_3_t gradj, const cs_real_3_t gradupi, const cs_real_3_t gradupj, const cs_real_3_t gradsti, const cs_real_3_t gradstj, const cs_real_t pi, const cs_real_t pj, const cs_real_t pia, const cs_real_t pja, cs_real_t *pifri, cs_real_t *pifrj, cs_real_t *pjfri, cs_real_t *pjfrj, cs_real_t *pip, cs_real_t *pjp, cs_real_t *pipr, cs_real_t *pjpr)
Handle preparation of internal face values for the fluxes computation in case of a steady algorithm a...
Definition: cs_convection_diffusion.h:2877
void cs_anisotropic_left_diffusion_vector(int idtvar, int f_id, const cs_var_cal_opt_t var_cal_opt, int inc, int ivisep, cs_real_3_t *restrict pvar, const cs_real_3_t *restrict pvara, const cs_real_3_t coefav[], const cs_real_33_t coefbv[], const cs_real_3_t cofafv[], const cs_real_33_t cofbfv[], const cs_real_33_t i_visc[], const cs_real_t b_visc[], const cs_real_t i_secvis[], cs_real_3_t *restrict rhs)
Add explicit part of the terms of diffusion by a left-multiplying symmetric tensorial diffusivity for...
Definition: cs_convection_diffusion.c:8907
Definition: cs_field_pointer.h:67
void cs_math_3_length_unitv(const cs_real_t xa[3], const cs_real_t xb[3], cs_real_t *len, cs_real_3_t unitv)
Compute the length (Euclidean norm) between two points xa and xb in a Cartesian coordinate system of ...
Definition: cs_math.c:438
Definition: cs_convection_diffusion.h:63
cs_real_t * val
Definition: cs_field.h:146
#define CS_F_(e)
Macro used to return a field pointer by its enumerated value.
Definition: cs_field_pointer.h:51
Definition: cs_convection_diffusion.h:66
integer, dimension(:), allocatable icvfli
boundary convection flux indicator of a Rusanov or an analytical flux (some boundary contributions of...
Definition: cfpoin.f90:52
static void cs_blend_f_val_vector(const double blencp, const cs_real_3_t p, cs_real_t pf[3])
Blend face values for a centered or SOLU scheme with face values for an upwind scheme.
Definition: cs_convection_diffusion.h:1262
double cs_real_t
Floating-point value.
Definition: cs_defs.h:322
static void cs_solu_f_val_tensor(const cs_real_3_t cell_cen, const cs_real_3_t i_face_cog, const cs_real_63_t grad, const cs_real_6_t p, cs_real_t pf[6])
Prepare value at face ij by using a Second Order Linear Upwind scheme.
Definition: cs_convection_diffusion.h:1211
static void cs_i_cd_steady_slope_test_tensor(bool *upwind_switch, const int iconvp, const cs_real_t bldfrp, const int ischcp, const double relaxp, const double blencp, const double blend_st, const cs_real_t weight, const cs_real_t i_dist, const cs_real_t i_face_surf, const cs_real_3_t cell_ceni, const cs_real_3_t cell_cenj, const cs_real_3_t i_face_normal, const cs_real_3_t i_face_cog, const cs_real_3_t diipf, const cs_real_3_t djjpf, const cs_real_t i_massflux, const cs_real_63_t gradi, const cs_real_63_t gradj, const cs_real_63_t grdpai, const cs_real_63_t grdpaj, const cs_real_6_t pi, const cs_real_6_t pj, const cs_real_6_t pia, const cs_real_6_t pja, cs_real_t pifri[6], cs_real_t pifrj[6], cs_real_t pjfri[6], cs_real_t pjfrj[6], cs_real_t pip[6], cs_real_t pjp[6], cs_real_t pipr[6], cs_real_t pjpr[6])
Handle preparation of internal face values for the fluxes computation in case of a steady algorithm a...
Definition: cs_convection_diffusion.h:3360
static cs_real_t cs_math_3_square_norm(const cs_real_t v[3])
Compute the square norm of a vector of 3 real values.
Definition: cs_math.h:419
void itrmas(const int *const f_id, const int *const init, const int *const inc, const int *const imrgra, const int *const iccocg, const int *const nswrgp, const int *const imligp, const int *const iphydp, const int *const iwgrp, const int *const iwarnp, const cs_real_t *const epsrgp, const cs_real_t *const climgp, const cs_real_t *const extrap, cs_real_3_t frcxt[], cs_real_t pvar[], const cs_real_t coefap[], const cs_real_t coefbp[], const cs_real_t cofafp[], const cs_real_t cofbfp[], const cs_real_t i_visc[], const cs_real_t b_visc[], cs_real_t visel[], cs_real_t i_massflux[], cs_real_t b_massflux[])
Definition: cs_convection_diffusion.c:616
static void cs_solu_f_val_vector(const cs_real_3_t cell_cen, const cs_real_3_t i_face_cog, const cs_real_33_t grad, const cs_real_3_t p, cs_real_t pf[3])
Prepare value at face ij by using a Second Order Linear Upwind scheme.
Definition: cs_convection_diffusion.h:1179
static void cs_b_upwind_flux_vector(const int iconvp, const cs_real_t thetap, const int imasac, const int inc, const int bc_type, const cs_real_3_t pi, const cs_real_3_t pir, const cs_real_3_t pipr, const cs_real_3_t coefa, const cs_real_33_t coefb, const cs_real_t b_massflux, cs_real_t flux[3])
Add convective flux (substracting the mass accumulation from it) to flux at boundary face...
Definition: cs_convection_diffusion.h:4592
static cs_real_t cs_math_sq(cs_real_t x)
Compute the square of a real value.
Definition: cs_math.h:199
static void cs_i_cd_steady_slope_test_vector(bool *upwind_switch, const int iconvp, const cs_real_t bldfrp, const int ischcp, const double relaxp, const double blencp, const double blend_st, const cs_real_t weight, const cs_real_t i_dist, const cs_real_t i_face_surf, const cs_real_3_t cell_ceni, const cs_real_3_t cell_cenj, const cs_real_3_t i_face_normal, const cs_real_3_t i_face_cog, const cs_real_3_t diipf, const cs_real_3_t djjpf, const cs_real_t i_massflux, const cs_real_33_t gradi, const cs_real_33_t gradj, const cs_real_33_t grdpai, const cs_real_33_t grdpaj, const cs_real_3_t pi, const cs_real_3_t pj, const cs_real_3_t pia, const cs_real_3_t pja, cs_real_t pifri[3], cs_real_t pifrj[3], cs_real_t pjfri[3], cs_real_t pjfrj[3], cs_real_t pip[3], cs_real_t pjp[3], cs_real_t pipr[3], cs_real_t pjpr[3])
Handle preparation of internal face values for the fluxes computation in case of a steady algorithm a...
Definition: cs_convection_diffusion.h:3132
int cs_field_get_key_int(const cs_field_t *f, int key_id)
Return a integer value for a given key associated with a field.
Definition: cs_field.c:2991
static void cs_b_cd_steady_vector(const cs_real_t bldfrp, const double relaxp, const cs_real_3_t diipb, const cs_real_33_t gradi, const cs_real_3_t pi, const cs_real_3_t pia, cs_real_t pir[3], cs_real_t pipr[3])
Handle preparation of boundary face values for the flux computation in case of a steady algorithm...
Definition: cs_convection_diffusion.h:4838
static void cs_cell_courant_number(const int f_id, cs_real_t *courant)
Definition: cs_convection_diffusion.h:162
static void cs_blend_f_val_tensor(const double blencp, const cs_real_t p[6], cs_real_t pf[6])
Blend face values for a centered or SOLU scheme with face values for an upwind scheme.
Definition: cs_convection_diffusion.h:1283
static void cs_b_diff_flux_coupling(int idiffp, cs_real_t pi, cs_real_t pj, cs_real_t b_visc, cs_real_t *fluxi)
Add diffusive flux to flux at an internal coupling face.
Definition: cs_convection_diffusion.h:5009
int cs_field_key_id(const char *name)
Return an id associated with a given key name.
Definition: cs_field.c:2497
cs_equation_param_t * var_cal_opt
Definition: keywords.h:135
void cs_halo_sync_var(const cs_halo_t *halo, cs_halo_type_t sync_mode, cs_real_t var[])
Definition: cs_halo.c:1915
static void cs_i_cd_steady_vector(const cs_real_t bldfrp, const int ischcp, const double relaxp, const double blencp, const cs_real_t weight, const cs_real_3_t cell_ceni, const cs_real_3_t cell_cenj, const cs_real_3_t i_face_cog, const cs_real_3_t diipf, const cs_real_3_t djjpf, const cs_real_33_t gradi, const cs_real_33_t gradj, const cs_real_3_t pi, const cs_real_3_t pj, const cs_real_3_t pia, const cs_real_3_t pja, cs_real_t pifri[3], cs_real_t pifrj[3], cs_real_t pjfri[3], cs_real_t pjfrj[3], cs_real_t pip[3], cs_real_t pjp[3], cs_real_t pipr[3], cs_real_t pjpr[3])
Handle preparation of internal face values for the fluxes computation in case of a steady algorithm a...
Definition: cs_convection_diffusion.h:2145
static void cs_b_diff_flux_vector(const int idiffp, const cs_real_t thetap, const int inc, const cs_real_3_t pipr, const cs_real_3_t cofaf, const cs_real_33_t cofbf, const cs_real_t b_visc, cs_real_t flux[3])
Add diffusive flux to flux at boundary face.
Definition: cs_convection_diffusion.h:4726
double precision, dimension(ncharm), save b2
Definition: cpincl.f90:233
static void cs_i_diff_flux_vector(const int idiffp, const cs_real_t thetap, const cs_real_t pip[3], const cs_real_t pjp[3], const cs_real_t pipr[3], const cs_real_t pjpr[3], const cs_real_t i_visc, cs_real_t fluxi[3], cs_real_t fluxj[3])
Add diffusive fluxes to fluxes at face ij.
Definition: cs_convection_diffusion.h:1479
int iconv
Definition: cs_equation_param.h:446
static void cs_i_relax_c_val_vector(const double relaxp, const cs_real_3_t pia, const cs_real_3_t pja, const cs_real_3_t recoi, const cs_real_3_t recoj, const cs_real_3_t pi, const cs_real_3_t pj, cs_real_t pir[3], cs_real_t pjr[3], cs_real_t pipr[3], cs_real_t pjpr[3])
Compute relaxed values at cell i and j.
Definition: cs_convection_diffusion.h:965
static void cs_i_cd_unsteady_slope_test_tensor(bool *upwind_switch, const int iconvp, const cs_real_t bldfrp, const int ischcp, const double blencp, const double blend_st, const cs_real_t weight, const cs_real_t i_dist, const cs_real_t i_face_surf, const cs_real_3_t cell_ceni, const cs_real_3_t cell_cenj, const cs_real_3_t i_face_normal, const cs_real_3_t i_face_cog, const cs_real_3_t diipf, const cs_real_3_t djjpf, const cs_real_t i_massflux, const cs_real_63_t gradi, const cs_real_63_t gradj, const cs_real_63_t grdpai, const cs_real_63_t grdpaj, const cs_real_6_t pi, const cs_real_6_t pj, cs_real_t pif[6], cs_real_t pjf[6], cs_real_t pip[6], cs_real_t pjp[6])
Handle preparation of internal face values for the fluxes computation in case of a unsteady algorithm...
Definition: cs_convection_diffusion.h:4084
static void cs_i_cd_unsteady_nvd(const cs_nvd_type_t limiter, const double beta, const cs_real_3_t cell_cen_c, const cs_real_3_t cell_cen_d, const cs_real_3_t i_face_normal, const cs_real_3_t i_face_cog, const cs_real_3_t gradv_c, const cs_real_t p_c, const cs_real_t p_d, const cs_real_t local_max_c, const cs_real_t local_min_c, const cs_real_t courant_c, cs_real_t *pif, cs_real_t *pjf)
Handle preparation of internal face values for the convection flux computation in case of an unsteady...
Definition: cs_convection_diffusion.h:3787
Definition: cs_convection_diffusion.h:65
cs_lnum_t * group_index
Definition: cs_numbering.h:102
void cs_anisotropic_right_diffusion_vector(int idtvar, int f_id, const cs_var_cal_opt_t var_cal_opt, int inc, cs_real_3_t *restrict pvar, const cs_real_3_t *restrict pvara, const cs_real_3_t coefav[], const cs_real_33_t coefbv[], const cs_real_3_t cofafv[], const cs_real_33_t cofbfv[], const cs_real_t i_visc[], const cs_real_t b_visc[], cs_real_6_t *restrict viscel, const cs_real_2_t weighf[], const cs_real_t weighb[], cs_real_3_t *restrict rhs)
Add explicit part of the terms of diffusion by a right-multiplying symmetric tensorial diffusivity fo...
Definition: cs_convection_diffusion.c:9453
static void cs_b_relax_c_val_tensor(const double relaxp, const cs_real_6_t pi, const cs_real_6_t pia, const cs_real_6_t recoi, cs_real_t pir[6], cs_real_t pipr[6])
Compute relaxed values at boundary cell i.
Definition: cs_convection_diffusion.h:4352
static void cs_b_relax_c_val(const double relaxp, const cs_real_t pi, const cs_real_t pia, const cs_real_t recoi, cs_real_t *pir, cs_real_t *pipr)
Compute relaxed values at boundary cell i.
Definition: cs_convection_diffusion.h:4300
Definition: cs_field_pointer.h:65
static void cs_b_diff_flux_coupling_vector(int idiffp, const cs_real_t pi[3], const cs_real_t pj[3], cs_real_t b_visc, cs_real_t fluxi[3])
Add diffusive flux to flux at an internal coupling face for a vector.
Definition: cs_convection_diffusion.h:5032
cs_mesh_quantities_t * cs_glob_mesh_quantities
static void cs_b_imposed_conv_flux(int iconvp, cs_real_t thetap, int imasac, int inc, int bc_type, int icvfli, cs_real_t pi, cs_real_t pir, cs_real_t pipr, cs_real_t coefap, cs_real_t coefbp, cs_real_t coface, cs_real_t cofbce, cs_real_t b_massflux, cs_real_t xcpp, cs_real_t *flux)
Add convective flux (substracting the mass accumulation from it) to flux at boundary face...
Definition: cs_convection_diffusion.h:4392
static void cs_solu_f_val(const cs_real_3_t cell_cen, const cs_real_3_t i_face_cog, const cs_real_3_t grad, const cs_real_t p, cs_real_t *pf)
Prepare value at face ij by using a Second Order Linear Upwind scheme.
Definition: cs_convection_diffusion.h:1151
Definition: cs_mesh_quantities.h:89
double blencv
Definition: cs_equation_param.h:466
#define CS_MIN(a, b)
Definition: cs_defs.h:473
static void cs_i_cd_unsteady(const cs_real_t bldfrp, const int ischcp, const double blencp, const cs_real_t weight, const cs_real_3_t cell_ceni, const cs_real_3_t cell_cenj, const cs_real_3_t i_face_cog, const cs_real_t hybrid_blend_i, const cs_real_t hybrid_blend_j, const cs_real_3_t diipf, const cs_real_3_t djjpf, const cs_real_3_t gradi, const cs_real_3_t gradj, const cs_real_3_t gradupi, const cs_real_3_t gradupj, const cs_real_t pi, const cs_real_t pj, cs_real_t *pif, cs_real_t *pjf, cs_real_t *pip, cs_real_t *pjp)
Handle preparation of internal face values for the fluxes computation in case of a unsteady algorithm...
Definition: cs_convection_diffusion.h:2451
cs_halo_type_t
Definition: cs_halo.h:56
void cs_face_anisotropic_diffusion_potential(const int f_id, const cs_mesh_t *m, cs_mesh_quantities_t *fvq, int init, int inc, int imrgra, int iccocg, int nswrgp, int imligp, int ircflp, int iphydp, int iwgrp, int iwarnp, double epsrgp, double climgp, cs_real_3_t *restrict frcxt, cs_real_t *restrict pvar, const cs_real_t coefap[], const cs_real_t coefbp[], const cs_real_t cofafp[], const cs_real_t cofbfp[], const cs_real_t i_visc[], const cs_real_t b_visc[], cs_real_6_t *restrict viscel, const cs_real_2_t weighf[], const cs_real_t weighb[], cs_real_t *restrict i_massflux, cs_real_t *restrict b_massflux)
Add the explicit part of the pressure gradient term to the mass flux in case of anisotropic diffusion...
Definition: cs_convection_diffusion.c:11130
static void cs_b_upwind_flux(const int iconvp, const cs_real_t thetap, const int imasac, const int inc, const int bc_type, const cs_real_t pi, const cs_real_t pir, const cs_real_t pipr, const cs_real_t coefap, const cs_real_t coefbp, const cs_real_t b_massflux, const cs_real_t xcpp, cs_real_t *flux)
Add convective flux (substracting the mass accumulation from it) to flux at boundary face...
Definition: cs_convection_diffusion.h:4540
static void cs_b_cd_steady_tensor(const cs_real_t bldfrp, const double relaxp, const cs_real_3_t diipb, const cs_real_63_t gradi, const cs_real_6_t pi, const cs_real_6_t pia, cs_real_t pir[6], cs_real_t pipr[6])
Handle preparation of boundary face values for the flux computation in case of a steady algorithm...
Definition: cs_convection_diffusion.h:4879
Definition: cs_convection_diffusion.h:62
cs_lnum_t cs_lnum_2_t[2]
vector of 2 local mesh-entity ids
Definition: cs_defs.h:328
static cs_real_t cs_math_3_norm(const cs_real_t v[3])
Compute the euclidean norm of a vector of dimension 3.
Definition: cs_math.h:403
static void cs_i_conv_flux(const int iconvp, const cs_real_t thetap, const int imasac, const cs_real_t pi, const cs_real_t pj, const cs_real_t pifri, const cs_real_t pifrj, const cs_real_t pjfri, const cs_real_t pjfrj, const cs_real_t i_massflux, const cs_real_t xcppi, const cs_real_t xcppj, cs_real_2_t fluxij)
Add convective fluxes (substracting the mass accumulation from them) to fluxes at face ij...
Definition: cs_convection_diffusion.h:1315
static void cs_i_compute_quantities_tensor(const cs_real_t bldfrp, const cs_real_3_t diipf, const cs_real_3_t djjpf, const cs_real_63_t gradi, const cs_real_63_t gradj, const cs_real_6_t pi, const cs_real_6_t pj, cs_real_t recoi[6], cs_real_t recoj[6], cs_real_t pip[6], cs_real_t pjp[6])
Reconstruct values in I' and J'.
Definition: cs_convection_diffusion.h:875
static void cs_centered_f_val_vector(const double pnd, const cs_real_3_t pip, const cs_real_3_t pjp, cs_real_t pf[3])
Prepare value at face ij by using a centered scheme.
Definition: cs_convection_diffusion.h:1108
static cs_real_t cs_nvd_vof_scheme_scalar(const cs_nvd_type_t limiter, const cs_real_3_t i_face_normal, const cs_real_t nvf_p_c, const cs_real_t nvf_r_f, const cs_real_t nvf_r_c, const cs_real_3_t gradv_c, const cs_real_t c_courant)
Compute the normalised face scalar using the specified NVD scheme for the case of a Volume-of-Fluid (...
Definition: cs_convection_diffusion.h:440
cs_real_t cs_real_3_t[3]
vector of 3 floating-point values
Definition: cs_defs.h:335
static void cs_i_cd_steady_upwind(const cs_real_t bldfrp, const cs_real_t relaxp, const cs_real_t diipf[3], const cs_real_t djjpf[3], const cs_real_t gradi[3], const cs_real_t gradj[3], const cs_real_t pi, const cs_real_t pj, const cs_real_t pia, const cs_real_t pja, cs_real_t *pifri, cs_real_t *pifrj, cs_real_t *pjfri, cs_real_t *pjfrj, cs_real_t *pip, cs_real_t *pjp, cs_real_t *pipr, cs_real_t *pjpr)
Handle preparation of internal face values for the fluxes computation in case of a steady algorithm a...
Definition: cs_convection_diffusion.h:1555
static void cs_i_compute_quantities(const cs_real_t bldfrp, const cs_real_3_t diipf, const cs_real_3_t djjpf, const cs_real_3_t gradi, const cs_real_3_t gradj, const cs_real_t pi, const cs_real_t pj, cs_real_t *recoi, cs_real_t *recoj, cs_real_t *pip, cs_real_t *pjp)
Reconstruct values in I' and J'.
Definition: cs_convection_diffusion.h:781
static cs_real_t * cs_get_v_slope_test(int f_id, const cs_var_cal_opt_t var_cal_opt)
Definition: cs_convection_diffusion.h:114
static void cs_b_upwind_flux_tensor(const int iconvp, const cs_real_t thetap, const int imasac, const int inc, const int bc_type, const cs_real_6_t pi, const cs_real_6_t pir, const cs_real_6_t pipr, const cs_real_6_t coefa, const cs_real_66_t coefb, const cs_real_t b_massflux, cs_real_t flux[6])
Add convective flux (substracting the mass accumulation from it) to flux at boundary face...
Definition: cs_convection_diffusion.h:4648
int n_groups
Definition: cs_numbering.h:94
int isstpc
Definition: cs_equation_param.h:456
void cs_anisotropic_diffusion_potential(const int f_id, const cs_mesh_t *m, cs_mesh_quantities_t *fvq, int init, int inc, int imrgra, int iccocg, int nswrgp, int imligp, int ircflp, int iphydp, int iwgrp, int iwarnp, double epsrgp, double climgp, cs_real_3_t *restrict frcxt, cs_real_t *restrict pvar, const cs_real_t coefap[], const cs_real_t coefbp[], const cs_real_t cofafp[], const cs_real_t cofbfp[], const cs_real_t i_visc[], const cs_real_t b_visc[], cs_real_6_t *restrict viscel, const cs_real_2_t weighf[], const cs_real_t weighb[], cs_real_t *restrict diverg)
Add the explicit part of the divergence of the mass flux due to the pressure gradient (routine analog...
Definition: cs_convection_diffusion.c:11993
Definition: cs_convection_diffusion.h:74
void cs_slope_test_gradient(int f_id, int inc, cs_halo_type_t halo_type, const cs_real_3_t *grad, cs_real_3_t *grdpa, const cs_real_t *pvar, const cs_real_t *coefap, const cs_real_t *coefbp, const cs_real_t *i_massflux)
Compute the upwind gradient used in the slope tests.
Definition: cs_convection_diffusion.c:901
static void cs_slope_test_vector(const cs_real_t pi[3], const cs_real_t pj[3], const cs_real_t distf, const cs_real_t srfan, const cs_real_t i_face_normal[3], const cs_real_t gradi[3][3], const cs_real_t gradj[3][3], const cs_real_t gradsti[3][3], const cs_real_t gradstj[3][3], const cs_real_t i_massflux, cs_real_t *testij, cs_real_t *tesqck)
Compute slope test criteria at internal face between cell i and j.
Definition: cs_convection_diffusion.h:641
void cs_convection_diffusion_tensor(int idtvar, int f_id, const cs_var_cal_opt_t var_cal_opt, int icvflb, int inc, int imasac, cs_real_6_t *restrict pvar, const cs_real_6_t *restrict pvara, const cs_real_6_t coefa[], const cs_real_66_t coefb[], const cs_real_6_t cofaf[], const cs_real_66_t cofbf[], const cs_real_t i_massflux[], const cs_real_t b_massflux[], const cs_real_t i_visc[], const cs_real_t b_visc[], cs_real_6_t *restrict rhs)
Add the explicit part of the convection/diffusion terms of a transport equation of a vector field ...
Definition: cs_convection_diffusion.c:5857
double precision, save fmin
Definition: coincl.f90:180
int cs_lnum_t
local mesh entity id
Definition: cs_defs.h:316
cs_lnum_t n_cells_with_ghosts
Definition: cs_mesh.h:150
Definition: cs_convection_diffusion.h:70
static cs_real_t cs_math_3_square_distance(const cs_real_t xa[3], const cs_real_t xb[3])
Compute the squared distance between two points xa and xb in a Cartesian coordinate system of dimensi...
Definition: cs_math.h:310
static void cs_i_cd_steady_tensor(const cs_real_t bldfrp, const int ischcp, const double relaxp, const double blencp, const cs_real_t weight, const cs_real_3_t cell_ceni, const cs_real_3_t cell_cenj, const cs_real_3_t i_face_cog, const cs_real_3_t diipf, const cs_real_3_t djjpf, const cs_real_63_t gradi, const cs_real_63_t gradj, const cs_real_6_t pi, const cs_real_6_t pj, const cs_real_6_t pia, const cs_real_6_t pja, cs_real_t pifri[6], cs_real_t pifrj[6], cs_real_t pjfri[6], cs_real_t pjfrj[6], cs_real_t pip[6], cs_real_t pjp[6], cs_real_t pipr[6], cs_real_t pjpr[6])
Handle preparation of internal face values for the fluxes computation in case of a steady algorithm a...
Definition: cs_convection_diffusion.h:2298
#define END_C_DECLS
Definition: cs_defs.h:511
Definition: cs_convection_diffusion.h:67
Definition: cs_convection_diffusion.h:72
static void cs_i_cd_steady_upwind_tensor(const cs_real_t bldfrp, const cs_real_t relaxp, const cs_real_t diipf[3], const cs_real_t djjpf[3], const cs_real_t gradi[6][3], const cs_real_t gradj[6][3], const cs_real_t pi[6], const cs_real_t pj[6], const cs_real_t pia[6], const cs_real_t pja[6], cs_real_t pifri[6], cs_real_t pifrj[6], cs_real_t pjfri[6], cs_real_t pjfrj[6], cs_real_t pip[6], cs_real_t pjp[6], cs_real_t pipr[6], cs_real_t pjpr[6])
Handle preparation of internal face values for the fluxes computation in case of a steady algorithm a...
Definition: cs_convection_diffusion.h:1721
cs_numbering_t * b_face_numbering
Definition: cs_mesh.h:162
cs_numbering_t * i_face_numbering
Definition: cs_mesh.h:161
#define CS_PROCF(x, y)
Definition: cs_defs.h:524
#define CS_MAX(a, b)
Definition: cs_defs.h:474
Definition: cs_parameters.h:93
int n_threads
Definition: cs_numbering.h:93
void cs_diffusion_potential(const int f_id, const cs_mesh_t *m, cs_mesh_quantities_t *fvq, int init, int inc, int imrgra, int iccocg, int nswrgp, int imligp, int iphydp, int iwgrp, int iwarnp, double epsrgp, double climgp, cs_real_3_t *restrict frcxt, cs_real_t *restrict pvar, const cs_real_t coefap[], const cs_real_t coefbp[], const cs_real_t cofafp[], const cs_real_t cofbfp[], const cs_real_t i_visc[], const cs_real_t b_visc[], cs_real_t visel[], cs_real_t *restrict diverg)
Update the cell mass flux divergence with the face pressure (or pressure increment, or pressure double increment) gradient.
Definition: cs_convection_diffusion.c:11615
integer, save kimasf
interior and boundary convective mass flux key ids of the variables
Definition: numvar.f90:187
cs_real_t cs_real_33_t[3][3]
3x3 matrix of floating-point values
Definition: cs_defs.h:342
static void cs_b_cd_unsteady_vector(const cs_real_t bldfrp, const cs_real_3_t diipb, const cs_real_33_t gradi, const cs_real_3_t pi, cs_real_t pip[3])
Handle preparation of boundary face values for the flux computation in case of a steady algorithm...
Definition: cs_convection_diffusion.h:4947
Definition: cs_convection_diffusion.h:71
Definition: cs_convection_diffusion.h:61
Definition: cs_convection_diffusion.h:64
void cs_convection_diffusion_scalar(int idtvar, int f_id, const cs_var_cal_opt_t var_cal_opt, int icvflb, int inc, int iccocg, int imasac, cs_real_t *restrict pvar, const cs_real_t *restrict pvara, const int icvfli[], const cs_real_t coefap[], const cs_real_t coefbp[], const cs_real_t cofafp[], const cs_real_t cofbfp[], const cs_real_t i_massflux[], const cs_real_t b_massflux[], const cs_real_t i_visc[], const cs_real_t b_visc[], cs_real_t *restrict rhs)
Add the explicit part of the convection/diffusion terms of a standard transport equation of a scalar ...
Definition: cs_convection_diffusion.c:1625
cs_real_t cs_real_63_t[6][3]
Definition: cs_defs.h:350
cs_real_t * cell_vol
Definition: cs_mesh_quantities.h:92
static void cs_i_diff_flux_tensor(const int idiffp, const cs_real_t thetap, const cs_real_t pip[6], const cs_real_t pjp[6], const cs_real_t pipr[6], const cs_real_t pjpr[6], const cs_real_t i_visc, cs_real_t fluxi[6], cs_real_t fluxj[6])
Add diffusive fluxes to fluxes at face ij.
Definition: cs_convection_diffusion.h:1512
integer, save kbmasf
Definition: numvar.f90:187
static void cs_b_compute_quantities_vector(const cs_real_3_t diipb, const cs_real_33_t gradi, const cs_real_t bldfrp, cs_real_t recoi[3])
Reconstruct values in I' at boundary cell i.
Definition: cs_convection_diffusion.h:4250
cs_lnum_2_t * i_face_cells
Definition: cs_mesh.h:110
void itrmav(const int *const f_id, const int *const init, const int *const inc, const int *const imrgra, const int *const iccocg, const int *const nswrgp, const int *const imligp, const int *const ircflp, const int *const iphydp, const int *const iwgrp, const int *const iwarnp, const cs_real_t *const epsrgp, const cs_real_t *const climgp, const cs_real_t *const extrap, cs_real_3_t frcxt[], cs_real_t pvar[], const cs_real_t coefap[], const cs_real_t coefbp[], const cs_real_t cofafp[], const cs_real_t cofbfp[], const cs_real_t i_visc[], const cs_real_t b_visc[], cs_real_6_t viscel[], const cs_real_2_t weighf[], const cs_real_t weighb[], cs_real_t i_massflux[], cs_real_t b_massflux[])
Definition: cs_convection_diffusion.c:680
static void cs_slope_test(const cs_real_t pi, const cs_real_t pj, const cs_real_t distf, const cs_real_t srfan, const cs_real_t i_face_normal[3], const cs_real_t gradi[3], const cs_real_t gradj[3], const cs_real_t grdpai[3], const cs_real_t grdpaj[3], const cs_real_t i_massflux, cs_real_t *testij, cs_real_t *tesqck)
Compute slope test criteria at internal face between cell i and j.
Definition: cs_convection_diffusion.h:575
static void cs_upwind_f_val(const cs_real_t p, cs_real_t *pf)
Prepare value at face ij by using an upwind scheme.
Definition: cs_convection_diffusion.h:1036
void cs_beta_limiter_building(int f_id, int inc, const cs_real_t rovsdt[])
Compute the beta blending coefficient of the beta limiter (ensuring preservation of a given min/max p...
Definition: cs_convection_diffusion.c:1474
void cs_convection_diffusion_thermal(int idtvar, int f_id, const cs_var_cal_opt_t var_cal_opt, int inc, int iccocg, int imasac, cs_real_t *restrict pvar, const cs_real_t *restrict pvara, const cs_real_t coefap[], const cs_real_t coefbp[], const cs_real_t cofafp[], const cs_real_t cofbfp[], const cs_real_t i_massflux[], const cs_real_t b_massflux[], const cs_real_t i_visc[], const cs_real_t b_visc[], const cs_real_t xcpp[], cs_real_t *restrict rhs)
Add the explicit part of the convection/diffusion terms of a transport equation of a scalar field su...
Definition: cs_convection_diffusion.c:6820
double precision, dimension(ncharm), save b1
Definition: cpincl.f90:233
static void cs_b_diff_flux(const int idiffp, const cs_real_t thetap, const int inc, const cs_real_t pipr, const cs_real_t cofafp, const cs_real_t cofbfp, const cs_real_t b_visc, cs_real_t *flux)
Add diffusive flux to flux at boundary face.
Definition: cs_convection_diffusion.h:4697
void cs_upwind_gradient(const int f_id, const int inc, const cs_halo_type_t halo_type, const cs_real_t coefap[], const cs_real_t coefbp[], const cs_real_t i_massflux[], const cs_real_t b_massflux[], const cs_real_t *restrict pvar, cs_real_3_t *restrict grdpa)
Compute the upwind gradient in order to cope with SOLU schemes observed in the litterature.
Definition: cs_convection_diffusion.c:1043
Definition: cs_convection_diffusion.h:69
static void cs_i_cd_unsteady_upwind_tensor(const cs_real_t bldfrp, const cs_real_t diipf[3], const cs_real_t djjpf[3], const cs_real_t gradi[6][3], const cs_real_t gradj[6][3], const cs_real_t pi[6], const cs_real_t pj[6], cs_real_t pif[6], cs_real_t pjf[6], cs_real_t pip[6], cs_real_t pjp[6])
Handle preparation of internal face values for the fluxes computation in case of an unsteady algorith...
Definition: cs_convection_diffusion.h:1897
integer(c_int), pointer, save imrgra
type of gradient reconstruction
Definition: optcal.f90:260
static void cs_i_cd_unsteady_slope_test(bool *upwind_switch, const int iconvp, const cs_real_t bldfrp, const int ischcp, const double blencp, const double blend_st, const cs_real_t weight, const cs_real_t i_dist, const cs_real_t i_face_surf, const cs_real_3_t cell_ceni, const cs_real_3_t cell_cenj, const cs_real_3_t i_face_normal, const cs_real_3_t i_face_cog, const cs_real_3_t diipf, const cs_real_3_t djjpf, const cs_real_t i_massflux, const cs_real_3_t gradi, const cs_real_3_t gradj, const cs_real_3_t gradupi, const cs_real_3_t gradupj, const cs_real_3_t gradsti, const cs_real_3_t gradstj, const cs_real_t pi, const cs_real_t pj, cs_real_t *pif, cs_real_t *pjf, cs_real_t *pip, cs_real_t *pjp)
Handle preparation of internal face values for the fluxes computation in case of a steady algorithm a...
Definition: cs_convection_diffusion.h:3586
cs_halo_t * halo
Definition: cs_mesh.h:155
static void cs_b_relax_c_val_vector(const double relaxp, const cs_real_3_t pi, const cs_real_3_t pia, const cs_real_3_t recoi, cs_real_t pir[3], cs_real_t pipr[3])
Compute relaxed values at boundary cell i.
Definition: cs_convection_diffusion.h:4325
static void cs_blend_f_val(const double blencp, const cs_real_t p, cs_real_t *pf)
Blend face values for a centered or SOLU scheme with face values for an upwind scheme.
Definition: cs_convection_diffusion.h:1242
cs_lnum_t * b_face_cells
Definition: cs_mesh.h:111
Definition: cs_convection_diffusion.h:73
static void cs_i_cd_unsteady_upwind(const cs_real_t bldfrp, const cs_real_t diipf[3], const cs_real_t djjpf[3], const cs_real_t gradi[3], const cs_real_t gradj[3], const cs_real_t pi, const cs_real_t pj, cs_real_t *pif, cs_real_t *pjf, cs_real_t *pip, cs_real_t *pjp)
Handle preparation of internal face values for the fluxes computation in case of an unsteady algorith...
Definition: cs_convection_diffusion.h:1797