7 ocoef,osurf_vars,osurf_budgetc, &
8 oreset_budgetc, oselect, oprovar_to_diag,&
9 odiag_grid, ofrac, pdiag_tstep, cselect )
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
58 INTEGER,
INTENT(OUT) :: k2m
59 LOGICAL,
INTENT(OUT) :: ot2mmw
60 LOGICAL,
INTENT(OUT) :: osurf_budget
61 LOGICAL,
INTENT(OUT) :: o2m_min_zs
62 LOGICAL,
INTENT(OUT) :: orad_budget
63 LOGICAL,
INTENT(OUT) :: ocoef
64 LOGICAL,
INTENT(OUT) :: osurf_vars
65 LOGICAL,
INTENT(OUT) :: osurf_budgetc
66 LOGICAL,
INTENT(OUT) :: oreset_budgetc
67 LOGICAL,
INTENT(OUT) :: oselect
68 LOGICAL,
INTENT(OUT) :: oprovar_to_diag
69 LOGICAL,
INTENT(OUT) :: odiag_grid
70 LOGICAL,
INTENT(OUT) :: ofrac
71 REAL,
INTENT(OUT) :: pdiag_tstep
72 CHARACTER(LEN=12),
DIMENSION(200),
INTENT(OUT),
OPTIONAL :: cselect
73 REAL(KIND=JPRB) :: zhook_handle
80 IF (lhook) CALL dr_hook(
'DEFAULT_DIAG_SURF_ATM',0,zhook_handle)
84 osurf_budget = .false.
93 osurf_budgetc = .false.
94 oreset_budgetc = .false.
98 oprovar_to_diag = .false.
106 IF (present(cselect)) cselect(:) =
' '
107 IF (lhook) CALL dr_hook(
'DEFAULT_DIAG_SURF_ATM',1,zhook_handle)
subroutine default_diag_surf_atm(K2M, OT2MMW, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, OSURF_BUDGETC, ORESET_BUDGETC, OSELECT, OPROVAR_TO_DIAG, ODIAG_GRID, OFRAC, PDIAG_TSTEP, CSELECT)