41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
51 INTEGER :: NFLOOR_LAYER
52 CHARACTER(LEN=6) :: CCOOL_COIL
53 CHARACTER(LEN=6) :: CHEAT_COIL
69 REAL(KIND=JPRB) :: zhook_handle
70 IF (lhook) CALL dr_hook(
"MODD_BEM_N:BEM_OPTIONS_INIT",0,zhook_handle)
71 ybem_options%NFLOOR_LAYER = 0
72 ybem_options%CCOOL_COIL =
' '
73 ybem_options%CHEAT_COIL =
' '
74 ybem_options%LAUTOSIZE = .false.
75 IF (lhook) CALL dr_hook(
"MODD_BEM_N:BEM_OPTIONS_INIT",1,zhook_handle)
subroutine bem_options_init(YBEM_OPTIONS)