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 (SM)
!     #################################################################################
!
!!****  *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_diag_n, ONLY : diag_init, diag_options_init
USE modd_diag_ocean_n, ONLY : diag_ocean_init
USE modd_diag_misc_seaice_n, ONLY : diag_misc_seaice_init
!
USE modd_ch_seaflux_n, ONLY : ch_seaflux_init
USE modd_data_seaflux_n, ONLY : data_seaflux_init
USE modd_seaflux_n, ONLY : seaflux_init
USE modd_ocean_n, ONLY : ocean_init
USE modd_ocean_rel_n, ONLY : ocean_rel_init
!
USE modd_sfx_grid_n, ONLY : grid_init
USE modd_canopy_n, ONLY : canopy_init
!
USE modd_surfex_n, ONLY : seaflux_model_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(seaflux_model_t), INTENT(INOUT) :: SM
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-------------------------------------------------------------------------------------
!
IF (lhook) CALL dr_hook('DEALLOC_SEAFLUX_N',0,zhook_handle)
!
 CALL diag_options_init(sm%SD%O) 
 CALL diag_init(sm%SD%D)
 CALL diag_init(sm%SD%DC)
 CALL diag_init(sm%SD%DI)
 CALL diag_init(sm%SD%DIC)
 CALL diag_ocean_init(sm%SD%GO)  
 CALL diag_misc_seaice_init(sm%SD%DMI)
  !  
 CALL data_seaflux_init(sm%DTS)
 CALL grid_init(sm%G)
 CALL canopy_init(sm%SB)  
 CALL ch_seaflux_init(sm%CHS)
 CALL seaflux_init(sm%S)
 CALL seaflux_init(sm%S)  
 CALL ocean_init(sm%O)
 CALL ocean_rel_init(sm%OR)
!
!-------------------------------------------------------------------------------------
!
IF (ASSOCIATED(sm%S%TGLT%bat) .AND. sm%S%CSEAICE_SCHEME=='GELATO' ) CALL gltools_dealloc(sm%S%TGLT)
!
IF (lhook) CALL dr_hook('DEALLOC_SEAFLUX_N',1,zhook_handle)
!
!-------------------------------------------------------------------------------------
!
END SUBROUTINE dealloc_seaflux_n