SUBROUTINE DEALLOC_TEB_STRUCT(TOP,T,BOP,B,TPN,TIR,DMT,GDM,GRM)
! ##########################################################################
!
!!**** *DEALLOC_TEB_STRUCT*
!!
!! PURPOSE
!! -------
!
! To allocate all the structures used in Teb_garden and subsequent routines.
!
!!** METHOD
! ------
!
!
!! EXTERNAL
!! --------
!!
!!
!! IMPLICIT ARGUMENTS
!! ------------------
!!
!!
!! REFERENCE
!! ---------
!!
!!
!! AUTHOR
!! ------
!!
!! V. Masson * Meteo-France *
!!
!! MODIFICATIONS
!! -------------
!! Original 03/2018
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
USE MODD_TEB_OPTION_n, ONLY : TEB_OPTIONS_t, TEB_OPTIONS_INIT
USE MODD_TEB_n, ONLY : TEB_t, TEB_INIT
USE MODD_BEM_OPTION_n, ONLY : BEM_OPTIONS_t, BEM_OPTIONS_INIT
USE MODD_BEM_n, ONLY : BEM_t, BEM_INIT
USE MODD_TEB_PANEL_n, ONLY : TEB_PANEL_t, TEB_PANEL_INIT
USE MODD_TEB_IRRIG_n, ONLY : TEB_IRRIG_t, TEB_IRRIG_INIT
USE MODD_DIAG_MISC_TEB_n, ONLY : DIAG_MISC_TEB_t, DIAG_MISC_TEB_INIT
USE MODD_SURFEX_n, ONLY : TEB_GARDEN_MODEL_t
USE MODD_SURFEX_n, ONLY : TEB_GREENROOF_MODEL_t
!
!
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
!
!
!
TYPE(TEB_OPTIONS_t), INTENT(INOUT) :: TOP
TYPE(TEB_t), INTENT(INOUT) :: T
TYPE(BEM_OPTIONS_t), INTENT(INOUT) :: BOP
TYPE(BEM_t), INTENT(INOUT) :: B
TYPE(TEB_PANEL_t), INTENT(INOUT) :: TPN
TYPE(TEB_IRRIG_t), INTENT(INOUT) :: TIR
TYPE(DIAG_MISC_TEB_t), INTENT(INOUT) :: DMT
TYPE(TEB_GARDEN_MODEL_t), INTENT(INOUT) :: GDM
TYPE(TEB_GREENROOF_MODEL_t), INTENT(INOUT) :: GRM
!
!
!* 0.2 Declarations of local variables
!
!
!-------------------------------------------------------------------------------
!
! BEM structure
!
!
! Floor parameters
!
DEALLOCATE(B%XHC_FLOOR) ! floor layers heat capacity (J/K/m3)
DEALLOCATE(B%XTC_FLOOR) ! floor layers thermal conductivity (W/K/m)
DEALLOCATE(B%XD_FLOOR ) ! depth of floor layers (m)
!
! HVAC parameters
!
DEALLOCATE(B%XTCOOL_TARGET) ! cooling setpoint of indoor air
DEALLOCATE(B%XTHEAT_TARGET) ! heating setpoint of indoor air
DEALLOCATE(B%XF_WASTE_CAN ) ! fraction of waste heat released into the canyon
DEALLOCATE(B%XEFF_HEAT ) ! efficiency of the heating system
!
! Indoor parameters
!
DEALLOCATE(B%XTI_BLD) ! building interior temperature (K)
DEALLOCATE(B%XT_FLOOR ) ! floor layer temperatures (K)
DEALLOCATE(B%XT_MASS ) ! Air cooled building internal th. mass temperature (K)
!
DEALLOCATE(B%XQIN) ! internal heat gains [W m-2(floor)]
DEALLOCATE(B%XQIN_FRAD) ! radiant fraction of internal heat gains
DEALLOCATE(B%XSHGC) ! solar heat gain coef. of windows
DEALLOCATE(B%XSHGC_SH) ! solar heat gain coef. of windows + shading
DEALLOCATE(B%XU_WIN) ! window U-factor [K m W-2]
DEALLOCATE(B%XTRAN_WIN) ! window transmittance (-)
DEALLOCATE(B%XGR) ! glazing ratio
DEALLOCATE(B%XFLOOR_HEIGHT) ! building floor height [m]
DEALLOCATE(B%XINF) ! infiltration/ventilation flow rate [AC/H]
!
! New parameters
!
DEALLOCATE(B%XF_WATER_COND) ! fraction of evaporation for condensers (cooling system)
DEALLOCATE(B%XAUX_MAX) ! Auxiliar variable for autosize calcs
DEALLOCATE(B%XQIN_FLAT) ! Latent franction of internal heat gains
DEALLOCATE(B%XHR_TARGET) ! Relative humidity setpoint
DEALLOCATE(B%XT_WIN2) ! Indoor window temperature [K]
DEALLOCATE(B%XQI_BLD) ! Indoor air specific humidity [kg kg-1]
DEALLOCATE(B%XV_VENT) ! Ventilation flow rate [AC/H]
DEALLOCATE(B%XCAP_SYS_HEAT) ! Capacity of the heating system
! [W m-2(bld)]
DEALLOCATE(B%XCAP_SYS_RAT) ! Rated capacity of the cooling system
! [W m-2(bld)]
DEALLOCATE(B%XT_ADP) ! Apparatus dewpoint temperature of the
! cooling coil [K]
DEALLOCATE(B%XM_SYS_RAT) ! Rated HVAC mass flow rate
! [kg s-1 m-2(bld)]
DEALLOCATE(B%XCOP_RAT) ! Rated COP of the cooling system
DEALLOCATE(B%XT_WIN1) ! outdoor window temperature [K]
DEALLOCATE(B%XALB_WIN) ! window albedo
DEALLOCATE(B%XABS_WIN) ! window absortance
DEALLOCATE(B%XT_SIZE_MAX) ! Maximum outdoor air temperature for
! HVAC sizing [K]
DEALLOCATE(B%XT_SIZE_MIN) ! Minimum outdoor air temperature for
! HVAC sizing [K]
DEALLOCATE(B%XUGG_WIN) ! Window glass-to-glass U-factor [K m W-2]
DEALLOCATE(B%LSHADE) ! flag to activate shading devices -> LOGICAL in the code
DEALLOCATE(B%XSHADE) ! flag to activate shading devices -> REAL for i/o 0. or 1.
DEALLOCATE(B%CNATVENT) ! flag to activate natural ventilation 'NONE', 'MANU', 'AUTO'
DEALLOCATE(B%XNATVENT) ! flag to describe surventilation system for i/o
! 0 for NONE, 1 for MANU and 2 for AUTO
DEALLOCATE(B%LSHAD_DAY) !Has shading been necessary this day ?
DEALLOCATE(B%LNATVENT_NIGHT)!Has nocturnal surventilation been necessary and possible this night ?
!
!indoor relative surfaces and view factors
DEALLOCATE(B%XN_FLOOR) ! Number of floors
DEALLOCATE(B%XGLAZ_O_BLD) ! Window area [m2_win/m2_bld]
DEALLOCATE(B%XMASS_O_BLD) ! Mass area [m2_mass/m2_bld]
DEALLOCATE(B%XFLOOR_HW_RATIO) ! H/W ratio of 1 floor level
DEALLOCATE(B%XF_FLOOR_MASS) ! View factor floor-mass
DEALLOCATE(B%XF_FLOOR_WALL) ! View factor floor-wall
DEALLOCATE(B%XF_FLOOR_WIN) ! View factor floor-window
DEALLOCATE(B%XF_FLOOR_ROOF) ! View factor floor-roof
DEALLOCATE(B%XF_WALL_FLOOR) ! View factor wall-floor
DEALLOCATE(B%XF_WALL_MASS) ! View factor wall-mass
DEALLOCATE(B%XF_WALL_WIN) ! View factor wall-win
DEALLOCATE(B%XF_WIN_FLOOR) ! View factor win-floor
DEALLOCATE(B%XF_WIN_MASS) ! View factor win-mass
DEALLOCATE(B%XF_WIN_WALL) ! View factor win-wall
DEALLOCATE(B%XF_WIN_WIN) ! indoor View factor win-win
DEALLOCATE(B%XF_MASS_FLOOR) ! View factor mass-floor
DEALLOCATE(B%XF_MASS_WALL) ! View factor mass-wall
DEALLOCATE(B%XF_MASS_WIN) ! View factor mass-window
!
!-------------------------------------------------------------------------------
!
! TEB structure
!
! Geometric Parameters:
!
DEALLOCATE(T%XROAD_DIR) ! Road direction (deg from North, clockwise)
DEALLOCATE(T%XGARDEN) ! fraction of veg in the streets (-)
DEALLOCATE(T%XGREENROOF) ! fraction of greenroofs on roofs (-)
DEALLOCATE(T%XBLD) ! fraction of buildings (-)
DEALLOCATE(T%XROAD) ! fraction of roads (-)
DEALLOCATE(T%XCAN_HW_RATIO) ! canyon h/W (-)
DEALLOCATE(T%XBLD_HEIGHT) ! buildings height 'h' (m)
DEALLOCATE(T%XWALL_O_HOR) ! wall surf. / hor. surf. (-)
DEALLOCATE(T%XROAD_O_GRND) ! road surf. / (road + garden surf.) (-)
DEALLOCATE(T%XGARDEN_O_GRND)! gard. surf. / (road + garden surf.)(-)
DEALLOCATE(T%XWALL_O_GRND) ! wall surf. / (road + garden surf.) (-)
DEALLOCATE(T%XWALL_O_BLD) ! wall surf. / bld surf. (-)
DEALLOCATE(T%XZ0_TOWN) ! roughness length for momentum (m)
DEALLOCATE(T%XSVF_ROAD) ! road sky view factor (-)
DEALLOCATE(T%XSVF_GARDEN) ! green area sky view factor (-)
DEALLOCATE(T%XSVF_WALL) ! wall sky view factor (-)
!
! Roof parameters
!
DEALLOCATE(T%XALB_ROOF) ! roof albedo (-)
DEALLOCATE(T%XEMIS_ROOF) ! roof emissivity (-)
DEALLOCATE(T%XHC_ROOF) ! roof layers heat capacity (J/K/m3)
DEALLOCATE(T%XTC_ROOF) ! roof layers thermal conductivity (W/K/m)
DEALLOCATE(T%XD_ROOF) ! depth of roof layers (m)
DEALLOCATE(T%XROUGH_ROOF) ! roof roughness coef
!
!
! Road parameters
!
DEALLOCATE(T%XALB_ROAD) ! road albedo (-)
DEALLOCATE(T%XEMIS_ROAD) ! road emissivity (-)
DEALLOCATE(T%XHC_ROAD) ! road layers heat capacity (J/K/m3)
DEALLOCATE(T%XTC_ROAD) ! road layers thermal conductivity (W/K/m)
DEALLOCATE(T%XD_ROAD) ! depth of road layers (m)
!
! Wall parameters
!
DEALLOCATE(T%XALB_WALL) ! wall albedo (-)
DEALLOCATE(T%XEMIS_WALL) ! wall emissivity (-)
DEALLOCATE(T%XHC_WALL) ! wall layers heat capacity (J/K/m3)
DEALLOCATE(T%XTC_WALL) ! wall layers thermal conductivity (W/K/m)
DEALLOCATE(T%XD_WALL) ! depth of wall layers (m)
DEALLOCATE(T%XROUGH_WALL) ! wall roughness coef
!
! Building's use type
!
DEALLOCATE(T%XRESIDENTIAL) ! fraction of Residential use (-)
!
! anthropogenic fluxes
!
DEALLOCATE(T%XH_TRAFFIC) ! anthropogenic sensible
! ! heat fluxes due to traffic (W/m2)
DEALLOCATE(T%XLE_TRAFFIC) ! anthropogenic latent
! ! heat fluxes due to traffic (W/m2)
DEALLOCATE(T%XH_INDUSTRY) ! anthropogenic sensible
! ! heat fluxes due to factories (W/m2)
DEALLOCATE(T%XLE_INDUSTRY) ! anthropogenic latent
! ! heat fluxes due to factories (W/m2)
!
! temperatures for boundary conditions
!
DEALLOCATE(T%XTI_ROAD) ! road interior temperature (K)
!
! Prognostic variables:
!
DEALLOCATE(T%XWS_ROOF) ! roof water reservoir (kg/m2)
DEALLOCATE(T%XWS_ROAD) ! road water reservoir (kg/m2)
DEALLOCATE(T%XT_ROOF) ! roof layer temperatures (K)
DEALLOCATE(T%XT_ROAD) ! road layer temperatures (K)
DEALLOCATE(T%XT_WALL_A) ! wall layer temperatures (K)
DEALLOCATE(T%XT_WALL_B) ! wall layer temperatures (K)
!
DEALLOCATE(T%XAC_ROOF) ! roof aerodynamic conductance ()
DEALLOCATE(T%XAC_ROAD) ! road aerodynamic conductance ()
DEALLOCATE(T%XAC_WALL) ! wall aerodynamic conductance ()
DEALLOCATE(T%XAC_TOP) ! top aerodynamic conductance ()
DEALLOCATE(T%XAC_ROOF_WAT) ! water aerodynamic conductance ()
DEALLOCATE(T%XAC_ROAD_WAT) ! water aerodynamic conductance ()
!
DEALLOCATE(T%XQSAT_ROOF) ! humidity of saturation for roofs (kg/kg)
DEALLOCATE(T%XQSAT_ROAD) ! humidity of saturation for roads (kg/kg)
!
DEALLOCATE(T%XDELT_ROOF) ! humidity of saturation for roofs (-)
DEALLOCATE(T%XDELT_ROAD) ! humidity of saturation for roads (-)
!
! Semi-prognostic variables:
!
DEALLOCATE(T%XT_CANYON) ! canyon air temperature (K)
DEALLOCATE(T%XQ_CANYON) ! canyon air specific humidity (kg/kg)
!
!
! Prognostic snow:
!
DEALLOCATE(T%TSNOW_ROOF%WSNOW) ! snow (& liq. water) content (kg/m2)
DEALLOCATE(T%TSNOW_ROOF%T ) ! temperature (K)
DEALLOCATE(T%TSNOW_ROOF%RHO ) ! density (kg m-3)
DEALLOCATE(T%TSNOW_ROOF%ALB ) ! albedo (-)
DEALLOCATE(T%TSNOW_ROOF%EMIS ) ! emissivity (-)
DEALLOCATE(T%TSNOW_ROOF%TS ) ! Surface temperature (K)
DEALLOCATE(T%TSNOW_ROAD%WSNOW) ! snow (& liq. water) content (kg/m2)
DEALLOCATE(T%TSNOW_ROAD%T ) ! temperature (K)
DEALLOCATE(T%TSNOW_ROAD%RHO ) ! density (kg m-3)
DEALLOCATE(T%TSNOW_ROAD%ALB ) ! albedo (-)
DEALLOCATE(T%TSNOW_ROAD%EMIS ) ! emissivity (-)
DEALLOCATE(T%TSNOW_ROAD%TS ) ! Surface temperature (K)
!-------------------------------------------------------------------------------
!
! solar panels
!
DEALLOCATE(TPN%XEMIS_PANEL) ! emissivity of solar panels (-)
DEALLOCATE(TPN%XALB_PANEL) ! albedo of soolar panels (-)
DEALLOCATE(TPN%XEFF_PANEL) ! Efficiency coefficient of solar panels (-)
DEALLOCATE(TPN%XFRAC_PANEL) ! Fraction of SOLAR panels on roofs (-)
DEALLOCATE(TPN%XTHER_PRODC_DAY) ! Present day integrated thermal production of energy (J/m2 panel)
!-------------------------------------------------------------------------------
!
! Irrigation
!
DEALLOCATE(TIR%XRD_START_MONTH) ! roads : start month for irrigation (included)
DEALLOCATE(TIR%XRD_END_MONTH) ! roads : end month for irrigation (included)
DEALLOCATE(TIR%XRD_START_HOUR) ! roads : start solar hour for irrigation (included, hour)
DEALLOCATE(TIR%XRD_END_HOUR) ! roads : end solar hour for irrigation (excluded, hour)
DEALLOCATE(TIR%XRD_24H_IRRIG) ! roads : total irrigation over 24 hours (kg/m2)
!
!-------------------------------------------------------------------------------
!
! TEB diagnostics structure
!
DEALLOCATE(DMT%XZ0_TOWN) ! town roughness length
DEALLOCATE(DMT%XQF_BLD) ! domestic heating
DEALLOCATE(DMT%XFLX_BLD) ! heat flux from bld
DEALLOCATE(DMT%XQF_TOWN) ! total anthropogenic heat
DEALLOCATE(DMT%XDQS_TOWN) ! storage inside building
!
DEALLOCATE(DMT%XH_WALL_A) ! wall sensible heat flux (W/m2)
DEALLOCATE(DMT%XH_WALL_B) ! wall sensible heat flux (W/m2)
DEALLOCATE(DMT%XH_ROOF) ! roof sensible heat flux (W/m2)
DEALLOCATE(DMT%XH_ROAD) ! road sensible heat flux (W/m2)
DEALLOCATE(DMT%XH_STRLROOF) ! structural roof sens. heat flux (W/m2)
DEALLOCATE(DMT%XH_BLT) ! built surf sensible heat flux (W/m2)
DEALLOCATE(DMT%XRN_WALL_A) ! net radiation at wall (W/m2)
DEALLOCATE(DMT%XRN_WALL_B) ! net radiation at wall (W/m2)
DEALLOCATE(DMT%XRN_ROOF) ! net radiation at roof (W/m2)
DEALLOCATE(DMT%XRN_ROAD) ! net radiation at road (W/m2)
DEALLOCATE(DMT%XRN_STRLROOF) !net radiation at structural roofs(W/m2)
DEALLOCATE(DMT%XRN_BLT) ! net radiation at built surf (W/m2)
DEALLOCATE(DMT%XGFLUX_WALL_A) !net wall conduction flux (W/m2)
DEALLOCATE(DMT%XGFLUX_WALL_B) !net wall conduction flux (W/m2)
DEALLOCATE(DMT%XGFLUX_ROOF) ! net roof conduction flux (W/m2)
DEALLOCATE(DMT%XGFLUX_ROAD) ! net road conduction flux (W/m2)
DEALLOCATE(DMT%XGFLUX_STRLROOF) !net structural roof cond flux (W/m2)
DEALLOCATE(DMT%XGFLUX_BLT) ! net built surf conduction flux (W/m2)
DEALLOCATE(DMT%XLE_ROOF) ! roof latent heat flux (W/m2)
DEALLOCATE(DMT%XLE_ROAD) ! road latent heat flux (W/m2)
DEALLOCATE(DMT%XLE_STRLROOF) !structural roof latent heat flux (W/m2)
DEALLOCATE(DMT%XLE_BLT) ! built surf latent heat flux (W/m2)
!
DEALLOCATE(DMT%XRUNOFF_TOWN) ! aggregated water runoff for town (kg/m2/s)
DEALLOCATE(DMT%XIRRIG_GARDEN) ! summer ground irrigation rate (kg/m2/s)
DEALLOCATE(DMT%XRUNOFF_ROAD) ! water runoff for roads (kg/m2/s)
DEALLOCATE(DMT%XIRRIG_ROAD) ! road man-made watering rate (kg/m2/s)
DEALLOCATE(DMT%XRUNOFF_ROOF) ! aggregated water runoff for roofs (kg/m2/s)
DEALLOCATE(DMT%XRUNOFF_STRLROOF) ! water runoff for structural roofs (kg/m2/s)
DEALLOCATE(DMT%XIRRIG_GREENROOF) ! summer ground irrigation rate (kg/m2/s)
!
DEALLOCATE(DMT%XABS_SW_ROOF) ! absorbed shortwave radiation over roofs
DEALLOCATE(DMT%XABS_SW_SNOW_ROOF) ! absorbed longwave radiation over roofs
DEALLOCATE(DMT%XABS_LW_ROOF) ! absorbed shortwave radiation over roofs
DEALLOCATE(DMT%XABS_LW_SNOW_ROOF) ! absorbed longwave radiation over roofs
DEALLOCATE(DMT%XABS_SW_ROAD) ! absorbed shortwave radiation over roads
DEALLOCATE(DMT%XABS_SW_SNOW_ROAD) ! absorbed longwave radiation over roads
DEALLOCATE(DMT%XABS_LW_ROAD) ! absorbed shortwave radiation over roads
DEALLOCATE(DMT%XABS_LW_SNOW_ROAD) ! absorbed longwave radiation over roads
DEALLOCATE(DMT%XABS_SW_WALL_A) ! absorbed shortwave radiation over walls
DEALLOCATE(DMT%XABS_SW_WALL_B) ! absorbed shortwave radiation over walls
DEALLOCATE(DMT%XABS_LW_WALL_A) ! absorbed shortwave radiation over walls
DEALLOCATE(DMT%XABS_LW_WALL_B) ! absorbed shortwave radiation over walls
DEALLOCATE(DMT%XABS_SW_GARDEN) ! absorbed shortwave radiation over green areas
DEALLOCATE(DMT%XABS_LW_GARDEN) ! absorbed shortwave radiation over green areas
DEALLOCATE(DMT%XABS_SW_GREENROOF) ! absorbed shortwave radiation over green roofs
DEALLOCATE(DMT%XABS_LW_GREENROOF) ! absorbed shortwave radiation over green roofs
DEALLOCATE(DMT%XG_GREENROOF_ROOF) ! Heat flux between green roof and structural roof
DEALLOCATE(DMT%XABS_SW_PANEL) ! absorbed shortwave radiation over solar panels
DEALLOCATE(DMT%XABS_LW_PANEL) ! absorbed longwave radiation over solar panels
!
DEALLOCATE(DMT%XRN_PANEL) ! net radiation over solar panels (W/m2)
DEALLOCATE(DMT%XH_PANEL) ! sensible heat flux over solar panels (W/m2)
DEALLOCATE(DMT%XTHER_PROD_PANEL) ! thermal production of solar panels (W/m2 thermal panel)
DEALLOCATE(DMT%XPHOT_PROD_PANEL) ! photovoltaic production of solar panels (W/m2 photovoltaic panel)
DEALLOCATE(DMT%XPROD_PANEL) ! production of solar panels (W/m2 panel)
DEALLOCATE(DMT%XTHER_PROD_BLD) ! thermal production of solar panels (W/m2 bld)
DEALLOCATE(DMT%XPHOT_PROD_BLD) ! photovoltaic production of solar panels (W/m2 bld)
DEALLOCATE(DMT%XH_BLD_COOL) ! Sensible cooling energy demand
! of the building [W m-2(bld)]
DEALLOCATE(DMT%XT_BLD_COOL) ! Total cooling energy demand
! of the building [W m-2(bld)]
DEALLOCATE(DMT%XH_BLD_HEAT) ! Heating energy demand
! of the building [W m-2(bld)]
DEALLOCATE(DMT%XLE_BLD_COOL) ! Latent cooling energy demand
! of the building [W m-2(bld)]
DEALLOCATE(DMT%XLE_BLD_HEAT) ! Latent heating energy demand
! of the building [W m-2(bld)]
DEALLOCATE(DMT%XH_WASTE) ! Sensible waste heat from HVAC system
! [W m-2(tot)]
DEALLOCATE(DMT%XLE_WASTE) ! Latent waste heat from HVAC system
! [W m-2(tot)]
DEALLOCATE(DMT%XHVAC_COOL) ! Energy consumption of the cooling system
! [W m-2(bld)]
DEALLOCATE(DMT%XHVAC_HEAT) ! Energy consumption of the heating system
! [W m-2(bld)]
DEALLOCATE(DMT%XCAP_SYS) ! Actual capacity of the cooling system
! [W m-2(bld)]
DEALLOCATE(DMT%XM_SYS) ! Actual HVAC mass flow rate
! [kg s-1 m-2(bld)]
DEALLOCATE(DMT%XCOP) ! COP of the cooling system
DEALLOCATE(DMT%XQ_SYS) ! Supply air specific humidity [kg kg-1]
DEALLOCATE(DMT%XT_SYS) ! Supply air temperature [K]
DEALLOCATE(DMT%XTR_SW_WIN) ! Solar radiation transmitted throught
! windows [W m-2(bld)]
DEALLOCATE(DMT%XFAN_POWER) ! HVAC fan power
DEALLOCATE(DMT%XABS_SW_WIN) ! window absorbed shortwave radiation [W m-2]
DEALLOCATE(DMT%XABS_LW_WIN) ! absorbed infrared rad. [W m-2]
DEALLOCATE(DMT%XEMIT_LW_FAC) ! LW flux emitted by the facade (W/m2 facade)
DEALLOCATE(DMT%XEMIT_LW_GRND) ! LW flux emitted by the ground (W/m2 ground = road + garden)
DEALLOCATE(DMT%XT_RAD_IND) !Indoor mean radiant temperature [K]
DEALLOCATE(DMT%XREF_SW_GRND) ! total solar rad reflected by ground
DEALLOCATE(DMT%XREF_SW_FAC) ! total solar rad reflected by facade
DEALLOCATE(DMT%XHU_BLD) !Indoor relative humidity
!
DEALLOCATE(DMT%XTCOOL_TARGET) ! current cooling setpoint of indoor air
DEALLOCATE(DMT%XTHEAT_TARGET) ! current heating setpoint of indoor air
DEALLOCATE(DMT%XQIN) ! current internal heat gains [W m-2(floor)]
! New fields
DEALLOCATE(GDM%VD%ND%AL)
DEALLOCATE(GDM%VD%NDE%AL)
DEALLOCATE(GDM%VD%NDM%AL)
DEALLOCATE(GDM%NPE%AL)
DEALLOCATE(GRM%VD%ND%AL)
DEALLOCATE(GRM%VD%NDE%AL)
DEALLOCATE(GRM%VD%NDM%AL)
DEALLOCATE(GRM%NPE%AL)
!-------------------------------------------------------------------------------
!
!
END SUBROUTINE DEALLOC_TEB_STRUCT