6 SUBROUTINE prep_ctrl_ideal(K2M,OSURF_BUDGET,O2M_MIN_ZS,ORAD_BUDGET,OCOEF,OSURF_VARS,&
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 INTEGER,
INTENT(IN) :: kluout
57 LOGICAL,
INTENT(INOUT) :: osurf_budgetc
58 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
'PREP_CTRL_IDEAL',0,zhook_handle)
68 osurf_budget = .false.
73 osurf_budgetc = .false.
75 WRITE(kluout,*)
'IDEAL DIAGNOSTICS DESACTIVATED'
76 IF (lhook) CALL dr_hook(
'PREP_CTRL_IDEAL',1,zhook_handle)
subroutine prep_ctrl_ideal(K2M, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, KLUOUT, OSURF_BUDGETC)