40 USE yomhook
,ONLY : lhook, dr_hook
41 USE parkind1
,ONLY : jprb
58 REAL(KIND=JPRB) :: zhook_handle
60 IF (lhook) CALL dr_hook(
'DEALLOC_WATFLUX_N',0,zhook_handle)
61 IF (
ASSOCIATED(w%LCOVER ))
DEALLOCATE(w%LCOVER )
62 IF (
ASSOCIATED(w%XCOVER ))
DEALLOCATE(w%XCOVER )
63 IF (
ASSOCIATED(w%XZS ))
DEALLOCATE(w%XZS )
64 IF (
ASSOCIATED(w%XTS ))
DEALLOCATE(w%XTS )
65 IF (
ASSOCIATED(w%XZ0 ))
DEALLOCATE(w%XZ0 )
66 IF (
ASSOCIATED(w%XEMIS ))
DEALLOCATE(w%XEMIS )
68 IF (
ASSOCIATED(w%XDIR_ALB))
DEALLOCATE(w%XDIR_ALB)
69 IF (
ASSOCIATED(w%XSCA_ALB))
DEALLOCATE(w%XSCA_ALB)
73 IF (
ASSOCIATED(wg%XGRID_PAR ))
DEALLOCATE(wg%XGRID_PAR )
74 IF (
ASSOCIATED(wg%XLAT ))
DEALLOCATE(wg%XLAT )
75 IF (
ASSOCIATED(wg%XLON ))
DEALLOCATE(wg%XLON )
76 IF (
ASSOCIATED(wg%XMESH_SIZE))
DEALLOCATE(wg%XMESH_SIZE)
80 IF(
ASSOCIATED(chw%XDEP))
DEALLOCATE(chw%XDEP)
81 IF(
ASSOCIATED(chw%CCH_NAMES))
DEALLOCATE(chw%CCH_NAMES)
82 IF(
ASSOCIATED(chw%SVW%CSV))
DEALLOCATE(chw%SVW%CSV)
86 IF(
ASSOCIATED(w%XCPL_WATER_WIND))
DEALLOCATE(w%XCPL_WATER_WIND)
87 IF(
ASSOCIATED(w%XCPL_WATER_FWSU))
DEALLOCATE(w%XCPL_WATER_FWSU)
88 IF(
ASSOCIATED(w%XCPL_WATER_FWSV))
DEALLOCATE(w%XCPL_WATER_FWSV)
89 IF(
ASSOCIATED(w%XCPL_WATER_SNET))
DEALLOCATE(w%XCPL_WATER_SNET)
90 IF(
ASSOCIATED(w%XCPL_WATER_HEAT))
DEALLOCATE(w%XCPL_WATER_HEAT)
91 IF(
ASSOCIATED(w%XCPL_WATER_EVAP))
DEALLOCATE(w%XCPL_WATER_EVAP)
92 IF(
ASSOCIATED(w%XCPL_WATER_RAIN))
DEALLOCATE(w%XCPL_WATER_RAIN)
93 IF(
ASSOCIATED(w%XCPL_WATER_SNOW))
DEALLOCATE(w%XCPL_WATER_SNOW)
94 IF (lhook) CALL dr_hook(
'DEALLOC_WATFLUX_N',1,zhook_handle)
subroutine dealloc_watflux_n(CHW, WG, W)