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

Go to the documentation of this file.

00001 SUBROUTINE ERROR_WRITE_SURF_FA(HREC,KRESP)
00002 !
00003 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00004 USE PARKIND1  ,ONLY : JPRB
00005 !
00006 USE MODD_IO_SURF_FA, ONLY : NLUOUT
00007 !
00008 IMPLICIT NONE
00009 !
00010  CHARACTER(LEN=*), INTENT(IN) :: HREC
00011 INTEGER,          INTENT(OUT):: KRESP
00012 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00013 !
00014 IF (LHOOK) CALL DR_HOOK('ERROR_WRITE_SURF_FA',0,ZHOOK_HANDLE)
00015 KRESP = -1
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,*) "default value may be used; who knows?"
00023 WRITE(NLUOUT,*) ' '
00024 IF (LHOOK) CALL DR_HOOK('ERROR_WRITE_SURF_FA',1,ZHOOK_HANDLE)
00025 !
00026 END SUBROUTINE ERROR_WRITE_SURF_FA