9 USE yomhook
,ONLY : lhook, dr_hook
10 USE parkind1
,ONLY : jprb
14 CHARACTER(LEN=*),
INTENT(IN) :: hrec
15 INTEGER,
INTENT(IN):: kresp
16 REAL(KIND=JPRB) :: zhook_handle
22 IF (lhook) CALL dr_hook(
'ERROR_READ_SURF_OL',0,zhook_handle)
23 WRITE(*,*)
'error when reading article ',hrec,
'KRESP=',kresp
24 CALL
abor1_sfx(
'READ_SURF_OL: ERROR WHEN READING '//hrec)
25 IF (lhook) CALL dr_hook(
'ERROR_READ_SURF_OL',1,zhook_handle)
subroutine abor1_sfx(YTEXT)
subroutine error_read_surf_ol(HREC, KRESP)