SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/OFFLIN/handle

Go to the documentation of this file.
00001 !     #########
00002         SUBROUTINE HANDLE_ERR(IRET,HNAME)
00003 
00004 !
00005 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00006 USE PARKIND1  ,ONLY : JPRB
00007 !
00008 USE MODI_ABOR1_SFX
00009 !
00010 implicit none
00011 
00012 INCLUDE "netcdf.inc"
00013 
00014 integer,         intent(in)     :: iret
00015 character(LEN=*),intent(in)     :: HNAME
00016 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00017 
00018 ! - - - - - - - - - - - - - - - - - - - - - - - - - - - 
00019 
00020         IF (LHOOK) CALL DR_HOOK('HANDLE_ERR',0,ZHOOK_HANDLE)
00021         if (iret /= NF_NOERR) then
00022            write(*,*)'HANDLE_ERR: ',nf_strerror(iret)
00023            CALL ABOR1_SFX('HANFLE_ERR: ABORTING PROGRAM TO WRITE A NETCDF FILE: '//HNAME)
00024         endif
00025 IF (LHOOK) CALL DR_HOOK('HANDLE_ERR',1,ZHOOK_HANDLE)
00026 
00027 END SUBROUTINE HANDLE_ERR