dealloc_seafluxn.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     #################################################################################
SUBROUTINE dealloc_seaflux_n (CHS, SG, S)
!     #################################################################################
!
!!****  *DEALLOC_SEAFLUX_n * - Deallocate all arrays
!!
!!    PURPOSE
!!    -------
!
!!**  METHOD
!!    ------
!!
!!    REFERENCE
!!    ---------
!!      
!!
!!    AUTHOR
!!    ------
!!     V. Masson 
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2004
!!      S. Belamari 03/2014   other _SEA_ variables
!!      S. Senesi   09/2013   introduce sea-ice-cover ans sea-surface salinity
!!------------------------------------------------------------------
!
!
!
!
USE modd_ch_seaflux_n, ONLY : ch_seaflux_t
USE modd_seaflux_grid_n, ONLY : seaflux_grid_t
USE modd_seaflux_n, ONLY : seaflux_t
!
USE modi_gltools_dealloc
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*      0.1    declarations of arguments
!
!
!*      0.2    declarations of local variables
!
!
TYPE(ch_seaflux_t), INTENT(INOUT) :: chs
TYPE(seaflux_grid_t), INTENT(INOUT) :: sg
TYPE(seaflux_t), INTENT(INOUT) :: s
!
REAL(KIND=JPRB) :: zhook_handle
!
!-------------------------------------------------------------------------------------
!
IF (lhook) CALL dr_hook('DEALLOC_SEAFLUX_N',0,zhook_handle)
!
IF (ASSOCIATED(s%LCOVER ))   DEALLOCATE(s%LCOVER )
IF (ASSOCIATED(s%XCOVER ))   DEALLOCATE(s%XCOVER )
IF (ASSOCIATED(s%XZS    ))   DEALLOCATE(s%XZS    )
IF (ASSOCIATED(s%XSST   ))   DEALLOCATE(s%XSST   )
IF (ASSOCIATED(s%XSSS   ))   DEALLOCATE(s%XSSS   )
IF (ASSOCIATED(s%XSIC   ))   DEALLOCATE(s%XSIC   )
IF (ASSOCIATED(s%XFSIC  ))   DEALLOCATE(s%XFSIC  )
IF (ASSOCIATED(s%XFSIT  ))   DEALLOCATE(s%XFSIT  )
IF (ASSOCIATED(s%XZ0    ))   DEALLOCATE(s%XZ0    )
IF (ASSOCIATED(s%XZ0H   ))   DEALLOCATE(s%XZ0H   )
IF (ASSOCIATED(s%XSEABATHY)) DEALLOCATE(s%XSEABATHY)
IF (ASSOCIATED(s%XEMIS  ))   DEALLOCATE(s%XEMIS  )
IF (ASSOCIATED(s%XDIR_ALB))  DEALLOCATE(s%XDIR_ALB)
IF (ASSOCIATED(s%XSCA_ALB))  DEALLOCATE(s%XSCA_ALB)
!
!-------------------------------------------------------------------------------------
!
IF (ASSOCIATED(sg%XGRID_PAR )) DEALLOCATE(sg%XGRID_PAR )
IF (ASSOCIATED(sg%XLAT      )) DEALLOCATE(sg%XLAT      )
IF (ASSOCIATED(sg%XLON      )) DEALLOCATE(sg%XLON      )
IF (ASSOCIATED(sg%XMESH_SIZE)) DEALLOCATE(sg%XMESH_SIZE)
!
!-------------------------------------------------------------------------------------
!
IF(ASSOCIATED(chs%XDEP))      DEALLOCATE(chs%XDEP)
IF(ASSOCIATED(chs%CCH_NAMES)) DEALLOCATE(chs%CCH_NAMES)
IF(ASSOCIATED(chs%SVS%CSV))       DEALLOCATE(chs%SVS%CSV)
!
!-------------------------------------------------------------------------------------
!
IF(ASSOCIATED(s%XCPL_SEA_WIND))      DEALLOCATE(s%XCPL_SEA_WIND)
IF(ASSOCIATED(s%XCPL_SEA_FWSU))      DEALLOCATE(s%XCPL_SEA_FWSU)
IF(ASSOCIATED(s%XCPL_SEA_FWSV))      DEALLOCATE(s%XCPL_SEA_FWSV)
IF(ASSOCIATED(s%XCPL_SEA_SNET))      DEALLOCATE(s%XCPL_SEA_SNET)
IF(ASSOCIATED(s%XCPL_SEA_HEAT))      DEALLOCATE(s%XCPL_SEA_HEAT)
IF(ASSOCIATED(s%XCPL_SEA_EVAP))      DEALLOCATE(s%XCPL_SEA_EVAP)
IF(ASSOCIATED(s%XCPL_SEA_RAIN))      DEALLOCATE(s%XCPL_SEA_RAIN)
IF(ASSOCIATED(s%XCPL_SEA_SNOW))      DEALLOCATE(s%XCPL_SEA_SNOW)
!
!-------------------------------------------------------------------------------------
!
IF (ASSOCIATED(s%TGLT%bat) .AND. s%CSEAICE_SCHEME=='GELATO' ) CALL gltools_dealloc(s%TGLT)
!
IF (lhook) CALL dr_hook('DEALLOC_SEAFLUX_N',1,zhook_handle)
!
!-------------------------------------------------------------------------------------
!
END SUBROUTINE dealloc_seaflux_n