38 USE yomhook
,ONLY : lhook, dr_hook
39 USE parkind1
,ONLY : jprb
46 LOGICAL :: LSURF_MISC_BUDGET
47 LOGICAL :: LSURF_EVAP_BUDGET
48 LOGICAL :: LSURF_DIAG_ALBEDO
64 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
"MODD_DIAG_MISC_TEB_N:DIAG_MISC_TEB_OPTIONS_INIT",0,zhook_handle)
66 ydiag_misc_teb_options%LSURF_MISC_BUDGET=.false.
67 ydiag_misc_teb_options%LSURF_EVAP_BUDGET=.false.
68 ydiag_misc_teb_options%LSURF_DIAG_ALBEDO=.false.
69 IF (lhook) CALL dr_hook(
"MODD_DIAG_MISC_TEB_N:DIAG_MISC_TEB_OPTIONS_INIT",1,zhook_handle)
subroutine diag_misc_teb_options_init(YDIAG_MISC_TEB_OPTIONS)