39 USE yomhook
,ONLY : lhook, dr_hook
40 USE parkind1
,ONLY : jprb
52 CHARACTER(LEN=4) :: CROAD_DIR
56 CHARACTER(LEN=4) :: CWALL_OPT
59 CHARACTER(LEN=3) :: CBLD_ATYPE
64 CHARACTER(LEN=6) :: CZ0H
68 CHARACTER(LEN=5) :: CCH_BEM
71 CHARACTER(LEN=3) :: CBEM
75 CHARACTER(LEN=3) :: CTREE
82 LOGICAL :: LSOLAR_PANEL
91 REAL,
POINTER,
DIMENSION(:) :: XZS
92 REAL,
POINTER,
DIMENSION(:,:) :: XCOVER
93 LOGICAL,
POINTER,
DIMENSION(:):: LCOVER
95 REAL,
POINTER,
DIMENSION(:,:) :: XTEB_PATCH
99 INTEGER :: NROOF_LAYER
100 INTEGER :: NROAD_LAYER
101 INTEGER :: NWALL_LAYER
127 REAL(KIND=JPRB) :: zhook_handle
128 IF (lhook) CALL dr_hook(
"MODD_TEB_N:TEB_OPTIONS_INIT",0,zhook_handle)
129 nullify(yteb_options%XZS)
130 nullify(yteb_options%XCOVER)
131 nullify(yteb_options%LCOVER)
132 nullify(yteb_options%XTEB_PATCH)
133 yteb_options%LCANOPY=.false.
134 yteb_options%LGARDEN=.false.
135 yteb_options%CROAD_DIR=
' '
136 yteb_options%CWALL_OPT=
' '
137 yteb_options%CBLD_ATYPE=
' '
138 yteb_options%CZ0H=
' '
139 yteb_options%CCH_BEM=
' '
140 yteb_options%CBEM=
' '
141 yteb_options%CTREE=
' '
142 yteb_options%LGREENROOF=.false.
143 yteb_options%LHYDRO=.false.
144 yteb_options%LSOLAR_PANEL=.false.
145 yteb_options%LECOCLIMAP=.false.
146 yteb_options%NTEB_PATCH=0
147 yteb_options%NROOF_LAYER=0
148 yteb_options%NROAD_LAYER=0
149 yteb_options%NWALL_LAYER=0
150 yteb_options%XTSTEP=0.
151 yteb_options%XOUT_TSTEP=0.
152 IF (lhook) CALL dr_hook(
"MODD_TEB_N:TEB_OPTIONS_INIT",1,zhook_handle)
subroutine teb_options_init(YTEB_OPTIONS)