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 (D,DC,ND,NDC)
!     #############################################################
!
!!    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_data_cover_par, ONLY : ntilesfc
!
USE modd_diag_n, ONLY : diag_t, diag_np_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_t), INTENT(INOUT) :: D
TYPE(diag_t), INTENT(INOUT) :: DC
TYPE(diag_np_t), INTENT(INOUT) :: ND
TYPE(diag_np_t), INTENT(INOUT) :: NDC
!
INTEGER :: JT
REAL(KIND=JPRB) :: ZHOOK_HANDLE

IF (lhook) CALL dr_hook('DEALLOC_DIAG_SURF_ATM_N',0,zhook_handle)
DO jt=1,ntilesfc
  DEALLOCATE(nd%AL(jt)%XRI     )
  DEALLOCATE(nd%AL(jt)%XCD     )
  DEALLOCATE(nd%AL(jt)%XCH     )
  DEALLOCATE(nd%AL(jt)%XCE     )
  DEALLOCATE(nd%AL(jt)%XQS     )
  DEALLOCATE(nd%AL(jt)%XZ0     )
  DEALLOCATE(nd%AL(jt)%XZ0H    )
  DEALLOCATE(nd%AL(jt)%XRN     )
  DEALLOCATE(nd%AL(jt)%XH      )
  DEALLOCATE(nd%AL(jt)%XLE     )
  DEALLOCATE(nd%AL(jt)%XLEI    )
  DEALLOCATE(nd%AL(jt)%XGFLUX  )
  DEALLOCATE(nd%AL(jt)%XEVAP   )
  DEALLOCATE(nd%AL(jt)%XSUBL   )
  DEALLOCATE(nd%AL(jt)%XT2M    )
  DEALLOCATE(nd%AL(jt)%XTS     )
  DEALLOCATE(nd%AL(jt)%XT2M_MIN)
  DEALLOCATE(nd%AL(jt)%XT2M_MAX)
  DEALLOCATE(nd%AL(jt)%XQ2M    )
  DEALLOCATE(nd%AL(jt)%XHU2M   )
  DEALLOCATE(nd%AL(jt)%XZON10M )
  DEALLOCATE(nd%AL(jt)%XMER10M )
  !
  DEALLOCATE(nd%AL(jt)%XHU2M_MIN    )
  DEALLOCATE(nd%AL(jt)%XHU2M_MAX   )
  DEALLOCATE(nd%AL(jt)%XWIND10M     )
  DEALLOCATE(nd%AL(jt)%XWIND10M_MAX )
  !  
  DEALLOCATE(ndc%AL(jt)%XRN     )
  DEALLOCATE(ndc%AL(jt)%XH      )
  DEALLOCATE(ndc%AL(jt)%XLE     )
  DEALLOCATE(ndc%AL(jt)%XLEI    )
  DEALLOCATE(ndc%AL(jt)%XGFLUX  )
  DEALLOCATE(ndc%AL(jt)%XEVAP   )
  DEALLOCATE(ndc%AL(jt)%XSUBL   )
  DEALLOCATE(ndc%AL(jt)%XSWD    )
  DEALLOCATE(ndc%AL(jt)%XSWU    )
  DEALLOCATE(ndc%AL(jt)%XLWD    )
  DEALLOCATE(ndc%AL(jt)%XLWU    )
  DEALLOCATE(ndc%AL(jt)%XFMU    )
  DEALLOCATE(ndc%AL(jt)%XFMV    )
  !
ENDDO
!
DEALLOCATE(d%XTRAD   )
DEALLOCATE(d%XEMIS   )
!
DEALLOCATE(d%XRI     )
DEALLOCATE(d%XCD     )
DEALLOCATE(d%XCH     )
DEALLOCATE(d%XCE     )
DEALLOCATE(d%XZ0     )
DEALLOCATE(d%XZ0H    )
DEALLOCATE(d%XRN     )
DEALLOCATE(d%XH      )
DEALLOCATE(d%XLE     )
DEALLOCATE(d%XLEI    )
DEALLOCATE(d%XGFLUX  )
DEALLOCATE(d%XEVAP   )
DEALLOCATE(d%XSUBL   )
DEALLOCATE(d%XT2M    )
DEALLOCATE(d%XTS     )
DEALLOCATE(d%XT2M_MIN)
DEALLOCATE(d%XT2M_MAX)
DEALLOCATE(d%XQ2M    )
DEALLOCATE(d%XHU2M   )
DEALLOCATE(d%XZON10M )
DEALLOCATE(d%XMER10M )
DEALLOCATE(d%XSFCO2  )
DEALLOCATE(d%XT2M_MIN_ZS    )
DEALLOCATE(d%XQ2M_MIN_ZS    )
DEALLOCATE(d%XHU2M_MIN_ZS   )
DEALLOCATE(d%XPS                )
DEALLOCATE(d%XRHOA              )
!
DEALLOCATE(d%XHU2M_MIN     )
DEALLOCATE(d%XHU2M_MAX     )
DEALLOCATE(d%XWIND10M      )
DEALLOCATE(d%XWIND10M_MAX  )
!
DEALLOCATE(dc%XRN     )
DEALLOCATE(dc%XH      )
DEALLOCATE(dc%XLE     )
DEALLOCATE(dc%XLEI    )
DEALLOCATE(dc%XGFLUX  )
DEALLOCATE(dc%XEVAP   )
DEALLOCATE(dc%XSUBL   )
DEALLOCATE(dc%XSWD    )
DEALLOCATE(dc%XSWU    )
DEALLOCATE(dc%XLWD    )
DEALLOCATE(dc%XLWU    )
DEALLOCATE(dc%XFMU    )
DEALLOCATE(dc%XFMV    )
!
IF (lhook) CALL dr_hook('DEALLOC_DIAG_SURF_ATM_N',1,zhook_handle)
! 
!-------------------------------------------------------------------------------
!
END SUBROUTINE dealloc_diag_surf_atm_n