42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
50 CHARACTER(LEN=28),
INTENT(IN) :: hfile
51 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
57 REAL(KIND=JPRB) :: zhook_handle
60 IF (lhook) CALL dr_hook(
'CLOSE_AUX_IO_SURF_LFI',0,zhook_handle)
61 CALL fmclos(hfile,
'KEEP',cluout_lfi,iret)
65 IF (lhook) CALL dr_hook(
'CLOSE_AUX_IO_SURF_LFI',1,zhook_handle)
subroutine close_aux_io_surf_lfi(HFILE, HFILETYPE)