43 USE modi_open_namelist
44 USE modi_close_namelist
50 USE yomhook
,ONLY : lhook, dr_hook
51 USE parkind1
,ONLY : jprb
58 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
68 REAL(KIND=JPRB) :: zhook_handle
73 IF (lhook) CALL dr_hook(
'READ_SLT_CONF',0,zhook_handle)
83 CALL
posnam(inam,
'NAM_SURF_SLT',gfound,iluout)
84 IF (gfound)
READ(unit=inam,nml=nam_surf_slt)
89 IF (lhook) CALL dr_hook(
'READ_SLT_CONF',1,zhook_handle)
subroutine read_slt_conf(HPROGRAM)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)