19 cc1dry, csoilfrz, cdifsfcond, csnowres, &
20 ccpsurf, xcgmax, cksat, &
21 crain, chort, lglacier, &
22 lcanopy_drag, lvegupd, lnitro_dilu
26 USE modi_default_teb_veg
27 USE modi_default_greenroof
28 USE modi_default_ch_dep
29 USE modi_default_diag_teb
30 USE modi_read_default_teb_n
31 USE modi_read_teb_conf_n
32 USE modi_read_teb_veg_conf_n
34 USE modi_read_nam_prep_teb_n
35 USE modi_read_nam_prep_garden_n
36 USE modi_read_nam_prep_greenroof_n
39 USE yomhook
,ONLY : lhook, dr_hook
40 USE parkind1
,ONLY : jprb
42 USE modi_read_teb_conf_n
50 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
51 CHARACTER(LEN=3),
INTENT(IN) :: hinit
52 REAL(KIND=JPRB) :: zhook_handle
56 IF (lhook) CALL dr_hook(
'READ_NAMELISTS_TEB_N',0,zhook_handle)
57 CALL
default_teb(cz0h,xtstep,xout_tstep, cch_bem, xdt_res, xdt_off)
60 cc1dry, csoilfrz, cdifsfcond, csnowres, &
61 ccpsurf, xcgmax, cksat, &
62 crain, chort, lglacier, &
63 lcanopy_drag, lvegupd, lnitro_dilu )
71 lcoef,lsurf_vars,lsurf_misc_budget,&
72 lsurf_diag_albedo,lutci,lpgd,lpgd_fix,xdiag_tstep)
83 IF (hinit==
'PRE')
THEN
89 IF (lhook) CALL dr_hook(
'READ_NAMELISTS_TEB_N',1,zhook_handle)
subroutine read_nam_prep_greenroof_n(HPROGRAM)
subroutine read_nam_prep_garden_n(HPROGRAM)
subroutine read_namelists_teb_n(TM, TGRO, TVG, HPROGRAM, HINIT)
subroutine read_default_teb_n(CHT, DGMTO, DGT, DGUT, TGRO, T, TOP, HPROGRAM)
subroutine default_greenroof(HRUNOFF_GR, HSCOND_GR, HKSAT_GR, HHORT_GR)
subroutine default_ch_dep(HCH_DRY_DEP)
subroutine default_teb_veg(HROUGH, HRUNOFF, HALBEDO, HSCOND, HC1DRY, HSOILFRZ, HDIFSFCOND, HSNOWRES, HCPSURF, PCGMAX, HKSAT, HRAIN, HHORT, OGLACIER, OCANOPY_DRAG, OVEGUPD, ONITRO_DILU)
subroutine default_teb(HZ0H, PTSTEP, POUT_TSTEP, HCH_BEM, PDT_RES, PDT_OFF)
subroutine default_diag_teb(K2M, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, OSURF_MISC_BUDGET, OSURF_DIAG_ALBEDO, OUTCI, OPGD, OPGD_FIX, PDIAG_TSTEP)
subroutine read_teb_veg_conf_n(CHT, TVG, HPROGRAM)
subroutine read_teb_conf_n(CHT, DGMTO, DGT, DGUT, T, TOP, HPROGRAM)
subroutine read_nam_prep_teb_n(HPROGRAM)