SURFEX  V8_0
Surfex V8_0 release
 All Classes Files Functions Variables
modd_diag_misc_tebn.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_diag_misc_teb_n
7 ! ############################
8 !
9 !!**** *MODD_DIAG_MISC_TEB - declaration of packed surface parameters for TEB scheme
10 !!
11 !! PURPOSE
12 !! -------
13 !
14 !!
15 !!** IMPLICIT ARGUMENTS
16 !! ------------------
17 !! None
18 !!
19 !! REFERENCE
20 !! ---------
21 !!
22 !! AUTHOR
23 !! ------
24 !! P. Le Moigne *Meteo France*
25 !!
26 !! MODIFICATIONS
27 !! -------------
28 !! Original 07/10/04
29 !! C de Munck 02/13 adding runoff contributions for teb garden
30 !! V. Masson 06/2013 splits module in two
31 !
32 !
33 !* 0. DECLARATIONS
34 ! ------------
35 !
36 !
37 !
38 USE yomhook ,ONLY : lhook, dr_hook
39 USE parkind1 ,ONLY : jprb
40 !
41 IMPLICIT NONE
42 !
43 TYPE diag_misc_teb_1p_t
44 !
45 !* miscellaneous variables
46 !
47  REAL, POINTER, DIMENSION(:) :: XZ0_TOWN ! town roughness length
48  REAL, POINTER, DIMENSION(:) :: XQF_BLD ! domestic heating
49  REAL, POINTER, DIMENSION(:) :: XFLX_BLD ! heat flux from bld
50  REAL, POINTER, DIMENSION(:) :: XQF_TOWN ! total anthropogenic heat
51  REAL, POINTER, DIMENSION(:) :: XDQS_TOWN ! storage inside building
52 !
53  REAL, POINTER, DIMENSION(:) :: XH_WALL_A ! wall sensible heat flux (W/m2)
54  REAL, POINTER, DIMENSION(:) :: XH_WALL_B ! wall sensible heat flux (W/m2)
55  REAL, POINTER, DIMENSION(:) :: XH_ROOF ! roof sensible heat flux (W/m2)
56  REAL, POINTER, DIMENSION(:) :: XH_ROAD ! road sensible heat flux (W/m2)
57  REAL, POINTER, DIMENSION(:) :: XH_GARDEN ! green area sensible heat flux (W/m2)
58  REAL, POINTER, DIMENSION(:) :: XH_GREENROOF! green roof sensible heat flux (W/m2)
59  REAL, POINTER, DIMENSION(:) :: XH_STRLROOF ! structural roof sens. heat flux (W/m2)
60  REAL, POINTER, DIMENSION(:) :: XH_BLT ! built surf sensible heat flux (W/m2)
61  REAL, POINTER, DIMENSION(:) :: XRN_WALL_A ! net radiation at wall (W/m2)
62  REAL, POINTER, DIMENSION(:) :: XRN_WALL_B ! net radiation at wall (W/m2)
63  REAL, POINTER, DIMENSION(:) :: XRN_ROOF ! net radiation at roof (W/m2)
64  REAL, POINTER, DIMENSION(:) :: XRN_ROAD ! net radiation at road (W/m2)
65  REAL, POINTER, DIMENSION(:) :: XRN_GARDEN ! net radiation at green areas (W/m2)
66  REAL, POINTER, DIMENSION(:) :: XRN_GREENROOF!net radiation at green roofs (W/m2)
67  REAL, POINTER, DIMENSION(:) :: XRN_STRLROOF !net radiation at structural roofs(W/m2)
68  REAL, POINTER, DIMENSION(:) :: XRN_BLT ! net radiation at built surf (W/m2)
69  REAL, POINTER, DIMENSION(:) :: XGFLUX_WALL_A !net wall conduction flux (W/m2)
70  REAL, POINTER, DIMENSION(:) :: XGFLUX_WALL_B !net wall conduction flux (W/m2)
71  REAL, POINTER, DIMENSION(:) :: XGFLUX_ROOF ! net roof conduction flux (W/m2)
72  REAL, POINTER, DIMENSION(:) :: XGFLUX_ROAD ! net road conduction flux (W/m2)
73  REAL, POINTER, DIMENSION(:) :: XGFLUX_GARDEN!net green area conduction flux (W/m2)
74  REAL, POINTER, DIMENSION(:) :: XGFLUX_GREENROOF!net green roof conduction flux(W/m2)
75  REAL, POINTER, DIMENSION(:) :: XGFLUX_STRLROOF !net structural roof cond flux (W/m2)
76  REAL, POINTER, DIMENSION(:) :: XGFLUX_BLT ! net built surf conduction flux (W/m2)
77  REAL, POINTER, DIMENSION(:) :: XLE_ROOF ! roof latent heat flux (W/m2)
78  REAL, POINTER, DIMENSION(:) :: XLE_ROAD ! road latent heat flux (W/m2)
79  REAL, POINTER, DIMENSION(:) :: XLE_GARDEN ! green area latent heat flux (W/m2)
80  REAL, POINTER, DIMENSION(:) :: XLE_GREENROOF!green roof latent heat flux (W/m2)
81  REAL, POINTER, DIMENSION(:) :: XLE_STRLROOF !structural roof latent heat flux (W/m2)
82  REAL, POINTER, DIMENSION(:) :: XLE_BLT ! built surf latent heat flux (W/m2)
83 !
84  REAL, POINTER, DIMENSION(:) :: XRUNOFF_TOWN ! aggregated water runoff for town (kg/m2/s)
85  REAL, POINTER, DIMENSION(:) :: XRUNOFF_GARDEN ! water runoff for green areas (kg/m2/s)
86  REAL, POINTER, DIMENSION(:) :: XDRAIN_GARDEN ! water vertical drainage for gardens (kg/m2/s)
87  REAL, POINTER, DIMENSION(:) :: XIRRIG_GARDEN ! summer ground irrigation rate (kg/m2/s)
88  REAL, POINTER, DIMENSION(:) :: XRUNOFF_ROAD ! water runoff for roads (kg/m2/s)
89  REAL, POINTER, DIMENSION(:) :: XIRRIG_ROAD ! road man-made watering rate (kg/m2/s)
90  REAL, POINTER, DIMENSION(:) :: XRUNOFF_ROOF ! aggregated water runoff for roofs (kg/m2/s)
91  REAL, POINTER, DIMENSION(:) :: XRUNOFF_STRLROOF ! water runoff for structural roofs (kg/m2/s)
92  REAL, POINTER, DIMENSION(:) :: XRUNOFF_GREENROOF ! water runoff for greenroof (kg/m2/s)
93  REAL, POINTER, DIMENSION(:) :: XDRAIN_GREENROOF ! water vertical drainage for greenroof (kg/m2/s)
94  REAL, POINTER, DIMENSION(:) :: XIRRIG_GREENROOF ! summer ground irrigation rate (kg/m2/s)
95 !
96  REAL, POINTER, DIMENSION(:) :: XABS_SW_ROOF ! absorbed shortwave radiation over roofs
97  REAL, POINTER, DIMENSION(:) :: XABS_SW_SNOW_ROOF ! absorbed longwave radiation over roofs
98  REAL, POINTER, DIMENSION(:) :: XABS_LW_ROOF ! absorbed shortwave radiation over roofs
99  REAL, POINTER, DIMENSION(:) :: XABS_LW_SNOW_ROOF ! absorbed longwave radiation over roofs
100  REAL, POINTER, DIMENSION(:) :: XABS_SW_ROAD ! absorbed shortwave radiation over roads
101  REAL, POINTER, DIMENSION(:) :: XABS_SW_SNOW_ROAD ! absorbed longwave radiation over roads
102  REAL, POINTER, DIMENSION(:) :: XABS_LW_ROAD ! absorbed shortwave radiation over roads
103  REAL, POINTER, DIMENSION(:) :: XABS_LW_SNOW_ROAD ! absorbed longwave radiation over roads
104  REAL, POINTER, DIMENSION(:) :: XABS_SW_WALL_A ! absorbed shortwave radiation over walls
105  REAL, POINTER, DIMENSION(:) :: XABS_SW_WALL_B ! absorbed shortwave radiation over walls
106  REAL, POINTER, DIMENSION(:) :: XABS_LW_WALL_A ! absorbed shortwave radiation over walls
107  REAL, POINTER, DIMENSION(:) :: XABS_LW_WALL_B ! absorbed shortwave radiation over walls
108  REAL, POINTER, DIMENSION(:) :: XABS_SW_GARDEN ! absorbed shortwave radiation over green areas
109  REAL, POINTER, DIMENSION(:) :: XABS_LW_GARDEN ! absorbed shortwave radiation over green areas
110  REAL, POINTER, DIMENSION(:) :: XABS_SW_GREENROOF ! absorbed shortwave radiation over green roofs
111  REAL, POINTER, DIMENSION(:) :: XABS_LW_GREENROOF ! absorbed shortwave radiation over green roofs
112  REAL, POINTER, DIMENSION(:) :: XG_GREENROOF_ROOF ! Heat flux between green roof and structural roof
113  REAL, POINTER, DIMENSION(:) :: XABS_SW_PANEL ! absorbed shortwave radiation over solar panels
114  REAL, POINTER, DIMENSION(:) :: XABS_LW_PANEL ! absorbed longwave radiation over solar panels
115 !
116  REAL, POINTER, DIMENSION(:) :: XRN_PANEL ! net radiation over solar panels (W/m2)
117  REAL, POINTER, DIMENSION(:) :: XH_PANEL ! sensible heat flux over solar panels (W/m2)
118  REAL, POINTER, DIMENSION(:) :: XTHER_PROD_PANEL ! thermal production of solar panels (W/m2 thermal panel)
119  REAL, POINTER, DIMENSION(:) :: XPHOT_PROD_PANEL ! photovoltaic production of solar panels (W/m2 photovoltaic panel)
120  REAL, POINTER, DIMENSION(:) :: XPROD_PANEL ! production of solar panels (W/m2 panel)
121  REAL, POINTER, DIMENSION(:) :: XTHER_PROD_BLD ! thermal production of solar panels (W/m2 bld)
122  REAL, POINTER, DIMENSION(:) :: XPHOT_PROD_BLD ! photovoltaic production of solar panels (W/m2 bld)
123 
124  REAL, POINTER, DIMENSION(:) :: XH_BLD_COOL ! Sensible cooling energy demand
125  ! of the building [W m-2(bld)]
126  REAL, POINTER, DIMENSION(:) :: XT_BLD_COOL ! Total cooling energy demand
127  ! of the building [W m-2(bld)]
128  REAL, POINTER, DIMENSION(:) :: XH_BLD_HEAT ! Heating energy demand
129  ! of the building [W m-2(bld)]
130  REAL, POINTER, DIMENSION(:) :: XLE_BLD_COOL ! Latent cooling energy demand
131  ! of the building [W m-2(bld)]
132  REAL, POINTER, DIMENSION(:) :: XLE_BLD_HEAT ! Latent heating energy demand
133  ! of the building [W m-2(bld)]
134  REAL, POINTER, DIMENSION(:) :: XH_WASTE ! Sensible waste heat from HVAC system
135  ! [W m-2(tot)]
136  REAL, POINTER, DIMENSION(:) :: XLE_WASTE ! Latent waste heat from HVAC system
137  ! [W m-2(tot)]
138  REAL, POINTER, DIMENSION(:) :: XHVAC_COOL ! Energy consumption of the cooling system
139  ! [W m-2(bld)]
140  REAL, POINTER, DIMENSION(:) :: XHVAC_HEAT ! Energy consumption of the heating system
141  ! [W m-2(bld)]
142  REAL, POINTER, DIMENSION(:) :: XCAP_SYS ! Actual capacity of the cooling system
143  ! [W m-2(bld)]
144  REAL, POINTER, DIMENSION(:) :: XM_SYS ! Actual HVAC mass flow rate
145  ! [kg s-1 m-2(bld)]
146  REAL, POINTER, DIMENSION(:) :: XCOP ! COP of the cooling system
147  REAL, POINTER, DIMENSION(:) :: XQ_SYS ! Supply air specific humidity [kg kg-1]
148  REAL, POINTER, DIMENSION(:) :: XT_SYS ! Supply air temperature [K]
149  REAL, POINTER, DIMENSION(:) :: XTR_SW_WIN ! Solar radiation transmitted throught
150  ! windows [W m-2(bld)]
151  REAL, POINTER, DIMENSION(:) :: XFAN_POWER ! HVAC fan power
152  REAL, POINTER, DIMENSION(:) :: XABS_SW_WIN ! window absorbed shortwave radiation [W m-2]
153  REAL, POINTER, DIMENSION(:) :: XABS_LW_WIN ! absorbed infrared rad. [W m-2]
154 
155  REAL, POINTER, DIMENSION(:) :: XEMIT_LW_FAC ! LW flux emitted by the facade (W/m2 facade)
156  REAL, POINTER, DIMENSION(:) :: XEMIT_LW_GRND ! LW flux emitted by the ground (W/m2 ground = road + garden)
157  REAL, POINTER, DIMENSION(:) :: XT_RAD_IND !Indoor mean radiant temperature [K]
158  REAL, POINTER, DIMENSION(:) :: XREF_SW_GRND ! total solar rad reflected by ground
159  REAL, POINTER, DIMENSION(:) :: XREF_SW_FAC ! total solar rad reflected by facade
160  REAL, POINTER, DIMENSION(:) :: XHU_BLD !Indoor relative humidity
161 !
162  REAL, POINTER, DIMENSION(:) :: XTCOOL_CUR_TARGET ! current cooling setpoint of indoor air
163  REAL, POINTER, DIMENSION(:) :: XTHEAT_CUR_TARGET ! current heating setpoint of indoor air
164  REAL, POINTER, DIMENSION(:) :: XCUR_QIN ! current internal heat gains [W m-2(floor)]
165 
166 !------------------------------------------------------------------------------
167 !
168 
169 END TYPE diag_misc_teb_1p_t
170 
171 TYPE diag_misc_teb_t
172  !
173  TYPE(diag_misc_teb_1p_t), POINTER :: ALP(:) => NULL()
174  TYPE(diag_misc_teb_1p_t), POINTER :: CUR => NULL()
175  !
176 END TYPE diag_misc_teb_t
177 !
178 !
179 !
180  CONTAINS
181 
182 
183 !
184 
185 
186 
187 
188 SUBROUTINE diag_misc_teb_goto_patch(YDIAG_MISC_TEB,KTO_PATCH)
189 TYPE(diag_misc_teb_t), INTENT(INOUT) :: ydiag_misc_teb
190 INTEGER, INTENT(IN) :: kto_patch
191 REAL(KIND=JPRB) :: zhook_handle
192 !
193 IF (lhook) CALL dr_hook('MODD_DIAG_MISC_TEB_N:DIAG_MISC_TEB_GOTO_PATCH',0,zhook_handle)
194 
195 ydiag_misc_teb%CUR => ydiag_misc_teb%ALP(kto_patch)
196 
197 IF (lhook) CALL dr_hook('MODD_DIAG_MISC_TEB_N:DIAG_MISC_TEB_GOTO_PATCH',1,zhook_handle)
198 
199 END SUBROUTINE diag_misc_teb_goto_patch
200 
201 
202 SUBROUTINE diag_misc_teb_init(YDIAG_MISC_TEB,KPATCH)
203 TYPE(diag_misc_teb_t), INTENT(INOUT) :: ydiag_misc_teb
204 INTEGER, INTENT(IN) :: kpatch
205 INTEGER :: jp
206 REAL(KIND=JPRB) :: zhook_handle
207 IF (lhook) CALL dr_hook("MODD_DIAG_MISC_TEB_N:DIAG_MISC_TEB_INIT",0,zhook_handle)
208  ALLOCATE(ydiag_misc_teb%ALP(kpatch))
209  ydiag_misc_teb%CUR => ydiag_misc_teb%ALP(1)
210 DO jp=1,kpatch
211  nullify(ydiag_misc_teb%ALP(jp)%XZ0_TOWN)
212  nullify(ydiag_misc_teb%ALP(jp)%XQF_BLD)
213  nullify(ydiag_misc_teb%ALP(jp)%XFLX_BLD)
214  nullify(ydiag_misc_teb%ALP(jp)%XQF_TOWN)
215  nullify(ydiag_misc_teb%ALP(jp)%XDQS_TOWN)
216  nullify(ydiag_misc_teb%ALP(jp)%XH_WALL_A)
217  nullify(ydiag_misc_teb%ALP(jp)%XH_WALL_B)
218  nullify(ydiag_misc_teb%ALP(jp)%XH_ROOF)
219  nullify(ydiag_misc_teb%ALP(jp)%XH_ROAD)
220  nullify(ydiag_misc_teb%ALP(jp)%XH_GARDEN)
221  nullify(ydiag_misc_teb%ALP(jp)%XH_GREENROOF)
222  nullify(ydiag_misc_teb%ALP(jp)%XH_STRLROOF)
223  nullify(ydiag_misc_teb%ALP(jp)%XH_BLT)
224  nullify(ydiag_misc_teb%ALP(jp)%XRN_WALL_A)
225  nullify(ydiag_misc_teb%ALP(jp)%XRN_WALL_B)
226  nullify(ydiag_misc_teb%ALP(jp)%XRN_ROOF)
227  nullify(ydiag_misc_teb%ALP(jp)%XRN_ROAD)
228  nullify(ydiag_misc_teb%ALP(jp)%XRN_GARDEN)
229  nullify(ydiag_misc_teb%ALP(jp)%XRN_GREENROOF)
230  nullify(ydiag_misc_teb%ALP(jp)%XRN_STRLROOF)
231  nullify(ydiag_misc_teb%ALP(jp)%XRN_BLT)
232  nullify(ydiag_misc_teb%ALP(jp)%XGFLUX_WALL_A)
233  nullify(ydiag_misc_teb%ALP(jp)%XGFLUX_WALL_B)
234  nullify(ydiag_misc_teb%ALP(jp)%XGFLUX_ROOF)
235  nullify(ydiag_misc_teb%ALP(jp)%XGFLUX_ROAD)
236  nullify(ydiag_misc_teb%ALP(jp)%XGFLUX_GARDEN)
237  nullify(ydiag_misc_teb%ALP(jp)%XGFLUX_GREENROOF)
238  nullify(ydiag_misc_teb%ALP(jp)%XGFLUX_STRLROOF)
239  nullify(ydiag_misc_teb%ALP(jp)%XGFLUX_BLT)
240  nullify(ydiag_misc_teb%ALP(jp)%XLE_ROOF)
241  nullify(ydiag_misc_teb%ALP(jp)%XLE_ROAD)
242  nullify(ydiag_misc_teb%ALP(jp)%XLE_GARDEN)
243  nullify(ydiag_misc_teb%ALP(jp)%XLE_GREENROOF)
244  nullify(ydiag_misc_teb%ALP(jp)%XLE_STRLROOF)
245  nullify(ydiag_misc_teb%ALP(jp)%XLE_BLT)
246  nullify(ydiag_misc_teb%ALP(jp)%XRUNOFF_TOWN)
247  nullify(ydiag_misc_teb%ALP(jp)%XRUNOFF_GARDEN)
248  nullify(ydiag_misc_teb%ALP(jp)%XDRAIN_GARDEN)
249  nullify(ydiag_misc_teb%ALP(jp)%XIRRIG_GARDEN)
250  nullify(ydiag_misc_teb%ALP(jp)%XRUNOFF_ROAD)
251  nullify(ydiag_misc_teb%ALP(jp)%XIRRIG_ROAD)
252  nullify(ydiag_misc_teb%ALP(jp)%XRUNOFF_ROOF)
253  nullify(ydiag_misc_teb%ALP(jp)%XRUNOFF_STRLROOF)
254  nullify(ydiag_misc_teb%ALP(jp)%XRUNOFF_GREENROOF)
255  nullify(ydiag_misc_teb%ALP(jp)%XDRAIN_GREENROOF)
256  nullify(ydiag_misc_teb%ALP(jp)%XIRRIG_GREENROOF)
257  nullify(ydiag_misc_teb%ALP(jp)%XABS_SW_ROOF)
258  nullify(ydiag_misc_teb%ALP(jp)%XABS_SW_SNOW_ROOF)
259  nullify(ydiag_misc_teb%ALP(jp)%XABS_LW_ROOF)
260  nullify(ydiag_misc_teb%ALP(jp)%XABS_LW_SNOW_ROOF)
261  nullify(ydiag_misc_teb%ALP(jp)%XABS_SW_ROAD)
262  nullify(ydiag_misc_teb%ALP(jp)%XABS_SW_SNOW_ROAD)
263  nullify(ydiag_misc_teb%ALP(jp)%XABS_LW_ROAD)
264  nullify(ydiag_misc_teb%ALP(jp)%XABS_LW_SNOW_ROAD)
265  nullify(ydiag_misc_teb%ALP(jp)%XABS_SW_WALL_A)
266  nullify(ydiag_misc_teb%ALP(jp)%XABS_SW_WALL_B)
267  nullify(ydiag_misc_teb%ALP(jp)%XABS_LW_WALL_A)
268  nullify(ydiag_misc_teb%ALP(jp)%XABS_LW_WALL_B)
269  nullify(ydiag_misc_teb%ALP(jp)%XABS_SW_GARDEN)
270  nullify(ydiag_misc_teb%ALP(jp)%XABS_LW_GARDEN)
271  nullify(ydiag_misc_teb%ALP(jp)%XABS_SW_GREENROOF)
272  nullify(ydiag_misc_teb%ALP(jp)%XABS_LW_GREENROOF)
273  nullify(ydiag_misc_teb%ALP(jp)%XG_GREENROOF_ROOF)
274  nullify(ydiag_misc_teb%ALP(jp)%XABS_SW_PANEL)
275  nullify(ydiag_misc_teb%ALP(jp)%XABS_LW_PANEL)
276  nullify(ydiag_misc_teb%ALP(jp)%XRN_PANEL)
277  nullify(ydiag_misc_teb%ALP(jp)%XH_PANEL)
278  nullify(ydiag_misc_teb%ALP(jp)%XTHER_PROD_PANEL)
279  nullify(ydiag_misc_teb%ALP(jp)%XPHOT_PROD_PANEL)
280  nullify(ydiag_misc_teb%ALP(jp)%XPROD_PANEL)
281  nullify(ydiag_misc_teb%ALP(jp)%XTHER_PROD_BLD)
282  nullify(ydiag_misc_teb%ALP(jp)%XPHOT_PROD_BLD)
283  nullify(ydiag_misc_teb%ALP(jp)%XT_BLD_COOL)
284  nullify(ydiag_misc_teb%ALP(jp)%XH_BLD_COOL)
285  nullify(ydiag_misc_teb%ALP(jp)%XH_BLD_HEAT)
286  nullify(ydiag_misc_teb%ALP(jp)%XLE_BLD_COOL)
287  nullify(ydiag_misc_teb%ALP(jp)%XLE_BLD_HEAT)
288  nullify(ydiag_misc_teb%ALP(jp)%XHVAC_COOL)
289  nullify(ydiag_misc_teb%ALP(jp)%XHVAC_HEAT)
290  nullify(ydiag_misc_teb%ALP(jp)%XH_WASTE)
291  nullify(ydiag_misc_teb%ALP(jp)%XLE_WASTE)
292  nullify(ydiag_misc_teb%ALP(jp)%XCAP_SYS)
293  nullify(ydiag_misc_teb%ALP(jp)%XM_SYS)
294  nullify(ydiag_misc_teb%ALP(jp)%XCOP)
295  nullify(ydiag_misc_teb%ALP(jp)%XQ_SYS)
296  nullify(ydiag_misc_teb%ALP(jp)%XT_SYS)
297  nullify(ydiag_misc_teb%ALP(jp)%XTR_SW_WIN)
298  nullify(ydiag_misc_teb%ALP(jp)%XFAN_POWER)
299  nullify(ydiag_misc_teb%ALP(jp)%XABS_SW_WIN)
300  nullify(ydiag_misc_teb%ALP(jp)%XABS_LW_WIN)
301  nullify(ydiag_misc_teb%ALP(jp)%XEMIT_LW_GRND)
302  nullify(ydiag_misc_teb%ALP(jp)%XEMIT_LW_FAC)
303  nullify(ydiag_misc_teb%ALP(jp)%XT_RAD_IND)
304  nullify(ydiag_misc_teb%ALP(jp)%XREF_SW_GRND)
305  nullify(ydiag_misc_teb%ALP(jp)%XREF_SW_FAC)
306  nullify(ydiag_misc_teb%ALP(jp)%XHU_BLD)
307  nullify(ydiag_misc_teb%ALP(jp)%XTCOOL_CUR_TARGET)
308  nullify(ydiag_misc_teb%ALP(jp)%XTHEAT_CUR_TARGET)
309  nullify(ydiag_misc_teb%ALP(jp)%XCUR_QIN)
310 ENDDO
311 IF (lhook) CALL dr_hook("MODD_DIAG_MISC_TEB_N:DIAG_MISC_TEB_INIT",1,zhook_handle)
312 END SUBROUTINE diag_misc_teb_init
313 
314 
315 
316 END MODULE modd_diag_misc_teb_n
modd_diag_misc_teb_n
Definition: modd_diag_misc_tebn.F90:6
modd_diag_misc_teb_n::diag_misc_teb_t
Definition: modd_diag_misc_tebn.F90:171
modd_diag_misc_teb_n::diag_misc_teb_1p_t
Definition: modd_diag_misc_tebn.F90:43
modd_diag_misc_teb_n::diag_misc_teb_init
subroutine diag_misc_teb_init(YDIAG_MISC_TEB, KPATCH)
Definition: modd_diag_misc_tebn.F90:202
modd_diag_misc_teb_n::diag_misc_teb_goto_patch
subroutine diag_misc_teb_goto_patch(YDIAG_MISC_TEB, KTO_PATCH)
Definition: modd_diag_misc_tebn.F90:188
Generated on Fri May 13 2016 09:31:04 for SURFEX by   doxygen 1.8.5