43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
46 USE modi_dealloc_ideal_flux
48 USE modi_dealloc_isba_n
64 TYPE(isba_grid_t
),
INTENT(INOUT) :: ig
65 TYPE(isba_t
),
INTENT(INOUT) :: i
68 REAL(KIND=JPRB) :: zhook_handle
70 IF (lhook) CALL dr_hook(
'DEALLOC_NATURE_N',0,zhook_handle)
71 IF (u%CNATURE==
'ISBA ' .OR. u%CNATURE==
'TSZ0 ')
THEN
73 ELSE IF (u%CNATURE==
'FLUX ')
THEN
76 IF (lhook) CALL dr_hook(
'DEALLOC_NATURE_N',1,zhook_handle)
subroutine dealloc_ideal_flux
subroutine dealloc_nature_n(CHI, DTI, GB, IG, I, U)
subroutine dealloc_isba_n(CHI, DTI, GB, IG, I)