59 USE modi_get_default_nam_n
67 USE yomhook
,ONLY : lhook, dr_hook
68 USE parkind1
,ONLY : jprb
81 TYPE(teb_t),
INTENT(INOUT) :: t
84 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
95 REAL(KIND=JPRB) :: zhook_handle
98 IF (lhook) CALL dr_hook(
'READ_DEFAULT_TEB_N',0,zhook_handle)
103 IF (iludes==0 .AND. lhook) CALL dr_hook(
'READ_DEFAULT_TEB_N',1,zhook_handle)
104 IF (iludes==0)
RETURN
108 IF (imi.NE.-1 .AND. lnam_read)
THEN
121 CALL
posnam(iludes,
'NAM_TEBN',gfound,iluout)
122 IF (gfound)
READ(unit=iludes,nml=nam_tebn)
123 CALL
posnam(iludes,
'NAM_DIAG_SURFN',gfound,iluout)
124 IF (gfound)
READ(unit=iludes,nml=nam_diag_surfn)
125 CALL
posnam(iludes,
'NAM_DIAG_TEBN',gfound,iluout)
126 IF (gfound)
READ(unit=iludes,nml=nam_diag_tebn)
127 CALL
posnam(iludes,
'NAM_CH_TEBN',gfound,iluout)
128 IF (gfound)
READ(unit=iludes,nml=nam_ch_tebn)
129 CALL
posnam(iludes,
'NAM_TEB_GREENROOFN',gfound,iluout)
130 IF (gfound)
READ(unit=iludes,nml=nam_teb_greenroofn)
141 IF (lhook) CALL dr_hook(
'READ_DEFAULT_TEB_N',1,zhook_handle)
subroutine update_nam_teb_greenroofn(TGRO)
subroutine init_nam_diag_surfn(DGF)
subroutine update_nam_tebn(T, TOP)
subroutine update_nam_ch_tebn(CHT)
subroutine update_nam_diag_surfn(DGF)
subroutine read_default_teb_n(CHT, DGMTO, DGT, DGUT, TGRO, T, TOP, HPROGRAM)
subroutine init_nam_diag_tebn(DGMTO, DGT, DGUT)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine init_nam_ch_tebn(CHT)
subroutine init_nam_teb_greenroofn(TGRO)
subroutine init_nam_tebn(T, TOP)
subroutine update_nam_diag_tebn(DGMTO, DGT, DGUT)
integer function get_current_model_index_surfex()
subroutine get_default_nam_n(HPROGRAM, HACTION, KLUDES)