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:347
int cs_lnum_t
local mesh entity id
Definition: cs_defs.h:325
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:97
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:2103
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:445
double t0
Definition: cs_physical_constants.h:82
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:136