14 USE yomhook
,ONLY : lhook, dr_hook
15 USE parkind1
,ONLY : jprb
20 INTEGER :: jfile, jret
21 REAL(KIND=JPRB) :: zhook_handle
25 IF (lhook) CALL dr_hook(
'CLOSE_FILEIN_OL',0,zhook_handle)
30 DO jfile=1,
SIZE(xid_in)
31 jret=nf_close(xid_in(jfile))
35 DEALLOCATE(xvar_to_filein)
41 IF (lhook) CALL dr_hook(
'CLOSE_FILEIN_OL',1,zhook_handle)
subroutine close_filein_ol