modd_teb_irrign.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_irrig_n
!     ################
!
!!****  *MODD_TEB_IRRIG_n - declaration of surface parameters for urban canopy
!!
!!    PURPOSE
!!    -------
!     Declaration of surface parameters
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      V. Masson   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       07/2006
!
!*       0.   DECLARATIONS
!             ------------
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE

TYPE teb_irrig_t
!
  LOGICAL                        :: LTEB_IRRIG        ! flag to use irrigation for gardens or greenroofs
  LOGICAL                        :: LPAR_GD_IRRIG     ! flag to use prescribed irrigation for gardens
  LOGICAL                        :: LPAR_GR_IRRIG     ! flag to use prescribed irrigation for greenroofs
  LOGICAL                        :: LPAR_RD_IRRIG     ! flag to use prescribed irrigation for roads
  REAL,    POINTER, DIMENSION(:) :: XGD_START_MONTH   ! gardens : start month for irrigation (included)
  REAL,    POINTER, DIMENSION(:) :: XGD_END_MONTH     ! gardens : end   month for irrigation (included)
  REAL,    POINTER, DIMENSION(:) :: XGD_START_HOUR    ! gardens : start solar hour for irrigation (included, hour)
  REAL,    POINTER, DIMENSION(:) :: XGD_END_HOUR      ! gardens : end   solar hour for irrigation (excluded, hour)
  REAL,    POINTER, DIMENSION(:) :: XGD_24H_IRRIG     ! gardens : total irrigation over 24 hours (kg/m2)
  REAL,    POINTER, DIMENSION(:) :: XGR_START_MONTH   ! greenroofs : start month for irrigation (included)
  REAL,    POINTER, DIMENSION(:) :: XGR_END_MONTH     ! greenroofs : end   month for irrigation (included)
  REAL,    POINTER, DIMENSION(:) :: XGR_START_HOUR    ! greenroofs : start solar hour for irrigation (included, hour)
  REAL,    POINTER, DIMENSION(:) :: XGR_END_HOUR      ! greenroofs : end   solar hour for irrigation (excluded, hour)
  REAL,    POINTER, DIMENSION(:) :: XGR_24H_IRRIG     ! greenroofs : total irrigation over 24 hours (kg/m2)
  REAL,    POINTER, DIMENSION(:) :: XRD_START_MONTH   ! roads : start month for irrigation (included)
  REAL,    POINTER, DIMENSION(:) :: XRD_END_MONTH     ! roads : end   month for irrigation (included)
  REAL,    POINTER, DIMENSION(:) :: XRD_START_HOUR    ! roads : start solar hour for irrigation (included, hour)
  REAL,    POINTER, DIMENSION(:) :: XRD_END_HOUR      ! roads : end   solar hour for irrigation (excluded, hour)
  REAL,    POINTER, DIMENSION(:) :: XRD_24H_IRRIG     ! roads : total irrigation over 24 hours (kg/m2)
!
END TYPE teb_irrig_t



 CONTAINS

!




SUBROUTINE teb_irrig_init(YTEB_IRRIG)
TYPE(teb_irrig_t), INTENT(INOUT) :: yteb_irrig
REAL(KIND=JPRB) :: zhook_handle
IF (lhook) CALL dr_hook("MODD_TEB_IRRIG_N:TEB_IRRIG_INIT",0,zhook_handle)
  nullify(yteb_irrig%XGD_START_MONTH)
  nullify(yteb_irrig%XGD_END_MONTH)
  nullify(yteb_irrig%XGD_START_HOUR)
  nullify(yteb_irrig%XGD_END_HOUR)
  nullify(yteb_irrig%XGD_24H_IRRIG)
  nullify(yteb_irrig%XGR_START_MONTH)
  nullify(yteb_irrig%XGR_END_MONTH)
  nullify(yteb_irrig%XGR_START_HOUR)
  nullify(yteb_irrig%XGR_END_HOUR)
  nullify(yteb_irrig%XGR_24H_IRRIG)
  nullify(yteb_irrig%XRD_START_MONTH)
  nullify(yteb_irrig%XRD_END_MONTH)
  nullify(yteb_irrig%XRD_START_HOUR)
  nullify(yteb_irrig%XRD_END_HOUR)
  nullify(yteb_irrig%XRD_24H_IRRIG)
yteb_irrig%LTEB_IRRIG = .false.
yteb_irrig%LPAR_GD_IRRIG = .false.
yteb_irrig%LPAR_GR_IRRIG = .false.
yteb_irrig%LPAR_RD_IRRIG = .false.
IF (lhook) CALL dr_hook("MODD_TEB_IRRIG_N:TEB_IRRIG_INIT",1,zhook_handle)
END SUBROUTINE teb_irrig_init


END MODULE modd_teb_irrig_n