qsat Function

public function qsat(T)

Arguments

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

Return Value real


Called by

proc~~qsat~~CalledByGraph proc~qsat qsat proc~readfacetfiles readfacetfiles proc~readfacetfiles->proc~qsat proc~updategr updateGR proc~updategr->proc~qsat proc~eb EB proc~eb->proc~updategr proc~tests_mpi_operators tests_mpi_operators proc~tests_mpi_operators->proc~readfacetfiles proc~tests_read_sparse_ijk tests_read_sparse_ijk proc~tests_read_sparse_ijk->proc~readfacetfiles program~udales uDALES program~udales->proc~readfacetfiles program~udales->proc~eb proc~execute_runmode_actions execute_runmode_actions program~udales->proc~execute_runmode_actions proc~execute_runmode_actions->proc~tests_mpi_operators proc~execute_runmode_actions->proc~tests_read_sparse_ijk

Source Code

      real function qsat(T)
         implicit none
         real, intent(in) :: T
         real :: gres
         gres = 611.00*exp(17.27*(T - 273.15)/(T - 35.85)) ![Pa] Bolton 1980
         qsat = 0.62198*0.01*gres/(1000-0.01*gres) ![kg/kg] Murphy & Koop 2005 !1000 can be replaced with actual air pressure if desired
      end function qsat