No shear wall
Posted: Thu Apr 20, 2017 11:31 am
Hello everyone,
I need to impose a "no-shear wall" boundary condition with uniform temperature in a test simulation. I have found a ready-made recipe for it in the user manual (for version 4, in the notes at page 74), which I implemented as follows in cs_user_boundary_conditions:
where constant_T_boundaries and T_boundary are defined in cs_user_modules.
That does not seem to work: if I plot the boundary temperature field on that boundary surface, I get a very patchy distribution, as shown in the picture attached (it is supposed to be 30 C everywhere).
Can you spot any problem in my code?
Thanks in advance and regards,
Cosimo
I need to impose a "no-shear wall" boundary condition with uniform temperature in a test simulation. I have found a ready-made recipe for it in the user manual (for version 4, in the notes at page 74), which I implemented as follows in cs_user_boundary_conditions:
Code: Select all
if (constant_temperature_applied) then
boundaryselection = constant_T_boundaries
allocate(lstelt(nfabor))
call getfbr(boundaryselection, nlelt, lstelt)
do ilelt = 1, nlelt
ifac = lstelt(ilelt)
iel = ifabor(ifac)
itypfb(ifac) = isymet
icodcl(ifac,isca(iscalt)) = 1
rcodcl(ifac,isca(iscalt),1) = T_boundary
end do
end if
where constant_T_boundaries and T_boundary are defined in cs_user_modules.
That does not seem to work: if I plot the boundary temperature field on that boundary surface, I get a very patchy distribution, as shown in the picture attached (it is supposed to be 30 C everywhere).
Can you spot any problem in my code?
Thanks in advance and regards,
Cosimo