BEM_OPTIONS_INIT Subroutine

  1. modd_bem_optionn.F90
  2. MODD_BEM_OPTION_n
  3. BEM_OPTIONS_INIT

public subroutine BEM_OPTIONS_INIT(YBEM_OPTIONS)

Arguments

Type IntentOptional AttributesName
type(BEM_OPTIONS_t), intent(inout) :: YBEM_OPTIONS

Contents

Source Code

BEM_OPTIONS_INIT

Source Code

SUBROUTINE BEM_OPTIONS_INIT(YBEM_OPTIONS)
TYPE(BEM_OPTIONS_t), INTENT(INOUT) :: YBEM_OPTIONS
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_BEM_N:BEM_OPTIONS_INIT",0,ZHOOK_HANDLE)
YBEM_OPTIONS%NFLOOR_LAYER = 0
YBEM_OPTIONS%CCOOL_COIL   = '      '
YBEM_OPTIONS%CHEAT_COIL   = '      '
YBEM_OPTIONS%LAUTOSIZE    = .FALSE.
IF (LHOOK) CALL DR_HOOK("MODD_BEM_N:BEM_OPTIONS_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE BEM_OPTIONS_INIT