9 USE yomhook
,ONLY : lhook, dr_hook
10 USE parkind1
,ONLY : jprb
14 REAL(KIND=JPRB) :: zhook_handle
16 IF (lhook) CALL dr_hook(
'CLOSE_AUX_IO_SURF_OL',0,zhook_handle)
17 CALL
abor1_sfx(
'CLOSE_AUX_IO_SURF_OL: NOT YET CODED!')
18 IF (lhook) CALL dr_hook(
'CLOSE_AUX_IO_SURF_OL',1,zhook_handle)
subroutine abor1_sfx(YTEXT)
subroutine close_aux_io_surf_ol