35 USE yomhook
,ONLY : lhook, dr_hook
36 USE parkind1
,ONLY : jprb
42 INTEGER,
INTENT(IN) :: kluout
43 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
44 REAL,
POINTER,
DIMENSION(:,:) :: pfield
45 REAL(KIND=JPRB) :: zhook_handle
52 IF (lhook) CALL dr_hook(
'PREP_WATFLUX_UNIF',0,zhook_handle)
65 pfield = xts_water_unif
73 IF (lhook) CALL dr_hook(
'PREP_WATFLUX_UNIF',1,zhook_handle)
subroutine prep_watflux_unif(KLUOUT, HSURF, PFIELD)