dealloc_tebn.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     #################################################################################
SUBROUTINE dealloc_teb_n (B, CHT, DTT, TG, T, TOP, TPN)
!     #################################################################################
!
!!****  *DEALLOC_TEB_n * - Deallocate all arrays
!!
!!    PURPOSE
!!    -------
!
!!**  METHOD
!!    ------
!!
!!    REFERENCE
!!    ---------
!!      
!!
!!    AUTHOR
!!    ------
!!     V. Masson 
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2004
!!      G. Pigeon   09/2012: deallocate ROUGH_WALL/ROUGH_ROOF
!!      G. Pigeon   10/2012: deallocate BEM variables
!!------------------------------------------------------------------
!

!

!
!
!
!
!
USE modd_bem_n, ONLY : bem_t
USE modd_ch_teb_n, ONLY : ch_teb_t
USE modd_data_teb_n, ONLY : data_teb_t
USE modd_teb_grid_n, ONLY : teb_grid_t
USE modd_teb_n, ONLY : teb_t
USE modd_teb_option_n, ONLY : teb_options_t
USE modd_teb_panel_n, ONLY : teb_panel_t
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*      0.1    declarations of arguments
!
!
!*      0.2    declarations of local variables
!
!-------------------------------------------------------------------------------------
!

!
TYPE(bem_t), INTENT(INOUT) :: b
TYPE(ch_teb_t), INTENT(INOUT) :: cht
TYPE(data_teb_t), INTENT(INOUT) :: dtt
TYPE(teb_grid_t), INTENT(INOUT) :: tg
TYPE(teb_t), INTENT(INOUT) :: t
TYPE(teb_options_t), INTENT(INOUT) :: top
TYPE(teb_panel_t), INTENT(INOUT) :: tpn
!
REAL(KIND=JPRB) :: zhook_handle

