GetStationPressure Function

  1. psychrolib.f90
  2. psychrolib
  3. GetStationPressure

public function GetStationPressure(SeaLevelPressure, Altitude, TDryBulb) result(StationPressure)

Return station pressure from sea level pressure. Reference: See 'GetSeaLevelPressure' Notes: This function is just the inverse of 'GetSeaLevelPressure'.

Arguments

Type IntentOptional AttributesName
real, intent(in) :: SeaLevelPressure

Sea level barometric pressure in Psi [IP] or Pa [SI]
real, intent(in) :: Altitude

Altitude in ft [IP] or m [SI]
real, intent(in) :: TDryBulb

Dry-bulb temperature in °F [IP] or °C [SI]

Return Value real

Station pressure in Psi [IP] or Pa [SI]


Calls

proc~~getstationpressure~~CallsGraph proc~getstationpressure GetStationPressure proc~getsealevelpressure GetSeaLevelPressure proc~getstationpressure->proc~getsealevelpressure proc~isip isIP proc~getsealevelpressure->proc~isip proc~gettrankinefromtfahrenheit GetTRankineFromTFahrenheit proc~getsealevelpressure->proc~gettrankinefromtfahrenheit proc~gettkelvinfromtcelsius GetTKelvinFromTCelsius proc~getsealevelpressure->proc~gettkelvinfromtcelsius

Contents

Source Code

GetStationPressure

Source Code

  function GetStationPressure(SeaLevelPressure, Altitude, TDryBulb) result(StationPressure)
    !+ Return station pressure from sea level pressure.
    !+ Reference:
    !+ See 'GetSeaLevelPressure'
    !+ Notes:
    !+ This function is just the inverse of 'GetSeaLevelPressure'.

    real, intent(in)  ::  SeaLevelPressure
      !+ Sea level barometric pressure in Psi [IP] or Pa [SI]
    real, intent(in)  ::  Altitude
      !+ Altitude in ft [IP] or m [SI]
    real, intent(in)  ::  TDryBulb
      !+ Dry-bulb temperature in °F [IP] or °C [SI]
    real              ::  StationPressure
      !+ Station pressure in Psi [IP] or Pa [SI]

    StationPressure = SeaLevelPressure / GetSeaLevelPressure(1.0, Altitude, TDryBulb)
  end function GetStationPressure