1 | !> @file land_surface_model_mod.f90 |
---|
2 | !------------------------------------------------------------------------------! |
---|
3 | ! This file is part of the PALM model system. |
---|
4 | ! |
---|
5 | ! PALM is free software: you can redistribute it and/or modify it under the |
---|
6 | ! terms of the GNU General Public License as published by the Free Software |
---|
7 | ! Foundation, either version 3 of the License, or (at your option) any later |
---|
8 | ! version. |
---|
9 | ! |
---|
10 | ! PALM is distributed in the hope that it will be useful, but WITHOUT ANY |
---|
11 | ! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR |
---|
12 | ! A PARTICULAR PURPOSE. See the GNU General Public License for more details. |
---|
13 | ! |
---|
14 | ! You should have received a copy of the GNU General Public License along with |
---|
15 | ! PALM. If not, see <http://www.gnu.org/licenses/>. |
---|
16 | ! |
---|
17 | ! Copyright 1997-2019 Leibniz Universitaet Hannover |
---|
18 | !------------------------------------------------------------------------------! |
---|
19 | ! |
---|
20 | ! Current revisions: |
---|
21 | ! ----------------- |
---|
22 | ! |
---|
23 | ! |
---|
24 | ! Former revisions: |
---|
25 | ! ----------------- |
---|
26 | ! $Id: land_surface_model_mod.f90 4258 2019-10-07 13:29:08Z suehring $ |
---|
27 | ! - Revise limitation for soil moisture in case it exceeds its saturation |
---|
28 | !  value (J. Resler) |
---|
29 | ! - Revise initialization of soil moisture and temperature in a nested run in |
---|
30 | !  case dynamic input information is available. This case, the soil within |
---|
31 | !  the child domains can be initialized separately. (J. Resler, M. Suehring) |
---|
32 | ! - As part of this revision, migrate the netcdf input of soil temperature / |
---|
33 | !  moisture to this module, as well as the routine to inter/extrapolate soil |
---|
34 | !  profiles between different grids. |
---|
35 | ! |
---|
36 | ! 4251 2019-10-02 12:07:38Z maronga |
---|
37 | ! Bugfix: albedo_types for vegetation_type look-up table corrected. |
---|
38 | ! |
---|
39 | ! 4201 2019-08-29 15:47:27Z suehring |
---|
40 | ! - Limit soil moisture to its saturation moisture and give a respective |
---|
41 | !  warning rather than an error. |
---|
42 | ! - Perform checks for soil temperature only when there is no dynamic input |
---|
43 | !  file for the parent or possible child domains. |
---|
44 | ! |
---|
45 | ! 4194 2019-08-28 08:09:44Z suehring |
---|
46 | ! Apply more strict limitation of z0 over water surfaces in case it exceeds the |
---|
47 | ! surface-layer height, in order to avoid instabilities. |
---|
48 | ! |
---|
49 | ! 4188 2019-08-26 14:15:47Z suehring |
---|
50 | ! Minor adjustment in error numbers, typos corrected |
---|
51 | ! |
---|
52 | ! 4187 2019-08-26 12:43:15Z suehring |
---|
53 | ! Adjust message call in case of local checks |
---|
54 | ! |
---|
55 | ! 4182 2019-08-22 15:20:23Z scharf |
---|
56 | ! Corrected "Former revisions" section |
---|
57 | ! |
---|
58 | ! 4118 2019-07-25 16:11:45Z suehring |
---|
59 | ! Initialization of soil temperature and moisture via dynamic input file only |
---|
60 | ! for vegetation and pavement surfaces. |
---|
61 | ! |
---|
62 | ! 4110 2019-07-22 17:05:21Z suehring |
---|
63 | ! Relax checks for non-consistent initialization in case static or dynamic |
---|
64 | ! input is provided. For example, soil_temperature or deep_soil_temperature |
---|
65 | ! is not mandatory any more if dynamic input is available. Also, improper |
---|
66 | ! settings of x_type in namelist are only checked if no static file is |
---|
67 | ! available. |
---|
68 | ! |
---|
69 | ! 4109 2019-07-22 17:00:34Z suehring |
---|
70 | ! Further revision of last commit in order to avoid any side effects when |
---|
71 | ! albedo type is not set in namelist and default albedo type changes. |
---|
72 | ! |
---|
73 | ! 4024 2019-06-12 14:06:46Z suehring |
---|
74 | ! Bugfix in albedo initialization, caused crashes in rrtmg calls |
---|
75 | ! |
---|
76 | ! 3987 2019-05-22 09:52:13Z kanani |
---|
77 | ! Introduce alternative switch for debug output during timestepping |
---|
78 | ! |
---|
79 | ! 3964 2019-05-09 09:48:32Z suehring |
---|
80 | ! In a nested child domain, distinguish between soil moisture and temperature |
---|
81 | ! initialization from parent via dynamic input file. Further, initialize soil |
---|
82 | ! moisture/temperature from dynamic input file only when initialization via |
---|
83 | ! 'inifor' is desired. |
---|
84 | ! |
---|
85 | ! 3943 2019-05-02 09:50:41Z maronga |
---|
86 | ! Removed extra blank character |
---|
87 | ! |
---|
88 | ! 3941 2019-04-30 09:48:33Z suehring |
---|
89 | ! Check that at least one surface type is set at surface element. |
---|
90 | ! |
---|
91 | ! 3933 2019-04-25 12:33:20Z kanani |
---|
92 | ! Remove unused subroutine and allocation of pt_2m, this is done in surface_mod |
---|
93 | ! now (surfaces%pt_2m) |
---|
94 | ! |
---|
95 | ! |
---|
96 | ! Changes related to global restructuring of location messages and introduction |
---|
97 | ! of additional debug messages |
---|
98 | ! |
---|
99 | ! 3881 2019-04-10 09:31:22Z suehring |
---|
100 | ! Bugfix in level 3 initialization of pavement albedo type and pavement |
---|
101 | ! emissivity |
---|
102 | ! |
---|
103 | ! 3868 2019-04-08 11:52:36Z suehring |
---|
104 | ! More strict limitation of roughness length when it is in the order of the |
---|
105 | ! vertical grid spacing |
---|
106 | ! |
---|
107 | ! 3856 2019-04-03 11:06:59Z suehring |
---|
108 | ! Bugfix in lsm_init in case no surface-fractions are provided |
---|
109 | ! |
---|
110 | ! 3847 2019-04-01 14:51:44Z suehring |
---|
111 | ! Adjust message-call for checks that are especially carried out locally. |
---|
112 | ! |
---|
113 | ! 3832 2019-03-28 13:16:58Z raasch |
---|
114 | ! instrumented with openmp directives |
---|
115 | ! |
---|
116 | ! 3786 2019-03-06 16:58:03Z raasch |
---|
117 | ! further unused variables removed |
---|
118 | ! |
---|
119 | ! 3767 2019-02-27 08:18:02Z raasch |
---|
120 | ! unused variable for file index removed from rrd-subroutines parameter list |
---|
121 | ! |
---|
122 | ! 3715 2019-02-04 17:34:55Z suehring |
---|
123 | ! Revise check for saturation moisture |
---|
124 | ! |
---|
125 | ! 3710 2019-01-30 18:11:19Z suehring |
---|
126 | ! Check if soil-, water-, pavement- and vegetation types are set within a valid |
---|
127 | ! range. |
---|
128 | ! |
---|
129 | ! 3692 2019-01-23 14:45:49Z suehring |
---|
130 | ! Revise check for soil moisture higher than its saturation value |
---|
131 | ! |
---|
132 | ! 3685 2019-01-21 01:02:11Z knoop |
---|
133 | ! Some interface calls moved to module_interface + cleanup |
---|
134 | ! |
---|
135 | ! 3677 2019-01-17 09:07:06Z moh.hefny |
---|
136 | ! Removed most_method |
---|
137 | ! |
---|
138 | ! 3655 2019-01-07 16:51:22Z knoop |
---|
139 | ! nopointer option removed |
---|
140 | ! |
---|
141 | ! 1496 2014-12-02 17:25:50Z maronga |
---|
142 | ! Initial revision |
---|
143 | ! |
---|
144 | ! |
---|
145 | ! Description: |
---|
146 | ! ------------ |
---|
147 | !> Land surface model, consisting of a solver for the energy balance at the |
---|
148 | !> surface and a multi layer soil scheme. The scheme is similar to the TESSEL |
---|
149 | !> scheme implemented in the ECMWF IFS model, with modifications according to |
---|
150 | !> H-TESSEL. The implementation is based on the formulation implemented in the |
---|
151 | !> DALES and UCLA-LES models. |
---|
152 | !> |
---|
153 | !> @todo Extensive verification energy-balance solver for vertical surfaces, |
---|
154 | !>Â Â Â Â e.g. parametrization of r_a |
---|
155 | !> @todo Revise single land-surface processes for vertical surfaces, e.g. |
---|
156 | !>Â Â Â Â treatment of humidity, etc. |
---|
157 | !> @todo Consider partial absorption of the net shortwave radiation by the |
---|
158 | !>Â Â Â Â skin layer. |
---|
159 | !> @todo Improve surface water parameterization |
---|
160 | !> @todo Invert indices (running from -3 to 0. Currently: nzb_soil=0, |
---|
161 | !>Â Â Â Â nzt_soil=3)). |
---|
162 | !> @todo Implement surface runoff model (required when performing long-term LES |
---|
163 | !>Â Â Â Â with considerable precipitation. |
---|
164 | !> @todo Revise calculation of f2 when wilting point is non-constant in the |
---|
165 | !>Â Â Â Â soil |
---|
166 | !> @todo Allow for zero soil moisture (currently, it is set to wilting point) |
---|
167 | !> @note No time step criterion is required as long as the soil layers do not |
---|
168 | !>Â Â Â Â become too thin. |
---|
169 | !> @todo Attention, pavement_subpars_1/2 are hardcoded to 8 levels, in case |
---|
170 | !>Â Â Â Â more levels are used this may cause an potential bug |
---|
171 | !> @todo Routine calc_q_surface required? |
---|
172 | !> @todo Allow for precipitation water to enter pavements that are semi-pervious |
---|
173 | !------------------------------------------------------------------------------! |
---|
174 | Â MODULE land_surface_model_mod |
---|
175 | Â |
---|
176 |   USE arrays_3d,                               & |
---|
177 |     ONLY: hyp, pt, prr, q, q_p, ql, vpt, u, v, w, hyrho, exner, d_exner |
---|
178 | |
---|
179 |   USE basic_constants_and_equations_mod,                   & |
---|
180 |     ONLY: c_p, g, lv_d_cp, l_v, kappa, magnus, rho_l, r_d, r_v, rd_d_rv |
---|
181 | |
---|
182 |   USE calc_mean_profile_mod,                         & |
---|
183 | Â Â Â Â ONLY:Â calc_mean_profile |
---|
184 | |
---|
185 |   USE control_parameters,                          & |
---|
186 |     ONLY: cloud_droplets,                         & |
---|
187 |         coupling_char,                         & |
---|
188 |         coupling_start_time,                      & |
---|
189 |         debug_output, debug_output_timestep, debug_string,       & |
---|
190 |         dt_3d,                             & |
---|
191 |         end_time, humidity, intermediate_timestep_count,        & |
---|
192 |         initializing_actions, intermediate_timestep_count_max,     & |
---|
193 |         land_surface, max_masks, pt_surface,              & |
---|
194 |         rho_surface, spinup, spinup_pt_mean, spinup_time,        & |
---|
195 |         surface_pressure, timestep_scheme, tsc,             & |
---|
196 | Â Â Â Â Â Â Â Â time_since_reference_point |
---|
197 | Â Â Â Â Â Â Â Â |
---|
198 |   USE cpulog,                                & |
---|
199 |     ONLY: cpu_log, log_point_s |
---|
200 | |
---|
201 |   USE indices,                                & |
---|
202 |     ONLY: nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb |
---|
203 | |
---|
204 |   USE bulk_cloud_model_mod,                         & |
---|
205 |     ONLY: bulk_cloud_model, precipitation |
---|
206 | |
---|
207 |   USE netcdf_data_input_mod,                         & |
---|
208 |     ONLY : building_type_f,                        & |
---|
209 |         char_fill,                           & |
---|
210 |         char_lod,                           & |
---|
211 |         check_existence,                        & |
---|
212 |         close_input_file,                       & |
---|
213 |         get_attribute,                         & |
---|
214 |         get_dimension_length,                     & |
---|
215 |         get_variable,                         & |
---|
216 |         init_3d,                            & |
---|
217 |         input_file_dynamic,                      & |
---|
218 |         input_pids_dynamic,                      & |
---|
219 |         input_pids_static,                       & |
---|
220 |         inquire_num_variables,                     & |
---|
221 |         inquire_variable_names,                    & |
---|
222 |         num_var_pids,                         & |
---|
223 |         open_read_file,                        & |
---|
224 |         pids_id,                            & |
---|
225 |         pavement_pars_f,                        & |
---|
226 |         pavement_subsurface_pars_f,                  & |
---|
227 |         pavement_type_f,                        & |
---|
228 |         root_area_density_lsm_f,                    & |
---|
229 |         soil_pars_f,                          & |
---|
230 |         soil_type_f,                          & |
---|
231 |         surface_fraction_f,                      & |
---|
232 |         vars_pids,                           & |
---|
233 |         vegetation_pars_f,                       & |
---|
234 |         vegetation_type_f,                       & |
---|
235 |         water_pars_f,                         & |
---|
236 |         water_type_f       |
---|
237 | |
---|
238 | Â Â USE kinds |
---|
239 | |
---|
240 | Â Â USE pegrid |
---|
241 | |
---|
242 |   USE radiation_model_mod,                          & |
---|
243 |     ONLY: albedo, albedo_type, emissivity, force_radiation_call,     & |
---|
244 |         radiation, radiation_scheme, unscheduled_radiation_calls |
---|
245 | Â Â Â Â |
---|
246 |   USE statistics,                              & |
---|
247 |     ONLY: hom, statistic_regions |
---|
248 | |
---|
249 |   USE surface_mod,                              & |
---|
250 |     ONLY : ind_pav_green, ind_veg_wall, ind_wat_win,           & |
---|
251 |         surf_lsm_h, surf_lsm_v, surf_type, surface_restore_elements |
---|
252 | |
---|
253 | Â Â IMPLICIT NONE |
---|
254 | |
---|
255 | Â Â TYPE surf_type_lsm |
---|
256 |     REAL(wp), DIMENSION(:),  ALLOCATABLE :: var_1d !< 1D prognostic variable |
---|
257 |     REAL(wp), DIMENSION(:,:), ALLOCATABLE :: var_2d !< 2D prognostic variable |
---|
258 | Â Â END TYPE surf_type_lsm |
---|
259 | |
---|
260 | ! |
---|
261 | !-- LSM model constants |
---|
262 | |
---|
263 |   REAL(wp), PARAMETER ::          & |
---|
264 |        b_ch        = 6.04_wp,  & ! Clapp & Hornberger exponent |
---|
265 |        lambda_h_dry    = 0.19_wp,  & ! heat conductivity for dry soil (W/m/K) |
---|
266 |        lambda_h_sm    = 3.44_wp,  & ! heat conductivity of the soil matrix (W/m/K) |
---|
267 |        lambda_h_water   = 0.57_wp,  & ! heat conductivity of water (W/m/K) |
---|
268 |        psi_sat      = -0.388_wp, & ! soil matrix potential at saturation |
---|
269 |        rho_c_soil     = 2.19E6_wp, & ! volumetric heat capacity of soil (J/m3/K) |
---|
270 |        rho_c_water    = 4.20E6_wp, & ! volumetric heat capacity of water (J/m3/K) |
---|
271 |        m_max_depth    = 0.0002_wp   ! Maximum capacity of the water reservoir (m) |
---|
272 | |
---|
273 | |
---|
274 |   REAL(wp), DIMENSION(0:7), PARAMETER :: dz_soil_default =         & ! default soil layer configuration |
---|
275 |                       (/ 0.01_wp, 0.02_wp, 0.04_wp,   & |
---|
276 |                         0.06_wp, 0.14_wp, 0.26_wp,   & |
---|
277 |                         0.54_wp, 1.86_wp/) |
---|
278 | |
---|
279 |   REAL(wp), DIMENSION(0:3), PARAMETER :: dz_soil_ref =           & ! reference four layer soil configuration used for estimating the root fractions |
---|
280 |                       (/ 0.07_wp, 0.21_wp, 0.72_wp,   & |
---|
281 |                         1.89_wp /) |
---|
282 | |
---|
283 |   REAL(wp), DIMENSION(0:3), PARAMETER :: zs_ref =              & ! reference four layer soil configuration used for estimating the root fractions |
---|
284 |                       (/ 0.07_wp, 0.28_wp, 1.0_wp,    & |
---|
285 |                         2.89_wp /) |
---|
286 | |
---|
287 | |
---|
288 | ! |
---|
289 | !-- LSM variables |
---|
290 |   CHARACTER(10) :: surface_type = 'netcdf'   !< general classification. Allowed are: |
---|
291 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â !< 'vegetation', 'pavement', ('building'), |
---|
292 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â !< 'water', and 'netcdf' |
---|
293 | |
---|
294 | |
---|
295 | |
---|
296 |   INTEGER(iwp) :: nzb_soil = 0,       & !< bottom of the soil model (Earth's surface) |
---|
297 |           nzt_soil = 7,       & !< top of the soil model |
---|
298 |           nzt_pavement = 0,     & !< top of the pavement within the soil |
---|
299 |           nzs = 8,         & !< number of soil layers |
---|
300 |           pavement_depth_level = 0, & !< default NAMELIST nzt_pavement |
---|
301 |           pavement_type = 1,    & !< default NAMELIST pavement_type         |
---|
302 |           soil_type = 3,      & !< default NAMELIST soil_type |
---|
303 |           vegetation_type = 2,   & !< default NAMELIST vegetation_type |
---|
304 |           water_type = 1       !< default NAMELISt water_type |
---|
305 | Â Â Â Â Â Â Â Â Â Â |
---|
306 | Â Â |
---|
307 | Â Â Â Â |
---|
308 |   LOGICAL :: conserve_water_content = .TRUE., & !< open or closed bottom surface for the soil model |
---|
309 |         constant_roughness = .FALSE.,   & !< use fixed/dynamic roughness lengths for water surfaces |
---|
310 |         force_radiation_call_l = .FALSE., & !< flag to force calling of radiation routine |
---|
311 |         aero_resist_kray = .TRUE.      !< flag to control parametrization of aerodynamic resistance at vertical surface elements |
---|
312 | |
---|
313 | !  value 9999999.9_wp -> generic available or user-defined value must be set |
---|
314 | !  otherwise -> no generic variable and user setting is optional |
---|
315 |   REAL(wp) :: alpha_vangenuchten = 9999999.9_wp,   & !< NAMELIST alpha_vg |
---|
316 |         canopy_resistance_coefficient = 9999999.9_wp, & !< NAMELIST g_d |
---|
317 |         c_surface = 9999999.9_wp,        & !< Surface (skin) heat capacity (J/m2/K) |
---|
318 |         deep_soil_temperature = 9999999.9_wp, & !< Deep soil temperature (bottom boundary condition) |
---|
319 |         drho_l_lv,               & !< (rho_l * l_v)**-1 |
---|
320 |         field_capacity = 9999999.9_wp,     & !< NAMELIST m_fc |
---|
321 |         f_shortwave_incoming = 9999999.9_wp,  & !< NAMELIST f_sw_in |
---|
322 |         hydraulic_conductivity = 9999999.9_wp, & !< NAMELIST gamma_w_sat |
---|
323 |         ke = 0.0_wp,              & !< Kersten number |
---|
324 |         lambda_h_sat = 0.0_wp,         & !< heat conductivity for saturated soil (W/m/K) |
---|
325 |         lambda_surface_stable = 9999999.9_wp,  & !< NAMELIST lambda_surface_s (W/m2/K) |
---|
326 |         lambda_surface_unstable = 9999999.9_wp, & !< NAMELIST lambda_surface_u (W/m2/K) |
---|
327 |         leaf_area_index = 9999999.9_wp,     & !< NAMELIST lai |
---|
328 |         l_vangenuchten = 9999999.9_wp,     & !< NAMELIST l_vg |
---|
329 |         min_canopy_resistance = 9999999.9_wp,  & !< NAMELIST r_canopy_min |
---|
330 |         min_soil_resistance = 50.0_wp,     & !< NAMELIST r_soil_min |
---|
331 |         m_total = 0.0_wp,            & !< weighted total water content of the soil (m3/m3) |
---|
332 |         n_vangenuchten = 9999999.9_wp,     & !< NAMELIST n_vg |
---|
333 |         pavement_heat_capacity = 9999999.9_wp, & !< volumetric heat capacity of pavement (e.g. roads) (J/m3/K) |
---|
334 |         pavement_heat_conduct = 9999999.9_wp, & !< heat conductivity for pavements (e.g. roads) (W/m/K) |
---|
335 |         q_s = 0.0_wp,              & !< saturation water vapor mixing ratio |
---|
336 |         residual_moisture = 9999999.9_wp,    & !< NAMELIST m_res |
---|
337 |         rho_cp,                 & !< rho_surface * cp |
---|
338 |         rho_lv,                 & !< rho_ocean * l_v |
---|
339 |         saturation_moisture = 9999999.9_wp,   & !< NAMELIST m_sat |
---|
340 |         skip_time_do_lsm = 0.0_wp,       & !< LSM is not called before this time |
---|
341 |         vegetation_coverage = 9999999.9_wp,   & !< NAMELIST c_veg |
---|
342 |         water_temperature = 9999999.9_wp,    & !< water temperature |
---|
343 |         wilting_point = 9999999.9_wp,      & !< NAMELIST m_wilt |
---|
344 |         z0_vegetation = 9999999.9_wp,     & !< NAMELIST z0 (lsm_par) |
---|
345 |         z0h_vegetation = 9999999.9_wp,     & !< NAMELIST z0h (lsm_par) |
---|
346 |         z0q_vegetation = 9999999.9_wp,     & !< NAMELIST z0q (lsm_par) |
---|
347 |         z0_pavement  = 9999999.9_wp,     & !< NAMELIST z0 (lsm_par) |
---|
348 |         z0h_pavement  = 9999999.9_wp,     & !< NAMELIST z0h (lsm_par) |
---|
349 |         z0q_pavement  = 9999999.9_wp,     & !< NAMELIST z0q (lsm_par) |
---|
350 |         z0_water    = 9999999.9_wp,     & !< NAMELIST z0 (lsm_par) |
---|
351 |         z0h_water   = 9999999.9_wp,     & !< NAMELIST z0h (lsm_par) |
---|
352 |         z0q_water   = 9999999.9_wp       !< NAMELIST z0q (lsm_par) |
---|
353 | Â Â Â Â Â Â Â Â |
---|
354 | Â Â Â Â Â Â Â Â |
---|
355 |   REAL(wp), DIMENSION(:), ALLOCATABLE :: ddz_soil_center, & !< 1/dz_soil_center |
---|
356 |                       ddz_soil,    & !< 1/dz_soil |
---|
357 |                       dz_soil_center, & !< soil grid spacing (center-center) |
---|
358 |                       zs,       & !< depth of the temperature/moisute levels |
---|
359 |                       root_extr     !< root extraction |
---|
360 | |
---|
361 | |
---|
362 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â |
---|
363 |   REAL(wp), DIMENSION(0:20) :: root_fraction = 9999999.9_wp,   & !< (NAMELIST) distribution of root surface area to the individual soil layers |
---|
364 |                   soil_moisture = 0.0_wp,      & !< NAMELIST soil moisture content (m3/m3) |
---|
365 |                   soil_temperature = 9999999.9_wp, & !< NAMELIST soil temperature (K) +1 |
---|
366 |                   dz_soil = 9999999.9_wp,     & !< (NAMELIST) soil layer depths (spacing) |
---|
367 |                   zs_layer = 9999999.9_wp       !< soil layer depths (edge) |
---|
368 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â |
---|
369 |   TYPE(surf_type_lsm), POINTER :: t_soil_h,  & !< Soil temperature (K), horizontal surface elements |
---|
370 |                    t_soil_h_p, & !< Prog. soil temperature (K), horizontal surface elements |
---|
371 |                    m_soil_h,  & !< Soil moisture (m3/m3), horizontal surface elements |
---|
372 |                    m_soil_h_p   !< Prog. soil moisture (m3/m3), horizontal surface elements |
---|
373 | |
---|
374 |   TYPE(surf_type_lsm), TARGET :: t_soil_h_1, & !< |
---|
375 |                    t_soil_h_2, & !< |
---|
376 |                    m_soil_h_1, & !< |
---|
377 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â m_soil_h_2Â Â Â !< |
---|
378 | |
---|
379 |   TYPE(surf_type_lsm), DIMENSION(:), POINTER :: & |
---|
380 |                    t_soil_v,  & !< Soil temperature (K), vertical surface elements |
---|
381 |                    t_soil_v_p, & !< Prog. soil temperature (K), vertical surface elements |
---|
382 |                    m_soil_v,  & !< Soil moisture (m3/m3), vertical surface elements |
---|
383 |                    m_soil_v_p   !< Prog. soil moisture (m3/m3), vertical surface elements  |
---|
384 | |
---|
385 |   TYPE(surf_type_lsm), DIMENSION(0:3), TARGET ::& |
---|
386 |                    t_soil_v_1, & !< |
---|
387 |                    t_soil_v_2, & !< |
---|
388 |                    m_soil_v_1, & !< |
---|
389 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â m_soil_v_2Â Â Â !< |
---|
390 | |
---|
391 |   TYPE(surf_type_lsm), POINTER :: t_surface_h,  & !< surface temperature (K), horizontal surface elements |
---|
392 |                    t_surface_h_p, & !< progn. surface temperature (K), horizontal surface elements |
---|
393 |                    m_liq_h,    & !< liquid water reservoir (m), horizontal surface elements |
---|
394 |                    m_liq_h_p     !< progn. liquid water reservoir (m), horizontal surface elements |
---|
395 | |
---|
396 |   TYPE(surf_type_lsm), TARGET  :: t_surface_h_1, & !< |
---|
397 |                    t_surface_h_2, & !< |
---|
398 |                    m_liq_h_1,   & !< |
---|
399 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â m_liq_h_2Â Â Â Â Â !< |
---|
400 | |
---|
401 |   TYPE(surf_type_lsm), DIMENSION(:), POINTER ::  & |
---|
402 |                    t_surface_v,  & !< surface temperature (K), vertical surface elements |
---|
403 |                    t_surface_v_p, & !< progn. surface temperature (K), vertical surface elements |
---|
404 |                    m_liq_v,    & !< liquid water reservoir (m), vertical surface elements |
---|
405 |                    m_liq_v_p     !< progn. liquid water reservoir (m), vertical surface elements |
---|
406 | |
---|
407 |   TYPE(surf_type_lsm), DIMENSION(0:3), TARGET  :: & |
---|
408 |                    t_surface_v_1, & !< |
---|
409 |                    t_surface_v_2, & !< |
---|
410 |                    m_liq_v_1,   & !< |
---|
411 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â m_liq_v_2Â Â Â Â Â !< |
---|
412 | |
---|
413 |   REAL(wp), DIMENSION(:,:), ALLOCATABLE, TARGET :: m_liq_av |
---|
414 | |
---|
415 |   REAL(wp), DIMENSION(:,:,:), ALLOCATABLE, TARGET :: t_soil_av, & !< Average of t_soil |
---|
416 |                             m_soil_av  !< Average of m_soil |
---|
417 | |
---|
418 |   TYPE(surf_type_lsm), TARGET :: tm_liq_h_m   !< liquid water reservoir tendency (m), horizontal surface elements |
---|
419 |   TYPE(surf_type_lsm), TARGET :: tt_surface_h_m !< surface temperature tendency (K), horizontal surface elements |
---|
420 |   TYPE(surf_type_lsm), TARGET :: tt_soil_h_m   !< t_soil storage array, horizontal surface elements |
---|
421 |   TYPE(surf_type_lsm), TARGET :: tm_soil_h_m   !< m_soil storage array, horizontal surface elements |
---|
422 | |
---|
423 |   TYPE(surf_type_lsm), DIMENSION(0:3), TARGET :: tm_liq_v_m   !< liquid water reservoir tendency (m), vertical surface elements |
---|
424 |   TYPE(surf_type_lsm), DIMENSION(0:3), TARGET :: tt_surface_v_m !< surface temperature tendency (K), vertical surface elements |
---|
425 |   TYPE(surf_type_lsm), DIMENSION(0:3), TARGET :: tt_soil_v_m   !< t_soil storage array, vertical surface elements |
---|
426 |   TYPE(surf_type_lsm), DIMENSION(0:3), TARGET :: tm_soil_v_m   !< m_soil storage array, vertical surface elements |
---|
427 | |
---|
428 | ! |
---|
429 | !-- Energy balance variables        |
---|
430 |   REAL(wp), DIMENSION(:,:), ALLOCATABLE :: & |
---|
431 |        c_liq_av,     & !< average of c_liq |
---|
432 |        c_soil_av,    & !< average of c_soil |
---|
433 |        c_veg_av,     & !< average of c_veg |
---|
434 |        lai_av,      & !< average of lai    |
---|
435 |        qsws_liq_av,   & !< average of qsws_liq |
---|
436 |        qsws_soil_av,   & !< average of qsws_soil |
---|
437 |        qsws_veg_av,   & !< average of qsws_veg |
---|
438 |        r_s_av       !< average of r_s |
---|
439 | Â |
---|
440 | ! |
---|
441 | !-- Predefined Land surface classes (vegetation_type) |
---|
442 |   CHARACTER(26), DIMENSION(0:18), PARAMETER :: vegetation_type_name = (/ & |
---|
443 |                   'user defined       ',      & ! 0 |
---|
444 |                   'bare soil         ',      & ! 1              |
---|
445 |                   'crops, mixed farming   ',      & ! 2 |
---|
446 |                   'short grass        ',      & ! 3 |
---|
447 |                   'evergreen needleleaf trees',      & ! 4 |
---|
448 |                   'deciduous needleleaf trees',      & ! 5 |
---|
449 |                   'evergreen broadleaf trees ',      & ! 6 |
---|
450 |                   'deciduous broadleaf trees ',      & ! 7 |
---|
451 |                   'tall grass        ',      & ! 8 |
---|
452 |                   'desert          ',      & ! 9 |
---|
453 |                   'tundra          ',      & ! 10 |
---|
454 |                   'irrigated crops      ',      & ! 11 |
---|
455 |                   'semidesert        ',      & ! 12 |
---|
456 |                   'ice caps and glaciers   ',      & ! 13 |
---|
457 |                   'bogs and marshes     ',      & ! 14 |
---|
458 |                   'evergreen shrubs     ',      & ! 15 |
---|
459 |                   'deciduous shrubs     ',      & ! 16 |
---|
460 |                   'mixed forest/woodland   ',      & ! 17 |
---|
461 |                   'interrupted forest    '      & ! 18 |
---|
462 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â /) |
---|
463 | |
---|
464 | ! |
---|
465 | !-- Soil model classes (soil_type) |
---|
466 |   CHARACTER(12), DIMENSION(0:6), PARAMETER :: soil_type_name = (/ & |
---|
467 |                   'user defined',         & ! 0 |
---|
468 |                   'coarse   ',         & ! 1 |
---|
469 |                   'medium   ',         & ! 2 |
---|
470 |                   'medium-fine ',         & ! 3 |
---|
471 |                   'fine    ',         & ! 4 |
---|
472 |                   'very fine  ',         & ! 5 |
---|
473 |                   'organic   '          & ! 6 |
---|
474 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â /) |
---|
475 | |
---|
476 | ! |
---|
477 | !-- Pavement classes |
---|
478 |   CHARACTER(29), DIMENSION(0:15), PARAMETER :: pavement_type_name = (/ & |
---|
479 |                   'user defined         ', & ! 0 |
---|
480 |                   'asphalt/concrete mix     ', & ! 1 |
---|
481 |                   'asphalt (asphalt concrete)  ', & ! 2 |
---|
482 |                   'concrete (Portland concrete) ', & ! 3 |
---|
483 |                   'sett             ', & ! 4 |
---|
484 |                   'paving stones        ', & ! 5 |
---|
485 |                   'cobblestone         ', & ! 6 |
---|
486 |                   'metal            ', & ! 7 |
---|
487 |                   'wood             ', & ! 8 |
---|
488 |                   'gravel            ', & ! 9 |
---|
489 |                   'fine gravel         ', & ! 10 |
---|
490 |                   'pebblestone         ', & ! 11 |
---|
491 |                   'woodchips          ', & ! 12 |
---|
492 |                   'tartan (sports)       ', & ! 13 |
---|
493 |                   'artifical turf (sports)   ', & ! 14 |
---|
494 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'clay (sports)Â Â Â Â Â Â Â Â 'Â &Â ! 15 |
---|
495 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â /)Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â |
---|
496 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â |
---|
497 | ! |
---|
498 | !-- Water classes |
---|
499 |   CHARACTER(12), DIMENSION(0:5), PARAMETER :: water_type_name = (/ & |
---|
500 |                   'user defined',          & ! 0 |
---|
501 |                   'lake    ',          & ! 1 |
---|
502 |                   'river    ',          & ! 2 |
---|
503 |                   'ocean    ',          & ! 3 |
---|
504 |                   'pond    ',          & ! 4 |
---|
505 |                   'fountain  '          & ! 5 |
---|
506 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â /)Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â |
---|
507 | Â Â Â Â Â Â Â Â Â Â |
---|
508 | ! |
---|
509 | !-- Land surface parameters according to the respective classes (vegetation_type) |
---|
510 |   INTEGER(iwp) :: ind_v_rc_min = 0  !< index for r_canopy_min in vegetation_pars |
---|
511 |   INTEGER(iwp) :: ind_v_rc_lai = 1  !< index for LAI in vegetation_pars |
---|
512 |   INTEGER(iwp) :: ind_v_c_veg  = 2  !< index for c_veg in vegetation_pars |
---|
513 |   INTEGER(iwp) :: ind_v_gd = 3    !< index for g_d in vegetation_pars |
---|
514 | Â Â INTEGER(iwp)Â ::Â ind_v_z0Â =Â 4Â Â Â Â !< index for z0 in vegetation_pars |
---|
515 |   INTEGER(iwp) :: ind_v_z0qh = 5   !< index for z0h / z0q in vegetation_pars |
---|
516 |   INTEGER(iwp) :: ind_v_lambda_s = 6 !< index for lambda_s_s in vegetation_pars |
---|
517 |   INTEGER(iwp) :: ind_v_lambda_u = 7 !< index for lambda_s_u in vegetation_pars |
---|
518 |   INTEGER(iwp) :: ind_v_f_sw_in = 8  !< index for f_sw_in in vegetation_pars |
---|
519 |   INTEGER(iwp) :: ind_v_c_surf = 9  !< index for c_surface in vegetation_pars |
---|
520 |   INTEGER(iwp) :: ind_v_at = 10    !< index for albedo_type in vegetation_pars |
---|
521 |   INTEGER(iwp) :: ind_v_emis = 11   !< index for emissivity in vegetation_pars |
---|
522 | |
---|
523 |   INTEGER(iwp) :: ind_w_temp   = 0  !< index for temperature in water_pars |
---|
524 | Â Â INTEGER(iwp)Â ::Â ind_w_z0Â Â Â Â =Â 1Â Â !< index for z0 in water_pars |
---|
525 |   INTEGER(iwp) :: ind_w_z0h   = 2  !< index for z0h in water_pars |
---|
526 |   INTEGER(iwp) :: ind_w_lambda_s = 3  !< index for lambda_s_s in water_pars |
---|
527 |   INTEGER(iwp) :: ind_w_lambda_u = 4  !< index for lambda_s_u in water_pars |
---|
528 |   INTEGER(iwp) :: ind_w_at    = 5  !< index for albedo type in water_pars |
---|
529 |   INTEGER(iwp) :: ind_w_emis   = 6  !< index for emissivity in water_pars |
---|
530 | |
---|
531 | Â Â INTEGER(iwp)Â ::Â ind_p_z0Â Â Â Â =Â 0Â Â !< index for z0 in pavement_pars |
---|
532 |   INTEGER(iwp) :: ind_p_z0h   = 1  !< index for z0h in pavement_pars |
---|
533 |   INTEGER(iwp) :: ind_p_at    = 2  !< index for albedo type in pavement_pars |
---|
534 |   INTEGER(iwp) :: ind_p_emis   = 3  !< index for emissivity in pavement_pars |
---|
535 |   INTEGER(iwp) :: ind_p_lambda_h = 0  !< index for lambda_h in pavement_subsurface_pars |
---|
536 |   INTEGER(iwp) :: ind_p_rho_c  = 1  !< index for rho_c in pavement_pars |
---|
537 | ! |
---|
538 | !-- Land surface parameters |
---|
539 | !-- r_canopy_min,   lai,  c_veg,   g_d     z0,     z0h, lambda_s_s, lambda_s_u, f_sw_in, c_surface, albedo_type, emissivity |
---|
540 |   REAL(wp), DIMENSION(0:11,1:18), PARAMETER :: vegetation_pars = RESHAPE( (/ & |
---|
541 |      0.0_wp, 0.00_wp, 0.00_wp, 0.00_wp, 0.005_wp,  0.5E-4_wp,   0.0_wp,  0.0_wp, 0.00_wp, 0.00_wp, 17.0_wp, 0.94_wp, & ! 1 |
---|
542 |     180.0_wp, 3.00_wp, 1.00_wp, 0.00_wp,  0.10_wp,  0.001_wp,  10.0_wp,  10.0_wp, 0.05_wp, 0.00_wp, 2.0_wp, 0.95_wp, & ! 2 |
---|
543 |     110.0_wp, 2.00_wp, 1.00_wp, 0.00_wp,  0.03_wp,  0.3E-4_wp,  10.0_wp,  10.0_wp, 0.05_wp, 0.00_wp, 5.0_wp, 0.95_wp, & ! 3 |
---|
544 |     500.0_wp, 5.00_wp, 1.00_wp, 0.03_wp,  2.00_wp,   2.00_wp,  20.0_wp,  15.0_wp, 0.03_wp, 0.00_wp, 6.0_wp, 0.97_wp, & ! 4 |
---|
545 |     500.0_wp, 5.00_wp, 1.00_wp, 0.03_wp,  2.00_wp,   2.00_wp,  20.0_wp,  15.0_wp, 0.03_wp, 0.00_wp, 8.0_wp, 0.97_wp, & ! 5 |
---|
546 |     175.0_wp, 5.00_wp, 1.00_wp, 0.03_wp,  2.00_wp,   2.00_wp,  20.0_wp,  15.0_wp, 0.03_wp, 0.00_wp, 9.0_wp, 0.97_wp, & ! 6 |
---|
547 |     240.0_wp, 6.00_wp, 0.99_wp, 0.13_wp,  2.00_wp,   2.00_wp,  20.0_wp,  15.0_wp, 0.03_wp, 0.00_wp, 7.0_wp, 0.97_wp, & ! 7 |
---|
548 |     100.0_wp, 2.00_wp, 0.70_wp, 0.00_wp,  0.47_wp, 0.47E-2_wp,  10.0_wp,  10.0_wp, 0.05_wp, 0.00_wp, 10.0_wp, 0.97_wp, & ! 8 |
---|
549 |     250.0_wp, 0.05_wp, 0.00_wp, 0.00_wp, 0.013_wp, 0.013E-2_wp,  15.0_wp,  15.0_wp, 0.00_wp, 0.00_wp, 11.0_wp, 0.94_wp, & ! 9 |
---|
550 |      80.0_wp, 1.00_wp, 0.50_wp, 0.00_wp, 0.034_wp, 0.034E-2_wp,  10.0_wp,  10.0_wp, 0.05_wp, 0.00_wp, 13.0_wp, 0.97_wp, & ! 10 |
---|
551 |     180.0_wp, 3.00_wp, 1.00_wp, 0.00_wp,  0.5_wp, 0.50E-2_wp,  10.0_wp,  10.0_wp, 0.05_wp, 0.00_wp, 2.0_wp, 0.97_wp, & ! 11 |
---|
552 |     150.0_wp, 0.50_wp, 0.10_wp, 0.00_wp,  0.17_wp, 0.17E-2_wp,  10.0_wp,  10.0_wp, 0.05_wp, 0.00_wp, 11.0_wp, 0.97_wp, & ! 12 |
---|
553 |      0.0_wp, 0.00_wp, 0.00_wp, 0.00_wp, 1.3E-3_wp,  1.3E-4_wp,  58.0_wp,  58.0_wp, 0.00_wp, 0.00_wp, 14.0_wp, 0.97_wp, & ! 13 |
---|
554 |     240.0_wp, 4.00_wp, 0.60_wp, 0.00_wp,  0.83_wp, 0.83E-2_wp,  10.0_wp,  10.0_wp, 0.05_wp, 0.00_wp, 3.0_wp, 0.97_wp, & ! 14 |
---|
555 |     225.0_wp, 3.00_wp, 0.50_wp, 0.00_wp,  0.10_wp, 0.10E-2_wp,  10.0_wp,  10.0_wp, 0.05_wp, 0.00_wp, 4.0_wp, 0.97_wp, & ! 15 |
---|
556 |     225.0_wp, 1.50_wp, 0.50_wp, 0.00_wp,  0.25_wp, 0.25E-2_wp,  10.0_wp,  10.0_wp, 0.05_wp, 0.00_wp, 5.0_wp, 0.97_wp, & ! 16 |
---|
557 |     250.0_wp, 5.00_wp, 1.00_wp, 0.03_wp,  2.00_wp,   2.00_wp,  20.0_wp,  15.0_wp, 0.03_wp, 0.00_wp, 10.0_wp, 0.97_wp, & ! 17 |
---|
558 |     175.0_wp, 2.50_wp, 1.00_wp, 0.03_wp,  1.10_wp,   1.10_wp,  20.0_wp,  15.0_wp, 0.03_wp, 0.00_wp, 7.0_wp, 0.97_wp & ! 18 |
---|
559 |                                 /), (/ 12, 18 /) ) |
---|
560 | |
---|
561 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â |
---|
562 | ! |
---|
563 | !-- Root distribution for default soil layer configuration (sum = 1) |
---|
564 | !--Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â level 1 - level 4 according to zs_ref |
---|
565 |   REAL(wp), DIMENSION(0:3,1:18), PARAMETER :: root_distribution = RESHAPE( (/ & |
---|
566 |                  1.00_wp, 0.00_wp, 0.00_wp, 0.00_wp,      & ! 1 |
---|
567 |                  0.24_wp, 0.41_wp, 0.31_wp, 0.04_wp,      & ! 2 |
---|
568 |                  0.35_wp, 0.38_wp, 0.23_wp, 0.04_wp,      & ! 3 |
---|
569 |                  0.26_wp, 0.39_wp, 0.29_wp, 0.06_wp,      & ! 4 |
---|
570 |                  0.26_wp, 0.38_wp, 0.29_wp, 0.07_wp,      & ! 5 |
---|
571 |                  0.24_wp, 0.38_wp, 0.31_wp, 0.07_wp,      & ! 6 |
---|
572 |                  0.25_wp, 0.34_wp, 0.27_wp, 0.14_wp,      & ! 7 |
---|
573 |                  0.27_wp, 0.27_wp, 0.27_wp, 0.09_wp,      & ! 8 |
---|
574 |                  1.00_wp, 0.00_wp, 0.00_wp, 0.00_wp,      & ! 9 |
---|
575 |                  0.47_wp, 0.45_wp, 0.08_wp, 0.00_wp,      & ! 10 |
---|
576 |                  0.24_wp, 0.41_wp, 0.31_wp, 0.04_wp,      & ! 11 |
---|
577 |                  0.17_wp, 0.31_wp, 0.33_wp, 0.19_wp,      & ! 12 |
---|
578 |                  0.00_wp, 0.00_wp, 0.00_wp, 0.00_wp,      & ! 13 |
---|
579 |                  0.25_wp, 0.34_wp, 0.27_wp, 0.11_wp,      & ! 14 |
---|
580 |                  0.23_wp, 0.36_wp, 0.30_wp, 0.11_wp,      & ! 15 |
---|
581 |                  0.23_wp, 0.36_wp, 0.30_wp, 0.11_wp,      & ! 16 |
---|
582 |                  0.19_wp, 0.35_wp, 0.36_wp, 0.10_wp,      & ! 17 |
---|
583 |                  0.19_wp, 0.35_wp, 0.36_wp, 0.10_wp       & ! 18 |
---|
584 |                  /), (/ 4, 18 /) ) |
---|
585 | |
---|
586 | ! |
---|
587 | !-- Soil parameters according to the following porosity classes (soil_type) |
---|
588 | |
---|
589 | ! |
---|
590 | !-- Soil parameters alpha_vg,   l_vg,  n_vg, gamma_w_sat,  m_sat,   m_fc,  m_wilt,  m_res |
---|
591 |   REAL(wp), DIMENSION(0:7,1:6), PARAMETER :: soil_pars = RESHAPE( (/   & |
---|
592 |            3.83_wp, 1.250_wp, 1.38_wp, 6.94E-6_wp, 0.403_wp, 0.244_wp, 0.059_wp, 0.025_wp,& ! 1 |
---|
593 |            3.14_wp, -2.342_wp, 1.28_wp, 1.16E-6_wp, 0.439_wp, 0.347_wp, 0.151_wp, 0.010_wp,& ! 2 |
---|
594 |            0.83_wp, -0.588_wp, 1.25_wp, 0.26E-6_wp, 0.430_wp, 0.383_wp, 0.133_wp, 0.010_wp,& ! 3 |
---|
595 |            3.67_wp, -1.977_wp, 1.10_wp, 2.87E-6_wp, 0.520_wp, 0.448_wp, 0.279_wp, 0.010_wp,& ! 4 |
---|
596 |            2.65_wp, 2.500_wp, 1.10_wp, 1.74E-6_wp, 0.614_wp, 0.541_wp, 0.335_wp, 0.010_wp,& ! 5 |
---|
597 |            1.30_wp, 0.400_wp, 1.20_wp, 0.93E-6_wp, 0.766_wp, 0.663_wp, 0.267_wp, 0.010_wp & ! 6 |
---|
598 |                                    /), (/ 8, 6 /) ) |
---|
599 | |
---|
600 | |
---|
601 | ! |
---|
602 | !-- TO BE FILLED |
---|
603 | !-- Pavement parameters   z0,    z0h, albedo_type, emissivity |
---|
604 |   REAL(wp), DIMENSION(0:3,1:15), PARAMETER :: pavement_pars = RESHAPE( (/ & |
---|
605 |            5.0E-2_wp, 5.0E-4_wp,   18.0_wp,  0.97_wp, & ! 1 |
---|
606 |            5.0E-2_wp, 5.0E-4_wp,   19.0_wp,  0.94_wp, & ! 2 |
---|
607 |            1.0E-2_wp, 1.0E-4_wp,   20.0_wp,  0.98_wp, & ! 3                 |
---|
608 |            1.0E-2_wp, 1.0E-4_wp,   21.0_wp,  0.93_wp, & ! 4 |
---|
609 |            1.0E-2_wp, 1.0E-4_wp,   22.0_wp,  0.97_wp, & ! 5 |
---|
610 |            1.0E-2_wp, 1.0E-4_wp,   23.0_wp,  0.97_wp, & ! 6 |
---|
611 |            1.0E-2_wp, 1.0E-4_wp,   24.0_wp,  0.97_wp, & ! 7 |
---|
612 |            1.0E-2_wp, 1.0E-4_wp,   25.0_wp,  0.94_wp, & ! 8 |
---|
613 |            1.0E-2_wp, 1.0E-4_wp,   26.0_wp,  0.98_wp, & ! 9                 |
---|
614 |            1.0E-2_wp, 1.0E-4_wp,   27.0_wp,  0.93_wp, & ! 10 |
---|
615 |            1.0E-2_wp, 1.0E-4_wp,   28.0_wp,  0.97_wp, & ! 11 |
---|
616 |            1.0E-2_wp, 1.0E-4_wp,   29.0_wp,  0.97_wp, & ! 12 |
---|
617 |            1.0E-2_wp, 1.0E-4_wp,   30.0_wp,  0.97_wp, & ! 13 |
---|
618 |            1.0E-2_wp, 1.0E-4_wp,   31.0_wp,  0.94_wp, & ! 14 |
---|
619 |            1.0E-2_wp, 1.0E-4_wp,   32.0_wp,  0.98_wp  & ! 15 |
---|
620 |            /), (/ 4, 15 /) )               |
---|
621 | ! |
---|
622 | !-- Pavement subsurface parameters part 1: thermal conductivity (W/m/K) |
---|
623 | !--  0.0-0.01, 0.01-0.03, 0.03-0.07, 0.07-0.15, 0.15-0.30, 0.30-0.50,  0.50-1.25,  1.25-3.00 |
---|
624 |   REAL(wp), DIMENSION(0:7,1:15), PARAMETER :: pavement_subsurface_pars_1 = RESHAPE( (/ & |
---|
625 |     0.75_wp,  0.75_wp,  0.75_wp,  0.75_wp,  0.75_wp,  0.75_wp, 9999999.9_wp, 9999999.9_wp, & ! 1 |
---|
626 |     0.75_wp,  0.75_wp,  0.75_wp,  0.75_wp,  0.75_wp,  0.75_wp, 9999999.9_wp, 9999999.9_wp, & ! 2 |
---|
627 |     0.89_wp,  0.89_wp,  0.89_wp,  0.89_wp,  0.89_wp,  0.89_wp, 9999999.9_wp, 9999999.9_wp, & ! 3 |
---|
628 |     1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp, 9999999.9_wp, 9999999.9_wp, & ! 4 |
---|
629 |     1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp, 9999999.9_wp, 9999999.9_wp, & ! 5 |
---|
630 |     1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp, 9999999.9_wp, 9999999.9_wp, & ! 6 |
---|
631 |     1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp, 9999999.9_wp, 9999999.9_wp, & ! 7 |
---|
632 |     1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp, 9999999.9_wp, 9999999.9_wp, & ! 8 |
---|
633 |     0.70_wp,  0.70_wp,  0.70_wp,  0.70_wp,  0.70_wp,  0.70_wp, 9999999.9_wp, 9999999.9_wp, & ! 9 |
---|
634 |     1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp, 9999999.9_wp, 9999999.9_wp, & ! 10 |
---|
635 |     1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp, 9999999.9_wp, 9999999.9_wp, & ! 11 |
---|
636 |     1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp, 9999999.9_wp, 9999999.9_wp, & ! 12 |
---|
637 |     1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp, 9999999.9_wp, 9999999.9_wp, & ! 13 |
---|
638 |     1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp, 9999999.9_wp, 9999999.9_wp, & ! 14 |
---|
639 |     1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp,  1.00_wp, 9999999.9_wp, 9999999.9_wp & ! 15 |
---|
640 |     /), (/ 8, 15 /) ) |
---|
641 | |
---|
642 | ! |
---|
643 | !-- Pavement subsurface parameters part 2: volumetric heat capacity (J/m3/K) |
---|
644 | !--   0.0-0.01, 0.01-0.03, 0.03-0.07, 0.07-0.15, 0.15-0.30, 0.30-0.50,  0.50-1.25,  1.25-3.00 |
---|
645 |   REAL(wp), DIMENSION(0:7,1:15), PARAMETER :: pavement_subsurface_pars_2 = RESHAPE( (/ & |
---|
646 |     1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 9999999.9_wp, 9999999.9_wp, & ! 1 |
---|
647 |     1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 9999999.9_wp, 9999999.9_wp, & ! 2 |
---|
648 |     1.76E6_wp, 1.76E6_wp, 1.76E6_wp, 1.76E6_wp, 1.76E6_wp, 1.76E6_wp, 9999999.9_wp, 9999999.9_wp, & ! 3 |
---|
649 |     1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 9999999.9_wp, 9999999.9_wp, & ! 4 |
---|
650 |     1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 9999999.9_wp, 9999999.9_wp, & ! 5 |
---|
651 |     1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 9999999.9_wp, 9999999.9_wp, & ! 6 |
---|
652 |     1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 9999999.9_wp, 9999999.9_wp, & ! 7 |
---|
653 |     1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 9999999.9_wp, 9999999.9_wp, & ! 8 |
---|
654 |     1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 9999999.9_wp, 9999999.9_wp, & ! 9 |
---|
655 |     1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 9999999.9_wp, 9999999.9_wp, & ! 10 |
---|
656 |     1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 9999999.9_wp, 9999999.9_wp, & ! 11 |
---|
657 |     1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 9999999.9_wp, 9999999.9_wp, & ! 12 |
---|
658 |     1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 9999999.9_wp, 9999999.9_wp, & ! 13 |
---|
659 |     1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 9999999.9_wp, 9999999.9_wp, & ! 14 |
---|
660 |     1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 1.94E6_wp, 9999999.9_wp, 9999999.9_wp & ! 15 |
---|
661 |               /), (/ 8, 15 /) ) |
---|
662 | Â |
---|
663 | ! |
---|
664 | !-- TO BE FILLED |
---|
665 | !-- Water parameters          temperature,   z0,   z0h, albedo_type, emissivity, |
---|
666 |   REAL(wp), DIMENSION(0:6,1:5), PARAMETER :: water_pars = RESHAPE( (/ & |
---|
667 |     283.0_wp, 0.01_wp, 0.001_wp, 1.0E10_wp, 1.0E10_wp, 1.0_wp, 0.99_wp, & ! 1 |
---|
668 |     283.0_wp, 0.01_wp, 0.001_wp, 1.0E10_wp, 1.0E10_wp, 1.0_wp, 0.99_wp, & ! 2 |
---|
669 |     283.0_wp, 0.01_wp, 0.001_wp, 1.0E10_wp, 1.0E10_wp, 1.0_wp, 0.99_wp, & ! 3 |
---|
670 |     283.0_wp, 0.01_wp, 0.001_wp, 1.0E10_wp, 1.0E10_wp, 1.0_wp, 0.99_wp, & ! 4 |
---|
671 |     283.0_wp, 0.01_wp, 0.001_wp, 1.0E10_wp, 1.0E10_wp, 1.0_wp, 0.99_wp & ! 5 |
---|
672 |                                    /), (/ 7, 5 /) )                                  |
---|
673 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â |
---|
674 | Â Â SAVE |
---|
675 | |
---|
676 | |
---|
677 | Â Â PRIVATE |
---|
678 | |
---|
679 | Â Â |
---|
680 | ! |
---|
681 | !-- Public functions |
---|
682 |   PUBLIC lsm_boundary_condition, lsm_check_data_output,           & |
---|
683 |       lsm_check_data_output_pr,                      & |
---|
684 |       lsm_check_parameters, lsm_define_netcdf_grid, lsm_3d_data_averaging,& |
---|
685 |       lsm_data_output_2d, lsm_data_output_3d, lsm_energy_balance,     & |
---|
686 |       lsm_header, lsm_init, lsm_init_arrays, lsm_parin, lsm_soil_model,  & |
---|
687 |       lsm_swap_timelevel, lsm_rrd_local, lsm_wrd_local |
---|
688 | ! !vegetat |
---|
689 | !-- Public parameters, constants and initial values |
---|
690 |   PUBLIC aero_resist_kray, skip_time_do_lsm |
---|
691 | |
---|
692 | ! |
---|
693 | !-- Public grid variables |
---|
694 |   PUBLIC nzb_soil, nzs, nzt_soil, zs |
---|
695 | |
---|
696 | ! |
---|
697 | !-- Public prognostic variables |
---|
698 |   PUBLIC m_soil_h, t_soil_h |
---|
699 | |
---|
700 | Â Â INTERFACE lsm_boundary_condition |
---|
701 | Â Â Â Â MODULE PROCEDUREÂ lsm_boundary_condition |
---|
702 | Â Â END INTERFACE lsm_boundary_condition |
---|
703 | |
---|
704 | Â Â INTERFACE lsm_check_data_output |
---|
705 | Â Â Â Â MODULE PROCEDUREÂ lsm_check_data_output |
---|
706 | Â Â END INTERFACE lsm_check_data_output |
---|
707 | Â Â |
---|
708 | Â Â INTERFACE lsm_check_data_output_pr |
---|
709 | Â Â Â Â MODULE PROCEDUREÂ lsm_check_data_output_pr |
---|
710 | Â Â END INTERFACE lsm_check_data_output_pr |
---|
711 | Â Â |
---|
712 | Â Â INTERFACE lsm_check_parameters |
---|
713 | Â Â Â Â MODULE PROCEDUREÂ lsm_check_parameters |
---|
714 | Â Â END INTERFACE lsm_check_parameters |
---|
715 | Â Â |
---|
716 | Â Â INTERFACE lsm_3d_data_averaging |
---|
717 | Â Â Â Â MODULE PROCEDUREÂ lsm_3d_data_averaging |
---|
718 | Â Â END INTERFACE lsm_3d_data_averaging |
---|
719 | |
---|
720 | Â Â INTERFACE lsm_data_output_2d |
---|
721 | Â Â Â Â MODULE PROCEDUREÂ lsm_data_output_2d |
---|
722 | Â Â END INTERFACE lsm_data_output_2d |
---|
723 | |
---|
724 | Â Â INTERFACE lsm_data_output_3d |
---|
725 | Â Â Â Â MODULE PROCEDUREÂ lsm_data_output_3d |
---|
726 | Â Â END INTERFACE lsm_data_output_3d |
---|
727 | |
---|
728 | Â Â INTERFACE lsm_define_netcdf_grid |
---|
729 | Â Â Â Â MODULE PROCEDUREÂ lsm_define_netcdf_grid |
---|
730 | Â Â END INTERFACE lsm_define_netcdf_grid |
---|
731 | |
---|
732 | Â Â INTERFACE lsm_energy_balance |
---|
733 | Â Â Â Â MODULE PROCEDUREÂ lsm_energy_balance |
---|
734 | Â Â END INTERFACE lsm_energy_balance |
---|
735 | |
---|
736 | Â Â INTERFACE lsm_header |
---|
737 | Â Â Â Â MODULE PROCEDUREÂ lsm_header |
---|
738 | Â Â END INTERFACE lsm_header |
---|
739 | Â Â |
---|
740 | Â Â INTERFACE lsm_init |
---|
741 | Â Â Â Â MODULE PROCEDUREÂ lsm_init |
---|
742 | Â Â END INTERFACE lsm_init |
---|
743 | |
---|
744 | Â Â INTERFACE lsm_init_arrays |
---|
745 | Â Â Â Â MODULE PROCEDUREÂ lsm_init_arrays |
---|
746 | Â Â END INTERFACE lsm_init_arrays |
---|
747 | Â Â |
---|
748 | Â Â INTERFACE lsm_parin |
---|
749 | Â Â Â Â MODULE PROCEDUREÂ lsm_parin |
---|
750 | Â Â END INTERFACE lsm_parin |
---|
751 | Â Â |
---|
752 | Â Â INTERFACE lsm_soil_model |
---|
753 | Â Â Â Â MODULE PROCEDUREÂ lsm_soil_model |
---|
754 | Â Â END INTERFACE lsm_soil_model |
---|
755 | |
---|
756 | Â Â INTERFACE lsm_swap_timelevel |
---|
757 | Â Â Â Â MODULE PROCEDUREÂ lsm_swap_timelevel |
---|
758 | Â Â END INTERFACE lsm_swap_timelevel |
---|
759 | |
---|
760 | Â Â INTERFACE lsm_rrd_local |
---|
761 | Â Â Â Â MODULE PROCEDUREÂ lsm_rrd_local |
---|
762 | Â Â END INTERFACE lsm_rrd_local |
---|
763 | |
---|
764 | Â Â INTERFACE lsm_wrd_local |
---|
765 | Â Â Â Â MODULE PROCEDUREÂ lsm_wrd_local |
---|
766 | Â Â END INTERFACE lsm_wrd_local |
---|
767 | |
---|
768 | Â CONTAINS |
---|
769 | |
---|
770 | |
---|
771 | !------------------------------------------------------------------------------! |
---|
772 | ! Description: |
---|
773 | ! ------------ |
---|
774 | !> Set internal Neumann boundary condition at outer soil grid points |
---|
775 | !> for temperature and humidity. |
---|
776 | !------------------------------------------------------------------------------! |
---|
777 | Â SUBROUTINE lsm_boundary_condition |
---|
778 | Â |
---|
779 | Â Â IMPLICIT NONE |
---|
780 | |
---|
781 |   INTEGER(iwp) :: i   !< grid index x-direction |
---|
782 |   INTEGER(iwp) :: ioff  !< offset index x-direction indicating location of soil grid point |
---|
783 |   INTEGER(iwp) :: j   !< grid index y-direction |
---|
784 |   INTEGER(iwp) :: joff  !< offset index x-direction indicating location of soil grid point |
---|
785 |   INTEGER(iwp) :: k   !< grid index z-direction |
---|
786 |   INTEGER(iwp) :: koff  !< offset index x-direction indicating location of soil grid point |
---|
787 |   INTEGER(iwp) :: l   !< running index surface-orientation |
---|
788 |   INTEGER(iwp) :: m   !< running index surface elements |
---|
789 | |
---|
790 |   koff = surf_lsm_h%koff |
---|
791 |   DO m = 1, surf_lsm_h%ns |
---|
792 |     i = surf_lsm_h%i(m) |
---|
793 |     j = surf_lsm_h%j(m) |
---|
794 |     k = surf_lsm_h%k(m) |
---|
795 | Â Â Â Â pt(k+koff,j,i)Â =Â pt(k,j,i) |
---|
796 | Â Â ENDDO |
---|
797 | |
---|
798 |   DO l = 0, 3 |
---|
799 |     ioff = surf_lsm_v(l)%ioff |
---|
800 |     joff = surf_lsm_v(l)%joff |
---|
801 |     DO m = 1, surf_lsm_v(l)%ns |
---|
802 |      i = surf_lsm_v(l)%i(m) |
---|
803 |      j = surf_lsm_v(l)%j(m) |
---|
804 |      k = surf_lsm_v(l)%k(m) |
---|
805 | Â Â Â Â Â pt(k,j+joff,i+ioff)Â =Â pt(k,j,i) |
---|
806 | Â Â Â Â ENDDO |
---|
807 | Â Â ENDDO |
---|
808 | ! |
---|
809 | !-- In case of humidity, set boundary conditions also for q and vpt. |
---|
810 |   IF ( humidity ) THEN |
---|
811 |     koff = surf_lsm_h%koff |
---|
812 |     DO m = 1, surf_lsm_h%ns |
---|
813 |      i = surf_lsm_h%i(m) |
---|
814 |      j = surf_lsm_h%j(m) |
---|
815 |      k = surf_lsm_h%k(m) |
---|
816 | Â Â Â Â Â q(k+koff,j,i)Â Â =Â q(k,j,i) |
---|
817 | Â Â Â Â Â vpt(k+koff,j,i)Â =Â vpt(k,j,i) |
---|
818 | Â Â Â Â ENDDO |
---|
819 | |
---|
820 |     DO l = 0, 3 |
---|
821 |      ioff = surf_lsm_v(l)%ioff |
---|
822 |      joff = surf_lsm_v(l)%joff |
---|
823 |      DO m = 1, surf_lsm_v(l)%ns |
---|
824 |        i = surf_lsm_v(l)%i(m) |
---|
825 |        j = surf_lsm_v(l)%j(m) |
---|
826 |        k = surf_lsm_v(l)%k(m) |
---|
827 | Â Â Â Â Â Â Â q(k,j+joff,i+ioff)Â Â =Â q(k,j,i) |
---|
828 | Â Â Â Â Â Â Â vpt(k,j+joff,i+ioff)Â =Â vpt(k,j,i) |
---|
829 | Â Â Â Â Â ENDDO |
---|
830 | Â Â Â Â ENDDO |
---|
831 | Â Â ENDIF |
---|
832 | |
---|
833 | Â END SUBROUTINE lsm_boundary_condition |
---|
834 | |
---|
835 | !------------------------------------------------------------------------------! |
---|
836 | ! Description: |
---|
837 | ! ------------ |
---|
838 | !> Check data output for land surface model |
---|
839 | !------------------------------------------------------------------------------! |
---|
840 |  SUBROUTINE lsm_check_data_output( var, unit, i, ilen, k ) |
---|
841 | Â |
---|
842 | Â |
---|
843 |   USE control_parameters,                          & |
---|
844 |     ONLY: data_output, message_string |
---|
845 | |
---|
846 | Â Â IMPLICIT NONE |
---|
847 | |
---|
848 |   CHARACTER (LEN=*) :: unit !< |
---|
849 |   CHARACTER (LEN=*) :: var  !< |
---|
850 | |
---|
851 | Â Â INTEGER(iwp)Â ::Â i |
---|
852 |   INTEGER(iwp) :: ilen  |
---|
853 | Â Â INTEGER(iwp)Â ::Â k |
---|
854 | |
---|
855 |   SELECT CASE ( TRIM( var ) ) |
---|
856 | |
---|
857 | Â Â Â Â CASEÂ (Â 'm_soil'Â ) |
---|
858 |      IF ( .NOT. land_surface ) THEN |
---|
859 |        message_string = 'output of "' // TRIM( var ) // '" requi' //   & |
---|
860 | Â Â Â Â Â Â Â Â Â Â Â 'res land_surface = .TRUE.' |
---|
861 |        CALL message( 'lsm_check_data_output', 'PA0404', 1, 2, 0, 6, 0 ) |
---|
862 | Â Â Â Â Â ENDIF |
---|
863 |      unit = 'm3/m3' |
---|
864 | Â Â Â Â Â Â |
---|
865 | Â Â Â Â CASEÂ (Â 't_soil'Â ) |
---|
866 |      IF ( .NOT. land_surface ) THEN |
---|
867 |        message_string = 'output of "' // TRIM( var ) // '" requi' //   & |
---|
868 | Â Â Â Â Â Â Â Â Â Â Â 'res land_surface = .TRUE.' |
---|
869 |        CALL message( 'lsm_check_data_output', 'PA0404', 1, 2, 0, 6, 0 ) |
---|
870 | Â Â Â Â Â ENDIF |
---|
871 |      unit = 'K'  |
---|
872 | Â Â Â Â Â Â Â |
---|
873 |     CASE ( 'lai*', 'c_liq*', 'c_soil*', 'c_veg*', 'm_liq*',         & |
---|
874 |        'qsws_liq*', 'qsws_soil*', 'qsws_veg*', 'r_s*' ) |
---|
875 |      IF ( k == 0 .OR. data_output(i)(ilen-2:ilen) /= '_xy' ) THEN |
---|
876 |        message_string = 'illegal value for data_output: "' //      & |
---|
877 |                TRIM( var ) // '" & only 2d-horizontal ' //   & |
---|
878 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'cross sections are allowed for this value' |
---|
879 |        CALL message( 'lsm_check_data_output', 'PA0111', 1, 2, 0, 6, 0 ) |
---|
880 | Â Â Â Â Â ENDIF |
---|
881 |      IF ( TRIM( var ) == 'lai*' .AND. .NOT. land_surface ) THEN |
---|
882 |        message_string = 'output of "' // TRIM( var ) // '" requi' //   & |
---|
883 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'res land_surface = .TRUE.' |
---|
884 |        CALL message( 'lsm_check_data_output', 'PA0404', 1, 2, 0, 6, 0 ) |
---|
885 | Â Â Â Â Â ENDIF |
---|
886 |      IF ( TRIM( var ) == 'c_liq*' .AND. .NOT. land_surface ) THEN |
---|
887 |        message_string = 'output of "' // TRIM( var ) // '" requi' //   & |
---|
888 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'res land_surface = .TRUE.' |
---|
889 |        CALL message( 'lsm_check_data_output', 'PA0404', 1, 2, 0, 6, 0 ) |
---|
890 | Â Â Â Â Â ENDIF |
---|
891 |      IF ( TRIM( var ) == 'c_soil*' .AND. .NOT. land_surface ) THEN |
---|
892 |        message_string = 'output of "' // TRIM( var ) // '" requi' //   & |
---|
893 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'res land_surface = .TRUE.' |
---|
894 |        CALL message( 'lsm_check_data_output', 'PA0404', 1, 2, 0, 6, 0 ) |
---|
895 | Â Â Â Â Â ENDIF |
---|
896 |      IF ( TRIM( var ) == 'c_veg*' .AND. .NOT. land_surface ) THEN |
---|
897 |        message_string = 'output of "' // TRIM( var ) // '" requi' //   & |
---|
898 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'res land_surface = .TRUE.' |
---|
899 |        CALL message( 'lsm_check_data_output', 'PA0404', 1, 2, 0, 6, 0 ) |
---|
900 | Â Â Â Â Â ENDIF |
---|
901 |      IF ( TRIM( var ) == 'm_liq*' .AND. .NOT. land_surface ) THEN |
---|
902 |        message_string = 'output of "' // TRIM( var ) // '" requi' //   & |
---|
903 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'res land_surface = .TRUE.' |
---|
904 |        CALL message( 'lsm_check_data_output', 'PA0404', 1, 2, 0, 6, 0 ) |
---|
905 | Â Â Â Â Â ENDIF |
---|
906 |      IF ( TRIM( var ) == 'qsws_liq*' .AND. .NOT. land_surface )     & |
---|
907 | Â Â Â Â Â THEN |
---|
908 |        message_string = 'output of "' // TRIM( var ) // '" requi' //   & |
---|
909 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'res land_surface = .TRUE.' |
---|
910 |        CALL message( 'lsm_check_data_output', 'PA0404', 1, 2, 0, 6, 0 ) |
---|
911 | Â Â Â Â Â ENDIF |
---|
912 |      IF ( TRIM( var ) == 'qsws_soil*' .AND. .NOT. land_surface )    & |
---|
913 | Â Â Â Â Â THEN |
---|
914 |        message_string = 'output of "' // TRIM( var ) // '" requi' //   & |
---|
915 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'res land_surface = .TRUE.' |
---|
916 |        CALL message( 'lsm_check_data_output', 'PA0404', 1, 2, 0, 6, 0 ) |
---|
917 | Â Â Â Â Â ENDIF |
---|
918 |      IF ( TRIM( var ) == 'qsws_veg*' .AND. .NOT. land_surface )     & |
---|
919 | Â Â Â Â Â THEN |
---|
920 |        message_string = 'output of "' // TRIM( var ) // '" requi' //   & |
---|
921 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'res land_surface = .TRUE.' |
---|
922 |        CALL message( 'lsm_check_data_output', 'PA0404', 1, 2, 0, 6, 0 ) |
---|
923 | Â Â Â Â Â ENDIF |
---|
924 |      IF ( TRIM( var ) == 'r_s*' .AND. .NOT. land_surface )       & |
---|
925 | Â Â Â Â Â THEN |
---|
926 |        message_string = 'output of "' // TRIM( var ) // '" requi' //   & |
---|
927 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'res land_surface = .TRUE.' |
---|
928 |        CALL message( 'lsm_check_data_output', 'PA0404', 1, 2, 0, 6, 0 ) |
---|
929 | Â Â Â Â Â ENDIF |
---|
930 | |
---|
931 |      IF ( TRIM( var ) == 'lai*'  )   unit = 'none' |
---|
932 |      IF ( TRIM( var ) == 'c_liq*' )   unit = 'none' |
---|
933 |      IF ( TRIM( var ) == 'c_soil*')   unit = 'none' |
---|
934 |      IF ( TRIM( var ) == 'c_veg*' )   unit = 'none' |
---|
935 |      IF ( TRIM( var ) == 'm_liq*'   ) unit = 'm' |
---|
936 |      IF ( TRIM( var ) == 'qsws_liq*' ) unit = 'W/m2' |
---|
937 |      IF ( TRIM( var ) == 'qsws_soil*' ) unit = 'W/m2' |
---|
938 |      IF ( TRIM( var ) == 'qsws_veg*' ) unit = 'W/m2' |
---|
939 |      IF ( TRIM( var ) == 'r_s*')     unit = 's/m' |
---|
940 | Â Â Â Â Â Â Â |
---|
941 | Â Â Â Â CASE DEFAULT |
---|
942 |      unit = 'illegal' |
---|
943 | |
---|
944 | Â Â END SELECT |
---|
945 | |
---|
946 | |
---|
947 | Â END SUBROUTINE lsm_check_data_output |
---|
948 | |
---|
949 | |
---|
950 | |
---|
951 | !------------------------------------------------------------------------------! |
---|
952 | ! Description: |
---|
953 | ! ------------ |
---|
954 | !> Check data output of profiles for land surface model |
---|
955 | !------------------------------------------------------------------------------! |
---|
956 |  SUBROUTINE lsm_check_data_output_pr( variable, var_count, unit, dopr_unit ) |
---|
957 | Â |
---|
958 |   USE control_parameters,                          & |
---|
959 |     ONLY: data_output_pr, message_string |
---|
960 | |
---|
961 | Â Â USE indices |
---|
962 | |
---|
963 | Â Â USE profil_parameter |
---|
964 | |
---|
965 | Â Â USE statistics |
---|
966 | |
---|
967 | Â Â IMPLICIT NONE |
---|
968 | Â Â |
---|
969 |   CHARACTER (LEN=*) :: unit   !< |
---|
970 |   CHARACTER (LEN=*) :: variable !< |
---|
971 |   CHARACTER (LEN=*) :: dopr_unit !< local value of dopr_unit |
---|
972 | Â |
---|
973 |   INTEGER(iwp) :: var_count   !< |
---|
974 | |
---|
975 |   SELECT CASE ( TRIM( variable ) ) |
---|
976 | Â Â Â Â |
---|
977 |     CASE ( 't_soil', '#t_soil' ) |
---|
978 |      IF ( .NOT. land_surface ) THEN |
---|
979 |        message_string = 'data_output_pr = ' //              & |
---|
980 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRIM(Â data_output_pr(var_count)Â )Â //Â ' is'Â //Â Â & |
---|
981 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'not implemented for land_surface = .FALSE.' |
---|
982 |        CALL message( 'lsm_check_data_output_pr', 'PA0402', 1, 2, 0, 6, 0 ) |
---|
983 | Â Â Â Â Â ELSE |
---|
984 | Â Â Â Â Â Â Â dopr_index(var_count)Â =Â 89 |
---|
985 |        dopr_unit   = 'K' |
---|
986 |        hom(0:nzs-1,2,89,:) = SPREAD( - zs(nzb_soil:nzt_soil), 2, statistic_regions+1 ) |
---|
987 | Â Â Â Â Â Â Â IFÂ (Â data_output_pr(var_count)(1:1)Â ==Â '#'Â )Â THEN |
---|
988 | Â Â Â Â Â Â Â Â dopr_initial_index(var_count)Â =Â 90 |
---|
989 |         hom(0:nzs-1,2,90,:)  = SPREAD( - zs(nzb_soil:nzt_soil), 2, statistic_regions+1 ) |
---|
990 | Â Â Â Â Â Â Â Â data_output_pr(var_count)Â Â Â =Â data_output_pr(var_count)(2:) |
---|
991 | Â Â Â Â Â Â Â ENDIF |
---|
992 |        unit = dopr_unit |
---|
993 | Â Â Â Â Â ENDIF |
---|
994 | |
---|
995 |     CASE ( 'm_soil', '#m_soil' ) |
---|
996 |      IF ( .NOT. land_surface ) THEN |
---|
997 |        message_string = 'data_output_pr = ' //              & |
---|
998 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â TRIM(Â data_output_pr(var_count)Â )Â //Â ' is'Â //Â Â & |
---|
999 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ' not implemented for land_surface = .FALSE.' |
---|
1000 |        CALL message( 'lsm_check_data_output_pr', 'PA0402', 1, 2, 0, 6, 0 ) |
---|
1001 | Â Â Â Â Â ELSE |
---|
1002 | Â Â Â Â Â Â Â dopr_index(var_count)Â =Â 91 |
---|
1003 |        dopr_unit   = 'm3/m3' |
---|
1004 |        hom(0:nzs-1,2,91,:) = SPREAD( - zs(nzb_soil:nzt_soil), 2, statistic_regions+1 ) |
---|
1005 | Â Â Â Â Â Â Â IFÂ (Â data_output_pr(var_count)(1:1)Â ==Â '#'Â )Â THEN |
---|
1006 | Â Â Â Â Â Â Â Â dopr_initial_index(var_count)Â =Â 92 |
---|
1007 |         hom(0:nzs-1,2,92,:)  = SPREAD( - zs(nzb_soil:nzt_soil), 2, statistic_regions+1 ) |
---|
1008 | Â Â Â Â Â Â Â Â data_output_pr(var_count)Â Â Â =Â data_output_pr(var_count)(2:) |
---|
1009 | Â Â Â Â Â Â Â ENDIF |
---|
1010 |        unit = dopr_unit |
---|
1011 | Â Â Â Â Â ENDIF |
---|
1012 | |
---|
1013 | |
---|
1014 | Â Â Â Â CASE DEFAULT |
---|
1015 |      unit = 'illegal' |
---|
1016 | |
---|
1017 | Â Â END SELECT |
---|
1018 | |
---|
1019 | |
---|
1020 | Â END SUBROUTINE lsm_check_data_output_pr |
---|
1021 | Â |
---|
1022 | Â |
---|
1023 | !------------------------------------------------------------------------------! |
---|
1024 | ! Description: |
---|
1025 | ! ------------ |
---|
1026 | !> Check parameters routine for land surface model |
---|
1027 | !------------------------------------------------------------------------------! |
---|
1028 | Â SUBROUTINE lsm_check_parameters |
---|
1029 | |
---|
1030 |   USE control_parameters,                          & |
---|
1031 |     ONLY: bc_pt_b, bc_q_b, constant_flux_layer, message_string |
---|
1032 | Â Â Â Â Â Â Â Â Â Â Â |
---|
1033 | Â Â |
---|
1034 | Â Â IMPLICIT NONE |
---|
1035 | |
---|
1036 |   INTEGER(iwp) :: i    !< running index, x-dimension |
---|
1037 |   INTEGER(iwp) :: j    !< running index, y-dimension |
---|
1038 |   INTEGER(iwp) :: k    !< running index, z-dimension |
---|
1039 | Â Â |
---|
1040 |   LOGICAL   :: dynamic_soil_input_parent !< flag indicating the presence of a dynamic input file for the parent |
---|
1041 | |
---|
1042 | ! |
---|
1043 | !-- Check for a valid setting of surface_type. The default value is 'netcdf'. |
---|
1044 | !-- In that case, the surface types are read from NetCDF file |
---|
1045 |   IF ( TRIM( surface_type ) /= 'vegetation' .AND.              & |
---|
1046 |      TRIM( surface_type ) /= 'pavement'  .AND.              & |
---|
1047 |      TRIM( surface_type ) /= 'water'    .AND.              & |
---|
1048 |      TRIM( surface_type ) /= 'netcdf' ) THEN |
---|
1049 |     message_string = 'unknown surface type: surface_type = "' //      & |
---|
1050 |             TRIM( surface_type ) // '"' |
---|
1051 |     CALL message( 'lsm_check_parameters', 'PA0019', 1, 2, 0, 6, 0 ) |
---|
1052 | Â Â ENDIF |
---|
1053 | |
---|
1054 | ! |
---|
1055 | !-- Dirichlet boundary conditions are required as the surface fluxes are |
---|
1056 | !-- calculated from the temperature/humidity gradients in the land surface |
---|
1057 | !-- model |
---|
1058 |   IF ( bc_pt_b == 'neumann' .OR. bc_q_b == 'neumann' ) THEN |
---|
1059 |     message_string = 'lsm requires setting of'//              & |
---|
1060 | Â Â Â Â Â Â Â Â Â Â Â Â 'bc_pt_b = "dirichlet" and '//Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
1061 |             'bc_q_b = "dirichlet"' |
---|
1062 |     CALL message( 'lsm_check_parameters', 'PA0399', 1, 2, 0, 6, 0 ) |
---|
1063 | Â Â ENDIF |
---|
1064 | |
---|
1065 |   IF ( .NOT. constant_flux_layer ) THEN |
---|
1066 |     message_string = 'lsm requires '//                   & |
---|
1067 | Â Â Â Â Â Â Â Â Â Â Â Â 'constant_flux_layer = .T.' |
---|
1068 |     CALL message( 'lsm_check_parameters', 'PA0400', 1, 2, 0, 6, 0 ) |
---|
1069 | Â Â ENDIF |
---|
1070 | Â Â |
---|
1071 |   IF ( .NOT. radiation ) THEN |
---|
1072 |     message_string = 'lsm requires '//                   & |
---|
1073 | Â Â Â Â Â Â Â Â Â Â Â Â 'the radiation model to be switched on' |
---|
1074 |     CALL message( 'lsm_check_parameters', 'PA0400', 1, 2, 0, 6, 0 ) |
---|
1075 | Â Â ENDIF |
---|
1076 | ! |
---|
1077 | !-- Check if soil types are set within a valid range. |
---|
1078 |   IF ( TRIM( surface_type ) == 'vegetation' .OR.              & |
---|
1079 |      TRIM( surface_type ) == 'pavement' ) THEN |
---|
1080 |     IF ( soil_type < LBOUND( soil_pars, 2 ) .AND.             & |
---|
1081 |       soil_type > UBOUND( soil_pars, 2 ) ) THEN |
---|
1082 |      WRITE( message_string, * ) 'soil_type = ', soil_type, ' is out ' // & |
---|
1083 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'of the valid range' |
---|
1084 |      CALL message( 'lsm_check_parameters', 'PA0452', 2, 2, 0, 6, 0 ) |
---|
1085 | Â Â Â Â ENDIF |
---|
1086 | Â Â ENDIF |
---|
1087 |   IF ( TRIM( surface_type ) == 'netcdf' ) THEN |
---|
1088 |     IF ( soil_type_f%from_file ) THEN |
---|
1089 |      DO i = nxl, nxr |
---|
1090 |        DO j = nys, nyn |
---|
1091 |         IF ( soil_type_f%var_2d(j,i) /= soil_type_f%fill .AND.    & |
---|
1092 |            ( soil_type_f%var_2d(j,i) < LBOUND( soil_pars, 2 ) .OR. & |
---|
1093 |             soil_type_f%var_2d(j,i) > UBOUND( soil_pars, 2 ) ) ) THEN |
---|
1094 |           WRITE( message_string, * ) 'soil_type = is out of ' //   & |
---|
1095 |                     'the valid range at (j,i) = ', j, i |
---|
1096 |           CALL message( 'lsm_check_parameters', 'PA0452',       & |
---|
1097 |                  2, 2, myid, 6, 0 ) |
---|
1098 | Â Â Â Â Â Â Â Â ENDIF |
---|
1099 | Â Â Â Â Â Â Â ENDDO |
---|
1100 | Â Â Â Â Â ENDDO |
---|
1101 | Â Â Â Â ENDIF |
---|
1102 | Â Â ENDIF |
---|
1103 | ! |
---|
1104 | !-- Check if vegetation types are set within a valid range.  |
---|
1105 |   IF ( TRIM( surface_type ) == 'vegetation' ) THEN |
---|
1106 |     IF ( vegetation_type < LBOUND( vegetation_pars, 2 ) .AND.       & |
---|
1107 |       vegetation_type > UBOUND( vegetation_pars, 2 ) ) THEN |
---|
1108 |      WRITE( message_string, * ) 'vegetation_type = ', vegetation_type,  & |
---|
1109 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ' is out of the valid range' |
---|
1110 |      CALL message( 'lsm_check_parameters', 'PA0526', 2, 2, 0, 6, 0 ) |
---|
1111 | Â Â Â Â ENDIF |
---|
1112 | Â Â ENDIF |
---|
1113 |   IF ( TRIM( surface_type ) == 'netcdf' ) THEN |
---|
1114 |     IF ( vegetation_type_f%from_file ) THEN |
---|
1115 |      DO i = nxl, nxr |
---|
1116 |        DO j = nys, nyn |
---|
1117 |         IF ( vegetation_type_f%var(j,i) /= vegetation_type_f%fill .AND.& |
---|
1118 |        ( vegetation_type_f%var(j,i) < LBOUND( vegetation_pars, 2 ) .OR.& |
---|
1119 |         vegetation_type_f%var(j,i) > UBOUND( vegetation_pars, 2 ) ) ) & |
---|
1120 | Â Â Â Â Â Â Â Â THEN |
---|
1121 |           WRITE( message_string, * ) 'vegetation_type = is out of ' //& |
---|
1122 |                     'the valid range at (j,i) = ', j, i |
---|
1123 |           CALL message( 'lsm_check_parameters', 'PA0526',       & |
---|
1124 |                  2, 2, myid, 6, 0 ) |
---|
1125 | Â Â Â Â Â Â Â Â ENDIF |
---|
1126 | Â Â Â Â Â Â Â ENDDO |
---|
1127 | Â Â Â Â Â ENDDO |
---|
1128 | Â Â Â Â ENDIF |
---|
1129 | Â Â ENDIF |
---|
1130 | ! |
---|
1131 | !-- Check if pavement types are set within a valid range.  |
---|
1132 |   IF ( TRIM( surface_type ) == 'pavement' ) THEN |
---|
1133 |     IF ( pavement_type < LBOUND( pavement_pars, 2 ) .AND.         & |
---|
1134 |       pavement_type > UBOUND( pavement_pars, 2 ) ) THEN |
---|
1135 |      WRITE( message_string, * ) 'pavement_type = ', pavement_type,    & |
---|
1136 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ' is out of the valid range' |
---|
1137 |      CALL message( 'lsm_check_parameters', 'PA0527', 2, 2, 0, 6, 0 ) |
---|
1138 | Â Â Â Â ENDIF |
---|
1139 | Â Â ENDIF |
---|
1140 |   IF ( TRIM( surface_type ) == 'netcdf' ) THEN |
---|
1141 |     IF ( pavement_type_f%from_file ) THEN |
---|
1142 |      DO i = nxl, nxr |
---|
1143 |        DO j = nys, nyn |
---|
1144 |         IF ( pavement_type_f%var(j,i) /= pavement_type_f%fill .AND.  & |
---|
1145 |        ( pavement_type_f%var(j,i) < LBOUND( pavement_pars, 2 ) .OR.  & |
---|
1146 |         pavement_type_f%var(j,i) > UBOUND( pavement_pars, 2 ) ) ) THEN |
---|
1147 |           WRITE( message_string, * ) 'pavement_type = is out of ' // & |
---|
1148 |                     'the valid range at (j,i) = ', j, i |
---|
1149 |           CALL message( 'lsm_check_parameters', 'PA0527',       & |
---|
1150 |                  2, 2, myid, 6, 0 ) |
---|
1151 | Â Â Â Â Â Â Â Â ENDIF |
---|
1152 | Â Â Â Â Â Â Â ENDDO |
---|
1153 | Â Â Â Â Â ENDDO |
---|
1154 | Â Â Â Â ENDIF |
---|
1155 | Â Â ENDIF |
---|
1156 | ! |
---|
1157 | !-- Check if water types are set within a valid range.  |
---|
1158 |   IF ( TRIM( surface_type ) == 'water' ) THEN |
---|
1159 |     IF ( water_type < LBOUND( water_pars, 2 ) .AND.            & |
---|
1160 |       water_type > UBOUND( water_pars, 2 ) ) THEN |
---|
1161 |      WRITE( message_string, * ) 'water_type = ', water_type,       & |
---|
1162 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ' is out of the valid range' |
---|
1163 |      CALL message( 'lsm_check_parameters', 'PA0528', 2, 2, 0, 6, 0 ) |
---|
1164 | Â Â Â Â ENDIF |
---|
1165 | Â Â ENDIF |
---|
1166 |   IF ( TRIM( surface_type ) == 'netcdf' ) THEN |
---|
1167 |     IF ( water_type_f%from_file ) THEN |
---|
1168 |      DO i = nxl, nxr |
---|
1169 |        DO j = nys, nyn |
---|
1170 |         IF ( water_type_f%var(j,i) /= water_type_f%fill .AND.     & |
---|
1171 |        ( water_type_f%var(j,i) < LBOUND( water_pars, 2 ) .OR.     & |
---|
1172 |         water_type_f%var(j,i) > UBOUND( water_pars, 2 ) ) ) THEN |
---|
1173 |           WRITE( message_string, * ) 'water_type = is out of ' //  & |
---|
1174 |                     'the valid range at (j,i) = ', j, i |
---|
1175 |           CALL message( 'lsm_check_parameters', 'PA0528',       & |
---|
1176 |                  2, 2, myid, 6, 0 ) |
---|
1177 | Â Â Â Â Â Â Â Â ENDIF |
---|
1178 | Â Â Â Â Â Â Â ENDDO |
---|
1179 | Â Â Â Â Â ENDDO |
---|
1180 | Â Â Â Â ENDIF |
---|
1181 | Â Â ENDIF |
---|
1182 | ! |
---|
1183 | !-- Check further settings for consistency. |
---|
1184 |   IF ( TRIM( surface_type ) == 'vegetation' ) THEN |
---|
1185 | Â Â |
---|
1186 |     IF ( vegetation_type == 0 ) THEN |
---|
1187 |      IF ( min_canopy_resistance == 9999999.9_wp ) THEN |
---|
1188 |        message_string = 'vegetation_type = 0 (user defined)'//      & |
---|
1189 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of min_canopy_resistance'//Â Â & |
---|
1190 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1191 |        CALL message( 'lsm_check_parameters', 'PA0401', 1, 2, 0, 6, 0 ) |
---|
1192 | Â Â Â Â Â ENDIF |
---|
1193 | |
---|
1194 |      IF ( leaf_area_index == 9999999.9_wp ) THEN |
---|
1195 |        message_string = 'vegetation_type = 0 (user_defined)'//      & |
---|
1196 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of leaf_area_index'//Â Â Â Â Â & |
---|
1197 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1198 |        CALL message( 'lsm_check_parameters', 'PA0401', 1, 2, 0, 6, 0 ) |
---|
1199 | Â Â Â Â Â ENDIF |
---|
1200 | |
---|
1201 |      IF ( vegetation_coverage == 9999999.9_wp ) THEN |
---|
1202 |        message_string = 'vegetation_type = 0 (user_defined)'//      & |
---|
1203 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of vegetation_coverage'//Â Â Â & |
---|
1204 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1205 |        CALL message( 'lsm_check_parameters', 'PA0401', 1, 2, 0, 6, 0 ) |
---|
1206 | Â Â Â Â Â ENDIF |
---|
1207 | |
---|
1208 |      IF ( canopy_resistance_coefficient == 9999999.9_wp) THEN |
---|
1209 |        message_string = 'vegetation_type = 0 (user_defined)'//      & |
---|
1210 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of'//Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
1211 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'canopy_resistance_coefficient /= 9999999.9' |
---|
1212 |        CALL message( 'lsm_check_parameters', 'PA0401', 1, 2, 0, 6, 0 ) |
---|
1213 | Â Â Â Â Â ENDIF |
---|
1214 | |
---|
1215 |      IF ( lambda_surface_stable == 9999999.9_wp ) THEN |
---|
1216 |        message_string = 'vegetation_type = 0 (user_defined)'//      & |
---|
1217 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of lambda_surface_stable'//Â Â & |
---|
1218 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1219 |        CALL message( 'lsm_check_parameters', 'PA0401', 1, 2, 0, 6, 0 ) |
---|
1220 | Â Â Â Â Â ENDIF |
---|
1221 | |
---|
1222 |      IF ( lambda_surface_unstable == 9999999.9_wp ) THEN |
---|
1223 |        message_string = 'vegetation_type = 0 (user_defined)'//      & |
---|
1224 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of lambda_surface_unstable'//Â & |
---|
1225 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1226 |        CALL message( 'lsm_check_parameters', 'PA0401', 1, 2, 0, 6, 0 ) |
---|
1227 | Â Â Â Â Â ENDIF |
---|
1228 | |
---|
1229 |      IF ( f_shortwave_incoming == 9999999.9_wp ) THEN |
---|
1230 |        message_string = 'vegetation_type = 0 (user_defined)'//      & |
---|
1231 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of f_shortwave_incoming'//Â Â Â & |
---|
1232 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1233 |        CALL message( 'lsm_check_parameters', 'PA0401', 1, 2, 0, 6, 0 ) |
---|
1234 | Â Â Â Â Â ENDIF |
---|
1235 | |
---|
1236 |      IF ( z0_vegetation == 9999999.9_wp ) THEN |
---|
1237 |        message_string = 'vegetation_type = 0 (user_defined)'//      & |
---|
1238 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of z0_vegetation'//Â Â Â Â Â Â & |
---|
1239 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1240 |        CALL message( 'lsm_check_parameters', 'PA0401', 1, 2, 0, 6, 0 ) |
---|
1241 | Â Â Â Â Â ENDIF |
---|
1242 | |
---|
1243 |      IF ( z0h_vegetation == 9999999.9_wp ) THEN |
---|
1244 |        message_string = 'vegetation_type = 0 (user_defined)'//      & |
---|
1245 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of z0h_vegetation'//Â Â Â Â Â Â & |
---|
1246 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1247 |        CALL message( 'lsm_check_parameters', 'PA0401', 1, 2, 0, 6, 0 ) |
---|
1248 | Â Â Â Â Â ENDIF |
---|
1249 | Â Â Â Â ENDIF |
---|
1250 | |
---|
1251 |     IF ( vegetation_type == 1 ) THEN |
---|
1252 |      IF ( vegetation_coverage /= 9999999.9_wp .AND. vegetation_coverage & |
---|
1253 |         /= 0.0_wp ) THEN |
---|
1254 |        message_string = 'vegetation_type = 1 (bare soil)'//       & |
---|
1255 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ' requires vegetation_coverage = 0' |
---|
1256 |        CALL message( 'lsm_check_parameters', 'PA0294', 1, 2, 0, 6, 0 ) |
---|
1257 | Â Â Â Â Â ENDIF |
---|
1258 | Â Â Â Â ENDIF |
---|
1259 | Â |
---|
1260 | Â Â ENDIF |
---|
1261 | Â Â |
---|
1262 |   IF ( TRIM( surface_type ) == 'water' ) THEN |
---|
1263 | |
---|
1264 |     IF ( water_type == 0 ) THEN |
---|
1265 | Â Â Â Â |
---|
1266 |      IF ( z0_water == 9999999.9_wp ) THEN |
---|
1267 |        message_string = 'water_type = 0 (user_defined)'//        & |
---|
1268 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of z0_water'//Â Â Â Â Â Â Â Â Â & |
---|
1269 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1270 |        CALL message( 'lsm_check_parameters', 'PA0415', 1, 2, 0, 6, 0 ) |
---|
1271 | Â Â Â Â Â ENDIF |
---|
1272 | |
---|
1273 |      IF ( z0h_water == 9999999.9_wp ) THEN |
---|
1274 |        message_string = 'water_type = 0 (user_defined)'//        & |
---|
1275 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of z0h_water'//Â Â Â Â Â Â Â Â & |
---|
1276 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1277 |        CALL message( 'lsm_check_parameters', 'PA0392', 1, 2, 0, 6, 0 ) |
---|
1278 | Â Â Â Â Â ENDIF |
---|
1279 | Â Â Â Â Â |
---|
1280 |      IF ( water_temperature == 9999999.9_wp ) THEN |
---|
1281 |        message_string = 'water_type = 0 (user_defined)'//        & |
---|
1282 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of water_temperature'//Â Â Â Â & |
---|
1283 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1284 |        CALL message( 'lsm_check_parameters', 'PA0379', 1, 2, 0, 6, 0 ) |
---|
1285 | Â Â Â Â Â ENDIFÂ Â Â Â |
---|
1286 | Â Â Â Â Â |
---|
1287 | Â Â Â Â ENDIF |
---|
1288 | Â Â Â Â |
---|
1289 | Â Â ENDIF |
---|
1290 | Â Â |
---|
1291 |   IF ( TRIM( surface_type ) == 'pavement' ) THEN |
---|
1292 | |
---|
1293 |     IF ( ANY( dz_soil /= 9999999.9_wp ) .AND. pavement_type /= 0 ) THEN |
---|
1294 |      message_string = 'non-default setting of dz_soil '//         & |
---|
1295 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'does not allow to use pavement_type /= 0)' |
---|
1296 |      CALL message( 'lsm_check_parameters', 'PA0341', 1, 2, 0, 6, 0 ) |
---|
1297 | Â Â Â Â ENDIF |
---|
1298 | |
---|
1299 |     IF ( pavement_type == 0 ) THEN |
---|
1300 | Â Â Â Â |
---|
1301 |      IF ( z0_pavement == 9999999.9_wp ) THEN |
---|
1302 |        message_string = 'pavement_type = 0 (user_defined)'//       & |
---|
1303 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of z0_pavement'//Â Â Â Â Â Â Â & |
---|
1304 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1305 |        CALL message( 'lsm_check_parameters', 'PA0352', 1, 2, 0, 6, 0 ) |
---|
1306 | Â Â Â Â Â ENDIF |
---|
1307 | Â Â Â Â Â |
---|
1308 |      IF ( z0h_pavement == 9999999.9_wp ) THEN |
---|
1309 |        message_string = 'pavement_type = 0 (user_defined)'//       & |
---|
1310 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of z0h_pavement'//Â Â Â Â Â Â Â & |
---|
1311 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1312 |        CALL message( 'lsm_check_parameters', 'PA0353', 1, 2, 0, 6, 0 ) |
---|
1313 | Â Â Â Â Â ENDIF |
---|
1314 | Â Â Â Â Â |
---|
1315 |      IF ( pavement_heat_conduct == 9999999.9_wp ) THEN |
---|
1316 |        message_string = 'pavement_type = 0 (user_defined)'//       & |
---|
1317 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of pavement_heat_conduct'//Â Â & |
---|
1318 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1319 |        CALL message( 'lsm_check_parameters', 'PA0342', 1, 2, 0, 6, 0 ) |
---|
1320 | Â Â Â Â Â ENDIF |
---|
1321 | Â Â Â Â Â |
---|
1322 |       IF ( pavement_heat_capacity == 9999999.9_wp ) THEN |
---|
1323 |        message_string = 'pavement_type = 0 (user_defined)'//       & |
---|
1324 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of pavement_heat_capacity'//Â Â & |
---|
1325 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1326 |        CALL message( 'lsm_check_parameters', 'PA0139', 1, 2, 0, 6, 0 ) |
---|
1327 | Â Â Â Â Â ENDIF |
---|
1328 | |
---|
1329 |      IF ( pavement_depth_level == 0 ) THEN |
---|
1330 |        message_string = 'pavement_type = 0 (user_defined)'//       & |
---|
1331 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of pavement_depth_level'//Â Â Â & |
---|
1332 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 0' |
---|
1333 |        CALL message( 'lsm_check_parameters', 'PA0474', 1, 2, 0, 6, 0 ) |
---|
1334 | Â Â Â Â Â ENDIF |
---|
1335 | |
---|
1336 | Â Â Â Â ENDIF |
---|
1337 | Â Â |
---|
1338 | Â Â ENDIF |
---|
1339 | |
---|
1340 |   IF ( TRIM( surface_type ) == 'netcdf' ) THEN |
---|
1341 | ! |
---|
1342 | !--Â Â MS: Some problme here, after calling message everythings stucks at |
---|
1343 | !--Â Â Â Â MPI_FINALIZE call. |
---|
1344 |     IF ( ANY( pavement_type_f%var /= pavement_type_f%fill ) .AND.      & |
---|
1345 |       ANY( dz_soil /= 9999999.9_wp ) ) THEN |
---|
1346 |      message_string = 'pavement-surfaces are not allowed in ' //      & |
---|
1347 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'combination with a non-default setting of dz_soil' |
---|
1348 |      CALL message( 'lsm_check_parameters', 'PA0316', 2, 2, 0, 6, 0 ) |
---|
1349 | Â Â Â Â ENDIF |
---|
1350 | Â Â ENDIF |
---|
1351 | Â Â |
---|
1352 | ! |
---|
1353 | !-- Temporary message as long as NetCDF input is not available |
---|
1354 |   IF ( TRIM( surface_type ) == 'netcdf' .AND. .NOT. input_pids_static )  & |
---|
1355 | Â Â THEN |
---|
1356 |     message_string = 'surface_type = netcdf requires static input file.' |
---|
1357 |     CALL message( 'lsm_check_parameters', 'PA0465', 1, 2, 0, 6, 0 ) |
---|
1358 | Â Â ENDIF |
---|
1359 | |
---|
1360 |   IF ( soil_type == 0 .AND. .NOT. input_pids_static ) THEN |
---|
1361 | |
---|
1362 |     IF ( alpha_vangenuchten == 9999999.9_wp ) THEN |
---|
1363 |      message_string = 'soil_type = 0 (user_defined)'//          & |
---|
1364 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of alpha_vangenuchten'//Â Â Â Â Â & |
---|
1365 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1366 |      CALL message( 'lsm_check_parameters', 'PA0403', 1, 2, 0, 6, 0 ) |
---|
1367 | Â Â Â Â ENDIF |
---|
1368 | |
---|
1369 |     IF ( l_vangenuchten == 9999999.9_wp ) THEN |
---|
1370 |      message_string = 'soil_type = 0 (user_defined)'//          & |
---|
1371 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of l_vangenuchten'//Â Â Â Â Â Â Â & |
---|
1372 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1373 |      CALL message( 'lsm_check_parameters', 'PA0403', 1, 2, 0, 6, 0 ) |
---|
1374 | Â Â Â Â ENDIF |
---|
1375 | |
---|
1376 |     IF ( n_vangenuchten == 9999999.9_wp ) THEN |
---|
1377 |      message_string = 'soil_type = 0 (user_defined)'//          & |
---|
1378 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of n_vangenuchten'//Â Â Â Â Â Â Â & |
---|
1379 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1380 |      CALL message( 'lsm_check_parameters', 'PA0403', 1, 2, 0, 6, 0 ) |
---|
1381 | Â Â Â Â ENDIF |
---|
1382 | |
---|
1383 |     IF ( hydraulic_conductivity == 9999999.9_wp ) THEN |
---|
1384 |      message_string = 'soil_type = 0 (user_defined)'//          & |
---|
1385 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of hydraulic_conductivity'//Â Â Â & |
---|
1386 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1387 |      CALL message( 'lsm_check_parameters', 'PA0403', 1, 2, 0, 6, 0 ) |
---|
1388 | Â Â Â Â ENDIF |
---|
1389 | |
---|
1390 |     IF ( saturation_moisture == 9999999.9_wp ) THEN |
---|
1391 |      message_string = 'soil_type = 0 (user_defined)'//          & |
---|
1392 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of saturation_moisture'//Â Â Â Â Â & |
---|
1393 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1394 |      CALL message( 'lsm_check_parameters', 'PA0403', 1, 2, 0, 6, 0 ) |
---|
1395 | Â Â Â Â ENDIF |
---|
1396 | |
---|
1397 |     IF ( field_capacity == 9999999.9_wp ) THEN |
---|
1398 |      message_string = 'soil_type = 0 (user_defined)'//          & |
---|
1399 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of field_capacity'//Â Â Â Â Â Â Â & |
---|
1400 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1401 |      CALL message( 'lsm_check_parameters', 'PA0403', 1, 2, 0, 6, 0 ) |
---|
1402 | Â Â Â Â ENDIF |
---|
1403 | |
---|
1404 |     IF ( wilting_point == 9999999.9_wp ) THEN |
---|
1405 |      message_string = 'soil_type = 0 (user_defined)'//          & |
---|
1406 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of wilting_point'//Â Â Â Â Â Â Â Â & |
---|
1407 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1408 |      CALL message( 'lsm_check_parameters', 'PA0403', 1, 2, 0, 6, 0 ) |
---|
1409 | Â Â Â Â ENDIF |
---|
1410 | |
---|
1411 |     IF ( residual_moisture == 9999999.9_wp ) THEN |
---|
1412 |      message_string = 'soil_type = 0 (user_defined)'//          & |
---|
1413 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of residual_moisture'//Â Â Â Â Â Â & |
---|
1414 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1415 |      CALL message( 'lsm_check_parameters', 'PA0403', 1, 2, 0, 6, 0 ) |
---|
1416 | Â Â Â Â ENDIF |
---|
1417 | |
---|
1418 | Â Â ENDIF |
---|
1419 | |
---|
1420 | |
---|
1421 | !!! these checks are not needed for water surfaces?? |
---|
1422 | |
---|
1423 | ! |
---|
1424 | !-- Determine number of soil layers to be used and check whether an appropriate |
---|
1425 | !-- root fraction is prescribed |
---|
1426 |   nzb_soil = 0 |
---|
1427 |   nzt_soil = -1 |
---|
1428 |   IF ( ALL( dz_soil == 9999999.9_wp ) ) THEN |
---|
1429 |     nzt_soil = 7 |
---|
1430 | Â Â Â Â dz_soil(nzb_soil:nzt_soil)Â =Â dz_soil_default |
---|
1431 | Â Â ELSE |
---|
1432 |     DO k = 0, 19 |
---|
1433 |      IF ( dz_soil(k) /= 9999999.9_wp ) THEN |
---|
1434 |        nzt_soil = nzt_soil + 1 |
---|
1435 | Â Â Â Â Â ENDIF |
---|
1436 | Â Â Â Â ENDDOÂ Â |
---|
1437 | Â Â ENDIF |
---|
1438 |   nzs = nzt_soil + 1 |
---|
1439 | |
---|
1440 | ! |
---|
1441 | !-- Check whether valid soil temperatures are prescribed. Only check this if |
---|
1442 | !-- no dynamic soil is not initialized with dynamic input. |
---|
1443 | !-- In a nested case, check whether there is a dynamic input file for the |
---|
1444 | !-- child (input_pids_dynamic = .T.) or one for the parent (inquire without |
---|
1445 | !-- coupling_char. |
---|
1446 |   INQUIRE( FILE = TRIM( input_file_dynamic ),                & |
---|
1447 |        EXIST = dynamic_soil_input_parent ) |
---|
1448 | |
---|
1449 |   IF ( .NOT. input_pids_dynamic .AND. .NOT. dynamic_soil_input_parent ) THEN |
---|
1450 |     IF ( COUNT( soil_temperature /= 9999999.9_wp ) /= nzs ) THEN |
---|
1451 |      WRITE( message_string, * )                      & |
---|
1452 |                  'number of soil layers (', nzs, ') does not',& |
---|
1453 |                  ' match to the number of layers specified', & |
---|
1454 |                  ' in soil_temperature (', COUNT(       & |
---|
1455 |                  soil_temperature /= 9999999.9_wp ), ')' |
---|
1456 |        CALL message( 'lsm_check_parameters', 'PA0471', 1, 2, 0, 6, 0 ) |
---|
1457 | Â Â Â Â ENDIF |
---|
1458 | |
---|
1459 |     IF ( deep_soil_temperature == 9999999.9_wp ) THEN |
---|
1460 |        message_string = 'deep_soil_temperature is not set but must be'// & |
---|
1461 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9' |
---|
1462 |        CALL message( 'lsm_check_parameters', 'PA0472', 1, 2, 0, 6, 0 ) |
---|
1463 | Â Â Â Â ENDIF |
---|
1464 | Â Â ENDIF |
---|
1465 | |
---|
1466 | ! |
---|
1467 | !-- Check whether the sum of all root fractions equals one |
---|
1468 |   IF ( .NOT. vegetation_type_f%from_file ) THEN |
---|
1469 |     IF ( vegetation_type == 0 ) THEN |
---|
1470 |      IF ( SUM( root_fraction(nzb_soil:nzt_soil) ) /= 1.0_wp ) THEN |
---|
1471 |        message_string = 'vegetation_type = 0 (user_defined)'//      & |
---|
1472 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'requires setting of root_fraction'//Â Â Â Â Â Â & |
---|
1473 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â '/= 9999999.9 and SUM(root_fraction) = 1' |
---|
1474 |        CALL message( 'lsm_check_parameters', 'PA0401', 1, 2, 0, 6, 0 ) |
---|
1475 | Â Â Â Â Â ENDIF |
---|
1476 | Â Â Â Â ENDIF |
---|
1477 | Â Â ENDIF |
---|
1478 | ! |
---|
1479 | !-- Calculate grid spacings. Temperature and moisture are defined at |
---|
1480 | !-- the center of the soil layers, whereas gradients/fluxes are |
---|
1481 | !-- defined at the edges (_layer) |
---|
1482 | ! |
---|
1483 | !-- Allocate global 1D arrays |
---|
1484 | Â Â ALLOCATEÂ (Â ddz_soil_center(nzb_soil:nzt_soil)Â ) |
---|
1485 | Â Â ALLOCATEÂ (Â ddz_soil(nzb_soil:nzt_soil+1)Â ) |
---|
1486 | Â Â ALLOCATEÂ (Â dz_soil_center(nzb_soil:nzt_soil)Â ) |
---|
1487 | Â Â ALLOCATEÂ (Â zs(nzb_soil:nzt_soil+1)Â ) |
---|
1488 | |
---|
1489 | |
---|
1490 |   zs(nzb_soil) = 0.5_wp * dz_soil(nzb_soil) |
---|
1491 | Â Â zs_layer(nzb_soil)Â =Â dz_soil(nzb_soil) |
---|
1492 | |
---|
1493 |   DO k = nzb_soil+1, nzt_soil |
---|
1494 | Â Â Â Â zs_layer(k)Â =Â zs_layer(k-1)Â +Â dz_soil(k) |
---|
1495 | Â Â Â Â zs(k)Â =Â (zs_layer(k)Â +Â zs_layer(k-1))Â *Â 0.5_wp |
---|
1496 | Â Â ENDDO |
---|
1497 | |
---|
1498 | Â Â dz_soil(nzt_soil+1)Â =Â zs_layer(nzt_soil)Â +Â dz_soil(nzt_soil) |
---|
1499 |   zs(nzt_soil+1) = zs_layer(nzt_soil) + 0.5_wp * dz_soil(nzt_soil) |
---|
1500 | Â |
---|
1501 |   DO k = nzb_soil, nzt_soil-1 |
---|
1502 | Â Â Â Â dz_soil_center(k)Â =Â zs(k+1)Â -Â zs(k) |
---|
1503 |     IF ( dz_soil_center(k) <= 0.0_wp ) THEN |
---|
1504 |      message_string = 'invalid soil layer configuration found ' //    & |
---|
1505 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â '(dz_soil_center(k) <= 0.0)' |
---|
1506 |      CALL message( 'lsm_rrd_local', 'PA0140', 1, 2, 0, 6, 0 ) |
---|
1507 | Â Â Â Â ENDIFÂ |
---|
1508 | Â Â ENDDO |
---|
1509 | Â |
---|
1510 | Â Â dz_soil_center(nzt_soil)Â =Â zs_layer(k-1)Â +Â dz_soil(k)Â -Â zs(nzt_soil) |
---|
1511 | Â Â Â Â |
---|
1512 |   ddz_soil_center = 1.0_wp / dz_soil_center |
---|
1513 |   ddz_soil(nzb_soil:nzt_soil) = 1.0_wp / dz_soil(nzb_soil:nzt_soil) |
---|
1514 | |
---|
1515 | |
---|
1516 | |
---|
1517 | Â END SUBROUTINE lsm_check_parameters |
---|
1518 | Â |
---|
1519 | !------------------------------------------------------------------------------! |
---|
1520 | ! Description: |
---|
1521 | ! ------------ |
---|
1522 | !> Solver for the energy balance at the surface. |
---|
1523 | !------------------------------------------------------------------------------! |
---|
1524 |  SUBROUTINE lsm_energy_balance( horizontal, l ) |
---|
1525 | |
---|
1526 | Â Â USE pegrid |
---|
1527 |   USE radiation_model_mod, ONLY: rad_lw_out |
---|
1528 | |
---|
1529 | Â Â IMPLICIT NONE |
---|
1530 | |
---|
1531 |   INTEGER(iwp) :: i     !< running index |
---|
1532 |   INTEGER(iwp) :: i_off   !< offset to determine index of surface element, seen from atmospheric grid point, for x |
---|
1533 |   INTEGER(iwp) :: j     !< running index |
---|
1534 |   INTEGER(iwp) :: j_off   !< offset to determine index of surface element, seen from atmospheric grid point, for y |
---|
1535 |   INTEGER(iwp) :: k     !< running index |
---|
1536 |   INTEGER(iwp) :: k_off   !< offset to determine index of surface element, seen from atmospheric grid point, for z |
---|
1537 |   INTEGER(iwp) :: ks    !< running index |
---|
1538 |   INTEGER(iwp) :: l     !< surface-facing index |
---|
1539 |   INTEGER(iwp) :: m     !< running index concerning wall elements |
---|
1540 | |
---|
1541 |   LOGICAL   :: horizontal !< Flag indicating horizontal or vertical surfaces |
---|
1542 | |
---|
1543 | Â Â REAL(wp)Â ::Â c_surface_tmp,&Â !< temporary variable for storing the volumetric heat capacity of the surface |
---|
1544 |         f1,     & !< resistance correction term 1 |
---|
1545 |         f2,     & !< resistance correction term 2 |
---|
1546 |         f3,     & !< resistance correction term 3 |
---|
1547 |         m_min,    & !< minimum soil moisture |
---|
1548 |         e,      & !< water vapour pressure |
---|
1549 |         e_s,     & !< water vapour saturation pressure |
---|
1550 |         e_s_dt,   & !< derivate of e_s with respect to T |
---|
1551 |         tend,    & !< tendency |
---|
1552 |         dq_s_dt,   & !< derivate of q_s with respect to T |
---|
1553 |         coef_1,   & !< coef. for prognostic equation |
---|
1554 |         coef_2,   & !< coef. for prognostic equation |
---|
1555 |         f_qsws,   & !< factor for qsws |
---|
1556 |         f_qsws_veg, & !< factor for qsws_veg |
---|
1557 |         f_qsws_soil, & !< factor for qsws_soil |
---|
1558 |         f_qsws_liq, & !< factor for qsws_liq |
---|
1559 |         f_shf,    & !< factor for shf |
---|
1560 |         lambda_soil, & !< Thermal conductivity of the uppermost soil layer (W/m2/K) |
---|
1561 |         lambda_surface, & !< Current value of lambda_surface (W/m2/K) |
---|
1562 |         m_liq_max   !< maxmimum value of the liq. water reservoir |
---|
1563 | |
---|
1564 |   TYPE(surf_type_lsm), POINTER :: surf_t_surface |
---|
1565 |   TYPE(surf_type_lsm), POINTER :: surf_t_surface_p |
---|
1566 |   TYPE(surf_type_lsm), POINTER :: surf_tt_surface_m |
---|
1567 |   TYPE(surf_type_lsm), POINTER :: surf_m_liq |
---|
1568 |   TYPE(surf_type_lsm), POINTER :: surf_m_liq_p |
---|
1569 |   TYPE(surf_type_lsm), POINTER :: surf_tm_liq_m |
---|
1570 | |
---|
1571 |   TYPE(surf_type_lsm), POINTER :: surf_m_soil |
---|
1572 |   TYPE(surf_type_lsm), POINTER :: surf_t_soil |
---|
1573 | |
---|
1574 |   TYPE(surf_type), POINTER :: surf !< surface-date type variable |
---|
1575 | |
---|
1576 | |
---|
1577 |   IF ( debug_output_timestep ) THEN |
---|
1578 |     WRITE( debug_string, * ) 'lsm_energy_balance', horizontal, l |
---|
1579 |     CALL debug_message( debug_string, 'start' ) |
---|
1580 | Â Â ENDIF |
---|
1581 | |
---|
1582 |   IF ( horizontal ) THEN |
---|
1583 |     surf       => surf_lsm_h |
---|
1584 | |
---|
1585 |     surf_t_surface  => t_surface_h |
---|
1586 |     surf_t_surface_p => t_surface_h_p |
---|
1587 |     surf_tt_surface_m => tt_surface_h_m |
---|
1588 |     surf_m_liq    => m_liq_h |
---|
1589 |     surf_m_liq_p   => m_liq_h_p |
---|
1590 |     surf_tm_liq_m   => tm_liq_h_m |
---|
1591 |     surf_m_soil    => m_soil_h |
---|
1592 |     surf_t_soil    => t_soil_h |
---|
1593 | Â Â ELSE |
---|
1594 |     surf       => surf_lsm_v(l) |
---|
1595 | |
---|
1596 |     surf_t_surface  => t_surface_v(l) |
---|
1597 |     surf_t_surface_p => t_surface_v_p(l) |
---|
1598 |     surf_tt_surface_m => tt_surface_v_m(l) |
---|
1599 |     surf_m_liq    => m_liq_v(l) |
---|
1600 |     surf_m_liq_p   => m_liq_v_p(l) |
---|
1601 |     surf_tm_liq_m   => tm_liq_v_m(l) |
---|
1602 |     surf_m_soil    => m_soil_v(l) |
---|
1603 |     surf_t_soil    => t_soil_v(l) |
---|
1604 | Â Â ENDIF |
---|
1605 | |
---|
1606 | ! |
---|
1607 | !-- Index offset of surface element point with respect to adjoining |
---|
1608 | !-- atmospheric grid point |
---|
1609 |   k_off = surf%koff |
---|
1610 |   j_off = surf%joff |
---|
1611 |   i_off = surf%ioff |
---|
1612 | |
---|
1613 |   !$OMP PARALLEL PRIVATE (m, i, j, k, lambda_h_sat, ke, lambda_soil, lambda_surface,       & |
---|
1614 |   !$OMP&         c_surface_tmp, f1,m_total, f2, e_s, e, f3, m_min, m_liq_max, q_s,   & |
---|
1615 |   !$OMP&         f_qsws_veg, f_qsws_soil, f_qsws_liq, f_shf, f_qsws, e_s_dt, dq_s_dt,  & |
---|
1616 | Â Â !$OMP&Â Â Â Â Â Â Â Â Â coef_1, coef_2, tend) |
---|
1617 | Â Â !$OMP DO SCHEDULE (STATIC) |
---|
1618 |   DO m = 1, surf%ns |
---|
1619 | |
---|
1620 |     i  = surf%i(m)      |
---|
1621 |     j  = surf%j(m) |
---|
1622 |     k  = surf%k(m) |
---|
1623 | |
---|
1624 | ! |
---|
1625 | !--Â Â Define heat conductivity between surface and soil depending on surface |
---|
1626 | !--Â Â type. For vegetation, a skin layer parameterization is used. The new |
---|
1627 | !--Â Â parameterization uses a combination of two conductivities: a constant |
---|
1628 | !--Â Â conductivity for the skin layer, and a conductivity according to the |
---|
1629 | !--Â Â uppermost soil layer. For bare soil and pavements, no skin layer is |
---|
1630 | !--Â Â applied. In these cases, the temperature is assumed to be constant |
---|
1631 | !--Â Â between the surface and the first soil layer. The heat conductivity is |
---|
1632 | !--Â Â then derived from the soil/pavement properties. |
---|
1633 | !--Â Â For water surfaces, the conductivity is already set to 1E10. |
---|
1634 | !--Â Â Moreover, the heat capacity is set. For bare soil the heat capacity is |
---|
1635 | !--Â Â the capacity of the uppermost soil layer, for pavement it is that of |
---|
1636 | !--Â Â the material involved. |
---|
1637 | |
---|
1638 | ! |
---|
1639 | !--Â Â for vegetation type surfaces, the thermal conductivity of the soil is |
---|
1640 | !--Â Â needed |
---|
1641 | |
---|
1642 | Â Â Â Â IFÂ (Â surf%vegetation_surface(m)Â )Â THEN |
---|
1643 | |
---|
1644 |      lambda_h_sat = lambda_h_sm**(1.0_wp - surf%m_sat(nzb_soil,m)) *   & |
---|
1645 |              lambda_h_water ** surf_m_soil%var_2d(nzb_soil,m) |
---|
1646 | Â Â Â Â Â Â Â Â Â Â Â Â Â |
---|
1647 |      ke = 1.0_wp + LOG10( MAX( 0.1_wp, surf_m_soil%var_2d(nzb_soil,m) /  & |
---|
1648 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf%m_sat(nzb_soil,m)Â )Â )Â Â Â Â Â Â Â Â Â Â |
---|
1649 | Â Â Â Â Â Â Â Â Â Â Â Â Â |
---|
1650 |      lambda_soil = (ke * (lambda_h_sat - lambda_h_dry) + lambda_h_dry )  & |
---|
1651 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â *Â ddz_soil(nzb_soil)Â *Â 2.0_wp |
---|
1652 | |
---|
1653 | ! |
---|
1654 | !--Â Â Â Â When bare soil is set without a thermal conductivity (no skin layer), |
---|
1655 | !--Â Â Â Â a heat capacity is that of the soil layer, otherwise it is a |
---|
1656 | !--Â Â Â Â combination of the conductivities from the skin and the soil layer |
---|
1657 |      IF ( surf%lambda_surface_s(m) == 0.0_wp ) THEN |
---|
1658 |       surf%c_surface(m) = (rho_c_soil * (1.0_wp - surf%m_sat(nzb_soil,m))& |
---|
1659 |                + rho_c_water * surf_m_soil%var_2d(nzb_soil,m) ) & |
---|
1660 |                * dz_soil(nzb_soil) * 0.5_wp  |
---|
1661 |       lambda_surface = lambda_soil |
---|
1662 | |
---|
1663 | Â Â Â Â Â ELSE IFÂ (Â surf_t_surface%var_1d(m)Â >=Â surf_t_soil%var_2d(nzb_soil,m))& |
---|
1664 | Â Â Â Â Â THEN |
---|
1665 |        lambda_surface = surf%lambda_surface_s(m) * lambda_soil      & |
---|
1666 |                / ( surf%lambda_surface_s(m) + lambda_soil ) |
---|
1667 | Â Â Â Â Â ELSE |
---|
1668 | |
---|
1669 |        lambda_surface = surf%lambda_surface_u(m) * lambda_soil      & |
---|
1670 |                / ( surf%lambda_surface_u(m) + lambda_soil ) |
---|
1671 | Â Â Â Â Â ENDIF |
---|
1672 | Â Â Â Â ELSE |
---|
1673 |      lambda_surface = surf%lambda_surface_s(m) |
---|
1674 | Â Â Â Â ENDIF |
---|
1675 | |
---|
1676 | ! |
---|
1677 | !--Â Â Set heat capacity of the skin/surface. It is ususally zero when a skin |
---|
1678 | !--Â Â layer is used, and non-zero otherwise. |
---|
1679 |     c_surface_tmp = surf%c_surface(m) |
---|
1680 | |
---|
1681 | ! |
---|
1682 | !--Â Â First step: calculate aerodyamic resistance. As pt, us, ts |
---|
1683 | !--Â Â are not available for the prognostic time step, data from the last |
---|
1684 | !--Â Â time step is used here. Note that this formulation is the |
---|
1685 | !--Â Â equivalent to the ECMWF formulation using drag coefficients |
---|
1686 | !    IF ( bulk_cloud_model ) THEN |
---|
1687 | !      pt1 = pt(k,j,i) + lv_d_cp * d_exner(k) * ql(k,j,i) |
---|
1688 | !      qv1 = q(k,j,i) - ql(k,j,i) |
---|
1689 | !    ELSEIF ( cloud_droplets ) THEN |
---|
1690 | !      pt1 = pt(k,j,i) + lv_d_cp * d_exner(k) * ql(k,j,i) |
---|
1691 | !      qv1 = q(k,j,i) |
---|
1692 | !    ELSE |
---|
1693 | !      pt1 = pt(k,j,i) |
---|
1694 | !      IF ( humidity ) THEN |
---|
1695 | !       qv1 = q(k,j,i) |
---|
1696 | !      ELSE |
---|
1697 | !       qv1 = 0.0_wp |
---|
1698 | !      ENDIF |
---|
1699 | !    ENDIF |
---|
1700 | ! |
---|
1701 | !--Â Â Â Calculation of r_a for vertical surfaces |
---|
1702 | !-- |
---|
1703 | !--Â Â Â heat transfer coefficient for forced convection along vertical walls |
---|
1704 | !--Â Â Â follows formulation in TUF3d model (Krayenhoff & Voogt, 2006) |
---|
1705 | !--Â Â Â Â Â Â |
---|
1706 | !--Â Â Â Â H = httc (Tsfc - Tair) |
---|
1707 | !--Â Â Â Â httc = rw * (11.8 + 4.2 * Ueff) - 4.0 |
---|
1708 | !--Â Â Â Â Â Â |
---|
1709 | !--Â Â Â Â Â Â Â rw: wall patch roughness relative to 1.0 for concrete |
---|
1710 | !--Â Â Â Â Â Â Â Ueff: effective wind speed |
---|
1711 | !--Â Â Â Â Â Â Â - 4.0 is a reduction of Rowley et al (1930) formulation based on |
---|
1712 | !--Â Â Â Â Â Â Â Cole and Sturrock (1977) |
---|
1713 | !--Â Â Â Â Â Â |
---|
1714 | !--Â Â Â Â Â Â Â Ucan: Canyon wind speed |
---|
1715 | !--Â Â Â Â Â Â Â wstar: convective velocity |
---|
1716 | !--Â Â Â Â Â Â Â Qs: surface heat flux |
---|
1717 | !--Â Â Â Â Â Â Â zH: height of the convective layer |
---|
1718 | !--Â Â Â Â Â Â Â wstar = (g/Tcan*Qs*zH)**(1./3.) |
---|
1719 | Â Â Â Â Â Â Â Â |
---|
1720 | !--Â Â Effective velocity components must always |
---|
1721 | !--Â Â be defined at scalar grid point. The wall normal component is |
---|
1722 | !--Â Â obtained by simple linear interpolation. ( An alternative would |
---|
1723 | !--Â Â be an logarithmic interpolation. ) |
---|
1724 | !--Â Â A roughness lenght of 0.001 is assumed for concrete (the inverse, |
---|
1725 | !--Â Â 1000 is used in the nominator for scaling) |
---|
1726 | !--Â Â To do: detailed investigation which approach gives more reliable results! |
---|
1727 | !--Â Â Please note, in case of very small friction velocity, e.g. in little |
---|
1728 | !--Â Â holes, the resistance can become negative. For this reason, limit r_a |
---|
1729 | !--Â Â to positive values. |
---|
1730 |     IF ( horizontal .OR. .NOT. aero_resist_kray ) THEN |
---|
1731 | Â Â Â Â Â surf%r_a(m)Â =Â ABS(Â (Â surf%pt1(m)Â -Â surf%pt_surface(m)Â )Â /Â Â Â Â Â Â & |
---|
1732 |                ( surf%ts(m) * surf%us(m) + 1.0E-20_wp ) ) |
---|
1733 | Â Â Â Â ELSE |
---|
1734 |      surf%r_a(m) = rho_cp / ( surf%z0(m) * 1000.0_wp           & |
---|
1735 |             * ( 11.8_wp + 4.2_wp *                 & |
---|
1736 |             SQRT( MAX( ( ( u(k,j,i) + u(k,j,i+1) ) * 0.5_wp )**2 + & |
---|
1737 |                   ( ( v(k,j,i) + v(k,j+1,i) ) * 0.5_wp )**2 + & |
---|
1738 |                   ( ( w(k,j,i) + w(k-1,j,i) ) * 0.5_wp )**2, & |
---|
1739 |                0.01_wp ) )                   & |
---|
1740 |               ) - 4.0_wp ) |
---|
1741 | Â Â Â Â ENDIF |
---|
1742 | ! |
---|
1743 | !--Â Â Make sure that the resistance does not drop to zero for neutral |
---|
1744 | !--Â Â stratification. Also, set a maximum resistance to avoid the breakdown of |
---|
1745 | !--Â Â MOST for locations with zero wind speed |
---|
1746 |     IF ( surf%r_a(m) <  1.0_wp ) surf%r_a(m) =  1.0_wp |
---|
1747 |     IF ( surf%r_a(m) > 300.0_wp ) surf%r_a(m) = 300.0_wp    |
---|
1748 | ! |
---|
1749 | !--Â Â Second step: calculate canopy resistance r_canopy |
---|
1750 | !--Â Â f1-f3 here are defined as 1/f1-f3 as in ECMWF documentation |
---|
1751 | Â |
---|
1752 | !--Â Â f1: correction for incoming shortwave radiation (stomata close at |
---|
1753 | !--Â Â night) |
---|
1754 |     f1 = MIN( 1.0_wp, ( 0.004_wp * surf%rad_sw_in(m) + 0.05_wp ) /     & |
---|
1755 |             (0.81_wp * (0.004_wp * surf%rad_sw_in(m)        & |
---|
1756 | Â Â Â Â Â Â Â Â Â Â Â Â Â +Â 1.0_wp))Â ) |
---|
1757 | |
---|
1758 | ! |
---|
1759 | !--Â Â f2: correction for soil moisture availability to plants (the |
---|
1760 | !--Â Â integrated soil moisture must thus be considered here) |
---|
1761 | !--Â Â f2 = 0 for very dry soils |
---|
1762 |     m_total = 0.0_wp |
---|
1763 |     DO ks = nzb_soil, nzt_soil |
---|
1764 |       m_total = m_total + surf%root_fr(ks,m)               & |
---|
1765 |            * MAX( surf_m_soil%var_2d(ks,m), surf%m_wilt(ks,m) ) |
---|
1766 | Â Â Â Â ENDDOÂ |
---|
1767 | |
---|
1768 | ! |
---|
1769 | !--Â Â The calculation of f2 is based on only one wilting point value for all |
---|
1770 | !--Â Â soil layers. The value at k=nzb_soil is used here as a proxy but might |
---|
1771 | !--Â Â need refinement in the future. |
---|
1772 |     IF ( m_total > surf%m_wilt(nzb_soil,m) .AND.              & |
---|
1773 |       m_total < surf%m_fc(nzb_soil,m) ) THEN |
---|
1774 |      f2 = ( m_total - surf%m_wilt(nzb_soil,m) ) /             & |
---|
1775 | Â Â Â Â Â Â Â Â (Â surf%m_fc(nzb_soil,m)Â -Â surf%m_wilt(nzb_soil,m)Â ) |
---|
1776 |     ELSEIF ( m_total >= surf%m_fc(nzb_soil,m) ) THEN |
---|
1777 | Â Â Â Â Â f2Â =Â 1.0_wp |
---|
1778 | Â Â Â Â ELSE |
---|
1779 | Â Â Â Â Â f2Â =Â 1.0E-20_wp |
---|
1780 | Â Â Â Â ENDIF |
---|
1781 | |
---|
1782 | ! |
---|
1783 | !--Â Â Calculate water vapour pressure at saturation and convert to hPa |
---|
1784 | !--Â Â The magnus formula is limited to temperatures up to 333.15 K to |
---|
1785 | !--Â Â avoid negative values of q_s |
---|
1786 |     e_s = 0.01_wp * magnus( MIN(surf_t_surface%var_1d(m), 333.15_wp) ) |
---|
1787 | |
---|
1788 | ! |
---|
1789 | !--Â Â f3: correction for vapour pressure deficit |
---|
1790 |     IF ( surf%g_d(m) /= 0.0_wp ) THEN |
---|
1791 | ! |
---|
1792 | !--Â Â Â Â Calculate vapour pressure |
---|
1793 |      e = surf%qv1(m) * surface_pressure / ( surf%qv1(m) + rd_d_rv ) |
---|
1794 |      f3 = EXP ( - surf%g_d(m) * (e_s - e) ) |
---|
1795 | Â Â Â Â ELSE |
---|
1796 | Â Â Â Â Â f3Â =Â 1.0_wp |
---|
1797 | Â Â Â Â ENDIF |
---|
1798 | ! |
---|
1799 | !--Â Â Calculate canopy resistance. In case that c_veg is 0 (bare soils), |
---|
1800 | !--Â Â this calculation is obsolete, as r_canopy is not used below. |
---|
1801 | !--Â Â To do: check for very dry soil -> r_canopy goes to infinity |
---|
1802 | Â Â Â Â surf%r_canopy(m)Â =Â surf%r_canopy_min(m)Â /Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
1803 |                ( surf%lai(m) * f1 * f2 * f3 + 1.0E-20_wp ) |
---|
1804 | ! |
---|
1805 | !--Â Â Third step: calculate bare soil resistance r_soil. |
---|
1806 |     m_min = surf%c_veg(m) * surf%m_wilt(nzb_soil,m) +            & |
---|
1807 |              ( 1.0_wp - surf%c_veg(m) ) * surf%m_res(nzb_soil,m) |
---|
1808 | |
---|
1809 | |
---|
1810 |     f2 = ( surf_m_soil%var_2d(nzb_soil,m) - m_min ) /            & |
---|
1811 |       ( surf%m_fc(nzb_soil,m) - m_min ) |
---|
1812 |     f2 = MAX( f2, 1.0E-20_wp ) |
---|
1813 |     f2 = MIN( f2, 1.0_wp   ) |
---|
1814 | |
---|
1815 | Â Â Â Â surf%r_soil(m)Â =Â surf%r_soil_min(m)Â /Â f2 |
---|
1816 | Â Â Â Â |
---|
1817 | ! |
---|
1818 | !--Â Â Calculate the maximum possible liquid water amount on plants and |
---|
1819 | !--Â Â bare surface. For vegetated surfaces, a maximum depth of 0.2 mm is |
---|
1820 | !--Â Â assumed, while paved surfaces might hold up 1 mm of water. The |
---|
1821 | !--Â Â liquid water fraction for paved surfaces is calculated after |
---|
1822 | !--Â Â Noilhan & Planton (1989), while the ECMWF formulation is used for |
---|
1823 | !--Â Â vegetated surfaces and bare soils. |
---|
1824 | Â Â Â Â IFÂ (Â surf%pavement_surface(m)Â )Â THEN |
---|
1825 |      m_liq_max = m_max_depth * 5.0_wp |
---|
1826 |      surf%c_liq(m) = MIN( 1.0_wp, ( surf_m_liq%var_1d(m) / m_liq_max)**0.67 ) |
---|
1827 | Â Â Â Â ELSE |
---|
1828 |      m_liq_max = m_max_depth * ( surf%c_veg(m) * surf%lai(m)       & |
---|
1829 |            + ( 1.0_wp - surf%c_veg(m) ) ) |
---|
1830 |      surf%c_liq(m) = MIN( 1.0_wp, surf_m_liq%var_1d(m) / m_liq_max ) |
---|
1831 | Â Â Â Â ENDIF |
---|
1832 | ! |
---|
1833 | !--Â Â Calculate saturation water vapor mixing ratio |
---|
1834 |     q_s = rd_d_rv * e_s / ( surface_pressure - e_s ) |
---|
1835 | ! |
---|
1836 | !--Â Â In case of dewfall, set evapotranspiration to zero |
---|
1837 | !--Â Â All super-saturated water is then removed from the air |
---|
1838 |     IF ( humidity .AND. q_s <= surf%qv1(m) ) THEN |
---|
1839 | Â Â Â Â Â surf%r_canopy(m)Â =Â 0.0_wp |
---|
1840 | Â Â Â Â Â surf%r_soil(m)Â Â =Â 0.0_wp |
---|
1841 | Â Â Â Â ENDIF |
---|
1842 | |
---|
1843 | ! |
---|
1844 | !--Â Â Calculate coefficients for the total evapotranspiration |
---|
1845 | !--Â Â In case of water surface, set vegetation and soil fluxes to zero. |
---|
1846 | !--Â Â For pavements, only evaporation of liquid water is possible. |
---|
1847 | Â Â Â Â IFÂ (Â surf%water_surface(m)Â )Â THEN |
---|
1848 |      f_qsws_veg = 0.0_wp |
---|
1849 |      f_qsws_soil = 0.0_wp |
---|
1850 |      f_qsws_liq = rho_lv / surf%r_a(m) |
---|
1851 | Â Â Â Â ELSEIFÂ (Â surf%pavement_surface(m)Â )Â THEN |
---|
1852 |      f_qsws_veg = 0.0_wp |
---|
1853 |      f_qsws_soil = 0.0_wp |
---|
1854 |      f_qsws_liq = rho_lv * surf%c_liq(m) / surf%r_a(m) |
---|
1855 | Â Â Â Â ELSE |
---|
1856 |      f_qsws_veg = rho_lv * surf%c_veg(m) *                & |
---|
1857 |               ( 1.0_wp    - surf%c_liq(m)  ) /       & |
---|
1858 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â (Â surf%r_a(m)Â +Â surf%r_canopy(m)Â ) |
---|
1859 |      f_qsws_soil = rho_lv * (1.0_wp  - surf%c_veg(m)  ) /       & |
---|
1860 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â (Â surf%r_a(m)Â +Â surf%r_soil(m)Â Â ) |
---|
1861 |      f_qsws_liq = rho_lv * surf%c_veg(m) * surf%c_liq(m)  /       & |
---|
1862 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf%r_a(m) |
---|
1863 | Â Â Â Â ENDIF |
---|
1864 | |
---|
1865 |     f_shf = rho_cp / surf%r_a(m) |
---|
1866 |     f_qsws = f_qsws_veg + f_qsws_soil + f_qsws_liq |
---|
1867 | ! |
---|
1868 | !--Â Â Calculate derivative of q_s for Taylor series expansion |
---|
1869 |     e_s_dt = e_s * ( 17.62_wp / ( surf_t_surface%var_1d(m) - 29.65_wp) -  & |
---|
1870 | Â Â Â Â Â Â Â Â Â Â Â Â 17.62_wp*(Â surf_t_surface%var_1d(m)Â -Â 273.15_wp)Â Â Â & |
---|
1871 | Â Â Â Â Â Â Â Â Â Â Â Â /Â (Â surf_t_surface%var_1d(m)Â -Â 29.65_wp)**2Â ) |
---|
1872 | |
---|
1873 |     dq_s_dt = rd_d_rv * e_s_dt / ( surface_pressure - e_s_dt ) |
---|
1874 | ! |
---|
1875 | !--Â Â Calculate net radiation radiation without longwave outgoing flux because |
---|
1876 | !--Â Â it has a dependency on surface temperature and thus enters the prognostic |
---|
1877 | !--Â Â equations directly |
---|
1878 | Â Â Â Â surf%rad_net_l(m)Â =Â surf%rad_sw_in(m)Â -Â surf%rad_sw_out(m)Â Â Â Â Â Â Â & |
---|
1879 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â +Â surf%rad_lw_in(m) |
---|
1880 | ! |
---|
1881 | !--Â Â Calculate new skin temperature |
---|
1882 |     IF ( humidity ) THEN |
---|
1883 | ! |
---|
1884 | !--Â Â Â Â Numerator of the prognostic equation |
---|
1885 | Â Â Â Â Â coef_1Â =Â surf%rad_net_l(m)Â +Â surf%rad_lw_out_change_0(m)Â Â Â Â Â Â Â & |
---|
1886 | Â Â Â Â Â Â Â Â Â Â *Â surf_t_surface%var_1d(m)Â -Â surf%rad_lw_out(m)Â Â Â Â Â Â Â & |
---|
1887 |           + f_shf * surf%pt1(m) + f_qsws * ( surf%qv1(m) - q_s    & |
---|
1888 |           + dq_s_dt * surf_t_surface%var_1d(m) ) + lambda_surface   & |
---|
1889 | Â Â Â Â Â Â Â Â Â Â *Â surf_t_soil%var_2d(nzb_soil,m) |
---|
1890 | |
---|
1891 | ! |
---|
1892 | !--Â Â Â Â Denominator of the prognostic equation |
---|
1893 |      coef_2 = surf%rad_lw_out_change_0(m) + f_qsws * dq_s_dt       & |
---|
1894 |           + lambda_surface + f_shf / exner(nzb) |
---|
1895 | Â Â Â Â ELSE |
---|
1896 | ! |
---|
1897 | !--Â Â Â Â Numerator of the prognostic equation |
---|
1898 | Â Â Â Â Â coef_1Â =Â surf%rad_net_l(m)Â +Â surf%rad_lw_out_change_0(m)Â Â Â Â Â Â Â & |
---|
1899 | Â Â Â Â Â Â Â Â Â Â *Â surf_t_surface%var_1d(m)Â -Â surf%rad_lw_out(m)Â Â Â Â Â Â Â & |
---|
1900 |           + f_shf * surf%pt1(m) + lambda_surface           & |
---|
1901 | Â Â Â Â Â Â Â Â Â Â *Â surf_t_soil%var_2d(nzb_soil,m) |
---|
1902 | ! |
---|
1903 | !--Â Â Â Â Denominator of the prognostic equation |
---|
1904 |      coef_2 = surf%rad_lw_out_change_0(m) + lambda_surface + f_shf / exner(nzb) |
---|
1905 | |
---|
1906 | Â Â Â Â ENDIF |
---|
1907 | |
---|
1908 |     tend = 0.0_wp |
---|
1909 | |
---|
1910 | ! |
---|
1911 | !--Â Â Implicit solution when the surface layer has no heat capacity, |
---|
1912 | !--Â Â otherwise use RK3 scheme. |
---|
1913 |     surf_t_surface_p%var_1d(m) = ( coef_1 * dt_3d * tsc(2) + c_surface_tmp *& |
---|
1914 |              surf_t_surface%var_1d(m) ) / ( c_surface_tmp + coef_2& |
---|
1915 |                        * dt_3d * tsc(2) ) |
---|
1916 | |
---|
1917 | ! |
---|
1918 | !--Â Â Add RK3 term |
---|
1919 |     IF ( c_surface_tmp /= 0.0_wp ) THEN |
---|
1920 | |
---|
1921 |      surf_t_surface_p%var_1d(m) = surf_t_surface_p%var_1d(m) + dt_3d *  & |
---|
1922 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â tsc(3)Â *Â surf_tt_surface_m%var_1d(m) |
---|
1923 | |
---|
1924 | ! |
---|
1925 | !--Â Â Â Â Calculate true tendency |
---|
1926 |      tend = ( surf_t_surface_p%var_1d(m) - surf_t_surface%var_1d(m) -   & |
---|
1927 |           dt_3d * tsc(3) * surf_tt_surface_m%var_1d(m)) / (dt_3d * tsc(2)) |
---|
1928 | ! |
---|
1929 | !--Â Â Â Â Calculate t_surface tendencies for the next Runge-Kutta step |
---|
1930 | Â Â Â Â Â IFÂ (Â timestep_scheme(1:5)Â ==Â 'runge'Â )Â THEN |
---|
1931 |        IF ( intermediate_timestep_count == 1 ) THEN |
---|
1932 | Â Â Â Â Â Â Â Â surf_tt_surface_m%var_1d(m)Â =Â tend |
---|
1933 |        ELSEIF ( intermediate_timestep_count <              & |
---|
1934 |            intermediate_timestep_count_max ) THEN |
---|
1935 |         surf_tt_surface_m%var_1d(m) = -9.5625_wp * tend +       & |
---|
1936 |                         5.3125_wp * surf_tt_surface_m%var_1d(m) |
---|
1937 | Â Â Â Â Â Â Â ENDIF |
---|
1938 | Â Â Â Â Â ENDIF |
---|
1939 | Â Â Â Â ENDIF |
---|
1940 | |
---|
1941 | ! |
---|
1942 | !--Â Â In case of fast changes in the skin temperature, it is possible to |
---|
1943 | !--Â Â update the radiative fluxes independently from the prescribed |
---|
1944 | !--Â Â radiation call frequency. This effectively prevents oscillations, |
---|
1945 | !--Â Â especially when setting skip_time_do_radiation /= 0. The threshold |
---|
1946 | !--Â Â value of 0.2 used here is just a first guess. This method should be |
---|
1947 | !--Â Â revised in the future as tests have shown that the threshold is |
---|
1948 | !--Â Â often reached, when no oscillations would occur (causes immense |
---|
1949 | !--Â Â computing time for the radiation code). |
---|
1950 | Â Â Â Â IFÂ (Â ABS(Â surf_t_surface_p%var_1d(m)Â -Â surf_t_surface%var_1d(m)Â )Â Â Â Â & |
---|
1951 |       > 0.2_wp .AND. & |
---|
1952 |       unscheduled_radiation_calls ) THEN |
---|
1953 |      force_radiation_call_l = .TRUE. |
---|
1954 | Â Â Â Â ENDIF |
---|
1955 | |
---|
1956 | Â Â Â Â surf%pt_surface(m)Â Â Â Â Â =Â surf_t_surface_p%var_1d(m)Â /Â exner(nzb) |
---|
1957 | |
---|
1958 | ! |
---|
1959 | !--Â Â Calculate fluxes |
---|
1960 | Â Â Â Â surf%rad_net_l(m)Â =Â surf%rad_net_l(m)Â +Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
1961 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf%rad_lw_out_change_0(m)Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
1962 | Â Â Â Â Â Â Â Â Â Â Â Â Â *Â surf_t_surface%var_1d(m)Â -Â surf%rad_lw_out(m)Â Â Â & |
---|
1963 | Â Â Â Â Â Â Â Â Â Â Â Â Â -Â surf%rad_lw_out_change_0(m)Â *Â surf_t_surface_p%var_1d(m) |
---|
1964 | |
---|
1965 | Â Â Â Â surf%rad_net(m)Â =Â surf%rad_net_l(m) |
---|
1966 | Â Â Â Â surf%rad_lw_out(m)Â =Â surf%rad_lw_out(m)Â +Â surf%rad_lw_out_change_0(m)Â *Â & |
---|
1967 | Â Â Â Â Â Â Â Â Â Â Â (Â surf_t_surface_p%var_1d(m)Â -Â surf_t_surface%var_1d(m)Â ) |
---|
1968 | |
---|
1969 |     surf%ghf(m) = lambda_surface * ( surf_t_surface_p%var_1d(m)       & |
---|
1970 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â -Â surf_t_soil%var_2d(nzb_soil,m)Â ) |
---|
1971 | |
---|
1972 |     surf%shf(m) = - f_shf * ( surf%pt1(m) - surf%pt_surface(m) ) / c_p |
---|
1973 | |
---|
1974 | ! |
---|
1975 | ! update the 3d field of rad_lw_out array to have consistent output |
---|
1976 |     IF ( horizontal ) THEN |
---|
1977 |      IF ( radiation_scheme == 'rrtmg' ) THEN |
---|
1978 | Â Â Â Â Â Â Â rad_lw_out(k+k_off,j+j_off,i+i_off)Â =Â surf%rad_lw_out(m) |
---|
1979 | Â Â Â Â Â ELSE |
---|
1980 | Â Â Â Â Â Â Â rad_lw_out(0,j+j_off,i+i_off)Â =Â surf%rad_lw_out(m) |
---|
1981 | Â Â Â Â Â ENDIF |
---|
1982 | Â Â Â Â ENDIF |
---|
1983 | |
---|
1984 |     IF ( humidity ) THEN |
---|
1985 |      surf%qsws(m) = - f_qsws * ( surf%qv1(m) - q_s + dq_s_dt       & |
---|
1986 |              * surf_t_surface%var_1d(m) - dq_s_dt *        & |
---|
1987 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_t_surface_p%var_1d(m)Â ) |
---|
1988 | |
---|
1989 |      surf%qsws_veg(m) = - f_qsws_veg * ( surf%qv1(m) - q_s       & |
---|
1990 |                + dq_s_dt * surf_t_surface%var_1d(m) - dq_s_dt  & |
---|
1991 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *Â surf_t_surface_p%var_1d(m)Â ) |
---|
1992 | |
---|
1993 |      surf%qsws_soil(m) = - f_qsws_soil * ( surf%qv1(m) - q_s       & |
---|
1994 |                + dq_s_dt * surf_t_surface%var_1d(m) - dq_s_dt  & |
---|
1995 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *Â surf_t_surface_p%var_1d(m)Â ) |
---|
1996 | |
---|
1997 |      surf%qsws_liq(m) = - f_qsws_liq * ( surf%qv1(m) - q_s       & |
---|
1998 |                + dq_s_dt * surf_t_surface%var_1d(m) - dq_s_dt  & |
---|
1999 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *Â surf_t_surface_p%var_1d(m)Â ) |
---|
2000 | Â Â Â Â ENDIF |
---|
2001 | |
---|
2002 | ! |
---|
2003 | !--Â Â Calculate the true surface resistance. ABS is used here to avoid negative |
---|
2004 | !--Â Â values that can occur for very small fluxes due to the artifical addition |
---|
2005 | !--Â Â of 1.0E-20. |
---|
2006 |     IF ( .NOT. humidity ) THEN |
---|
2007 | Â Â Â Â Â surf%r_s(m)Â =Â 1.0E10_wp |
---|
2008 | Â Â Â Â ELSE |
---|
2009 |      surf%r_s(m) = ABS(rho_lv / (f_qsws + 1.0E-20_wp) - surf%r_a(m)) |
---|
2010 | Â Â Â Â ENDIF |
---|
2011 | ! |
---|
2012 | !--Â Â Calculate change in liquid water reservoir due to dew fall or |
---|
2013 | !--Â Â evaporation of liquid water |
---|
2014 |     IF ( humidity ) THEN |
---|
2015 | ! |
---|
2016 | !--Â Â Â Â If precipitation is activated, add rain water to qsws_liq |
---|
2017 | !--Â Â Â Â and qsws_soil according the the vegetation coverage. |
---|
2018 | !--Â Â Â Â precipitation_rate is given in mm. |
---|
2019 |      IF ( precipitation ) THEN |
---|
2020 | |
---|
2021 | ! |
---|
2022 | !--Â Â Â Â Â Add precipitation to liquid water reservoir, if possible. |
---|
2023 | !--Â Â Â Â Â Otherwise, add the water to soil. In case of |
---|
2024 | !--Â Â Â Â Â pavements, the exceeding water amount is explicitly removed |
---|
2025 | !--Â Â Â Â Â (as fictive runoff by drainage systems) |
---|
2026 | Â Â Â Â Â Â Â IFÂ (Â surf%pavement_surface(m)Â )Â THEN |
---|
2027 |         IF ( surf_m_liq%var_1d(m) < m_liq_max ) THEN |
---|
2028 | Â Â Â Â Â Â Â Â Â Â surf%qsws_liq(m)Â =Â surf%qsws_liq(m)Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2029 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â +Â prr(k+k_off,j+j_off,i+i_off)Â Â Â Â Â Â Â Â & |
---|
2030 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *Â hyrho(k+k_off)Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2031 |                  * 0.001_wp * rho_l * l_v |
---|
2032 | Â Â Â Â Â Â Â Â ENDIFÂ Â Â Â Â |
---|
2033 | Â Â Â Â Â Â Â ELSE |
---|
2034 |         IF ( surf_m_liq%var_1d(m) < m_liq_max ) THEN |
---|
2035 | Â Â Â Â Â Â Â Â Â Â surf%qsws_liq(m)Â =Â surf%qsws_liq(m)Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2036 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â +Â surf%c_veg(m)Â *Â prr(k+k_off,j+j_off,i+i_off)& |
---|
2037 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *Â hyrho(k+k_off)Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2038 |                  * 0.001_wp * rho_l * l_v |
---|
2039 |           surf%qsws_soil(m) = surf%qsws_soil(m) + ( 1.0_wp -     & |
---|
2040 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf%c_veg(m)Â )Â *Â prr(k+k_off,j+j_off,i+i_off)& |
---|
2041 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *Â hyrho(k+k_off)Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2042 |                  * 0.001_wp * rho_l * l_v                 |
---|
2043 | Â Â Â Â Â Â Â Â ELSE |
---|
2044 | |
---|
2045 | !--Â Â Â Â Â Â Â Â Add precipitation to bare soil according to the bare soil |
---|
2046 | !--Â Â Â Â Â Â Â Â coverage. |
---|
2047 | Â Â Â Â Â Â Â Â Â Â surf%qsws_soil(m)Â =Â surf%qsws_soil(m)Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2048 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â +Â surf%c_veg(m)Â *Â prr(k+k_off,j+j_off,i+i_off)& |
---|
2049 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â *Â hyrho(k+k_off)Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2050 |                  * 0.001_wp * rho_l * l_v |
---|
2051 | |
---|
2052 | Â Â Â Â Â Â Â Â ENDIF |
---|
2053 | Â Â Â Â Â Â Â ENDIF |
---|
2054 | |
---|
2055 | Â Â Â Â Â ENDIF |
---|
2056 | |
---|
2057 | ! |
---|
2058 | !--Â Â Â Â If the air is saturated, check the reservoir water level |
---|
2059 |      IF ( surf%qsws(m) < 0.0_wp ) THEN |
---|
2060 | ! |
---|
2061 | !--Â Â Â Â Â Check if reservoir is full (avoid values > m_liq_max) |
---|
2062 | !--Â Â Â Â Â In that case, qsws_liq goes to qsws_soil for pervious surfaces. In |
---|
2063 | !--     this case qsws_veg is zero anyway (because c_liq = 1),    |
---|
2064 | !--Â Â Â Â Â so that tend is zero and no further check is needed |
---|
2065 |        IF ( surf_m_liq%var_1d(m) == m_liq_max ) THEN |
---|
2066 |         IF ( .NOT. surf%pavement_surface(m)) THEN |
---|
2067 | Â Â Â Â Â Â Â Â Â Â surf%qsws_soil(m)Â =Â surf%qsws_soil(m)Â +Â surf%qsws_liq(m) |
---|
2068 | Â Â Â Â Â Â Â Â ENDIF |
---|
2069 | Â Â Â Â Â Â Â Â surf%qsws_liq(m)Â =Â 0.0_wp |
---|
2070 | Â Â Â Â Â Â Â ENDIF |
---|
2071 | |
---|
2072 | ! |
---|
2073 | !--Â Â Â Â Â In case qsws_veg becomes negative (unphysical behavior), |
---|
2074 | !--Â Â Â Â Â let the water enter the liquid water reservoir as dew on the |
---|
2075 | !--Â Â Â Â Â plant |
---|
2076 |        IF ( surf%qsws_veg(m) < 0.0_wp ) THEN |
---|
2077 | Â Â Â Â Â Â Â Â surf%qsws_liq(m)Â =Â surf%qsws_liq(m)Â +Â surf%qsws_veg(m) |
---|
2078 | Â Â Â Â Â Â Â Â surf%qsws_veg(m)Â =Â 0.0_wp |
---|
2079 | Â Â Â Â Â Â Â ENDIF |
---|
2080 | Â Â Â Â Â ENDIFÂ Â Â Â Â Â Â Â Â Â |
---|
2081 | Â |
---|
2082 | Â Â Â Â Â surf%qsws(m)Â =Â surf%qsws(m)Â /Â l_v |
---|
2083 | Â |
---|
2084 |      tend = - surf%qsws_liq(m) * drho_l_lv |
---|
2085 |      surf_m_liq_p%var_1d(m) = surf_m_liq%var_1d(m) + dt_3d *       & |
---|
2086 |                     ( tsc(2) * tend +           & |
---|
2087 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â tsc(3)Â *Â surf_tm_liq_m%var_1d(m)Â ) |
---|
2088 | ! |
---|
2089 | !--Â Â Â Â Check if reservoir is overfull -> reduce to maximum |
---|
2090 | !--Â Â Â Â (conservation of water is violated here) |
---|
2091 |      surf_m_liq_p%var_1d(m) = MIN( surf_m_liq_p%var_1d(m),m_liq_max ) |
---|
2092 | |
---|
2093 | ! |
---|
2094 | !--Â Â Â Â Check if reservoir is empty (avoid values < 0.0) |
---|
2095 | !--Â Â Â Â (conservation of water is violated here) |
---|
2096 |      surf_m_liq_p%var_1d(m) = MAX( surf_m_liq_p%var_1d(m), 0.0_wp ) |
---|
2097 | ! |
---|
2098 | !--Â Â Â Â Calculate m_liq tendencies for the next Runge-Kutta step |
---|
2099 | Â Â Â Â Â IFÂ (Â timestep_scheme(1:5)Â ==Â 'runge'Â )Â THEN |
---|
2100 |        IF ( intermediate_timestep_count == 1 ) THEN |
---|
2101 | Â Â Â Â Â Â Â Â surf_tm_liq_m%var_1d(m)Â =Â tend |
---|
2102 |        ELSEIF ( intermediate_timestep_count <              & |
---|
2103 |            intermediate_timestep_count_max ) THEN |
---|
2104 |         surf_tm_liq_m%var_1d(m) = -9.5625_wp * tend +         & |
---|
2105 |                       5.3125_wp * surf_tm_liq_m%var_1d(m) |
---|
2106 | Â Â Â Â Â Â Â ENDIF |
---|
2107 | Â Â Â Â Â ENDIF |
---|
2108 | |
---|
2109 | Â Â Â Â ENDIF |
---|
2110 | |
---|
2111 | Â Â ENDDO |
---|
2112 | Â Â !$OMP END PARALLEL |
---|
2113 | |
---|
2114 | ! |
---|
2115 | !-- Make a logical OR for all processes. Force radiation call if at |
---|
2116 | !-- least one processor reached the threshold change in skin temperature |
---|
2117 |   IF ( unscheduled_radiation_calls .AND. intermediate_timestep_count    & |
---|
2118 | Â Â Â Â Â ==Â intermediate_timestep_count_max-1Â )Â THEN |
---|
2119 | #if defined( __parallel ) |
---|
2120 |     IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) |
---|
2121 |     CALL MPI_ALLREDUCE( force_radiation_call_l, force_radiation_call,    & |
---|
2122 |               1, MPI_LOGICAL, MPI_LOR, comm2d, ierr ) |
---|
2123 | #else |
---|
2124 |     force_radiation_call = force_radiation_call_l |
---|
2125 | #endif |
---|
2126 |     force_radiation_call_l = .FALSE. |
---|
2127 | Â Â ENDIF |
---|
2128 | |
---|
2129 | ! |
---|
2130 | !-- Calculate surface water vapor mixing ratio |
---|
2131 |   IF ( humidity ) THEN |
---|
2132 | Â Â Â Â CALL calc_q_surface |
---|
2133 | Â Â ENDIF |
---|
2134 | |
---|
2135 | ! |
---|
2136 | !-- Calculate new roughness lengths (for water surfaces only) |
---|
2137 |   IF ( horizontal .AND. .NOT. constant_roughness ) CALL calc_z0_water_surface |
---|
2138 | Â Â |
---|
2139 |   IF ( debug_output_timestep ) THEN |
---|
2140 |     WRITE( debug_string, * ) 'lsm_energy_balance', horizontal, l |
---|
2141 |     CALL debug_message( debug_string, 'end' ) |
---|
2142 | Â Â ENDIF |
---|
2143 | |
---|
2144 | Â Â CONTAINS |
---|
2145 | !------------------------------------------------------------------------------! |
---|
2146 | ! Description: |
---|
2147 | ! ------------ |
---|
2148 | !> Calculation of mixing ratio of the skin layer (surface). It is assumend |
---|
2149 | !> that the skin is always saturated. |
---|
2150 | !------------------------------------------------------------------------------! |
---|
2151 | Â Â SUBROUTINE calc_q_surface |
---|
2152 | |
---|
2153 | Â Â Â Â IMPLICIT NONE |
---|
2154 | |
---|
2155 |     REAL(wp) :: e_s      !< saturation water vapor pressure |
---|
2156 |     REAL(wp) :: q_s      !< saturation mixing ratio |
---|
2157 |     REAL(wp) :: resistance  !< aerodynamic and soil resistance term |
---|
2158 | |
---|
2159 | |
---|
2160 | Â Â Â Â !$OMP PARALLEL PRIVATE (m, i, j, k, e_s, q_s, resistance) |
---|
2161 | Â Â Â Â !$OMP DO SCHEDULE (STATIC) |
---|
2162 |     DO m = 1, surf%ns |
---|
2163 | |
---|
2164 |      i  = surf%i(m)      |
---|
2165 |      j  = surf%j(m) |
---|
2166 |      k  = surf%k(m) |
---|
2167 | ! |
---|
2168 | !--Â Â Â Â Calculate water vapour pressure at saturation and convert to hPa |
---|
2169 |      e_s = 0.01_wp * magnus( MIN(surf_t_surface_p%var_1d(m), 333.15_wp) )          |
---|
2170 | |
---|
2171 | ! |
---|
2172 | !--Â Â Â Â Calculate mixing ratio at saturation |
---|
2173 |      q_s = rd_d_rv * e_s / ( surface_pressure - e_s ) |
---|
2174 | |
---|
2175 |      resistance = surf%r_a(m) / ( surf%r_a(m) + surf%r_s(m) + 1E-5_wp ) |
---|
2176 | |
---|
2177 | ! |
---|
2178 | !--Â Â Â Â Calculate mixing ratio at surface |
---|
2179 |      IF ( bulk_cloud_model ) THEN |
---|
2180 |        q(k+k_off,j+j_off,i+i_off) = resistance * q_s +          & |
---|
2181 |                     ( 1.0_wp - resistance ) *       & |
---|
2182 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â (Â q(k,j,i)Â -Â ql(k,j,i)Â ) |
---|
2183 | Â Â Â Â Â ELSE |
---|
2184 |        q(k+k_off,j+j_off,i+i_off) = resistance * q_s +          & |
---|
2185 |                     ( 1.0_wp - resistance ) *       & |
---|
2186 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â q(k,j,i) |
---|
2187 | Â Â Â Â Â ENDIF |
---|
2188 | Â Â Â Â Â |
---|
2189 | Â Â Â Â Â surf%q_surface(m)Â =Â q(k+k_off,j+j_off,i+i_off) |
---|
2190 | ! |
---|
2191 | !--Â Â Â Â Update virtual potential temperature |
---|
2192 | Â Â Â Â Â surf%vpt_surface(m)Â =Â surf%pt_surface(m)Â *Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2193 |                  ( 1.0_wp + 0.61_wp * surf%q_surface(m) ) |
---|
2194 | |
---|
2195 | Â Â Â Â |
---|
2196 | Â Â Â Â Â Â Â Â Â Â Â |
---|
2197 | Â Â Â Â ENDDO |
---|
2198 | Â Â Â Â !$OMP END PARALLEL |
---|
2199 | Â |
---|
2200 | Â Â END SUBROUTINE calc_q_surface |
---|
2201 | Â Â Â Â |
---|
2202 | Â END SUBROUTINE lsm_energy_balance |
---|
2203 | Â Â |
---|
2204 | Â Â |
---|
2205 | |
---|
2206 | !------------------------------------------------------------------------------! |
---|
2207 | ! Description: |
---|
2208 | ! ------------ |
---|
2209 | !> Header output for land surface model |
---|
2210 | !------------------------------------------------------------------------------! |
---|
2211 |   SUBROUTINE lsm_header ( io ) |
---|
2212 | |
---|
2213 | |
---|
2214 | Â Â Â Â IMPLICIT NONE |
---|
2215 | |
---|
2216 |     CHARACTER (LEN=86) :: t_soil_chr     !< String for soil temperature profile |
---|
2217 |     CHARACTER (LEN=86) :: roots_chr      !< String for root profile |
---|
2218 |     CHARACTER (LEN=86) :: vertical_index_chr !< String for the vertical index |
---|
2219 |     CHARACTER (LEN=86) :: m_soil_chr     !< String for soil moisture |
---|
2220 |     CHARACTER (LEN=86) :: soil_depth_chr   !< String for soil depth |
---|
2221 |     CHARACTER (LEN=10) :: coor_chr      !< Temporary string |
---|
2222 | Â Â |
---|
2223 |     INTEGER(iwp) :: i             !< Loop index over soil layers |
---|
2224 | Â |
---|
2225 |     INTEGER(iwp), INTENT(IN) :: io      !< Unit of the output file |
---|
2226 | Â |
---|
2227 |     t_soil_chr = '' |
---|
2228 |     m_soil_chr  = '' |
---|
2229 |     soil_depth_chr = '' |
---|
2230 |     roots_chr    = '' |
---|
2231 |     vertical_index_chr  = '' |
---|
2232 | |
---|
2233 |     i = 1 |
---|
2234 |     DO i = nzb_soil, nzt_soil |
---|
2235 | Â Â Â Â Â WRITEÂ (coor_chr,'(F10.2,7X)')Â soil_temperature(i) |
---|
2236 |      t_soil_chr = TRIM( t_soil_chr ) // ' ' // TRIM( coor_chr ) |
---|
2237 | |
---|
2238 | Â Â Â Â Â WRITEÂ (coor_chr,'(F10.2,7X)')Â soil_moisture(i) |
---|
2239 |      m_soil_chr = TRIM( m_soil_chr ) // ' ' // TRIM( coor_chr ) |
---|
2240 | |
---|
2241 | Â Â Â Â Â WRITEÂ (coor_chr,'(F10.2,7X)')Â -Â zs(i) |
---|
2242 |      soil_depth_chr = TRIM( soil_depth_chr ) // ' ' // TRIM( coor_chr ) |
---|
2243 | |
---|
2244 | Â Â Â Â Â WRITEÂ (coor_chr,'(F10.2,7X)')Â root_fraction(i) |
---|
2245 |      roots_chr = TRIM( roots_chr ) // ' ' // TRIM( coor_chr ) |
---|
2246 | |
---|
2247 | Â Â Â Â Â WRITEÂ (coor_chr,'(I10,7X)')Â i |
---|
2248 |      vertical_index_chr = TRIM( vertical_index_chr ) // ' ' //      & |
---|
2249 |                 TRIM( coor_chr ) |
---|
2250 | Â Â Â Â ENDDO |
---|
2251 | |
---|
2252 | ! |
---|
2253 | !--Â Â Write land surface model header |
---|
2254 |     WRITE( io, 1 ) |
---|
2255 |     IF ( conserve_water_content ) THEN |
---|
2256 |      WRITE( io, 2 ) |
---|
2257 | Â Â Â Â ELSE |
---|
2258 |      WRITE( io, 3 ) |
---|
2259 | Â Â Â Â ENDIF |
---|
2260 | |
---|
2261 |     IF ( vegetation_type_f%from_file ) THEN |
---|
2262 |      WRITE( io, 5 ) |
---|
2263 | Â Â Â Â ELSE |
---|
2264 |      WRITE( io, 4 ) TRIM( vegetation_type_name(vegetation_type) ),    & |
---|
2265 | Â Â Â Â Â Â Â Â Â Â Â Â Â TRIMÂ (soil_type_name(soil_type)Â ) |
---|
2266 | Â Â Â Â ENDIF |
---|
2267 |     WRITE( io, 6 ) TRIM( soil_depth_chr ), TRIM( t_soil_chr ),       & |
---|
2268 |             TRIM( m_soil_chr ), TRIM( roots_chr ),         & |
---|
2269 |             TRIM( vertical_index_chr ) |
---|
2270 | |
---|
2271 | 1Â Â FORMATÂ (//' Land surface model information:'/Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2272 | Â Â Â Â Â Â Â ' ------------------------------'/) |
---|
2273 | 2  FORMAT ('  --> Soil bottom is closed (water content is conserved',    & |
---|
2274 | Â Â Â Â Â Â ', default)') |
---|
2275 | 3Â Â FORMATÂ ('Â Â --> Soil bottom is open (water content is not conserved)')Â Â Â Â Â |
---|
2276 | 4  FORMAT ('  --> Land surface type : ',A,/                & |
---|
2277 | Â Â Â Â Â Â 'Â Â --> Soil porosity type : ',A) |
---|
2278 | 5  FORMAT ('  --> Land surface type : read from file' /          & |
---|
2279 | Â Â Â Â Â Â 'Â Â --> Soil porosity type : read from file'Â ) |
---|
2280 | 6Â Â FORMATÂ (/'Â Â Initial soil temperature and moisture profile:'//Â Â Â Â Â Â & |
---|
2281 | Â Â Â Â Â Â 'Â Â Â Â Height:Â Â Â Â ',A,'Â m'/Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2282 | Â Â Â Â Â Â 'Â Â Â Â Temperature:Â Â ',A,'Â K'/Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2283 | Â Â Â Â Â Â 'Â Â Â Â Moisture:Â Â Â ',A,'Â m**3/m**3'/Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2284 | Â Â Â Â Â Â 'Â Â Â Â Root fraction: ',A,'Â '/Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2285 | Â Â Â Â Â Â 'Â Â Â Â Grid point:Â Â ',A) |
---|
2286 | |
---|
2287 | |
---|
2288 | Â Â END SUBROUTINE lsm_header |
---|
2289 | |
---|
2290 | |
---|
2291 | !------------------------------------------------------------------------------! |
---|
2292 | ! Description: |
---|
2293 | ! ------------ |
---|
2294 | !> Initialization of the land surface model |
---|
2295 | !------------------------------------------------------------------------------! |
---|
2296 | Â Â SUBROUTINE lsm_init |
---|
2297 | |
---|
2298 |     USE control_parameters,                         & |
---|
2299 | Â Â Â Â Â Â ONLY:Â message_string |
---|
2300 | |
---|
2301 |     USE indices,                              & |
---|
2302 |       ONLY: nx, ny, topo_min_level |
---|
2303 | |
---|
2304 |     USE pmc_handle_communicator,                      & |
---|
2305 | Â Â Â Â ONLY:Â pmc_is_rootmodel |
---|
2306 | Â Â Â Â Â Â |
---|
2307 |     USE pmc_interface,                           & |
---|
2308 | Â Â Â Â Â Â ONLY:Â nested_run |
---|
2309 | Â Â |
---|
2310 | Â Â Â Â IMPLICIT NONE |
---|
2311 | |
---|
2312 |     INTEGER(iwp) :: i            !< running index |
---|
2313 |     INTEGER(iwp) :: j            !< running index |
---|
2314 |     INTEGER(iwp) :: k            !< running index |
---|
2315 |     INTEGER(iwp) :: kn           !< running index |
---|
2316 |     INTEGER(iwp) :: ko           !< running index |
---|
2317 |     INTEGER(iwp) :: kroot          !< running index |
---|
2318 |     INTEGER(iwp) :: kzs           !< running index |
---|
2319 |     INTEGER(iwp) :: l            !< running index surface facing |
---|
2320 |     INTEGER(iwp) :: m            !< running index |
---|
2321 |     INTEGER(iwp) :: st           !< soil-type index |
---|
2322 |     INTEGER(iwp) :: n_soil_layers_total   !< temperature variable, stores the total number of soil layers + 4 |
---|
2323 | #if defined( __parallel ) |
---|
2324 |     INTEGER(iwp) :: nzs_root        !< number of soil layers in root domain (used in case soil data needs to be |
---|
2325 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â !< transferred from root model to child models)Â Â |
---|
2326 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â |
---|
2327 |     REAL(wp), DIMENSION(:), ALLOCATABLE :: m_soil_root  !< domain-averaged soil moisture profile in root domain |
---|
2328 |     REAL(wp), DIMENSION(:), ALLOCATABLE :: t_soil_root  !< domain-averaged soil temperature profile in root domain |
---|
2329 | #endif |
---|
2330 |     REAL(wp), DIMENSION(:), ALLOCATABLE :: bound     !< temporary arrays for storing index bounds |
---|
2331 |     REAL(wp), DIMENSION(:), ALLOCATABLE :: bound_root_fr !< temporary arrays for storing index bounds |
---|
2332 |     REAL(wp), DIMENSION(:), ALLOCATABLE :: pr_soil_init  !< temporary array used for averaging soil profiles |
---|
2333 | #if defined( __parallel ) |
---|
2334 |     REAL(wp), DIMENSION(:), ALLOCATABLE :: z_soil_root  !< vertical dimension of soil grid in root domain |
---|
2335 | #endif |
---|
2336 | |
---|
2337 |     IF ( debug_output ) CALL debug_message( 'lsm_init', 'start' ) |
---|
2338 | ! |
---|
2339 | !--Â Â If no cloud physics is used, rho_surface has not been calculated before |
---|
2340 |     IF ( .NOT. bulk_cloud_model .AND. .NOT. cloud_droplets ) THEN |
---|
2341 |      CALL calc_mean_profile( pt, 4 ) |
---|
2342 |      rho_surface = hyp(nzb) / ( r_d * hom(topo_min_level+1,1,4,0) * exner(nzb) ) |
---|
2343 | Â Â Â Â ENDIF |
---|
2344 | |
---|
2345 | ! |
---|
2346 | !--Â Â Calculate frequently used parameters |
---|
2347 |     rho_cp  = c_p * rho_surface |
---|
2348 |     rho_lv  = rho_surface * l_v |
---|
2349 |     drho_l_lv = 1.0_wp / (rho_l * l_v) |
---|
2350 | |
---|
2351 | ! |
---|
2352 | !--Â Â Set initial values for prognostic quantities |
---|
2353 | !--Â Â Horizontal surfaces |
---|
2354 |     tt_surface_h_m%var_1d = 0.0_wp |
---|
2355 |     tt_soil_h_m%var_2d  = 0.0_wp |
---|
2356 |     tm_soil_h_m%var_2d  = 0.0_wp |
---|
2357 |     tm_liq_h_m%var_1d   = 0.0_wp |
---|
2358 |     surf_lsm_h%c_liq   = 0.0_wp |
---|
2359 | |
---|
2360 |     surf_lsm_h%ghf = 0.0_wp |
---|
2361 | |
---|
2362 |     surf_lsm_h%qsws_liq = 0.0_wp |
---|
2363 |     surf_lsm_h%qsws_soil = 0.0_wp |
---|
2364 |     surf_lsm_h%qsws_veg = 0.0_wp |
---|
2365 | |
---|
2366 |     surf_lsm_h%r_a    = 50.0_wp |
---|
2367 |     surf_lsm_h%r_s    = 50.0_wp |
---|
2368 |     surf_lsm_h%r_canopy  = 0.0_wp |
---|
2369 |     surf_lsm_h%r_soil   = 0.0_wp |
---|
2370 | ! |
---|
2371 | !--Â Â Do the same for vertical surfaces |
---|
2372 |     DO l = 0, 3 |
---|
2373 |      tt_surface_v_m(l)%var_1d = 0.0_wp |
---|
2374 |      tt_soil_v_m(l)%var_2d  = 0.0_wp |
---|
2375 |      tm_soil_v_m(l)%var_2d  = 0.0_wp |
---|
2376 |      tm_liq_v_m(l)%var_1d   = 0.0_wp |
---|
2377 |      surf_lsm_v(l)%c_liq   = 0.0_wp |
---|
2378 | |
---|
2379 |      surf_lsm_v(l)%ghf = 0.0_wp |
---|
2380 | |
---|
2381 |      surf_lsm_v(l)%qsws_liq = 0.0_wp |
---|
2382 |      surf_lsm_v(l)%qsws_soil = 0.0_wp |
---|
2383 |      surf_lsm_v(l)%qsws_veg = 0.0_wp |
---|
2384 | |
---|
2385 |      surf_lsm_v(l)%r_a    = 50.0_wp |
---|
2386 |      surf_lsm_v(l)%r_s    = 50.0_wp |
---|
2387 |      surf_lsm_v(l)%r_canopy  = 0.0_wp |
---|
2388 |      surf_lsm_v(l)%r_soil   = 0.0_wp |
---|
2389 | Â Â Â Â ENDDO |
---|
2390 | |
---|
2391 | ! |
---|
2392 | !--Â Â Set initial values for prognostic soil quantities |
---|
2393 |     IF ( TRIM( initializing_actions ) /= 'read_restart_data' ) THEN |
---|
2394 |      t_soil_h%var_2d = 0.0_wp |
---|
2395 |      m_soil_h%var_2d = 0.0_wp |
---|
2396 |      m_liq_h%var_1d = 0.0_wp |
---|
2397 | |
---|
2398 |      DO l = 0, 3 |
---|
2399 |        t_soil_v(l)%var_2d = 0.0_wp |
---|
2400 |        m_soil_v(l)%var_2d = 0.0_wp |
---|
2401 |        m_liq_v(l)%var_1d = 0.0_wp |
---|
2402 | Â Â Â Â Â ENDDO |
---|
2403 | Â Â Â Â ENDIF |
---|
2404 | ! |
---|
2405 | !--Â Â Allocate 3D soil model arrays |
---|
2406 | !--Â Â First, for horizontal surfaces |
---|
2407 | Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%alpha_vg(nzb_soil:nzt_soil,1:surf_lsm_h%ns)Â Â ) |
---|
2408 | Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%gamma_w_sat(nzb_soil:nzt_soil,1:surf_lsm_h%ns)Â ) |
---|
2409 | Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%lambda_h(nzb_soil:nzt_soil,1:surf_lsm_h%ns)Â Â ) |
---|
2410 | Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%lambda_h_def(nzb_soil:nzt_soil,1:surf_lsm_h%ns)) |
---|
2411 | Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%l_vg(nzb_soil:nzt_soil,1:surf_lsm_h%ns)Â Â Â Â ) |
---|
2412 | Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%m_fc(nzb_soil:nzt_soil,1:surf_lsm_h%ns)Â Â Â Â ) |
---|
2413 | Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%m_res(nzb_soil:nzt_soil,1:surf_lsm_h%ns)Â Â Â Â ) |
---|
2414 | Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%m_sat(nzb_soil:nzt_soil,1:surf_lsm_h%ns)Â Â Â Â ) |
---|
2415 | Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%m_wilt(nzb_soil:nzt_soil,1:surf_lsm_h%ns)Â Â Â ) |
---|
2416 | Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%n_vg(nzb_soil:nzt_soil,1:surf_lsm_h%ns)Â Â Â Â ) |
---|
2417 | Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%rho_c_total(nzb_soil:nzt_soil,1:surf_lsm_h%ns)Â ) |
---|
2418 | Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%rho_c_total_def(nzb_soil:nzt_soil,1:surf_lsm_h%ns)Â ) |
---|
2419 | Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%root_fr(nzb_soil:nzt_soil,1:surf_lsm_h%ns)Â Â Â ) |
---|
2420 | Â Â |
---|
2421 |     surf_lsm_h%lambda_h   = 0.0_wp |
---|
2422 | ! |
---|
2423 | !--Â Â If required, allocate humidity-related variables for the soil model |
---|
2424 |     IF ( humidity ) THEN |
---|
2425 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%lambda_w(nzb_soil:nzt_soil,1:surf_lsm_h%ns)Â ) |
---|
2426 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%gamma_w(nzb_soil:nzt_soil,1:surf_lsm_h%ns)Â )Â |
---|
2427 | |
---|
2428 |      surf_lsm_h%lambda_w = 0.0_wp |
---|
2429 | Â Â Â Â ENDIF |
---|
2430 | ! |
---|
2431 | !--Â Â For vertical surfaces |
---|
2432 |     DO l = 0, 3 |
---|
2433 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%alpha_vg(nzb_soil:nzt_soil,1:surf_lsm_v(l)%ns)Â Â ) |
---|
2434 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%gamma_w_sat(nzb_soil:nzt_soil,1:surf_lsm_v(l)%ns)Â ) |
---|
2435 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%lambda_h(nzb_soil:nzt_soil,1:surf_lsm_v(l)%ns)Â Â ) |
---|
2436 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%lambda_h_def(nzb_soil:nzt_soil,1:surf_lsm_v(l)%ns)) |
---|
2437 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%l_vg(nzb_soil:nzt_soil,1:surf_lsm_v(l)%ns)Â Â Â Â ) |
---|
2438 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%m_fc(nzb_soil:nzt_soil,1:surf_lsm_v(l)%ns)Â Â Â Â ) |
---|
2439 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%m_res(nzb_soil:nzt_soil,1:surf_lsm_v(l)%ns)Â Â Â Â ) |
---|
2440 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%m_sat(nzb_soil:nzt_soil,1:surf_lsm_v(l)%ns)Â Â Â Â ) |
---|
2441 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%m_wilt(nzb_soil:nzt_soil,1:surf_lsm_v(l)%ns)Â Â Â ) |
---|
2442 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%n_vg(nzb_soil:nzt_soil,1:surf_lsm_v(l)%ns)Â Â Â Â ) |
---|
2443 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%rho_c_total(nzb_soil:nzt_soil,1:surf_lsm_v(l)%ns)Â )Â |
---|
2444 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%rho_c_total_def(nzb_soil:nzt_soil,1:surf_lsm_v(l)%ns)Â )Â |
---|
2445 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%root_fr(nzb_soil:nzt_soil,1:surf_lsm_v(l)%ns)Â Â Â ) |
---|
2446 | |
---|
2447 |      surf_lsm_v(l)%lambda_h   = 0.0_wp |
---|
2448 | Â Â Â Â Â |
---|
2449 | ! |
---|
2450 | !--Â Â Â Â If required, allocate humidity-related variables for the soil model |
---|
2451 |      IF ( humidity ) THEN |
---|
2452 | Â Â Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%lambda_w(nzb_soil:nzt_soil,1:surf_lsm_v(l)%ns)Â ) |
---|
2453 | Â Â Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%gamma_w(nzb_soil:nzt_soil,1:surf_lsm_v(l)%ns)Â )Â |
---|
2454 | |
---|
2455 |        surf_lsm_v(l)%lambda_w = 0.0_wp |
---|
2456 | Â Â Â Â Â ENDIFÂ Â Â |
---|
2457 | Â Â Â Â ENDDO |
---|
2458 | ! |
---|
2459 | !--Â Â Allocate albedo type and emissivity for vegetation, water and pavement |
---|
2460 | !--Â Â fraction. |
---|
2461 | !--Â Â Set default values at each surface element. |
---|
2462 | Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%albedo_type(0:2,1:surf_lsm_h%ns)Â ) |
---|
2463 | Â Â Â Â ALLOCATEÂ (Â surf_lsm_h%emissivity(0:2,1:surf_lsm_h%ns)Â ) |
---|
2464 | ! |
---|
2465 | !--Â Â Initialize albedo type according to its default type, in order to set values |
---|
2466 | !--Â Â independent on default albedo_type in radiation model. |
---|
2467 | Â Â Â Â surf_lsm_h%albedo_type(ind_veg_wall,:)Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2468 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â INT(Â vegetation_pars(ind_v_at,vegetation_type)Â ) |
---|
2469 | Â Â Â Â surf_lsm_h%albedo_type(ind_wat_win,:)Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2470 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â INT(Â water_pars(ind_w_at,water_type)Â Â Â Â Â Â ) |
---|
2471 | Â Â Â Â surf_lsm_h%albedo_type(ind_pav_green,:)Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2472 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â INT(Â pavement_pars(ind_p_at,pavement_type)Â Â Â ) |
---|
2473 |     surf_lsm_h%emissivity = emissivity |
---|
2474 |     DO l = 0, 3 |
---|
2475 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%albedo_type(0:2,1:surf_lsm_v(l)%ns)Â ) |
---|
2476 | Â Â Â Â Â ALLOCATEÂ (Â surf_lsm_v(l)%emissivity(0:2,1:surf_lsm_v(l)%ns)Â ) |
---|
2477 | ! |
---|
2478 | !--Â Â Â Â Initialize albedo type according to its default type, in order to |
---|
2479 | !--Â Â Â Â set values independent on default albedo_type in radiation model. |
---|
2480 | Â Â Â Â Â surf_lsm_v(l)%albedo_type(ind_veg_wall,:)Â =Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2481 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â INT(Â vegetation_pars(ind_v_at,vegetation_type)Â ) |
---|
2482 | Â Â Â Â Â surf_lsm_v(l)%albedo_type(ind_wat_win,:)Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2483 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â INT(Â water_pars(ind_w_at,water_type)Â Â Â Â Â Â ) |
---|
2484 | Â Â Â Â Â surf_lsm_v(l)%albedo_type(ind_pav_green,:)Â =Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2485 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â INT(Â pavement_pars(ind_p_at,pavement_type)Â Â Â ) |
---|
2486 |      surf_lsm_v(l)%emissivity = emissivity |
---|
2487 | Â Â Â Â ENDDO |
---|
2488 | ! |
---|
2489 | !--Â Â Allocate arrays for relative surface fraction. |
---|
2490 | !--Â Â 0 - vegetation fraction, 2 - water fraction, 1 - pavement fraction |
---|
2491 | Â Â Â Â ALLOCATE(Â surf_lsm_h%frac(0:2,1:surf_lsm_h%ns)Â ) |
---|
2492 |     surf_lsm_h%frac = 0.0_wp |
---|
2493 |     DO l = 0, 3 |
---|
2494 | Â Â Â Â Â ALLOCATE(Â surf_lsm_v(l)%frac(0:2,1:surf_lsm_v(l)%ns)Â ) |
---|
2495 |      surf_lsm_v(l)%frac = 0.0_wp |
---|
2496 | Â Â Â Â ENDDO |
---|
2497 | ! |
---|
2498 | !--Â Â For vertical walls only - allocate special flag indicating if any building is on |
---|
2499 | !--Â Â top of any natural surfaces. Used for initialization only. |
---|
2500 |     DO l = 0, 3 |
---|
2501 | Â Â Â Â Â ALLOCATE(Â surf_lsm_v(l)%building_covered(1:surf_lsm_v(l)%ns)Â ) |
---|
2502 | Â Â Â Â ENDDO |
---|
2503 | ! |
---|
2504 | !--Â Â Allocate arrays for the respective types and their names on the surface |
---|
2505 | !--Â Â elements. This will be required to treat deposition of chemical species. |
---|
2506 | Â Â Â Â ALLOCATE(Â surf_lsm_h%pavement_type(1:surf_lsm_h%ns)Â Â ) |
---|
2507 | Â Â Â Â ALLOCATE(Â surf_lsm_h%vegetation_type(1:surf_lsm_h%ns)Â ) |
---|
2508 | Â Â Â Â ALLOCATE(Â surf_lsm_h%water_type(1:surf_lsm_h%ns)Â Â Â ) |
---|
2509 | Â Â Â Â |
---|
2510 |     surf_lsm_h%pavement_type  = 0 |
---|
2511 |     surf_lsm_h%vegetation_type = 0 |
---|
2512 |     surf_lsm_h%water_type   = 0 |
---|
2513 | Â Â Â Â |
---|
2514 | Â Â Â Â ALLOCATE(Â surf_lsm_h%pavement_type_name(1:surf_lsm_h%ns)Â Â ) |
---|
2515 | Â Â Â Â ALLOCATE(Â surf_lsm_h%vegetation_type_name(1:surf_lsm_h%ns)Â ) |
---|
2516 | Â Â Â Â ALLOCATE(Â surf_lsm_h%water_type_name(1:surf_lsm_h%ns)Â Â Â ) |
---|
2517 | Â Â Â Â |
---|
2518 |     surf_lsm_h%pavement_type_name  = 'none' |
---|
2519 |     surf_lsm_h%vegetation_type_name = 'none' |
---|
2520 |     surf_lsm_h%water_type_name   = 'none' |
---|
2521 | Â Â Â Â |
---|
2522 |     DO l = 0, 3 |
---|
2523 | Â Â Â Â Â ALLOCATE(Â surf_lsm_v(l)%pavement_type(1:surf_lsm_v(l)%ns)Â Â ) |
---|
2524 | Â Â Â Â Â ALLOCATE(Â surf_lsm_v(l)%vegetation_type(1:surf_lsm_v(l)%ns)Â ) |
---|
2525 | Â Â Â Â Â ALLOCATE(Â surf_lsm_v(l)%water_type(1:surf_lsm_v(l)%ns)Â Â Â ) |
---|
2526 | Â Â Â Â Â |
---|
2527 |      surf_lsm_v(l)%pavement_type  = 0 |
---|
2528 |      surf_lsm_v(l)%vegetation_type = 0 |
---|
2529 |      surf_lsm_v(l)%water_type   = 0 |
---|
2530 | Â Â Â Â |
---|
2531 | Â Â Â Â Â ALLOCATE(Â surf_lsm_v(l)%pavement_type_name(1:surf_lsm_v(l)%ns)Â Â ) |
---|
2532 | Â Â Â Â Â ALLOCATE(Â surf_lsm_v(l)%vegetation_type_name(1:surf_lsm_v(l)%ns)Â ) |
---|
2533 | Â Â Â Â Â ALLOCATE(Â surf_lsm_v(l)%water_type_name(1:surf_lsm_v(l)%ns)Â Â Â ) |
---|
2534 | Â Â Â Â |
---|
2535 |      surf_lsm_v(l)%pavement_type_name  = 'none' |
---|
2536 |      surf_lsm_v(l)%vegetation_type_name = 'none' |
---|
2537 |      surf_lsm_v(l)%water_type_name   = 'none'    |
---|
2538 | Â Â Â Â ENDDO |
---|
2539 | Â Â Â Â |
---|
2540 | ! |
---|
2541 | !--Â Â Set flag parameter for the prescribed surface type depending on user |
---|
2542 | !--Â Â input. Set surface fraction to 1 for the respective type. |
---|
2543 |     SELECT CASE ( TRIM( surface_type ) ) |
---|
2544 | Â Â Â Â Â |
---|
2545 | Â Â Â Â Â CASEÂ (Â 'vegetation'Â ) |
---|
2546 | Â Â Â Â Â |
---|
2547 |        surf_lsm_h%vegetation_surface = .TRUE. |
---|
2548 | Â Â Â Â Â Â Â surf_lsm_h%frac(ind_veg_wall,:)Â =Â 1.0_wp |
---|
2549 |        DO l = 0, 3 |
---|
2550 |         surf_lsm_v(l)%vegetation_surface = .TRUE. |
---|
2551 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%frac(ind_veg_wall,:)Â =Â 1.0_wp |
---|
2552 | Â Â Â Â Â Â Â ENDDO |
---|
2553 | Â Â |
---|
2554 | Â Â Â Â Â CASEÂ (Â 'water'Â ) |
---|
2555 | Â Â Â Â Â Â Â |
---|
2556 |        surf_lsm_h%water_surface = .TRUE. |
---|
2557 | Â Â Â Â Â Â Â surf_lsm_h%frac(ind_wat_win,:)Â =Â 1.0_wp |
---|
2558 | ! |
---|
2559 | !--Â Â Â Â Â Note, vertical water surface does not really make sense. |
---|
2560 |        DO l = 0, 3 |
---|
2561 |         surf_lsm_v(l)%water_surface  = .TRUE. |
---|
2562 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%frac(ind_wat_win,:)Â =Â 1.0_wp |
---|
2563 | Â Â Â Â Â Â Â ENDDO |
---|
2564 | |
---|
2565 | Â Â Â Â Â CASEÂ (Â 'pavement'Â ) |
---|
2566 | Â Â Â Â Â Â Â |
---|
2567 |        surf_lsm_h%pavement_surface = .TRUE. |
---|
2568 | Â Â Â Â Â Â Â Â surf_lsm_h%frac(ind_pav_green,:)Â =Â 1.0_wp |
---|
2569 |        DO l = 0, 3 |
---|
2570 |         surf_lsm_v(l)%pavement_surface  = .TRUE. |
---|
2571 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%frac(ind_pav_green,:)Â =Â 1.0_wp |
---|
2572 | Â Â Â Â Â Â Â ENDDO |
---|
2573 | |
---|
2574 | Â Â Â Â Â CASEÂ (Â 'netcdf'Â ) |
---|
2575 | |
---|
2576 |        DO m = 1, surf_lsm_h%ns |
---|
2577 |         i = surf_lsm_h%i(m) |
---|
2578 |         j = surf_lsm_h%j(m) |
---|
2579 |         IF ( vegetation_type_f%var(j,i) /= vegetation_type_f%fill )  & |
---|
2580 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%vegetation_surface(m)Â =Â .TRUE. |
---|
2581 |         IF ( pavement_type_f%var(j,i)  /= pavement_type_f%fill )   & |
---|
2582 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%pavement_surface(m)Â =Â .TRUE. |
---|
2583 |         IF ( water_type_f%var(j,i)   /= water_type_f%fill )     & |
---|
2584 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%water_surface(m)Â =Â .TRUE. |
---|
2585 | ! |
---|
2586 | !--Â Â Â Â Â Â Â Check if at least one type is set. |
---|
2587 |         IF ( .NOT. surf_lsm_h%vegetation_surface(m) .AND.       & |
---|
2588 |            .NOT. surf_lsm_h%pavement_surface(m)  .AND.       & |
---|
2589 |            .NOT. surf_lsm_h%water_surface(m) ) THEN |
---|
2590 |           WRITE( message_string, * ) 'Horizontal surface element ' // & |
---|
2591 |                     ' at i, j = ', i, j,          & |
---|
2592 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ' is neither a vegetation, 'Â //Â Â Â Â Â & |
---|
2593 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'pavement, nor a water surface.' |
---|
2594 |           CALL message( 'land_surface_model_mod', 'PA0619',     & |
---|
2595 |                  2, 2, myid, 6, 0 ) |
---|
2596 | Â Â Â Â Â Â Â Â ENDIF |
---|
2597 | Â Â Â Â Â Â Â Â |
---|
2598 | Â Â Â Â Â Â Â ENDDO |
---|
2599 | ! |
---|
2600 | !--Â Â Â Â Â For vertical surfaces some special checks and treatment are |
---|
2601 | !--Â Â Â Â Â required for correct initialization. |
---|
2602 |        DO l = 0, 3 |
---|
2603 |         DO m = 1, surf_lsm_v(l)%ns |
---|
2604 | ! |
---|
2605 | !--Â Â Â Â Â Â Â Â Only for vertical surfaces. Check if at the grid point where |
---|
2606 | !--Â Â Â Â Â Â Â Â the wall is defined (i+ioff, j+joff) is any building. |
---|
2607 | !--Â Â Â Â Â Â Â Â This case, no natural surfaces properties will be defined at |
---|
2608 | !--Â Â Â Â Â Â Â Â at this grid point, leading to problems in the initialization. |
---|
2609 | !--Â Â Â Â Â Â Â Â To overcome this, define a special flag which |
---|
2610 | !--        indicates that a building is defined at the wall grid point |
---|
2611 | !--Â Â Â Â Â Â Â Â and take the surface properties from the adjoining grid |
---|
2612 | !--Â Â Â Â Â Â Â Â point, i.e. without offset values. |
---|
2613 | !--Â Â Â Â Â Â Â Â Further, there can occur a special case where elevation |
---|
2614 | !--Â Â Â Â Â Â Â Â changes are larger than building heights. This case, (j,i) |
---|
2615 | !--Â Â Â Â Â Â Â Â and (j+joff,i+ioff) grid points may be both covered by |
---|
2616 | !--Â Â Â Â Â Â Â Â buildings, but vertical, but vertically natural walls may |
---|
2617 | !--Â Â Â Â Â Â Â Â be located between the buildings. This case, it is not |
---|
2618 | !--Â Â Â Â Â Â Â Â guaranteed that information about natural surface types is |
---|
2619 | !--Â Â Â Â Â Â Â Â given, neither at (j,i) nor at (j+joff,i+ioff), again leading |
---|
2620 | !--Â Â Â Â Â Â Â Â to non-initialized surface properties. |
---|
2621 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â =Â .FALSE. |
---|
2622 | ! |
---|
2623 | !--Â Â Â Â Â Â Â Â Wall grid point is building-covered. This case, set |
---|
2624 | !--Â Â Â Â Â Â Â Â flag indicating that surface properties are initialized |
---|
2625 | !--Â Â Â Â Â Â Â Â from neighboring reference grid point, which is not |
---|
2626 | !--Â Â Â Â Â Â Â Â building_covered. |
---|
2627 |           IF ( building_type_f%from_file ) THEN |
---|
2628 |            i = surf_lsm_v(l)%i(m) |
---|
2629 |            j = surf_lsm_v(l)%j(m) |
---|
2630 |            IF ( building_type_f%var(j+surf_lsm_v(l)%joff,      & |
---|
2631 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â i+surf_lsm_v(l)%ioff)Â /=Â Â Â Â & |
---|
2632 |               building_type_f%fill )               & |
---|
2633 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â =Â .TRUE. |
---|
2634 | ! |
---|
2635 | !--Â Â Â Â Â Â Â Â Â Â Wall grid point as well as neighboring reference grid |
---|
2636 | !--Â Â Â Â Â Â Â Â Â Â point are both building-covered. This case, surface |
---|
2637 | !--Â Â Â Â Â Â Â Â Â Â properties are not necessarily defined (not covered by |
---|
2638 | !--Â Â Â Â Â Â Â Â Â Â checks for static input file) at this surface. Hence, |
---|
2639 | !--Â Â Â Â Â Â Â Â Â Â initialize surface properties by simply setting |
---|
2640 | !--Â Â Â Â Â Â Â Â Â Â vegetation_type_f to bare-soil bulk parametrization. |
---|
2641 | !--Â Â Â Â Â Â Â Â Â Â soil_type_f as well as surface_fractions_f will be set |
---|
2642 | !--          also.           |
---|
2643 |            IF ( building_type_f%var(j+surf_lsm_v(l)%joff,      & |
---|
2644 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â i+surf_lsm_v(l)%ioff)Â /=Â Â Â Â & |
---|
2645 |               building_type_f%fill .AND.             & |
---|
2646 |               building_type_f%var(j,i) /= building_type_f%fill ) & |
---|
2647 | Â Â Â Â Â Â Â Â Â Â Â THEN |
---|
2648 | Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_type_f%var(j,i)Â Â Â Â Â Â Â Â Â =Â 1Â ! bare soil |
---|
2649 | Â Â Â Â Â Â Â Â Â Â Â Â Â soil_type_f%var_2d(j,i)Â Â Â Â Â Â Â Â Â Â =Â 1Â |
---|
2650 | !             |
---|
2651 | !--Â Â Â Â Â Â Â Â Â Â Â Set surface_fraction if provided in static input, |
---|
2652 | !--Â Â Â Â Â Â Â Â Â Â Â else, in case no tiles are used, this will be done |
---|
2653 | !--Â Â Â Â Â Â Â Â Â Â Â on basis of the prescribed types (vegetation/pavement/ |
---|
2654 | !--Â Â Â Â Â Â Â Â Â Â Â water_type). |
---|
2655 |              IF ( surface_fraction_f%from_file ) THEN |
---|
2656 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â surface_fraction_f%frac(ind_veg_wall,j,i)Â =Â 1.0_wp |
---|
2657 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â surface_fraction_f%frac(ind_pav_green,j,i)Â =Â 0.0_wp |
---|
2658 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â surface_fraction_f%frac(ind_wat_win,j,i)Â Â =Â 0.0_wp |
---|
2659 | Â Â Â Â Â Â Â Â Â Â Â Â Â ENDIF |
---|
2660 | Â Â Â Â Â Â Â Â Â Â Â ENDIF |
---|
2661 | Â Â Â Â Â Â Â Â Â Â Â |
---|
2662 | Â Â Â Â Â Â Â Â Â Â ENDIF |
---|
2663 | ! |
---|
2664 | !--Â Â Â Â Â Â Â Â Normally proceed with setting surface types. |
---|
2665 |           i = surf_lsm_v(l)%i(m) + MERGE( 0, surf_lsm_v(l)%ioff,   & |
---|
2666 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â ) |
---|
2667 |           j = surf_lsm_v(l)%j(m) + MERGE( 0, surf_lsm_v(l)%joff,   & |
---|
2668 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â ) |
---|
2669 |           IF ( vegetation_type_f%var(j,i) /= vegetation_type_f%fill ) & |
---|
2670 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%vegetation_surface(m)Â =Â .TRUE. |
---|
2671 |           IF ( pavement_type_f%var(j,i)  /= pavement_type_f%fill )  & |
---|
2672 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%pavement_surface(m)Â =Â .TRUE. |
---|
2673 |           IF ( water_type_f%var(j,i)   /= water_type_f%fill )   & |
---|
2674 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%water_surface(m)Â =Â .TRUE. |
---|
2675 | ! |
---|
2676 | !--Â Â Â Â Â Â Â Â Check if at least one type is set. |
---|
2677 |           IF ( .NOT. surf_lsm_v(l)%vegetation_surface(m) .AND.    & |
---|
2678 |             .NOT. surf_lsm_v(l)%pavement_surface(m)  .AND.    & |
---|
2679 |             .NOT. surf_lsm_v(l)%water_surface(m) ) THEN |
---|
2680 |            WRITE( message_string, * ) 'Vertical surface element ' //& |
---|
2681 |                     ' at i, j = ', i, j,          & |
---|
2682 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ' is neither a vegetation, 'Â //Â Â Â Â Â & |
---|
2683 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'pavement, nor a water surface.' |
---|
2684 |            CALL message( 'land_surface_model_mod', 'PA0619',    & |
---|
2685 |                    2, 2, myid, 6, 0 ) |
---|
2686 | Â Â Â Â Â Â Â Â Â Â ENDIF |
---|
2687 | Â Â Â Â Â Â Â Â ENDDO |
---|
2688 | Â Â Â Â Â Â Â ENDDO |
---|
2689 | |
---|
2690 | Â Â Â Â END SELECT |
---|
2691 | ! |
---|
2692 | !--Â Â In case of netcdf input file, further initialize surface fractions. |
---|
2693 | !--Â Â At the moment only 1 surface is given at a location, so that the fraction |
---|
2694 | !--Â Â is either 0 or 1. This will be revised later. If surface fraction |
---|
2695 | !--Â Â is not given in static input file, relative fractions will be derived |
---|
2696 | !--Â Â from given surface type. In this case, only 1 type is given at a certain |
---|
2697 | !--  location (already checked). |
---|
2698 |     IF ( input_pids_static .AND. surface_fraction_f%from_file ) THEN |
---|
2699 |      DO m = 1, surf_lsm_h%ns |
---|
2700 |        i = surf_lsm_h%i(m) |
---|
2701 |        j = surf_lsm_h%j(m) |
---|
2702 | ! |
---|
2703 | !--     0 - vegetation fraction, 1 - pavement fraction, 2 - water fraction       |
---|
2704 | Â Â Â Â Â Â Â surf_lsm_h%frac(ind_veg_wall,m)Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2705 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surface_fraction_f%frac(ind_veg_wall,j,i)Â Â Â Â Â |
---|
2706 | Â Â Â Â Â Â Â surf_lsm_h%frac(ind_pav_green,m)Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2707 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surface_fraction_f%frac(ind_pav_green,j,i)Â Â Â Â |
---|
2708 | Â Â Â Â Â Â Â surf_lsm_h%frac(ind_wat_win,m)Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2709 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surface_fraction_f%frac(ind_wat_win,j,i) |
---|
2710 | |
---|
2711 | Â Â Â Â Â ENDDO |
---|
2712 |      DO l = 0, 3 |
---|
2713 |        DO m = 1, surf_lsm_v(l)%ns |
---|
2714 |         i = surf_lsm_v(l)%i(m) + MERGE( 0, surf_lsm_v(l)%ioff,     & |
---|
2715 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
2716 |         j = surf_lsm_v(l)%j(m) + MERGE( 0, surf_lsm_v(l)%joff,     & |
---|
2717 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
2718 | ! |
---|
2719 | !--       0 - vegetation fraction, 1 - pavement fraction, 2 - water fraction    |
---|
2720 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%frac(ind_veg_wall,m)Â =Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2721 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surface_fraction_f%frac(ind_veg_wall,j,i)Â Â Â Â Â |
---|
2722 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%frac(ind_pav_green,m)Â =Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2723 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surface_fraction_f%frac(ind_pav_green,j,i)Â Â Â Â |
---|
2724 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%frac(ind_wat_win,m)Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
2725 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surface_fraction_f%frac(ind_wat_win,j,i) |
---|
2726 | |
---|
2727 | Â Â Â Â Â Â Â ENDDO |
---|
2728 | Â Â Â Â Â ENDDO |
---|
2729 |     ELSEIF ( input_pids_static .AND. .NOT. surface_fraction_f%from_file ) & |
---|
2730 | Â Â Â Â THEN |
---|
2731 |      DO m = 1, surf_lsm_h%ns |
---|
2732 |        i = surf_lsm_h%i(m) |
---|
2733 |        j = surf_lsm_h%j(m) |
---|
2734 | |
---|
2735 |        IF ( vegetation_type_f%var(j,i) /= vegetation_type_f%fill )    &    |
---|
2736 | Â Â Â Â Â Â Â Â surf_lsm_h%frac(ind_veg_wall,m)Â =Â 1.0_wp |
---|
2737 |        IF ( pavement_type_f%var(j,i)  /= pavement_type_f%fill  )    &    |
---|
2738 |         surf_lsm_h%frac(ind_pav_green,m) = 1.0_wp |
---|
2739 |        IF ( water_type_f%var(j,i)   /= water_type_f%fill   )    &    |
---|
2740 |         surf_lsm_h%frac(ind_wat_win,m)  = 1.0_wp    |
---|
2741 | Â Â Â Â Â ENDDO |
---|
2742 |      DO l = 0, 3 |
---|
2743 |        DO m = 1, surf_lsm_v(l)%ns |
---|
2744 |         i = surf_lsm_v(l)%i(m) + MERGE( 0, surf_lsm_v(l)%ioff,     & |
---|
2745 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
2746 |         j = surf_lsm_v(l)%j(m) + MERGE( 0, surf_lsm_v(l)%joff,     & |
---|
2747 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
2748 | Â Â Â |
---|
2749 |         IF ( vegetation_type_f%var(j,i) /= vegetation_type_f%fill )  &    |
---|
2750 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%frac(ind_veg_wall,m)Â =Â 1.0_wp |
---|
2751 |         IF ( pavement_type_f%var(j,i)  /= pavement_type_f%fill  )  &    |
---|
2752 |           surf_lsm_v(l)%frac(ind_pav_green,m) = 1.0_wp |
---|
2753 |         IF ( water_type_f%var(j,i)   /= water_type_f%fill   )  &    |
---|
2754 |           surf_lsm_v(l)%frac(ind_wat_win,m)  = 1.0_wp   |
---|
2755 | Â Â Â Â Â Â Â ENDDO |
---|
2756 | Â Â Â Â Â ENDDO |
---|
2757 | Â Â Â Â ENDIF |
---|
2758 | ! |
---|
2759 | !--Â Â Level 1, initialization of soil parameters. |
---|
2760 | !--Â Â It is possible to overwrite each parameter by setting the respecticy |
---|
2761 | !--Â Â NAMELIST variable to a value /= 9999999.9. |
---|
2762 |     IF ( soil_type /= 0 ) THEN |
---|
2763 | Â |
---|
2764 |      IF ( alpha_vangenuchten == 9999999.9_wp ) THEN |
---|
2765 |        alpha_vangenuchten = soil_pars(0,soil_type) |
---|
2766 | Â Â Â Â Â ENDIF |
---|
2767 | |
---|
2768 |      IF ( l_vangenuchten == 9999999.9_wp ) THEN |
---|
2769 |        l_vangenuchten = soil_pars(1,soil_type) |
---|
2770 | Â Â Â Â Â ENDIF |
---|
2771 | |
---|
2772 |      IF ( n_vangenuchten == 9999999.9_wp ) THEN |
---|
2773 |        n_vangenuchten = soil_pars(2,soil_type)      |
---|
2774 | Â Â Â Â Â ENDIF |
---|
2775 | |
---|
2776 |      IF ( hydraulic_conductivity == 9999999.9_wp ) THEN |
---|
2777 |        hydraulic_conductivity = soil_pars(3,soil_type)      |
---|
2778 | Â Â Â Â Â ENDIF |
---|
2779 | |
---|
2780 |      IF ( saturation_moisture == 9999999.9_wp ) THEN |
---|
2781 |        saturation_moisture = soil_pars(4,soil_type)      |
---|
2782 | Â Â Â Â Â ENDIF |
---|
2783 | |
---|
2784 |      IF ( field_capacity == 9999999.9_wp ) THEN |
---|
2785 |        field_capacity = soil_pars(5,soil_type)      |
---|
2786 | Â Â Â Â Â ENDIF |
---|
2787 | |
---|
2788 |      IF ( wilting_point == 9999999.9_wp ) THEN |
---|
2789 |        wilting_point = soil_pars(6,soil_type)      |
---|
2790 | Â Â Â Â Â ENDIF |
---|
2791 | |
---|
2792 |      IF ( residual_moisture == 9999999.9_wp ) THEN |
---|
2793 |        residual_moisture = soil_pars(7,soil_type)    |
---|
2794 | Â Â Â Â Â ENDIF |
---|
2795 | |
---|
2796 | Â Â Â Â ENDIF |
---|
2797 | ! |
---|
2798 | !--Â Â Map values to the respective 2D/3D arrays |
---|
2799 | !--Â Â Horizontal surfaces |
---|
2800 |     surf_lsm_h%alpha_vg   = alpha_vangenuchten |
---|
2801 |     surf_lsm_h%l_vg     = l_vangenuchten |
---|
2802 |     surf_lsm_h%n_vg     = n_vangenuchten |
---|
2803 |     surf_lsm_h%gamma_w_sat  = hydraulic_conductivity |
---|
2804 |     surf_lsm_h%m_sat     = saturation_moisture |
---|
2805 |     surf_lsm_h%m_fc     = field_capacity |
---|
2806 |     surf_lsm_h%m_wilt    = wilting_point |
---|
2807 |     surf_lsm_h%m_res     = residual_moisture |
---|
2808 |     surf_lsm_h%r_soil_min  = min_soil_resistance |
---|
2809 | ! |
---|
2810 | !--Â Â Vertical surfaces |
---|
2811 |     DO l = 0, 3 |
---|
2812 |      surf_lsm_v(l)%alpha_vg   = alpha_vangenuchten |
---|
2813 |      surf_lsm_v(l)%l_vg     = l_vangenuchten |
---|
2814 |      surf_lsm_v(l)%n_vg     = n_vangenuchten |
---|
2815 |      surf_lsm_v(l)%gamma_w_sat  = hydraulic_conductivity |
---|
2816 |      surf_lsm_v(l)%m_sat     = saturation_moisture |
---|
2817 |      surf_lsm_v(l)%m_fc     = field_capacity |
---|
2818 |      surf_lsm_v(l)%m_wilt    = wilting_point |
---|
2819 |      surf_lsm_v(l)%m_res     = residual_moisture |
---|
2820 |      surf_lsm_v(l)%r_soil_min  = min_soil_resistance |
---|
2821 | Â Â Â Â ENDDO |
---|
2822 | ! |
---|
2823 | !--Â Â Level 2, initialization of soil parameters via soil_type read from file. |
---|
2824 | !--Â Â Soil parameters are initialized for each (y,x)-grid point |
---|
2825 | !--Â Â individually using default paramter settings according to the given |
---|
2826 | !--Â Â soil type. |
---|
2827 |     IF ( soil_type_f%from_file ) THEN |
---|
2828 | ! |
---|
2829 | !--Â Â Â Â Level of detail = 1, i.e. a homogeneous soil distribution along the |
---|
2830 | !--Â Â Â Â vertical dimension is assumed. |
---|
2831 |      IF ( soil_type_f%lod == 1 ) THEN |
---|
2832 | ! |
---|
2833 | !--Â Â Â Â Â Horizontal surfaces |
---|
2834 |        DO m = 1, surf_lsm_h%ns |
---|
2835 |         i = surf_lsm_h%i(m) |
---|
2836 |         j = surf_lsm_h%j(m) |
---|
2837 | Â Â Â Â Â Â Â |
---|
2838 |         st = soil_type_f%var_2d(j,i) |
---|
2839 |         IF ( st /= soil_type_f%fill ) THEN |
---|
2840 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%alpha_vg(:,m)Â Â =Â soil_pars(0,st) |
---|
2841 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%l_vg(:,m)Â Â Â Â =Â soil_pars(1,st) |
---|
2842 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%n_vg(:,m)Â Â Â Â =Â soil_pars(2,st) |
---|
2843 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%gamma_w_sat(:,m)Â =Â soil_pars(3,st) |
---|
2844 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%m_sat(:,m)Â Â Â Â =Â soil_pars(4,st) |
---|
2845 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%m_fc(:,m)Â Â Â Â =Â soil_pars(5,st) |
---|
2846 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%m_wilt(:,m)Â Â Â =Â soil_pars(6,st) |
---|
2847 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%m_res(:,m)Â Â Â Â =Â soil_pars(7,st) |
---|
2848 | Â Â Â Â Â Â Â Â ENDIF |
---|
2849 | Â Â Â Â Â Â Â ENDDO |
---|
2850 | ! |
---|
2851 | !--Â Â Â Â Â Vertical surfaces ( assumes the soil type given at respective (x,y) |
---|
2852 |        DO l = 0, 3 |
---|
2853 |         DO m = 1, surf_lsm_v(l)%ns |
---|
2854 |           i = surf_lsm_v(l)%i(m) + MERGE( 0, surf_lsm_v(l)%ioff,   & |
---|
2855 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
2856 |           j = surf_lsm_v(l)%j(m) + MERGE( 0, surf_lsm_v(l)%joff,   & |
---|
2857 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
2858 | |
---|
2859 |           st = soil_type_f%var_2d(j,i) |
---|
2860 |           IF ( st /= soil_type_f%fill ) THEN |
---|
2861 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%alpha_vg(:,m)Â Â =Â soil_pars(0,st) |
---|
2862 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%l_vg(:,m)Â Â Â Â =Â soil_pars(1,st) |
---|
2863 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%n_vg(:,m)Â Â Â Â =Â soil_pars(2,st) |
---|
2864 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%gamma_w_sat(:,m)Â =Â soil_pars(3,st) |
---|
2865 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%m_sat(:,m)Â Â Â Â =Â soil_pars(4,st) |
---|
2866 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%m_fc(:,m)Â Â Â Â =Â soil_pars(5,st) |
---|
2867 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%m_wilt(:,m)Â Â Â =Â soil_pars(6,st) |
---|
2868 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%m_res(:,m)Â Â Â Â =Â soil_pars(7,st) |
---|
2869 | Â Â Â Â Â Â Â Â Â Â ENDIF |
---|
2870 | Â Â Â Â Â Â Â Â ENDDO |
---|
2871 | Â Â Â Â Â Â Â ENDDO |
---|
2872 | ! |
---|
2873 | !--Â Â Â Â Level of detail = 2, i.e. soil type and thus the soil parameters |
---|
2874 | !--Â Â Â Â can be heterogeneous along the vertical dimension. |
---|
2875 | Â Â Â Â Â ELSE |
---|
2876 | ! |
---|
2877 | !--Â Â Â Â Â Horizontal surfaces |
---|
2878 |        DO m = 1, surf_lsm_h%ns |
---|
2879 |         i = surf_lsm_h%i(m) |
---|
2880 |         j = surf_lsm_h%j(m) |
---|
2881 | Â Â Â Â Â Â Â |
---|
2882 |         DO k = nzb_soil, nzt_soil |
---|
2883 |           st = soil_type_f%var_3d(k,j,i) |
---|
2884 |           IF ( st /= soil_type_f%fill ) THEN |
---|
2885 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_h%alpha_vg(k,m)Â Â =Â soil_pars(0,st) |
---|
2886 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_h%l_vg(k,m)Â Â Â Â =Â soil_pars(1,st) |
---|
2887 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_h%n_vg(k,m)Â Â Â Â =Â soil_pars(2,st) |
---|
2888 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_h%gamma_w_sat(k,m)Â =Â soil_pars(3,st) |
---|
2889 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_h%m_sat(k,m)Â Â Â Â =Â soil_pars(4,st) |
---|
2890 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_h%m_fc(k,m)Â Â Â Â =Â soil_pars(5,st) |
---|
2891 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_h%m_wilt(k,m)Â Â Â =Â soil_pars(6,st) |
---|
2892 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_h%m_res(k,m)Â Â Â Â =Â soil_pars(7,st) |
---|
2893 | Â Â Â Â Â Â Â Â Â Â ENDIF |
---|
2894 | Â Â Â Â Â Â Â Â ENDDO |
---|
2895 | Â Â Â Â Â Â Â ENDDO |
---|
2896 | ! |
---|
2897 | !--Â Â Â Â Â Vertical surfaces ( assumes the soil type given at respective (x,y) |
---|
2898 |        DO l = 0, 3 |
---|
2899 |         DO m = 1, surf_lsm_v(l)%ns |
---|
2900 |           i = surf_lsm_v(l)%i(m) + MERGE( 0, surf_lsm_v(l)%ioff,   & |
---|
2901 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
2902 |           j = surf_lsm_v(l)%j(m) + MERGE( 0, surf_lsm_v(l)%joff,   & |
---|
2903 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
2904 | |
---|
2905 |           DO k = nzb_soil, nzt_soil |
---|
2906 |            st = soil_type_f%var_3d(k,j,i) |
---|
2907 |            IF ( st /= soil_type_f%fill ) THEN |
---|
2908 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%alpha_vg(k,m)Â Â =Â soil_pars(0,st) |
---|
2909 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%l_vg(k,m)Â Â Â Â =Â soil_pars(1,st) |
---|
2910 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%n_vg(k,m)Â Â Â Â =Â soil_pars(2,st) |
---|
2911 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%gamma_w_sat(k,m)Â =Â soil_pars(3,st) |
---|
2912 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%m_sat(k,m)Â Â Â Â =Â soil_pars(4,st) |
---|
2913 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%m_fc(k,m)Â Â Â Â =Â soil_pars(5,st) |
---|
2914 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%m_wilt(k,m)Â Â Â =Â soil_pars(6,st) |
---|
2915 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%m_res(k,m)Â Â Â Â =Â soil_pars(7,st) |
---|
2916 | Â Â Â Â Â Â Â Â Â Â Â ENDIF |
---|
2917 | Â Â Â Â Â Â Â Â Â Â ENDDO |
---|
2918 | Â Â Â Â Â Â Â Â ENDDO |
---|
2919 | Â Â Â Â Â Â Â ENDDO |
---|
2920 | Â Â Â Â Â ENDIF |
---|
2921 | Â Â Â Â ENDIF |
---|
2922 | ! |
---|
2923 | !--Â Â Level 3, initialization of single soil parameters at single z,x,y |
---|
2924 | !--Â Â position via soil_pars read from file. |
---|
2925 |     IF ( soil_pars_f%from_file ) THEN |
---|
2926 | ! |
---|
2927 | !--Â Â Â Â Level of detail = 1, i.e. a homogeneous vertical distribution of soil |
---|
2928 | !--Â Â Â Â parameters is assumed. |
---|
2929 | !--Â Â Â Â Horizontal surfaces |
---|
2930 |      IF ( soil_pars_f%lod == 1 ) THEN |
---|
2931 | ! |
---|
2932 | !--Â Â Â Â Â Horizontal surfaces |
---|
2933 |        DO m = 1, surf_lsm_h%ns |
---|
2934 |         i = surf_lsm_h%i(m) |
---|
2935 |         j = surf_lsm_h%j(m) |
---|
2936 | |
---|
2937 |         IF ( soil_pars_f%pars_xy(0,j,i) /= soil_pars_f%fill )       & |
---|
2938 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%alpha_vg(:,m)Â Â =Â soil_pars_f%pars_xy(0,j,i) |
---|
2939 |         IF ( soil_pars_f%pars_xy(1,j,i) /= soil_pars_f%fill )       & |
---|
2940 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%l_vg(:,m)Â Â Â Â =Â soil_pars_f%pars_xy(1,j,i) |
---|
2941 |         IF ( soil_pars_f%pars_xy(2,j,i) /= soil_pars_f%fill )       & |
---|
2942 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%n_vg(:,m)Â Â Â Â =Â soil_pars_f%pars_xy(2,j,i) |
---|
2943 |         IF ( soil_pars_f%pars_xy(3,j,i) /= soil_pars_f%fill )       & |
---|
2944 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%gamma_w_sat(:,m)Â =Â soil_pars_f%pars_xy(3,j,i) |
---|
2945 |         IF ( soil_pars_f%pars_xy(4,j,i) /= soil_pars_f%fill )       & |
---|
2946 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%m_sat(:,m)Â Â Â Â =Â soil_pars_f%pars_xy(4,j,i) |
---|
2947 |         IF ( soil_pars_f%pars_xy(5,j,i) /= soil_pars_f%fill )       & |
---|
2948 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%m_fc(:,m)Â Â Â Â =Â soil_pars_f%pars_xy(5,j,i) |
---|
2949 |         IF ( soil_pars_f%pars_xy(6,j,i) /= soil_pars_f%fill )       & |
---|
2950 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%m_wilt(:,m)Â Â Â =Â soil_pars_f%pars_xy(6,j,i) |
---|
2951 |         IF ( soil_pars_f%pars_xy(7,j,i) /= soil_pars_f%fill )       & |
---|
2952 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%m_res(:,m)Â Â Â Â =Â soil_pars_f%pars_xy(7,j,i) |
---|
2953 | |
---|
2954 | Â Â Â Â Â Â Â ENDDO |
---|
2955 | ! |
---|
2956 | !--Â Â Â Â Â Vertical surfaces |
---|
2957 |        DO l = 0, 3 |
---|
2958 |         DO m = 1, surf_lsm_v(l)%ns |
---|
2959 |           i = surf_lsm_v(l)%i(m) + MERGE( 0, surf_lsm_v(l)%ioff,   & |
---|
2960 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
2961 |           j = surf_lsm_v(l)%j(m) + MERGE( 0, surf_lsm_v(l)%joff,   & |
---|
2962 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
2963 | |
---|
2964 |           IF ( soil_pars_f%pars_xy(0,j,i) /= soil_pars_f%fill )      & |
---|
2965 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%alpha_vg(:,m)Â Â =Â soil_pars_f%pars_xy(0,j,i) |
---|
2966 |           IF ( soil_pars_f%pars_xy(1,j,i) /= soil_pars_f%fill )      & |
---|
2967 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%l_vg(:,m)Â Â Â Â =Â soil_pars_f%pars_xy(1,j,i) |
---|
2968 |           IF ( soil_pars_f%pars_xy(2,j,i) /= soil_pars_f%fill )      & |
---|
2969 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%n_vg(:,m)Â Â Â Â =Â soil_pars_f%pars_xy(2,j,i) |
---|
2970 |           IF ( soil_pars_f%pars_xy(3,j,i) /= soil_pars_f%fill )      & |
---|
2971 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%gamma_w_sat(:,m)Â =Â soil_pars_f%pars_xy(3,j,i) |
---|
2972 |           IF ( soil_pars_f%pars_xy(4,j,i) /= soil_pars_f%fill )      & |
---|
2973 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%m_sat(:,m)Â Â Â Â =Â soil_pars_f%pars_xy(4,j,i) |
---|
2974 |           IF ( soil_pars_f%pars_xy(5,j,i) /= soil_pars_f%fill )      & |
---|
2975 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%m_fc(:,m)Â Â Â Â =Â soil_pars_f%pars_xy(5,j,i) |
---|
2976 |           IF ( soil_pars_f%pars_xy(6,j,i) /= soil_pars_f%fill )      & |
---|
2977 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%m_wilt(:,m)Â Â Â =Â soil_pars_f%pars_xy(6,j,i) |
---|
2978 |           IF ( soil_pars_f%pars_xy(7,j,i) /= soil_pars_f%fill )      & |
---|
2979 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%m_res(:,m)Â Â Â Â =Â soil_pars_f%pars_xy(7,j,i) |
---|
2980 | |
---|
2981 | Â Â Â Â Â Â Â Â ENDDO |
---|
2982 | Â Â Â Â Â Â Â ENDDO |
---|
2983 | ! |
---|
2984 | !--Â Â Â Â Level of detail = 2, i.e. soil parameters can be set at each soil |
---|
2985 | !--Â Â Â Â layer individually. |
---|
2986 | Â Â Â Â Â ELSE |
---|
2987 | ! |
---|
2988 | !--Â Â Â Â Â Horizontal surfaces |
---|
2989 |        DO m = 1, surf_lsm_h%ns |
---|
2990 |         i = surf_lsm_h%i(m) |
---|
2991 |         j = surf_lsm_h%j(m) |
---|
2992 | |
---|
2993 |         DO k = nzb_soil, nzt_soil |
---|
2994 |           IF ( soil_pars_f%pars_xyz(0,k,j,i) /= soil_pars_f%fill )    & |
---|
2995 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_h%alpha_vg(k,m)Â Â =Â soil_pars_f%pars_xyz(0,k,j,i) |
---|
2996 |           IF ( soil_pars_f%pars_xyz(1,k,j,i) /= soil_pars_f%fill )    & |
---|
2997 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_h%l_vg(k,m)Â Â Â Â =Â soil_pars_f%pars_xyz(1,k,j,i) |
---|
2998 |           IF ( soil_pars_f%pars_xyz(2,k,j,i) /= soil_pars_f%fill )    & |
---|
2999 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_h%n_vg(k,m)Â Â Â Â =Â soil_pars_f%pars_xyz(2,k,j,i) |
---|
3000 |           IF ( soil_pars_f%pars_xyz(3,k,j,i) /= soil_pars_f%fill )    & |
---|
3001 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_h%gamma_w_sat(k,m)Â =Â soil_pars_f%pars_xyz(3,k,j,i) |
---|
3002 |           IF ( soil_pars_f%pars_xyz(4,k,j,i) /= soil_pars_f%fill )    & |
---|
3003 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_h%m_sat(k,m)Â Â Â Â =Â soil_pars_f%pars_xyz(4,k,j,i) |
---|
3004 |           IF ( soil_pars_f%pars_xyz(5,k,j,i) /= soil_pars_f%fill )    & |
---|
3005 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_h%m_fc(k,m)Â Â Â Â =Â soil_pars_f%pars_xyz(5,k,j,i) |
---|
3006 |           IF ( soil_pars_f%pars_xyz(6,k,j,i) /= soil_pars_f%fill )    & |
---|
3007 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_h%m_wilt(k,m)Â Â Â =Â soil_pars_f%pars_xyz(6,k,j,i) |
---|
3008 |           IF ( soil_pars_f%pars_xyz(7,k,j,i) /= soil_pars_f%fill )    & |
---|
3009 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_h%m_res(k,m)Â Â Â Â =Â soil_pars_f%pars_xyz(7,k,j,i) |
---|
3010 | Â Â Â Â Â Â Â Â ENDDO |
---|
3011 | |
---|
3012 | Â Â Â Â Â Â Â ENDDO |
---|
3013 | ! |
---|
3014 | !--Â Â Â Â Â Vertical surfaces |
---|
3015 |        DO l = 0, 3 |
---|
3016 |         DO m = 1, surf_lsm_v(l)%ns |
---|
3017 |           i = surf_lsm_v(l)%i(m) + MERGE( 0, surf_lsm_v(l)%ioff,   & |
---|
3018 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
3019 |           j = surf_lsm_v(l)%j(m) + MERGE( 0, surf_lsm_v(l)%joff,   & |
---|
3020 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
3021 | |
---|
3022 |           DO k = nzb_soil, nzt_soil |
---|
3023 |            IF ( soil_pars_f%pars_xyz(0,k,j,i) /= soil_pars_f%fill )    & |
---|
3024 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%alpha_vg(k,m)Â Â =Â soil_pars_f%pars_xyz(0,k,j,i) |
---|
3025 |            IF ( soil_pars_f%pars_xyz(1,k,j,i) /= soil_pars_f%fill )    & |
---|
3026 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%l_vg(k,m)Â Â Â Â =Â soil_pars_f%pars_xyz(1,k,j,i) |
---|
3027 |            IF ( soil_pars_f%pars_xyz(2,k,j,i) /= soil_pars_f%fill )    & |
---|
3028 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%n_vg(k,m)Â Â Â Â =Â soil_pars_f%pars_xyz(2,k,j,i) |
---|
3029 |            IF ( soil_pars_f%pars_xyz(3,k,j,i) /= soil_pars_f%fill )    & |
---|
3030 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%gamma_w_sat(k,m)Â =Â soil_pars_f%pars_xyz(3,k,j,i) |
---|
3031 |            IF ( soil_pars_f%pars_xyz(4,k,j,i) /= soil_pars_f%fill )    & |
---|
3032 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%m_sat(k,m)Â Â Â Â =Â soil_pars_f%pars_xyz(4,k,j,i) |
---|
3033 |            IF ( soil_pars_f%pars_xyz(5,k,j,i) /= soil_pars_f%fill )    & |
---|
3034 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%m_fc(k,m)Â Â Â Â =Â soil_pars_f%pars_xyz(5,k,j,i) |
---|
3035 |            IF ( soil_pars_f%pars_xyz(6,k,j,i) /= soil_pars_f%fill )    & |
---|
3036 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%m_wilt(k,m)Â Â Â =Â soil_pars_f%pars_xyz(6,k,j,i) |
---|
3037 |            IF ( soil_pars_f%pars_xyz(7,k,j,i) /= soil_pars_f%fill )    & |
---|
3038 | Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%m_res(k,m)Â Â Â Â =Â soil_pars_f%pars_xyz(7,k,j,i) |
---|
3039 | Â Â Â Â Â Â Â Â Â Â ENDDO |
---|
3040 | |
---|
3041 | Â Â Â Â Â Â Â Â ENDDO |
---|
3042 | Â Â Â Â Â Â Â ENDDO |
---|
3043 | |
---|
3044 | Â Â Â Â Â ENDIF |
---|
3045 | Â Â Â Â ENDIF |
---|
3046 | |
---|
3047 | ! |
---|
3048 | !--Â Â Level 1, initialization of vegetation parameters. A horizontally |
---|
3049 | !--Â Â homogeneous distribution is assumed here. |
---|
3050 |     IF ( vegetation_type /= 0 ) THEN |
---|
3051 | |
---|
3052 |      IF ( min_canopy_resistance == 9999999.9_wp ) THEN |
---|
3053 |        min_canopy_resistance = vegetation_pars(ind_v_rc_min,vegetation_type) |
---|
3054 | Â Â Â Â Â ENDIF |
---|
3055 | |
---|
3056 |      IF ( leaf_area_index == 9999999.9_wp ) THEN |
---|
3057 |        leaf_area_index = vegetation_pars(ind_v_rc_lai,vegetation_type)     |
---|
3058 | Â Â Â Â Â ENDIF |
---|
3059 | |
---|
3060 |      IF ( vegetation_coverage == 9999999.9_wp ) THEN |
---|
3061 |        vegetation_coverage = vegetation_pars(ind_v_c_veg,vegetation_type)   |
---|
3062 | Â Â Â Â Â ENDIF |
---|
3063 | |
---|
3064 |      IF ( canopy_resistance_coefficient == 9999999.9_wp ) THEN |
---|
3065 | Â Â Â Â Â Â Â canopy_resistance_coefficient=Â vegetation_pars(ind_v_gd,vegetation_type)Â Â Â |
---|
3066 | Â Â Â Â Â ENDIF |
---|
3067 | |
---|
3068 |      IF ( z0_vegetation == 9999999.9_wp ) THEN |
---|
3069 |        z0_vegetation = vegetation_pars(ind_v_z0,vegetation_type) |
---|
3070 | Â Â Â Â Â ENDIF |
---|
3071 | |
---|
3072 |      IF ( z0h_vegetation == 9999999.9_wp ) THEN |
---|
3073 |        z0h_vegetation = vegetation_pars(ind_v_z0qh,vegetation_type) |
---|
3074 | Â Â Â Â Â ENDIF |
---|
3075 | Â Â Â Â Â |
---|
3076 |      IF ( z0q_vegetation == 9999999.9_wp ) THEN |
---|
3077 |        z0q_vegetation = vegetation_pars(ind_v_z0qh,vegetation_type) |
---|
3078 | Â Â Â Â Â ENDIF |
---|
3079 | Â Â Â Â Â |
---|
3080 |      IF ( lambda_surface_stable == 9999999.9_wp ) THEN |
---|
3081 |        lambda_surface_stable = vegetation_pars(ind_v_lambda_s,vegetation_type) |
---|
3082 | Â Â Â Â Â ENDIF |
---|
3083 | |
---|
3084 |      IF ( lambda_surface_unstable == 9999999.9_wp ) THEN |
---|
3085 |        lambda_surface_unstable = vegetation_pars(ind_v_lambda_u,vegetation_type)      |
---|
3086 | Â Â Â Â Â ENDIF |
---|
3087 | |
---|
3088 |      IF ( f_shortwave_incoming == 9999999.9_wp ) THEN |
---|
3089 |        f_shortwave_incoming = vegetation_pars(ind_v_f_sw_in,vegetation_type)    |
---|
3090 | Â Â Â Â Â ENDIF |
---|
3091 | |
---|
3092 |      IF ( c_surface == 9999999.9_wp ) THEN |
---|
3093 |        c_surface = vegetation_pars(ind_v_c_surf,vegetation_type)    |
---|
3094 | Â Â Â Â Â ENDIF |
---|
3095 | |
---|
3096 |      IF ( albedo_type == 9999999 .AND. albedo == 9999999.9_wp ) THEN |
---|
3097 |        albedo_type = INT(vegetation_pars(ind_v_at,vegetation_type))    |
---|
3098 | Â Â Â Â Â ENDIF |
---|
3099 | Â Â |
---|
3100 |      IF ( emissivity == 9999999.9_wp ) THEN |
---|
3101 |        emissivity = vegetation_pars(ind_v_emis,vegetation_type)   |
---|
3102 | Â Â Â Â Â ENDIF |
---|
3103 | |
---|
3104 | Â Â Â Â ENDIF |
---|
3105 | ! |
---|
3106 | !--Â Â Map values onto horizontal elemements |
---|
3107 |     DO m = 1, surf_lsm_h%ns |
---|
3108 | Â Â Â Â Â IFÂ (Â surf_lsm_h%vegetation_surface(m)Â )Â THEN |
---|
3109 | Â Â Â Â Â Â Â surf_lsm_h%r_canopy_min(m)Â Â Â =Â min_canopy_resistance |
---|
3110 | Â Â Â Â Â Â Â surf_lsm_h%lai(m)Â Â Â Â Â Â Â =Â leaf_area_index |
---|
3111 | Â Â Â Â Â Â Â surf_lsm_h%c_veg(m)Â Â Â Â Â Â =Â vegetation_coverage |
---|
3112 | Â Â Â Â Â Â Â surf_lsm_h%g_d(m)Â Â Â Â Â Â Â =Â canopy_resistance_coefficient |
---|
3113 | Â Â Â Â Â Â Â surf_lsm_h%z0(m)Â Â Â Â Â Â Â Â =Â z0_vegetation |
---|
3114 | Â Â Â Â Â Â Â surf_lsm_h%z0h(m)Â Â Â Â Â Â Â =Â z0h_vegetation |
---|
3115 | Â Â Â Â Â Â Â surf_lsm_h%z0q(m)Â Â Â Â Â Â Â =Â z0q_vegetation |
---|
3116 | Â Â Â Â Â Â Â surf_lsm_h%lambda_surface_s(m)Â =Â lambda_surface_stable |
---|
3117 | Â Â Â Â Â Â Â surf_lsm_h%lambda_surface_u(m)Â =Â lambda_surface_unstable |
---|
3118 | Â Â Â Â Â Â Â surf_lsm_h%f_sw_in(m)Â Â Â Â Â =Â f_shortwave_incoming |
---|
3119 | Â Â Â Â Â Â Â surf_lsm_h%c_surface(m)Â Â Â Â =Â c_surface |
---|
3120 | Â Â Â Â Â Â Â surf_lsm_h%albedo_type(ind_veg_wall,m)Â =Â albedo_type |
---|
3121 | Â Â Â Â Â Â Â surf_lsm_h%emissivity(ind_veg_wall,m)Â =Â emissivity |
---|
3122 | Â Â Â Â Â Â Â |
---|
3123 | Â Â Â Â Â Â Â surf_lsm_h%vegetation_type(m)Â Â Â =Â vegetation_type |
---|
3124 | Â Â Â Â Â Â Â surf_lsm_h%vegetation_type_name(m)Â =Â vegetation_type_name(vegetation_type) |
---|
3125 | Â Â Â Â Â ELSE |
---|
3126 | Â Â Â Â Â Â Â surf_lsm_h%lai(m)Â Â =Â 0.0_wp |
---|
3127 | Â Â Â Â Â Â Â surf_lsm_h%c_veg(m)Â =Â 0.0_wp |
---|
3128 | Â Â Â Â Â Â Â surf_lsm_h%g_d(m)Â Â =Â 0.0_wp |
---|
3129 | Â Â Â Â Â ENDIF |
---|
3130 | Â |
---|
3131 | Â Â Â Â ENDDO |
---|
3132 | ! |
---|
3133 | !--Â Â Map values onto vertical elements, even though this does not make |
---|
3134 | !--Â Â much sense. |
---|
3135 |     DO l = 0, 3 |
---|
3136 |      DO m = 1, surf_lsm_v(l)%ns |
---|
3137 | Â Â Â Â Â Â Â IFÂ (Â surf_lsm_v(l)%vegetation_surface(m)Â )Â THEN |
---|
3138 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%r_canopy_min(m)Â Â Â =Â min_canopy_resistance |
---|
3139 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%lai(m)Â Â Â Â Â Â Â =Â leaf_area_index |
---|
3140 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%c_veg(m)Â Â Â Â Â Â =Â vegetation_coverage |
---|
3141 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%g_d(m)Â Â Â Â Â Â Â =Â canopy_resistance_coefficient |
---|
3142 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0(m)Â Â Â Â Â Â Â Â =Â z0_vegetation |
---|
3143 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0h(m)Â Â Â Â Â Â Â =Â z0h_vegetation |
---|
3144 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0q(m)Â Â Â Â Â Â Â =Â z0q_vegetation |
---|
3145 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%lambda_surface_s(m)Â =Â lambda_surface_stable |
---|
3146 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%lambda_surface_u(m)Â =Â lambda_surface_unstable |
---|
3147 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%f_sw_in(m)Â Â Â Â Â =Â f_shortwave_incoming |
---|
3148 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%c_surface(m)Â Â Â Â =Â c_surface |
---|
3149 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%albedo_type(ind_veg_wall,m)Â =Â albedo_type |
---|
3150 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%emissivity(ind_veg_wall,m)Â =Â emissivity |
---|
3151 | Â Â Â Â Â Â Â Â |
---|
3152 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%vegetation_type(m)Â Â Â =Â vegetation_type |
---|
3153 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%vegetation_type_name(m)Â =Â vegetation_type_name(vegetation_type) |
---|
3154 | Â Â Â Â Â Â Â ELSE |
---|
3155 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%lai(m)Â Â =Â 0.0_wp |
---|
3156 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%c_veg(m)Â =Â 0.0_wp |
---|
3157 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%g_d(m)Â Â =Â 0.0_wp |
---|
3158 | Â Â Â Â Â Â Â ENDIF |
---|
3159 | Â Â Â Â Â ENDDO |
---|
3160 | Â Â Â Â ENDDO |
---|
3161 | |
---|
3162 | ! |
---|
3163 | !--Â Â Level 2, initialization of vegation parameters via vegetation_type read |
---|
3164 | !--Â Â from file. Vegetation parameters are initialized for each (y,x)-grid point |
---|
3165 | !--Â Â individually using default paramter settings according to the given |
---|
3166 | !--Â Â vegetation type. |
---|
3167 |     IF ( vegetation_type_f%from_file ) THEN |
---|
3168 | ! |
---|
3169 | !--Â Â Â Â Horizontal surfaces |
---|
3170 |      DO m = 1, surf_lsm_h%ns |
---|
3171 |        i = surf_lsm_h%i(m) |
---|
3172 |        j = surf_lsm_h%j(m) |
---|
3173 | Â Â Â Â Â Â Â |
---|
3174 |        st = vegetation_type_f%var(j,i) |
---|
3175 |        IF ( st /= vegetation_type_f%fill .AND. st /= 0 ) THEN |
---|
3176 | Â Â Â Â Â Â Â Â surf_lsm_h%r_canopy_min(m)Â Â Â =Â vegetation_pars(ind_v_rc_min,st) |
---|
3177 | Â Â Â Â Â Â Â Â surf_lsm_h%lai(m)Â Â Â Â Â Â Â =Â vegetation_pars(ind_v_rc_lai,st) |
---|
3178 | Â Â Â Â Â Â Â Â surf_lsm_h%c_veg(m)Â Â Â Â Â Â =Â vegetation_pars(ind_v_c_veg,st) |
---|
3179 | Â Â Â Â Â Â Â Â surf_lsm_h%g_d(m)Â Â Â Â Â Â Â =Â vegetation_pars(ind_v_gd,st) |
---|
3180 | Â Â Â Â Â Â Â Â surf_lsm_h%z0(m)Â Â Â Â Â Â Â Â =Â vegetation_pars(ind_v_z0,st) |
---|
3181 | Â Â Â Â Â Â Â Â surf_lsm_h%z0h(m)Â Â Â Â Â Â Â =Â vegetation_pars(ind_v_z0qh,st) |
---|
3182 | Â Â Â Â Â Â Â Â surf_lsm_h%z0q(m)Â Â Â Â Â Â Â =Â vegetation_pars(ind_v_z0qh,st) |
---|
3183 | Â Â Â Â Â Â Â Â surf_lsm_h%lambda_surface_s(m)Â =Â vegetation_pars(ind_v_lambda_s,st) |
---|
3184 | Â Â Â Â Â Â Â Â surf_lsm_h%lambda_surface_u(m)Â =Â vegetation_pars(ind_v_lambda_u,st) |
---|
3185 | Â Â Â Â Â Â Â Â surf_lsm_h%f_sw_in(m)Â Â Â Â Â =Â vegetation_pars(ind_v_f_sw_in,st) |
---|
3186 | Â Â Â Â Â Â Â Â surf_lsm_h%c_surface(m)Â Â Â Â =Â vegetation_pars(ind_v_c_surf,st) |
---|
3187 | Â Â Â Â Â Â Â Â surf_lsm_h%albedo_type(ind_veg_wall,m)Â =Â INT(Â vegetation_pars(ind_v_at,st)Â ) |
---|
3188 | Â Â Â Â Â Â Â Â surf_lsm_h%emissivity(ind_veg_wall,m)Â =Â vegetation_pars(ind_v_emis,st) |
---|
3189 | Â Â Â Â Â Â Â Â |
---|
3190 | Â Â Â Â Â Â Â Â surf_lsm_h%vegetation_type(m)Â Â Â =Â st |
---|
3191 | Â Â Â Â Â Â Â Â surf_lsm_h%vegetation_type_name(m)Â =Â vegetation_type_name(st) |
---|
3192 | Â Â Â Â Â Â Â ENDIF |
---|
3193 | Â Â Â Â Â ENDDO |
---|
3194 | ! |
---|
3195 | !--Â Â Â Â Vertical surfaces |
---|
3196 |      DO l = 0, 3 |
---|
3197 |        DO m = 1, surf_lsm_v(l)%ns |
---|
3198 |         i = surf_lsm_v(l)%i(m) + MERGE( 0, surf_lsm_v(l)%ioff,     & |
---|
3199 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
3200 |         j = surf_lsm_v(l)%j(m) + MERGE( 0, surf_lsm_v(l)%joff,   & |
---|
3201 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
3202 | Â Â Â Â Â Â Â |
---|
3203 |         st = vegetation_type_f%var(j,i) |
---|
3204 |         IF ( st /= vegetation_type_f%fill .AND. st /= 0 ) THEN |
---|
3205 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%r_canopy_min(m)Â Â Â =Â vegetation_pars(ind_v_rc_min,st) |
---|
3206 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%lai(m)Â Â Â Â Â Â Â =Â vegetation_pars(ind_v_rc_lai,st) |
---|
3207 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%c_veg(m)Â Â Â Â Â Â =Â vegetation_pars(ind_v_c_veg,st) |
---|
3208 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%g_d(m)Â Â Â Â Â Â Â =Â vegetation_pars(ind_v_gd,st) |
---|
3209 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0(m)Â Â Â Â Â Â Â Â =Â vegetation_pars(ind_v_z0,st) |
---|
3210 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0h(m)Â Â Â Â Â Â Â =Â vegetation_pars(ind_v_z0qh,st) |
---|
3211 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0q(m)Â Â Â Â Â Â Â =Â vegetation_pars(ind_v_z0qh,st) |
---|
3212 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%lambda_surface_s(m)Â =Â vegetation_pars(ind_v_lambda_s,st) |
---|
3213 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%lambda_surface_u(m)Â =Â vegetation_pars(ind_v_lambda_u,st) |
---|
3214 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%f_sw_in(m)Â Â Â Â Â =Â vegetation_pars(ind_v_f_sw_in,st) |
---|
3215 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%c_surface(m)Â Â Â Â =Â vegetation_pars(ind_v_c_surf,st) |
---|
3216 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%albedo_type(ind_veg_wall,m)Â =Â INT(Â vegetation_pars(ind_v_at,st)Â ) |
---|
3217 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%emissivity(ind_veg_wall,m)Â =Â vegetation_pars(ind_v_emis,st) |
---|
3218 | Â Â Â Â Â Â Â Â Â Â |
---|
3219 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%vegetation_type(m)Â Â Â =Â st |
---|
3220 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%vegetation_type_name(m)Â =Â vegetation_type_name(st) |
---|
3221 | Â Â Â Â Â Â Â Â ENDIF |
---|
3222 | Â Â Â Â Â Â Â ENDDO |
---|
3223 | Â Â Â Â Â ENDDO |
---|
3224 | Â Â Â Â ENDIF |
---|
3225 | ! |
---|
3226 | !--Â Â Level 3, initialization of vegation parameters at single (x,y) |
---|
3227 | !--Â Â position via vegetation_pars read from file. |
---|
3228 |     IF ( vegetation_pars_f%from_file ) THEN |
---|
3229 | ! |
---|
3230 | !--Â Â Â Â Horizontal surfaces |
---|
3231 |      DO m = 1, surf_lsm_h%ns |
---|
3232 | |
---|
3233 |        i = surf_lsm_h%i(m) |
---|
3234 |        j = surf_lsm_h%j(m) |
---|
3235 | ! |
---|
3236 | !--Â Â Â Â Â If surface element is not a vegetation surface and any value in |
---|
3237 | !--Â Â Â Â Â vegetation_pars is given, neglect this information and give an |
---|
3238 | !--     informative message that this value will not be used.  |
---|
3239 |        IF ( .NOT. surf_lsm_h%vegetation_surface(m) .AND.        & |
---|
3240 | Â Â Â Â Â Â Â Â Â Â ANY(Â vegetation_pars_f%pars_xy(:,j,i)Â /=Â Â Â Â Â Â Â Â Â Â & |
---|
3241 |           vegetation_pars_f%fill ) ) THEN |
---|
3242 |         WRITE( message_string, * )                   & |
---|
3243 |                  'surface element at grid point (j,i) = (',  & |
---|
3244 |                  j, i, ') is not a vegetation surface, ',   & |
---|
3245 |                  'so that information given in ',       & |
---|
3246 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'vegetation_pars at this point is neglected.'Â |
---|
3247 |         CALL message( 'land_surface_model_mod', 'PA0436', 0, 0, myid, 6, 0 ) |
---|
3248 | Â Â Â Â Â Â Â ELSE |
---|
3249 | |
---|
3250 | Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_rc_min,j,i)Â /=Â Â Â Â Â Â & |
---|
3251 |            vegetation_pars_f%fill )                 & |
---|
3252 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%r_canopy_min(m)Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3253 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_rc_min,j,i) |
---|
3254 | Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_rc_lai,j,i)Â /=Â Â Â Â Â Â & |
---|
3255 |            vegetation_pars_f%fill )                 & |
---|
3256 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%lai(m)Â Â Â Â Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3257 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_rc_lai,j,i) |
---|
3258 | Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_c_veg,j,i)Â /=Â Â Â Â Â Â Â & |
---|
3259 |            vegetation_pars_f%fill )                 & |
---|
3260 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%c_veg(m)Â Â Â Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3261 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_c_veg,j,i) |
---|
3262 | Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_gd,j,i)Â /=Â Â Â Â Â Â Â Â & |
---|
3263 |            vegetation_pars_f%fill )                 & |
---|
3264 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%g_d(m)Â Â Â Â Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3265 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_gd,j,i) |
---|
3266 | Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_z0,j,i)Â /=Â Â Â Â Â Â Â Â & |
---|
3267 |            vegetation_pars_f%fill )                 & |
---|
3268 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%z0(m)Â Â Â Â Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3269 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_z0,j,i) |
---|
3270 | Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_z0qh,j,i)Â /=Â Â Â Â Â Â Â & |
---|
3271 |            vegetation_pars_f%fill ) THEN |
---|
3272 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%z0h(m)Â Â Â Â Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3273 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_z0qh,j,i) |
---|
3274 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%z0q(m)Â Â Â Â Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3275 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_z0qh,j,i) |
---|
3276 | Â Â Â Â Â Â Â Â ENDIF |
---|
3277 | Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_lambda_s,j,i)Â /=Â Â Â Â Â & |
---|
3278 |            vegetation_pars_f%fill )                 & |
---|
3279 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%lambda_surface_s(m)Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3280 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_lambda_s,j,i) |
---|
3281 | Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_lambda_u,j,i)Â /=Â Â Â Â Â & |
---|
3282 |            vegetation_pars_f%fill )                 & |
---|
3283 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%lambda_surface_u(m)Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3284 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_lambda_u,j,i) |
---|
3285 | Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_f_sw_in,j,i)Â /=Â Â Â Â Â Â & |
---|
3286 |            vegetation_pars_f%fill )                 & |
---|
3287 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%f_sw_in(m)Â Â Â Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3288 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_f_sw_in,j,i) |
---|
3289 | Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_c_surf,j,i)Â /=Â Â Â Â Â Â & |
---|
3290 |            vegetation_pars_f%fill )                 & |
---|
3291 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%c_surface(m)Â Â Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3292 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_c_surf,j,i) |
---|
3293 | Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_at,j,i)Â /=Â Â Â Â Â Â Â Â & |
---|
3294 |            vegetation_pars_f%fill )                 & |
---|
3295 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%albedo_type(ind_veg_wall,m)Â =Â Â Â Â Â Â Â Â Â Â & |
---|
3296 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â INT(Â vegetation_pars_f%pars_xy(ind_v_at,j,i)Â ) |
---|
3297 | Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_emis,j,i)Â /=Â Â Â Â Â Â Â & |
---|
3298 |            vegetation_pars_f%fill )                 & |
---|
3299 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%emissivity(ind_veg_wall,m)Â =Â Â Â Â Â Â Â Â Â Â & |
---|
3300 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_emis,j,i) |
---|
3301 | Â Â Â Â Â Â Â ENDIF |
---|
3302 | Â Â Â Â Â ENDDO |
---|
3303 | ! |
---|
3304 | !--Â Â Â Â Vertical surfaces |
---|
3305 |      DO l = 0, 3 |
---|
3306 |        DO m = 1, surf_lsm_v(l)%ns |
---|
3307 |         i = surf_lsm_v(l)%i(m) + MERGE( 0, surf_lsm_v(l)%ioff,     & |
---|
3308 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
3309 |         j = surf_lsm_v(l)%j(m) + MERGE( 0, surf_lsm_v(l)%joff,     & |
---|
3310 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
3311 | ! |
---|
3312 | !--Â Â Â Â Â Â Â If surface element is not a vegetation surface and any value in |
---|
3313 | !--Â Â Â Â Â Â Â vegetation_pars is given, neglect this information and give an |
---|
3314 | !--       informative message that this value will not be used.  |
---|
3315 |         IF ( .NOT. surf_lsm_v(l)%vegetation_surface(m) .AND.     & |
---|
3316 | Â Â Â Â Â Â Â Â Â Â Â ANY(Â vegetation_pars_f%pars_xy(:,j,i)Â /=Â Â Â Â Â Â Â Â Â & |
---|
3317 |            vegetation_pars_f%fill ) ) THEN |
---|
3318 |           WRITE( message_string, * )                 & |
---|
3319 |                  'surface element at grid point (j,i) = (',  & |
---|
3320 |                  j, i, ') is not a vegetation surface, ',   & |
---|
3321 |                  'so that information given in ',       & |
---|
3322 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'vegetation_pars at this point is neglected.'Â |
---|
3323 |           CALL message( 'land_surface_model_mod', 'PA0436', 0, 0, myid, 6, 0 ) |
---|
3324 | Â Â Â Â Â Â Â Â ELSE |
---|
3325 | |
---|
3326 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_rc_min,j,i)Â /=Â Â Â Â Â & |
---|
3327 |             vegetation_pars_f%fill )                & |
---|
3328 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%r_canopy_min(m)Â =Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3329 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_rc_min,j,i) |
---|
3330 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_rc_lai,j,i)Â /=Â Â Â Â Â & |
---|
3331 |             vegetation_pars_f%fill )                & |
---|
3332 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%lai(m)Â Â Â Â Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3333 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_rc_lai,j,i) |
---|
3334 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_c_veg,j,i)Â /=Â Â Â Â Â & |
---|
3335 |             vegetation_pars_f%fill )                & |
---|
3336 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%c_veg(m)Â Â Â Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3337 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_c_veg,j,i) |
---|
3338 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_gd,j,i)Â /=Â Â Â Â Â Â Â & |
---|
3339 |             vegetation_pars_f%fill )                & |
---|
3340 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%g_d(m)Â Â Â Â Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3341 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_gd,j,i) |
---|
3342 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_z0,j,i)Â /=Â Â Â Â Â Â Â & |
---|
3343 |             vegetation_pars_f%fill )                & |
---|
3344 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0(m)Â Â Â Â Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3345 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_z0,j,i) |
---|
3346 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_z0qh,j,i)Â /=Â Â Â Â Â Â & |
---|
3347 |             vegetation_pars_f%fill ) THEN |
---|
3348 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0h(m)Â Â Â Â Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3349 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_z0qh,j,i) |
---|
3350 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0q(m)Â Â Â Â Â Â =Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3351 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_z0qh,j,i) |
---|
3352 | Â Â Â Â Â Â Â Â Â Â ENDIF |
---|
3353 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_lambda_s,j,i)Â /=Â Â Â Â & |
---|
3354 |             vegetation_pars_f%fill )                & |
---|
3355 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%lambda_surface_s(m)Â =Â Â Â Â Â Â Â Â Â Â Â & |
---|
3356 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_lambda_s,j,i) |
---|
3357 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_lambda_u,j,i)Â /=Â Â Â Â & |
---|
3358 |             vegetation_pars_f%fill )                & |
---|
3359 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%lambda_surface_u(m)Â =Â Â Â Â Â Â Â Â Â Â Â & |
---|
3360 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_lambda_u,j,i) |
---|
3361 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_f_sw_in,j,i)Â /=Â Â Â Â & |
---|
3362 |             vegetation_pars_f%fill )                & |
---|
3363 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%f_sw_in(m)Â Â Â Â Â Â =Â Â Â Â Â Â Â Â Â Â Â & |
---|
3364 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_f_sw_in,j,i) |
---|
3365 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_c_surf,j,i)Â /=Â Â Â Â Â & |
---|
3366 |             vegetation_pars_f%fill )                & |
---|
3367 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%c_surface(m)Â Â Â Â Â =Â Â Â Â Â Â Â Â Â Â Â & |
---|
3368 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_c_surf,j,i) |
---|
3369 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_at,j,i)Â /=Â Â Â Â Â Â Â & |
---|
3370 |             vegetation_pars_f%fill )                & |
---|
3371 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%albedo_type(ind_veg_wall,m)Â =Â Â Â Â Â Â Â & |
---|
3372 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â INT(Â vegetation_pars_f%pars_xy(ind_v_at,j,i)Â ) |
---|
3373 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â vegetation_pars_f%pars_xy(ind_v_emis,j,i)Â /=Â Â Â Â Â Â & |
---|
3374 |             vegetation_pars_f%fill )                & |
---|
3375 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%emissivity(ind_veg_wall,m)Â =Â Â Â Â Â Â Â & |
---|
3376 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â vegetation_pars_f%pars_xy(ind_v_emis,j,i) |
---|
3377 | Â Â Â Â Â Â Â Â ENDIF |
---|
3378 | |
---|
3379 | Â Â Â Â Â Â Â ENDDO |
---|
3380 | Â Â Â Â Â ENDDO |
---|
3381 | Â Â Â Â ENDIFÂ |
---|
3382 | |
---|
3383 | ! |
---|
3384 | !--Â Â Level 1, initialization of water parameters. A horizontally |
---|
3385 | !--Â Â homogeneous distribution is assumed here. |
---|
3386 |     IF ( water_type /= 0 ) THEN |
---|
3387 | |
---|
3388 |      IF ( water_temperature == 9999999.9_wp ) THEN |
---|
3389 |        water_temperature = water_pars(ind_w_temp,water_type)    |
---|
3390 | Â Â Â Â Â ENDIF |
---|
3391 | |
---|
3392 |      IF ( z0_water == 9999999.9_wp ) THEN |
---|
3393 |        z0_water = water_pars(ind_w_z0,water_type)    |
---|
3394 | Â Â Â Â Â ENDIFÂ Â Â Â |
---|
3395 | |
---|
3396 |      IF ( z0h_water == 9999999.9_wp ) THEN |
---|
3397 |        z0h_water = water_pars(ind_w_z0h,water_type)    |
---|
3398 | Â Â Â Â Â ENDIFÂ |
---|
3399 | Â Â Â Â Â |
---|
3400 |      IF ( z0q_water == 9999999.9_wp ) THEN |
---|
3401 |        z0q_water = water_pars(ind_w_z0h,water_type)    |
---|
3402 | Â Â Â Â Â ENDIF |
---|
3403 | |
---|
3404 |      IF ( albedo_type == 9999999 .AND. albedo == 9999999.9_wp ) THEN |
---|
3405 |        albedo_type = INT(water_pars(ind_w_at,water_type))    |
---|
3406 | Â Â Â Â Â ENDIF |
---|
3407 | Â Â |
---|
3408 |      IF ( emissivity == 9999999.9_wp ) THEN |
---|
3409 |        emissivity = water_pars(ind_w_emis,water_type)    |
---|
3410 | Â Â Â Â Â ENDIF |
---|
3411 | |
---|
3412 | Â Â Â Â ENDIFÂ |
---|
3413 | ! |
---|
3414 | !--Â Â Map values onto horizontal elemements |
---|
3415 |     DO m = 1, surf_lsm_h%ns |
---|
3416 | Â Â Â Â Â IFÂ (Â surf_lsm_h%water_surface(m)Â )Â THEN |
---|
3417 |        IF ( TRIM( initializing_actions ) /= 'read_restart_data' )    & |
---|
3418 | Â Â Â Â Â Â Â Â t_soil_h%var_2d(:,m)Â Â Â Â =Â water_temperature |
---|
3419 | Â Â Â Â Â Â Â surf_lsm_h%z0(m)Â Â Â Â Â Â Â Â =Â z0_water |
---|
3420 | Â Â Â Â Â Â Â surf_lsm_h%z0h(m)Â Â Â Â Â Â Â =Â z0h_water |
---|
3421 | Â Â Â Â Â Â Â surf_lsm_h%z0q(m)Â Â Â Â Â Â Â =Â z0q_water |
---|
3422 | Â Â Â Â Â Â Â surf_lsm_h%lambda_surface_s(m)Â =Â 1.0E10_wp |
---|
3423 |        surf_lsm_h%lambda_surface_u(m) = 1.0E10_wp        |
---|
3424 | Â Â Â Â Â Â Â surf_lsm_h%c_surface(m)Â Â Â Â =Â 0.0_wp |
---|
3425 | Â Â Â Â Â Â Â surf_lsm_h%albedo_type(ind_wat_win,m)Â =Â albedo_type |
---|
3426 | Â Â Â Â Â Â Â surf_lsm_h%emissivity(ind_wat_win,m)Â =Â emissivity |
---|
3427 | Â Â Â Â Â Â Â |
---|
3428 | Â Â Â Â Â Â Â surf_lsm_h%water_type(m)Â Â Â =Â water_type |
---|
3429 | Â Â Â Â Â Â Â surf_lsm_h%water_type_name(m)Â =Â water_type_name(water_type) |
---|
3430 | Â Â Â Â Â ENDIF |
---|
3431 | Â Â Â Â ENDDO |
---|
3432 | ! |
---|
3433 | !--Â Â Map values onto vertical elements, even though this does not make |
---|
3434 | !--Â Â much sense. |
---|
3435 |     DO l = 0, 3 |
---|
3436 |      DO m = 1, surf_lsm_v(l)%ns |
---|
3437 | Â Â Â Â Â Â Â IFÂ (Â surf_lsm_v(l)%water_surface(m)Â )Â THEN |
---|
3438 |         IF ( TRIM( initializing_actions ) /= 'read_restart_data' )   & |
---|
3439 | Â Â Â Â Â Â Â Â Â Â t_soil_v(l)%var_2d(:,m)Â Â Â Â Â Â =Â water_temperature |
---|
3440 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0(m)Â Â Â Â Â Â Â Â =Â z0_water |
---|
3441 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0h(m)Â Â Â Â Â Â Â =Â z0h_water |
---|
3442 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0q(m)Â Â Â Â Â Â Â =Â z0q_water |
---|
3443 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%lambda_surface_s(m)Â =Â 1.0E10_wp |
---|
3444 |         surf_lsm_v(l)%lambda_surface_u(m) = 1.0E10_wp        |
---|
3445 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%c_surface(m)Â Â Â Â =Â 0.0_wp |
---|
3446 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%albedo_type(ind_wat_win,m)Â =Â albedo_type |
---|
3447 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%emissivity(ind_wat_win,m)Â =Â emissivity |
---|
3448 | Â Â Â Â Â Â Â Â |
---|
3449 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%water_type(m)Â Â Â =Â water_type |
---|
3450 | Â Â Â Â Â Â Â Â surf_lsm_v(l)%water_type_name(m)Â =Â water_type_name(water_type) |
---|
3451 | Â Â Â Â Â Â Â ENDIF |
---|
3452 | Â Â Â Â Â ENDDO |
---|
3453 | Â Â Â Â ENDDO |
---|
3454 | ! |
---|
3455 | ! |
---|
3456 | !--Â Â Level 2, initialization of water parameters via water_type read |
---|
3457 | !--Â Â from file. Water surfaces are initialized for each (y,x)-grid point |
---|
3458 | !--Â Â individually using default paramter settings according to the given |
---|
3459 | !--Â Â water type. |
---|
3460 | !--Â Â Note, parameter 3/4 of water_pars are albedo and emissivity, |
---|
3461 | !--Â Â whereas paramter 3/4 of water_pars_f are heat conductivities! |
---|
3462 |     IF ( water_type_f%from_file ) THEN |
---|
3463 | ! |
---|
3464 | !--Â Â Â Â Horizontal surfaces |
---|
3465 |      DO m = 1, surf_lsm_h%ns |
---|
3466 |        i = surf_lsm_h%i(m) |
---|
3467 |        j = surf_lsm_h%j(m) |
---|
3468 | Â Â Â Â Â Â Â |
---|
3469 |        st = water_type_f%var(j,i) |
---|
3470 |        IF ( st /= water_type_f%fill .AND. st /= 0 ) THEN |
---|
3471 |         IF ( TRIM( initializing_actions ) /= 'read_restart_data' )   & |
---|
3472 | Â Â Â Â Â Â Â Â Â Â t_soil_h%var_2d(:,m)Â =Â water_pars(ind_w_temp,st) |
---|
3473 | Â Â Â Â Â Â Â Â surf_lsm_h%z0(m)Â Â Â =Â water_pars(ind_w_z0,st) |
---|
3474 | Â Â Â Â Â Â Â Â surf_lsm_h%z0h(m)Â Â =Â water_pars(ind_w_z0h,st) |
---|
3475 | Â Â Â Â Â Â Â Â surf_lsm_h%z0q(m)Â Â =Â water_pars(ind_w_z0h,st) |
---|
3476 | Â Â Â Â Â Â Â Â surf_lsm_h%lambda_surface_s(m)Â =Â water_pars(ind_w_lambda_s,st) |
---|
3477 | Â Â Â Â Â Â Â Â surf_lsm_h%lambda_surface_u(m)Â =Â water_pars(ind_w_lambda_u,st)Â Â Â Â Â Â Â |
---|
3478 | Â Â Â Â Â Â Â Â surf_lsm_h%c_surface(m)Â Â Â Â =Â 0.0_wp |
---|
3479 | Â Â Â Â Â Â Â Â surf_lsm_h%albedo_type(ind_wat_win,m)Â =Â INT(Â water_pars(ind_w_at,st)Â ) |
---|
3480 | Â Â Â Â Â Â Â Â surf_lsm_h%emissivity(ind_wat_win,m)Â =Â water_pars(ind_w_emis,st) |
---|
3481 | Â Â Â Â Â Â Â Â |
---|
3482 | Â Â Â Â Â Â Â Â surf_lsm_h%water_type(m)Â Â Â =Â st |
---|
3483 | Â Â Â Â Â Â Â Â surf_lsm_h%water_type_name(m)Â =Â water_type_name(st) |
---|
3484 | Â Â Â Â Â Â Â ENDIF |
---|
3485 | Â Â Â Â Â ENDDO |
---|
3486 | ! |
---|
3487 | !--Â Â Â Â Vertical surfaces |
---|
3488 |      DO l = 0, 3 |
---|
3489 |        DO m = 1, surf_lsm_v(l)%ns |
---|
3490 |         i = surf_lsm_v(l)%i(m) + MERGE( 0, surf_lsm_v(l)%ioff,     & |
---|
3491 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
3492 |         j = surf_lsm_v(l)%j(m) + MERGE( 0, surf_lsm_v(l)%joff,     & |
---|
3493 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
3494 | Â Â Â Â Â Â Â |
---|
3495 |         st = water_type_f%var(j,i) |
---|
3496 |         IF ( st /= water_type_f%fill .AND. st /= 0 ) THEN |
---|
3497 |           IF ( TRIM( initializing_actions ) /= 'read_restart_data' ) & |
---|
3498 | Â Â Â Â Â Â Â Â Â Â Â t_soil_v(l)%var_2d(:,m)Â =Â water_pars(ind_w_temp,st) |
---|
3499 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0(m)Â Â Â =Â water_pars(ind_w_z0,st) |
---|
3500 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0h(m)Â Â =Â water_pars(ind_w_z0h,st) |
---|
3501 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0q(m)Â Â =Â water_pars(ind_w_z0h,st) |
---|
3502 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%lambda_surface_s(m)Â =Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3503 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â water_pars(ind_w_lambda_s,st) |
---|
3504 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%lambda_surface_u(m)Â =Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3505 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â water_pars(ind_w_lambda_u,st)Â Â Â Â Â Â |
---|
3506 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%c_surface(m)Â Â Â =Â 0.0_wp |
---|
3507 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%albedo_type(ind_wat_win,m)Â =Â Â Â Â Â Â Â Â Â & |
---|
3508 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â INT(Â water_pars(ind_w_at,st)Â ) |
---|
3509 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%emissivity(ind_wat_win,m)Â =Â Â Â Â Â Â Â Â Â & |
---|
3510 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â water_pars(ind_w_emis,st) |
---|
3511 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â |
---|
3512 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%water_type(m)Â Â Â =Â st |
---|
3513 | Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%water_type_name(m)Â =Â water_type_name(st) |
---|
3514 | Â Â Â Â Â Â Â Â ENDIF |
---|
3515 | Â Â Â Â Â Â Â ENDDO |
---|
3516 | Â Â Â Â Â ENDDO |
---|
3517 | Â Â Â Â ENDIFÂ Â Â |
---|
3518 | |
---|
3519 | ! |
---|
3520 | !--Â Â Level 3, initialization of water parameters at single (x,y) |
---|
3521 | !--Â Â position via water_pars read from file. |
---|
3522 |     IF ( water_pars_f%from_file ) THEN |
---|
3523 | ! |
---|
3524 | !--Â Â Â Â Horizontal surfaces |
---|
3525 |      DO m = 1, surf_lsm_h%ns |
---|
3526 |        i = surf_lsm_h%i(m) |
---|
3527 |        j = surf_lsm_h%j(m) |
---|
3528 | ! |
---|
3529 | !--Â Â Â Â Â If surface element is not a water surface and any value in |
---|
3530 | !--Â Â Â Â Â water_pars is given, neglect this information and give an |
---|
3531 | !--     informative message that this value will not be used.  |
---|
3532 |        IF ( .NOT. surf_lsm_h%water_surface(m) .AND.           & |
---|
3533 |           ANY( water_pars_f%pars_xy(:,j,i) /= water_pars_f%fill ) ) THEN |
---|
3534 |         WRITE( message_string, * )                   & |
---|
3535 |                'surface element at grid point (j,i) = (',    & |
---|
3536 |                j, i, ') is not a water surface, ',       & |
---|
3537 |                'so that information given in ',         & |
---|
3538 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'water_pars at this point is neglected.'Â |
---|
3539 |         CALL message( 'land_surface_model_mod', 'PA0645', 0, 0, myid, 6, 0 ) |
---|
3540 | Â Â Â Â Â Â Â ELSE |
---|
3541 | Â Â Â Â Â Â Â Â IFÂ (Â water_pars_f%pars_xy(ind_w_temp,j,i)Â /=Â Â Â Â Â Â Â Â Â Â & |
---|
3542 |            water_pars_f%fill .AND.                 & |
---|
3543 |            TRIM( initializing_actions ) /= 'read_restart_data' )   & |
---|
3544 | Â Â Â Â Â Â Â Â Â Â Â t_soil_h%var_2d(:,m)Â =Â water_pars_f%pars_xy(ind_w_temp,j,i) |
---|
3545 | |
---|
3546 |         IF ( water_pars_f%pars_xy(ind_w_z0,j,i) /= water_pars_f%fill ) & |
---|
3547 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%z0(m)Â Â Â =Â water_pars_f%pars_xy(ind_w_z0,j,i) |
---|
3548 | |
---|
3549 |         IF ( water_pars_f%pars_xy(ind_w_z0h,j,i) /= water_pars_f%fill )& |
---|
3550 | Â Â Â Â Â Â Â Â THEN |
---|
3551 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%z0h(m)Â Â =Â water_pars_f%pars_xy(ind_w_z0h,j,i) |
---|
3552 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%z0q(m)Â Â =Â water_pars_f%pars_xy(ind_w_z0h,j,i) |
---|
3553 | Â Â Â Â Â Â Â Â ENDIF |
---|
3554 | Â Â Â Â Â Â Â Â IFÂ (Â water_pars_f%pars_xy(ind_w_lambda_s,j,i)Â /=Â Â Â Â Â Â Â Â & |
---|
3555 |            water_pars_f%fill )                    & |
---|
3556 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%lambda_surface_s(m)Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3557 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â water_pars_f%pars_xy(ind_w_lambda_s,j,i) |
---|
3558 | |
---|
3559 | Â Â Â Â Â Â Â Â IFÂ (Â water_pars_f%pars_xy(ind_w_lambda_u,j,i)Â /=Â Â Â Â Â Â Â Â & |
---|
3560 |            water_pars_f%fill )                   & |
---|
3561 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%lambda_surface_u(m)Â =Â Â Â Â Â Â Â Â Â Â Â Â Â Â & |
---|
3562 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â water_pars_f%pars_xy(ind_w_lambda_u,j,i)Â Â Â |
---|
3563 | Â Â Â Â |
---|
3564 | Â Â Â Â Â Â Â Â IFÂ (Â water_pars_f%pars_xy(ind_w_at,j,i)Â /=Â Â Â Â Â Â Â Â Â Â Â & |
---|
3565 |            water_pars_f%fill )                    & |
---|
3566 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%albedo_type(ind_wat_win,m)Â =Â Â Â Â Â Â Â Â Â Â Â & |
---|
3567 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â INT(Â water_pars_f%pars_xy(ind_w_at,j,i)Â ) |
---|
3568 | |
---|
3569 | Â Â Â Â Â Â Â Â IFÂ (Â water_pars_f%pars_xy(ind_w_emis,j,i)Â /=Â Â Â Â Â Â Â Â Â Â & |
---|
3570 |            water_pars_f%fill )                    & |
---|
3571 | Â Â Â Â Â Â Â Â Â Â surf_lsm_h%emissivity(ind_wat_win,m)Â =Â Â Â Â Â Â Â Â Â Â Â & |
---|
3572 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â water_pars_f%pars_xy(ind_w_emis,j,i)Â |
---|
3573 | Â Â Â Â Â Â Â ENDIF |
---|
3574 | Â Â Â Â Â ENDDO |
---|
3575 | ! |
---|
3576 | !--Â Â Â Â Vertical surfaces |
---|
3577 |      DO l = 0, 3 |
---|
3578 |        DO m = 1, surf_lsm_v(l)%ns |
---|
3579 |         i = surf_lsm_v(l)%i(m) + MERGE( 0, surf_lsm_v(l)%ioff,     & |
---|
3580 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
3581 |         j = surf_lsm_v(l)%j(m) + MERGE( 0, surf_lsm_v(l)%joff,     & |
---|
3582 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%building_covered(m)Â )Â |
---|
3583 | ! |
---|
3584 | !--Â Â Â Â Â Â Â If surface element is not a water surface and any value in |
---|
3585 | !--Â Â Â Â Â Â Â water_pars is given, neglect this information and give an |
---|
3586 | !--       informative message that this value will not be used.  |
---|
3587 |         IF ( .NOT. surf_lsm_v(l)%water_surface(m) .AND.        & |
---|
3588 | Â Â Â Â Â Â Â Â Â Â Â ANY(Â water_pars_f%pars_xy(:,j,i)Â /=Â Â Â Â Â Â Â Â Â Â Â & |
---|
3589 |            water_pars_f%fill ) ) THEN |
---|
3590 |           WRITE( message_string, * )                 & |
---|
3591 |                'surface element at grid point (j,i) = (',    & |
---|
3592 |                j, i, ') is not a water surface, ',       & |
---|
3593 |                'so that information given in ',         & |
---|
3594 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 'water_pars at this point is neglected.'Â |
---|
3595 |           CALL message( 'land_surface_model_mod', 'PA0645',      & |
---|
3596 |                  0, 0, myid, 6, 0 ) |
---|
3597 | Â Â Â Â Â Â Â Â ELSE |
---|
3598 | |
---|
3599 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â water_pars_f%pars_xy(ind_w_temp,j,i)Â /=Â Â Â Â Â Â Â Â & |
---|
3600 |            water_pars_f%fill .AND.                 & |
---|
3601 |            TRIM( initializing_actions ) /= 'read_restart_data' )   & |
---|
3602 | Â Â Â Â Â Â Â Â Â Â Â t_soil_v(l)%var_2d(:,m)Â =Â water_pars_f%pars_xy(ind_w_temp,j,i) |
---|
3603 | |
---|
3604 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â water_pars_f%pars_xy(ind_w_z0,j,i)Â /=Â Â Â Â Â Â Â Â Â & |
---|
3605 |             water_pars_f%fill )                  & |
---|
3606 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0(m)Â Â =Â water_pars_f%pars_xy(ind_w_z0,j,i) |
---|
3607 | |
---|
3608 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â water_pars_f%pars_xy(ind_w_z0h,j,i)Â /=Â Â Â Â Â Â Â Â Â & |
---|
3609 |             water_pars_f%fill ) THEN |
---|
3610 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0h(m)Â =Â water_pars_f%pars_xy(ind_w_z0h,j,i) |
---|
3611 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%z0q(m)Â =Â water_pars_f%pars_xy(ind_w_z0h,j,i) |
---|
3612 | Â Â Â Â Â Â Â Â Â Â ENDIF |
---|
3613 | |
---|
3614 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â water_pars_f%pars_xy(ind_w_lambda_s,j,i)Â /=Â Â Â Â Â Â & |
---|
3615 |             water_pars_f%fill )                  & |
---|
3616 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%lambda_surface_s(m)Â =Â Â Â Â Â Â Â Â Â Â Â & |
---|
3617 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â water_pars_f%pars_xy(ind_w_lambda_s,j,i) |
---|
3618 | |
---|
3619 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â water_pars_f%pars_xy(ind_w_lambda_u,j,i)Â /=Â Â Â Â Â Â & |
---|
3620 |             water_pars_f%fill )                  & |
---|
3621 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%lambda_surface_u(m)Â =Â Â Â Â Â Â Â Â Â Â Â & |
---|
3622 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â water_pars_f%pars_xy(ind_w_lambda_u,j,i)Â Â |
---|
3623 | Â |
---|
3624 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â water_pars_f%pars_xy(ind_w_at,j,i)Â /=Â Â Â Â Â Â Â Â Â & |
---|
3625 |             water_pars_f%fill )                  & |
---|
3626 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%albedo_type(ind_wat_win,m)Â =Â Â Â Â Â Â Â Â & |
---|
3627 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â INT(Â water_pars_f%pars_xy(ind_w_at,j,i)Â ) |
---|
3628 | |
---|
3629 | Â Â Â Â Â Â Â Â Â Â IFÂ (Â water_pars_f%pars_xy(ind_w_emis,j,i)Â /=Â Â Â Â Â Â Â Â & |
---|
3630 |             water_pars_f%fill )                  & |
---|
3631 | Â Â Â Â Â Â Â Â Â Â Â surf_lsm_v(l)%emissivity(ind_wat_win,m)Â =Â Â Â Â Â Â Â Â & |
---|
3632 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â water_pars_f%pars_xy(ind_w_emis,j,i)Â |
---|
3633 | Â Â Â Â Â Â Â Â ENDIF |
---|
3634 | Â Â Â Â Â Â Â ENDDO |
---|
3635 | Â Â Â Â Â ENDDO |
---|
3636 | |
---|
3637 | Â Â Â Â ENDIF |
---|
3638 | ! |
---|
3639 | !--Â Â Initialize pavement-type surfaces, level 1 |
---|
3640 |     IF ( pavement_type /= 0 ) THEN |
---|
3641 | |
---|
3642 | ! |
---|
3643 | !--Â Â Â Â When a pavement_type is used, overwrite a possible setting of |
---|
3644 | !--Â Â Â Â the pavement depth as it is already defined by the pavement type |
---|
3645 |      pavement_depth_level = 0 |
---|
3646 | |
---|
3647 |      IF ( z0_pavement == 9999999.9_wp ) THEN |
---|
3648 |        z0_pavement = pavement_pars(ind_p_z0,pavement_type) |
---|
3649 | Â Â Â Â Â ENDIF |
---|
3650 | |
---|
3651 |      IF ( z0h_pavement == 9999999.9_wp ) THEN |
---|
3652 |        z0h_pavement = pavement_pars(ind_p_z0h,pavement_type) |
---|
3653 | Â Â Â Â Â ENDIF |
---|
3654 | Â Â Â Â Â |
---|
3655 |      IF ( z0q_pavement == 9999999.9_wp ) THEN |
---|
3656 |        z0q_pavement = pavement_pars(ind_p_z0h,pavement_type) |
---|
3657 | Â Â Â Â Â ENDIF |
---|
3658 | |
---|
3659 |      IF ( pavement_heat_conduct == 9999999.9_wp ) THEN |
---|
3660 |        pavement_heat_conduct = pavement_subsurface_pars_1(0,pavement_type) |
---|
3661 | Â Â Â Â Â ENDIF |
---|
3662 | |
---|
3663 |      IF ( pavement_heat_capacity == 9999999.9_wp ) THEN |
---|
3664 |        pavement_heat_capacity = pavement_subsurface_pars_2(0,pavement_type) |
---|
3665 | Â Â Â Â Â ENDIFÂ Â |
---|
3666 | Â Â |
---|
3667 |      IF ( albedo_type == 9999999 .AND. albedo == 9999999.9_wp ) THEN |
---|
3668 |        albedo_type = INT(pavement_pars(ind_p_at,pavement_type))    |
---|
3669 | Â Â Â Â Â ENDIF |
---|
3670 | Â Â |
---|
3671 |      IF ( emissivity == 9999999.9_wp ) THEN |
---|
3672 |        emissivity = pavement_pars(ind_p_emis,pavement_type)    |
---|
3673 | Â Â Â Â Â ENDIF |
---|
3674 | |
---|
3675 | ! |
---|
3676 | !--Â Â Â Â If the depth level of the pavement is not set, determine it from |
---|
3677 | !--Â Â Â Â lookup table. |
---|
3678 |      IF ( pavement_depth_level == 0 ) THEN |
---|
3679 |        DO k = nzb_soil, nzt_soil |
---|
3680 | Â Â Â Â Â Â Â |
---|