35 USE yomhook
,ONLY : lhook, dr_hook
36 USE parkind1
,ONLY : jprb
43 REAL,
INTENT(OUT) :: pundef
44 REAL(KIND=JPRB) :: zhook_handle
51 IF (lhook) CALL dr_hook(
'GET_SURF_UNDEF',0,zhook_handle)
53 IF (lhook) CALL dr_hook(
'GET_SURF_UNDEF',1,zhook_handle)
subroutine get_surf_undef(PUNDEF)