46 USE yomhook
,ONLY : lhook, dr_hook
47 USE parkind1
,ONLY : jprb
54 REAL,
DIMENSION(:),
INTENT(IN) :: psw_bands
55 REAL,
DIMENSION(:),
INTENT(IN) :: palbnir
56 REAL,
DIMENSION(:),
INTENT(IN) :: palbvis
57 REAL,
DIMENSION(:),
INTENT(IN) :: palbuv
58 REAL,
DIMENSION(:,:),
INTENT(OUT):: pdir_alb
59 REAL,
DIMENSION(:,:),
INTENT(OUT):: psca_alb
66 REAL(KIND=JPRB) :: zhook_handle
69 IF (lhook) CALL dr_hook(
'ALBEDO_FROM_NIR_VIS',0,zhook_handle)
70 iswb =
SIZE(psw_bands)
72 pdir_alb(:,:) = xundef
73 psca_alb(:,:) = xundef
76 WHERE(palbnir(:)/= xundef) pdir_alb(:,1) = 0.5*(palbnir(:)+palbvis(:))
79 IF (psw_bands(jswb)>xred_edge )
THEN
80 pdir_alb(:,jswb) = palbnir(:)
81 ELSE IF (psw_bands(jswb)<xuv_edge )
THEN
82 pdir_alb(:,jswb) = palbuv(:)
84 pdir_alb(:,jswb) = palbvis(:)
89 psca_alb(:,:) = pdir_alb(:,:)
90 IF (lhook) CALL dr_hook(
'ALBEDO_FROM_NIR_VIS',1,zhook_handle)
subroutine albedo_from_nir_vis(PSW_BANDS, PALBNIR, PALBVIS, PALBUV, PDIR_ALB, PSCA_ALB)