38 USE yomhook
,ONLY : lhook, dr_hook
39 USE parkind1
,ONLY : jprb
46 LOGICAL :: LSURF_BUDGET
47 LOGICAL :: LRAD_BUDGET
48 LOGICAL :: LSURF_BUDGETC
49 LOGICAL :: LRESET_BUDGETC
53 namelist/nam_diag_surfn/n2m,l2m_min_zs,lsurf_budget,lrad_budget, &
54 lsurf_budgetc,lreset_budgetc,lcoef,lsurf_vars
66 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'MODN_IDEAL_N:INIT_NAM_DIAG_SURFN',0,zhook_handle)
69 xdiag_tstep = dgl%XDIAG_TSTEP
71 l2m_min_zs = dgl%L2M_MIN_ZS
72 lsurf_budget = dgl%LSURF_BUDGET
73 lrad_budget = dgl%LRAD_BUDGET
74 lsurf_budgetc = dgl%LSURF_BUDGETC
75 lreset_budgetc = dgl%LRESET_BUDGETC
77 lsurf_vars = dgl%LSURF_VARS
78 IF (lhook) CALL dr_hook(
'MODN_IDEAL_N:INIT_NAM_DIAG_SURFN',1,zhook_handle)
89 REAL(KIND=JPRB) :: zhook_handle
91 IF (lhook) CALL dr_hook(
'MODN_IDEAL_N:UPDATE_NAM_DIAG_SURFN',0,zhook_handle)
92 dgl%XDIAG_TSTEP = xdiag_tstep
94 dgl%L2M_MIN_ZS = l2m_min_zs
95 dgl%LSURF_BUDGET = lsurf_budget
96 dgl%LRAD_BUDGET = lrad_budget
97 dgl%LSURF_BUDGETC = lsurf_budgetc
98 dgl%LRESET_BUDGETC = lreset_budgetc
100 dgl%LSURF_VARS = lsurf_vars
101 IF (lhook) CALL dr_hook(
'MODN_IDEAL_N:UPDATE_NAM_DIAG_SURFN',1,zhook_handle)
subroutine init_nam_diag_surfn(DGF)
subroutine update_nam_diag_surfn(DGF)