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_type_efutil.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_type_efutil
7
! #######################
8
!
9
!!**** *MODD_TYPE_EFUTIL* - declaration of chemistry emissions types
10
!!
11
!! PURPOSE
12
!! -------
13
! The purpose of this declarative module is to define
14
! the types of variables necessary for chemistry emissions.
15
!
16
!!
17
!!** IMPLICIT ARGUMENTS
18
!! ------------------
19
!! NONE
20
!!
21
!! REFERENCE
22
!! ---------
23
!!
24
!!
25
!! AUTHOR
26
!! ------
27
!! D. Gazen & C. Mari *LA*
28
!!
29
!! MODIFICATIONS
30
!! -------------
31
!! Original 31/10/00
32
!-------------------------------------------------------------------------------
33
!
34
!* 0. DECLARATIONS
35
! ------------
36
!
37
!
38
IMPLICIT NONE
39
!
40
!
41
INTEGER
,
PARAMETER
:: JPNBCOEFFMAX=50
42
!
43
TYPE
emissvar_t
44
CHARACTER(len=32)
:: CNAME
! Name of the EMISSION
45
!
46
INTEGER
:: NTX
! Current index on array
47
! NETIMES (needed in interpolation)
48
!
49
INTEGER
:: NPX
! Index to use when t > tmax (periodic)
50
!
51
INTEGER
,
DIMENSION(:)
,
POINTER
:: NETIMES
! Emission times (ordered)
52
!
53
INTEGER
:: NDX
! Current index on array XEMISDATA
54
!
55
REAL
,
DIMENSION(:,:)
,
POINTER
:: XEMISDATA
! Emission data array
56
! with size (X*Y,NWS)
57
!
58
LOGICAL
:: LREAD
! TRUE if emission data reading is needed
59
!
60
INTEGER
:: NWS
! Read window size for I/O
61
!
62
REAL
,
DIMENSION(:)
,
POINTER
:: XFWORK
! Time interpolated emission data
63
! with size (X)
64
END TYPE
emissvar_t
65
!
66
TYPE
pronosvar_t
67
INTEGER
:: NAMINDEX
! pronostic name is CNAMES(NAMINDEX)
68
!
69
INTEGER
:: NBCOEFF
! number of coeff in agreg. equation
70
!
71
REAL
,
DIMENSION(JPNBCOEFFMAX)
:: XCOEFF
! agregation coeff array
72
!
73
INTEGER
,
DIMENSION(JPNBCOEFFMAX)
:: NEFINDEX
! array of index on the EMISSVAR_T array
74
!
75
TYPE(
pronosvar_t
)
,
POINTER
:: NEXT
! To build a PRONOSVAR_T link list
76
END TYPE
pronosvar_t
77
!
78
END MODULE
modd_type_efutil
79
!
modd_type_efutil::pronosvar_t
Definition:
modd_type_efutil.F90:66
modd_type_efutil
Definition:
modd_type_efutil.F90:6
modd_type_efutil::emissvar_t
Definition:
modd_type_efutil.F90:43
Generated on Fri May 13 2016 09:31:04 for SURFEX by
1.8.5