modn_prep_teb.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 modn_prep_teb
!     ##################
!
!!****  *MODN_PREP_TEB* - declaration of namelist NAM_PREP_TEB
!!
!!    PURPOSE
!!    -------
!       The purpose of this module is to specify  the namelist NAM_PREP_TEB
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!       
!!    AUTHOR
!!    ------
!!      V. Masson    *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    01/2004                    
!-------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!
USE modd_prep_teb, ONLY : cfile_teb, ctype, cfilepgd_teb, ctypepgd,          &
                            cfile_ws, ctype_ws, cfile_ts, ctype_ts,          &
                            xws_roof, xws_road, xhui_bld,                    &
                            xts_roof, xts_road, xts_wall, xti_bld, xti_road  

!
IMPLICIT NONE
!
INTEGER           :: nyear        ! YEAR for surface
INTEGER           :: nmonth       ! MONTH for surface
INTEGER           :: nday         ! DAY for surface
REAL              :: xtime        ! TIME for surface
LOGICAL           :: lteb_canopy  ! flag to use air layers inside the canopy
 CHARACTER(LEN=4)  :: croad_dir    ! flag to use uniform road orientation or not
 CHARACTER(LEN=4)  :: cwall_opt    ! flag to use uniform walls or 2 separated walls
!
NAMELIST/nam_prep_teb/cfile_teb, ctype, cfilepgd_teb, ctypepgd,  &
                      cfile_ws, ctype_ws, xws_roof, xws_road,    &
                      cfile_ts, ctype_ts, xts_roof, xts_road,    &
                      xts_wall, xti_bld, xti_road, xhui_bld,     &
                      nyear, nmonth, nday, xtime, lteb_canopy,   &
                      croad_dir, cwall_opt  
!
END MODULE modn_prep_teb