SURFEX v8.1
General documentation of Surfex
modd_data_isban.F90
Go to the documentation of this file.
1 !SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
2 !SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
3 !SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
4 !SFX_LIC for details. version 1.
5 ! ##################
6  MODULE modd_data_isba_n
7 ! ##################
8 !
9 !!**** *MODD_DATA_ISBA - declaration of DATA surface parameters for ISBA scheme
10 !!
11 !! PURPOSE
12 !! -------
13 !
14 !!
15 !!** IMPLICIT ARGUMENTS
16 !! ------------------
17 !! None
18 !!
19 !! REFERENCE
20 !! ---------
21 !!
22 !! AUTHOR
23 !! ------
24 !! V. Masson *Meteo France*
25 !!
26 !! MODIFICATIONS
27 !! -------------
28 !! Original 05/2005
29 !! P Samuelsson 02/2012 MEB
30 !! B. Decharme 01/16 : Bug when vegetation veg, z0 and emis are imposed whith interactive vegetation
31 !
32 !* 0. DECLARATIONS
33 ! ------------
34 !
35 USE modd_data_cover_par, ONLY : nvegtype_ecosg, nvegtype_old
36 !
37 USE yomhook ,ONLY : lhook, dr_hook
38 USE parkind1 ,ONLY : jprb
39 !
40 IMPLICIT NONE
41 
42 TYPE data_isba_t
43 !-------------------------------------------------------------------------------
44 !
45 ! Mask and number of grid elements containing patches/tiles:
46 !
47  REAL, POINTER, DIMENSION(:,:) :: xpar_vegtype ! fraction of each vegetation type for
48 ! ! each grid mesh (-)
49 !
50 !-------------------------------------------------------------------------------
51 !
52  INTEGER :: nvegtype
53 !
54  INTEGER :: ntime ! number of time data
55 ! ! for VEG, LAI, EMIS, Z0
56  LOGICAL :: ldata_mixpar
57 !
58  LOGICAL :: ldata_vegtype
59 !
60  LOGICAL, POINTER, DIMENSION(:) :: ldata_lai
61  LOGICAL, POINTER, DIMENSION(:) :: ldata_veg
62  LOGICAL, POINTER, DIMENSION(:) :: ldata_z0
63  LOGICAL, POINTER, DIMENSION(:) :: ldata_emis
64  LOGICAL, POINTER, DIMENSION(:) :: ldata_albnir_veg
65  LOGICAL, POINTER, DIMENSION(:) :: ldata_albvis_veg
66  LOGICAL, POINTER, DIMENSION(:) :: ldata_albuv_veg
67  LOGICAL, POINTER, DIMENSION(:) :: ldata_irrig
68  LOGICAL, POINTER, DIMENSION(:) :: ldata_watsup
69  LOGICAL, POINTER, DIMENSION(:) :: ldata_albnir_soil
70  LOGICAL, POINTER, DIMENSION(:) :: ldata_albvis_soil
71  LOGICAL, POINTER, DIMENSION(:) :: ldata_albuv_soil
72 ! - For multi-energy balance (MEB)
73 !
74  LOGICAL, POINTER, DIMENSION(:) :: ldata_gndlitter
75  LOGICAL, POINTER, DIMENSION(:) :: ldata_z0litter
76  LOGICAL, POINTER, DIMENSION(:) :: ldata_h_veg
77  !
78  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_dg
79  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_rootfrac
80  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_h_tree
81  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_dice
82  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_ground_depth
83  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_root_depth
84  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_root_extinction
85  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_root_lin
86  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_rsmin
87  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_gamma
88  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_wrmax_cf
89  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_cv
90  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_z0_o_z0h
91  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_rgl
92  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_bslai
93  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_laimin
94  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_sefold
95  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_gmes
96  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_re25
97  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_stress
98  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_f2i
99  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_gc
100  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_dmax
101  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_ce_nitro
102  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_cf_nitro
103  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_cna_nitro
104  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_seed_m
105  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_seed_d
106  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_reap_m
107  LOGICAL, DIMENSION(MAX(NVEGTYPE_OLD,NVEGTYPE_ECOSG)) :: ldata_reap_d
108 !
109  LOGICAL :: ldata_condsat
110  LOGICAL :: ldata_mpotsat
111  LOGICAL :: ldata_bcoef
112  LOGICAL :: ldata_wwilt
113  LOGICAL :: ldata_wfc
114  LOGICAL :: ldata_wsat
115 !
116  LOGICAL :: limp_veg
117  LOGICAL :: limp_z0
118  LOGICAL :: limp_emis
119 !
120 ! Input Parameters, per patch:
121 !
122 ! - vegetation + bare soil:
123 !
124  REAL, POINTER, DIMENSION(:,:) :: xpar_z0_o_z0h ! ratio of surface roughness lengths
125 ! ! (momentum to heat) (-)
126  REAL, POINTER, DIMENSION(:,:,:) :: xpar_emis ! surface emissivity (-)
127  REAL, POINTER, DIMENSION(:,:,:) :: xpar_z0 ! surface roughness length (m)
128 !
129 ! - vegetation:
130 !
131  REAL, POINTER, DIMENSION(:,:,:) :: xpar_albnir_veg ! vegetation near-infra-red albedo (-)
132  REAL, POINTER, DIMENSION(:,:,:) :: xpar_albvis_veg ! vegetation visible albedo (-)
133  REAL, POINTER, DIMENSION(:,:,:) :: xpar_albuv_veg ! vegetation UV albedo (-)
134 !
135 ! - vegetation: default option (Jarvis) and general parameters:
136 !
137  REAL, POINTER, DIMENSION(:,:,:) :: xpar_veg ! vegetation cover fraction (-)
138  REAL, POINTER, DIMENSION(:,:) :: xpar_wrmax_cf ! coefficient for maximum water
139 ! ! interception
140 ! ! storage capacity on the vegetation (-)
141  REAL, POINTER, DIMENSION(:,:) :: xpar_rsmin ! minimum stomatal resistance (s/m)
142  REAL, POINTER, DIMENSION(:,:) :: xpar_gamma ! coefficient for the calculation
143 ! ! of the surface stomatal
144 ! ! resistance
145  REAL, POINTER, DIMENSION(:,:) :: xpar_cv ! vegetation thermal inertia coefficient (K m2/J)
146  REAL, POINTER, DIMENSION(:,:) :: xpar_rgl ! maximum solar radiation
147 ! ! usable in photosynthesis (W/m2)
148  REAL, POINTER, DIMENSION(:,:,:) :: xpar_rootfrac ! root fraction profile ('DIF' option)
149 !
150  REAL, POINTER, DIMENSION(:,:) :: xpar_root_depth ! root depth ('DIF' option)
151  REAL, POINTER, DIMENSION(:,:) :: xpar_root_extinction ! root extinction parameter ('DIF' option)
152  REAL, POINTER, DIMENSION(:,:) :: xpar_root_lin ! root linear parameter ('DIF' option)
153 !
154 ! - For multi-energy balance (MEB)
155 !
156  REAL, POINTER, DIMENSION(:,:,:) :: xpar_gndlitter ! ground litter fraction
157  REAL, POINTER, DIMENSION(:,:,:) :: xpar_z0litter ! ground litter roughness length
158  REAL, POINTER, DIMENSION(:,:,:) :: xpar_h_veg ! height of canopy vegetation
159 !
160 !-------------------------------------------------------------------------------
161 !
162 ! - vegetation: Ags parameters ('AGS', 'LAI', 'AST', 'LST', 'NIT', 'NCB' options)
163 !
164  REAL, POINTER, DIMENSION(:,:) :: xpar_bslai ! ratio d(biomass)/d(lai) (kg/m2)
165  REAL, POINTER, DIMENSION(:,:) :: xpar_laimin ! minimum LAI (Leaf Area Index) (m2/m2)
166  REAL, POINTER, DIMENSION(:,:) :: xpar_sefold ! e-folding time for senescence (s)
167  REAL, POINTER, DIMENSION(:,:) :: xpar_h_tree ! height of trees (m)
168  REAL, POINTER, DIMENSION(:,:) :: xpar_gmes ! mesophyll conductance (m s-1)
169  REAL, POINTER, DIMENSION(:,:) :: xpar_re25 ! Ecosystem respiration parameter (kg m2 s-1)
170 !
171 !-------------------------------------------------------------------------------
172 !
173 ! - vegetation: Ags Stress parameters ('AST', 'LST', 'NIT', 'NCB' options)
174 !
175  LOGICAL, POINTER, DIMENSION(:,:) :: lpar_stress ! vegetation response type to water
176 ! ! stress (true:defensive false:offensive) (-)
177  REAL, POINTER, DIMENSION(:,:) :: xpar_f2i ! critical normilized soil water
178 ! ! content for stress parameterisation
179  REAL, POINTER, DIMENSION(:,:) :: xpar_gc ! cuticular conductance (m s-1)
180  REAL, POINTER, DIMENSION(:,:) :: xpar_dmax ! maximum air saturation deficit
181 ! ! tolerate by vegetation (kg/kg)
182 !
183 !-------------------------------------------------------------------------------
184 !
185 ! - vegetation: Ags Nitrogen-model parameters ('NIT', 'NCB' option)
186 !
187  REAL, POINTER, DIMENSION(:,:) :: xpar_ce_nitro ! leaf aera ratio sensitivity to
188 ! ! nitrogen concentration (m2/kg)
189  REAL, POINTER, DIMENSION(:,:) :: xpar_cf_nitro ! lethal minimum value of leaf area
190 ! ! ratio (m2/kg)
191  REAL, POINTER, DIMENSION(:,:) :: xpar_cna_nitro ! nitrogen concentration of active
192 ! ! biomass (kg/kg)
193 !
194 !-------------------------------------------------------------------------------
195 !
196 ! - soil: primary parameters
197 !
198  REAL, POINTER, DIMENSION(:,:,:) :: xpar_dg ! soil layer depth (m)
199 ! ! NOTE: in Force-Restore mode, the
200 ! ! uppermost layer thickness is superficial
201 ! ! and is only explicitly used for soil
202 ! ! water phase changes (m)
203 !
204  REAL, POINTER,DIMENSION(:,:) :: xpar_ground_depth ! ground depth (DIF option)
205 !
206  REAL, POINTER,DIMENSION(:,:) :: xpar_dice ! depth of the soil column for the calculation
207 ! of the frozen soil fraction (m) (Force restore)
208 !
209 ! - bare soil albedo
210 !
211  REAL, POINTER, DIMENSION(:,:,:) :: xpar_albnir_soil ! soil near-infra-red albedo (-)
212  REAL, POINTER, DIMENSION(:,:,:) :: xpar_albvis_soil ! soil visible albedo (-)
213  REAL, POINTER, DIMENSION(:,:,:) :: xpar_albuv_soil ! soil UV albedo (-)
214 !
215  REAL, POINTER, DIMENSION(:,:) :: xpar_condsat
216  REAL, POINTER, DIMENSION(:,:) :: xpar_mpotsat
217  REAL, POINTER, DIMENSION(:,:) :: xpar_bcoef
218  REAL, POINTER, DIMENSION(:,:) :: xpar_wwilt
219  REAL, POINTER, DIMENSION(:,:) :: xpar_wfc
220  REAL, POINTER, DIMENSION(:,:) :: xpar_wsat
221 !
222 !-------------------------------------------------------------------------------
223 !
224 ! - Vegetation: Ags Prognostic (YPHOTO = ('NIT' or 'NCB') or prescribed (YPHOTO='NON' or 'AST')
225 !
226  REAL, POINTER, DIMENSION(:,:,:) :: xpar_lai ! Leaf Area Index (m2/m2)
227 !
228  REAL, POINTER, DIMENSION(:,:,:) :: xpar_irrig
229  REAL, POINTER, DIMENSION(:,:,:) :: xpar_watsup
230  REAL, POINTER, DIMENSION(:,:) :: xpar_seed_m
231  REAL, POINTER, DIMENSION(:,:) :: xpar_seed_d
232  REAL, POINTER, DIMENSION(:,:) :: xpar_reap_m
233  REAL, POINTER, DIMENSION(:,:) :: xpar_reap_d
234 !
235 !-------------------------------------------------------------------------------
236 !
237  REAL, POINTER, DIMENSION(:) :: xpar_frac_hveg ! fraction of high vegetation
238  REAL, POINTER, DIMENSION(:) :: xpar_frac_lveg ! fraction of low vegetation
239  REAL, POINTER, DIMENSION(:) :: xpar_frac_nveg ! fraction of bare soil
240  REAL, POINTER, DIMENSION(:,:) :: xpar_lai_hveg ! LAI of high vegetation
241  REAL, POINTER, DIMENSION(:,:) :: xpar_lai_lveg ! LAI of low vegetation
242  REAL, POINTER, DIMENSION(:) :: xpar_h_hveg ! height of trees
243 !
244 END TYPE data_isba_t
245 
246 
247 
248 CONTAINS
249 
250 !
251 
252 
253 
254 
255 SUBROUTINE data_isba_init(YDATA_ISBA)
256 TYPE(data_isba_t), INTENT(INOUT) :: YDATA_ISBA
257 REAL(KIND=JPRB) :: ZHOOK_HANDLE
258 IF (lhook) CALL dr_hook("MODD_DATA_ISBA_N:DATA_ISBA_INIT",0,zhook_handle)
259  NULLIFY(ydata_isba%XPAR_VEGTYPE)
260  NULLIFY(ydata_isba%XPAR_Z0_O_Z0H)
261  NULLIFY(ydata_isba%XPAR_EMIS)
262  NULLIFY(ydata_isba%XPAR_Z0)
263  NULLIFY(ydata_isba%XPAR_ALBNIR_VEG)
264  NULLIFY(ydata_isba%XPAR_ALBVIS_VEG)
265  NULLIFY(ydata_isba%XPAR_ALBUV_VEG)
266  NULLIFY(ydata_isba%XPAR_VEG)
267  NULLIFY(ydata_isba%XPAR_WRMAX_CF)
268  NULLIFY(ydata_isba%XPAR_RSMIN)
269  NULLIFY(ydata_isba%XPAR_GAMMA)
270  NULLIFY(ydata_isba%XPAR_CV)
271  NULLIFY(ydata_isba%XPAR_RGL)
272  NULLIFY(ydata_isba%XPAR_ROOTFRAC)
273  NULLIFY(ydata_isba%XPAR_BSLAI)
274  NULLIFY(ydata_isba%XPAR_LAIMIN)
275  NULLIFY(ydata_isba%XPAR_SEFOLD)
276  NULLIFY(ydata_isba%XPAR_H_TREE)
277  NULLIFY(ydata_isba%XPAR_GMES)
278  NULLIFY(ydata_isba%XPAR_RE25)
279  NULLIFY(ydata_isba%LPAR_STRESS)
280  NULLIFY(ydata_isba%XPAR_F2I)
281  NULLIFY(ydata_isba%XPAR_GC)
282  NULLIFY(ydata_isba%XPAR_DMAX)
283  NULLIFY(ydata_isba%XPAR_CE_NITRO)
284  NULLIFY(ydata_isba%XPAR_CF_NITRO)
285  NULLIFY(ydata_isba%XPAR_CNA_NITRO)
286  NULLIFY(ydata_isba%XPAR_DG)
287  NULLIFY(ydata_isba%XPAR_DICE)
288  NULLIFY(ydata_isba%XPAR_GROUND_DEPTH)
289  NULLIFY(ydata_isba%XPAR_ROOT_DEPTH)
290  NULLIFY(ydata_isba%XPAR_ROOT_EXTINCTION)
291  NULLIFY(ydata_isba%XPAR_ROOT_LIN)
292  NULLIFY(ydata_isba%XPAR_ALBNIR_SOIL)
293  NULLIFY(ydata_isba%XPAR_ALBVIS_SOIL)
294  NULLIFY(ydata_isba%XPAR_ALBUV_SOIL)
295  NULLIFY(ydata_isba%XPAR_LAI)
296  NULLIFY(ydata_isba%XPAR_IRRIG)
297  NULLIFY(ydata_isba%XPAR_WATSUP)
298  NULLIFY(ydata_isba%XPAR_SEED_M)
299  NULLIFY(ydata_isba%XPAR_SEED_D)
300  NULLIFY(ydata_isba%XPAR_REAP_M)
301  NULLIFY(ydata_isba%XPAR_REAP_D)
302  NULLIFY(ydata_isba%XPAR_GNDLITTER)
303  NULLIFY(ydata_isba%XPAR_Z0LITTER)
304  NULLIFY(ydata_isba%XPAR_H_VEG)
305  NULLIFY(ydata_isba%XPAR_FRAC_HVEG)
306  NULLIFY(ydata_isba%XPAR_FRAC_LVEG)
307  NULLIFY(ydata_isba%XPAR_FRAC_NVEG)
308  NULLIFY(ydata_isba%XPAR_LAI_HVEG)
309  NULLIFY(ydata_isba%XPAR_LAI_LVEG)
310  NULLIFY(ydata_isba%XPAR_H_HVEG)
311  NULLIFY(ydata_isba%XPAR_CONDSAT)
312  NULLIFY(ydata_isba%XPAR_MPOTSAT)
313  NULLIFY(ydata_isba%XPAR_BCOEF)
314  NULLIFY(ydata_isba%XPAR_WWILT)
315  NULLIFY(ydata_isba%XPAR_WFC)
316  NULLIFY(ydata_isba%XPAR_WSAT)
317 !
318 ydata_isba%NTIME=0
319 ydata_isba%LDATA_MIXPAR=.false.
320 ydata_isba%LDATA_VEGTYPE=.false.
321 !
322 NULLIFY(ydata_isba%LDATA_LAI)
323 NULLIFY(ydata_isba%LDATA_VEG)
324 NULLIFY(ydata_isba%LDATA_Z0)
325 NULLIFY(ydata_isba%LDATA_EMIS)
326 NULLIFY(ydata_isba%LDATA_ALBNIR_VEG)
327 NULLIFY(ydata_isba%LDATA_ALBVIS_VEG)
328 NULLIFY(ydata_isba%LDATA_ALBUV_VEG)
329 NULLIFY(ydata_isba%LDATA_ALBNIR_SOIL)
330 NULLIFY(ydata_isba%LDATA_ALBVIS_SOIL)
331 NULLIFY(ydata_isba%LDATA_ALBUV_SOIL)
332 NULLIFY(ydata_isba%LDATA_GNDLITTER)
333 NULLIFY(ydata_isba%LDATA_Z0LITTER)
334 NULLIFY(ydata_isba%LDATA_H_VEG)
335 NULLIFY(ydata_isba%LDATA_IRRIG)
336 NULLIFY(ydata_isba%LDATA_WATSUP)
337 !
338 ydata_isba%LDATA_DG(:) = .false.
339 ydata_isba%LDATA_ROOTFRAC(:) = .false.
340 ydata_isba%LDATA_H_TREE(:) = .false.
341 ydata_isba%LDATA_DICE(:) = .false.
342 ydata_isba%LDATA_GROUND_DEPTH(:) = .false.
343 ydata_isba%LDATA_ROOT_DEPTH(:) = .false.
344 ydata_isba%LDATA_ROOT_EXTINCTION(:) = .false.
345 ydata_isba%LDATA_ROOT_LIN(:) = .false.
346 ydata_isba%LDATA_RSMIN(:) = .false.
347 ydata_isba%LDATA_GAMMA(:) = .false.
348 ydata_isba%LDATA_WRMAX_CF(:) = .false.
349 ydata_isba%LDATA_CV(:) = .false.
350 ydata_isba%LDATA_RGL(:) = .false.
351 ydata_isba%LDATA_Z0_O_Z0H(:) = .false.
352 ydata_isba%LDATA_BSLAI(:) = .false.
353 ydata_isba%LDATA_LAIMIN(:) = .false.
354 ydata_isba%LDATA_SEFOLD(:) = .false.
355 ydata_isba%LDATA_GMES(:) = .false.
356 ydata_isba%LDATA_RE25(:) = .false.
357 ydata_isba%LDATA_STRESS(:) = .false.
358 ydata_isba%LDATA_F2I(:) = .false.
359 ydata_isba%LDATA_GC(:) = .false.
360 ydata_isba%LDATA_DMAX(:) = .false.
361 ydata_isba%LDATA_CE_NITRO(:) = .false.
362 ydata_isba%LDATA_CF_NITRO(:) = .false.
363 ydata_isba%LDATA_CNA_NITRO(:) = .false.
364 ydata_isba%LDATA_SEED_M(:) = .false.
365 ydata_isba%LDATA_SEED_D(:) = .false.
366 ydata_isba%LDATA_REAP_M(:) = .false.
367 ydata_isba%LDATA_REAP_D(:) = .false.
368 !
369 ydata_isba%LDATA_CONDSAT = .false.
370 ydata_isba%LDATA_MPOTSAT = .false.
371 ydata_isba%LDATA_BCOEF = .false.
372 ydata_isba%LDATA_WWILT = .false.
373 ydata_isba%LDATA_WFC = .false.
374 ydata_isba%LDATA_WSAT = .false.
375 !
376 ydata_isba%LIMP_VEG=.false.
377 ydata_isba%LIMP_Z0=.false.
378 ydata_isba%LIMP_EMIS=.false.
379 !
380 IF (lhook) CALL dr_hook("MODD_DATA_ISBA_N:DATA_ISBA_INIT",1,zhook_handle)
381 END SUBROUTINE data_isba_init
382 
383 
384 END MODULE modd_data_isba_n
yomhook::dr_hook
Definition: yomhook.F90:20
parkind1::jprb
integer, parameter jprb
Definition: parkind1.F90:32
modd_data_isba_n::data_isba_t
Definition: modd_data_isban.F90:42
yomhook::lhook
logical lhook
Definition: yomhook.F90:15
modd_data_isba_n
Definition: modd_data_isban.F90:6
modd_data_isba_n::data_isba_init
subroutine data_isba_init(YDATA_ISBA)
Definition: modd_data_isban.F90:256
Generated on Tue Jan 16 2018 16:23:29 for SURFEX v8.1 by   doxygen 1.8.13