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