7 USE yomhook
,ONLY : lhook, dr_hook
8 USE parkind1
,ONLY : jprb
14 CHARACTER(LEN=*),
INTENT(IN) :: hrec
15 INTEGER,
INTENT(OUT):: kresp
16 REAL(KIND=JPRB) :: zhook_handle
18 IF (lhook) CALL dr_hook(
'ERROR_WRITE_SURF_FA',0,zhook_handle)
22 WRITE(nluout,*)
'WARNING'
23 WRITE(nluout,*)
'-------'
25 WRITE(nluout,*)
'error when writing article', hrec
26 WRITE(nluout,*)
"default value may be used; who knows?"
28 IF (lhook) CALL dr_hook(
'ERROR_WRITE_SURF_FA',1,zhook_handle)
subroutine error_write_surf_fa(HREC, KRESP)