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_isba.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_isba
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
!! P Samuelsson 02/2012 MEB
31
!
32
!* 0. DECLARATIONS
33
! ------------
34
!
35
IMPLICIT NONE
36
!
37
SAVE
38
!--------------------------------------------------------------------------
39
!
40
CHARACTER(LEN=28)
:: CFILE_ISBA
! input file name
41
CHARACTER(LEN=6)
:: CTYPE
! input file type
42
CHARACTER(LEN=28)
:: CFILEPGD_ISBA
! input file name
43
CHARACTER(LEN=6)
:: CTYPEPGD
! input file type
44
CHARACTER(LEN=28)
:: CFILE_SNOW
! input file name for Snow
45
CHARACTER(LEN=6)
:: CTYPE_SNOW
! input file type for Snow
46
CHARACTER(LEN=28)
:: CFILEPGD_SNOW
! input file name for Snow
47
CHARACTER(LEN=6)
:: CTYPEPGD_SNOW
! input file type for Snow
48
CHARACTER(LEN=28)
:: CFILE_HUG
! input file name for Wg, Wgi
49
CHARACTER(LEN=6)
:: CTYPE_HUG
! input file type for Wg, Wgi
50
CHARACTER(LEN=28)
:: CFILE_TG
! input file name for Tg
51
CHARACTER(LEN=6)
:: CTYPE_TG
! input file type for Tg
52
CHARACTER(LEN=28)
:: CFILE_HUG_SURF
! input file name for HUG_SURF
53
CHARACTER(LEN=28)
:: CFILE_HUG_ROOT
! input file name for HUG_ROOT
54
CHARACTER(LEN=28)
:: CFILE_HUG_DEEP
! input file name for HUG_DEEP
55
CHARACTER(LEN=28)
:: CFILE_TG_SURF
! input file name for TG_SURF
56
CHARACTER(LEN=28)
:: CFILE_TG_ROOT
! input file name for TG_ROOT
57
CHARACTER(LEN=28)
:: CFILE_TG_DEEP
! input file name for TG_DEEP
58
!
59
REAL
:: XHUG_SURF
! surface relative soil humidity
60
REAL
:: XHUG_ROOT
! root layer relative soil humidity
61
REAL
:: XHUG_DEEP
! deep layer relative soil humidity
62
REAL
:: XHUGI_SURF
! surf layer relative ice content
63
REAL
:: XHUGI_ROOT
! root layer relative ice content
64
REAL
:: XHUGI_DEEP
! deep layer relative ice content
65
REAL
:: XTG_SURF
! surface temperature
66
REAL
:: XTG_ROOT
! root layer temperature
67
REAL
:: XTG_DEEP
! deep layer temperature
68
!
69
REAL
:: XWR_DEF
! default for leaves interception reservoir
70
REAL
:: XWRV_DEF
! default for canopy vegetation leaves interception reservoir
71
REAL
:: XWRVN_DEF
! default for canopy vegetation leaves snow interception reservoir
72
REAL
:: XQC_DEF
! default for canopy air specific humidity
73
!--------------------------------------------------------------------------
74
!
75
!* dimensions for interpolation grids for soil
76
!
77
INTEGER
,
PARAMETER
:: NGRID_LEVEL = 22
78
REAL
,
DIMENSION(NGRID_LEVEL)
:: XGRID_SOIL = &
79
(/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./)
80
!
81
!--------------------------------------------------------------------------
82
!
83
! Parameter for snow field uniform initialization
84
!
85
LOGICAL
:: LSNOW_IDEAL
86
!
87
REAL
,
DIMENSION(:)
,
POINTER
:: XWSNOW
! Snow reservoir
88
REAL
,
DIMENSION(:)
,
POINTER
:: XRSNOW
! snow density
89
REAL
,
DIMENSION(:)
,
POINTER
:: XTSNOW
! snow temperature
90
REAL
,
DIMENSION(:)
,
POINTER
:: XLWCSNOW
! snow liquid water content
91
REAL
,
DIMENSION(:)
,
POINTER
:: XSG1SNOW
92
REAL
,
DIMENSION(:)
,
POINTER
:: XSG2SNOW
93
REAL
,
DIMENSION(:)
,
POINTER
:: XHISTSNOW
94
REAL
,
DIMENSION(:)
,
POINTER
:: XAGESNOW
95
REAL
:: XASNOW
! snow albedo
96
!
97
!--------------------------------------------------------------------------
98
!
99
LOGICAL
:: LEXTRAP_TG
! extrapolate TG points where LSM < 0.5 (buffer only)
100
LOGICAL
:: LEXTRAP_WG
! extrapolate WG points where LSM < 0.5 (buffer only)
101
LOGICAL
:: LEXTRAP_WGI
! extrapolate WGI points where LSM < 0.5 (buffer only)
102
LOGICAL
:: LEXTRAP_SN
! extrapolate SNOW (SWE/depth) points where LSM < 0.5 (buffer only)
103
104
END MODULE
modd_prep_isba
105
106
modd_prep_isba
Definition:
modd_prep_isba.F90:6
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5