Fan with radiation (usray5.f90)
Posted: Fri Sep 07, 2012 12:04 pm
Hello,
I don't really have a problem with my simulation but I would like an advise of my method.
I have an radiation calculation with a fan.
For the temperature, I use the method describe in the forum with the subroutine usproj.f90 and usclim.f90
Previous post of Yvan Fournier
(I use DO model)
Description of usray5.f90:
First call of usray5.f90 :
epsiVentilo : emissivity of the fan
TempEntree : Mean temperature of the inlet. It is mean temperature of the outlet calculate in the subroutine usproj.f90
Second call usray5.f90:
During the post-processing of field (flux and temperature), I don't see anything weird but this manipulation of subroutine is complex for me.
I would like to have your opinion of my method.
Thanks in advance for your response
Alexandre
I don't really have a problem with my simulation but I would like an advise of my method.
I have an radiation calculation with a fan.
For the temperature, I use the method describe in the forum with the subroutine usproj.f90 and usclim.f90
Previous post of Yvan Fournier
For the flux it is more complex.Physically, blades of the fan emit radiation (i.e. face of the inlet), so I decide to modify the subroutine usray5.f90.Otherwise, if hot air exists the domain and re-enters, you need to compute the average air temperature at the outlet matching that fan (other posts on this forum, as well as the examples in usproj.f90 should help you there), save this value in a global variable (defining a "common block" or user module used by both usproj.f90 an usclim.f90 is possible), then re-use this value for the inlet temperature in usclim.f90.
(I use DO model)
Description of usray5.f90:
First call of usray5.f90 :
Code: Select all
else if (itypfb(ifac).eq.ientre) then
cofrua(ifac) = epsiVentilo*stephn*(TempEntree**4)*unspi &
+ (1.d0-epsiVentilo)* qincid(ifac)*unspi
TempEntree : Mean temperature of the inlet. It is mean temperature of the outlet calculate in the subroutine usproj.f90
Second call usray5.f90:
Code: Select all
else if (itypfb(ifac).eq.ientre then
if (iirayo.eq.1) then
flunet(ifac) = epsiVentilo *(qincid(ifac) - stephn*TempEntree**4)
I would like to have your opinion of my method.
Thanks in advance for your response
Alexandre