modd_data_cover_par.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_par
!     ######################
!
!!****  *MODD_DATA_COVER_PAR* - declaration of prognostic variables related
!!                          to the ground parameterization
!!
!!    PURPOSE
!!    -------
!       The purpose of this declarative module is to specify  the 
!     parameters related to the surface parameterization interface.
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!      
!!
!!    AUTHOR
!!    ------
!!      S. Belair   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       29/04/95                      
!!      (V.Masson)     05/10/98+ add XCDZ0EFF, XRHOSMIN, XRHOSMAX
!!      (V.Masson)     15/03/99 add number of layers
!!      (A.Boone)      02/05/02 add ISBA-ES parameters
!!      (R.Alkama)     05/2012  add 7 new vegtypes (19 rather than 12)
!-------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!
IMPLICIT NONE
!
!------------------------------------------------------------------------------
!
! Maximum number of cover classes
INTEGER, PARAMETER    :: JPCOVER  = 573
!last class number of EUROPE
INTEGER, PARAMETER    :: NCOVER_ECO1_END    = 255
!firt class number of EUROPE
INTEGER, PARAMETER    :: NCOVER_ECO2_START  = 301
!
INTEGER                                :: NVEGTYPE
! number of vegetation types
!
INTEGER  :: NVT_C4    ! C4 cultures types
INTEGER  :: NVT_TRBE  ! tropical broadleaf evergreen   EVER
INTEGER  :: NVT_TRBD  ! tropical broadleaf deciduous   TREE
INTEGER  :: NVT_TEBE  ! temperate broadleaf evergreen  TREE 
INTEGER  :: NVT_TEBD  ! temperate broadleaf cold-deciduous (summergreen)  TREE   
INTEGER  :: NVT_TENE  ! temperate needleleaf evergreen CONI
INTEGER  :: NVT_BOBD  ! boreal broadleaf cold-deciduous (summergreen) TREE  
INTEGER  :: NVT_BONE  ! boreal needleleaf evergreen    CONI
INTEGER  :: NVT_BOND  ! boreal needleleaf cold-deciduous (summergreen) CONI
INTEGER  :: NVT_BOGR  ! Arctic Grass  C3               GRAS
INTEGER  :: NVT_SHRB  ! Shrub        (TREE <= 2 m)
INTEGER  :: NVT_GRAS  ! GRASsland      C3
INTEGER  :: NVT_TROG  ! TROpical Grass C4
INTEGER  :: NVT_C3    ! C3 CULTures types
INTEGER  :: NVT_NO    ! NO vegetation
INTEGER  :: NVT_ROCK  ! ROCKs
INTEGER  :: NVT_SNOW  ! Ice-cap ice-sheet
INTEGER  :: NVT_IRR   ! IRRigated crops
INTEGER  :: NVT_PARK  ! irrigated PARKs gardens or peat bogs
! indexes of these types (C4 cultures types, Broadleaf TREEs, CONIferous trees,
!                         EVERgreen broadleaf trees, GRASsland, TROpical Grass,
!                         C3 CULTures types, NO vegetation, ROCKs,
!                         IRRigated crops, irrigated PARKs gardens or peat bogs)
!
!---------------------------------------------------------------------------------
!
! Ecosystem corresponding to bare soil or permanent snow
!
INTEGER                                :: NBARE_SOIL
INTEGER                                :: NROCK
INTEGER                                :: NPERMSNOW
!--------------------------------------------------------------------------------- 
!
! Free water bodies
!
INTEGER, DIMENSION(3)                  :: NSEA
INTEGER, DIMENSION(2)                  :: NWATER
!
!---------------------------------------------------------------------------------
!
! maximum number of tiles used at any grid point
!
INTEGER                                :: NTILESFC = 4
!
!---------------------------------------------------------------------------------
!
!* building layers in the ecoclimap data
!
INTEGER                                :: NDATA_ROOF_LAYER
INTEGER                                :: NDATA_ROAD_LAYER
INTEGER                                :: NDATA_WALL_LAYER
INTEGER                                :: NDATA_FLOOR_LAYER
!
!---------------------------------------------------------------------------------
!* names of all ecosystems
!
 CHARACTER(LEN=60), DIMENSION(JPCOVER,2) :: CNAMES
!---------------------------------------------------------------------------------
!
! reference height for CDN averaging
!
REAL                                :: XCDREF = 20.
!
!---------------------------------------------------------------------------------
END MODULE modd_data_cover_par