7 ocoef,osurf_vars,osurf_evap_budget, &
8 osurf_misc_budget,osurf_diag_albedo, &
9 osurf_budgetc,osurf_misc_dif, &
10 opatch_budget,opgd,oreset_budgetc, &
11 owater_budget,pdiag_tstep )
54 USE yomhook
,ONLY : lhook, dr_hook
55 USE parkind1
,ONLY : jprb
63 INTEGER,
INTENT(OUT) :: k2m
64 LOGICAL,
INTENT(OUT) :: osurf_budget
65 LOGICAL,
INTENT(OUT) :: o2m_min_zs
66 LOGICAL,
INTENT(OUT) :: orad_budget
67 LOGICAL,
INTENT(OUT) :: ocoef
68 LOGICAL,
INTENT(OUT) :: osurf_vars
69 LOGICAL,
INTENT(OUT) :: osurf_evap_budget
70 LOGICAL,
INTENT(OUT) :: osurf_misc_budget
71 LOGICAL,
INTENT(OUT) :: osurf_diag_albedo
72 LOGICAL,
INTENT(OUT) :: osurf_budgetc
73 LOGICAL,
INTENT(OUT) :: osurf_misc_dif
74 LOGICAL,
INTENT(OUT) :: opatch_budget
75 LOGICAL,
INTENT(OUT) :: opgd
76 LOGICAL,
INTENT(OUT) :: oreset_budgetc
77 LOGICAL,
INTENT(OUT) :: owater_budget
78 REAL,
INTENT(OUT) :: pdiag_tstep
79 REAL(KIND=JPRB) :: zhook_handle
86 IF (lhook) CALL dr_hook(
'DEFAULT_DIAG_ISBA',0,zhook_handle)
88 osurf_budget = .false.
96 osurf_evap_budget = .false.
97 osurf_misc_budget = .false.
98 osurf_misc_dif = .false.
100 osurf_diag_albedo = .false.
102 osurf_budgetc = .false.
104 opatch_budget = .true.
107 oreset_budgetc = .false.
109 owater_budget = .false.
112 IF (lhook) CALL dr_hook(
'DEFAULT_DIAG_ISBA',1,zhook_handle)
subroutine default_diag_isba(K2M, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, OSURF_EVAP_BUDGET, OSURF_MISC_BUDGET, OSURF_DIAG_ALBEDO, OSURF_BUDGETC, OSURF_MISC_DIF, OPATCH_BUDGET, OPGD, ORESET_BUDGETC, OWATER_BUDGET, PDIAG_TSTEP)