6 SUBROUTINE prep_ctrl_isba(K2M,OSURF_BUDGET,O2M_MIN_ZS,ORAD_BUDGET,OCOEF,OSURF_VARS,&
7 osurf_evap_budget,osurf_misc_budget,osurf_budgetc, &
8 opatch_budget,osurf_misc_dif,kluout )
46 USE yomhook
,ONLY : lhook, dr_hook
47 USE parkind1
,ONLY : jprb
55 INTEGER,
INTENT(INOUT) :: k2m
56 LOGICAL,
INTENT(INOUT) :: osurf_budget
57 LOGICAL,
INTENT(INOUT) :: o2m_min_zs
58 LOGICAL,
INTENT(INOUT) :: orad_budget
59 LOGICAL,
INTENT(INOUT) :: ocoef
60 LOGICAL,
INTENT(INOUT) :: osurf_vars
61 LOGICAL,
INTENT(INOUT) :: osurf_evap_budget
62 LOGICAL,
INTENT(INOUT) :: osurf_misc_budget
63 LOGICAL,
INTENT(INOUT) :: osurf_budgetc
64 LOGICAL,
INTENT(INOUT) :: opatch_budget
65 LOGICAL,
INTENT(INOUT) :: osurf_misc_dif
66 INTEGER,
INTENT(IN) :: kluout
67 REAL(KIND=JPRB) :: zhook_handle
74 IF (lhook) CALL dr_hook(
'PREP_CTRL_ISBA',0,zhook_handle)
77 osurf_budget = .false.
83 osurf_budgetc = .false.
84 opatch_budget = .false.
85 osurf_evap_budget = .false.
86 osurf_misc_budget = .false.
87 osurf_misc_dif = .false.
89 WRITE(kluout,*)
'ISBA DIAGNOSTICS DESACTIVATED'
90 IF (lhook) CALL dr_hook(
'PREP_CTRL_ISBA',1,zhook_handle)
subroutine prep_ctrl_isba(K2M, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, OSURF_EVAP_BUDGET, OSURF_MISC_BUDGET, OSURF_BUDGETC, OPATCH_BUDGET, OSURF_MISC_DIF, KLUOUT)