11 USE yomhook
,ONLY : lhook, dr_hook
12 USE parkind1
,ONLY : jprb
16 CHARACTER(LEN=*),
INTENT(IN) :: hrec
17 INTEGER,
INTENT(IN) :: kresp
18 REAL(KIND=JPRB) :: zhook_handle
20 IF (lhook) CALL dr_hook(
'ERROR_READ_SURF_LFI',0,zhook_handle)
22 IF (kresp==0 .AND. lhook) CALL dr_hook(
'ERROR_READ_SURF_LFI',1,zhook_handle)
26 WRITE(nluout,*)
'WARNING'
27 WRITE(nluout,*)
'-------'
29 WRITE(nluout,*)
'error when reading article', hrec
30 WRITE(nluout,*)
"default value may be used; who knows?"
33 CALL
abor1_sfx(
'ERROR_READ_SURF_LFI: ERROR WHEN READING ARTICLE '//hrec)
34 IF (lhook) CALL dr_hook(
'ERROR_READ_SURF_LFI',1,zhook_handle)
subroutine error_read_surf_lfi(HREC, KRESP)
subroutine abor1_sfx(YTEXT)