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