PE_FROM_PQ_1D Function

  1. mode_psychro.F90
  2. MODE_PSYCHRO
  3. PE_FROM_PQ_1D

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

Arguments

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

Return Value real, DIMENSION(SIZE(PQ))


Contents

Source Code

PE_FROM_PQ_1D

Source Code

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