39 USE modi_gltools_dealloc
41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
56 REAL(KIND=JPRB) :: zhook_handle
60 IF (lhook) CALL dr_hook(
'DEALLOC_SEAFLUX_N',0,zhook_handle)
62 IF (
ASSOCIATED(s%LCOVER ))
DEALLOCATE(s%LCOVER )
63 IF (
ASSOCIATED(s%XCOVER ))
DEALLOCATE(s%XCOVER )
64 IF (
ASSOCIATED(s%XZS ))
DEALLOCATE(s%XZS )
65 IF (
ASSOCIATED(s%XSST ))
DEALLOCATE(s%XSST )
66 IF (
ASSOCIATED(s%XSSS ))
DEALLOCATE(s%XSSS )
67 IF (
ASSOCIATED(s%XSIC ))
DEALLOCATE(s%XSIC )
68 IF (
ASSOCIATED(s%XFSIC ))
DEALLOCATE(s%XFSIC )
69 IF (
ASSOCIATED(s%XFSIT ))
DEALLOCATE(s%XFSIT )
70 IF (
ASSOCIATED(s%XZ0 ))
DEALLOCATE(s%XZ0 )
71 IF (
ASSOCIATED(s%XZ0H ))
DEALLOCATE(s%XZ0H )
72 IF (
ASSOCIATED(s%XSEABATHY))
DEALLOCATE(s%XSEABATHY)
73 IF (
ASSOCIATED(s%XEMIS ))
DEALLOCATE(s%XEMIS )
74 IF (
ASSOCIATED(s%XDIR_ALB))
DEALLOCATE(s%XDIR_ALB)
75 IF (
ASSOCIATED(s%XSCA_ALB))
DEALLOCATE(s%XSCA_ALB)
79 IF (
ASSOCIATED(sg%XGRID_PAR ))
DEALLOCATE(sg%XGRID_PAR )
80 IF (
ASSOCIATED(sg%XLAT ))
DEALLOCATE(sg%XLAT )
81 IF (
ASSOCIATED(sg%XLON ))
DEALLOCATE(sg%XLON )
82 IF (
ASSOCIATED(sg%XMESH_SIZE))
DEALLOCATE(sg%XMESH_SIZE)
86 IF(
ASSOCIATED(chs%XDEP))
DEALLOCATE(chs%XDEP)
87 IF(
ASSOCIATED(chs%CCH_NAMES))
DEALLOCATE(chs%CCH_NAMES)
88 IF(
ASSOCIATED(chs%SVS%CSV))
DEALLOCATE(chs%SVS%CSV)
92 IF(
ASSOCIATED(s%XCPL_SEA_WIND))
DEALLOCATE(s%XCPL_SEA_WIND)
93 IF(
ASSOCIATED(s%XCPL_SEA_FWSU))
DEALLOCATE(s%XCPL_SEA_FWSU)
94 IF(
ASSOCIATED(s%XCPL_SEA_FWSV))
DEALLOCATE(s%XCPL_SEA_FWSV)
95 IF(
ASSOCIATED(s%XCPL_SEA_SNET))
DEALLOCATE(s%XCPL_SEA_SNET)
96 IF(
ASSOCIATED(s%XCPL_SEA_HEAT))
DEALLOCATE(s%XCPL_SEA_HEAT)
97 IF(
ASSOCIATED(s%XCPL_SEA_EVAP))
DEALLOCATE(s%XCPL_SEA_EVAP)
98 IF(
ASSOCIATED(s%XCPL_SEA_RAIN))
DEALLOCATE(s%XCPL_SEA_RAIN)
99 IF(
ASSOCIATED(s%XCPL_SEA_SNOW))
DEALLOCATE(s%XCPL_SEA_SNOW)
103 IF (
ASSOCIATED(s%TGLT%bat) .AND. s%CSEAICE_SCHEME==
'GELATO' ) CALL
gltools_dealloc(s%TGLT)
105 IF (lhook) CALL dr_hook(
'DEALLOC_SEAFLUX_N',1,zhook_handle)
subroutine dealloc_seaflux_n(CHS, SG, S)