6 SUBROUTINE default_diag_teb (K2M,OSURF_BUDGET,O2M_MIN_ZS,ORAD_BUDGET,OCOEF,OSURF_VARS, &
7 osurf_misc_budget,osurf_diag_albedo,outci,opgd,opgd_fix,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) :: osurf_misc_budget
61 LOGICAL,
INTENT(OUT) :: osurf_diag_albedo
62 LOGICAL,
INTENT(OUT) :: outci
63 LOGICAL,
INTENT(OUT) :: opgd
64 LOGICAL,
INTENT(OUT) :: opgd_fix
65 REAL,
INTENT(OUT) :: pdiag_tstep
66 REAL(KIND=JPRB) :: zhook_handle
73 IF (lhook) CALL dr_hook(
'DEFAULT_DIAG_TEB',0,zhook_handle)
75 osurf_budget = .false.
84 osurf_misc_budget = .false.
85 osurf_diag_albedo = .false.
93 IF (lhook) CALL dr_hook(
'DEFAULT_DIAG_TEB',1,zhook_handle)
subroutine default_diag_teb(K2M, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, OSURF_MISC_BUDGET, OSURF_DIAG_ALBEDO, OUTCI, OPGD, OPGD_FIX, PDIAG_TSTEP)