9 USE yomhook
,ONLY : lhook, dr_hook
10 USE parkind1
,ONLY : jprb
18 integer,
intent(in) :: iret
19 character(LEN=*),
intent(in) :: hname
20 REAL(KIND=JPRB) :: zhook_handle
24 IF (lhook) CALL dr_hook(
'HANDLE_ERR',0,zhook_handle)
25 if (iret /= nf_noerr)
then
26 write(*,*)
'HANDLE_ERR: ',nf_strerror(iret)
27 CALL
abor1_sfx(
'HANFLE_ERR: ABORTING PROGRAM TO WRITE A NETCDF FILE: '//hname)
29 IF (lhook) CALL dr_hook(
'HANDLE_ERR',1,zhook_handle)
subroutine handle_err(IRET, HNAME)
subroutine abor1_sfx(YTEXT)