35 USE yomhook
,ONLY : lhook, dr_hook
36 USE parkind1
,ONLY : jprb
43 REAL,
POINTER,
DIMENSION(:) :: XDATA_FRAC_HVEG
44 REAL,
POINTER,
DIMENSION(:) :: XDATA_FRAC_LVEG
45 REAL,
POINTER,
DIMENSION(:) :: XDATA_FRAC_NVEG
46 REAL,
POINTER,
DIMENSION(:,:) :: XDATA_LAI_HVEG
47 REAL,
POINTER,
DIMENSION(:,:) :: XDATA_LAI_LVEG
48 REAL,
POINTER,
DIMENSION(:) :: XDATA_H_HVEG
53 REAL,
POINTER,
DIMENSION(:,:) :: XDATA_VEGTYPE
65 REAL,
POINTER,
DIMENSION(:) :: XDATA_Z0_O_Z0H
67 REAL,
POINTER,
DIMENSION(:,:) :: XDATA_EMIS
68 REAL,
POINTER,
DIMENSION(:,:) :: XDATA_Z0
72 REAL,
POINTER,
DIMENSION(:) :: XDATA_ALBNIR_VEG
73 REAL,
POINTER,
DIMENSION(:) :: XDATA_ALBVIS_VEG
74 REAL,
POINTER,
DIMENSION(:) :: XDATA_ALBUV_VEG
78 REAL,
POINTER,
DIMENSION(:,:) :: XDATA_VEG
79 REAL,
POINTER,
DIMENSION(:) :: XDATA_WRMAX_CF
82 REAL,
POINTER,
DIMENSION(:) :: XDATA_RSMIN
83 REAL,
POINTER,
DIMENSION(:) :: XDATA_GAMMA
86 REAL,
POINTER,
DIMENSION(:) :: XDATA_CV
87 REAL,
POINTER,
DIMENSION(:) :: XDATA_RGL
89 REAL,
POINTER,
DIMENSION(:,:) :: XDATA_ROOTFRAC
95 REAL,
POINTER,
DIMENSION(:) :: XDATA_BSLAI
96 REAL,
POINTER,
DIMENSION(:) :: XDATA_LAIMIN
97 REAL,
POINTER,
DIMENSION(:) :: XDATA_SEFOLD
98 REAL,
POINTER,
DIMENSION(:) :: XDATA_H_TREE
99 REAL,
POINTER,
DIMENSION(:) :: XDATA_GMES
100 REAL,
POINTER,
DIMENSION(:) :: XDATA_RE25
106 LOGICAL,
POINTER,
DIMENSION(:) :: LDATA_STRESS
108 REAL,
POINTER,
DIMENSION(:) :: XDATA_F2I
110 REAL,
POINTER,
DIMENSION(:) :: XDATA_GC
111 REAL,
POINTER,
DIMENSION(:) :: XDATA_DMAX
114 REAL,
POINTER,
DIMENSION(:) :: XDATA_BSLAI_ST
115 REAL,
POINTER,
DIMENSION(:) :: XDATA_SEFOLD_ST
116 REAL,
POINTER,
DIMENSION(:) :: XDATA_GMES_ST
117 REAL,
POINTER,
DIMENSION(:) :: XDATA_GC_ST
118 REAL,
POINTER,
DIMENSION(:) :: XDATA_DMAX_ST
123 REAL,
POINTER,
DIMENSION(:) :: XDATA_CE_NITRO
125 REAL,
POINTER,
DIMENSION(:) :: XDATA_CF_NITRO
127 REAL,
POINTER,
DIMENSION(:) :: XDATA_CNA_NITRO
134 REAL,
POINTER,
DIMENSION(:,:) :: XDATA_DG
140 REAL,
POINTER,
DIMENSION(:) :: XDATA_DICE
145 REAL,
POINTER,
DIMENSION(:) :: XDATA_ALBNIR_SOIL
146 REAL,
POINTER,
DIMENSION(:) :: XDATA_ALBVIS_SOIL
147 REAL,
POINTER,
DIMENSION(:) :: XDATA_ALBUV_SOIL
148 REAL,
POINTER,
DIMENSION(:) :: XDATA_ALBNIR_DRY
149 REAL,
POINTER,
DIMENSION(:) :: XDATA_ALBVIS_DRY
150 REAL,
POINTER,
DIMENSION(:) :: XDATA_ALBUV_DRY
151 REAL,
POINTER,
DIMENSION(:) :: XDATA_ALBNIR_WET
152 REAL,
POINTER,
DIMENSION(:) :: XDATA_ALBVIS_WET
153 REAL,
POINTER,
DIMENSION(:) :: XDATA_ALBUV_WET
159 REAL,
POINTER,
DIMENSION(:,:) :: XDATA_LAI
177 REAL(KIND=JPRB) :: zhook_handle
178 IF (lhook) CALL dr_hook(
"MODD_DATA_TEB_GARDEN_N:DATA_TEB_GARDEN_INIT",0,zhook_handle)
179 nullify(ydata_teb_garden%XDATA_FRAC_HVEG)
180 nullify(ydata_teb_garden%XDATA_FRAC_LVEG)
181 nullify(ydata_teb_garden%XDATA_FRAC_NVEG)
182 nullify(ydata_teb_garden%XDATA_LAI_HVEG)
183 nullify(ydata_teb_garden%XDATA_LAI_LVEG)
184 nullify(ydata_teb_garden%XDATA_H_HVEG)
185 nullify(ydata_teb_garden%XDATA_VEGTYPE)
186 nullify(ydata_teb_garden%XDATA_Z0_O_Z0H)
187 nullify(ydata_teb_garden%XDATA_EMIS)
188 nullify(ydata_teb_garden%XDATA_Z0)
189 nullify(ydata_teb_garden%XDATA_ALBNIR_VEG)
190 nullify(ydata_teb_garden%XDATA_ALBVIS_VEG)
191 nullify(ydata_teb_garden%XDATA_ALBUV_VEG)
192 nullify(ydata_teb_garden%XDATA_VEG)
193 nullify(ydata_teb_garden%XDATA_WRMAX_CF)
194 nullify(ydata_teb_garden%XDATA_RSMIN)
195 nullify(ydata_teb_garden%XDATA_GAMMA)
196 nullify(ydata_teb_garden%XDATA_CV)
197 nullify(ydata_teb_garden%XDATA_RGL)
198 nullify(ydata_teb_garden%XDATA_ROOTFRAC)
199 nullify(ydata_teb_garden%XDATA_BSLAI)
200 nullify(ydata_teb_garden%XDATA_LAIMIN)
201 nullify(ydata_teb_garden%XDATA_SEFOLD)
202 nullify(ydata_teb_garden%XDATA_H_TREE)
203 nullify(ydata_teb_garden%XDATA_GMES)
204 nullify(ydata_teb_garden%XDATA_RE25)
205 nullify(ydata_teb_garden%LDATA_STRESS)
206 nullify(ydata_teb_garden%XDATA_F2I)
207 nullify(ydata_teb_garden%XDATA_GC)
208 nullify(ydata_teb_garden%XDATA_DMAX)
209 nullify(ydata_teb_garden%XDATA_BSLAI_ST)
210 nullify(ydata_teb_garden%XDATA_SEFOLD_ST)
211 nullify(ydata_teb_garden%XDATA_GMES_ST)
212 nullify(ydata_teb_garden%XDATA_GC_ST)
213 nullify(ydata_teb_garden%XDATA_DMAX_ST)
214 nullify(ydata_teb_garden%XDATA_CE_NITRO)
215 nullify(ydata_teb_garden%XDATA_CF_NITRO)
216 nullify(ydata_teb_garden%XDATA_CNA_NITRO)
217 nullify(ydata_teb_garden%XDATA_DG)
218 nullify(ydata_teb_garden%XDATA_DICE)
219 nullify(ydata_teb_garden%XDATA_ALBNIR_SOIL)
220 nullify(ydata_teb_garden%XDATA_ALBVIS_SOIL)
221 nullify(ydata_teb_garden%XDATA_ALBUV_SOIL)
222 nullify(ydata_teb_garden%XDATA_ALBNIR_DRY)
223 nullify(ydata_teb_garden%XDATA_ALBVIS_DRY)
224 nullify(ydata_teb_garden%XDATA_ALBUV_DRY)
225 nullify(ydata_teb_garden%XDATA_ALBNIR_WET)
226 nullify(ydata_teb_garden%XDATA_ALBVIS_WET)
227 nullify(ydata_teb_garden%XDATA_ALBUV_WET)
228 nullify(ydata_teb_garden%XDATA_LAI)
229 ydata_teb_garden%NTIME=0
230 IF (lhook) CALL dr_hook(
"MODD_DATA_TEB_GARDEN_N:DATA_TEB_GARDEN_INIT",1,zhook_handle)
subroutine data_teb_garden_init(YDATA_TEB_GARDEN)