9 USE yomhook
,ONLY : lhook, dr_hook
10 USE parkind1
,ONLY : jprb
14 CHARACTER(LEN=28),
OPTIONAL,
INTENT(IN) :: hname_in
15 CHARACTER(LEN=28),
OPTIONAL,
INTENT(OUT) :: hname_out
16 REAL(KIND=JPRB) :: zhook_handle
18 IF (lhook) CALL dr_hook(
'SET_SURFEX_FILE_NAME_ASC',0,zhook_handle)
20 IF (present(hname_in))
THEN
22 ELSEIF (present(hname_out))
THEN
26 IF (lhook) CALL dr_hook(
'SET_SURFEX_FILE_NAME_ASC',1,zhook_handle)
subroutine set_surfex_file_name_asc(HNAME_IN, HNAME_OUT)