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_OL(HREC,KRESP)
00002 !
00003 USE MODI_ABOR1_SFX
00004 !
00005 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00006 USE PARKIND1  ,ONLY : JPRB
00007 !
00008 IMPLICIT NONE
00009 !
00010  CHARACTER(LEN=*), INTENT(IN) :: HREC
00011 INTEGER,          INTENT(IN):: KRESP
00012 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00013 !
00014 !   WRITE(*,*) ' '
00015 !   WRITE(*,*) 'WARNING'
00016 !   WRITE(*,*) '-------'
00017 !   WRITE(*,*) ' '
00018     IF (LHOOK) CALL DR_HOOK('ERROR_READ_SURF_OL',0,ZHOOK_HANDLE)
00019     WRITE(*,*) 'error when reading article ',HREC,'KRESP=',KRESP
00020     CALL ABOR1_SFX('READ_SURF_OL: ERROR WHEN READING '//HREC)
00021     IF (LHOOK) CALL DR_HOOK('ERROR_READ_SURF_OL',1,ZHOOK_HANDLE)
00022 !   WRITE(*,*) "default value may be used; who knows?"
00023 !   WRITE(*,*) ' '
00024 
00025 END SUBROUTINE ERROR_READ_SURF_OL