7 osurf_budgetc,oreset_budgetc,pdiag_tstep )
44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
53 INTEGER,
INTENT(OUT) :: k2m
54 LOGICAL,
INTENT(OUT) :: osurf_budget
55 LOGICAL,
INTENT(OUT) :: o2m_min_zs
56 LOGICAL,
INTENT(OUT) :: orad_budget
57 LOGICAL,
INTENT(OUT) :: ocoef
58 LOGICAL,
INTENT(OUT) :: osurf_vars
59 LOGICAL,
INTENT(OUT) :: osurf_budgetc
60 LOGICAL,
INTENT(OUT) :: oreset_budgetc
61 REAL,
INTENT(OUT) :: pdiag_tstep
62 REAL(KIND=JPRB) :: zhook_handle
69 IF (lhook) CALL dr_hook(
'DEFAULT_DIAG_WATFLUX',0,zhook_handle)
71 osurf_budget = .false.
80 osurf_budgetc= .false.
81 oreset_budgetc= .false.
84 IF (lhook) CALL dr_hook(
'DEFAULT_DIAG_WATFLUX',1,zhook_handle)
subroutine default_diag_watflux(K2M, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, OSURF_BUDGETC, ORESET_BUDGETC, PDIAG_TSTEP)