Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real, | intent(in) | :: | TCelsius | Temperature in degree Celsius |
Tempearatyre in Kelvin
function GetTKelvinFromTCelsius(TCelsius) result(TKelvin)
real, intent(in) :: TCelsius
!+ Temperature in degree Celsius
real :: TKelvin
!+ Tempearatyre in Kelvin
real :: ZERO_CELSIUS_AS_KELVIN
! Zero degree Fahrenheit (°F) expressed as Kelvin (K)
ZERO_CELSIUS_AS_KELVIN = 273.15
TKelvin = TCelsius + ZERO_CELSIUS_AS_KELVIN
end function GetTKelvinFromTCelsius