14 USE modi_open_namelist
15 USE modi_close_namelist
18 USE yomhook
,ONLY : lhook, dr_hook
19 USE parkind1
,ONLY : jprb
23 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
28 REAL(KIND=JPRB) :: zhook_handle
32 IF (lhook) CALL dr_hook(
'READ_NAM_WRITE_COVER_TEX',0,zhook_handle)
35 CALL
posnam(ilunam,
'NAM_WRITE_COVER_TEX',gfound,iluout)
36 IF (gfound)
READ(unit=ilunam,nml=nam_write_cover_tex)
38 IF (lhook) CALL dr_hook(
'READ_NAM_WRITE_COVER_TEX',1,zhook_handle)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)
subroutine read_nam_write_cover_tex(HPROGRAM)