modd_diag_cumul_tebn.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_diag_cumul_teb_n
!     ############################
!
!!****  *MODD_DIAG_CUMUL_TEB - declaration of cumulated surface parameters for TEB scheme
!!
!!    PURPOSE
!!    -------
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      C de Munck   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       19/02/2013
!
!
!*       0.   DECLARATIONS
!             ------------
!
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE

!TYPE DIAG_CUMUL_TEB_OPTIONS_t
!------------------------------------------------------------------------------
!
!  LOGICAL :: LTEB_CUM   ! flag for cumulated terms of teb scheme
!
!------------------------------------------------------------------------------
!END TYPE DIAG_CUMUL_TEB_OPTIONS_t
!
TYPE diag_cumul_teb_1p_t
!------------------------------------------------------------------------------
!* miscellaneous variables
!
  REAL, POINTER, DIMENSION(:)   :: XRUNOFFC_TOWN      ! cumulateda ggregated water runoff for town      (kg/m2 town/s)
  REAL, POINTER, DIMENSION(:)   :: XRUNOFFC_GARDEN    ! cumulated water runoff for green areas          (kg/m2 garden/s)
  REAL, POINTER, DIMENSION(:)   :: XRUNOFFC_ROAD      ! cumulated water runoff for roads                (kg/m2 road/s)
  REAL, POINTER, DIMENSION(:)   :: XRUNOFFC_ROOF      ! cumulated aggregated water runoff for roofs     (kg/m2 roof/s)
  REAL, POINTER, DIMENSION(:)   :: XRUNOFFC_STRLROOF  ! cumulated water runoff for structural roofs     (kg/m2 structural roof/s)
  REAL, POINTER, DIMENSION(:)   :: XRUNOFFC_GREENROOF ! cumulated water runoff for greenroof            (kg/m2 greenroof/s)
  REAL, POINTER, DIMENSION(:)   :: XDRAINC_GREENROOF  ! cumulated water vertical drainage for greenroof (kg/m2 greenroof/s)
  REAL, POINTER, DIMENSION(:)   :: XDRAINC_GARDEN     ! cumulated water vertical drainage for gardens   (kg/m2 garden/s)
  REAL, POINTER, DIMENSION(:)   :: XIRRIGC_GREENROOF  ! cumulated water supply from summer irrigation   (kg/m2 greenroof/s)
  REAL, POINTER, DIMENSION(:)   :: XIRRIGC_GARDEN     ! cumulated water supply from summer irrigation   (kg/m2 garden/s)
  REAL, POINTER, DIMENSION(:)   :: XIRRIGC_ROAD       ! cumulated water supply from summer irrigation   (kg/m2 road/s)
  !
  REAL, POINTER, DIMENSION(:)   :: XHVACC_COOL        ! cumulated en. consump. of the cooling system [W m-2(bld)]
  REAL, POINTER, DIMENSION(:)   :: XHVACC_HEAT        ! cumulated en. consump. of the heating system [W m-2(bld)]
  REAL, POINTER, DIMENSION(:)   :: XTHER_PROD_BLDC    ! cumulated en. product. of thermal      solar panels [W m-2(bld)]
  REAL, POINTER, DIMENSION(:)   :: XPHOT_PROD_BLDC    ! cumulated en. product. of photovoltaic solar panels [W m-2(bld)]
!
!------------------------------------------------------------------------------
END TYPE diag_cumul_teb_1p_t

TYPE diag_cumul_teb_t
  !
  TYPE(diag_cumul_teb_1p_t), POINTER :: ALP(:) => NULL()
  TYPE(diag_cumul_teb_1p_t), POINTER :: CUR => NULL()
  !
END TYPE diag_cumul_teb_t




 CONTAINS
!
!------------------------------------------------------------------------------
!
!------------------------------------------------------------------------------
!
!



!
SUBROUTINE diag_cumul_teb_goto_patch(YDIAG_CUMUL_TEB,KTO_PATCH)
TYPE(diag_cumul_teb_t), INTENT(INOUT) :: ydiag_cumul_teb
INTEGER, INTENT(IN) :: kto_patch
REAL(KIND=JPRB) :: zhook_handle
!
! Current patch is set to patch KTO_PATCH
IF (lhook) CALL dr_hook('MODD_DIAG_CUMUL_TEB_N:DIAG_CUMUL_TEB_GOTO_PATCH',0,zhook_handle)

ydiag_cumul_teb%CUR => ydiag_cumul_teb%ALP(kto_patch)

IF (lhook) CALL dr_hook('MODD_DIAG_CUMUL_TEB_N:DIAG_CUMUL_TEB_GOTO_PATCH',1,zhook_handle)

END SUBROUTINE diag_cumul_teb_goto_patch
!
!------------------------------------------------------------------------------
!
SUBROUTINE diag_cumul_teb_init(YDIAG_CUMUL_TEB,KPATCH)
TYPE(diag_cumul_teb_t), INTENT(INOUT) :: ydiag_cumul_teb
INTEGER, INTENT(IN) :: kpatch
INTEGER :: jp
REAL(KIND=JPRB) :: zhook_handle
IF (lhook) CALL dr_hook("MODD_DIAG_CUMUL_TEB_N:DIAG_CUMUL_TEB_INIT",0,zhook_handle)
  ALLOCATE(ydiag_cumul_teb%ALP(kpatch))
  ydiag_cumul_teb%CUR => ydiag_cumul_teb%ALP(1)
DO jp=1,kpatch
  nullify(ydiag_cumul_teb%ALP(jp)%XRUNOFFC_TOWN)
  nullify(ydiag_cumul_teb%ALP(jp)%XRUNOFFC_GARDEN)
  nullify(ydiag_cumul_teb%ALP(jp)%XRUNOFFC_ROAD)
  nullify(ydiag_cumul_teb%ALP(jp)%XRUNOFFC_ROOF)
  nullify(ydiag_cumul_teb%ALP(jp)%XRUNOFFC_STRLROOF)
  nullify(ydiag_cumul_teb%ALP(jp)%XRUNOFFC_GREENROOF)
  nullify(ydiag_cumul_teb%ALP(jp)%XDRAINC_GREENROOF)
  nullify(ydiag_cumul_teb%ALP(jp)%XDRAINC_GARDEN)
  nullify(ydiag_cumul_teb%ALP(jp)%XIRRIGC_GREENROOF)
  nullify(ydiag_cumul_teb%ALP(jp)%XIRRIGC_GARDEN)
  nullify(ydiag_cumul_teb%ALP(jp)%XIRRIGC_ROAD)
  nullify(ydiag_cumul_teb%ALP(jp)%XHVACC_COOL)
  nullify(ydiag_cumul_teb%ALP(jp)%XHVACC_HEAT)
  nullify(ydiag_cumul_teb%ALP(jp)%XTHER_PROD_BLDC)
  nullify(ydiag_cumul_teb%ALP(jp)%XPHOT_PROD_BLDC)
ENDDO 
IF (lhook) CALL dr_hook("MODD_DIAG_CUMUL_TEB_N:DIAG_CUMUL_TEB_INIT",1,zhook_handle)
END SUBROUTINE diag_cumul_teb_init
!
!------------------------------------------------------------------------------
!
!
!------------------------------------------------------------------------------

END MODULE modd_diag_cumul_teb_n