43 USE modi_open_namelist
44 USE modi_close_namelist
47 USE modd_dst_surf, ONLY : cemisparam_dst, cvermod, xflx_mss_fdg_fct
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
57 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
67 REAL(KIND=JPRB) :: zhook_handle
72 IF (lhook) CALL dr_hook(
'READ_DST_CONF',0,zhook_handle)
82 CALL
posnam(inam,
'NAM_SURF_DST',gfound,iluout)
83 IF (gfound)
READ(unit=inam,nml=nam_surf_dst)
88 IF (lhook) CALL dr_hook(
'READ_DST_CONF',1,zhook_handle)
subroutine read_dst_conf(HPROGRAM)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)