The function estimates the net thermal radiation (W) emitted by the surface of an animal (Gates 1980; Spotila et al. 1992) .
Qemitted_thermal_radiation(
epsilon = 0.96,
A,
psa_dir,
psa_ref,
T_b,
T_g,
T_sky = NA,
T_a,
enclosed = FALSE
)numeric longwave infrared emissivity of skin (proportion), 0.95 to 1 for most animals (Gates 1980)
.
numeric surface area ((m2).
numeric view factor indicating the proportion of surface area exposed to sky (or enclosure) (0-1)
numeric view factor indicating the proportion surface area exposed to ground (0-1).
numeric body surface temperature (K).
numeric ground surface temperature (K).
numeric Estimate effective radiant temperature of sky (K)
numeric ambient air temperature (K), only required if the animal is in an enclosed environment.
logical whether the animal is an enclosed environment or not.
numeric emitted thermal radiation, Qemit (W).
Gates DM (1980).
Biophysical Ecology.
Springer-Verlag, New York, NY, USA.
Spotila JR, Feder ME, Burggren WW (1992).
“Biophysics of Heat and Mass Transfer.”
Environmental Physiology of the Amphibians.
https://press.uchicago.edu/ucp/books/book/chicago/E/bo3636401.html.
Other biophysical models:
Grashof_number_Gates(),
Grashof_number(),
Nusselt_from_Grashof(),
Nusselt_from_Reynolds(),
Nusselt_number(),
Prandtl_number(),
Qconduction_animal(),
Qconduction_substrate(),
Qconvection(),
Qevaporation(),
Qmetabolism_from_mass_temp(),
Qmetabolism_from_mass(),
Qnet_Gates(),
Qradiation_absorbed(),
Qthermal_radiation_absorbed(),
Reynolds_number(),
T_sky(),
Tb_CampbellNorman(),
Tb_Gates2(),
Tb_Gates(),
Tb_butterfly(),
Tb_grasshopper(),
Tb_limpetBH(),
Tb_limpet(),
Tb_lizard_Fei(),
Tb_lizard(),
Tb_mussel(),
Tb_salamander_humid(),
Tb_snail(),
Tbed_mussel(),
Tsoil(),
actual_vapor_pressure(),
boundary_layer_resistance(),
external_resistance_to_water_vapor_transfer(),
free_or_forced_convection(),
heat_transfer_coefficient_approximation(),
heat_transfer_coefficient_simple(),
heat_transfer_coefficient(),
saturation_vapor_pressure(),
saturation_water_vapor_pressure()
Qemitted_thermal_radiation(epsilon = 0.96,
A = 1,
psa_dir = 0.4,
psa_ref = 0.5,
T_b = 303,
T_g = 293,
T_a = 298,
enclosed = FALSE)
#> [1] 72.58797