37 USE yomhook
,ONLY : lhook, dr_hook
38 USE parkind1
,ONLY : jprb
44 INTEGER,
INTENT(IN) :: kluout
45 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
46 REAL,
POINTER,
DIMENSION(:,:) :: pfield
47 REAL(KIND=JPRB) :: zhook_handle
54 IF (lhook) CALL dr_hook(
'PREP_SEAFLUX_UNIF',0,zhook_handle)
88 IF (lhook) CALL dr_hook(
'PREP_SEAFLUX_UNIF',1,zhook_handle)
subroutine prep_seaflux_unif(KLUOUT, HSURF, PFIELD)