modd_coupling_topd.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_coupling_topd
!     ###########################
!
!!****  *MODD_COUPLING_TOPD - declaration of exchanged variables from Topodyn to ISBA
!!
!!    PURPOSE
!!    -------
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!     F. Habets and K. Chancibault
!!
!!    MODIFICATIONS
!!    -------------
!!     Original 29/09/03
!!              03/2014 (B. Vincendon) new variable to create a mask for N patches
!
!*       0.   DECLARATIONS
!             ------------
!
IMPLICIT NONE
!
!-------------------------------------------------------------------------------
!
LOGICAL                           :: lcoupl_topd      !if T, performs coupling with Topmodel
LOGICAL                           :: lbudget_topd     !if T, computes budget
LOGICAL                           :: ltopd_step
!
INTEGER                             :: ntopd_step
INTEGER                             :: nfreq_maps_wg       !frequency of output WG maps
INTEGER                             :: nfreq_maps_asat     !frequency of output ASAT maps
INTEGER                             :: nfreq_maps_runoff   !frequency of output RUNOFF maps
!
INTEGER                             :: nnb_topd   ! Ratio between Time steps of Topmodel and ISBA
!
INTEGER                             :: nimax     ! number of ISBA grid points on 
                                                 ! abscissa axis
INTEGER                             :: njmax     ! number of ISBA grid points on ordinate 
                                                 ! axis
REAL, ALLOCATABLE, DIMENSION(:)     :: xxi ! Extended Lambert II coordinates of Isba 
REAL, ALLOCATABLE, DIMENSION(:)     :: xyi ! nodes 
!
INTEGER, ALLOCATABLE, DIMENSION(:)     :: nnpix     ! Number of Topmodel pixels in an ISBA mesh
INTEGER, ALLOCATABLE, DIMENSION(:,:,:) :: nmaski ! pixel number of each catchment in each isba mesh
INTEGER, ALLOCATABLE, DIMENSION(:,:)   :: nmaskt    ! mask
INTEGER, ALLOCATABLE, DIMENSION(:)     :: nmaskt_patch    ! mask
!
REAL, ALLOCATABLE, DIMENSION(:)     :: xas_nature ! Packed contributive area fraction on Nature grid
REAL, ALLOCATABLE, DIMENSION(:)     :: xatop      ! Packed area fraction WITH TOPMODEL on Nature grid
!
INTEGER, ALLOCATABLE, DIMENSION(:,:)  :: nnbv_in_mesh   ! Number of pixel of a partical cathment in an ISBA mesh
REAL, ALLOCATABLE, DIMENSION(:,:)     :: xbv_in_mesh    ! Area of the ISBA meshes covered by a partical cathment
REAL, ALLOCATABLE, DIMENSION(:)       :: xtotbv_in_mesh ! Area of the ISBA meshes covered by all cathments
!
REAL, ALLOCATABLE, DIMENSION(:)     :: xdtopi   ! depth of the soil for lateral 
                                                ! distribution on ISBA grid (m)
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xdtopt   ! depth of the Isba soil on TOP-LAT 
                                                ! grid (m)
!
REAL, ALLOCATABLE, DIMENSION(:)     :: xwg_full   ! Water content from Isba on the full domain
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xwgt     ! ISBA water content 
!
REAL, ALLOCATABLE, DIMENSION(:)     :: xwstopi  ! total water content at saturation (m3/m3)
                                                ! on XDTOPI on ISBA grid
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xwstopt  ! total water content at saturation (m3/m3)
                                                ! on XDTOPT on TOP-LAT grid
REAL, ALLOCATABLE, DIMENSION(:)     :: xwfctopi ! total field capacity on XDTOPI (m3/m3)
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xwfctopt ! total field capacity on XDTOPT (m3/m3)
REAL, ALLOCATABLE, DIMENSION(:)     :: xcstopi  ! hydraulic conductivity at saturation on 
                                                ! Isba grid, on XDTOPI
REAL, ALLOCATABLE, DIMENSION(:,:)   :: xwtopt   ! water storage on TOP-LAT grid, after
                                                ! lateral distribution
!
! * pour bilans
REAL, ALLOCATABLE, DIMENSION(:)       :: xavg_runoffcm !cumulated runoff  (kg/m2) at t-dt
REAL, ALLOCATABLE, DIMENSION(:)       :: xavg_draincm ! cumulated drainage calculated from Isba (kg/m2) at t-dt
!
REAL, ALLOCATABLE, DIMENSION(:,:)     :: xka_pre   ! Hydrological indexes at the previous time step
REAL, ALLOCATABLE, DIMENSION(:)       :: xkac_pre  ! Hydrological index at saturation at the previous time step
!
REAL, ALLOCATABLE, DIMENSION(:,:)     :: xdmaxfc   ! Deficit at the field capacity level
REAL, ALLOCATABLE, DIMENSION(:)       :: xwsupsat  ! pour calculer le volume d'eau perdu au-dessus de la saturation
!
REAL, ALLOCATABLE, DIMENSION(:)      ::  xdrain_top ! Value of drainage on TOPMODEL grid
REAL, ALLOCATABLE, DIMENSION(:)      ::  xrunoff_top! Value of runoff on TOPMODEL grid
!
REAL, ALLOCATABLE, DIMENSION(:)      ::  xfrac_d2 ! fraction of the second layer concerned with lateral transferts
REAL, ALLOCATABLE, DIMENSION(:)      ::  xfrac_d3 ! fraction of the third layer concerned with lateral transferts
!
REAL, ALLOCATABLE, DIMENSION(:)      ::  xwgi_full ! soil ice content
!
REAL, ALLOCATABLE, DIMENSION(:,:)    :: xrun_torout,xdr_torout
!
LOGICAL                              :: lstock_topd ! true to stock runoff and drainage values (for another simulation)
!
INTEGER                              :: nnb_stp_restart ! number of time step to restart from a previous simulation
INTEGER                              :: nnb_stp_stock   ! number of time step to write for the next simulation
!
INTEGER, DIMENSION(:), ALLOCATABLE :: nyear      ! Year of the beginning of the simulation.
INTEGER, DIMENSION(:), ALLOCATABLE :: nmonth     ! Month of the beginning of the simulation.
INTEGER, DIMENSION(:), ALLOCATABLE :: nday      ! Date of the beginning of the simulation.
INTEGER, DIMENSION(:), ALLOCATABLE :: nh      ! Hour of the beginning of the simulation.
INTEGER, DIMENSION(:), ALLOCATABLE :: nm      ! Minutes of the beginning of the simulation.
!
! **** For special f, dc exponential profile
REAL, DIMENSION(:), ALLOCATABLE :: xf_param
REAL, DIMENSION(:), ALLOCATABLE :: xc_depth_ratio
!
END MODULE modd_coupling_topd