44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
47 USE modi_dealloc_flake_n
49 USE modi_dealloc_ideal_flux
51 USE modi_dealloc_watflux_n
67 TYPE(flake_t),
INTENT(INOUT) :: f
72 REAL(KIND=JPRB) :: zhook_handle
74 IF (lhook) CALL dr_hook(
'DEALLOC_INLAND_WATER_N',0,zhook_handle)
75 IF (u%CWATER==
'WATFLX')
THEN
77 ELSE IF (u%CWATER==
'FLAKE ')
THEN
79 ELSE IF (u%CWATER==
'FLUX ')
THEN
82 IF (lhook) CALL dr_hook(
'DEALLOC_INLAND_WATER_N',1,zhook_handle)
subroutine dealloc_flake_n(CHF, FG, F)
subroutine dealloc_watflux_n(CHW, WG, W)
subroutine dealloc_ideal_flux
subroutine dealloc_inland_water_n(CHF, CHW, FG, F, U, WG, W)