7 odiag_ocean,odiag_seaice,kluout,osurf_budgetc)
42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
51 INTEGER,
INTENT(INOUT) :: k2m
52 LOGICAL,
INTENT(INOUT) :: osurf_budget
53 LOGICAL,
INTENT(INOUT) :: o2m_min_zs
54 LOGICAL,
INTENT(INOUT) :: orad_budget
55 LOGICAL,
INTENT(INOUT) :: ocoef
56 LOGICAL,
INTENT(INOUT) :: osurf_vars
57 LOGICAL,
INTENT(INOUT) :: odiag_ocean
58 LOGICAL,
INTENT(INOUT) :: odiag_seaice
59 INTEGER,
INTENT(IN) :: kluout
60 LOGICAL,
INTENT(INOUT) :: osurf_budgetc
61 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'PREP_CTRL_SEAFLUX',0,zhook_handle)
71 osurf_budget = .false.
77 odiag_seaice = .false.
78 osurf_budgetc = .false.
80 WRITE(kluout,*)
'SEAFLUX DIAGNOSTICS DESACTIVATED'
81 IF (lhook) CALL dr_hook(
'PREP_CTRL_SEAFLUX',1,zhook_handle)
subroutine prep_ctrl_seaflux(K2M, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, ODIAG_OCEAN, ODIAG_SEAICE, KLUOUT, OSURF_BUDGETC)