dealloc_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_surf_atm_n (YSC)
!     #################################################################################
!
!!****  *DEALLOC_SURF_ATM_n * - Deallocate all arrays
!!
!!    PURPOSE
!!    -------
!
!!**  METHOD
!!    ------
!!
!!    REFERENCE
!!    ---------
!!      
!!
!!    AUTHOR
!!    ------
!!     V. Masson 
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2004
!!------------------------------------------------------------------
!
USE modd_surfex_n, ONLY : surfex_t
!
USE modi_dealloc_sea_n
USE modi_dealloc_inland_water_n
USE modi_dealloc_nature_n
USE modi_dealloc_town_n
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*      0.1    declarations of arguments
!
!
!*      0.2    declarations of local variables
!
!-------------------------------------------------------------------------------------
!
TYPE(surfex_t), INTENT(INOUT) :: ysc
!
!
REAL(KIND=JPRB) :: zhook_handle

IF (lhook) CALL dr_hook('DEALLOC_SURF_ATM_N',0,zhook_handle)
IF (ASSOCIATED(ysc%U%XNATURE)) DEALLOCATE(ysc%U%XNATURE)
IF (ASSOCIATED(ysc%U%XTOWN  )) DEALLOCATE(ysc%U%XTOWN  )
IF (ASSOCIATED(ysc%U%XWATER )) DEALLOCATE(ysc%U%XWATER )
IF (ASSOCIATED(ysc%U%XSEA   )) DEALLOCATE(ysc%U%XSEA   )
!
IF (ASSOCIATED(ysc%U%LCOVER )) DEALLOCATE(ysc%U%LCOVER )
IF (ASSOCIATED(ysc%U%XCOVER )) DEALLOCATE(ysc%U%XCOVER )
IF (ASSOCIATED(ysc%U%XZS    )) DEALLOCATE(ysc%U%XZS    )
!
IF (ASSOCIATED(ysc%U%NR_NATURE)) DEALLOCATE(ysc%U%NR_NATURE)
IF (ASSOCIATED(ysc%U%NR_TOWN  )) DEALLOCATE(ysc%U%NR_TOWN  )
IF (ASSOCIATED(ysc%U%NR_WATER )) DEALLOCATE(ysc%U%NR_WATER )
IF (ASSOCIATED(ysc%U%NR_SEA   )) DEALLOCATE(ysc%U%NR_SEA   )
!
!-------------------------------------------------------------------------------------
!
IF (ASSOCIATED(ysc%UG%XGRID_PAR )) DEALLOCATE(ysc%UG%XGRID_PAR )
IF (ASSOCIATED(ysc%UG%XLAT      )) DEALLOCATE(ysc%UG%XLAT      )
IF (ASSOCIATED(ysc%UG%XLON      )) DEALLOCATE(ysc%UG%XLON      )
IF (ASSOCIATED(ysc%UG%XMESH_SIZE)) DEALLOCATE(ysc%UG%XMESH_SIZE)
IF (ASSOCIATED(ysc%UG%XJPDIR    )) DEALLOCATE(ysc%UG%XJPDIR    )
!
!-------------------------------------------------------------------------------------
!
IF (ASSOCIATED(ysc%USS%XAOSIP))     DEALLOCATE(ysc% USS%XAOSIP)
IF (ASSOCIATED(ysc%USS%XAOSIM))     DEALLOCATE(ysc% USS%XAOSIM)
IF (ASSOCIATED(ysc%USS%XAOSJP))     DEALLOCATE(ysc% USS%XAOSJP)
IF (ASSOCIATED(ysc%USS%XAOSJM))     DEALLOCATE(ysc% USS%XAOSJM)
IF (ASSOCIATED(ysc%USS%XHO2IP))     DEALLOCATE(ysc% USS%XHO2IP)
IF (ASSOCIATED(ysc%USS%XHO2IM))     DEALLOCATE(ysc% USS%XHO2IM)
IF (ASSOCIATED(ysc%USS%XHO2JP))     DEALLOCATE(ysc% USS%XHO2JP)
IF (ASSOCIATED(ysc%USS%XHO2JM))     DEALLOCATE(ysc% USS%XHO2JM)
IF (ASSOCIATED(ysc%USS%XZ0REL))     DEALLOCATE(ysc% USS%XZ0REL)
IF (ASSOCIATED(ysc%USS%XSSO_SLOPE)) DEALLOCATE(ysc% USS%XSSO_SLOPE)
IF (ASSOCIATED(ysc%USS%XSSO_ANIS))  DEALLOCATE(ysc% USS%XSSO_ANIS)
IF (ASSOCIATED(ysc%USS%XSSO_DIR))   DEALLOCATE(ysc% USS%XSSO_DIR)
IF (ASSOCIATED(ysc%USS%XSSO_STDEV)) DEALLOCATE(ysc% USS%XSSO_STDEV)
IF (ASSOCIATED(ysc%USS%XAVG_ZS))    DEALLOCATE(ysc% USS%XAVG_ZS)
IF (ASSOCIATED(ysc%USS%XSIL_ZS))    DEALLOCATE(ysc% USS%XSIL_ZS)
IF (ASSOCIATED(ysc%USS%XMAX_ZS))    DEALLOCATE(ysc% USS%XMAX_ZS)
IF (ASSOCIATED(ysc%USS%XMIN_ZS))    DEALLOCATE(ysc% USS%XMIN_ZS)
!
!-------------------------------------------------------------------------------------
!
IF (ASSOCIATED(ysc%CHE%CEMIS_AREA))   DEALLOCATE(ysc%CHE%CEMIS_AREA)
IF (ASSOCIATED(ysc%CHE%CEMIS_COMMENT))DEALLOCATE(ysc%CHE%CEMIS_COMMENT)
IF (ASSOCIATED(ysc%CHE%CEMIS_NAME))   DEALLOCATE(ysc%CHE%CEMIS_NAME)
IF (ASSOCIATED(ysc%CHE%NEMIS_TIME))   DEALLOCATE(ysc%CHE%NEMIS_TIME)
IF (ASSOCIATED(ysc%CHE%XEMIS_FIELDS)) DEALLOCATE(ysc%CHE%XEMIS_FIELDS)
IF (ASSOCIATED(ysc%CHE%TSEMISS))      DEALLOCATE(ysc%CHE%TSEMISS)
!
!-------------------------------------------------------------------------------------
!
IF (ASSOCIATED(ysc%DUU%XDUMMY_FIELDS)) DEALLOCATE(ysc% DUU%XDUMMY_FIELDS)
!
!-------------------------------------------------------------------------------------
!
IF (ASSOCIATED(ysc%SV%CSV)) DEALLOCATE(ysc%SV%CSV)
!
!-------------------------------------------------------------------------------------
!
IF (ASSOCIATED(ysc%CHU%CCH_NAMES))  DEALLOCATE(ysc%CHU%CCH_NAMES)
IF (ASSOCIATED(ysc%CHE%CEMIS_NAME)) DEALLOCATE(ysc%CHE%CEMIS_NAME)
IF (ASSOCIATED(ysc%CHE%CEMIS_AREA)) DEALLOCATE(ysc%CHE%CEMIS_AREA)
IF (ASSOCIATED(ysc%CHE%NEMIS_TIME)) DEALLOCATE(ysc%CHE%NEMIS_TIME )
IF (ASSOCIATED(ysc%CHE%TSEMISS))    DEALLOCATE(ysc%CHE%TSEMISS)
!
!-------------------------------------------------------------------------------------
!
IF (ysc%U%NDIM_SEA    >0) CALL dealloc_sea_n(ysc%SM%CHS, ysc%SM%SG, ysc%SM%S, ysc%U)
IF (ysc%U%NDIM_WATER  >0) CALL dealloc_inland_water_n(ysc%FM%CHF, ysc%WM%CHW, ysc%FM%FG, ysc%FM%F, ysc%U, ysc%WM%WG, ysc%WM%W)
IF (ysc%U%NDIM_NATURE >0) CALL dealloc_nature_n(ysc%IM%CHI, ysc%IM%DTI, ysc%IM%GB, ysc%IM%IG, ysc%IM%I, ysc%U)
IF (ysc%U%NDIM_TOWN   >0) CALL dealloc_town_n(ysc%TM%B, ysc%TM%CHT, ysc%TM%DTT, ysc%U, ysc%TM%TG, &
                                              ysc%TM%T, ysc%TM%TOP, ysc%TM%TPN)
IF (lhook) CALL dr_hook('DEALLOC_SURF_ATM_N',1,zhook_handle)
!
!--------------------------------------------------------------------------------------
!
END SUBROUTINE dealloc_surf_atm_n