49 USE modi_open_namelist
50 USE modi_close_namelist
58 USE yomhook
,ONLY : lhook, dr_hook
59 USE parkind1
,ONLY : jprb
66 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
76 REAL(KIND=JPRB) :: zhook_handle
81 IF (lhook) CALL dr_hook(
'READ_ISBA_CONF',0,zhook_handle)
91 CALL
posnam(inam,
'NAM_AGRI',gfound,iluout)
92 IF (gfound)
READ(unit=inam,nml=nam_agri)
93 CALL
posnam(inam,
'NAM_DEEPSOIL',gfound,iluout)
94 IF (gfound)
READ(unit=inam,nml=nam_deepsoil)
95 CALL
posnam(inam,
'NAM_TREEDRAG',gfound,iluout)
96 IF (gfound)
READ(unit=inam,nml=nam_treedrag)
101 IF (lhook) CALL dr_hook(
'READ_ISBA_CONF',1,zhook_handle)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine read_isba_conf(HPROGRAM)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)