modd_budget_coupl_rout.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.
!     ######spl
      MODULE modd_budget_coupl_rout
!     ######################
!
!!****  *MODD_BUDGET_COUPL_ROUT* - declaration of variables
!                                  useful for budget computations when
!                                  coupling with TOPMODEL
!!
!!    PURPOSE
!!    -------
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!                
!!    AUTHOR
!!    ------
!!      B. Vincendon *Meteo France*
!!
!!    MODIFICATIONS
!!      Original   11/2006
!!                 03/2014 (B. Vincendon) add horton runoff variable
!-------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!
IMPLICIT NONE
!
! Water entering the system
REAL,ALLOCATABLE,DIMENSION(:) :: xb_rain, xb_snow ! Rain and Snow
! Water going out of the system
REAL,ALLOCATABLE,DIMENSION(:) :: xb_wr ! Interception
REAL,ALLOCATABLE,DIMENSION(:) :: xb_evap! Evaporation
REAL,ALLOCATABLE,DIMENSION(:) :: xb_runoff_topd,xb_runoff_isba !Runoff
REAL,ALLOCATABLE,DIMENSION(:) :: xb_horton !Horton Runoff
REAL,ALLOCATABLE,DIMENSION(:) :: xb_drain !Drainage
! Water in the ground
REAL,ALLOCATABLE,DIMENSION(:) :: xb_wg2, xb_wg3, xb_wgtot !liquid
REAL,ALLOCATABLE,DIMENSION(:) :: xb_wgi2, xb_wgi3, xb_wgitot !solid
!REAL,ALLOCATABLE,DIMENSION(:) :: XB_DWR_TOT,XB_DWI_TOT, XB_DW_TOT
REAL,ALLOCATABLE,DIMENSION(:) :: xb_swe1, xb_swe2, xb_swe3, xb_swetot ! snow melt
!REAL,ALLOCATABLE,DIMENSION(:) :: XB_RUN2,XB_RUN3!bv pour verif
!
! Values at the previous time step
REAL,ALLOCATABLE,DIMENSION(:) :: xb_wrm
REAL,ALLOCATABLE,DIMENSION(:) :: xb_evapm
REAL,ALLOCATABLE,DIMENSION(:) :: xb_runoff_topdm,xb_runoff_isbam 
REAL,ALLOCATABLE,DIMENSION(:) :: xb_hortonm
REAL,ALLOCATABLE,DIMENSION(:) :: xb_drainm
REAL,ALLOCATABLE,DIMENSION(:) :: xb_wg2m, xb_wg3m, xb_wgtotm
REAL,ALLOCATABLE,DIMENSION(:) :: xb_wgi2m,xb_wgi3m, xb_wgitotm
REAL,ALLOCATABLE,DIMENSION(:) :: xb_swe1m, xb_swe2m, xb_swe3m, xb_swetotm
!REAL,ALLOCATABLE,DIMENSION(:) :: XB_RUN2M,XB_RUN3M!bv pour verif
! Useful
REAL,ALLOCATABLE,DIMENSION(:)   :: xb_dg2, xb_dg3
REAL,ALLOCATABLE,DIMENSION(:)   :: xb_mesh_size
REAL,ALLOCATABLE,DIMENSION(:,:) :: xb_abv_bymesh !fraction de chaque BV ds chaque maille 
REAL,ALLOCATABLE,DIMENSION(:)   :: xb_atop_bymesh!fraction de tous BV ds chaque maille 
!
! Variable to keep and write budget terms
REAL, ALLOCATABLE, DIMENSION(:,:,:) :: xb_var_bv
REAL, ALLOCATABLE, DIMENSION(:,:,:) :: xb_var_nobv
REAL,ALLOCATABLE,  DIMENSION(:,:)   :: xb_var_tot
REAL, ALLOCATABLE, DIMENSION(:,:,:) :: xb_var_q
!
CHARACTER(LEN=6),ALLOCATABLE,  DIMENSION(:)     :: YB_VAR  
!
! Discharge variables
!
REAL, ALLOCATABLE, DIMENSION(:)  :: xb_qtot,xb_qrun
REAL, ALLOCATABLE, DIMENSION(:)  :: xb_qdr
REAL, ALLOCATABLE, DIMENSION(:)  :: xb_stock_tot,xb_stock_run
REAL, ALLOCATABLE, DIMENSION(:)  :: xb_stock_dr
! Values at the previous time step
REAL, ALLOCATABLE, DIMENSION(:)  :: xb_qtotm,xb_qrunm
REAL, ALLOCATABLE, DIMENSION(:)  :: xb_qdrm
!
CHARACTER(LEN=6),ALLOCATABLE,  DIMENSION(:)  :: YB_VARQ  
!
END MODULE modd_budget_coupl_rout