GetTKelvinFromTCelsius Function

  function GetTKelvinFromTCelsius(TCelsius) result(TKelvin)
    !+ Utility function to convert temperature to Kelvin (K)
    !+ given temperature in degree Celsius (°C).
    !+ Reference: ASHRAE Handbook - Fundamentals (2017) ch. 1 section 3

    real, intent(in)  :: TCelsius
      !+ Temperature in degree Celsius
    real              :: TKelvin
      !+ Tempearatyre in Kelvin

    TKelvin = TCelsius + ZERO_CELSIUS_AS_KELVIN
  end function GetTKelvinFromTCelsius