43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
52 REAL,
INTENT(OUT) :: ptstep
53 REAL,
INTENT(OUT) :: pout_tstep
54 CHARACTER(LEN=4),
INTENT(OUT) :: hwat_alb
55 CHARACTER(LEN=6),
INTENT(OUT) :: hinterpol_ts
56 REAL(KIND=JPRB) :: zhook_handle
63 IF (lhook) CALL dr_hook(
'DEFAULT_WATFLUX',0,zhook_handle)
68 IF (lhook) CALL dr_hook(
'DEFAULT_WATFLUX',1,zhook_handle)
subroutine default_watflux(PTSTEP, POUT_TSTEP, HWAT_ALB, HINTERPOL_TS)