SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
SURFEX
modd_meb_par.F90
Go to the documentation of this file.
1
!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
2
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
3
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
4
!SFX_LIC for details. version 1.
5
! ######################
6
MODULE
modd_meb_par
7
! ######################
8
!
9
!!**** *MODD_MEB_PAR* - declaration of parameters related
10
!! to the MEB parameterizations
11
!!
12
!! PURPOSE
13
!! -------
14
! The purpose of this declarative module is to specify the
15
! parameters related to the surface parameterizations of MEB.
16
!
17
!!
18
!!
19
!!
20
!! AUTHOR
21
!! ------
22
!! P. Samuelsson
23
!!
24
!! MODIFICATIONS
25
!! -------------
26
!! Original 09/2013
27
!-------------------------------------------------------------------------------
28
!
29
!* 0. DECLARATIONS
30
! ------------
31
!
32
IMPLICIT NONE
33
!
34
! Extinction coefficient for view factor for long-wave radiation
35
!
36
REAL
,
SAVE
:: XTAU_LW
37
!
38
! MEB resistance increase factor for canopy air sapce
39
!
40
REAL
,
SAVE
:: XRAGNC_FACTOR
41
!
42
! MEB maximum vegetation-intercepted water fraction
43
!
44
REAL
,
SAVE
:: XKDELTA_WR
45
!
46
! Constants
47
! ---------
48
!
49
! Cuurently MEB considers 2 spectral bands, with weights below.
50
! As more bands are eventually added, one must adjust these weights
51
! and add more so that the total = NSPB_MEB
52
!
53
INTEGER
,
PARAMETER
:: NSPB_MEB = 2
! number of bands (below)
54
!
55
REAL
,
PARAMETER
:: XSW_WGHT_VIS = 0.48
56
!
57
REAL
,
PARAMETER
:: XSW_WGHT_NIR = 0.52
58
!
59
!-------------------------------------------------------------------------------
60
!
61
END MODULE
modd_meb_par
62
63
64
65
66
67
68
69
70
71
72
73
modd_meb_par
Definition:
modd_meb_par.F90:6
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5