58 USE modi_open_namelist
59 USE modi_close_namelist
67 USE yomhook
,ONLY : lhook, dr_hook
68 USE parkind1
,ONLY : jprb
79 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
90 REAL(KIND=JPRB) :: zhook_handle
95 IF (lhook) CALL dr_hook(
'READ_TEB_VEG_CONF_N',0,zhook_handle)
100 IF (imi.NE.-1 .AND. lnam_read)
THEN
117 CALL
posnam(inam,
'NAM_ISBAN',gfound,iluout)
118 IF (gfound)
READ(unit=inam,nml=nam_isban)
119 CALL
posnam(inam,
'NAM_ISBA_AGSN',gfound,iluout)
120 IF (gfound)
READ(unit=inam,nml=nam_isba_agsn)
124 CALL
posnam(inam,
'NAM_CH_CONTROLN',gfound,iluout)
125 IF (gfound)
READ(unit=inam,nml=nam_ch_controln)
126 CALL
posnam(inam,
'NAM_SGH_ISBAN',gfound,iluout)
127 IF (gfound)
READ(unit=inam,nml=nam_sgh_isban)
129 CALL
test_nam_var_surf(iluout,
'CROUGH',crough,
'NONE',
'Z01D',
'Z04D',
'BE04',
'UNDE')
131 CALL
test_nam_var_surf(iluout,
'CALBEDO',calbedo,
'EVOL',
'DRY ',
'WET ',
'MEAN',
'USER',
'CM13')
155 IF (lhook) CALL dr_hook(
'READ_TEB_VEG_CONF_N',1,zhook_handle)
subroutine update_nam_ch_controln(CHI)
subroutine init_nam_teb_veg_agsn(TVG)
subroutine update_nam_ch_teb_vegn(CHT)
subroutine update_nam_sgh_teb_vegn(TVG)
subroutine init_nam_teb_vegn(TVG)
subroutine init_nam_ch_teb_vegn(CHT)
subroutine init_nam_ch_controln(CHI)
subroutine update_nam_teb_vegn(TVG)
subroutine update_nam_teb_veg_agsn(TVG)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine init_nam_sgh_teb_vegn(TVG)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine read_teb_veg_conf_n(CHT, TVG, HPROGRAM)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)
integer function get_current_model_index_surfex()