modn_trip_run.F90

Go to the documentation of this file.

!#######################
MODULE  modn_trip_run
!#######################
!
!!****  *MODN_TRIP_RUN* define the variables and namelist for TRIP
!                       driver programs
!!
!!    PURPOSE
!!    -------
!!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!      B. Decharme   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    04/2013
!!      S.Sénési    08/11/16 : interface to XIOS
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
IMPLICIT NONE
!
!*    Names of model
!     --------------
!
 CHARACTER(LEN=6)                  :: cmodel_name  = 'trip'
!
!*    Names of files
!     --------------
!
 CHARACTER(LEN=28), PARAMETER      :: cnamelist    = 'TRIP_OPTIONS.nam'
 CHARACTER(LEN=15)                 :: cfile_frc    = 'TRIP_FORCING.nc'
!
!
!*    General flags defining forcing options
!     -------------------------------------
!
!
LOGICAL                           :: lcumfrc  = .false.  ! Cumulated (or not) forcing variables 
 CHARACTER(LEN=6)                  :: creadfrc = 'VECTOR' ! Forcing file format
                                                         ! VECTOR = vector (normaly ilat*ilon)
                                                         ! LATLON = Regular lat lon grid
!
 CHARACTER(LEN=8)                  :: cdrain     = 'DRAIN'  ! Drainage name in FORCING.nc file                                                      
 CHARACTER(LEN=8)                  :: crunoff    = 'RUNOFF' ! Surface runoff name in FORCING.nc file
 CHARACTER(LEN=8)                  :: csrc_flood = '      ' ! Flood source term (P-E-I) name in FORCING.nc file
!
!
!*    General flag 
!     ------------
!
LOGICAL                           :: ldiag_misc = .false.  ! if true, more diag for model testing
LOGICAL                           :: lrestart   = .true.   ! write restart file
LOGICAL                           :: lprint     = .false.  ! write some information in an ascii file 
LOGICAL                           :: lwr_diag   = .true.   ! write diag file
!
!*    Time steps
!     ----------
!
REAL                              :: xtstep_run  = 86400.0
REAL                              :: xtstep_diag = 86400.0
!
!-------------------------------------------------------------------------------
!
!*       1.    NAMELISTS
!              ---------
!
NAMELIST/nam_trip_run/creadfrc,cdrain,crunoff,lcumfrc,ldiag_misc, &
                      lprint,lrestart,xtstep_run,xtstep_diag,     &
                      lwr_diag
!
!-------------------------------------------------------------------------------
END MODULE modn_trip_run