40 USE yomhook
,ONLY : lhook, dr_hook
41 USE parkind1
,ONLY : jprb
50 LOGICAL :: LSURF_BUDGET
51 LOGICAL :: LRAD_BUDGET
52 LOGICAL :: LSURF_BUDGETC
53 LOGICAL :: LRESET_BUDGETC
56 CHARACTER(LEN=6) :: CCH_DRY_DEP
60 CHARACTER(LEN=3) :: CSNOW_FLK
61 CHARACTER(LEN=5) :: CFLK_FLUX
62 CHARACTER(LEN=4) :: CFLK_ALB
64 LOGICAL :: LWATER_PROFILE
65 REAL,
DIMENSION(100) :: XZWAT_PROFILE
67 namelist/nam_diag_flaken/lwater_profile,xzwat_profile
68 namelist/nam_flaken/lsediments,csnow_flk, cflk_flux, cflk_alb, &
70 namelist/nam_diag_surfn/n2m,l2m_min_zs,lsurf_budget,lrad_budget, &
71 lsurf_budgetc,lreset_budgetc,lcoef,lsurf_vars
72 namelist/nam_ch_flaken/cch_dry_dep
83 TYPE(flake_t),
INTENT(INOUT) :: f
84 REAL(KIND=JPRB) :: zhook_handle
86 IF (lhook) CALL dr_hook(
'MODN_FLAKE_N:INIT_NAM_FLAKEN',0,zhook_handle)
88 xout_tstep=f%XOUT_TSTEP
89 lsediments=f%LSEDIMENTS
94 IF (lhook) CALL dr_hook(
'MODN_FLAKE_N:INIT_NAM_FLAKEN',1,zhook_handle)
104 TYPE(flake_t),
INTENT(INOUT) :: f
105 REAL(KIND=JPRB) :: zhook_handle
107 IF (lhook) CALL dr_hook(
'MODN_FLAKE_N:UPDATE_NAM_FLAKEN',0,zhook_handle)
108 f%XTSTEP = xout_tstep
109 f%XOUT_TSTEP = xout_tstep
110 f%LSEDIMENTS = lsediments
111 f%LSKINTEMP = lskintemp
112 f%CFLK_FLUX=cflk_flux
114 f%CSNOW_FLK=csnow_flk
115 IF (lhook) CALL dr_hook(
'MODN_FLAKE_N:UPDATE_NAM_FLAKEN',1,zhook_handle)
126 REAL(KIND=JPRB) :: zhook_handle
128 IF (lhook) CALL dr_hook(
'MODN_FLAKE_N:INIT_NAM_DIAG_SURFN',0,zhook_handle)
129 xdiag_tstep = dgf%XDIAG_TSTEP
131 l2m_min_zs = dgf%L2M_MIN_ZS
132 lsurf_budget = dgf%LSURF_BUDGET
133 lrad_budget = dgf%LRAD_BUDGET
134 lsurf_budgetc = dgf%LSURF_BUDGETC
135 lreset_budgetc = dgf%LRESET_BUDGETC
137 lsurf_vars = dgf%LSURF_VARS
138 IF (lhook) CALL dr_hook(
'MODN_FLAKE_N:INIT_NAM_DIAG_SURFN',1,zhook_handle)
149 REAL(KIND=JPRB) :: zhook_handle
151 IF (lhook) CALL dr_hook(
'MODN_FLAKE_N:UPDATE_NAM_DIAG_SURFN',0,zhook_handle)
152 dgf%XDIAG_TSTEP = xdiag_tstep
154 dgf%L2M_MIN_ZS = l2m_min_zs
155 dgf%LSURF_BUDGET = lsurf_budget
156 dgf%LRAD_BUDGET = lrad_budget
157 dgf%LSURF_BUDGETC = lsurf_budgetc
158 dgf%LRESET_BUDGETC = lreset_budgetc
160 dgf%LSURF_VARS = lsurf_vars
161 IF (lhook) CALL dr_hook(
'MODN_FLAKE_N:UPDATE_NAM_DIAG_SURFN',1,zhook_handle)
172 REAL(KIND=JPRB) :: zhook_handle
174 IF (lhook) CALL dr_hook(
'MODN_FLAKE_N:INIT_NAM_DIAG_FLAKEN',0,zhook_handle)
175 lwater_profile = dgmf%LWATER_PROFILE
176 xzwat_profile = dgmf%XZWAT_PROFILE
177 IF (lhook) CALL dr_hook(
'MODN_FLAKE_N:INIT_NAM_DIAG_FLAKEN',1,zhook_handle)
188 REAL(KIND=JPRB) :: zhook_handle
190 IF (lhook) CALL dr_hook(
'MODN_FLAKE_N:UPDATE_NAM_DIAG_FLAKEN',0,zhook_handle)
191 dgmf%LWATER_PROFILE = lwater_profile
192 dgmf%XZWAT_PROFILE = xzwat_profile
193 IF (lhook) CALL dr_hook(
'MODN_FLAKE_N:UPDATE_NAM_DIAG_FLAKEN',1,zhook_handle)
204 REAL(KIND=JPRB) :: zhook_handle
206 IF (lhook) CALL dr_hook(
'MODN_FLAKE_N:INIT_NAM_CH_FLAKEN',0,zhook_handle)
207 cch_dry_dep = chf%CCH_DRY_DEP
208 IF (lhook) CALL dr_hook(
'MODN_FLAKE_N:INIT_NAM_CH_FLAKEN',1,zhook_handle)
219 REAL(KIND=JPRB) :: zhook_handle
221 IF (lhook) CALL dr_hook(
'MODN_FLAKE_N:UPDATE_NAM_CH_FLAKEn',0,zhook_handle)
222 chf%CCH_DRY_DEP = cch_dry_dep
223 IF (lhook) CALL dr_hook(
'MODN_FLAKE_N:UPDATE_NAM_CH_FLAKEn',1,zhook_handle)
subroutine init_nam_ch_flaken(CHF)
subroutine init_nam_diag_flaken(DGMF)
subroutine init_nam_diag_surfn(DGF)
subroutine update_nam_flaken(F)
subroutine update_nam_ch_flaken(CHF)
subroutine update_nam_diag_surfn(DGF)
subroutine init_nam_flaken(F)
subroutine update_nam_diag_flaken(DGMF)