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

Go to the documentation of this file.
00001 SUBROUTINE ERROR_READ_SURF_LFI(HREC,KRESP)
00002 !
00003 USE MODI_ABOR1_SFX
00004 !
00005 USE MODD_IO_SURF_LFI, ONLY : NLUOUT
00006 !
00007 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00008 USE PARKIND1  ,ONLY : JPRB
00009 !
00010 IMPLICIT NONE
00011 !
00012  CHARACTER(LEN=*), INTENT(IN) :: HREC
00013 INTEGER,          INTENT(IN) :: KRESP
00014 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00015 
00016 IF (LHOOK) CALL DR_HOOK('ERROR_READ_SURF_LFI',0,ZHOOK_HANDLE)
00017 !
00018 IF (KRESP==0 .AND. LHOOK) CALL DR_HOOK('ERROR_READ_SURF_LFI',1,ZHOOK_HANDLE)
00019 IF (KRESP==0) RETURN
00020 !
00021 WRITE(NLUOUT,*) ' '
00022 WRITE(NLUOUT,*) 'WARNING'
00023 WRITE(NLUOUT,*) '-------'
00024 WRITE(NLUOUT,*) ' '
00025 WRITE(NLUOUT,*) 'error when reading article', HREC
00026 WRITE(NLUOUT,*) "default value may be used; who knows?"
00027 WRITE(NLUOUT,*) ' '
00028 !
00029  CALL ABOR1_SFX('ERROR_READ_SURF_LFI: ERROR WHEN READING ARTICLE '//HREC)
00030 IF (LHOOK) CALL DR_HOOK('ERROR_READ_SURF_LFI',1,ZHOOK_HANDLE)
00031 !
00032 END SUBROUTINE ERROR_READ_SURF_LFI