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_utci.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_utci
7
!####################
8
!
9
!!**** *MODD_UTCI - declaration of surface parameters for thermal index
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 10/2013
30
!
31
!* 0. DECLARATIONS
32
! ------------
33
!
34
!
35
IMPLICIT NONE
36
!
37
!-----------------------------------------------------------------------------------------------------
38
INTEGER
,
PARAMETER
:: NUTCI_STRESS = 10
! number of stress ranges
39
!
40
REAL
,
PARAMETER
,
DIMENSION(0:NUTCI_STRESS)
:: XUTCI_STRESS_LIMITS = &
41
(/ -999., -40., -28., -12., 0., 9., 26., 32., 38., 46., 999. /)
42
CHARACTER(LEN=3)
,
PARAMETER
,
DIMENSION(NUTCI_STRESS)
:: CUTCI_STRESS_NAMES = &
43
(/
'ECS'
,
'VCS'
,
'SCS'
,
'MCS'
,
'LCS'
,
'NHS'
,
'MHS'
,
'SHS'
,
'VHS'
,
'EHS'
/)
44
!-----------------------------------------------------------------------------------------------------
45
!
46
END MODULE
modd_utci
modd_utci
Definition:
modd_utci.F90:6
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5