!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 version 2.1 !SFX_LIC version 1. See LICENSE, Licence_CeCILL_V2.1-en.txt and Licence_CeCILL_V2.1-fr.txt !SFX_LIC for details. version 1. ! ###################### MODULE MODD_MEB_PAR ! ###################### ! !!**** *MODD_MEB_PAR* - declaration of parameters related !! to the MEB parameterizations !! !! PURPOSE !! ------- ! The purpose of this declarative module is to specify the ! parameters related to the surface parameterizations of MEB. ! !! !! !! !! AUTHOR !! ------ !! P. Samuelsson !! !! MODIFICATIONS !! ------------- !! Original 09/2013 !! 13/09/18 (A. Boone) Added Litter thermal and hydrological parameters !! herein !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS ! ------------ ! IMPLICIT NONE ! ! Extinction coefficient for view factor for long-wave radiation ! REAL, SAVE :: XTAU_LW ! ! MEB resistance increase factor for canopy air sapce ! REAL, SAVE :: XRAGNC_FACTOR ! ! MEB maximum vegetation-intercepted water fraction ! REAL, SAVE :: XKDELTA_WR ! ! Constants ! --------- ! ! Cuurently MEB considers 2 spectral bands, with weights below. ! As more bands are eventually added, one must adjust these weights ! and add more so that the total = NSPB_MEB ! INTEGER, PARAMETER :: NSPB_MEB = 2 ! number of bands (below) ! REAL, PARAMETER :: XSW_WGHT_VIS = 0.48 ! REAL, PARAMETER :: XSW_WGHT_NIR = 0.52 ! ! Litter thermal (THRM) and hydrological (HYD) properties ! ------------------------------------------------------- ! REAL, PARAMETER :: XLITTER_THRM_Z1 = 45.00 !litter bulk density (kg/m3) REAL, PARAMETER :: XLITTER_THRM_Z2 = 0.10 !coeff for litter conductivity (W/(mK)) REAL, PARAMETER :: XLITTER_THRM_Z3 = 0.03 !coeff for litter conductivity REAL, PARAMETER :: XLITTER_HYD_Z4 = 0.95 !litter porosity (m3/m3) REAL, PARAMETER :: XLITTER_HYD_Z5 = 0.12 !litter field capacity (m3/m3) ! !------------------------------------------------------------------------------- ! END MODULE MODD_MEB_PAR