!-------------------------------------- LICENCE BEGIN ------------------------------------ !Environment Canada - Atmospheric Science and Technology License/Disclaimer, ! version 3; Last Modified: May 7, 2008. !This is free but copyrighted software; you can use/redistribute/modify it under the terms !of the Environment Canada - Atmospheric Science and Technology License/Disclaimer !version 3 or (at your option) any later version that should be found at: !http://collaboration.cmc.ec.gc.ca/science/rpn.comm/license.html ! !This software is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; !without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. !See the above mentioned License/Disclaimer for more details. !You should have received a copy of the License/Disclaimer along with this software; !if not, you can write to: EC-RPN COMM Group, 2121 TransCanada, suite 500, Dorval (Quebec), !CANADA, H9P 1J3; or send e-mail to service.rpn@ec.gc.ca !-------------------------------------- LICENCE END -------------------------------------- ! ######################MODULE MODD_DATA_COVER_PAR 3 ! ###################### ! !!**** *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 !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS ! ------------ ! IMPLICIT NONE ! !------------------------------------------------------------------------------ ! ! Maximum number of cover classes INTEGER, PARAMETER :: JPCOVER = 255 ! INTEGER :: NVEGTYPE ! number of vegetation types ! INTEGER :: NVT_C4 INTEGER :: NVT_TREE INTEGER :: NVT_CONI INTEGER :: NVT_EVER INTEGER :: NVT_GRAS INTEGER :: NVT_TROG INTEGER :: NVT_C3 INTEGER :: NVT_NO INTEGER :: NVT_ROCK INTEGER :: NVT_SNOW INTEGER :: NVT_IRR INTEGER :: NVT_PARK ! 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 ! INTEGER :: NBARE_SOIL ! !--------------------------------------------------------------------------------- ! ! 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 ! !--------------------------------------------------------------------------------- !* names of all ecosystems ! CHARACTER(LEN=60), DIMENSION(JPCOVER,2) :: CNAMES !--------------------------------------------------------------------------------- END MODULE MODD_DATA_COVER_PAR