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_garden.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_garden
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
!! V. Masson *Meteo France*
26
!!
27
!! MODIFICATIONS
28
!! -------------
29
!! Original 01/2004
30
!
31
!* 0. DECLARATIONS
32
! ------------
33
!
34
IMPLICIT NONE
35
!
36
SAVE
37
!--------------------------------------------------------------------------
38
!
39
CHARACTER(LEN=28)
:: CFILE_GD
! input file name
40
CHARACTER(LEN=6)
:: CTYPE
! input file type
41
CHARACTER(LEN=28)
:: CFILEPGD_GD
! input file name
42
CHARACTER(LEN=6)
:: CTYPEPGD
! input file type
43
CHARACTER(LEN=28)
:: CFILE_SNOW_GD
! input file name for Snow
44
CHARACTER(LEN=6)
:: CTYPE_SNOW
! input file type for Snow
45
CHARACTER(LEN=28)
:: CFILEPGD_SNOW_GD
! input file name for Snow
46
CHARACTER(LEN=6)
:: CTYPEPGD_SNOW
! input file type for Snow
47
CHARACTER(LEN=28)
:: CFILE_HUG_GD
! input file name for Wg, Wgi
48
CHARACTER(LEN=6)
:: CTYPE_HUG
! input file type for Wg, Wgi
49
CHARACTER(LEN=28)
:: CFILE_TG_GD
! input file name for Tg
50
CHARACTER(LEN=6)
:: CTYPE_TG
! input file type for Tg
51
CHARACTER(LEN=28)
:: CFILE_HUG_SURF_GD
! input file name for HUG_SURF
52
CHARACTER(LEN=28)
:: CFILE_HUG_ROOT_GD
! input file name for HUG_ROOT
53
CHARACTER(LEN=28)
:: CFILE_HUG_DEEP_GD
! input file name for HUG_DEEP
54
CHARACTER(LEN=28)
:: CFILE_TG_SURF_GD
! input file name for TG_SURF
55
CHARACTER(LEN=28)
:: CFILE_TG_ROOT_GD
! input file name for TG_ROOT
56
CHARACTER(LEN=28)
:: CFILE_TG_DEEP_GD
! input file name for TG_DEEP
57
!
58
REAL
:: XHUG_SURF_GD
! surface relative soil humidity
59
REAL
:: XHUG_ROOT_GD
! root layer relative soil humidity
60
REAL
:: XHUG_DEEP_GD
! deep layer relative soil humidity
61
REAL
:: XHUGI_SURF_GD
! surf layer relative ice content
62
REAL
:: XHUGI_ROOT_GD
! root layer relative ice content
63
REAL
:: XHUGI_DEEP_GD
! deep layer relative ice content
64
REAL
:: XTG_SURF_GD
! surface temperature
65
REAL
:: XTG_ROOT_GD
! root layer temperature
66
REAL
:: XTG_DEEP_GD
! deep layer temperature
67
!
68
LOGICAL
:: LSNOW_IDEAL_GD
69
!
70
REAL
,
DIMENSION(:)
,
POINTER
:: XWSNOW_GD
! Snow reservoir
71
REAL
,
DIMENSION(:)
,
POINTER
:: XRSNOW_GD
! snow density
72
REAL
,
DIMENSION(:)
,
POINTER
:: XTSNOW_GD
! snow temperature
73
REAL
,
DIMENSION(:)
,
POINTER
:: XAGESNOW_GD
! snow age
74
REAL
,
DIMENSION(:)
,
POINTER
:: XLWCSNOW_GD
! snow liquid water content
75
REAL
:: XASNOW_GD
! snow albedo
76
!
77
REAL
:: XWR_DEF
! default for leaves interception reservoir
78
!--------------------------------------------------------------------------
79
!
80
!* dimensions for interpolation grids for soil
81
INTEGER
,
PARAMETER
:: NGRID_LEVEL = 22
82
REAL
,
DIMENSION(NGRID_LEVEL)
:: XGRID_SOIL = &
83
(/0.01,0.04,0.10,0.20,0.40,0.60,0.80,1.0,1.25,1.5,1.75,2.0,2.5,3.0,4.0,5.0,8.00,12.0,17.,23.,30.,100./)
84
!
85
!--------------------------------------------------------------------------
86
!
87
END MODULE
modd_prep_teb_garden
88
89
modd_prep_teb_garden
Definition:
modd_prep_teb_garden.F90:6
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5