DIAG_UTCI_TEB_INIT Subroutine

  1. modd_diag_utci_tebn.F90
  2. MODD_DIAG_UTCI_TEB_n
  3. DIAG_UTCI_TEB_INIT

public subroutine DIAG_UTCI_TEB_INIT(YDIAG_UTCI_TEB)

Arguments

Type IntentOptional AttributesName
type(DIAG_UTCI_TEB_t), intent(inout) :: YDIAG_UTCI_TEB

Contents

Source Code

DIAG_UTCI_TEB_INIT

Source Code

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