modn_trip.F90

Go to the documentation of this file.

!#######################
MODULE  modn_trip
!#######################
!
!!****  *MODN_TRIP* define the variables and namelist for TRIP
!                       driver programs
!!
!!    PURPOSE
!!    -------
!!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!      B. Decharme   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    04/2013
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
IMPLICIT NONE
!
!Stream flow velocity scheme
!
 CHARACTER(LEN=3) :: cvit  = 'DEF'     !Type of stream flow velocity
                                      !'DEF' = Constant velocit = 0.5m/s
                                      !'VAR' = variable velocity
!
REAL             :: xcvel = 0.5       ! Constant velocity value
!
!Groundwater scheme
!
 CHARACTER(LEN=3) :: cgroundw = 'DEF'  !Use groundwater scheme
                                      !'DEF' = No groundwater scheme
                                      !'CST' = Constant transfert time
                                      !'DIF' = Groundwater diffusive scheme 
!
LOGICAL          :: lgwsubf  = .true. !Use sub-grid fraction to couple with SURFEX
                                      !as in Verges et al., JGR, 2014
!
REAL             :: xgwsubd  = 0.0    !Sub-grid depth uses to adjust the WTD 
                                      !used to compute the sub-grid fraction
!
!Floodplains scheme
!                                     
LOGICAL          :: lflood = .false.  !if true, use TRIP-FLOOD
!
!Other attributes
!
REAL             :: xratmed     = 1.4  ! Meandering ratio
REAL             :: xtstep      = 3600.
!
!-------------------------------------------------------------------------------
!
!*       1.    NAMELISTS
!              ---------
!
NAMELIST/nam_trip/cvit,cgroundw,lgwsubf,xgwsubd, &
                  lflood,xcvel,xratmed,xtstep
!
!-------------------------------------------------------------------------------
END MODULE modn_trip