43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
51 CHARACTER(LEN=10),
INTENT(IN) :: hgrid
52 INTEGER,
INTENT(OUT):: khalo
57 REAL(KIND=JPRB) :: zhook_handle
61 IF (lhook) CALL dr_hook(
'GET_INTERP_HALO_OL',0,zhook_handle)
65 IF (lhook) CALL dr_hook(
'GET_INTERP_HALO_OL',1,zhook_handle)
subroutine get_interp_halo_ol(HGRID, KHALO)