IF (lhook) CALL dr_hook('DEALLOC_TEB_N',0,zhook_handle)
IF (ASSOCIATED(top%LCOVER ))  DEALLOCATE(top%LCOVER )
IF (ASSOCIATED(top%XCOVER ))  DEALLOCATE(top%XCOVER )
IF (ASSOCIATED(top%XZS    ))  DEALLOCATE(top%XZS    )
!
!-------------------------------------------------------------------------------------
!
IF (ASSOCIATED(tg%XGRID_PAR )) DEALLOCATE(tg%XGRID_PAR )
IF (ASSOCIATED(tg%XLAT      )) DEALLOCATE(tg%XLAT      )
IF (ASSOCIATED(tg%XLON      )) DEALLOCATE(tg%XLON      )
IF (ASSOCIATED(tg%XMESH_SIZE)) DEALLOCATE(tg%XMESH_SIZE)
!
!-------------------------------------------------------------------------------------
!
IF(ASSOCIATED(t%CUR%XZ0_TOWN     )) DEALLOCATE(t%CUR%XZ0_TOWN     )
IF(ASSOCIATED(t%CUR%XALB_ROOF    )) DEALLOCATE(t%CUR%XALB_ROOF    )
IF(ASSOCIATED(t%CUR%XEMIS_ROOF   )) DEALLOCATE(t%CUR%XEMIS_ROOF   )
IF(ASSOCIATED(t%CUR%XALB_ROAD    )) DEALLOCATE(t%CUR%XALB_ROAD    )
IF(ASSOCIATED(t%CUR%XEMIS_ROAD   )) DEALLOCATE(t%CUR%XEMIS_ROAD   )
IF(ASSOCIATED(t%CUR%XALB_WALL    )) DEALLOCATE(t%CUR%XALB_WALL    )
IF(ASSOCIATED(t%CUR%XEMIS_WALL   )) DEALLOCATE(t%CUR%XEMIS_WALL   )
IF(ASSOCIATED(t%CUR%XBLD         )) DEALLOCATE(t%CUR%XBLD         )
IF(ASSOCIATED(t%CUR%XGARDEN      )) DEALLOCATE(t%CUR%XGARDEN      )
IF(ASSOCIATED(t%CUR%XROAD_DIR    )) DEALLOCATE(t%CUR%XROAD_DIR    )
IF(ASSOCIATED(t%CUR%XGREENROOF   )) DEALLOCATE(t%CUR%XGREENROOF   )
IF(ASSOCIATED(t%CUR%XBLD_HEIGHT  )) DEALLOCATE(t%CUR%XBLD_HEIGHT  )
IF(ASSOCIATED(t%CUR%XWALL_O_HOR  )) DEALLOCATE(t%CUR%XWALL_O_HOR  )
IF(ASSOCIATED(t%CUR%XCAN_HW_RATIO)) DEALLOCATE(t%CUR%XCAN_HW_RATIO)
IF(ASSOCIATED(t%CUR%XROAD_O_GRND))  DEALLOCATE(t%CUR%XROAD_O_GRND)
IF(ASSOCIATED(t%CUR%XGARDEN_O_GRND))DEALLOCATE(t%CUR%XGARDEN_O_GRND)
IF(ASSOCIATED(t%CUR%XWALL_O_GRND))  DEALLOCATE(t%CUR%XWALL_O_GRND)
IF(ASSOCIATED(t%CUR%XH_TRAFFIC   )) DEALLOCATE(t%CUR%XH_TRAFFIC   )
IF(ASSOCIATED(t%CUR%XLE_TRAFFIC  )) DEALLOCATE(t%CUR%XLE_TRAFFIC  )
IF(ASSOCIATED(t%CUR%XH_INDUSTRY  )) DEALLOCATE(t%CUR%XH_INDUSTRY  )
IF(ASSOCIATED(t%CUR%XLE_INDUSTRY )) DEALLOCATE(t%CUR%XLE_INDUSTRY )
IF(ASSOCIATED(t%CUR%XHC_ROOF )) DEALLOCATE(t%CUR%XHC_ROOF )
IF(ASSOCIATED(t%CUR%XTC_ROOF )) DEALLOCATE(t%CUR%XTC_ROOF )
IF(ASSOCIATED(t%CUR%XD_ROOF  )) DEALLOCATE(t%CUR%XD_ROOF  )
IF(ASSOCIATED(t%CUR%XHC_ROAD )) DEALLOCATE(t%CUR%XHC_ROAD )
IF(ASSOCIATED(t%CUR%XTC_ROAD )) DEALLOCATE(t%CUR%XTC_ROAD )
IF(ASSOCIATED(t%CUR%XD_ROAD  )) DEALLOCATE(t%CUR%XD_ROAD  )
IF(ASSOCIATED(t%CUR%XHC_WALL )) DEALLOCATE(t%CUR%XHC_WALL )
IF(ASSOCIATED(t%CUR%XTC_WALL )) DEALLOCATE(t%CUR%XTC_WALL )
IF(ASSOCIATED(t%CUR%XD_WALL  )) DEALLOCATE(t%CUR%XD_WALL  )
IF(ASSOCIATED(t%CUR%XSVF_ROAD)) DEALLOCATE(t%CUR%XSVF_ROAD)
IF(ASSOCIATED(t%CUR%XSVF_WALL)) DEALLOCATE(t%CUR%XSVF_WALL)
!
IF(ASSOCIATED(tpn%XEMIS_PANEL)) DEALLOCATE(tpn%XEMIS_PANEL)
IF(ASSOCIATED(tpn%XALB_PANEL )) DEALLOCATE(tpn%XALB_PANEL )
IF(ASSOCIATED(tpn%XEFF_PANEL )) DEALLOCATE(tpn%XEFF_PANEL )
IF(ASSOCIATED(tpn%XFRAC_PANEL)) DEALLOCATE(tpn%XFRAC_PANEL)
IF(ASSOCIATED(tpn%XTHER_PRODC_DAY)) DEALLOCATE(tpn%XTHER_PRODC_DAY)
!
IF (ASSOCIATED(t%CUR%XT_ROOF)) DEALLOCATE(t%CUR%XT_ROOF)
IF (ASSOCIATED(t%CUR%XT_ROAD)) DEALLOCATE(t%CUR%XT_ROAD)
IF (ASSOCIATED(t%CUR%XT_WALL_A)) DEALLOCATE(t%CUR%XT_WALL_A)
IF (ASSOCIATED(t%CUR%XT_WALL_B)) DEALLOCATE(t%CUR%XT_WALL_B)
IF (ASSOCIATED(t%CUR%XAC_ROOF)) DEALLOCATE(t%CUR%XAC_ROOF)
IF (ASSOCIATED(t%CUR%XAC_ROAD)) DEALLOCATE(t%CUR%XAC_ROAD)
IF (ASSOCIATED(t%CUR%XAC_WALL)) DEALLOCATE(t%CUR%XAC_WALL)
IF (ASSOCIATED(t%CUR%XAC_TOP)) DEALLOCATE(t%CUR%XAC_TOP)
IF (ASSOCIATED(t%CUR%XAC_ROOF_WAT)) DEALLOCATE(t%CUR%XAC_ROOF_WAT)
IF (ASSOCIATED(t%CUR%XAC_ROAD_WAT)) DEALLOCATE(t%CUR%XAC_ROAD_WAT)
IF (ASSOCIATED(t%CUR%XQSAT_ROOF)) DEALLOCATE(t%CUR%XQSAT_ROOF)
IF (ASSOCIATED(t%CUR%XQSAT_ROAD)) DEALLOCATE(t%CUR%XQSAT_ROAD)
IF (ASSOCIATED(t%CUR%XDELT_ROOF)) DEALLOCATE(t%CUR%XDELT_ROOF)
IF (ASSOCIATED(t%CUR%XDELT_ROAD)) DEALLOCATE(t%CUR%XDELT_ROAD)
!-------------------------------------------------------------------------------------
!
IF(ASSOCIATED(t%CUR%XAC_ROOF    ))  DEALLOCATE(t%CUR%XAC_ROOF    )
IF(ASSOCIATED(t%CUR%XAC_ROAD    ))  DEALLOCATE(t%CUR%XAC_ROAD    )
IF(ASSOCIATED(t%CUR%XAC_WALL    ))  DEALLOCATE(t%CUR%XAC_WALL    )
IF(ASSOCIATED(t%CUR%XAC_TOP     ))  DEALLOCATE(t%CUR%XAC_TOP     )
IF(ASSOCIATED(t%CUR%XAC_ROOF_WAT))  DEALLOCATE(t%CUR%XAC_ROOF_WAT)
IF(ASSOCIATED(t%CUR%XAC_ROAD_WAT))  DEALLOCATE(t%CUR%XAC_ROAD_WAT)
IF(ASSOCIATED(t%CUR%XQSAT_ROOF  ))  DEALLOCATE(t%CUR%XQSAT_ROOF  )
IF(ASSOCIATED(t%CUR%XQSAT_ROAD  ))  DEALLOCATE(t%CUR%XQSAT_ROAD  )
IF(ASSOCIATED(t%CUR%XDELT_ROOF  ))  DEALLOCATE(t%CUR%XDELT_ROOF  )
IF(ASSOCIATED(t%CUR%XDELT_ROAD  ))  DEALLOCATE(t%CUR%XDELT_ROAD  )
!
!-------------------------------------------------------------------------------------
!
IF(ASSOCIATED(cht%XDEP))      DEALLOCATE(cht%XDEP)
IF(ASSOCIATED(cht%CCH_NAMES)) DEALLOCATE(cht%CCH_NAMES)
IF(ASSOCIATED(cht%SVT%CSV))       DEALLOCATE(cht%SVT%CSV)
!
!-------------------------------------------------------------------------------------
!
IF(ASSOCIATED(dtt%XPAR_Z0_TOWN    )) DEALLOCATE(dtt%XPAR_Z0_TOWN    )
IF(ASSOCIATED(dtt%XPAR_BLD        )) DEALLOCATE(dtt%XPAR_BLD        )
IF(ASSOCIATED(dtt%XPAR_ALB_ROOF   )) DEALLOCATE(dtt%XPAR_ALB_ROOF   )
IF(ASSOCIATED(dtt%XPAR_EMIS_ROOF  )) DEALLOCATE(dtt%XPAR_EMIS_ROOF  )
IF(ASSOCIATED(dtt%XPAR_HC_ROOF    )) DEALLOCATE(dtt%XPAR_HC_ROOF    )
IF(ASSOCIATED(dtt%XPAR_TC_ROOF    )) DEALLOCATE(dtt%XPAR_TC_ROOF    )
IF(ASSOCIATED(dtt%XPAR_D_ROOF     )) DEALLOCATE(dtt%XPAR_D_ROOF     )
IF(ASSOCIATED(dtt%XPAR_ALB_ROAD   )) DEALLOCATE(dtt%XPAR_ALB_ROAD   )
IF(ASSOCIATED(dtt%XPAR_EMIS_ROAD  )) DEALLOCATE(dtt%XPAR_EMIS_ROAD  )
IF(ASSOCIATED(dtt%XPAR_HC_ROAD    )) DEALLOCATE(dtt%XPAR_HC_ROAD    )
IF(ASSOCIATED(dtt%XPAR_TC_ROAD    )) DEALLOCATE(dtt%XPAR_TC_ROAD    )
IF(ASSOCIATED(dtt%XPAR_D_ROAD     )) DEALLOCATE(dtt%XPAR_D_ROAD     )
IF(ASSOCIATED(dtt%XPAR_ALB_WALL   )) DEALLOCATE(dtt%XPAR_ALB_WALL   )
IF(ASSOCIATED(dtt%XPAR_EMIS_WALL  )) DEALLOCATE(dtt%XPAR_EMIS_WALL  )
IF(ASSOCIATED(dtt%XPAR_HC_WALL    )) DEALLOCATE(dtt%XPAR_HC_WALL    )
IF(ASSOCIATED(dtt%XPAR_TC_WALL    )) DEALLOCATE(dtt%XPAR_TC_WALL    )
IF(ASSOCIATED(dtt%XPAR_D_WALL     )) DEALLOCATE(dtt%XPAR_D_WALL     )
IF(ASSOCIATED(dtt%XPAR_BLD_HEIGHT )) DEALLOCATE(dtt%XPAR_BLD_HEIGHT )
IF(ASSOCIATED(dtt%XPAR_WALL_O_HOR )) DEALLOCATE(dtt%XPAR_WALL_O_HOR )
IF(ASSOCIATED(dtt%XPAR_H_TRAFFIC  )) DEALLOCATE(dtt%XPAR_H_TRAFFIC  )
IF(ASSOCIATED(dtt%XPAR_LE_TRAFFIC )) DEALLOCATE(dtt%XPAR_LE_TRAFFIC )
IF(ASSOCIATED(dtt%XPAR_H_INDUSTRY )) DEALLOCATE(dtt%XPAR_H_INDUSTRY )
IF(ASSOCIATED(dtt%XPAR_LE_INDUSTRY)) DEALLOCATE(dtt%XPAR_LE_INDUSTRY)
IF(ASSOCIATED(dtt%XPAR_GARDEN     )) DEALLOCATE(dtt%XPAR_GARDEN     )
IF(ASSOCIATED(dtt%XPAR_ROAD_DIR   )) DEALLOCATE(dtt%XPAR_ROAD_DIR   )
IF(ASSOCIATED(dtt%NPAR_BLDTYPE    )) DEALLOCATE(dtt%NPAR_BLDTYPE    )
IF(ASSOCIATED(dtt%NPAR_BLD_AGE    )) DEALLOCATE(dtt%NPAR_BLD_AGE    )
IF(ASSOCIATED(dtt%NPAR_BLDCODE    )) DEALLOCATE(dtt%NPAR_BLDCODE    )
IF(ASSOCIATED(dtt%NPAR_USETYPE    )) DEALLOCATE(dtt%NPAR_USETYPE    )
!
!-------------------------------------------------------------------------------------
!
IF(ASSOCIATED(b%CUR%XHC_FLOOR   ))  DEALLOCATE(b%CUR%XHC_FLOOR   )
IF(ASSOCIATED(b%CUR%XTC_FLOOR   ))  DEALLOCATE(b%CUR%XTC_FLOOR   )
IF(ASSOCIATED(b%CUR%XD_FLOOR    ))  DEALLOCATE(b%CUR%XD_FLOOR    )
!
IF(ASSOCIATED(b%CUR%XF_WASTE_CAN))  DEALLOCATE(b%CUR%XF_WASTE_CAN)
IF(ASSOCIATED(b%CUR%XEFF_HEAT   ))  DEALLOCATE(b%CUR%XEFF_HEAT   )
IF(ASSOCIATED(b%CUR%XQIN        ))  DEALLOCATE(b%CUR%XQIN        )
IF(ASSOCIATED(b%CUR%XQIN_FRAD   ))  DEALLOCATE(b%CUR%XQIN_FRAD   )
IF(ASSOCIATED(b%CUR%XSHGC       ))  DEALLOCATE(b%CUR%XSHGC       )
IF(ASSOCIATED(b%CUR%XU_WIN      ))  DEALLOCATE(b%CUR%XU_WIN      )
IF(ASSOCIATED(b%CUR%XTRAN_WIN   ))  DEALLOCATE(b%CUR%XTRAN_WIN   )
IF(ASSOCIATED(b%CUR%XGR         ))  DEALLOCATE(b%CUR%XGR         )
IF(ASSOCIATED(b%CUR%XFLOOR_HEIGHT)) DEALLOCATE(b%CUR%XFLOOR_HEIGHT)
IF(ASSOCIATED(b%CUR%XINF        ))  DEALLOCATE(b%CUR%XINF        )
!
IF(ASSOCIATED(b%CUR%XQIN_FLAT   ))  DEALLOCATE(b%CUR%XQIN_FLAT   )
IF(ASSOCIATED(b%CUR%XHR_TARGET  ))  DEALLOCATE(b%CUR%XHR_TARGET  )
IF(ASSOCIATED(b%CUR%XV_VENT     ))  DEALLOCATE(b%CUR%XV_VENT     )
IF(ASSOCIATED(b%CUR%XCAP_SYS_HEAT)) DEALLOCATE(b%CUR%XCAP_SYS_HEAT)
IF(ASSOCIATED(b%CUR%XCAP_SYS_RAT))  DEALLOCATE(b%CUR%XCAP_SYS_RAT)
IF(ASSOCIATED(b%CUR%XT_ADP      ))  DEALLOCATE(b%CUR%XT_ADP      )
IF(ASSOCIATED(b%CUR%XM_SYS_RAT  ))  DEALLOCATE(b%CUR%XM_SYS_RAT  )
IF(ASSOCIATED(b%CUR%XCOP_RAT    ))  DEALLOCATE(b%CUR%XCOP_RAT    )
IF(ASSOCIATED(b%CUR%XT_SIZE_MAX ))  DEALLOCATE(b%CUR%XT_SIZE_MAX )
IF(ASSOCIATED(b%CUR%XT_SIZE_MIN ))  DEALLOCATE(b%CUR%XT_SIZE_MIN )
!
IF(ASSOCIATED(b%CUR%XABS_WIN    ))  DEALLOCATE(b%CUR%XABS_WIN    )
IF(ASSOCIATED(b%CUR%XALB_WIN    ))  DEALLOCATE(b%CUR%XALB_WIN    )
IF(ASSOCIATED(b%CUR%XUGG_WIN    ))  DEALLOCATE(b%CUR%XUGG_WIN    )
IF(ASSOCIATED(b%CUR%LSHAD_DAY   ))  DEALLOCATE(b%CUR%LSHAD_DAY   )
IF(ASSOCIATED(b%CUR%LNATVENT_NIGHT)) DEALLOCATE(b%CUR%LNATVENT_NIGHT)
IF(ASSOCIATED(b%CUR%CNATVENT    ))  DEALLOCATE(b%CUR%CNATVENT)
IF(ASSOCIATED(b%CUR%LSHADE      ))  DEALLOCATE(b%CUR%LSHADE)
IF(ASSOCIATED(b%CUR%XF_WATER_COND)) DEALLOCATE(b%CUR%XF_WATER_COND)
IF(ASSOCIATED(b%CUR%XSHGC_SH    ))  DEALLOCATE(b%CUR%XSHGC_SH)

