dqsatdT Function

public function dqsatdT(T)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: T

Return Value real


Source Code

      real function dqsatdT(T)
         implicit none
         real, intent(in) :: T
         dqsatdT = 0.1384832710e-2 + 0.7708409674e-4*(T - 300) + 0.2022064593e-5*(T - 300)**2 + 0.000000036561*(T - 300)**3 !expansion of qsat(T)
      end function dqsatdt