BUSINGER_PHIM_1D Function

public function BUSINGER_PHIM_1D(PZ_O_LMO)

Arguments

Type IntentOptional AttributesName
real, intent(in), DIMENSION(:):: PZ_O_LMO

Return Value real, DIMENSION(SIZE(PZ_O_LMO))


Contents

Source Code


Source Code

FUNCTION BUSINGER_PHIM_1D(PZ_O_LMO)
  IMPLICIT NONE
  REAL, DIMENSION(:), INTENT(IN)  :: PZ_O_LMO
  REAL, DIMENSION(SIZE(PZ_O_LMO)) :: BUSINGER_PHIM_1D
  REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
  IF (LHOOK) CALL DR_HOOK('MODE_SBLS:BUSINGER_PHIM_1D',0,ZHOOK_HANDLE)
  WHERE ( PZ_O_LMO(:) < 0. )
    BUSINGER_PHIM_1D(:) = (1.-15.*PZ_O_LMO)**(-0.25)
  ELSEWHERE
    BUSINGER_PHIM_1D(:) = 1. + 4.7 * PZ_O_LMO
  END WHERE
IF (LHOOK) CALL DR_HOOK('MODE_SBLS:BUSINGER_PHIM_1D',1,ZHOOK_HANDLE)
END FUNCTION BUSINGER_PHIM_1D