41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
44 USE modi_dealloc_ideal_flux
46 USE modi_dealloc_seaflux_n
64 REAL(KIND=JPRB) :: zhook_handle
66 IF (lhook) CALL dr_hook(
'DEALLOC_SEA_N',0,zhook_handle)
67 IF (u%CSEA==
'SEAFLX')
THEN
69 ELSE IF (u%CSEA==
'FLUX ')
THEN
72 IF (lhook) CALL dr_hook(
'DEALLOC_SEA_N',1,zhook_handle)
subroutine dealloc_ideal_flux
subroutine dealloc_sea_n(CHS, SG, S, U)
subroutine dealloc_seaflux_n(CHS, SG, S)