modd_data_covern.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.
!     ####################
      MODULE modd_data_cover_n
!     ######################
!
!!****  *MODD_DATA_COVER_n* - declaration of correspondances between surface
!!                            classes and variables, for parameters that
!!                            can change as function of physical options
!!                            (GARDENs or not).
!!
!!    PURPOSE
!!    -------
!     Declaration of surface parameters
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      V. Masson    *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       09/2011
!
!*       0.   DECLARATIONS
!             ------------
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE

TYPE data_cover_t
!
!-----------------------------------------------------------------------------------------------------
!
REAL, DIMENSION(:,:,:), POINTER :: XDATA_WEIGHT
!
REAL, DIMENSION(:),   POINTER :: XDATA_TOWN   ! artificial surfaces fraction
REAL, DIMENSION(:),   POINTER :: XDATA_NATURE ! natural and cul. fraction
REAL, DIMENSION(:),   POINTER :: XDATA_SEA    ! sea fraction
REAL, DIMENSION(:),   POINTER :: XDATA_WATER  ! inland water fraction
REAL, DIMENSION(:,:), POINTER :: XDATA_VEGTYPE! vegetation types fractions
REAL, DIMENSION(:),   POINTER :: XDATA_GARDEN ! garden fraction
REAL, DIMENSION(:),   POINTER :: XDATA_BLD    ! building fraction in
                                              ! artificial areas
REAL, DIMENSION(:),   POINTER :: XDATA_WALL_O_HOR  ! ratio of vert. surf.
!                                                  ! over hor. surf.
!
LOGICAL                           :: LGARDEN      ! T: define urban green areas
!                                                 ! F: no urban green areas
!
INTEGER :: NYEAR        ! current year for ecoclimap2
!
!-----------------------------------------------------------------------------------------------------
!
END TYPE data_cover_t



 CONTAINS


!




SUBROUTINE data_cover_init(YDATA_COVER)
TYPE(data_cover_t), INTENT(INOUT) :: ydata_cover
REAL(KIND=JPRB) :: zhook_handle
IF (lhook) CALL dr_hook("MODD_DATA_COVER_N:DATA_COVER_INIT",0,zhook_handle)
  nullify(ydata_cover%XDATA_WEIGHT)
  nullify(ydata_cover%XDATA_TOWN)
  nullify(ydata_cover%XDATA_NATURE)
  nullify(ydata_cover%XDATA_SEA)
  nullify(ydata_cover%XDATA_WATER)
  nullify(ydata_cover%XDATA_VEGTYPE)
  nullify(ydata_cover%XDATA_GARDEN)
  nullify(ydata_cover%XDATA_BLD)
  nullify(ydata_cover%XDATA_WALL_O_HOR)
ydata_cover%LGARDEN=.false.
ydata_cover%NYEAR=9999
IF (lhook) CALL dr_hook("MODD_DATA_COVER_N:DATA_COVER_INIT",1,zhook_handle)
END SUBROUTINE data_cover_init


END MODULE modd_data_cover_n