6 SUBROUTINE prep_ctrl_teb (K2M,OSURF_BUDGET,O2M_MIN_ZS,ORAD_BUDGET,OCOEF,OSURF_VARS,&
7 osurf_evap_budget,osurf_misc_budget,outci,kluout)
41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
50 INTEGER,
INTENT(INOUT) :: k2m
51 LOGICAL,
INTENT(INOUT) :: osurf_budget
52 LOGICAL,
INTENT(INOUT) :: o2m_min_zs
53 LOGICAL,
INTENT(INOUT) :: orad_budget
54 LOGICAL,
INTENT(INOUT) :: ocoef
55 LOGICAL,
INTENT(INOUT) :: osurf_vars
56 LOGICAL,
INTENT(INOUT) :: osurf_evap_budget
57 LOGICAL,
INTENT(INOUT) :: osurf_misc_budget
58 LOGICAL,
INTENT(INOUT) :: outci
59 INTEGER,
INTENT(IN) :: kluout
60 REAL(KIND=JPRB) :: zhook_handle
67 IF (lhook) CALL dr_hook(
'PREP_CTRL_TEB',0,zhook_handle)
70 osurf_budget = .false.
76 osurf_evap_budget = .false.
77 osurf_misc_budget = .false.
80 WRITE(kluout,*)
'TEB DIAGNOSTICS DESACTIVATED'
81 IF (lhook) CALL dr_hook(
'PREP_CTRL_TEB',1,zhook_handle)
subroutine prep_ctrl_teb(K2M, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, OSURF_EVAP_BUDGET, OSURF_MISC_BUDGET, OUTCI, KLUOUT)