44 USE modi_set_surfex_file_name_asc
48 USE modi_set_surfex_file_name_fa
52 USE modi_set_surfex_file_name_lfi
56 USE modi_set_surfex_file_name_nc
59 USE modi_set_surfex_file_name_mnh
64 USE yomhook
,ONLY : lhook, dr_hook
65 USE parkind1
,ONLY : jprb
72 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
73 CHARACTER(LEN=4),
INTENT(IN) :: hmask
74 REAL(KIND=JPRB) :: zhook_handle
79 CHARACTER(LEN=28) :: yfile
83 IF (lhook) CALL dr_hook(
'SET_SURFEX_FILEIN',0,zhook_handle)
85 IF(hmask/=
'PGD'.AND.hmask/=
'PREP') CALL
abor1_sfx(
'SET_SURFEX_FILEIN: MASK='//hmask//
' REQUIRES MASK = PGD or PREP')
87 IF (hprogram==
'ASCII ' )
THEN
100 IF (hprogram==
'FA ' )
THEN
106 yfile=cfilein_fa_save
113 IF (hprogram==
'LFI ' )
THEN
119 yfile=cfilein_lfi_save
126 IF (hprogram==
'NC ' )
THEN
132 yfile=cfilein_nc_save
140 IF (hprogram==
'AROME ' )
THEN
142 CALL set_surfex_file_name_aro(hmask)
146 IF (hprogram==
'MESONH' )
THEN
148 CALL set_surfex_file_name_mnh(hmask)
152 IF (lhook) CALL dr_hook(
'SET_SURFEX_FILEIN',1,zhook_handle)
subroutine set_surfex_file_name_asc(HNAME_IN, HNAME_OUT)
subroutine set_surfex_file_name_lfi(HNAME_IN, HNAME_OUT)
subroutine set_surfex_file_name_fa(HNAME_IN, HNAME_OUT)
subroutine set_surfex_filein(HPROGRAM, HMASK)
subroutine set_surfex_file_name_nc(HNAME_IN, HNAME_OUT)
subroutine abor1_sfx(YTEXT)