45 USE yomhook
,ONLY : lhook, dr_hook
46 USE parkind1
,ONLY : jprb
48 USE modi_dealloc_ideal_flux
50 USE modi_dealloc_teb_n
63 TYPE(bem_t),
INTENT(INOUT) :: b
68 TYPE(teb_t),
INTENT(INOUT) :: t
72 REAL(KIND=JPRB) :: zhook_handle
74 IF (lhook) CALL dr_hook(
'DEALLOC_TOWN_N',0,zhook_handle)
75 IF (u%CTOWN==
'TEB ')
THEN
77 ELSE IF (u%CTOWN==
'FLUX ')
THEN
80 IF (lhook) CALL dr_hook(
'DEALLOC_TOWN_N',1,zhook_handle)
subroutine dealloc_teb_n(B, CHT, DTT, TG, T, TOP, TPN)
subroutine dealloc_ideal_flux
subroutine dealloc_town_n(B, CHT, DTT, U, TG, T, TOP, TPN)