45 USE yomhook
,ONLY : lhook, dr_hook
46 USE parkind1
,ONLY : jprb
53 REAL,
DIMENSION(:),
INTENT(IN) :: pzenith
55 REAL,
DIMENSION(SIZE(PZENITH)) :: pdir_alb
56 REAL,
DIMENSION(SIZE(PZENITH)) :: zcoszrs
57 REAL(KIND=JPRB) :: zhook_handle
61 IF (lhook) CALL dr_hook(
'ALBEDO_MK10',0,zhook_handle)
62 zcoszrs(:) = max(cos(pzenith(:)),0.)
63 pdir_alb(:) = ( 0.026 / (zcoszrs**1.7 + .065)) + &
64 (.15*(zcoszrs - 0.10) * (zcoszrs - 0.50) * (zcoszrs - 1.00) )
65 IF (lhook) CALL dr_hook(
'ALBEDO_MK10',1,zhook_handle)
real function, dimension(size(pzenith)) albedo_mk10(PZENITH)