PE_FROM_PQ_0D Function

  1. mode_psychro.F90
  2. MODE_PSYCHRO
  3. PE_FROM_PQ_0D

public function PE_FROM_PQ_0D(PP, PQ) result(PE)

Arguments

Type IntentOptional AttributesName
real, intent(in) :: PP
real, intent(in) :: PQ

Return Value real


Contents

Source Code

PE_FROM_PQ_0D

Source Code

function PE_FROM_PQ_0D(PP, PQ) RESULT(PE) 
!arguments and result
REAL, INTENT(IN) :: PP !atmos. pressure (Pa)
REAL, INTENT(IN) :: PQ !specific humidity (kg/kg)
REAL :: PE !water vapour pressure (Pa)
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK('MODE_PSYCHRO:PE_FROM_PQ_0D',0,ZHOOK_HANDLE)
PE = PQ * PP /(0.622 + 0.378 * PQ)
IF (LHOOK) CALL DR_HOOK('MODE_PSYCHRO:PE_FROM_PQ_0D',1,ZHOOK_HANDLE)
end function PE_FROM_PQ_0D