46 USE yomhook
,ONLY : lhook, dr_hook
47 USE parkind1
,ONLY : jprb
55 CHARACTER(LEN=4),
INTENT(OUT) :: hrunoff_gr
56 CHARACTER(LEN=4),
INTENT(OUT) :: hscond_gr
57 CHARACTER(LEN=3),
INTENT(OUT) :: hksat_gr
58 CHARACTER(LEN=3),
INTENT(OUT) :: hhort_gr
60 REAL(KIND=JPRB) :: zhook_handle
67 IF (lhook) CALL dr_hook(
'DEFAULT_GREENROOF',0,zhook_handle)
74 IF (lhook) CALL dr_hook(
'DEFAULT_GREENROOF',1,zhook_handle)
subroutine default_greenroof(HRUNOFF_GR, HSCOND_GR, HKSAT_GR, HHORT_GR)