9 USE yomhook
,ONLY : lhook, dr_hook
10 USE parkind1
,ONLY : jprb
12 USE modi_dealloc_surf_atm_n
16 TYPE (surfex_t),
INTENT(INOUT) :: ydsurfex
17 REAL(KIND=JPRB) :: zhook_handle
18 IF (lhook) CALL dr_hook(
"SURFEX_DEALLO",0,zhook_handle)
22 IF (lhook) CALL dr_hook(
"SURFEX_DEALLO",1,zhook_handle)
subroutine surfex_deallo(YDSURFEX)
subroutine dealloc_surf_atm_n(YSC)