modd_topodyn.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!-------------------------------------------------------------------------------
!     ##################
      MODULE modd_topodyn
!     ##################
!
!!****  *MODD_TOPODYN - declaration of variables used by Topodyn
!!
!!    PURPOSE
!!    -------
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!     F. Habets and K. Chancibault
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       29/09/03
!!      BV: modifications  2006: division in two part (some variables are
!                            now in modd_coupling_topo_n    
!!      BV: modifications  04/2007: addition of XTOPD_STEP and NNB_TOPD_STEP
!
!*       0.   DECLARATIONS
!             ------------
!
USE modd_topd_par, ONLY : jpcat
!
IMPLICIT NONE
!
!-------------------------------------------------------------------------------
! Variables specific to Topodyn
!
 CHARACTER(LEN=15), DIMENSION(JPCAT) :: ccat     ! base name for topographic files
INTEGER                             :: nncat    ! catchments number
!
INTEGER                             :: nnb_topd_step   ! number of TOPODYN time steps
REAL                                :: xtopd_step      ! TOPODYN time step
!
INTEGER                             :: nmesht   ! maximal number of catchments meshes

REAL, ALLOCATABLE, DIMENSION(:,:)   :: xdmaxt   ! maximal deficit on TOPODYN grid (m)
REAL, ALLOCATABLE, DIMENSION(:)     :: xdxt     ! catchment grid mesh size (m)
REAL, ALLOCATABLE, DIMENSION(:)     :: xmpara   ! M parameter on TOPODYN grid (m)

INTEGER, ALLOCATABLE, DIMENSION(:)  :: nnmc     ! catchments pixels number
REAL, ALLOCATABLE, DIMENSION(:,:,:) :: xconn    ! pixels reference number and 
                                                ! connections between
INTEGER, ALLOCATABLE, DIMENSION(:,:):: nline    ! second index of the pixel in the array 
                                                ! XCONN
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xtanb    ! pixels topographic slope (Tan(Beta))
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xslop    ! pixels topographic slope/length flow

!Variables à priori inutiles
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xdarea   ! drainage area (aire drainee)

! Variables defining the catchments

INTEGER, ALLOCATABLE, DIMENSION(:)  :: nnxc     ! number of topographic grid points on 
                                                ! abscissa axis
INTEGER, ALLOCATABLE, DIMENSION(:)  :: nnyc     ! number of topographic grid points on ordinate 
                                                ! axis
INTEGER, ALLOCATABLE, DIMENSION(:)  :: nnpt     ! number of pixels in the topographic 
                                                ! domain
INTEGER                             :: npmax    ! maximal number of pixels in the 
                                                ! topographic grid

REAL, ALLOCATABLE, DIMENSION(:)     :: xx0,xy0  ! coordinates bottom-left pixel of each 
                                                ! topographic domain

REAL, ALLOCATABLE, DIMENSION(:)     :: xnul     ! undefined value in topographic files

REAL, ALLOCATABLE, DIMENSION(:,:)   :: xtopd    ! topographic values in topographic files
REAL, DIMENSION(JPCAT)              :: xrtop_d2 ! depth used by topodyn for lateral transfers
                                                ! (expressed in ratio of isba d2)
                                                !
! Variables used in routing module 
INTEGER, ALLOCATABLE, DIMENSION(:)  :: nniso    ! number of time step for the isochrones
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xciso    ! isochrones routing constants 

REAL, DIMENSION(JPCAT)              :: xqinit   ! Initial discharge at the outlet of the catchments
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xqtot    ! Total discharge at the outlet of the catchments

REAL, DIMENSION(JPCAT)              :: xspeedr,xspeedh ! River and hillslope speed
REAL, DIMENSION(JPCAT)              :: xspeedg         ! Ground speed
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xdriv, xdhil    ! River and hillslope distances
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xdgrd           ! Ground distance
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xtime_topd      ! Time to go to the outlet
                                                       ! at the soil surface
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xtime_topd_drain! Time to go to the outlet in the ground

INTEGER, ALLOCATABLE, DIMENSION(:)  :: nx_step_rout   ! number of maximal time step to join the outlet of 
                                                ! any catchment

! Variables used in exfiltration module 
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xlambda  ! pure topographic index
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xcstopt  ! hydraulic conductivity at saturation on 
                                                ! TOP-LAT grid
                                                !ludo
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xqb_dr
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xqb_run
! for topodyn alone
REAL, ALLOCATABLE, DIMENSION(:)   :: xri,xri_prev! recharge on ISBA grid
REAL, ALLOCATABLE, DIMENSION(:)   :: xsrfull! reservoir of interception for
!TOPODYN only
REAL, ALLOCATABLE, DIMENSION(:,:) :: xdeft! pixel deficit
!
!-------------------------------------------------------------------------------------
!
END MODULE modd_topodyn