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

Go to the documentation of this file.

00001 SUBROUTINE SET_SURFEX_FILE_NAME_FA(HNAME_IN,HNAME_OUT)
00002 !
00003 USE MODD_IO_SURF_FA,  ONLY : CFILEIN_FA
00004 !
00005 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00006 USE PARKIND1  ,ONLY : JPRB
00007 !
00008 IMPLICIT NONE
00009 !
00010  CHARACTER(LEN=*), OPTIONAL, INTENT(IN)     :: HNAME_IN
00011  CHARACTER(LEN=*), OPTIONAL, INTENT(OUT)    :: HNAME_OUT
00012 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00013 !
00014 IF (LHOOK) CALL DR_HOOK('SET_SURFEX_FILE_NAME_FA',0,ZHOOK_HANDLE)
00015 !
00016 IF (PRESENT(HNAME_IN)) THEN
00017   CFILEIN_FA=HNAME_IN
00018 ELSEIF (PRESENT(HNAME_OUT)) THEN
00019   HNAME_OUT=CFILEIN_FA
00020 ENDIF
00021 !
00022 IF (LHOOK) CALL DR_HOOK('SET_SURFEX_FILE_NAME_FA',1,ZHOOK_HANDLE)
00023 !
00024 END SUBROUTINE SET_SURFEX_FILE_NAME_FA