SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/TOPD/modd_budget_coupl

Go to the documentation of this file.
00001 !     ######spl
00002       MODULE MODD_BUDGET_COUPL_ROUT
00003 !     ######################
00004 !
00005 !!****  *MODD_BUDGET_COUPL_ROUT* - declaration of variables
00006 !                                  useful for budget computations when
00007 !                                  coupling with TOPMODEL
00008 !!
00009 !!    PURPOSE
00010 !!    -------
00011 !!
00012 !!**  IMPLICIT ARGUMENTS
00013 !!    ------------------
00014 !!      None 
00015 !!
00016 !!    REFERENCE
00017 !!    ---------
00018 !!                
00019 !!    AUTHOR
00020 !!    ------
00021 !!      B. Vincendon *Meteo France*
00022 !!
00023 !!    MODIFICATIONS
00024 !!    -------------
00025 !-------------------------------------------------------------------------------
00026 !
00027 !*       0.   DECLARATIONS
00028 !             ------------
00029 !
00030 IMPLICIT NONE
00031 !
00032 ! Water entering the system
00033 REAL,ALLOCATABLE,DIMENSION(:) :: XB_RAIN, XB_SNOW ! Rain and Snow
00034 ! Water going out of the system
00035 REAL,ALLOCATABLE,DIMENSION(:) :: XB_WR ! Interception
00036 REAL,ALLOCATABLE,DIMENSION(:) :: XB_EVAP! Evaporation
00037 REAL,ALLOCATABLE,DIMENSION(:) :: XB_RUNOFF_TOPD,XB_RUNOFF_ISBA !Runoff
00038 REAL,ALLOCATABLE,DIMENSION(:) :: XB_DRAIN !Drainage
00039 ! Water in the ground
00040 REAL,ALLOCATABLE,DIMENSION(:) :: XB_WG2, XB_WG3, XB_WGTOT !liquid
00041 REAL,ALLOCATABLE,DIMENSION(:) :: XB_WGI2, XB_WGI3, XB_WGITOT !solid
00042 !REAL,ALLOCATABLE,DIMENSION(:) :: XB_DWR_TOT,XB_DWI_TOT, XB_DW_TOT
00043 REAL,ALLOCATABLE,DIMENSION(:) :: XB_SWE1, XB_SWE2, XB_SWE3, XB_SWETOT ! snow melt
00044 !REAL,ALLOCATABLE,DIMENSION(:) :: XB_RUN2,XB_RUN3!bv pour verif
00045 !
00046 ! Values at the previous time step
00047 REAL,ALLOCATABLE,DIMENSION(:) :: XB_WRM
00048 REAL,ALLOCATABLE,DIMENSION(:) :: XB_EVAPM
00049 REAL,ALLOCATABLE,DIMENSION(:) :: XB_RUNOFF_TOPDM,XB_RUNOFF_ISBAM 
00050 REAL,ALLOCATABLE,DIMENSION(:) :: XB_DRAINM
00051 REAL,ALLOCATABLE,DIMENSION(:) :: XB_WG2M, XB_WG3M, XB_WGTOTM
00052 REAL,ALLOCATABLE,DIMENSION(:) :: XB_WGI2M,XB_WGI3M, XB_WGITOTM
00053 REAL,ALLOCATABLE,DIMENSION(:) :: XB_SWE1M, XB_SWE2M, XB_SWE3M, XB_SWETOTM
00054 !REAL,ALLOCATABLE,DIMENSION(:) :: XB_RUN2M,XB_RUN3M!bv pour verif
00055 ! Useful
00056 REAL,ALLOCATABLE,DIMENSION(:)   :: XB_DG2, XB_DG3
00057 REAL,ALLOCATABLE,DIMENSION(:)   :: XB_MESH_SIZE
00058 REAL,ALLOCATABLE,DIMENSION(:,:) :: XB_ABV_BYMESH !fraction de chaque BV ds chaque maille 
00059 REAL,ALLOCATABLE,DIMENSION(:)   :: XB_ATOP_BYMESH!fraction de tous BV ds chaque maille 
00060 !
00061 ! Variable to keep and write budget terms
00062 REAL, ALLOCATABLE, DIMENSION(:,:,:) :: XB_VAR_BV
00063 REAL, ALLOCATABLE, DIMENSION(:,:,:) :: XB_VAR_NOBV
00064 REAL,ALLOCATABLE,  DIMENSION(:,:)   :: XB_VAR_TOT
00065 REAL, ALLOCATABLE, DIMENSION(:,:,:) :: XB_VAR_Q
00066 !
00067  CHARACTER(LEN=6),ALLOCATABLE,  DIMENSION(:)     :: YB_VAR  
00068 !
00069 ! Discharge variables
00070 !
00071 REAL, ALLOCATABLE, DIMENSION(:)  :: XB_QTOT,XB_QRUN
00072 REAL, ALLOCATABLE, DIMENSION(:)  :: XB_QDR
00073 REAL, ALLOCATABLE, DIMENSION(:)  :: XB_STOCK_TOT,XB_STOCK_RUN
00074 REAL, ALLOCATABLE, DIMENSION(:)  :: XB_STOCK_DR
00075 ! Values at the previous time step
00076 REAL, ALLOCATABLE, DIMENSION(:)  :: XB_QTOTM,XB_QRUNM
00077 REAL, ALLOCATABLE, DIMENSION(:)  :: XB_QDRM
00078 !
00079  CHARACTER(LEN=6),ALLOCATABLE,  DIMENSION(:)  :: YB_VARQ  
00080 !
00081 END MODULE MODD_BUDGET_COUPL_ROUT