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_prep_teb_greenroof.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_prep_teb_greenroof
7
! ################
8
!
9
!!**** *MODD_PREP - declaration for field interpolations
10
!!
11
!! PURPOSE
12
!! -------
13
! Declaration of surface parameters
14
!
15
!!
16
!!** IMPLICIT ARGUMENTS
17
!! ------------------
18
!! None
19
!!
20
!! REFERENCE
21
!! ---------
22
!!
23
!! AUTHOR
24
!! ------
25
!! A. Lemonsu & C. de Munck
26
!!
27
!! MODIFICATIONS
28
!! -------------
29
!! Original 07/2011
30
!
31
!* 0. DECLARATIONS
32
! ------------
33
!
34
IMPLICIT NONE
35
!
36
!--------------------------------------------------------------------------
37
!
38
CHARACTER(LEN=28)
:: CFILE_GR
! input file name
39
CHARACTER(LEN=6)
:: CTYPE
! input file type
40
CHARACTER(LEN=28)
:: CFILEPGD_GR
! input file name
41
CHARACTER(LEN=6)
:: CTYPEPGD
! input file type
42
CHARACTER(LEN=28)
:: CFILE_SNOW_GR
! input file name for Snow
43
CHARACTER(LEN=6)
:: CTYPE_SNOW
! input file type for Snow
44
CHARACTER(LEN=28)
:: CFILEPGD_SNOW_GR
! input file name for Snow
45
CHARACTER(LEN=6)
:: CTYPEPGD_SNOW
! input file type for Snow
46
CHARACTER(LEN=28)
:: CFILE_HUG_GR
! input file name for Wg, Wgi
47
CHARACTER(LEN=6)
:: CTYPE_HUG
! input file type for Wg, Wgi
48
CHARACTER(LEN=28)
:: CFILE_TG_GR
! input file name for Tg
49
CHARACTER(LEN=6)
:: CTYPE_TG
! input file type for Tg
50
CHARACTER(LEN=28)
:: CFILE_HUG_SURF_GR
! input file name for HUG_SURF
51
CHARACTER(LEN=28)
:: CFILE_HUG_ROOT_GR
! input file name for HUG_ROOT
52
CHARACTER(LEN=28)
:: CFILE_HUG_DEEP_GR
! input file name for HUG_DEEP
53
CHARACTER(LEN=28)
:: CFILE_TG_SURF_GR
! input file name for TG_SURF
54
CHARACTER(LEN=28)
:: CFILE_TG_ROOT_GR
! input file name for TG_ROOT
55
CHARACTER(LEN=28)
:: CFILE_TG_DEEP_GR
! input file name for TG_DEEP
56
!
57
REAL
:: XHUG_SURF_GR
! surface relative soil humidity
58
REAL
:: XHUG_ROOT_GR
! root layer relative soil humidity
59
REAL
:: XHUG_DEEP_GR
! deep layer relative soil humidity
60
REAL
:: XHUGI_SURF_GR
! surf layer relative ice content
61
REAL
:: XHUGI_ROOT_GR
! root layer relative ice content
62
REAL
:: XHUGI_DEEP_GR
! deep layer relative ice content
63
REAL
:: XTG_SURF_GR
! surface temperature
64
REAL
:: XTG_ROOT_GR
! root layer temperature
65
REAL
:: XTG_DEEP_GR
! deep layer temperature
66
!
67
LOGICAL
:: LSNOW_IDEAL_GR
68
!
69
REAL
,
DIMENSION(:)
,
POINTER
:: XWSNOW_GR
! Snow reservoir
70
REAL
,
DIMENSION(:)
,
POINTER
:: XRSNOW_GR
! snow density
71
REAL
,
DIMENSION(:)
,
POINTER
:: XTSNOW_GR
! snow temperature
72
REAL
,
DIMENSION(:)
,
POINTER
:: XLWCSNOW_GR
! snow liquid water conten
73
REAL
,
DIMENSION(:)
,
POINTER
:: XAGESNOW_GR
! snow age
74
REAL
:: XASNOW_GR
! snow albedo
75
!
76
REAL
:: XWR_DEF
! default for leaves interception reservoir
77
!--------------------------------------------------------------------------
78
!
79
!* normalized dimensions for interpolation grids for soil
80
!
81
INTEGER
,
PARAMETER
:: NGRID_LEVEL = 6
82
REAL
,
DIMENSION(NGRID_LEVEL)
:: XGRID_SOIL = (/ 0.004, 0.036, 0.068, 0.100, 0.125, 0.150/)
83
!--------------------------------------------------------------------------
84
!
85
END MODULE
modd_prep_teb_greenroof
86
87
modd_prep_teb_greenroof
Definition:
modd_prep_teb_greenroof.F90:6
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5