The cs_user_1d_wall_thermal subroutine is used to set the 1D-wall thermal module parameters.
Local variables declaration
int izone, ifbt1d;
cs_1d_wall_thermal_t * cs_get_glob_1d_wall_thermal(void)
Provide access to cs_glob_1d_wall_thermal.
Definition: cs_1d_wall_thermal.c:1221
cs_real_t cs_real_3_t[3]
vector of 3 floating-point values
Definition: cs_defs.h:334
int cs_lnum_t
local mesh entity id
Definition: cs_defs.h:313
cs_mesh_quantities_t * cs_glob_mesh_quantities
double precision, dimension(:,:), pointer cdgfbo
coordinates of the centers of the boundary faces
Definition: mesh.f90:104
1D wall thermal module descriptor.
Definition: cs_1d_wall_thermal.h:102
cs_real_t * b_face_cog
Definition: cs_mesh_quantities.h:111
cs_lnum_t * b_face_cells
Definition: cs_mesh.h:112
cs_lnum_t n_b_faces
Definition: cs_mesh.h:99
Allocation
#define BFT_MALLOC(_ptr, _ni, _type)
Allocate memory for _ni elements of type _type.
Definition: bft_mem.h:62
Rereading of the restart file
izone = 0;
ifbt1d = 0;
int cs_restart_present(void)
Check if we have a restart directory.
Definition: cs_restart.c:2097
integer, save isuit1
For the 1D wall thermal module, activation (1) or not(0) of the reading of the mesh and of the wall t...
Definition: optcal.f90:174
iappel = 1 or 2
if (iappel == 1 || iappel == 2) {
&nlelt, lstelt);
izone++;
for (
cs_lnum_t ilelt = 0 ; ilelt < nlelt ; ilelt++) {
wall_thermal->izft1d[ifac-1] = izone;
if (iappel == 2) wall_thermal->ifpt1d[ifbt1d] = ifac;
ifbt1d++;
}
}
if (iappel == 1) {
wall_thermal->nfpt1d = ifbt1d;
}
void cs_selector_get_b_face_num_list(const char *criteria, cs_lnum_t *n_b_faces, cs_lnum_t b_face_num_list[])
Definition: cs_selector.c:89
iappel = 2
if (iappel == 2) {
for (
cs_lnum_t ii = 0 ; ii < wall_thermal->nfpt1d ; ii++) {
wall_thermal->local_models[ii].nppt1d = 8;
wall_thermal->local_models[ii].eppt1d = 0.01144;
wall_thermal->local_models[ii].rgpt1d = 1.;
}
}
const cs_fluid_properties_t * cs_glob_fluid_properties
Definition: cs_physical_constants.c:424
double t0
Definition: cs_physical_constants.h:80
iappel = 3
if (iappel == 3) {
for (
cs_lnum_t ii = 0 ; ii < wall_thermal->nfpt1d ; ii++) {
wall_thermal->local_models[ii].iclt1d = 1;
cs_lnum_t face_id = wall_thermal->ifpt1d[ii] - 1;
if (
cdgfbo[face_id][2] <= 1.e-3) {
wall_thermal->local_models[ii].xlmbt1 = 0.16;
wall_thermal->local_models[ii].rcpt1d = 790.*900.;
} else {
wall_thermal->local_models[ii].xlmbt1 = 0.11;
wall_thermal->local_models[ii].rcpt1d = 670.*778.;
}
wall_thermal->local_models[ii].dtpt1d =
CS_F_(
dt)->val[c_id];
}
}
@ dt
Definition: cs_field_pointer.h:65
#define CS_F_(e)
Macro used to return a field pointer by its enumerated value.
Definition: cs_field_pointer.h:51
Deallocation
#define BFT_FREE(_ptr)
Free allocated memory.
Definition: bft_mem.h:101