/dports/science/code_saturne/code_saturne-7.1.0/src/base/ |
H A D | cs_gas_mix_initialization.f90 | 92 call field_get_val_s(icp, cpro_cp) 136 cpro_cp(iel) = 0.d0 156 cpro_cp(iel) = cpro_cp(iel) + cvar_yk(iel)*s_k%cp 170 cpro_cp(iel) = cpro_cp(iel) + y_d(iel)*s_d%cp 174 cvar_enth(iel) = cpro_cp(iel)*t0
|
H A D | cs_ht_convert.c | 178 const cs_real_t *cpro_cp = f_cp->val; in cs_ht_convert_h_to_t_cells() local 180 t[i] = h[i] / cpro_cp[i]; in cs_ht_convert_h_to_t_cells() 200 const cs_real_t *cpro_cp = f_cp->val; in cs_ht_convert_h_to_t_cells() local 203 t[i] = h[i] / cpro_cp[i]; in cs_ht_convert_h_to_t_cells() 338 const cs_real_t *cpro_cp = f_cp->val; in cs_ht_convert_h_to_t_faces() local 341 t[i] = h[i] / cpro_cp[c_id]; in cs_ht_convert_h_to_t_faces() 364 const cs_real_t *cpro_cp = f_cp->val; in cs_ht_convert_h_to_t_faces() local 368 t[i] = h[i] / cpro_cp[c_id]; in cs_ht_convert_h_to_t_faces() 451 const cs_real_t *cpro_cp = f_cp->val; in cs_ht_convert_t_to_h_faces_l() local 455 h[f_id] = t[f_id] * cpro_cp[c_id]; in cs_ht_convert_t_to_h_faces_l() [all …]
|
H A D | cs_gas_mix_physical_properties.f90 | 133 call field_get_val_s(icp, cpro_cp) 198 cpro_cp(iel) = 0.d0 253 cpro_cp(iel) = cpro_cp(iel) + cvar_yk(iel)*s_k(iesp)%cp 259 cpro_cp(iel) = cpro_cp(iel) + y_d(iel)*s_d%cp 284 tempk(iel) = cvar_enth(iel)/ cpro_cp(iel) 412 cpro_venth(iel) = lambda(iel)/cpro_cp(iel)
|
H A D | copain_model.f90 | 203 call field_get_val_s(icp, cpro_cp) 301 ratio_tkpr = ((cvar_enth(iel)/cpro_cp(iel))**1.75d0)/pther 303 ratio_tkpr = ((cvar_enth(iel)/cpro_cp(iel))**1.75d0)/p0 374 tinf = cvar_enth(iel)/cpro_cp(iel) - tkelvi 522 lambda = cpro_venth(iel)*cpro_cp(iel) 535 /cpro_cp(iel) 576 flux = hpcond(ii)*cpro_cp(iel)*(tinf-t_wall) &
|
H A D | schtmp.f90 | 318 call field_get_val_s(icp, cpro_cp) 322 varcp = cpro_cp(iel) 323 cpro_cp(iel) = (1.d0+theta) * cpro_cp(iel) & 511 call field_get_val_s(icp, cpro_cp) 514 cpro_cp(iel) = cproa_cp(iel)
|
H A D | metal_structures_copain_model.f90 | 196 call field_get_val_s(icp, cpro_cp) 293 ratio_tkpr = ((cvar_enth(iel)/cpro_cp(iel))**1.75d0)/pther 351 tinf = cvar_enth(iel)/cpro_cp(iel) - tkelvi 448 lambda = cpro_venth(iel)*cpro_cp(iel)
|
H A D | cs_tagmri.f90 | 148 call field_get_val_s(icp, cpro_cp) 162 enthal = (temper + tkelvi) * cpro_cp(iel)
|
H A D | cou1do.f90 | 105 call field_get_val_s(icp, cpro_cp)
|
H A D | clptrg.f90 | 464 call field_get_val_s(icp, cpro_cp) 767 cpp = cpro_cp(iel) 1778 call field_get_val_s(icp, cpro_cp) 1910 cpp = cpro_cp(iel) 1933 prdtl = prdtl*cpro_cp(iel) 1949 cpscv = cpro_cp(iel) 1968 cpscv = cpro_cp(iel) 2107 exchange_coef = hflui*cpro_cp(iel)
|
H A D | clptur.f90 | 449 call field_get_val_s(icp, cpro_cp) 779 cpp = cpro_cp(iel) 2200 call field_get_val_s(icp, cpro_cp) 2365 cpp = cpro_cp(iel) 2388 prdtl = prdtl*cpro_cp(iel) 2404 cpscv = cpro_cp(iel) 2423 cpscv = cpro_cp(iel) 2559 cpp = cpro_cp(iel) 2654 exchange_coef = hflui*cpro_cp(iel) 2987 call field_get_val_s(icp, cpro_cp) [all …]
|
H A D | iniva0.f90 | 206 call field_get_val_s(icp, cpro_cp) 208 cpro_cp(iel) = cp0
|
/dports/science/code_saturne/code_saturne-7.1.0/src/user_examples/ |
H A D | cs_user_coupling-syrthes.c | 226 const cs_real_t *cpro_cp = NULL, *cpro_viscls = NULL; in cs_user_syrthes_coupling_volume_h() local 230 cpro_cp = (const cs_real_t *)CS_F_(cp)->val; in cs_user_syrthes_coupling_volume_h() 234 cpro_cp = &cp0; in cs_user_syrthes_coupling_volume_h() 270 cs_real_t cp = cpro_cp[c_id*cp_step]; in cs_user_syrthes_coupling_volume_h()
|
H A D | cs_user_boundary_mass_source_terms-condensation.f90 | 289 if (icp.ge.0) call field_get_val_s(icp, cpro_cp) 330 tk = cvar_h(iel)/cpro_cp(iel)
|
H A D | cs_user_physical_properties.c | 94 cs_real_t *cpro_cp = CS_F_(cp)->val; in cs_user_physical_properties() local 105 cpro_cp[cell_id] = 444.; in cs_user_physical_properties()
|
H A D | cs_user_boundary_mass_source_terms-nzones_condensation.f90 | 325 if (icp.ge.0) call field_get_val_s(icp, cpro_cp) 388 tk = cvar_h(iel)/cpro_cp(iel)
|
H A D | cs_user_metal_structures_source_terms-condensation.f90 | 209 tk = cvar_h(iel)/cpro_cp(iel)
|
H A D | cs_user_physical_properties-compressible_flow.f90 | 313 cpro_cp(iel) = varac*xvart + varbc
|
/dports/science/code_saturne/code_saturne-7.1.0/src/cfbl/ |
H A D | cfrusb.f90 | 127 call field_get_val_s(icp, cpro_cp) 128 c_cp(1) = cpro_cp(iel) 130 cpro_cp => rvoid1
|
H A D | cfiniv.f90 | 92 call field_get_val_s(icp, cpro_cp) 96 call cs_cf_thermo_cv(cpro_cp, mix_mol_mas, cpro_cv, ncel)
|
H A D | cfphyv.f90 | 101 call field_get_val_s(icp, cpro_cp) 105 call cs_cf_thermo_cv(cpro_cp, mix_mol_mas, cpro_cv, ncel)
|
H A D | cfdttv.f90 | 148 call field_get_val_s(icp, cpro_cp) 150 cpro_cp => rvoid1
|
H A D | cfmspr.f90 | 208 call field_get_val_s(icp, cpro_cp) 210 cpro_cp => rvoid1
|
H A D | cs_cf_thermo.c | 1720 cs_real_t *cpro_cp = NULL; in cs_cf_thermo() local 1726 cpro_cp = (cs_real_t *)CS_F_(cp)->val; in cs_cf_thermo() 1727 if (face_id >= 0) cpb = cpro_cp[cell_id]; in cs_cf_thermo() 1750 cs_cf_thermo_te_from_dp(cpro_cp, cpro_cv, cvar_pr, crom, cvar_tk, cvar_en, in cs_cf_thermo() 1756 cs_cf_thermo_de_from_pt(cpro_cp, cpro_cv, cvar_pr, cvar_tk, crom, cvar_en, in cs_cf_thermo() 1761 cs_cf_thermo_dt_from_pe(cpro_cp, cpro_cv, cvar_pr, cvar_en, crom, cvar_tk, in cs_cf_thermo() 1766 cs_cf_thermo_pe_from_dt(cpro_cp, cpro_cv, crom, cvar_tk, cvar_pr, cvar_en, in cs_cf_thermo() 1771 cs_cf_thermo_pt_from_de(cpro_cp, cpro_cv, crom, in cs_cf_thermo()
|
/dports/science/code_saturne/code_saturne-7.1.0/src/alge/ |
H A D | cs_balance_by_zone.c | 856 cs_real_t *cpro_cp = NULL; in cs_balance_by_zone_compute() local 860 cpro_cp = CS_F_(cp)->val; in cs_balance_by_zone_compute() 865 cpro_cp[c_id] = cp0; in cs_balance_by_zone_compute() 872 cpro_cp[c_id] = 1.; in cs_balance_by_zone_compute() 1287 * cpro_cp[c_id]; in cs_balance_by_zone_compute() 1609 BFT_FREE(cpro_cp); in cs_balance_by_zone_compute() 2613 cs_real_t *cpro_cp = NULL; in cs_flux_through_surface() local 2617 cpro_cp = CS_F_(cp)->val; in cs_flux_through_surface() 2622 cpro_cp[c_id] = cp0; in cs_flux_through_surface() 2629 cpro_cp[c_id] = 1.; in cs_flux_through_surface() [all …]
|
/dports/science/code_saturne/code_saturne-7.1.0/src/comb/ |
H A D | cs_fuel_masstransfer.f90 | 144 if ( icp.ge.0 ) call field_get_val_s(icp, cpro_cp) 151 lambda = cpro_viscls(iel) * cpro_cp(iel) 157 lambda = visls_0 * cpro_cp(iel)
|