42 USE modi_open_namelist
43 USE modi_close_namelist
51 USE yomhook
,ONLY : lhook, dr_hook
52 USE parkind1
,ONLY : jprb
59 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
69 REAL(KIND=JPRB) :: zhook_handle
75 namelist/nam_read_data_cover/lread_data_cover
80 IF (lhook) CALL dr_hook(
'INIT_READ_DATA_COVER',0,zhook_handle)
83 lread_data_cover = .true.
86 IF (hprogram==
'MESONH') lread_data_cover = .false.
101 CALL
posnam(ilunam,
'NAM_READ_DATA_COVER',gfound,iluout)
102 IF (gfound)
READ(unit=ilunam,nml=nam_read_data_cover)
109 IF (lhook) CALL dr_hook(
'INIT_READ_DATA_COVER',1,zhook_handle)
subroutine init_read_data_cover(HPROGRAM)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)