default_teb_veg.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.
!     #########
      SUBROUTINE default_teb_veg(HROUGH,HRUNOFF,HALBEDO,HSCOND,          &
                                 hc1dry, hsoilfrz, hdifsfcond, hsnowres, &
                                 hcpsurf, pcgmax, hksat,                 &
                                 hrain, hhort,                           &
                                 oglacier, ocanopy_drag, ovegupd,        &
                                 onitro_dilu                             )
!     ########################################################################
!
!!****  *DEFAULT_TEB_VEG* - routine to set default values for the configuration for TEB scheme
!!
!!    PURPOSE
!!    -------
!!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!      V. Masson   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original                 01/2004 
!!      C. de Munck & A. Lemonsu  07/2011 ! urban vegetation options
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*       0.1   Declarations of arguments
!              -------------------------
!
!
 CHARACTER(LEN=4),  INTENT(OUT) :: hrough     ! type of roughness length
 CHARACTER(LEN=4),  INTENT(OUT) :: halbedo    ! albedo type ('DRY','EVOL4,'WET','USER')
 CHARACTER(LEN=4),  INTENT(OUT) :: hscond     ! Thermal conductivity ('DEF','PL98')
 CHARACTER(LEN=4),  INTENT(OUT) :: hc1dry     ! C1 formulation for dry soils ('DEF','GB93')
 CHARACTER(LEN=3),  INTENT(OUT) :: hsoilfrz   ! soil freezing-physics option ('DEF','LWT')
 CHARACTER(LEN=4),  INTENT(OUT) :: hdifsfcond ! Mulch effects ('MLCH','DEF ')
 CHARACTER(LEN=3),  INTENT(OUT) :: hsnowres   ! Turbulent exchanges over snow ('DEF','RIL')
 CHARACTER(LEN=3),  INTENT(OUT) :: hcpsurf    ! specific heat ('DRY','HUM')
 CHARACTER(LEN=4),  INTENT(OUT) :: hrunoff    ! surface runoff formulation ('WSAT','DT92','SGH ')
 CHARACTER(LEN=3),  INTENT(OUT) :: hksat      ! soil hydraulic profile option ('DEF','SGH')
 CHARACTER(LEN=3),  INTENT(OUT) :: hrain      ! Rainfall spatial distribution ('DEF','SGH')
 CHARACTER(LEN=3),  INTENT(OUT) :: hhort      ! Horton runoff ('DEF','SGH')

LOGICAL, INTENT(OUT)           :: oglacier   ! T= Over permanent snow and ice, initialise WGI=WSAT, 
!                                                 Hsnow>=3.3m and allow 0.8<SNOALB<0.85
!                                            ! F= No specific treatment
LOGICAL, INTENT(OUT)           :: ocanopy_drag ! T: drag activated in SBL scheme within the canopy
LOGICAL, INTENT(OUT)           :: ovegupd      ! T: update vegetation parameters every decade
!                                              ! F: keep vegetation parameters constant in time
REAL,    INTENT(OUT)           :: pcgmax     ! maximum soil heat capacity
LOGICAL, INTENT(OUT)           :: onitro_dilu ! nitrogen dilution fct of CO2 (Calvet et al. 2008)
!
REAL(KIND=JPRB) :: zhook_handle
!
!*       0.2   Declarations of local variables
!              -------------------------------
!
!-------------------------------------------------------------------------------
!
IF (lhook) CALL dr_hook('DEFAULT_TEB_VEG',0,zhook_handle)
!
hrough     = 'UNDE'  ! undefined. Needs further information on canopy scheme use to set default
hscond     = 'PL98'
halbedo    = 'DRY '
!
hc1dry     = 'DEF '
hsoilfrz   = 'DEF'
hdifsfcond = 'DEF '
hsnowres   = 'DEF'
hcpsurf    = 'DRY'
!
hrunoff    = "WSAT"
hksat      = 'DEF'
hrain      = 'DEF'
hhort      = 'DEF'
!
pcgmax     = 2.0e-5
!
ocanopy_drag = .false.
!
ovegupd     = .true.
onitro_dilu = .false.
!
oglacier  = .false.
!
IF (lhook) CALL dr_hook('DEFAULT_TEB_VEG',1,zhook_handle)
!
!-------------------------------------------------------------------------------
!
END SUBROUTINE default_teb_veg