40 USE yomhook
,ONLY : lhook, dr_hook
41 USE parkind1
,ONLY : jprb
45 CHARACTER(LEN=4) :: CWAT_ALB
51 LOGICAL :: LSURF_BUDGET
52 LOGICAL :: LRAD_BUDGET
53 LOGICAL :: LSURF_BUDGETC
54 LOGICAL :: LRESET_BUDGETC
57 CHARACTER(LEN=6) :: CCH_DRY_DEP
58 CHARACTER(LEN=6) :: CINTERPOL_TS
60 namelist/nam_watfluxn/cwat_alb,cinterpol_ts
61 namelist/nam_diag_surfn/n2m,l2m_min_zs,lsurf_budget,lrad_budget, &
62 lsurf_budgetc,lreset_budgetc,lcoef,lsurf_vars
63 namelist/nam_ch_watfluxn/cch_dry_dep
75 REAL(KIND=JPRB) :: zhook_handle
77 IF (lhook) CALL dr_hook(
'MODN_WATFLUX_N:INIT_NAM_WATFLUXN',0,zhook_handle)
79 xout_tstep = w%XOUT_TSTEP
81 cinterpol_ts = w%CINTERPOL_TS
82 IF (lhook) CALL dr_hook(
'MODN_WATFLUX_N:INIT_NAM_WATFLUXN',1,zhook_handle)
93 REAL(KIND=JPRB) :: zhook_handle
95 IF (lhook) CALL dr_hook(
'MODN_WATFLUX_N:UPDATE_NAM_WATFLUXN',0,zhook_handle)
97 w%XOUT_TSTEP = xout_tstep
99 w%CINTERPOL_TS = cinterpol_ts
100 IF (lhook) CALL dr_hook(
'MODN_WATFLUX_N:UPDATE_NAM_WATFLUXN',1,zhook_handle)
111 REAL(KIND=JPRB) :: zhook_handle
113 IF (lhook) CALL dr_hook(
'MODN_WATFLUX_N:INIT_NAM_DIAG_SURFN',0,zhook_handle)
114 xdiag_tstep = dgw%XDIAG_TSTEP
116 l2m_min_zs = dgw%L2M_MIN_ZS
117 lsurf_budget = dgw%LSURF_BUDGET
118 lrad_budget = dgw%LRAD_BUDGET
119 lsurf_budgetc = dgw%LSURF_BUDGETC
120 lreset_budgetc = dgw%LRESET_BUDGETC
122 lsurf_vars = dgw%LSURF_VARS
123 IF (lhook) CALL dr_hook(
'MODN_WATFLUX_N:INIT_NAM_DIAG_SURFN',1,zhook_handle)
134 REAL(KIND=JPRB) :: zhook_handle
136 IF (lhook) CALL dr_hook(
'MODN_WATFLUX_N:UPDATE_NAM_DIAG_SURFN',0,zhook_handle)
137 dgw%XDIAG_TSTEP = xdiag_tstep
139 dgw%L2M_MIN_ZS = l2m_min_zs
140 dgw%LSURF_BUDGET = lsurf_budget
141 dgw%LRAD_BUDGET = lrad_budget
142 dgw%LSURF_BUDGETC = lsurf_budgetc
143 dgw%LRESET_BUDGETC = lreset_budgetc
145 dgw%LSURF_VARS = lsurf_vars
146 IF (lhook) CALL dr_hook(
'MODN_WATFLUX_N:UPDATE_NAM_DIAG_SURFN',1,zhook_handle)
157 REAL(KIND=JPRB) :: zhook_handle
159 IF (lhook) CALL dr_hook(
'MODN_WATFLUX_N:INIT_NAM_CH_WATFLUXN',0,zhook_handle)
160 cch_dry_dep = chw%CCH_DRY_DEP
161 IF (lhook) CALL dr_hook(
'MODN_WATFLUX_N:INIT_NAM_CH_WATFLUXN',1,zhook_handle)
172 REAL(KIND=JPRB) :: zhook_handle
174 IF (lhook) CALL dr_hook(
'MODN_WATFLUX_N:UPDATE_NAM_CH_WATFLUXN',0,zhook_handle)
175 chw%CCH_DRY_DEP = cch_dry_dep
176 IF (lhook) CALL dr_hook(
'MODN_WATFLUX_N:UPDATE_NAM_CH_WATFLUXN',1,zhook_handle)
subroutine init_nam_watfluxn(W)
subroutine init_nam_ch_watfluxn(CHW)
subroutine init_nam_diag_surfn(DGF)
subroutine update_nam_diag_surfn(DGF)
subroutine update_nam_watfluxn(W)
subroutine update_nam_ch_watfluxn(CHW)