7 ocoef,osurf_vars,osurf_budgetc, &
8 oreset_budgetc,onowrite_texfile, &
9 oselect,kluout,oprovar_to_diag)
44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
53 INTEGER,
INTENT(INOUT) :: k2m
54 LOGICAL,
INTENT(INOUT) :: osurf_budget
55 LOGICAL,
INTENT(INOUT) :: o2m_min_zs
56 LOGICAL,
INTENT(INOUT) :: orad_budget
57 LOGICAL,
INTENT(INOUT) :: ocoef
58 LOGICAL,
INTENT(INOUT) :: osurf_vars
59 LOGICAL,
INTENT(INOUT) :: onowrite_texfile
60 INTEGER,
INTENT(IN) :: kluout
61 LOGICAL,
INTENT(INOUT) :: osurf_budgetc
62 LOGICAL,
INTENT(INOUT) :: oreset_budgetc
63 LOGICAL,
INTENT(INOUT) :: oselect
64 LOGICAL,
INTENT(INOUT) :: oprovar_to_diag
65 REAL(KIND=JPRB) :: zhook_handle
72 IF (lhook) CALL dr_hook(
'PREP_CTRL_SURF_ATM',0,zhook_handle)
75 osurf_budget = .false.
81 osurf_budgetc = .false.
82 oreset_budgetc = .false.
84 onowrite_texfile = .true.
86 oprovar_to_diag = .false.
88 WRITE(kluout,*)
'SURF_ATM DIAGNOSTICS DESACTIVATED'
89 IF (lhook) CALL dr_hook(
'PREP_CTRL_SURF_ATM',1,zhook_handle)
subroutine prep_ctrl_surf_atm(K2M, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, OSURF_BUDGETC, ORESET_BUDGETC, ONOWRITE_TEXFILE, OSELECT, KLUOUT, OPROVAR_TO_DIAG)