11 USE yomhook
,ONLY : lhook, dr_hook
12 USE parkind1
,ONLY : jprb
16 CHARACTER(LEN=*),
INTENT(IN) :: hrec
17 INTEGER,
INTENT(OUT):: kresp
18 REAL(KIND=JPRB) :: zhook_handle
20 IF (lhook) CALL dr_hook(
'ERROR_READ_SURF_FA',0,zhook_handle)
24 WRITE(nluout,*)
'WARNING'
25 WRITE(nluout,*)
'-------'
27 WRITE(nluout,*)
'error when reading article', hrec
28 WRITE(nluout,*)
"default value may be used; who knows?"
31 CALL
abor1_sfx(
'ERROR_READ_SURF_FA: ERROR WHEN READING ARTICLE '//hrec)
32 IF (lhook) CALL dr_hook(
'ERROR_READ_SURF_FA',1,zhook_handle)
subroutine abor1_sfx(YTEXT)
subroutine error_read_surf_fa(HREC, KRESP)