43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
51 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
52 REAL(KIND=JPRB) :: zhook_handle
60 IF (lhook) CALL dr_hook(
'END_IO_SURF_OL_N',0,zhook_handle)
65 IF (lhook) CALL dr_hook(
'END_IO_SURF_OL_N',1,zhook_handle)
subroutine end_io_surf_ol_n(HPROGRAM)