7 odiag_ocean,odiag_seaice,osurf_budgetc,oreset_budgetc,pdiag_tstep )
45 USE yomhook
,ONLY : lhook, dr_hook
46 USE parkind1
,ONLY : jprb
54 INTEGER,
INTENT(OUT) :: k2m
55 LOGICAL,
INTENT(OUT) :: osurf_budget
56 LOGICAL,
INTENT(OUT) :: o2m_min_zs
57 LOGICAL,
INTENT(OUT) :: orad_budget
58 LOGICAL,
INTENT(OUT) :: ocoef
59 LOGICAL,
INTENT(OUT) :: osurf_vars
60 LOGICAL,
INTENT(OUT) :: odiag_ocean
61 LOGICAL,
INTENT(OUT) :: odiag_seaice
62 LOGICAL,
INTENT(OUT) :: osurf_budgetc
63 LOGICAL,
INTENT(OUT) :: oreset_budgetc
64 REAL,
INTENT(OUT) :: pdiag_tstep
65 REAL(KIND=JPRB) :: zhook_handle
72 IF (lhook) CALL dr_hook(
'DEFAULT_DIAG_SEAFLUX',0,zhook_handle)
75 osurf_budget = .false.
85 odiag_seaice = .false.
87 osurf_budgetc = .false.
88 oreset_budgetc= .false.
92 IF (lhook) CALL dr_hook(
'DEFAULT_DIAG_SEAFLUX',1,zhook_handle)
subroutine default_diag_seaflux(K2M, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, ODIAG_OCEAN, ODIAG_SEAICE, OSURF_BUDGETC, ORESET_BUDGETC, PDIAG_TSTEP)