DIAG_MISC_TEB_OPTIONS_INIT Subroutine

  1. modd_diag_misc_teb_optionsn.F90
  2. MODD_DIAG_MISC_TEB_OPTIONS_n
  3. DIAG_MISC_TEB_OPTIONS_INIT

public subroutine DIAG_MISC_TEB_OPTIONS_INIT(YDIAG_MISC_TEB_OPTIONS)

Arguments

Type IntentOptional AttributesName
type(DIAG_MISC_TEB_OPTIONS_t), intent(inout) :: YDIAG_MISC_TEB_OPTIONS

Contents

Source Code

DIAG_MISC_TEB_OPTIONS_INIT

Source Code

SUBROUTINE DIAG_MISC_TEB_OPTIONS_INIT(YDIAG_MISC_TEB_OPTIONS)
TYPE(DIAG_MISC_TEB_OPTIONS_t), INTENT(INOUT) :: YDIAG_MISC_TEB_OPTIONS
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_DIAG_MISC_TEB_N:DIAG_MISC_TEB_OPTIONS_INIT",0,ZHOOK_HANDLE)
YDIAG_MISC_TEB_OPTIONS%LSURF_MISC_BUDGET=.FALSE.
YDIAG_MISC_TEB_OPTIONS%LSURF_EVAP_BUDGET=.FALSE.
YDIAG_MISC_TEB_OPTIONS%LSURF_DIAG_ALBEDO=.FALSE.
IF (LHOOK) CALL DR_HOOK("MODD_DIAG_MISC_TEB_N:DIAG_MISC_TEB_OPTIONS_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE DIAG_MISC_TEB_OPTIONS_INIT