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

Go to the documentation of this file.
00001 SUBROUTINE ERROR_READ_SURF_FA(HREC,KRESP)
00002 !
00003 USE MODI_ABOR1_SFX
00004 !
00005 USE MODD_IO_SURF_FA, 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(OUT):: KRESP
00014 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00015 !
00016 IF (LHOOK) CALL DR_HOOK('ERROR_READ_SURF_FA',0,ZHOOK_HANDLE)
00017 KRESP = -1
00018 !
00019 WRITE(NLUOUT,*) ' '
00020 WRITE(NLUOUT,*) 'WARNING'
00021 WRITE(NLUOUT,*) '-------'
00022 WRITE(NLUOUT,*) ' '
00023 WRITE(NLUOUT,*) 'error when reading article', HREC
00024 WRITE(NLUOUT,*) "default value may be used; who knows?"
00025 WRITE(NLUOUT,*) ' '
00026 !
00027  CALL ABOR1_SFX('ERROR_READ_SURF_FA: ERROR WHEN READING ARTICLE '//HREC)
00028 IF (LHOOK) CALL DR_HOOK('ERROR_READ_SURF_FA',1,ZHOOK_HANDLE)
00029 !
00030 END SUBROUTINE ERROR_READ_SURF_FA