6 SUBROUTINE prep_ctrl_flake(K2M,OSURF_BUDGET,O2M_MIN_ZS,ORAD_BUDGET,OCOEF,OSURF_VARS,&
7 kluout,owater_profile,osurf_budgetc)
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) :: owater_profile
58 LOGICAL,
INTENT(INOUT) :: osurf_budgetc
59 REAL(KIND=JPRB) :: zhook_handle
66 IF (lhook) CALL dr_hook(
'PREP_CTRL_FLAKE',0,zhook_handle)
69 osurf_budget = .false.
74 owater_profile = .false.
75 osurf_budgetc = .false.
77 WRITE(kluout,*)
'FLAKE DIAGNOSTICS DESACTIVATED'
78 IF (lhook) CALL dr_hook(
'PREP_CTRL_FLAKE',1,zhook_handle)
subroutine prep_ctrl_flake(K2M, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, KLUOUT, OWATER_PROFILE, OSURF_BUDGETC)