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