dealloc_diag_surf_atmn.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_diag_surf_atm_n (DGU)
!     #############################################################
!
!!    AUTHOR
!!    ------
!!      V. Masson   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2004
!!      Modified    01/2006 : sea flux parameterization.
!!      B.Decharme  04/2013 : new diags
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
!
!
USE modd_diag_surf_atm_n, ONLY : diag_surf_atm_t
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*       0.1   Declarations of arguments
!              -------------------------
!
!*       0.2   Declarations of local variables
!              -------------------------------
!
!-------------------------------------------------------------------------------
!
!

!
TYPE(diag_surf_atm_t), INTENT(INOUT) :: dgu
!
REAL(KIND=JPRB) :: zhook_handle

IF (lhook) CALL dr_hook('DEALLOC_DIAG_SURF_ATM_N',0,zhook_handle)
DEALLOCATE(dgu%XRI_TILE     )
DEALLOCATE(dgu%XCD_TILE     )
DEALLOCATE(dgu%XCH_TILE     )
DEALLOCATE(dgu%XCE_TILE     )
DEALLOCATE(dgu%XQS_TILE     )
DEALLOCATE(dgu%XZ0_TILE     )
DEALLOCATE(dgu%XZ0H_TILE    )
DEALLOCATE(dgu%XRN_TILE     )
DEALLOCATE(dgu%XH_TILE      )
DEALLOCATE(dgu%XLE_TILE     )
DEALLOCATE(dgu%XLEI_TILE    )
DEALLOCATE(dgu%XGFLUX_TILE  )
DEALLOCATE(dgu%XEVAP_TILE   )
DEALLOCATE(dgu%XSUBL_TILE   )
DEALLOCATE(dgu%XT2M_TILE    )
DEALLOCATE(dgu%XTS_TILE     )
DEALLOCATE(dgu%XT2M_MIN_TILE)
DEALLOCATE(dgu%XT2M_MAX_TILE)
DEALLOCATE(dgu%XQ2M_TILE    )
DEALLOCATE(dgu%XHU2M_TILE   )
DEALLOCATE(dgu%XZON10M_TILE )
DEALLOCATE(dgu%XMER10M_TILE )
DEALLOCATE(dgu%XDIAG_TRAD   )
DEALLOCATE(dgu%XDIAG_EMIS   )
!
DEALLOCATE(dgu%XAVG_RI     )
DEALLOCATE(dgu%XAVG_CD     )
DEALLOCATE(dgu%XAVG_CH     )
DEALLOCATE(dgu%XAVG_CE     )
DEALLOCATE(dgu%XAVG_Z0     )
DEALLOCATE(dgu%XAVG_Z0H    )
DEALLOCATE(dgu%XAVG_RN     )
DEALLOCATE(dgu%XAVG_H      )
DEALLOCATE(dgu%XAVG_LE     )
DEALLOCATE(dgu%XAVG_LEI    )
DEALLOCATE(dgu%XAVG_GFLUX  )
DEALLOCATE(dgu%XAVG_EVAP   )
DEALLOCATE(dgu%XAVG_SUBL   )
DEALLOCATE(dgu%XAVG_T2M    )
DEALLOCATE(dgu%XAVG_TS     )
DEALLOCATE(dgu%XAVG_T2M_MIN)
DEALLOCATE(dgu%XAVG_T2M_MAX)
DEALLOCATE(dgu%XAVG_Q2M    )
DEALLOCATE(dgu%XAVG_HU2M   )
DEALLOCATE(dgu%XAVG_ZON10M )
DEALLOCATE(dgu%XAVG_MER10M )
DEALLOCATE(dgu%XAVG_SFCO2  )
DEALLOCATE(dgu%XAVG_T2M_MIN_ZS    )
DEALLOCATE(dgu%XAVG_Q2M_MIN_ZS    )
DEALLOCATE(dgu%XAVG_HU2M_MIN_ZS   )
DEALLOCATE(dgu%XPS                )
DEALLOCATE(dgu%XRHOA              )
!
DEALLOCATE(dgu%XRNC_TILE     )
DEALLOCATE(dgu%XHC_TILE      )
DEALLOCATE(dgu%XLEC_TILE     )
DEALLOCATE(dgu%XLEIC_TILE    )
DEALLOCATE(dgu%XGFLUXC_TILE  )
DEALLOCATE(dgu%XEVAPC_TILE   )
DEALLOCATE(dgu%XSUBLC_TILE   )
DEALLOCATE(dgu%XSWDC_TILE    )
DEALLOCATE(dgu%XSWUC_TILE    )
DEALLOCATE(dgu%XLWDC_TILE    )
DEALLOCATE(dgu%XLWUC_TILE    )
DEALLOCATE(dgu%XFMUC_TILE    )
DEALLOCATE(dgu%XFMVC_TILE    )
!
DEALLOCATE(dgu%XAVG_RNC     )
DEALLOCATE(dgu%XAVG_HC      )
DEALLOCATE(dgu%XAVG_LEC     )
DEALLOCATE(dgu%XAVG_LEIC    )
DEALLOCATE(dgu%XAVG_GFLUXC  )
DEALLOCATE(dgu%XAVG_EVAPC   )
DEALLOCATE(dgu%XAVG_SUBLC   )
DEALLOCATE(dgu%XAVG_SWDC    )
DEALLOCATE(dgu%XAVG_SWUC    )
DEALLOCATE(dgu%XAVG_LWDC    )
DEALLOCATE(dgu%XAVG_LWUC    )
DEALLOCATE(dgu%XAVG_FMUC    )
DEALLOCATE(dgu%XAVG_FMVC    )
!
DEALLOCATE(dgu%XHU2M_MIN_TILE    )
DEALLOCATE(dgu%XAVG_HU2M_MIN     )
DEALLOCATE(dgu%XHU2M_MAX_TILE    )
DEALLOCATE(dgu%XAVG_HU2M_MAX     )
DEALLOCATE(dgu%XWIND10M_TILE     )
DEALLOCATE(dgu%XAVG_WIND10M      )
DEALLOCATE(dgu%XWIND10M_MAX_TILE )
DEALLOCATE(dgu%XAVG_WIND10M_MAX  )
IF (lhook) CALL dr_hook('DEALLOC_DIAG_SURF_ATM_N',1,zhook_handle)
! 
!-------------------------------------------------------------------------------
!
END SUBROUTINE dealloc_diag_surf_atm_n