52 USE modi_get_default_nam_n
58 USE yomhook
,ONLY : lhook, dr_hook
59 USE parkind1
,ONLY : jprb
70 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
81 REAL(KIND=JPRB) :: zhook_handle
84 IF (lhook) CALL dr_hook(
'READ_DEFAULT_TEB_VEG_N',0,zhook_handle)
89 IF (iludes==0 .AND. lhook) CALL dr_hook(
'READ_DEFAULT_TEB_VEG_N',1,zhook_handle)
94 IF (imi.NE.-1 .AND. lnam_read)
THEN
107 CALL
posnam(iludes,
'NAM_ISBAN',gfound,iluout)
108 IF (gfound)
READ(unit=iludes,nml=nam_isban)
109 CALL
posnam(iludes,
'NAM_ISBA_AGSN',gfound,iluout)
110 IF (gfound)
READ(unit=iludes,nml=nam_isba_agsn)
111 CALL
posnam(iludes,
'NAM_CH_CONTROLN',gfound,iluout)
112 IF (gfound)
READ(unit=iludes,nml=nam_ch_controln)
116 CALL
posnam(iludes,
'NAM_SGH_ISBAN',gfound,iluout)
117 IF (gfound)
READ(unit=iludes,nml=nam_sgh_isban)
128 IF (lhook) CALL dr_hook(
'READ_DEFAULT_TEB_VEG_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 init_nam_sgh_teb_vegn(TVG)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine read_default_teb_veg_n(CHT, TVG, HPROGRAM)
integer function get_current_model_index_surfex()
subroutine get_default_nam_n(HPROGRAM, HACTION, KLUDES)