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  :: jpcover
!last class number of EUROPE
INTEGER, PARAMETER    :: ncover_eco1_end    = 255
!firt class number of EUROPE
INTEGER, PARAMETER    :: ncover_eco2_start  = 301
!
INTEGER, PARAMETER :: nvegtype_old = 19
INTEGER, PARAMETER :: nvegtype_ecosg = 20
!
INTEGER, PARAMETER :: nwattype = 2
INTEGER, PARAMETER :: nseatype = 1
INTEGER, PARAMETER :: ntwntype = 10
INTEGER, DIMENSION(4) :: ntype = (/nseatype,nwattype,nvegtype_ecosg,ntwntype/)
!
LOGICAL, DIMENSION(NVEGTYPE_ECOSG) :: lveg_pres
!
INTEGER, PARAMETER :: ncover = 573
!
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
!
INTEGER :: nvt_c3w    ! winter C3 crops
INTEGER :: nvt_c3s    ! summer C3 crops
INTEGER :: nvt_fltr   ! flooded trees
INTEGER :: nvt_flgr   ! flooded grassland
!
! 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)
!
INTEGER :: nut_cphr
INTEGER :: nut_cpmr
INTEGER :: nut_cplr
INTEGER :: nut_ophr
INTEGER :: nut_opmr
INTEGER :: nut_oplr
INTEGER :: nut_lwlr
INTEGER :: nut_lalr
INTEGER :: nut_spar
INTEGER :: nut_indu
!
!---------------------------------------------------------------------------------
!
! Ecosystem corresponding to bare soil or permanent snow
!
INTEGER                                :: nbare_soil
INTEGER                                :: nrock
INTEGER                                :: npermsnow
!--------------------------------------------------------------------------------- 
!
! Free water bodies
!
INTEGER, DIMENSION(:), ALLOCATABLE     :: nsea
INTEGER, DIMENSION(:), ALLOCATABLE     :: 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(:,:), ALLOCATABLE :: cnames
!---------------------------------------------------------------------------------
!
! reference height for CDN averaging
!
REAL                                :: xcdref = 20.
!
!---------------------------------------------------------------------------------
END MODULE modd_data_cover_par