7 owater_profile,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) :: owater_profile
63 LOGICAL,
INTENT(OUT) :: osurf_budgetc
64 LOGICAL,
INTENT(OUT) :: oreset_budgetc
65 REAL,
INTENT(OUT) :: pdiag_tstep
67 REAL,
DIMENSION(:),
INTENT(OUT) :: pzwat_profile
71 REAL(KIND=JPRB) :: zhook_handle
78 IF (lhook) CALL dr_hook(
'DEFAULT_DIAG_FLAKE',0,zhook_handle)
81 osurf_budget = .false.
90 owater_profile = .false.
92 osurf_budgetc= .false.
93 oreset_budgetc= .false.
98 pzwat_profile = xundef
99 IF (lhook) CALL dr_hook(
'DEFAULT_DIAG_FLAKE',1,zhook_handle)
subroutine default_diag_flake(K2M, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, OWATER_PROFILE, OSURF_BUDGETC, ORESET_BUDGETC, PDIAG_TSTEP, PZWAT_PROFILE)