SURFEX
V8_0
Surfex V8_0 release
Main Page
Data Types List
Files
File List
File Members
All
Classes
Files
Functions
Variables
src
TOPD
modd_topodyn.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
! ##################
7
MODULE
modd_topodyn
8
! ##################
9
!
10
!!**** *MODD_TOPODYN - declaration of variables used by Topodyn
11
!!
12
!! PURPOSE
13
!! -------
14
!
15
!!
16
!!** IMPLICIT ARGUMENTS
17
!! ------------------
18
!! None
19
!!
20
!! REFERENCE
21
!! ---------
22
!!
23
!! AUTHOR
24
!! ------
25
!! F. Habets and K. Chancibault
26
!!
27
!! MODIFICATIONS
28
!! -------------
29
!! Original 29/09/03
30
!! BV: modifications 2006: division in two part (some variables are
31
! now in modd_coupling_topo_n
32
!! BV: modifications 04/2007: addition of XTOPD_STEP and NNB_TOPD_STEP
33
!
34
!* 0. DECLARATIONS
35
! ------------
36
!
37
USE
modd_topd_par
, ONLY
: jpcat
38
!
39
IMPLICIT NONE
40
!
41
!-------------------------------------------------------------------------------
42
! Variables specific to Topodyn
43
!
44
CHARACTER(LEN=15)
,
DIMENSION(JPCAT)
:: CCAT
! base name for topographic files
45
INTEGER
:: NNCAT
! catchments number
46
!
47
INTEGER
:: NNB_TOPD_STEP
! number of TOPODYN time steps
48
REAL
:: XTOPD_STEP
! TOPODYN time step
49
!
50
INTEGER
:: NMESHT
! maximal number of catchments meshes
51
52
REAL
,
ALLOCATABLE
,
DIMENSION(:,:)
:: XDMAXT
! maximal deficit on TOPODYN grid (m)
53
REAL
,
ALLOCATABLE
,
DIMENSION(:)
:: XDXT
! catchment grid mesh size (m)
54
REAL
,
ALLOCATABLE
,
DIMENSION(:)
:: XMPARA
! M parameter on TOPODYN grid (m)
55
56
INTEGER
,
ALLOCATABLE
,
DIMENSION(:)
:: NNMC
! catchments pixels number
57
REAL
,
ALLOCATABLE
,
DIMENSION(:,:,:)
:: XCONN
! pixels reference number and
58
! connections between
59
INTEGER
,
ALLOCATABLE
,
DIMENSION(:,:)
:: NLINE
! second index of the pixel in the array
60
! XCONN
61
REAL
,
ALLOCATABLE
,
DIMENSION(:,:)
:: XTANB
! pixels topographic slope (Tan(Beta))
62
REAL
,
ALLOCATABLE
,
DIMENSION(:,:)
:: XSLOP
! pixels topographic slope/length flow
63
64
!Variables à priori inutiles
65
REAL
,
ALLOCATABLE
,
DIMENSION(:,:)
:: XDAREA
! drainage area (aire drainee)
66
67
! Variables defining the catchments
68
69
INTEGER
,
ALLOCATABLE
,
DIMENSION(:)
:: NNXC
! number of topographic grid points on
70
! abscissa axis
71
INTEGER
,
ALLOCATABLE
,
DIMENSION(:)
:: NNYC
! number of topographic grid points on ordinate
72
! axis
73
INTEGER
,
ALLOCATABLE
,
DIMENSION(:)
:: NNPT
! number of pixels in the topographic
74
! domain
75
INTEGER
:: NPMAX
! maximal number of pixels in the
76
! topographic grid
77
78
REAL
,
ALLOCATABLE
,
DIMENSION(:)
:: XX0,XY0
! coordinates bottom-left pixel of each
79
! topographic domain
80
81
REAL
,
ALLOCATABLE
,
DIMENSION(:)
:: XNUL
! undefined value in topographic files
82
83
REAL
,
ALLOCATABLE
,
DIMENSION(:,:)
:: XTOPD
! topographic values in topographic files
84
REAL
,
DIMENSION(JPCAT)
:: XRTOP_D2
! depth used by topodyn for lateral transfers
85
! (expressed in ratio of isba d2)
86
!
87
! Variables used in routing module
88
INTEGER
,
ALLOCATABLE
,
DIMENSION(:)
:: NNISO
! number of time step for the isochrones
89
REAL
,
ALLOCATABLE
,
DIMENSION(:,:)
:: XCISO
! isochrones routing constants
90
91
REAL
,
DIMENSION(JPCAT)
:: XQINIT
! Initial discharge at the outlet of the catchments
92
REAL
,
ALLOCATABLE
,
DIMENSION(:,:)
:: XQTOT
! Total discharge at the outlet of the catchments
93
94
REAL
,
DIMENSION(JPCAT)
:: XSPEEDR,XSPEEDH
! River and hillslope speed
95
REAL
,
DIMENSION(JPCAT)
:: XSPEEDG
! Ground speed
96
REAL
,
ALLOCATABLE
,
DIMENSION(:,:)
:: XDRIV, XDHIL
! River and hillslope distances
97
REAL
,
ALLOCATABLE
,
DIMENSION(:,:)
:: XDGRD
! Ground distance
98
REAL
,
ALLOCATABLE
,
DIMENSION(:,:)
:: XTIME_TOPD
! Time to go to the outlet
99
! at the soil surface
100
REAL
,
ALLOCATABLE
,
DIMENSION(:,:)
:: XTIME_TOPD_DRAIN
! Time to go to the outlet in the ground
101
102
INTEGER
,
ALLOCATABLE
,
DIMENSION(:)
:: NX_STEP_ROUT
! number of maximal time step to join the outlet of
103
! any catchment
104
105
! Variables used in exfiltration module
106
REAL
,
ALLOCATABLE
,
DIMENSION(:,:)
:: XLAMBDA
! pure topographic index
107
REAL
,
ALLOCATABLE
,
DIMENSION(:,:)
:: XCSTOPT
! hydraulic conductivity at saturation on
108
! TOP-LAT grid
109
!ludo
110
REAL
,
ALLOCATABLE
,
DIMENSION(:,:)
:: XQB_DR
111
REAL
,
ALLOCATABLE
,
DIMENSION(:,:)
:: XQB_RUN
112
! for topodyn alone
113
REAL
,
ALLOCATABLE
,
DIMENSION(:)
:: XRI,XRI_PREV
! recharge on ISBA grid
114
REAL
,
ALLOCATABLE
,
DIMENSION(:)
:: XSRFULL
! reservoir of interception for
115
!TOPODYN only
116
REAL
,
ALLOCATABLE
,
DIMENSION(:,:)
:: XDEFT
! pixel deficit
117
!
118
!-------------------------------------------------------------------------------------
119
!
120
END MODULE
modd_topodyn
121
modd_topd_par
Definition:
modd_topd_par.F90:7
modd_topodyn
Definition:
modd_topodyn.F90:7
Generated on Fri May 13 2016 09:31:06 for SURFEX by
1.8.5