modd_teb_garden_optionn.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 modd_teb_garden_option_n
!##################
!
!!****  *MODD_TEB_GARDEN - declaration of packed surface parameters for ISBA scheme
!!
!!    PURPOSE
!!    -------
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      A. Lemonsu   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       01/2011
!!      V. Masson      06/2013 splits module in two
!!
!-------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!
USE modd_type_snow
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE

TYPE teb_garden_options_t
!-------------------------------------------------------------------------------
!
! type of initialization of vegetation: from cover types (ecoclimap) or parameters prescribed
!
  LOGICAL                              :: LPAR_GARDEN      ! T: parameters computed from ecoclimap
!                                                          ! F: they are read in the file
!
! Number of inside garden vegetation (not TEB) patches and of layers
! 
!
  INTEGER                              :: NGROUND_LAYER    ! number of ground layers
!
  INTEGER                              :: NLAYER_HORT
  INTEGER                              :: NLAYER_DUN
!
  REAL, POINTER, DIMENSION(:)          :: XSOILGRID        ! Soil layer grid as reference for DIF
!
END TYPE teb_garden_options_t
!-------------------------------------------------------------------------------



 CONTAINS

!


!

SUBROUTINE teb_garden_options_init(YTEB_GARDEN_OPTIONS)
TYPE(teb_garden_options_t), INTENT(INOUT) :: yteb_garden_options
REAL(KIND=JPRB) :: zhook_handle
IF (lhook) CALL dr_hook("MODD_TEB_GARDEN_N:TEB_GARDEN_INIT",0,zhook_handle)
  nullify(yteb_garden_options%XSOILGRID)
yteb_garden_options%LPAR_GARDEN=.true.
yteb_garden_options%NGROUND_LAYER=0
yteb_garden_options%NLAYER_HORT=0
yteb_garden_options%NLAYER_DUN=0
IF (lhook) CALL dr_hook("MODD_TEB_GARDEN_N:TEB_GARDEN_OPTIONS_INIT",1,zhook_handle)
END SUBROUTINE teb_garden_options_init


END MODULE modd_teb_garden_option_n