IF(ASSOCIATED(dtt%XPAR_ROUGH_ROOF ))  DEALLOCATE(dtt%XPAR_ROUGH_ROOF)
IF(ASSOCIATED(dtt%XPAR_ROUGH_WALL ))  DEALLOCATE(dtt%XPAR_ROUGH_WALL)
IF(ASSOCIATED(dtt%XPAR_RESIDENTIAL))  DEALLOCATE(dtt%XPAR_RESIDENTIAL)
IF(ASSOCIATED(t%CUR%XROUGH_ROOF ))  DEALLOCATE(t%CUR%XROUGH_ROOF)
IF(ASSOCIATED(t%CUR%XROUGH_WALL ))  DEALLOCATE(t%CUR%XROUGH_WALL)
IF(ASSOCIATED(t%CUR%XRESIDENTIAL))  DEALLOCATE(t%CUR%XRESIDENTIAL)

IF(ASSOCIATED(b%CUR%XN_FLOOR ))  DEALLOCATE(b%CUR%XN_FLOOR)
IF(ASSOCIATED(b%CUR%XGLAZ_O_BLD ))  DEALLOCATE(b%CUR%XGLAZ_O_BLD)
IF(ASSOCIATED(b%CUR%XMASS_O_BLD ))  DEALLOCATE(b%CUR%XMASS_O_BLD)
IF(ASSOCIATED(b%CUR%XFLOOR_HW_RATIO ))  DEALLOCATE(b%CUR%XFLOOR_HW_RATIO)
IF(ASSOCIATED(b%CUR%XF_FLOOR_MASS ))  DEALLOCATE(b%CUR%XF_FLOOR_MASS)
IF(ASSOCIATED(b%CUR%XF_FLOOR_WALL ))  DEALLOCATE(b%CUR%XF_FLOOR_WALL)
IF(ASSOCIATED(b%CUR%XF_FLOOR_WIN ))  DEALLOCATE(b%CUR%XF_FLOOR_WIN)
IF(ASSOCIATED(b%CUR%XF_FLOOR_ROOF ))  DEALLOCATE(b%CUR%XF_FLOOR_ROOF)
IF(ASSOCIATED(b%CUR%XF_WALL_FLOOR ))  DEALLOCATE(b%CUR%XF_WALL_FLOOR)
IF(ASSOCIATED(b%CUR%XF_WALL_MASS ))  DEALLOCATE(b%CUR%XF_WALL_MASS)
IF(ASSOCIATED(b%CUR%XF_WALL_WIN ))  DEALLOCATE(b%CUR%XF_WALL_WIN)
IF(ASSOCIATED(b%CUR%XF_WIN_FLOOR ))  DEALLOCATE(b%CUR%XF_WIN_FLOOR)
IF(ASSOCIATED(b%CUR%XF_WIN_MASS ))  DEALLOCATE(b%CUR%XF_WIN_MASS)
IF(ASSOCIATED(b%CUR%XF_WIN_WALL ))  DEALLOCATE(b%CUR%XF_WIN_WALL)
IF(ASSOCIATED(b%CUR%XF_MASS_FLOOR ))  DEALLOCATE(b%CUR%XF_MASS_FLOOR)
IF(ASSOCIATED(b%CUR%XF_MASS_WALL ))  DEALLOCATE(b%CUR%XF_MASS_WALL)
IF(ASSOCIATED(b%CUR%XF_MASS_WIN ))  DEALLOCATE(b%CUR%XF_MASS_WIN)
IF(ASSOCIATED(b%CUR%XTI_BLD ))  DEALLOCATE(b%CUR%XTI_BLD)
IF(ASSOCIATED(b%CUR%XQI_BLD ))  DEALLOCATE(b%CUR%XQI_BLD)
IF(ASSOCIATED(b%CUR%XT_FLOOR ))  DEALLOCATE(b%CUR%XT_FLOOR)
IF(ASSOCIATED(b%CUR%XT_MASS ))  DEALLOCATE(b%CUR%XT_MASS)
IF(ASSOCIATED(b%CUR%XAUX_MAX ))  DEALLOCATE(b%CUR%XAUX_MAX)
IF(ASSOCIATED(b%CUR%XT_WIN2 ))  DEALLOCATE(b%CUR%XT_WIN2)
IF(ASSOCIATED(b%CUR%XT_WIN1 ))  DEALLOCATE(b%CUR%XT_WIN1)
!
!
IF (lhook) CALL dr_hook('DEALLOC_TEB_N',1,zhook_handle)
!
!-------------------------------------------------------------------------------------
!
END SUBROUTINE dealloc_teb_n