7 pffg_nosnow,pffv_nosnow )
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
56 REAL,
DIMENSION(:),
INTENT(IN) :: plai
57 REAL,
DIMENSION(:),
INTENT(IN) :: pfflood
58 REAL,
DIMENSION(:),
INTENT(IN) :: pffrozen
60 REAL,
DIMENSION(:),
INTENT(OUT) :: pz0flood
61 REAL,
DIMENSION(:),
INTENT(OUT) :: pffg_nosnow
62 REAL,
DIMENSION(:),
INTENT(OUT) :: pffv_nosnow
66 REAL,
DIMENSION(SIZE(PFFLOOD)) :: zpsng
67 REAL,
DIMENSION(SIZE(PFFLOOD)) :: zpsnv
69 REAL(KIND=JPRB) :: zhook_handle
76 IF (lhook) CALL dr_hook(
'ISBA_FLOOD_PROPERTIES',0,zhook_handle)
94 WHERE(pffrozen(:)==0.0)
95 pz0flood(:) = xz0flood
97 pz0flood(:) = min(0.005,10.*xz0flood)
100 IF (lhook) CALL dr_hook(
'ISBA_FLOOD_PROPERTIES',1,zhook_handle)
subroutine isba_flood_properties(PLAI, PFFLOOD, PFFROZEN, PZ0FLOOD, PFFG_NOSNOW, PFFV_NOSNOW)
real function, dimension(size(ppsng)) flood_frac_ground(PPSNG, PFFLOOD)
real function, dimension(size(ppsnv)) flood_frac_veg(PLAI, PPSNV, PFFLOOD)