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

Go to the documentation of this file.
00001 SUBROUTINE ERROR_WRITE_SURF_LFI(HREC,KRESP)
00002 !
00003 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00004 USE PARKIND1  ,ONLY : JPRB
00005 !
00006 !
00007 USE MODD_IO_SURF_LFI, ONLY : NLUOUT
00008 !
00009  CHARACTER(LEN=*), INTENT(IN):: HREC
00010 INTEGER,          INTENT(IN):: KRESP
00011 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00012 
00013 IF (LHOOK) CALL DR_HOOK('MODI_ERROR_WRITE_SURF_LFI:ERROR_WRITE_SURF_LFI',0,ZHOOK_HANDLE)
00014 IF (KRESP==0 .AND. LHOOK) CALL DR_HOOK('MODI_ERROR_WRITE_SURF_LFI:ERROR_WRITE_SURF_LFI',1,ZHOOK_HANDLE)
00015 IF (KRESP==0) RETURN
00016 !
00017 WRITE(NLUOUT,*) ' '
00018 WRITE(NLUOUT,*) 'WARNING'
00019 WRITE(NLUOUT,*) '-------'
00020 WRITE(NLUOUT,*) ' '
00021 WRITE(NLUOUT,*) 'error when writing article', HREC
00022 WRITE(NLUOUT,*) 'KRESP = ', KRESP
00023 WRITE(NLUOUT,*) ' '
00024 IF (LHOOK) CALL DR_HOOK('MODI_ERROR_WRITE_SURF_LFI:ERROR_WRITE_SURF_LFI',1,ZHOOK_HANDLE)
00025 
00026 END SUBROUTINE ERROR_WRITE_SURF_LFI