CH_TEB_INIT Subroutine

  1. modd_ch_tebn.F90
  2. MODD_CH_TEB_n
  3. CH_TEB_INIT

public subroutine CH_TEB_INIT(YCH_TEB)

Arguments

Type IntentOptional AttributesName
type(CH_TEB_t), intent(inout) :: YCH_TEB

Contents

Source Code

CH_TEB_INIT

Source Code

SUBROUTINE CH_TEB_INIT(YCH_TEB)
TYPE(CH_TEB_t), INTENT(INOUT) :: YCH_TEB
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_CH_TEB_N:CH_TEB_INIT",0,ZHOOK_HANDLE)
NULLIFY(YCH_TEB%XDEP)
NULLIFY(YCH_TEB%XSOILRC_SO2)
NULLIFY(YCH_TEB%XSOILRC_O3)
NULLIFY(YCH_TEB%CCH_NAMES)
NULLIFY(YCH_TEB%CAER_NAMES)
NULLIFY(YCH_TEB%CDSTNAMES)
NULLIFY(YCH_TEB%CSLTNAMES)
YCH_TEB%CCHEM_SURF_FILE=' '
YCH_TEB%CCH_DRY_DEP=' '
YCH_TEB%LCH_BIO_FLUX=.FALSE.
YCH_TEB%LCH_NO_FLUX=.FALSE.
CALL SV_INIT(YCH_TEB%SVT)
IF (LHOOK) CALL DR_HOOK("MODD_CH_TEB_N:CH_TEB_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE CH_TEB_INIT