41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
50 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
51 INTEGER,
INTENT(OUT) :: klunam
52 CHARACTER(LEN=28),
INTENT(IN) :: hfile
57 CHARACTER(LEN=28) :: ynam
58 REAL(KIND=JPRB) :: zhook_handle
66 IF (lhook) CALL dr_hook(
'OPEN_NAMELIST_ASC',0,zhook_handle)
67 IF (len_trim(hfile)>0)
THEN
74 INQUIRE(file=ynam,exist=llexist)
76 OPEN(klunam,file=ynam,action=
'READ',form=
"FORMATTED",position=
"REWIND")
78 CALL
abor1_sfx(
'ERROR WHILE OPENING '//ynam//
' THIS FILE IS MISSING'// &
79 ' IN THE RUN DIRECTORY')
81 IF (lhook) CALL dr_hook(
'OPEN_NAMELIST_ASC',1,zhook_handle)
subroutine open_namelist_asc(HPROGRAM, KLUNAM, HFILE)
subroutine abor1_sfx(YTEXT)