modd_diag_utci_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_utci_teb_n
!     ############################
!
!!****  *MODD_DIAG_UTCI_TEB - declaration of confort from TEB scheme
!!
!!    PURPOSE
!!    -------
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      P. Le Moigne   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       07/10/04
!
!
!*       0.   DECLARATIONS
!             ------------
!
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE

TYPE diag_utci_teb_t
!------------------------------------------------------------------------------
!
  LOGICAL :: LUTCI                               ! flag to compute UTCI quantities
  REAL, POINTER, DIMENSION(:)   :: XUTCI_IN      ! UTCI for person indoor
  REAL, POINTER, DIMENSION(:)   :: XUTCI_OUTSUN  ! UTCI for person outdoor at sun
  REAL, POINTER, DIMENSION(:)   :: XUTCI_OUTSHADE! UTCI for person outdoor at shade
  REAL, POINTER, DIMENSION(:)   :: XTRAD_SUN! Mean radiant temperature seen by person at sun (K)
  REAL, POINTER, DIMENSION(:)   :: XTRAD_SHADE! Mean radiant temperature seen by person in shade (K)
  REAL, POINTER, DIMENSION(:,:) :: XUTCIC_IN      ! Cumulated UTCI stress for person indoor
  REAL, POINTER, DIMENSION(:,:) :: XUTCIC_OUTSUN  ! Cumulated UTCI stress for person outdoor at sun
  REAL, POINTER, DIMENSION(:,:) :: XUTCIC_OUTSHADE! Cumulated UTCI stress for person outdoor at shade
!
END TYPE diag_utci_teb_t
!



 CONTAINS

!




SUBROUTINE diag_utci_teb_init(YDIAG_UTCI_TEB)
TYPE(diag_utci_teb_t), INTENT(INOUT) :: ydiag_utci_teb
REAL(KIND=JPRB) :: zhook_handle
IF (lhook) CALL dr_hook("MODD_DIAG_UTCI_TEB_N:DIAG_UTCI_TEB_INIT",0,zhook_handle)
ydiag_utci_teb%LUTCI=.false.
  nullify(ydiag_utci_teb%XUTCI_IN)
  nullify(ydiag_utci_teb%XUTCI_OUTSUN)
  nullify(ydiag_utci_teb%XUTCI_OUTSHADE)
  nullify(ydiag_utci_teb%XTRAD_SUN)
  nullify(ydiag_utci_teb%XTRAD_SHADE)
  nullify(ydiag_utci_teb%XUTCIC_IN)
  nullify(ydiag_utci_teb%XUTCIC_OUTSUN)
  nullify(ydiag_utci_teb%XUTCIC_OUTSHADE)
IF (lhook) CALL dr_hook("MODD_DIAG_UTCI_TEB_N:DIAG_UTCI_TEB_INIT",1,zhook_handle)
END SUBROUTINE diag_utci_teb_init



END MODULE modd_diag_utci_teb_n