Home

Context Navigation

source: palm/trunk/SOURCE/urban_surface_mod.f90 @ 2720

Last change on this file since 2720 was 2720, checked in by kanani, 7 years ago
update of palm version
Property svn:keywords set to `Id`
File size: 423.1 KB

Rev	Line
[2696]	1	!> @file urban_surface_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	!
[2718]	17	! Copyright 2015-2018 Czech Technical University in Prague
	18	! Copyright 1997-2018 Leibniz Universitaet Hannover
[2696]	19	!--------------------------------------------------------------------------------!
	20	!
	21	! Current revisions:
	22	! ------------------
[2705]	23	!
	24	!
[2696]	25	! Former revisions:
	26	! -----------------
	27	! $Id: urban_surface_mod.f90 2720 2018-01-02 16:27:15Z kanani $
[2720]	28	! Correction of comment
	29	!
	30	! 2718 2018-01-02 08:49:38Z maronga
[2716]	31	! Corrected "Former revisions" section
	32	!
[2720]	33	! 2705 2017-12-18 11:26:23Z maronga
[2716]	34	! Changes from last commit documented
	35	!
	36	! 2703 2017-12-15 20:12:38Z maronga
[2705]	37	! Workaround for calculation of r_a
[2716]	38	!
	39	! 2696 2017-12-14 17:12:51Z kanani
	40	! - Change in file header (GPL part)
[2696]	41	! - Bugfix in calculation of pt_surface and related fluxes. (BM)
	42	! - Do not write surface temperatures onto pt array as this might cause
	43	! problems with nesting. (MS)
	44	! - Revised calculation of pt1 (now done in surface_layer_fluxes).
	45	! Bugfix, f_shf_window and f_shf_green were not set at vertical surface
	46	! elements. (MS)
	47	! - merged with branch ebsolver
	48	! green building surfaces do not evaporate yet
	49	! properties of green wall layers and window layers are taken from wall layers
	50	! this input data is missing. (RvT)
	51	! - Merged with branch radiation (developed by Mohamed Salim)
	52	! - Revised initialization. (MS)
	53	! - Rename emiss_surf into emissivity, roughness_wall into z0, albedo_surf into
	54	! albedo. (MS)
	55	! - Move first call of usm_radiatin from usm_init to init_3d_model
	56	! - fixed problem with near surface temperature
	57	! - added near surface temperature t_surf_10cm_h(m), t_surf_10cm_v(l)%t(m)
	58	! - does not work with temp profile including stability, ol
	59	! t_surf_10cm = pt1 now
	60	! - merged with 2357 bugfix, error message for nopointer version
	61	! - added indoor model coupling with wall heat flux
	62	! - added green substrate/ dry vegetation layer for buildings
	63	! - merged with 2232 new surface-type structure
	64	! - added transmissivity of window tiles
	65	! - added MOSAIK tile approach for 3 different surfaces (RvT)
	66	!
[2703]	67	! 2583 2017-10-26 13:58:38Z knoop
[2716]	68	! Bugfix: reverted MPI_Win_allocate_cptr introduction in last commit
	69	!
	70	! 2582 2017-10-26 13:19:46Z hellstea
	71	! Workaround for gnufortran compiler added in usm_calc_svf. CALL MPI_Win_allocate is
	72	! replaced by CALL MPI_Win_allocate_cptr if defined ( __gnufortran ).
	73	!
	74	! 2544 2017-10-13 18:09:32Z maronga
[2696]	75	! Date and time quantities are now read from date_and_time_mod. Solar constant is
	76	! read from radiation_model_mod
	77	!
	78	! 2516 2017-10-04 11:03:04Z suehring
	79	! Remove tabs
	80	!
	81	! 2514 2017-10-04 09:52:37Z suehring
	82	! upper bounds of 3d output changed from nx+1,ny+1 to nx,ny
	83	! no output of ghost layer data
	84	!
	85	! 2350 2017-08-15 11:48:26Z kanani
	86	! Bugfix and error message for nopointer version.
	87	! Additional "! defined(__nopointer)" as workaround to enable compilation of
	88	! nopointer version.
	89	!
	90	! 2318 2017-07-20 17:27:44Z suehring
	91	! Get topography top index via Function call
	92	!
	93	! 2317 2017-07-20 17:27:19Z suehring
	94	! Bugfix: adjust output of shf. Added support for spinups
	95	!
	96	! 2287 2017-06-15 16:46:30Z suehring
	97	! Bugfix in determination topography-top index
	98	!
	99	! 2269 2017-06-09 11:57:32Z suehring
	100	! Enable restart runs with different number of PEs
	101	! Bugfixes nopointer branch
	102	!
	103	! 2258 2017-06-08 07:55:13Z suehring
	104	! Bugfix, add pre-preprocessor directives to enable non-parrallel mode
	105	!
	106	! 2233 2017-05-30 18:08:54Z suehring
	107	!
	108	! 2232 2017-05-30 17:47:52Z suehring
	109	! Adjustments according to new surface-type structure. Remove usm_wall_heat_flux;
	110	! insteat, heat fluxes are directly applied in diffusion_s.
	111	!
	112	! 2213 2017-04-24 15:10:35Z kanani
	113	! Removal of output quantities usm_lad and usm_canopy_hr
	114	!
	115	! 2209 2017-04-19 09:34:46Z kanani
	116	! cpp switch __mpi3 removed,
	117	! minor formatting,
	118	! small bugfix for division by zero (Krc)
	119	!
	120	! 2113 2017-01-12 13:40:46Z kanani
	121	! cpp switch __mpi3 added for MPI-3 standard code (Ketelsen)
	122	!
	123	! 2071 2016-11-17 11:22:14Z maronga
	124	! Small bugfix (Resler)
	125	!
	126	! 2031 2016-10-21 15:11:58Z knoop
	127	! renamed variable rho to rho_ocean
	128	!
	129	! 2024 2016-10-12 16:42:37Z kanani
	130	! Bugfixes in deallocation of array plantt and reading of csf/csfsurf,
	131	! optimization of MPI-RMA operations,
	132	! declaration of pcbl as integer,
	133	! renamed usm_radnet -> usm_rad_net, usm_canopy_khf -> usm_canopy_hr,
	134	! splitted arrays svf -> svf & csf, svfsurf -> svfsurf & csfsurf,
	135	! use of new control parameter varnamelength,
	136	! added output variables usm_rad_ressw, usm_rad_reslw,
	137	! minor formatting changes,
	138	! minor optimizations.
	139	!
	140	! 2011 2016-09-19 17:29:57Z kanani
	141	! Major reformatting according to PALM coding standard (comments, blanks,
	142	! alphabetical ordering, etc.),
	143	! removed debug_prints,
	144	! removed auxiliary SUBROUTINE get_usm_info, instead, USM flag urban_surface is
	145	! defined in MODULE control_parameters (modules.f90) to avoid circular
	146	! dependencies,
	147	! renamed canopy_heat_flux to pc_heating_rate, as meaning of quantity changed.
	148	!
	149	! 2007 2016-08-24 15:47:17Z kanani
	150	! Initial revision
	151	!
	152	!
	153	! Description:
	154	! ------------
	155	! 2016/6/9 - Initial version of the USM (Urban Surface Model)
	156	! authors: Jaroslav Resler, Pavel Krc
	157	! (Czech Technical University in Prague and Institute of
	158	! Computer Science of the Czech Academy of Sciences, Prague)
	159	! with contributions: Michal Belda, Nina Benesova, Ondrej Vlcek
	160	! partly inspired by PALM LSM (B. Maronga)
	161	! parameterizations of Ra checked with TUF3D (E. S. Krayenhoff)
	162	!> Module for Urban Surface Model (USM)
	163	!> The module includes:
	164	!> 1. radiation model with direct/diffuse radiation, shading, reflections
	165	!> and integration with plant canopy
	166	!> 2. wall and wall surface model
	167	!> 3. surface layer energy balance
	168	!> 4. anthropogenic heat (only from transportation so far)
	169	!> 5. necessary auxiliary subroutines (reading inputs, writing outputs,
	170	!> restart simulations, ...)
	171	!> It also make use of standard radiation and integrates it into
	172	!> urban surface model.
	173	!>
	174	!> Further work:
	175	!> -------------
	176	!> 1. Reduce number of shape view factors by merging factors for distant surfaces
	177	!> under shallow angles. Idea: Iteratively select the smallest shape view
	178	!> factor by value (among all sources and targets) which has a similarly
	179	!> oriented source neighbor (or near enough) SVF and merge them by adding
	180	!> value of the smaller SVF to the larger one and deleting the smaller one.
	181	!> This will allow for better scaling at higher resolutions.
	182	!>
	183	!> 2. Remove global arrays surfouts, surfoutl and only keep track of radiosity
	184	!> from surfaces that are visible from local surfaces (i.e. there is a SVF
	185	!> where target is local). To do that, radiosity will be exchanged after each
	186	!> reflection step using MPI_Alltoall instead of current MPI_Allgather.
	187	!>
	188	!> 3. Temporarily large values of surface heat flux can be observed, up to
	189	!> 1.2 Km/s, which seem to be not realistic.
	190	!>
	191	!> @todo Output of _av variables in case of restarts
	192	!> @todo Revise flux conversion in energy-balance solver
	193	!> @todo Bugfixing in nopointer branch
	194	!> @todo Check optimizations for RMA operations
	195	!> @todo Alternatives for MPI_WIN_ALLOCATE? (causes problems with openmpi)
	196	!> @todo Check for load imbalances in CPU measures, e.g. for exchange_horiz_prog
	197	!> factor 3 between min and max time
	198	!> @todo Move setting of flag indoor_model to indoor_model_mod once available
	199	!> @todo Check divisions in wtend (etc.) calculations for possible division
	200	!> by zero, e.g. in case fraq(0,m) + fraq(1,m) = 0?!
	201	!> @todo Use unit 90 for OPEN/CLOSE of input files (FK)
	202	!------------------------------------------------------------------------------!
	203	MODULE urban_surface_mod
	204
	205	#if ! defined( __nopointer )
	206	USE arrays_3d, &
	207	ONLY: zu, pt, pt_1, pt_2, p, u, v, w, hyp, tend
	208	#endif
	209
	210	USE cloud_parameters, &
	211	ONLY: cp, r_d
	212
	213	USE constants, &
	214	ONLY: pi
	215
	216	USE control_parameters, &
	217	ONLY: coupling_start_time, dz, topography, dt_3d, &
	218	intermediate_timestep_count, initializing_actions, &
	219	intermediate_timestep_count_max, simulated_time, end_time, &
	220	timestep_scheme, tsc, coupling_char, io_blocks, io_group, &
	221	message_string, time_since_reference_point, surface_pressure, &
	222	g, pt_surface, large_scale_forcing, lsf_surf, spinup, &
	223	spinup_pt_mean, spinup_time, time_do3d, dt_do3d, &
	224	average_count_3d, varnamelength, urban_surface, kappa
	225
	226	USE cpulog, &
	227	ONLY: cpu_log, log_point, log_point_s
	228
	229	USE date_and_time_mod, &
	230	ONLY: d_seconds_year, day_of_year_init, time_utc_init
	231
	232	USE grid_variables, &
	233	ONLY: dx, dy, ddx, ddy, ddx2, ddy2
	234
	235	USE indices, &
	236	ONLY: nx, ny, nnx, nny, nnz, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, &
	237	nysg, nzb, nzt, nbgp, wall_flags_0
	238
	239	USE, INTRINSIC :: iso_c_binding
	240
	241	USE kinds
	242
	243	USE pegrid
	244
	245	USE plant_canopy_model_mod, &
	246	ONLY: pc_heating_rate, plant_canopy, usm_lad_rma
	247
	248	USE radiation_model_mod, &
	249	ONLY: albedo_type, radiation, calc_zenith, zenith, &
	250	rad_sw_in, rad_lw_in, rad_sw_out, rad_lw_out, &
	251	sigma_sb, solar_constant, sun_direction, sun_dir_lat, &
	252	sun_dir_lon, &
	253	force_radiation_call, surfinsw, surfinlw, surfinswdir, &
	254	surfinswdif, surfoutsw, surfoutlw, surfins,nsvfl, svf, svfsurf, &
	255	surfinl, surfinlwdif, energy_balance_surf_h, &
	256	energy_balance_surf_v, rad_sw_in_dir, rad_sw_in_diff, &
	257	rad_lw_in_diff, surfouts, surfoutl, surfoutsl, surfoutll, surf, &
	258	surfl, nsurfl, nsurfs, surfstart, pcbinsw, pcbinlw, pcbl, npcbl, startenergy, &
	259	endenergy, nenergy, iup_u, inorth_u, isouth_u, ieast_u, iwest_u, iup_l, &
	260	inorth_l, isouth_l, ieast_l, iwest_l, startsky, endsky,id, &
	261	iz, iy, ix, idir, jdir, kdir, startborder, endborder, nsurf_type, nzub, nzut, &
	262	isky, inorth_b,idown_a, isouth_b, ieast_b, iwest_b, nzu, pch, nsurf, &
	263	iup_a, inorth_a, isouth_a, ieast_a, iwest_a, idsvf, ndsvf, &
	264	idcsf, ndcsf, kdcsf, pct, startland, endland, startwall, endwall
	265
	266	USE statistics, &
	267	ONLY: hom, statistic_regions
	268
	269	USE surface_mod
	270
	271
	272	IMPLICIT NONE
	273
	274
	275	!-- configuration parameters (they can be setup in PALM config)
	276	LOGICAL :: usm_material_model = .TRUE. !< flag parameter indicating wheather the model of heat in materials is used
	277	LOGICAL :: usm_anthropogenic_heat = .FALSE. !< flag parameter indicating wheather the anthropogenic heat sources (e.g.transportation) are used
	278	LOGICAL :: force_radiation_call_l = .FALSE. !< flag parameter for unscheduled radiation model calls
	279	LOGICAL :: indoor_model = .FALSE. !< whether to use the indoor model
	280
	281
	282	INTEGER(iwp) :: building_type = 1 !< default building type (preleminary setting)
	283	INTEGER(iwp) :: land_category = 2 !< default category for land surface
	284	INTEGER(iwp) :: wall_category = 2 !< default category for wall surface over pedestrian zone
	285	INTEGER(iwp) :: pedestrant_category = 2 !< default category for wall surface in pedestrian zone
	286	INTEGER(iwp) :: roof_category = 2 !< default category for root surface
	287
	288	!
	289	!-- Indices of input attributes for (above) ground floor level
	290	INTEGER(iwp) :: ind_alb_wall = 38 !< index in input list for albedo_type of wall fraction
	291	INTEGER(iwp) :: ind_alb_green = 39 !< index in input list for albedo_type of green fraction
	292	INTEGER(iwp) :: ind_alb_win = 40 !< index in input list for albedo_type of window fraction
	293	INTEGER(iwp) :: ind_emis_wall_agfl = 14 !< index in input list for wall emissivity, above ground floor level
	294	INTEGER(iwp) :: ind_emis_wall_gfl = 32 !< index in input list for wall emissivity, ground floor level
	295	INTEGER(iwp) :: ind_emis_green_agfl = 15 !< index in input list for green emissivity, above ground floor level
	296	INTEGER(iwp) :: ind_emis_green_gfl = 33 !< index in input list for green emissivity, ground floor level
	297	INTEGER(iwp) :: ind_emis_win_agfl = 16 !< index in input list for window emissivity, above ground floor level
	298	INTEGER(iwp) :: ind_emis_win_gfl = 34 !< index in input list for window emissivity, ground floor level
	299	INTEGER(iwp) :: ind_green_frac_w_agfl = 2 !< index in input list for green fraction on wall, above ground floor level
	300	INTEGER(iwp) :: ind_green_frac_w_gfl = 23 !< index in input list for green fraction on wall, ground floor level
	301	INTEGER(iwp) :: ind_green_frac_r_agfl = 3 !< index in input list for green fraction on roof, above ground floor level
	302	INTEGER(iwp) :: ind_green_frac_r_gfl = 24 !< index in input list for green fraction on roof, ground floor level
	303	INTEGER(iwp) :: ind_hc1_agfl = 6 !< index in input list for heat capacity at first wall layer, above ground floor level
	304	INTEGER(iwp) :: ind_hc1_gfl = 26 !< index in input list for heat capacity at first wall layer, ground floor level
	305	INTEGER(iwp) :: ind_hc2_agfl = 7 !< index in input list for heat capacity at second wall layer, above ground floor level
	306	INTEGER(iwp) :: ind_hc2_gfl = 27 !< index in input list for heat capacity at second wall layer, ground floor level
	307	INTEGER(iwp) :: ind_hc3_agfl = 8 !< index in input list for heat capacity at third wall layer, above ground floor level
	308	INTEGER(iwp) :: ind_hc3_gfl = 28 !< index in input list for heat capacity at third wall layer, ground floor level
	309	INTEGER(iwp) :: ind_gflh = 20 !< index in input list for ground floor level height
	310	INTEGER(iwp) :: ind_lai_r_agfl = 4 !< index in input list for LAI on roof, above ground floor level
	311	INTEGER(iwp) :: ind_lai_r_gfl = 4 !< index in input list for LAI on roof, ground floor level
	312	INTEGER(iwp) :: ind_lai_w_agfl = 5 !< index in input list for LAI on wall, above ground floor level
	313	INTEGER(iwp) :: ind_lai_w_gfl = 25 !< index in input list for LAI on wall, ground floor level
	314	INTEGER(iwp) :: ind_tc1_agfl = 9 !< index in input list for thermal conductivity at first wall layer, above ground floor level
	315	INTEGER(iwp) :: ind_tc1_gfl = 29 !< index in input list for thermal conductivity at first wall layer, ground floor level
	316	INTEGER(iwp) :: ind_tc2_agfl = 10 !< index in input list for thermal conductivity at second wall layer, above ground floor level
	317	INTEGER(iwp) :: ind_tc2_gfl = 30 !< index in input list for thermal conductivity at second wall layer, ground floor level
	318	INTEGER(iwp) :: ind_tc3_agfl = 11 !< index in input list for thermal conductivity at third wall layer, above ground floor level
	319	INTEGER(iwp) :: ind_tc3_gfl = 31 !< index in input list for thermal conductivity at third wall layer, ground floor level
	320	INTEGER(iwp) :: ind_thick_1 = 41 !< index for wall layer thickness - 1st layer
	321	INTEGER(iwp) :: ind_thick_2 = 42 !< index for wall layer thickness - 2nd layer
	322	INTEGER(iwp) :: ind_thick_3 = 43 !< index for wall layer thickness - 3rd layer
	323	INTEGER(iwp) :: ind_thick_4 = 44 !< index for wall layer thickness - 4th layer
	324	INTEGER(iwp) :: ind_trans_agfl = 17 !< index in input list for window transmissivity, above ground floor level
	325	INTEGER(iwp) :: ind_trans_gfl = 35 !< index in input list for window transmissivity, ground floor level
	326	INTEGER(iwp) :: ind_wall_frac_agfl = 0 !< index in input list for wall fraction, above ground floor level
	327	INTEGER(iwp) :: ind_wall_frac_gfl = 21 !< index in input list for wall fraction, ground floor level
	328	INTEGER(iwp) :: ind_win_frac_agfl = 1 !< index in input list for window fraction, above ground floor level
	329	INTEGER(iwp) :: ind_win_frac_gfl = 22 !< index in input list for window fraction, ground floor level
	330	INTEGER(iwp) :: ind_z0_agfl = 18 !< index in input list for z0, above ground floor level
	331	INTEGER(iwp) :: ind_z0_gfl = 36 !< index in input list for z0, ground floor level
	332	INTEGER(iwp) :: ind_z0qh_agfl = 19 !< index in input list for z0h / z0q, above ground floor level
	333	INTEGER(iwp) :: ind_z0qh_gfl = 37 !< index in input list for z0h / z0q, ground floor level
	334
	335
	336	REAL(wp) :: roof_height_limit = 4._wp !< height for distinguish between land surfaces and roofs
	337	REAL(wp) :: ground_floor_level = 4.0_wp !< default ground floor level
	338	REAL(wp) :: ra_horiz_coef = 5.0_wp !< mysterious coefficient for correction of overestimation
	339	!< of r_a for horizontal surfaces -> TODO
	340
	341	CHARACTER(37), DIMENSION(0:6), PARAMETER :: building_type_name = (/ &
	342	'user-defined ', & ! 0
	343	'residential - 1950 ', & ! 1
	344	'residential 1951 - 2000 ', & ! 2
	345	'residential 2001 - ', & ! 3
	346	'office - 1950 ', & ! 4
	347	'office 1951 - 2000 ', & ! 5
	348	'office 2001 - ' & ! 6
	349	/)
	350	!
	351	!-- building parameters, 4 different types
	352	!-- 0 - wall fraction, 1- window fraction, 2 - green fraction on wall, 3- green fraction
	353	!-- at roof, 4 - lai of green fraction at roof, 5 - lai of green fraction at wall,
	354	!-- 6 - heat capacity of wall layer 1, 7 - heat capacity of wall layer 2,
	355	!-- 8 - heat capacity of wall layer 3, 9 - thermal conductivity of wall layer 1,
	356	!-- 10 - thermal conductivity of wall layer 2, 11 - thermal conductivity of wall layer 3,
	357	!-- 12 - indoor target summer temperature ( K ), 13 - indoor target winter temperature (K),
	358	!-- 14 - emissivity of wall fraction, 15 - emissivity of green fraction, 16 - emissivity of window fraction,
	359	!-- 17 - transmissivity of window fraction, 18 - z0, 19 - z0h/z0q, 20 - ground floor height,
	360	!-- 21 - ground floor wall fraction, 22 - ground floor window fraction, 23 ground floor green fraction,
	361	!-- 24 - ground floor green fraction on roof, 25 - ground floor lai of green fraction,
	362	!-- 26 - ground floor heat capacity of wall layer 1, 27 - ground floor heat capacity of wall layer 1,
	363	!-- 28 - ground floor heat capacity of wall layer 3, 29 - ground floor thermal conductivity of wall layer 1,
	364	!-- 30 - ground floor thermal conductivity of wall layer 2, 31 - ground floor thermal conductivity of wall layer 3,
	365	!-- 32 - ground floor emissivity of wall fraction, 33 - ground floor emissivity of green fraction,
	366	!-- 34 - ground floor emissivity of window fraction, 35 - ground floor transmissivity of window fraction,
	367	!-- 36 - ground floor z0, 37 - ground floor z0h/z0q, 38 - albedo type wall fraction
	368	!-- 39 - albedo type green fraction, 40 - albedo type window fraction
	369	!-- 41 - wall layer thickness - 1st layer, 42 - wall layer thickness - 2nd layer,
	370	!-- 43 - wall layer thickness - 3rd layer, 44 - wall layer thickness - 4th layer,
	371	!-- 45 - heat capacity of the wall surface, 46 - heat conductivity
	372	!-- Please note, only preleminary dummy values so far!
	373	REAL(wp), DIMENSION(0:46,1:6), PARAMETER :: building_pars = RESHAPE( (/ &
	374	1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp, 1.0_wp, & !parameter 0-5
	375	1000000.0_wp, 1000000.0_wp, 1000000.0_wp, 0.3_wp, 0.3_wp, 0.3_wp, & !parameter 6-11
	376	296.15_wp, 293.15_wp, 0.9_wp, 0.9_wp, 0.01_wp, 0.99_wp, & !parameter 12-17
	377	0.01_wp, 0.001_wp, 4.0_wp, & !parameter 18-20
	378	1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 3.0_wp, & !parameter 21-25
	379	1000000.0_wp, 1000000.0_wp, 1000000.0_wp, & !parameter 26-28
	380	0.3_wp, 0.3_wp, 0.3_wp, & !parameter 29-31
	381	0.4_wp, 0.4_wp, 0.4_wp, 0.4_wp, 0.01_wp, 0.001_wp, & !parameter 32-37
	382	24.0_wp, 24.0_wp, 24.0_wp, & !parameter 38-40
	383	0.0242_wp, 0.0969_wp, 0.346_wp, 1.0_wp, & !parameter 41-44
	384	20000.0_wp, 10.0_wp, & !parameter 45-46 - end of type 1
	385	1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp, 1.0_wp, & !parameter 0-5
	386	1000000.0_wp, 1000000.0_wp, 1000000.0_wp, 0.3_wp, 0.3_wp, 0.3_wp, & !parameter 6-11
	387	296.15_wp, 293.15_wp, 0.9_wp, 0.9_wp, 0.01_wp, 0.99_wp, & !parameter 12-17
	388	0.01_wp, 0.001_wp, 4.0_wp, & !parameter 18-20
	389	1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 3.0_wp, & !parameter 21-25
	390	1000000.0_wp, 1000000.0_wp, 1000000.0_wp, & !parameter 26-28
	391	0.3_wp, 0.3_wp, 0.3_wp, & !parameter 29-31
	392	0.4_wp, 0.4_wp, 0.4_wp, 0.4_wp, 0.01_wp, 0.001_wp, & !parameter 32-37
	393	24.0_wp, 24.0_wp, 24.0_wp, & !parameter 38-40
	394	0.0242_wp, 0.0969_wp, 0.346_wp, 1.0_wp, & !parameter 41-44
	395	20000.0_wp, 10.0_wp, & !parameter 45-46 - end of type 2
	396	1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp, 1.0_wp, & !parameter 0-5
	397	1000000.0_wp, 1000000.0_wp, 1000000.0_wp, 0.3_wp, 0.3_wp, 0.3_wp, & !parameter 6-11
	398	296.15_wp, 293.15_wp, 0.9_wp, 0.9_wp, 0.01_wp, 0.99_wp, & !parameter 12-17
	399	0.01_wp, 0.001_wp, 4.0_wp, & !parameter 18-20
	400	1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 3.0_wp, & !parameter 21-25
	401	1000000.0_wp, 1000000.0_wp, 1000000.0_wp, & !parameter 26-28
	402	0.3_wp, 0.3_wp, 0.3_wp, & !parameter 29-31
	403	0.4_wp, 0.4_wp, 0.4_wp, 0.4_wp, 0.01_wp, 0.001_wp, & !parameter 32-37
	404	24.0_wp, 24.0_wp, 24.0_wp, & !parameter 38-40
	405	0.0242_wp, 0.0969_wp, 0.346_wp, 1.0_wp, & !parameter 41-44
	406	20000.0_wp, 10.0_wp, & !parameter 45-46 - end of type 3
	407	1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp, 1.0_wp, & !parameter 0-5
	408	1000000.0_wp, 1000000.0_wp, 1000000.0_wp, 0.3_wp, 0.3_wp, 0.3_wp, & !parameter 6-11
	409	296.15_wp, 293.15_wp, 0.9_wp, 0.9_wp, 0.01_wp, 0.99_wp, & !parameter 12-17
	410	0.01_wp, 0.001_wp, 4.0_wp, & !parameter 18-20
	411	1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 3.0_wp, & !parameter 21-25
	412	1000000.0_wp, 1000000.0_wp, 1000000.0_wp, & !parameter 26-28
	413	0.3_wp, 0.3_wp, 0.3_wp, & !parameter 29-31
	414	0.4_wp, 0.4_wp, 0.4_wp, 0.4_wp, 0.01_wp, 0.001_wp, & !parameter 32-37
	415	24.0_wp, 24.0_wp, 24.0_wp, & !parameter 38-40
	416	0.0242_wp, 0.0969_wp, 0.346_wp, 1.0_wp, & !parameter 41-44
	417	20000.0_wp, 10.0_wp, & !parameter 45-46 - end of type 4
	418	1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp, 1.0_wp, & !parameter 0-5
	419	1000000.0_wp, 1000000.0_wp, 1000000.0_wp, 0.3_wp, 0.3_wp, 0.3_wp, & !parameter 6-11
	420	296.15_wp, 293.15_wp, 0.9_wp, 0.9_wp, 0.01_wp, 0.99_wp, & !parameter 12-17
	421	0.01_wp, 0.001_wp, 4.0_wp, & !parameter 18-20
	422	1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 3.0_wp, & !parameter 21-25
	423	1000000.0_wp, 1000000.0_wp, 1000000.0_wp, & !parameter 26-28
	424	0.3_wp, 0.3_wp, 0.3_wp, & !parameter 29-31
	425	0.4_wp, 0.4_wp, 0.4_wp, 0.4_wp, 0.01_wp, 0.001_wp, & !parameter 32-37
	426	24.0_wp, 24.0_wp, 24.0_wp, & !parameter 38-40
	427	0.0242_wp, 0.0969_wp, 0.346_wp, 1.0_wp, & !parameter 41-44
	428	20000.0_wp, 10.0_wp, & !parameter 45-46 - end of type 5
	429	1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 1.0_wp, 1.0_wp, & !parameter 0-5
	430	1000000.0_wp, 1000000.0_wp, 1000000.0_wp, 0.3_wp, 0.3_wp, 0.3_wp, & !parameter 6-11
	431	296.15_wp, 293.15_wp, 0.9_wp, 0.9_wp, 0.01_wp, 0.99_wp, & !parameter 12-17
	432	0.01_wp, 0.001_wp, 4.0_wp, & !parameter 18-20
	433	1.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 3.0_wp, & !parameter 21-25
	434	1000000.0_wp, 1000000.0_wp, 1000000.0_wp, & !parameter 26-28
	435	0.3_wp, 0.3_wp, 0.3_wp, & !parameter 29-31
	436	0.4_wp, 0.4_wp, 0.4_wp, 0.4_wp, 0.01_wp, 0.001_wp, & !parameter 32-37
	437	24.0_wp, 24.0_wp, 24.0_wp, & !parameter 38-40
	438	0.0242_wp, 0.0969_wp, 0.346_wp, 1.0_wp, & !parameter 41-44
	439	20000.0_wp, 10.0_wp & !parameter 45-46 - end of type 6
	440	/), &
	441	(/47, 6/) )
	442
	443	!
	444	!-- Type for surface temperatures at vertical walls. Is not necessary for horizontal walls.
	445	TYPE t_surf_vertical
	446	REAL(wp), DIMENSION(:), ALLOCATABLE :: t
	447	END TYPE t_surf_vertical
	448	!
	449	!-- Type for wall temperatures at vertical walls. Is not necessary for horizontal walls.
	450	TYPE t_wall_vertical
	451	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: t
	452	END TYPE t_wall_vertical
	453
	454
	455	!-- arrays for time averages
	456	!-- Attention: the variable rad_net_av is also used in the 3d field variable in radiation_model_mod.f90. It may be better to rename it
	457	REAL(wp), DIMENSION(:), ALLOCATABLE :: rad_net_av !< average of rad_net_l
	458	REAL(wp), DIMENSION(:), ALLOCATABLE :: surfinsw_av !< average of sw radiation falling to local surface including radiation from reflections
	459	REAL(wp), DIMENSION(:), ALLOCATABLE :: surfinlw_av !< average of lw radiation falling to local surface including radiation from reflections
	460	REAL(wp), DIMENSION(:), ALLOCATABLE :: surfinswdir_av !< average of direct sw radiation falling to local surface
	461	REAL(wp), DIMENSION(:), ALLOCATABLE :: surfinswdif_av !< average of diffuse sw radiation from sky and model boundary falling to local surface
	462	REAL(wp), DIMENSION(:), ALLOCATABLE :: surfinlwdif_av !< average of diffuse lw radiation from sky and model boundary falling to local surface
	463	REAL(wp), DIMENSION(:), ALLOCATABLE :: surfinswref_av !< average of sw radiation falling to surface from reflections
	464	REAL(wp), DIMENSION(:), ALLOCATABLE :: surfinlwref_av !< average of lw radiation falling to surface from reflections
	465	REAL(wp), DIMENSION(:), ALLOCATABLE :: surfoutsw_av !< average of total sw radiation outgoing from nonvirtual surfaces surfaces after all reflection
	466	REAL(wp), DIMENSION(:), ALLOCATABLE :: surfoutlw_av !< average of total lw radiation outgoing from nonvirtual surfaces surfaces after all reflection
	467	REAL(wp), DIMENSION(:), ALLOCATABLE :: surfins_av !< average of array of residua of sw radiation absorbed in surface after last reflection
	468	REAL(wp), DIMENSION(:), ALLOCATABLE :: surfinl_av !< average of array of residua of lw radiation absorbed in surface after last reflection
	469	REAL(wp), DIMENSION(:), ALLOCATABLE :: surfhf_av !< average of total radiation flux incoming to minus outgoing from local surface
	470	REAL(wp), DIMENSION(:), ALLOCATABLE :: wghf_eb_av !< average of wghf_eb
	471	REAL(wp), DIMENSION(:), ALLOCATABLE :: wshf_eb_av !< average of wshf_eb
	472	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: t_wall_av !< Average of t_wall
	473	REAL(wp), DIMENSION(:), ALLOCATABLE :: wghf_eb_green_av !< average of wghf_eb_green
	474	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: t_green_av !< Average of t_green
	475	REAL(wp), DIMENSION(:), ALLOCATABLE :: wghf_eb_window_av !< average of wghf_eb_window
	476	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: t_window_av !< Average of t_window
	477
	478
	479	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	480	!-- anthropogenic heat sources
	481	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	482	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: aheat !< daily average of anthropogenic heat (W/m2)
	483	REAL(wp), DIMENSION(:), ALLOCATABLE :: aheatprof !< diurnal profile of anthropogenic heat
	484
	485	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	486	!-- wall surface model
	487	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	488	!-- wall surface model constants
	489	INTEGER(iwp), PARAMETER :: nzb_wall = 0 !< inner side of the wall model (to be switched)
	490	INTEGER(iwp), PARAMETER :: nzt_wall = 3 !< outer side of the wall model (to be switched)
	491	INTEGER(iwp), PARAMETER :: nzw = 4 !< number of wall layers (fixed for now)
	492
	493	REAL(wp), DIMENSION(nzb_wall:nzt_wall) :: zwn_default = (/0.0242_wp, 0.0969_wp, 0.346_wp, 1.0_wp /)
	494	!< normalized soil, wall and roof layer depths (m/m)
	495	! REAL(wp), DIMENSION(nzb_wall:nzt_wall) :: zwn_default = (/0.33_wp, 0.66_wp, 1.0_wp /)
	496	REAL(wp), DIMENSION(nzb_wall:nzt_wall) :: zwn_default_window = (/0.25_wp, 0.5_wp, 0.75_wp, 1.0_wp /)
	497	! REAL(wp), DIMENSION(nzb_wall:nzt_wall) :: zwn_default_window = (/0.33_wp, 0.66_wp, 1.0_wp /)
	498	! REAL(wp), DIMENSION(nzb_wall:nzt_wall) :: zwn_default_window = (/0.0242_wp, 0.0969_wp, 0.346_wp, 1.0_wp /)
	499	!< normalized window layer depths (m/m)
	500	! REAL(wp), DIMENSION(nzb_wall:nzt_wall) :: zwn_default_green = (/0.0242_wp, 0.0969_wp, 0.346_wp, 1.0_wp /)
	501	!< normalized green layer depths (m/m)
	502	REAL(wp), DIMENSION(nzb_wall:nzt_wall) :: zwn_default_green = (/0.25_wp, 0.5_wp, 0.75_wp, 1.0_wp /)
	503	! REAL(wp), DIMENSION(nzb_wall:nzt_wall) :: zwn_default_green = (/0.33_wp, 0.66_wp, 1.0_wp /)
	504
	505
	506	REAL(wp) :: wall_inner_temperature = 296.0_wp !< temperature of the inner wall surface (~23 degrees C) (K)
	507	REAL(wp) :: roof_inner_temperature = 296.0_wp !< temperature of the inner roof surface (~23 degrees C) (K)
	508	REAL(wp) :: soil_inner_temperature = 283.0_wp !< temperature of the deep soil (~10 degrees C) (K)
	509	REAL(wp) :: window_inner_temperature = 296.0_wp !< temperature of the inner window surface (~23 degrees C) (K)
	510
	511	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	512	!-- surface and material model variables for walls, ground, roofs
	513	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	514	REAL(wp), DIMENSION(:), ALLOCATABLE :: zwn !< normalized wall layer depths (m)
	515	REAL(wp), DIMENSION(:), ALLOCATABLE :: zwn_window !< normalized window layer depths (m)
	516	REAL(wp), DIMENSION(:), ALLOCATABLE :: zwn_green !< normalized green layer depths (m)
	517
	518	#if defined( __nopointer )
	519	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_h !< wall surface temperature (K) at horizontal walls
	520	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_h_p !< progn. wall surface temperature (K) at horizontal walls
	521	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_window_h !< window surface temperature (K) at horizontal walls
	522	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_window_h_p !< progn. window surface temperature (K) at horizontal walls
	523	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_green_h !< green surface temperature (K) at horizontal walls
	524	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_green_h_p !< progn. green surface temperature (K) at horizontal walls
	525	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_whole_h !< whole surface temperature (K) at horizontal walls
	526	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_whole_h_p !< progn. whole surface temperature (K) at horizontal walls
	527	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_10cm_h !< near surface temperature (10cm) (K) at horizontal walls
	528	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_10cm_h_p !< progn. near surface temperature (10cm) (K) at horizontal walls
	529	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_v
	530	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_v_p
	531	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_window_v
	532	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_window_v_p
	533	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_green_v
	534	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_green_v_p
	535	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_whole_v
	536	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_whole_v_p
	537	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_10cm_v
	538	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_10cm_v_p
	539	#else
	540	REAL(wp), DIMENSION(:), POINTER :: t_surf_h
	541	REAL(wp), DIMENSION(:), POINTER :: t_surf_h_p
	542	REAL(wp), DIMENSION(:), POINTER :: t_surf_window_h
	543	REAL(wp), DIMENSION(:), POINTER :: t_surf_window_h_p
	544	REAL(wp), DIMENSION(:), POINTER :: t_surf_green_h
	545	REAL(wp), DIMENSION(:), POINTER :: t_surf_green_h_p
	546	REAL(wp), DIMENSION(:), POINTER :: t_surf_whole_h
	547	REAL(wp), DIMENSION(:), POINTER :: t_surf_whole_h_p
	548	REAL(wp), DIMENSION(:), POINTER :: t_surf_10cm_h
	549	REAL(wp), DIMENSION(:), POINTER :: t_surf_10cm_h_p
	550
	551	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_h_1
	552	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_h_2
	553	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_window_h_1
	554	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_window_h_2
	555	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_green_h_1
	556	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_green_h_2
	557	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_whole_h_1
	558	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_whole_h_2
	559	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_10cm_h_1
	560	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_10cm_h_2
	561
	562	TYPE(t_surf_vertical), DIMENSION(:), POINTER :: t_surf_v
	563	TYPE(t_surf_vertical), DIMENSION(:), POINTER :: t_surf_v_p
	564	TYPE(t_surf_vertical), DIMENSION(:), POINTER :: t_surf_window_v
	565	TYPE(t_surf_vertical), DIMENSION(:), POINTER :: t_surf_window_v_p
	566	TYPE(t_surf_vertical), DIMENSION(:), POINTER :: t_surf_green_v
	567	TYPE(t_surf_vertical), DIMENSION(:), POINTER :: t_surf_green_v_p
	568	TYPE(t_surf_vertical), DIMENSION(:), POINTER :: t_surf_whole_v
	569	TYPE(t_surf_vertical), DIMENSION(:), POINTER :: t_surf_whole_v_p
	570	TYPE(t_surf_vertical), DIMENSION(:), POINTER :: t_surf_10cm_v
	571	TYPE(t_surf_vertical), DIMENSION(:), POINTER :: t_surf_10cm_v_p
	572
	573	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_v_1
	574	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_v_2
	575	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_window_v_1
	576	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_window_v_2
	577	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_green_v_1
	578	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_green_v_2
	579	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_whole_v_1
	580	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_whole_v_2
	581	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_10cm_v_1
	582	TYPE(t_surf_vertical), DIMENSION(0:3), TARGET :: t_surf_10cm_v_2
	583
	584	#endif
	585	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_av !< average of wall surface temperature (K)
	586	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_window_av !< average of window surface temperature (K)
	587	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_green_av !< average of green wall surface temperature (K)
	588	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_whole_av !< average of whole wall surface temperature (K)
	589	REAL(wp), DIMENSION(:), ALLOCATABLE, TARGET :: t_surf_10cm_av !< average of whole wall surface temperature (K)
	590
	591	!-- Temporal tendencies for time stepping
	592	REAL(wp), DIMENSION(:), ALLOCATABLE :: tt_surface_m !< surface temperature tendency of wall (K)
	593	REAL(wp), DIMENSION(:), ALLOCATABLE :: tt_surface_window_m !< surface temperature tendency of window (K)
	594	REAL(wp), DIMENSION(:), ALLOCATABLE :: tt_surface_green_m !< surface temperature tendency of green wall (K)
	595
	596	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	597	!-- Energy balance variables
	598	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	599	!-- parameters of the land, roof and wall surfaces
	600
	601	#if defined( __nopointer )
	602	REAL(wp), DIMENSION(:,:), ALLOCATABLE, TARGET :: t_wall_h !< Wall temperature (K)
	603	REAL(wp), DIMENSION(:,:), ALLOCATABLE, TARGET :: t_wall_h_av !< Average of t_wall
	604	REAL(wp), DIMENSION(:,:), ALLOCATABLE, TARGET :: t_wall_h_p !< Prog. wall temperature (K)
	605	REAL(wp), DIMENSION(:,:), ALLOCATABLE, TARGET :: t_window_h !< Window temperature (K)
	606	REAL(wp), DIMENSION(:,:), ALLOCATABLE, TARGET :: t_window_h_av !< Average of t_window
	607	REAL(wp), DIMENSION(:,:), ALLOCATABLE, TARGET :: t_window_h_p !< Prog. window temperature (K)
	608	REAL(wp), DIMENSION(:,:), ALLOCATABLE, TARGET :: t_green_h !< Green temperature (K)
	609	REAL(wp), DIMENSION(:,:), ALLOCATABLE, TARGET :: t_green_h_av !< Average of t_green
	610	REAL(wp), DIMENSION(:,:), ALLOCATABLE, TARGET :: t_green_h_p !< Prog. green temperature (K)
	611
	612	TYPE(t_wall_vertical), DIMENSION(0:3), TARGET :: t_wall_v !< Wall temperature (K)
	613	TYPE(t_wall_vertical), DIMENSION(0:3), TARGET :: t_wall_v_av !< Average of t_wall
	614	TYPE(t_wall_vertical), DIMENSION(0:3), TARGET :: t_wall_v_p !< Prog. wall temperature (K)
	615	TYPE(t_wall_vertical), DIMENSION(0:3), TARGET :: t_window_v !< Window temperature (K)
	616	TYPE(t_wall_vertical), DIMENSION(0:3), TARGET :: t_window_v_av !< Average of t_window
	617	TYPE(t_wall_vertical), DIMENSION(0:3), TARGET :: t_window_v_p !< Prog. window temperature (K)
	618	TYPE(t_wall_vertical), DIMENSION(0:3), TARGET :: t_green_v !< Green temperature (K)
	619	TYPE(t_wall_vertical), DIMENSION(0:3), TARGET :: t_green_v_av !< Average of t_green
	620	TYPE(t_wall_vertical), DIMENSION(0:3), TARGET :: t_green_v_p !< Prog. green temperature (K)
	621	#else
	622	REAL(wp), DIMENSION(:,:), POINTER :: t_wall_h, t_wall_h_p
	623	REAL(wp), DIMENSION(:,:), ALLOCATABLE, TARGET :: t_wall_h_av, t_wall_h_1, t_wall_h_2
	624	REAL(wp), DIMENSION(:,:), POINTER :: t_window_h, t_window_h_p
	625	REAL(wp), DIMENSION(:,:), ALLOCATABLE, TARGET :: t_window_h_av, t_window_h_1, t_window_h_2
	626	REAL(wp), DIMENSION(:,:), POINTER :: t_green_h, t_green_h_p
	627	REAL(wp), DIMENSION(:,:), ALLOCATABLE, TARGET :: t_green_h_av, t_green_h_1, t_green_h_2
	628
	629	TYPE(t_wall_vertical), DIMENSION(:), POINTER :: t_wall_v, t_wall_v_p
	630	TYPE(t_wall_vertical), DIMENSION(0:3), TARGET :: t_wall_v_av, t_wall_v_1, t_wall_v_2
	631	TYPE(t_wall_vertical), DIMENSION(:), POINTER :: t_window_v, t_window_v_p
	632	TYPE(t_wall_vertical), DIMENSION(0:3), TARGET :: t_window_v_av, t_window_v_1, t_window_v_2
	633	TYPE(t_wall_vertical), DIMENSION(:), POINTER :: t_green_v, t_green_v_p
	634	TYPE(t_wall_vertical), DIMENSION(0:3), TARGET :: t_green_v_av, t_green_v_1, t_green_v_2
	635	#endif
	636
	637	!-- Wall temporal tendencies for time stepping
	638	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: tt_wall_m !< t_wall prognostic array
	639	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: tt_window_m !< t_window prognostic array
	640	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: tt_green_m !< t_green prognostic array
	641
	642	!-- Surface and material parameters classes (surface_type)
	643	!-- albedo, emissivity, lambda_surf, roughness, thickness, volumetric heat capacity, thermal conductivity
	644	INTEGER(iwp) :: n_surface_types !< number of the wall type categories
	645	INTEGER(iwp), PARAMETER :: n_surface_params = 8 !< number of parameters for each type of the wall
	646	INTEGER(iwp), PARAMETER :: ialbedo = 1 !< albedo of the surface
	647	INTEGER(iwp), PARAMETER :: iemiss = 2 !< emissivity of the surface
	648	INTEGER(iwp), PARAMETER :: ilambdas = 3 !< heat conductivity Î»S between air and surface ( W mâ2 Kâ1 )
	649	INTEGER(iwp), PARAMETER :: irough = 4 !< roughness relative to concrete
	650	INTEGER(iwp), PARAMETER :: icsurf = 5 !< Surface skin layer heat capacity (J mâ2 Kâ1 )
	651	INTEGER(iwp), PARAMETER :: ithick = 6 !< thickness of the surface (wall, roof, land) ( m )
	652	INTEGER(iwp), PARAMETER :: irhoC = 7 !< volumetric heat capacity rho*C of the material ( J mâ3 Kâ1 )
	653	INTEGER(iwp), PARAMETER :: ilambdah = 8 !< thermal conductivity Î»H of the wall (W mâ1 Kâ1 )
	654	CHARACTER(12), DIMENSION(:), ALLOCATABLE :: surface_type_names !< names of wall types (used only for reports)
	655	INTEGER(iwp), DIMENSION(:), ALLOCATABLE :: surface_type_codes !< codes of wall types
	656	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: surface_params !< parameters of wall types
	657
	658
	659	!-- interfaces of subroutines accessed from outside of this module
	660	INTERFACE usm_boundary_condition
	661	MODULE PROCEDURE usm_boundary_condition
	662	END INTERFACE usm_boundary_condition
	663
	664	INTERFACE usm_check_data_output
	665	MODULE PROCEDURE usm_check_data_output
	666	END INTERFACE usm_check_data_output
	667
	668	INTERFACE usm_check_parameters
	669	MODULE PROCEDURE usm_check_parameters
	670	END INTERFACE usm_check_parameters
	671
	672	INTERFACE usm_data_output_3d
	673	MODULE PROCEDURE usm_data_output_3d
	674	END INTERFACE usm_data_output_3d
	675
	676	INTERFACE usm_define_netcdf_grid
	677	MODULE PROCEDURE usm_define_netcdf_grid
	678	END INTERFACE usm_define_netcdf_grid
	679
	680	INTERFACE usm_init_urban_surface
	681	MODULE PROCEDURE usm_init_urban_surface
	682	END INTERFACE usm_init_urban_surface
	683
	684	INTERFACE usm_material_heat_model
	685	MODULE PROCEDURE usm_material_heat_model
	686	END INTERFACE usm_material_heat_model
	687
	688	INTERFACE usm_green_heat_model
	689	MODULE PROCEDURE usm_green_heat_model
	690	END INTERFACE usm_green_heat_model
	691
	692	INTERFACE usm_parin
	693	MODULE PROCEDURE usm_parin
	694	END INTERFACE usm_parin
	695
	696	INTERFACE usm_temperature_near_surface
	697	MODULE PROCEDURE usm_temperature_near_surface
	698	END INTERFACE usm_temperature_near_surface
	699
	700	INTERFACE usm_read_restart_data
	701	MODULE PROCEDURE usm_read_restart_data
	702	END INTERFACE usm_read_restart_data
	703
	704	INTERFACE usm_surface_energy_balance
	705	MODULE PROCEDURE usm_surface_energy_balance
	706	END INTERFACE usm_surface_energy_balance
	707
	708	INTERFACE usm_swap_timelevel
	709	MODULE PROCEDURE usm_swap_timelevel
	710	END INTERFACE usm_swap_timelevel
	711
	712	INTERFACE usm_write_restart_data
	713	MODULE PROCEDURE usm_write_restart_data
	714	END INTERFACE usm_write_restart_data
	715
	716	INTERFACE usm_allocate_surface
	717	MODULE PROCEDURE usm_allocate_surface
	718	END INTERFACE usm_allocate_surface
	719
	720	INTERFACE usm_average_3d_data
	721	MODULE PROCEDURE usm_average_3d_data
	722	END INTERFACE usm_average_3d_data
	723
	724
	725	SAVE
	726
	727	PRIVATE
	728
	729	!-- Public functions
	730	PUBLIC usm_boundary_condition, usm_check_parameters, usm_init_urban_surface,&
	731	usm_read_restart_data, &
	732	usm_surface_energy_balance, usm_material_heat_model, &
	733	usm_swap_timelevel, usm_check_data_output, usm_average_3d_data, &
	734	usm_data_output_3d, usm_define_netcdf_grid, usm_parin, &
	735	usm_write_restart_data, usm_allocate_surface
	736
	737	!-- Public parameters, constants and initial values
	738	PUBLIC usm_anthropogenic_heat, usm_material_model, ra_horiz_coef, &
	739	usm_green_heat_model, usm_temperature_near_surface
	740
	741
	742
	743	CONTAINS
	744
	745	!------------------------------------------------------------------------------!
	746	! Description:
	747	! ------------
	748	!> This subroutine creates the necessary indices of the urban surfaces
	749	!> and plant canopy and it allocates the needed arrays for USM
	750	!------------------------------------------------------------------------------!
	751	SUBROUTINE usm_allocate_surface
	752
	753	IMPLICIT NONE
	754
	755	INTEGER(iwp) :: l
	756
	757	!
	758	!-- Allocate radiation arrays which are part of the new data type.
	759	!-- For horizontal surfaces.
	760	ALLOCATE( surf_usm_h%surfhf(1:surf_usm_h%ns) )
	761	ALLOCATE( surf_usm_h%rad_net_l(1:surf_usm_h%ns) )
	762	!
	763	!-- For vertical surfaces
	764	DO l = 0, 3
	765	ALLOCATE( surf_usm_v(l)%surfhf(1:surf_usm_v(l)%ns) )
	766	ALLOCATE( surf_usm_v(l)%rad_net_l(1:surf_usm_v(l)%ns) )
	767	ENDDO
	768
	769	!-- Wall surface model
	770	!-- allocate arrays for wall surface model and define pointers
	771
	772	!-- allocate array of wall types and wall parameters
	773	ALLOCATE ( surf_usm_h%surface_types(1:surf_usm_h%ns) )
	774	DO l = 0, 3
	775	ALLOCATE( surf_usm_v(l)%surface_types(1:surf_usm_v(l)%ns) )
	776	ENDDO
	777	!
	778	!-- Allocate albedo_type and albedo. Each surface element
	779	!-- has 3 values, 0: wall fraction, 1: green fraction, 2: window fraction.
	780	ALLOCATE( surf_usm_h%albedo_type(0:2,1:surf_usm_h%ns) )
	781	ALLOCATE( surf_usm_h%albedo(0:2,1:surf_usm_h%ns) )
	782	surf_usm_h%albedo_type = albedo_type
	783	DO l = 0, 3
	784	ALLOCATE( surf_usm_v(l)%albedo_type(0:2,1:surf_usm_v(l)%ns) )
	785	ALLOCATE( surf_usm_v(l)%albedo(0:2,1:surf_usm_v(l)%ns) )
	786	surf_usm_v(l)%albedo_type = albedo_type
	787	ENDDO
	788
	789
	790	!
	791	!-- Allocate indoor target temperature for summer and winter
	792	ALLOCATE( surf_usm_h%target_temp_summer(1:surf_usm_h%ns) )
	793	ALLOCATE( surf_usm_h%target_temp_winter(1:surf_usm_h%ns) )
	794	DO l = 0, 3
	795	ALLOCATE( surf_usm_v(l)%target_temp_summer(1:surf_usm_v(l)%ns) )
	796	ALLOCATE( surf_usm_v(l)%target_temp_winter(1:surf_usm_v(l)%ns) )
	797	ENDDO
	798	!
	799	!-- Allocate flag indicating ground floor level surface elements
	800	ALLOCATE ( surf_usm_h%ground_level(1:surf_usm_h%ns) )
	801	DO l = 0, 3
	802	ALLOCATE( surf_usm_v(l)%ground_level(1:surf_usm_v(l)%ns) )
	803	ENDDO
	804	!
	805	!-- Allocate arrays for relative surface fraction.
	806	!-- 0 - wall fraction, 1 - green fraction, 2 - window fraction
	807	ALLOCATE( surf_usm_h%frac(0:2,1:surf_usm_h%ns) )
	808	surf_usm_h%frac = 0.0_wp
	809	DO l = 0, 3
	810	ALLOCATE( surf_usm_v(l)%frac(0:2,1:surf_usm_v(l)%ns) )
	811	surf_usm_v(l)%frac = 0.0_wp
	812	ENDDO
	813
	814	!-- wall and roof surface parameters. First for horizontal surfaces
	815	ALLOCATE ( surf_usm_h%isroof_surf(1:surf_usm_h%ns) )
	816	ALLOCATE ( surf_usm_h%lambda_surf(1:surf_usm_h%ns) )
	817	ALLOCATE ( surf_usm_h%lambda_surf_window(1:surf_usm_h%ns) )
	818	ALLOCATE ( surf_usm_h%lambda_surf_green(1:surf_usm_h%ns) )
	819	ALLOCATE ( surf_usm_h%c_surface(1:surf_usm_h%ns) )
	820	ALLOCATE ( surf_usm_h%c_surface_window(1:surf_usm_h%ns) )
	821	ALLOCATE ( surf_usm_h%c_surface_green(1:surf_usm_h%ns) )
	822	ALLOCATE ( surf_usm_h%transmissivity(1:surf_usm_h%ns) )
	823	ALLOCATE ( surf_usm_h%lai(1:surf_usm_h%ns) )
	824	ALLOCATE ( surf_usm_h%emissivity(0:2,1:surf_usm_h%ns) )
	825
	826	!
	827	!-- For vertical surfaces.
	828	DO l = 0, 3
	829	ALLOCATE ( surf_usm_v(l)%lambda_surf(1:surf_usm_v(l)%ns) )
	830	ALLOCATE ( surf_usm_v(l)%c_surface(1:surf_usm_v(l)%ns) )
	831	ALLOCATE ( surf_usm_v(l)%lambda_surf_window(1:surf_usm_v(l)%ns) )
	832	ALLOCATE ( surf_usm_v(l)%c_surface_window(1:surf_usm_v(l)%ns) )
	833	ALLOCATE ( surf_usm_v(l)%lambda_surf_green(1:surf_usm_v(l)%ns) )
	834	ALLOCATE ( surf_usm_v(l)%c_surface_green(1:surf_usm_v(l)%ns) )
	835	ALLOCATE ( surf_usm_v(l)%transmissivity(1:surf_usm_v(l)%ns) )
	836	ALLOCATE ( surf_usm_v(l)%lai(1:surf_usm_v(l)%ns) )
	837
	838	ALLOCATE ( surf_usm_v(l)%emissivity(0:2,1:surf_usm_v(l)%ns) )
	839	ENDDO
	840
	841	!
	842	!-- allocate wall and roof material parameters. First for horizontal surfaces
	843	ALLOCATE ( surf_usm_h%thickness_wall(1:surf_usm_h%ns) )
	844	ALLOCATE ( surf_usm_h%thickness_window(1:surf_usm_h%ns) )
	845	ALLOCATE ( surf_usm_h%thickness_green(1:surf_usm_h%ns) )
	846	ALLOCATE ( surf_usm_h%lambda_h(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	847	ALLOCATE ( surf_usm_h%rho_c_wall(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	848	ALLOCATE ( surf_usm_h%lambda_h_window(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	849	ALLOCATE ( surf_usm_h%rho_c_window(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	850	ALLOCATE ( surf_usm_h%lambda_h_green(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	851	ALLOCATE ( surf_usm_h%rho_c_green(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	852
	853	!
	854	!-- For vertical surfaces.
	855	DO l = 0, 3
	856	ALLOCATE ( surf_usm_v(l)%thickness_wall(1:surf_usm_v(l)%ns) )
	857	ALLOCATE ( surf_usm_v(l)%thickness_window(1:surf_usm_v(l)%ns) )
	858	ALLOCATE ( surf_usm_v(l)%thickness_green(1:surf_usm_v(l)%ns) )
	859	ALLOCATE ( surf_usm_v(l)%lambda_h(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	860	ALLOCATE ( surf_usm_v(l)%rho_c_wall(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	861	ALLOCATE ( surf_usm_v(l)%lambda_h_window(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	862	ALLOCATE ( surf_usm_v(l)%rho_c_window(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	863	ALLOCATE ( surf_usm_v(l)%lambda_h_green(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	864	ALLOCATE ( surf_usm_v(l)%rho_c_green(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	865	ENDDO
	866
	867	!-- allocate wall and roof layers sizes. For horizontal surfaces.
	868	ALLOCATE ( zwn(nzb_wall:nzt_wall) )
	869	ALLOCATE ( surf_usm_h%dz_wall(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	870	ALLOCATE ( zwn_window(nzb_wall:nzt_wall) )
	871	ALLOCATE ( surf_usm_h%dz_window(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	872	ALLOCATE ( zwn_green(nzb_wall:nzt_wall) )
	873	ALLOCATE ( surf_usm_h%dz_green(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	874	ALLOCATE ( surf_usm_h%ddz_wall(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	875	ALLOCATE ( surf_usm_h%dz_wall_stag(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	876	ALLOCATE ( surf_usm_h%ddz_wall_stag(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	877	ALLOCATE ( surf_usm_h%zw(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	878	ALLOCATE ( surf_usm_h%ddz_window(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	879	ALLOCATE ( surf_usm_h%dz_window_stag(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	880	ALLOCATE ( surf_usm_h%ddz_window_stag(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	881	ALLOCATE ( surf_usm_h%zw_window(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	882	ALLOCATE ( surf_usm_h%ddz_green(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	883	ALLOCATE ( surf_usm_h%dz_green_stag(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	884	ALLOCATE ( surf_usm_h%ddz_green_stag(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	885	ALLOCATE ( surf_usm_h%zw_green(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	886	!
	887	!-- For vertical surfaces.
	888	DO l = 0, 3
	889	ALLOCATE ( surf_usm_v(l)%dz_wall(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	890	ALLOCATE ( surf_usm_v(l)%dz_window(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	891	ALLOCATE ( surf_usm_v(l)%dz_green(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	892	ALLOCATE ( surf_usm_v(l)%ddz_wall(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	893	ALLOCATE ( surf_usm_v(l)%dz_wall_stag(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	894	ALLOCATE ( surf_usm_v(l)%ddz_wall_stag(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	895	ALLOCATE ( surf_usm_v(l)%zw(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	896	ALLOCATE ( surf_usm_v(l)%ddz_window(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	897	ALLOCATE ( surf_usm_v(l)%dz_window_stag(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	898	ALLOCATE ( surf_usm_v(l)%ddz_window_stag(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	899	ALLOCATE ( surf_usm_v(l)%zw_window(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	900	ALLOCATE ( surf_usm_v(l)%ddz_green(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	901	ALLOCATE ( surf_usm_v(l)%dz_green_stag(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	902	ALLOCATE ( surf_usm_v(l)%ddz_green_stag(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	903	ALLOCATE ( surf_usm_v(l)%zw_green(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	904	ENDDO
	905
	906	!-- allocate wall and roof temperature arrays, for horizontal walls
	907	#if defined( __nopointer )
	908	IF ( .NOT. ALLOCATED( t_surf_h ) ) &
	909	ALLOCATE ( t_surf_h(1:surf_usm_h%ns) )
	910	IF ( .NOT. ALLOCATED( t_surf_h_p ) ) &
	911	ALLOCATE ( t_surf_h_p(1:surf_usm_h%ns) )
	912	IF ( .NOT. ALLOCATED( t_wall_h ) ) &
	913	ALLOCATE ( t_wall_h(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	914	IF ( .NOT. ALLOCATED( t_wall_h_p ) ) &
	915	ALLOCATE ( t_wall_h_p(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	916	IF ( .NOT. ALLOCATED( t_surf_window_h ) ) &
	917	ALLOCATE ( t_surf_window_h(1:surf_usm_h%ns) )
	918	IF ( .NOT. ALLOCATED( t_surf_window_h_p ) ) &
	919	ALLOCATE ( t_surf_window_h_p(1:surf_usm_h%ns) )
	920	IF ( .NOT. ALLOCATED( t_window_h ) ) &
	921	ALLOCATE ( t_window_h(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	922	IF ( .NOT. ALLOCATED( t_window_h_p ) ) &
	923	ALLOCATE ( t_window_h_p(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	924	IF ( .NOT. ALLOCATED( t_surf_green_h ) ) &
	925	ALLOCATE ( t_surf_green_h(1:surf_usm_h%ns) )
	926	IF ( .NOT. ALLOCATED( t_surf_green_h_p ) ) &
	927	ALLOCATE ( t_surf_green_h_p(1:surf_usm_h%ns) )
	928	IF ( .NOT. ALLOCATED( t_green_h ) ) &
	929	ALLOCATE ( t_green_h(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	930	IF ( .NOT. ALLOCATED( t_green_h_p ) ) &
	931	ALLOCATE ( t_green_h_p(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	932	IF ( .NOT. ALLOCATED( t_surf_whole_h ) ) &
	933	ALLOCATE ( t_surf_whole_h(1:surf_usm_h%ns) )
	934	IF ( .NOT. ALLOCATED( t_surf_whole_h_p ) ) &
	935	ALLOCATE ( t_surf_whole_h_p(1:surf_usm_h%ns) )
	936	IF ( .NOT. ALLOCATED( t_surf_10cm_h ) ) &
	937	ALLOCATE ( t_surf_10cm_h(1:surf_usm_h%ns) )
	938	IF ( .NOT. ALLOCATED( t_surf_10cm_h_p ) ) &
	939	ALLOCATE ( t_surf_10cm_h_p(1:surf_usm_h%ns) )
	940	#else
	941	!
	942	!-- Allocate if required. Note, in case of restarts, some of these arrays
	943	!-- might be already allocated.
	944	IF ( .NOT. ALLOCATED( t_surf_h_1 ) ) &
	945	ALLOCATE ( t_surf_h_1(1:surf_usm_h%ns) )
	946	IF ( .NOT. ALLOCATED( t_surf_h_2 ) ) &
	947	ALLOCATE ( t_surf_h_2(1:surf_usm_h%ns) )
	948	IF ( .NOT. ALLOCATED( t_wall_h_1 ) ) &
	949	ALLOCATE ( t_wall_h_1(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	950	IF ( .NOT. ALLOCATED( t_wall_h_2 ) ) &
	951	ALLOCATE ( t_wall_h_2(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	952	IF ( .NOT. ALLOCATED( t_surf_window_h_1 ) ) &
	953	ALLOCATE ( t_surf_window_h_1(1:surf_usm_h%ns) )
	954	IF ( .NOT. ALLOCATED( t_surf_window_h_2 ) ) &
	955	ALLOCATE ( t_surf_window_h_2(1:surf_usm_h%ns) )
	956	IF ( .NOT. ALLOCATED( t_window_h_1 ) ) &
	957	ALLOCATE ( t_window_h_1(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	958	IF ( .NOT. ALLOCATED( t_window_h_2 ) ) &
	959	ALLOCATE ( t_window_h_2(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	960	IF ( .NOT. ALLOCATED( t_surf_green_h_1 ) ) &
	961	ALLOCATE ( t_surf_green_h_1(1:surf_usm_h%ns) )
	962	IF ( .NOT. ALLOCATED( t_surf_green_h_2 ) ) &
	963	ALLOCATE ( t_surf_green_h_2(1:surf_usm_h%ns) )
	964	IF ( .NOT. ALLOCATED( t_green_h_1 ) ) &
	965	ALLOCATE ( t_green_h_1(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	966	IF ( .NOT. ALLOCATED( t_green_h_2 ) ) &
	967	ALLOCATE ( t_green_h_2(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	968	IF ( .NOT. ALLOCATED( t_surf_whole_h_1 ) ) &
	969	ALLOCATE ( t_surf_whole_h_1(1:surf_usm_h%ns) )
	970	IF ( .NOT. ALLOCATED( t_surf_whole_h_2 ) ) &
	971	ALLOCATE ( t_surf_whole_h_2(1:surf_usm_h%ns) )
	972	IF ( .NOT. ALLOCATED( t_surf_10cm_h_1 ) ) &
	973	ALLOCATE ( t_surf_10cm_h_1(1:surf_usm_h%ns) )
	974	IF ( .NOT. ALLOCATED( t_surf_10cm_h_2 ) ) &
	975	ALLOCATE ( t_surf_10cm_h_2(1:surf_usm_h%ns) )
	976	!
	977	!-- initial assignment of the pointers
	978	t_wall_h => t_wall_h_1; t_wall_h_p => t_wall_h_2
	979	t_window_h => t_window_h_1; t_window_h_p => t_window_h_2
	980	t_green_h => t_green_h_1; t_green_h_p => t_green_h_2
	981	t_surf_h => t_surf_h_1; t_surf_h_p => t_surf_h_2
	982	t_surf_window_h => t_surf_window_h_1; t_surf_window_h_p => t_surf_window_h_2
	983	t_surf_green_h => t_surf_green_h_1; t_surf_green_h_p => t_surf_green_h_2
	984	t_surf_whole_h => t_surf_whole_h_1; t_surf_whole_h_p => t_surf_whole_h_2
	985	t_surf_10cm_h => t_surf_10cm_h_1; t_surf_10cm_h_p => t_surf_10cm_h_2
	986
	987	#endif
	988
	989	!-- allocate wall and roof temperature arrays, for vertical walls if required
	990	#if defined( __nopointer )
	991	DO l = 0, 3
	992	IF ( .NOT. ALLOCATED( t_surf_v(l)%t ) ) &
	993	ALLOCATE ( t_surf_v(l)%t(1:surf_usm_v(l)%ns) )
	994	IF ( .NOT. ALLOCATED( t_surf_v_p(l)%t ) ) &
	995	ALLOCATE ( t_surf_v_p(l)%t(1:surf_usm_v(l)%ns) )
	996	IF ( .NOT. ALLOCATED( t_wall_v(l)%t ) ) &
	997	ALLOCATE ( t_wall_v(l)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	998	IF ( .NOT. ALLOCATED( t_wall_v_p(l)%t ) ) &
	999	ALLOCATE ( t_wall_v_p(l)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	1000	IF ( .NOT. ALLOCATED( t_surf_window_v(l)%t ) ) &
	1001	ALLOCATE ( t_surf_window_v(l)%t(1:surf_usm_v(l)%ns) )
	1002	IF ( .NOT. ALLOCATED( t_surf_window_v_p(l)%t ) ) &
	1003	ALLOCATE ( t_surf_window_v_p(l)%t(1:surf_usm_v(l)%ns) )
	1004	IF ( .NOT. ALLOCATED( t_window_v(l)%t ) ) &
	1005	ALLOCATE ( t_window_v(l)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	1006	IF ( .NOT. ALLOCATED( t_window_v_p(l)%t ) ) &
	1007	ALLOCATE ( t_window_v_p(l)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	1008	IF ( .NOT. ALLOCATED( t_green_v(l)%t ) ) &
	1009	ALLOCATE ( t_green_v(l)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	1010	IF ( .NOT. ALLOCATED( t_green_v_p(l)%t ) ) &
	1011	ALLOCATE ( t_green_v_p(l)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	1012	IF ( .NOT. ALLOCATED( t_surf_green_v(l)%t ) ) &
	1013	ALLOCATE ( t_surf_green_v(l)%t(1:surf_usm_v(l)%ns) )
	1014	IF ( .NOT. ALLOCATED( t_surf_green_v_p(l)%t ) ) &
	1015	ALLOCATE ( t_surf_green_v_p(l)%t(1:surf_usm_v(l)%ns) )
	1016	IF ( .NOT. ALLOCATED( t_surf_whole_v(l)%t ) ) &
	1017	ALLOCATE ( t_surf_whole_v(l)%t(1:surf_usm_v(l)%ns) )
	1018	IF ( .NOT. ALLOCATED( t_surf_whole_v_p(l)%t ) ) &
	1019	ALLOCATE ( t_surf_whole_v_p(l)%t(1:surf_usm_v(l)%ns) )
	1020	IF ( .NOT. ALLOCATED( t_surf_10cm_v(l)%t ) ) &
	1021	ALLOCATE ( t_surf_10cm_v(l)%t(1:surf_usm_v(l)%ns) )
	1022	IF ( .NOT. ALLOCATED( t_surf_10cm_v_p(l)%t ) ) &
	1023	ALLOCATE ( t_surf_10cm_v_p(l)%t(1:surf_usm_v(l)%ns) )
	1024	ENDDO
	1025	#else
	1026	!
	1027	!-- Allocate if required. Note, in case of restarts, some of these arrays
	1028	!-- might be already allocated.
	1029	DO l = 0, 3
	1030	IF ( .NOT. ALLOCATED( t_surf_v_1(l)%t ) ) &
	1031	ALLOCATE ( t_surf_v_1(l)%t(1:surf_usm_v(l)%ns) )
	1032	IF ( .NOT. ALLOCATED( t_surf_v_2(l)%t ) ) &
	1033	ALLOCATE ( t_surf_v_2(l)%t(1:surf_usm_v(l)%ns) )
	1034	IF ( .NOT. ALLOCATED( t_wall_v_1(l)%t ) ) &
	1035	ALLOCATE ( t_wall_v_1(l)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	1036	IF ( .NOT. ALLOCATED( t_wall_v_2(l)%t ) ) &
	1037	ALLOCATE ( t_wall_v_2(l)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	1038	IF ( .NOT. ALLOCATED( t_surf_window_v_1(l)%t ) ) &
	1039	ALLOCATE ( t_surf_window_v_1(l)%t(1:surf_usm_v(l)%ns) )
	1040	IF ( .NOT. ALLOCATED( t_surf_window_v_2(l)%t ) ) &
	1041	ALLOCATE ( t_surf_window_v_2(l)%t(1:surf_usm_v(l)%ns) )
	1042	IF ( .NOT. ALLOCATED( t_window_v_1(l)%t ) ) &
	1043	ALLOCATE ( t_window_v_1(l)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	1044	IF ( .NOT. ALLOCATED( t_window_v_2(l)%t ) ) &
	1045	ALLOCATE ( t_window_v_2(l)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	1046	IF ( .NOT. ALLOCATED( t_surf_green_v_1(l)%t ) ) &
	1047	ALLOCATE ( t_surf_green_v_1(l)%t(1:surf_usm_v(l)%ns) )
	1048	IF ( .NOT. ALLOCATED( t_surf_green_v_2(l)%t ) ) &
	1049	ALLOCATE ( t_surf_green_v_2(l)%t(1:surf_usm_v(l)%ns) )
	1050	IF ( .NOT. ALLOCATED( t_green_v_1(l)%t ) ) &
	1051	ALLOCATE ( t_green_v_1(l)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	1052	IF ( .NOT. ALLOCATED( t_green_v_2(l)%t ) ) &
	1053	ALLOCATE ( t_green_v_2(l)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	1054	IF ( .NOT. ALLOCATED( t_surf_whole_v_1(l)%t ) ) &
	1055	ALLOCATE ( t_surf_whole_v_1(l)%t(1:surf_usm_v(l)%ns) )
	1056	IF ( .NOT. ALLOCATED( t_surf_whole_v_2(l)%t ) ) &
	1057	ALLOCATE ( t_surf_whole_v_2(l)%t(1:surf_usm_v(l)%ns) )
	1058	IF ( .NOT. ALLOCATED( t_surf_10cm_v_1(l)%t ) ) &
	1059	ALLOCATE ( t_surf_10cm_v_1(l)%t(1:surf_usm_v(l)%ns) )
	1060	IF ( .NOT. ALLOCATED( t_surf_10cm_v_2(l)%t ) ) &
	1061	ALLOCATE ( t_surf_10cm_v_2(l)%t(1:surf_usm_v(l)%ns) )
	1062	ENDDO
	1063	!
	1064	!-- initial assignment of the pointers
	1065	t_wall_v => t_wall_v_1; t_wall_v_p => t_wall_v_2
	1066	t_surf_v => t_surf_v_1; t_surf_v_p => t_surf_v_2
	1067	t_window_v => t_window_v_1; t_window_v_p => t_window_v_2
	1068	t_green_v => t_green_v_1; t_green_v_p => t_green_v_2
	1069	t_surf_window_v => t_surf_window_v_1; t_surf_window_v_p => t_surf_window_v_2
	1070	t_surf_green_v => t_surf_green_v_1; t_surf_green_v_p => t_surf_green_v_2
	1071	t_surf_whole_v => t_surf_whole_v_1; t_surf_whole_v_p => t_surf_whole_v_2
	1072	t_surf_10cm_v => t_surf_10cm_v_1; t_surf_10cm_v_p => t_surf_10cm_v_2
	1073
	1074	#endif
	1075	!
	1076	!-- Allocate intermediate timestep arrays. For horizontal surfaces.
	1077	ALLOCATE ( surf_usm_h%tt_surface_m(1:surf_usm_h%ns) )
	1078	ALLOCATE ( surf_usm_h%tt_wall_m(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	1079	ALLOCATE ( surf_usm_h%tt_surface_window_m(1:surf_usm_h%ns) )
	1080	ALLOCATE ( surf_usm_h%tt_window_m(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	1081	ALLOCATE ( surf_usm_h%tt_green_m(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	1082	ALLOCATE ( surf_usm_h%tt_surface_green_m(1:surf_usm_h%ns) )
	1083
	1084	!
	1085	!-- Set inital values for prognostic quantities
	1086	IF ( ALLOCATED( surf_usm_h%tt_surface_m ) ) surf_usm_h%tt_surface_m = 0.0_wp
	1087	IF ( ALLOCATED( surf_usm_h%tt_wall_m ) ) surf_usm_h%tt_wall_m = 0.0_wp
	1088	IF ( ALLOCATED( surf_usm_h%tt_surface_window_m ) ) surf_usm_h%tt_surface_window_m = 0.0_wp
	1089	IF ( ALLOCATED( surf_usm_h%tt_window_m ) ) surf_usm_h%tt_window_m = 0.0_wp
	1090	IF ( ALLOCATED( surf_usm_h%tt_green_m ) ) surf_usm_h%tt_green_m = 0.0_wp
	1091	IF ( ALLOCATED( surf_usm_h%tt_surface_green_m ) ) surf_usm_h%tt_surface_green_m = 0.0_wp
	1092	!
	1093	!-- Now, for vertical surfaces
	1094	DO l = 0, 3
	1095	ALLOCATE ( surf_usm_v(l)%tt_surface_m(1:surf_usm_v(l)%ns) )
	1096	ALLOCATE ( surf_usm_v(l)%tt_wall_m(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	1097	IF ( ALLOCATED( surf_usm_v(l)%tt_surface_m ) ) surf_usm_v(l)%tt_surface_m = 0.0_wp
	1098	IF ( ALLOCATED( surf_usm_v(l)%tt_wall_m ) ) surf_usm_v(l)%tt_wall_m = 0.0_wp
	1099	ALLOCATE ( surf_usm_v(l)%tt_surface_window_m(1:surf_usm_v(l)%ns) )
	1100	ALLOCATE ( surf_usm_v(l)%tt_window_m(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	1101	IF ( ALLOCATED( surf_usm_v(l)%tt_surface_window_m ) ) surf_usm_v(l)%tt_surface_window_m = 0.0_wp
	1102	IF ( ALLOCATED( surf_usm_v(l)%tt_window_m ) ) surf_usm_v(l)%tt_window_m = 0.0_wp
	1103	ALLOCATE ( surf_usm_v(l)%tt_surface_green_m(1:surf_usm_v(l)%ns) )
	1104	IF ( ALLOCATED( surf_usm_v(l)%tt_surface_green_m ) ) surf_usm_v(l)%tt_surface_green_m = 0.0_wp
	1105	ALLOCATE ( surf_usm_v(l)%tt_green_m(nzb_wall:nzt_wall+1,1:surf_usm_v(l)%ns) )
	1106	IF ( ALLOCATED( surf_usm_v(l)%tt_green_m ) ) surf_usm_v(l)%tt_green_m = 0.0_wp
	1107	ENDDO
	1108
	1109	!-- allocate wall heat flux output array and set initial values. For horizontal surfaces
	1110	! ALLOCATE ( surf_usm_h%wshf(1:surf_usm_h%ns) ) !can be removed
	1111	ALLOCATE ( surf_usm_h%wshf_eb(1:surf_usm_h%ns) )
	1112	ALLOCATE ( surf_usm_h%wghf_eb(1:surf_usm_h%ns) )
	1113	ALLOCATE ( surf_usm_h%wghf_eb_window(1:surf_usm_h%ns) )
	1114	ALLOCATE ( surf_usm_h%wghf_eb_green(1:surf_usm_h%ns) )
	1115	ALLOCATE ( surf_usm_h%iwghf_eb(1:surf_usm_h%ns) )
	1116	ALLOCATE ( surf_usm_h%iwghf_eb_window(1:surf_usm_h%ns) )
	1117	IF ( ALLOCATED( surf_usm_h%wshf ) ) surf_usm_h%wshf = 0.0_wp
	1118	IF ( ALLOCATED( surf_usm_h%wshf_eb ) ) surf_usm_h%wshf_eb = 0.0_wp
	1119	IF ( ALLOCATED( surf_usm_h%wghf_eb ) ) surf_usm_h%wghf_eb = 0.0_wp
	1120	IF ( ALLOCATED( surf_usm_h%wghf_eb_window ) ) surf_usm_h%wghf_eb_window = 0.0_wp
	1121	IF ( ALLOCATED( surf_usm_h%wghf_eb_green ) ) surf_usm_h%wghf_eb_green = 0.0_wp
	1122	IF ( ALLOCATED( surf_usm_h%iwghf_eb ) ) surf_usm_h%iwghf_eb = 0.0_wp
	1123	IF ( ALLOCATED( surf_usm_h%iwghf_eb_window ) ) surf_usm_h%iwghf_eb_window = 0.0_wp
	1124	!
	1125	!-- Now, for vertical surfaces
	1126	DO l = 0, 3
	1127	! ALLOCATE ( surf_usm_v(l)%wshf(1:surf_usm_v(l)%ns) ) ! can be removed
	1128	ALLOCATE ( surf_usm_v(l)%wshf_eb(1:surf_usm_v(l)%ns) )
	1129	ALLOCATE ( surf_usm_v(l)%wghf_eb(1:surf_usm_v(l)%ns) )
	1130	ALLOCATE ( surf_usm_v(l)%wghf_eb_window(1:surf_usm_v(l)%ns) )
	1131	ALLOCATE ( surf_usm_v(l)%wghf_eb_green(1:surf_usm_v(l)%ns) )
	1132	ALLOCATE ( surf_usm_v(l)%iwghf_eb(1:surf_usm_v(l)%ns) )
	1133	ALLOCATE ( surf_usm_v(l)%iwghf_eb_window(1:surf_usm_v(l)%ns) )
	1134	IF ( ALLOCATED( surf_usm_v(l)%wshf ) ) surf_usm_v(l)%wshf = 0.0_wp
	1135	IF ( ALLOCATED( surf_usm_v(l)%wshf_eb ) ) surf_usm_v(l)%wshf_eb = 0.0_wp
	1136	IF ( ALLOCATED( surf_usm_v(l)%wghf_eb ) ) surf_usm_v(l)%wghf_eb = 0.0_wp
	1137	IF ( ALLOCATED( surf_usm_v(l)%wghf_eb_window ) ) surf_usm_v(l)%wghf_eb_window = 0.0_wp
	1138	IF ( ALLOCATED( surf_usm_v(l)%wghf_eb_green ) ) surf_usm_v(l)%wghf_eb_green = 0.0_wp
	1139	IF ( ALLOCATED( surf_usm_v(l)%iwghf_eb ) ) surf_usm_v(l)%iwghf_eb = 0.0_wp
	1140	IF ( ALLOCATED( surf_usm_v(l)%iwghf_eb_window ) ) surf_usm_v(l)%iwghf_eb_window = 0.0_wp
	1141	ENDDO
	1142
	1143	END SUBROUTINE usm_allocate_surface
	1144
	1145
	1146	!------------------------------------------------------------------------------!
	1147	! Description:
	1148	! ------------
	1149	!> Sum up and time-average urban surface output quantities as well as allocate
	1150	!> the array necessary for storing the average.
	1151	!------------------------------------------------------------------------------!
	1152	SUBROUTINE usm_average_3d_data( mode, variable )
	1153
	1154	IMPLICIT NONE
	1155
	1156	CHARACTER (len=*), INTENT(IN) :: mode
	1157	CHARACTER (len=*), INTENT(IN) :: variable
	1158
	1159	INTEGER(iwp) :: i, j, k, l, m, ids, iwl,istat
	1160	CHARACTER (len=varnamelength) :: var, surfid
	1161	INTEGER(iwp), PARAMETER :: nd = 5
	1162	CHARACTER(len=6), DIMENSION(0:nd-1), PARAMETER :: dirname = (/ '_roof ', '_south', '_north', '_west ', '_east ' /)
	1163
	1164	!-- find the real name of the variable
	1165	var = TRIM(variable)
	1166	DO i = 0, nd-1
	1167	k = len(TRIM(var))
	1168	j = len(TRIM(dirname(i)))
	1169	IF ( var(k-j+1:k) == dirname(i) ) THEN
	1170	ids = i
	1171	var = var(:k-j)
	1172	EXIT
	1173	ENDIF
	1174	ENDDO
	1175	IF ( ids == -1 ) THEN
	1176	var = TRIM(variable)
	1177	ENDIF
	1178	IF ( var(1:11) == 'usm_t_wall_' .AND. len(TRIM(var)) >= 12 ) THEN
	1179	!-- wall layers
	1180	READ(var(12:12), '(I1)', iostat=istat ) iwl
	1181	IF ( istat == 0 .AND. iwl >= nzb_wall .AND. iwl <= nzt_wall ) THEN
	1182	var = var(1:10)
	1183	ELSE
	1184	!-- wrong wall layer index
	1185	RETURN
	1186	ENDIF
	1187	ENDIF
	1188	IF ( var(1:13) == 'usm_t_window_' .AND. len(TRIM(var)) >= 14 ) THEN
	1189	!-- wall layers
	1190	READ(var(14:14), '(I1)', iostat=istat ) iwl
	1191	IF ( istat == 0 .AND. iwl >= nzb_wall .AND. iwl <= nzt_wall ) THEN
	1192	var = var(1:12)
	1193	ELSE
	1194	!-- wrong window layer index
	1195	RETURN
	1196	ENDIF
	1197	ENDIF
	1198	IF ( var(1:12) == 'usm_t_green_' .AND. len(TRIM(var)) >= 13 ) THEN
	1199	!-- wall layers
	1200	READ(var(13:13), '(I1)', iostat=istat ) iwl
	1201	IF ( istat == 0 .AND. iwl >= nzb_wall .AND. iwl <= nzt_wall ) THEN
	1202	var = var(1:11)
	1203	ELSE
	1204	!-- wrong green layer index
	1205	RETURN
	1206	ENDIF
	1207	ENDIF
	1208
	1209	IF ( mode == 'allocate' ) THEN
	1210
	1211	SELECT CASE ( TRIM( var ) )
	1212
	1213	CASE ( 'usm_rad_net' )
	1214	!-- array of complete radiation balance
	1215	IF ( .NOT. ALLOCATED(surf_usm_h%rad_net_av) ) THEN
	1216	ALLOCATE( surf_usm_h%rad_net_av(1:surf_usm_h%ns) )
	1217	surf_usm_h%rad_net_av = 0.0_wp
	1218	ENDIF
	1219	DO l = 0, 3
	1220	IF ( .NOT. ALLOCATED(surf_usm_v(l)%rad_net_av) ) THEN
	1221	ALLOCATE( surf_usm_v(l)%rad_net_av(1:surf_usm_v(l)%ns) )
	1222	surf_usm_v(l)%rad_net_av = 0.0_wp
	1223	ENDIF
	1224	ENDDO
	1225
	1226	CASE ( 'usm_rad_insw' )
	1227	!-- array of sw radiation falling to surface after i-th reflection
	1228	IF ( .NOT. ALLOCATED(surf_usm_h%surfinsw_av) ) THEN
	1229	ALLOCATE( surf_usm_h%surfinsw_av(1:surf_usm_h%ns) )
	1230	surf_usm_h%surfinsw_av = 0.0_wp
	1231	ENDIF
	1232	DO l = 0, 3
	1233	IF ( .NOT. ALLOCATED(surf_usm_v(l)%surfinsw_av) ) THEN
	1234	ALLOCATE( surf_usm_v(l)%surfinsw_av(1:surf_usm_v(l)%ns) )
	1235	surf_usm_v(l)%surfinsw_av = 0.0_wp
	1236	ENDIF
	1237	ENDDO
	1238
	1239	CASE ( 'usm_rad_inlw' )
	1240	!-- array of lw radiation falling to surface after i-th reflection
	1241	IF ( .NOT. ALLOCATED(surf_usm_h%surfinlw_av) ) THEN
	1242	ALLOCATE( surf_usm_h%surfinlw_av(1:surf_usm_h%ns) )
	1243	surf_usm_h%surfinlw_av = 0.0_wp
	1244	ENDIF
	1245	DO l = 0, 3
	1246	IF ( .NOT. ALLOCATED(surf_usm_v(l)%surfinlw_av) ) THEN
	1247	ALLOCATE( surf_usm_v(l)%surfinlw_av(1:surf_usm_v(l)%ns) )
	1248	surf_usm_v(l)%surfinlw_av = 0.0_wp
	1249	ENDIF
	1250	ENDDO
	1251
	1252	CASE ( 'usm_rad_inswdir' )
	1253	!-- array of direct sw radiation falling to surface from sun
	1254	IF ( .NOT. ALLOCATED(surfinswdir_av) ) THEN
	1255	ALLOCATE( surfinswdir_av(startenergy:endenergy) )
	1256	surfinswdir_av = 0.0_wp
	1257	ENDIF
	1258
	1259	CASE ( 'usm_rad_inswdif' )
	1260	!-- array of difusion sw radiation falling to surface from sky and borders of the domain
	1261	IF ( .NOT. ALLOCATED(surfinswdif_av) ) THEN
	1262	ALLOCATE( surfinswdif_av(startenergy:endenergy) )
	1263	surfinswdif_av = 0.0_wp
	1264	ENDIF
	1265
	1266	CASE ( 'usm_rad_inswref' )
	1267	!-- array of sw radiation falling to surface from reflections
	1268	IF ( .NOT. ALLOCATED(surfinswref_av) ) THEN
	1269	ALLOCATE( surfinswref_av(startenergy:endenergy) )
	1270	surfinswref_av = 0.0_wp
	1271	ENDIF
	1272
	1273	CASE ( 'usm_rad_inlwdif' )
	1274	!-- array of sw radiation falling to surface after i-th reflection
	1275	IF ( .NOT. ALLOCATED(surfinlwdif_av) ) THEN
	1276	ALLOCATE( surfinlwdif_av(startenergy:endenergy) )
	1277	surfinlwdif_av = 0.0_wp
	1278	ENDIF
	1279
	1280	CASE ( 'usm_rad_inlwref' )
	1281	!-- array of lw radiation falling to surface from reflections
	1282	IF ( .NOT. ALLOCATED(surfinlwref_av) ) THEN
	1283	ALLOCATE( surfinlwref_av(startenergy:endenergy) )
	1284	surfinlwref_av = 0.0_wp
	1285	ENDIF
	1286
	1287	CASE ( 'usm_rad_outsw' )
	1288	!-- array of sw radiation emitted from surface after i-th reflection
	1289	IF ( .NOT. ALLOCATED(surfoutsw_av) ) THEN
	1290	ALLOCATE( surfoutsw_av(startenergy:endenergy) )
	1291	surfoutsw_av = 0.0_wp
	1292	ENDIF
	1293
	1294	CASE ( 'usm_rad_outlw' )
	1295	!-- array of lw radiation emitted from surface after i-th reflection
	1296	IF ( .NOT. ALLOCATED(surfoutlw_av) ) THEN
	1297	ALLOCATE( surfoutlw_av(startenergy:endenergy) )
	1298	surfoutlw_av = 0.0_wp
	1299	ENDIF
	1300	CASE ( 'usm_rad_ressw' )
	1301	!-- array of residua of sw radiation absorbed in surface after last reflection
	1302	IF ( .NOT. ALLOCATED(surfins_av) ) THEN
	1303	ALLOCATE( surfins_av(startenergy:endenergy) )
	1304	surfins_av = 0.0_wp
	1305	ENDIF
	1306
	1307	CASE ( 'usm_rad_reslw' )
	1308	!-- array of residua of lw radiation absorbed in surface after last reflection
	1309	IF ( .NOT. ALLOCATED(surfinl_av) ) THEN
	1310	ALLOCATE( surfinl_av(startenergy:endenergy) )
	1311	surfinl_av = 0.0_wp
	1312	ENDIF
	1313
	1314	CASE ( 'usm_rad_hf' )
	1315	!-- array of heat flux from radiation for surfaces after i-th reflection
	1316	IF ( .NOT. ALLOCATED(surf_usm_h%surfhf_av) ) THEN
	1317	ALLOCATE( surf_usm_h%surfhf_av(1:surf_usm_h%ns) )
	1318	surf_usm_h%surfhf_av = 0.0_wp
	1319	ENDIF
	1320	DO l = 0, 3
	1321	IF ( .NOT. ALLOCATED(surf_usm_v(l)%surfhf_av) ) THEN
	1322	ALLOCATE( surf_usm_v(l)%surfhf_av(1:surf_usm_v(l)%ns) )
	1323	surf_usm_v(l)%surfhf_av = 0.0_wp
	1324	ENDIF
	1325	ENDDO
	1326
	1327	CASE ( 'usm_wshf' )
	1328	!-- array of sensible heat flux from surfaces
	1329	!-- land surfaces
	1330	IF ( .NOT. ALLOCATED(surf_usm_h%wshf_eb_av) ) THEN
	1331	ALLOCATE( surf_usm_h%wshf_eb_av(1:surf_usm_h%ns) )
	1332	surf_usm_h%wshf_eb_av = 0.0_wp
	1333	ENDIF
	1334	DO l = 0, 3
	1335	IF ( .NOT. ALLOCATED(surf_usm_v(l)%wshf_eb_av) ) THEN
	1336	ALLOCATE( surf_usm_v(l)%wshf_eb_av(1:surf_usm_v(l)%ns) )
	1337	surf_usm_v(l)%wshf_eb_av = 0.0_wp
	1338	ENDIF
	1339	ENDDO
	1340
	1341	CASE ( 'usm_wghf' )
	1342	!-- array of heat flux from ground (wall, roof, land)
	1343	IF ( .NOT. ALLOCATED(surf_usm_h%wghf_eb_av) ) THEN
	1344	ALLOCATE( surf_usm_h%wghf_eb_av(1:surf_usm_h%ns) )
	1345	surf_usm_h%wghf_eb_av = 0.0_wp
	1346	ENDIF
	1347	DO l = 0, 3
	1348	IF ( .NOT. ALLOCATED(surf_usm_v(l)%wghf_eb_av) ) THEN
	1349	ALLOCATE( surf_usm_v(l)%wghf_eb_av(1:surf_usm_v(l)%ns) )
	1350	surf_usm_v(l)%wghf_eb_av = 0.0_wp
	1351	ENDIF
	1352	ENDDO
	1353
	1354	CASE ( 'usm_wghf_window' )
	1355	!-- array of heat flux from window ground (wall, roof, land)
	1356	IF ( .NOT. ALLOCATED(surf_usm_h%wghf_eb_window_av) ) THEN
	1357	ALLOCATE( surf_usm_h%wghf_eb_window_av(1:surf_usm_h%ns) )
	1358	surf_usm_h%wghf_eb_window_av = 0.0_wp
	1359	ENDIF
	1360	DO l = 0, 3
	1361	IF ( .NOT. ALLOCATED(surf_usm_v(l)%wghf_eb_window_av) ) THEN
	1362	ALLOCATE( surf_usm_v(l)%wghf_eb_window_av(1:surf_usm_v(l)%ns) )
	1363	surf_usm_v(l)%wghf_eb_window_av = 0.0_wp
	1364	ENDIF
	1365	ENDDO
	1366
	1367	CASE ( 'usm_wghf_green' )
	1368	!-- array of heat flux from green ground (wall, roof, land)
	1369	IF ( .NOT. ALLOCATED(surf_usm_h%wghf_eb_green_av) ) THEN
	1370	ALLOCATE( surf_usm_h%wghf_eb_green_av(1:surf_usm_h%ns) )
	1371	surf_usm_h%wghf_eb_green_av = 0.0_wp
	1372	ENDIF
	1373	DO l = 0, 3
	1374	IF ( .NOT. ALLOCATED(surf_usm_v(l)%wghf_eb_green_av) ) THEN
	1375	ALLOCATE( surf_usm_v(l)%wghf_eb_green_av(1:surf_usm_v(l)%ns) )
	1376	surf_usm_v(l)%wghf_eb_green_av = 0.0_wp
	1377	ENDIF
	1378	ENDDO
	1379
	1380	CASE ( 'usm_iwghf' )
	1381	!-- array of heat flux from indoor ground (wall, roof, land)
	1382	IF ( .NOT. ALLOCATED(surf_usm_h%iwghf_eb_av) ) THEN
	1383	ALLOCATE( surf_usm_h%iwghf_eb_av(1:surf_usm_h%ns) )
	1384	surf_usm_h%iwghf_eb_av = 0.0_wp
	1385	ENDIF
	1386	DO l = 0, 3
	1387	IF ( .NOT. ALLOCATED(surf_usm_v(l)%iwghf_eb_av) ) THEN
	1388	ALLOCATE( surf_usm_v(l)%iwghf_eb_av(1:surf_usm_v(l)%ns) )
	1389	surf_usm_v(l)%iwghf_eb_av = 0.0_wp
	1390	ENDIF
	1391	ENDDO
	1392
	1393	CASE ( 'usm_iwghf_window' )
	1394	!-- array of heat flux from indoor window ground (wall, roof, land)
	1395	IF ( .NOT. ALLOCATED(surf_usm_h%iwghf_eb_window_av) ) THEN
	1396	ALLOCATE( surf_usm_h%iwghf_eb_window_av(1:surf_usm_h%ns) )
	1397	surf_usm_h%iwghf_eb_window_av = 0.0_wp
	1398	ENDIF
	1399	DO l = 0, 3
	1400	IF ( .NOT. ALLOCATED(surf_usm_v(l)%iwghf_eb_window_av) ) THEN
	1401	ALLOCATE( surf_usm_v(l)%iwghf_eb_window_av(1:surf_usm_v(l)%ns) )
	1402	surf_usm_v(l)%iwghf_eb_window_av = 0.0_wp
	1403	ENDIF
	1404	ENDDO
	1405
	1406	CASE ( 'usm_t_surf' )
	1407	!-- surface temperature for surfaces
	1408	IF ( .NOT. ALLOCATED(surf_usm_h%t_surf_av) ) THEN
	1409	ALLOCATE( surf_usm_h%t_surf_av(1:surf_usm_h%ns) )
	1410	surf_usm_h%t_surf_av = 0.0_wp
	1411	ENDIF
	1412	DO l = 0, 3
	1413	IF ( .NOT. ALLOCATED(surf_usm_v(l)%t_surf_av) ) THEN
	1414	ALLOCATE( surf_usm_v(l)%t_surf_av(1:surf_usm_v(l)%ns) )
	1415	surf_usm_v(l)%t_surf_av = 0.0_wp
	1416	ENDIF
	1417	ENDDO
	1418
	1419	CASE ( 'usm_t_surf_window' )
	1420	!-- surface temperature for window surfaces
	1421	IF ( .NOT. ALLOCATED(surf_usm_h%t_surf_window_av) ) THEN
	1422	ALLOCATE( surf_usm_h%t_surf_window_av(1:surf_usm_h%ns) )
	1423	surf_usm_h%t_surf_window_av = 0.0_wp
	1424	ENDIF
	1425	DO l = 0, 3
	1426	IF ( .NOT. ALLOCATED(surf_usm_v(l)%t_surf_window_av) ) THEN
	1427	ALLOCATE( surf_usm_v(l)%t_surf_window_av(1:surf_usm_v(l)%ns) )
	1428	surf_usm_v(l)%t_surf_window_av = 0.0_wp
	1429	ENDIF
	1430	ENDDO
	1431
	1432	CASE ( 'usm_t_surf_green' )
	1433	!-- surface temperature for green surfaces
	1434	IF ( .NOT. ALLOCATED(surf_usm_h%t_surf_green_av) ) THEN
	1435	ALLOCATE( surf_usm_h%t_surf_green_av(1:surf_usm_h%ns) )
	1436	surf_usm_h%t_surf_green_av = 0.0_wp
	1437	ENDIF
	1438	DO l = 0, 3
	1439	IF ( .NOT. ALLOCATED(surf_usm_v(l)%t_surf_green_av) ) THEN
	1440	ALLOCATE( surf_usm_v(l)%t_surf_green_av(1:surf_usm_v(l)%ns) )
	1441	surf_usm_v(l)%t_surf_green_av = 0.0_wp
	1442	ENDIF
	1443	ENDDO
	1444
	1445	CASE ( 'usm_t_surf_whole' )
	1446	!-- surface temperature for whole surfaces
	1447	IF ( .NOT. ALLOCATED(surf_usm_h%t_surf_whole_av) ) THEN
	1448	ALLOCATE( surf_usm_h%t_surf_whole_av(1:surf_usm_h%ns) )
	1449	surf_usm_h%t_surf_whole_av = 0.0_wp
	1450	ENDIF
	1451	DO l = 0, 3
	1452	IF ( .NOT. ALLOCATED(surf_usm_v(l)%t_surf_whole_av) ) THEN
	1453	ALLOCATE( surf_usm_v(l)%t_surf_whole_av(1:surf_usm_v(l)%ns) )
	1454	surf_usm_v(l)%t_surf_whole_av = 0.0_wp
	1455	ENDIF
	1456	ENDDO
	1457
	1458	CASE ( 'usm_t_surf_10cm' )
	1459	!-- near surface temperature for whole surfaces
	1460	IF ( .NOT. ALLOCATED(surf_usm_h%t_surf_10cm_av) ) THEN
	1461	ALLOCATE( surf_usm_h%t_surf_10cm_av(1:surf_usm_h%ns) )
	1462	surf_usm_h%t_surf_10cm_av = 0.0_wp
	1463	ENDIF
	1464	DO l = 0, 3
	1465	IF ( .NOT. ALLOCATED(surf_usm_v(l)%t_surf_10cm_av) ) THEN
	1466	ALLOCATE( surf_usm_v(l)%t_surf_10cm_av(1:surf_usm_v(l)%ns) )
	1467	surf_usm_v(l)%t_surf_10cm_av = 0.0_wp
	1468	ENDIF
	1469	ENDDO
	1470
	1471	CASE ( 'usm_t_wall' )
	1472	!-- wall temperature for iwl layer of walls and land
	1473	IF ( .NOT. ALLOCATED(surf_usm_h%t_wall_av) ) THEN
	1474	ALLOCATE( surf_usm_h%t_wall_av(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	1475	surf_usm_h%t_wall_av = 0.0_wp
	1476	ENDIF
	1477	DO l = 0, 3
	1478	IF ( .NOT. ALLOCATED(surf_usm_v(l)%t_wall_av) ) THEN
	1479	ALLOCATE( surf_usm_v(l)%t_wall_av(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	1480	surf_usm_v(l)%t_wall_av = 0.0_wp
	1481	ENDIF
	1482	ENDDO
	1483
	1484	CASE ( 'usm_t_window' )
	1485	!-- window temperature for iwl layer of walls and land
	1486	IF ( .NOT. ALLOCATED(surf_usm_h%t_window_av) ) THEN
	1487	ALLOCATE( surf_usm_h%t_window_av(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	1488	surf_usm_h%t_window_av = 0.0_wp
	1489	ENDIF
	1490	DO l = 0, 3
	1491	IF ( .NOT. ALLOCATED(surf_usm_v(l)%t_window_av) ) THEN
	1492	ALLOCATE( surf_usm_v(l)%t_window_av(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	1493	surf_usm_v(l)%t_window_av = 0.0_wp
	1494	ENDIF
	1495	ENDDO
	1496
	1497	CASE ( 'usm_t_green' )
	1498	!-- green temperature for iwl layer of walls and land
	1499	IF ( .NOT. ALLOCATED(surf_usm_h%t_green_av) ) THEN
	1500	ALLOCATE( surf_usm_h%t_green_av(nzb_wall:nzt_wall,1:surf_usm_h%ns) )
	1501	surf_usm_h%t_green_av = 0.0_wp
	1502	ENDIF
	1503	DO l = 0, 3
	1504	IF ( .NOT. ALLOCATED(surf_usm_v(l)%t_green_av) ) THEN
	1505	ALLOCATE( surf_usm_v(l)%t_green_av(nzb_wall:nzt_wall,1:surf_usm_v(l)%ns) )
	1506	surf_usm_v(l)%t_green_av = 0.0_wp
	1507	ENDIF
	1508	ENDDO
	1509
	1510	CASE DEFAULT
	1511	CONTINUE
	1512
	1513	END SELECT
	1514
	1515	ELSEIF ( mode == 'sum' ) THEN
	1516
	1517	SELECT CASE ( TRIM( var ) )
	1518
	1519	CASE ( 'usm_rad_net' )
	1520	!-- array of complete radiation balance
	1521	DO m = 1, surf_usm_h%ns
	1522	surf_usm_h%rad_net_av(m) = &
	1523	surf_usm_h%rad_net_av(m) + &
	1524	surf_usm_h%rad_net_l(m)
	1525	ENDDO
	1526	DO l = 0, 3
	1527	DO m = 1, surf_usm_v(l)%ns
	1528	surf_usm_v(l)%rad_net_av(m) = &
	1529	surf_usm_v(l)%rad_net_av(m) + &
	1530	surf_usm_v(l)%rad_net_l(m)
	1531	ENDDO
	1532	ENDDO
	1533
	1534	CASE ( 'usm_rad_insw' )
	1535	!-- array of sw radiation falling to surface after i-th reflection
	1536	DO l = startenergy, endenergy
	1537	IF ( surfl(id,l) == ids ) THEN
	1538	surfinsw_av(l) = surfinsw_av(l) + surfinsw(l)
	1539	ENDIF
	1540	ENDDO
	1541
	1542	CASE ( 'usm_rad_inlw' )
	1543	!-- array of lw radiation falling to surface after i-th reflection
	1544	DO l = startenergy, endenergy
	1545	IF ( surfl(id,l) == ids ) THEN
	1546	surfinlw_av(l) = surfinlw_av(l) + surfinlw(l)
	1547	ENDIF
	1548	ENDDO
	1549
	1550	CASE ( 'usm_rad_inswdir' )
	1551	!-- array of direct sw radiation falling to surface from sun
	1552	DO l = startenergy, endenergy
	1553	IF ( surfl(id,l) == ids ) THEN
	1554	surfinswdir_av(l) = surfinswdir_av(l) + surfinswdir(l)
	1555	ENDIF
	1556	ENDDO
	1557
	1558	CASE ( 'usm_rad_inswdif' )
	1559	!-- array of difusion sw radiation falling to surface from sky and borders of the domain
	1560	DO l = startenergy, endenergy
	1561	IF ( surfl(id,l) == ids ) THEN
	1562	surfinswdif_av(l) = surfinswdif_av(l) + surfinswdif(l)
	1563	ENDIF
	1564	ENDDO
	1565
	1566	CASE ( 'usm_rad_inswref' )
	1567	!-- array of sw radiation falling to surface from reflections
	1568	DO l = startenergy, endenergy
	1569	IF ( surfl(id,l) == ids ) THEN
	1570	surfinswref_av(l) = surfinswref_av(l) + surfinsw(l) - &
	1571	surfinswdir(l) - surfinswdif(l)
	1572	ENDIF
	1573	ENDDO
	1574
	1575
	1576	CASE ( 'usm_rad_inlwdif' )
	1577	!-- array of sw radiation falling to surface after i-th reflection
	1578	DO l = startenergy, endenergy
	1579	IF ( surfl(id,l) == ids ) THEN
	1580	surfinswref_av(l) = surfinswref_av(l) + surfinsw(l) - &
	1581	surfinswdir(l) - surfinswdif(l)
	1582	ENDIF
	1583	ENDDO
	1584	!
	1585	CASE ( 'usm_rad_inlwref' )
	1586	!-- array of lw radiation falling to surface from reflections
	1587	DO l = startenergy, endenergy
	1588	IF ( surfl(id,l) == ids ) THEN
	1589	surfinlwdif_av(l) = surfinlwdif_av(l) + surfinlwdif(l)
	1590	ENDIF
	1591	ENDDO
	1592
	1593	CASE ( 'usm_rad_outsw' )
	1594	!-- array of sw radiation emitted from surface after i-th reflection
	1595	DO l = startenergy, endenergy
	1596	IF ( surfl(id,l) == ids ) THEN
	1597	surfinlwref_av(l) = surfinlwref_av(l) + &
	1598	surfinlw(l) - surfinlwdif(l)
	1599	ENDIF
	1600	ENDDO
	1601
	1602	CASE ( 'usm_rad_outlw' )
	1603	!-- array of lw radiation emitted from surface after i-th reflection
	1604	DO l = startenergy, endenergy
	1605	IF ( surfl(id,l) == ids ) THEN
	1606	surfoutsw_av(l) = surfoutsw_av(l) + surfoutsw(l)
	1607	ENDIF
	1608	ENDDO
	1609
	1610	CASE ( 'usm_rad_ressw' )
	1611	!-- array of residua of sw radiation absorbed in surface after last reflection
	1612	DO l = startenergy, endenergy
	1613	IF ( surfl(id,l) == ids ) THEN
	1614	surfoutlw_av(l) = surfoutlw_av(l) + surfoutlw(l)
	1615	ENDIF
	1616	ENDDO
	1617
	1618	CASE ( 'usm_rad_reslw' )
	1619	!-- array of residua of lw radiation absorbed in surface after last reflection
	1620	DO l = startenergy, endenergy
	1621	IF ( surfl(id,l) == ids ) THEN
	1622	surfins_av(l) = surfins_av(l) + surfins(l)
	1623	ENDIF
	1624	ENDDO
	1625
	1626	CASE ( 'usm_rad_hf' )
	1627	!-- array of heat flux from radiation for surfaces after i-th reflection
	1628	DO m = 1, surf_usm_h%ns
	1629	surf_usm_h%surfhf_av(m) = &
	1630	surf_usm_h%surfhf_av(m) + &
	1631	surf_usm_h%surfhf(m)
	1632	ENDDO
	1633	DO l = 0, 3
	1634	DO m = 1, surf_usm_v(l)%ns
	1635	surf_usm_v(l)%surfhf_av(m) = &
	1636	surf_usm_v(l)%surfhf_av(m) + &
	1637	surf_usm_v(l)%surfhf(m)
	1638	ENDDO
	1639	ENDDO
	1640
	1641	CASE ( 'usm_wshf' )
	1642	!-- array of sensible heat flux from surfaces (land, roof, wall)
	1643	DO m = 1, surf_usm_h%ns
	1644	surf_usm_h%wshf_eb_av(m) = &
	1645	surf_usm_h%wshf_eb_av(m) + &
	1646	surf_usm_h%wshf_eb(m)
	1647	ENDDO
	1648	DO l = 0, 3
	1649	DO m = 1, surf_usm_v(l)%ns
	1650	surf_usm_v(l)%wshf_eb_av(m) = &
	1651	surf_usm_v(l)%wshf_eb_av(m) + &
	1652	surf_usm_v(l)%wshf_eb(m)
	1653	ENDDO
	1654	ENDDO
	1655
	1656	CASE ( 'usm_wghf' )
	1657	!-- array of heat flux from ground (wall, roof, land)
	1658	DO m = 1, surf_usm_h%ns
	1659	surf_usm_h%wghf_eb_av(m) = &
	1660	surf_usm_h%wghf_eb_av(m) + &
	1661	surf_usm_h%wghf_eb(m)
	1662	ENDDO
	1663	DO l = 0, 3
	1664	DO m = 1, surf_usm_v(l)%ns
	1665	surf_usm_v(l)%wghf_eb_av(m) = &
	1666	surf_usm_v(l)%wghf_eb_av(m) + &
	1667	surf_usm_v(l)%wghf_eb(m)
	1668	ENDDO
	1669	ENDDO
	1670
	1671	CASE ( 'usm_wghf_window' )
	1672	!-- array of heat flux from window ground (wall, roof, land)
	1673	DO m = 1, surf_usm_h%ns
	1674	surf_usm_h%wghf_eb_window_av(m) = &
	1675	surf_usm_h%wghf_eb_window_av(m) + &
	1676	surf_usm_h%wghf_eb_window(m)
	1677	ENDDO
	1678	DO l = 0, 3
	1679	DO m = 1, surf_usm_v(l)%ns
	1680	surf_usm_v(l)%wghf_eb_window_av(m) = &
	1681	surf_usm_v(l)%wghf_eb_window_av(m) + &
	1682	surf_usm_v(l)%wghf_eb_window(m)
	1683	ENDDO
	1684	ENDDO
	1685
	1686	CASE ( 'usm_wghf_green' )
	1687	!-- array of heat flux from green ground (wall, roof, land)
	1688	DO m = 1, surf_usm_h%ns
	1689	surf_usm_h%wghf_eb_green_av(m) = &
	1690	surf_usm_h%wghf_eb_green_av(m) + &
	1691	surf_usm_h%wghf_eb_green(m)
	1692	ENDDO
	1693	DO l = 0, 3
	1694	DO m = 1, surf_usm_v(l)%ns
	1695	surf_usm_v(l)%wghf_eb_green_av(m) = &
	1696	surf_usm_v(l)%wghf_eb_green_av(m) + &
	1697	surf_usm_v(l)%wghf_eb_green(m)
	1698	ENDDO
	1699	ENDDO
	1700
	1701	CASE ( 'usm_iwghf' )
	1702	!-- array of heat flux from indoor ground (wall, roof, land)
	1703	DO m = 1, surf_usm_h%ns
	1704	surf_usm_h%iwghf_eb_av(m) = &
	1705	surf_usm_h%iwghf_eb_av(m) + &
	1706	surf_usm_h%iwghf_eb(m)
	1707	ENDDO
	1708	DO l = 0, 3
	1709	DO m = 1, surf_usm_v(l)%ns
	1710	surf_usm_v(l)%iwghf_eb_av(m) = &
	1711	surf_usm_v(l)%iwghf_eb_av(m) + &
	1712	surf_usm_v(l)%iwghf_eb(m)
	1713	ENDDO
	1714	ENDDO
	1715
	1716	CASE ( 'usm_iwghf_window' )
	1717	!-- array of heat flux from indoor window ground (wall, roof, land)
	1718	DO m = 1, surf_usm_h%ns
	1719	surf_usm_h%iwghf_eb_window_av(m) = &
	1720	surf_usm_h%iwghf_eb_window_av(m) + &
	1721	surf_usm_h%iwghf_eb_window(m)
	1722	ENDDO
	1723	DO l = 0, 3
	1724	DO m = 1, surf_usm_v(l)%ns
	1725	surf_usm_v(l)%iwghf_eb_window_av(m) = &
	1726	surf_usm_v(l)%iwghf_eb_window_av(m) + &
	1727	surf_usm_v(l)%iwghf_eb_window(m)
	1728	ENDDO
	1729	ENDDO
	1730
	1731	CASE ( 'usm_t_surf' )
	1732	!-- surface temperature for surfaces
	1733	DO m = 1, surf_usm_h%ns
	1734	surf_usm_h%t_surf_av(m) = &
	1735	surf_usm_h%t_surf_av(m) + &
	1736	t_surf_h(m)
	1737	ENDDO
	1738	DO l = 0, 3
	1739	DO m = 1, surf_usm_v(l)%ns
	1740	surf_usm_v(l)%t_surf_av(m) = &
	1741	surf_usm_v(l)%t_surf_av(m) + &
	1742	t_surf_v(l)%t(m)
	1743	ENDDO
	1744	ENDDO
	1745
	1746	CASE ( 'usm_t_surf_window' )
	1747	!-- surface temperature for window surfaces
	1748	DO m = 1, surf_usm_h%ns
	1749	surf_usm_h%t_surf_window_av(m) = &
	1750	surf_usm_h%t_surf_window_av(m) + &
	1751	t_surf_window_h(m)
	1752	ENDDO
	1753	DO l = 0, 3
	1754	DO m = 1, surf_usm_v(l)%ns
	1755	surf_usm_v(l)%t_surf_window_av(m) = &
	1756	surf_usm_v(l)%t_surf_window_av(m) + &
	1757	t_surf_window_v(l)%t(m)
	1758	ENDDO
	1759	ENDDO
	1760
	1761	CASE ( 'usm_t_surf_green' )
	1762	!-- surface temperature for green surfaces
	1763	DO m = 1, surf_usm_h%ns
	1764	surf_usm_h%t_surf_green_av(m) = &
	1765	surf_usm_h%t_surf_green_av(m) + &
	1766	t_surf_green_h(m)
	1767	ENDDO
	1768	DO l = 0, 3
	1769	DO m = 1, surf_usm_v(l)%ns
	1770	surf_usm_v(l)%t_surf_green_av(m) = &
	1771	surf_usm_v(l)%t_surf_green_av(m) + &
	1772	t_surf_green_v(l)%t(m)
	1773	ENDDO
	1774	ENDDO
	1775
	1776	CASE ( 'usm_t_surf_whole' )
	1777	!-- surface temperature for whole surfaces
	1778	DO m = 1, surf_usm_h%ns
	1779	surf_usm_h%t_surf_whole_av(m) = &
	1780	surf_usm_h%t_surf_whole_av(m) + &
	1781	t_surf_whole_h(m)
	1782	ENDDO
	1783	DO l = 0, 3
	1784	DO m = 1, surf_usm_v(l)%ns
	1785	surf_usm_v(l)%t_surf_whole_av(m) = &
	1786	surf_usm_v(l)%t_surf_whole_av(m) + &
	1787	t_surf_whole_v(l)%t(m)
	1788	ENDDO
	1789	ENDDO
	1790
	1791	CASE ( 'usm_t_surf_10cm' )
	1792	!-- near surface temperature for whole surfaces
	1793	DO m = 1, surf_usm_h%ns
	1794	surf_usm_h%t_surf_10cm_av(m) = &
	1795	surf_usm_h%t_surf_10cm_av(m) + &
	1796	t_surf_10cm_h(m)
	1797	ENDDO
	1798	DO l = 0, 3
	1799	DO m = 1, surf_usm_v(l)%ns
	1800	surf_usm_v(l)%t_surf_10cm_av(m) = &
	1801	surf_usm_v(l)%t_surf_10cm_av(m) + &
	1802	t_surf_10cm_v(l)%t(m)
	1803	ENDDO
	1804	ENDDO
	1805
	1806
	1807	CASE ( 'usm_t_wall' )
	1808	!-- wall temperature for iwl layer of walls and land
	1809	DO m = 1, surf_usm_h%ns
	1810	surf_usm_h%t_wall_av(iwl,m) = &
	1811	surf_usm_h%t_wall_av(iwl,m) + &
	1812	t_wall_h(iwl,m)
	1813	ENDDO
	1814	DO l = 0, 3
	1815	DO m = 1, surf_usm_v(l)%ns
	1816	surf_usm_v(l)%t_wall_av(iwl,m) = &
	1817	surf_usm_v(l)%t_wall_av(iwl,m) + &
	1818	t_wall_v(l)%t(iwl,m)
	1819	ENDDO
	1820	ENDDO
	1821
	1822	CASE ( 'usm_t_window' )
	1823	!-- window temperature for iwl layer of walls and land
	1824	DO m = 1, surf_usm_h%ns
	1825	surf_usm_h%t_window_av(iwl,m) = &
	1826	surf_usm_h%t_window_av(iwl,m) + &
	1827	t_window_h(iwl,m)
	1828	ENDDO
	1829	DO l = 0, 3
	1830	DO m = 1, surf_usm_v(l)%ns
	1831	surf_usm_v(l)%t_window_av(iwl,m) = &
	1832	surf_usm_v(l)%t_window_av(iwl,m) + &
	1833	t_window_v(l)%t(iwl,m)
	1834	ENDDO
	1835	ENDDO
	1836
	1837	CASE ( 'usm_t_green' )
	1838	!-- green temperature for iwl layer of walls and land
	1839	DO m = 1, surf_usm_h%ns
	1840	surf_usm_h%t_green_av(iwl,m) = &
	1841	surf_usm_h%t_green_av(iwl,m) + &
	1842	t_green_h(iwl,m)
	1843	ENDDO
	1844	DO l = 0, 3
	1845	DO m = 1, surf_usm_v(l)%ns
	1846	surf_usm_v(l)%t_green_av(iwl,m) = &
	1847	surf_usm_v(l)%t_green_av(iwl,m) + &
	1848	t_green_v(l)%t(iwl,m)
	1849	ENDDO
	1850	ENDDO
	1851
	1852	CASE DEFAULT
	1853	CONTINUE
	1854
	1855	END SELECT
	1856
	1857	ELSEIF ( mode == 'average' ) THEN
	1858
	1859	SELECT CASE ( TRIM( var ) )
	1860
	1861	CASE ( 'usm_rad_net' )
	1862	!-- array of complete radiation balance
	1863	DO m = 1, surf_usm_h%ns
	1864	surf_usm_h%rad_net_av(m) = &
	1865	surf_usm_h%rad_net_av(m) / &
	1866	REAL( average_count_3d, kind=wp )
	1867	ENDDO
	1868	DO l = 0, 3
	1869	DO m = 1, surf_usm_v(l)%ns
	1870	surf_usm_v(l)%rad_net_av(m) = &
	1871	surf_usm_v(l)%rad_net_av(m) / &
	1872	REAL( average_count_3d, kind=wp )
	1873	ENDDO
	1874	ENDDO
	1875
	1876	CASE ( 'usm_rad_insw' )
	1877	!-- array of sw radiation falling to surface after i-th reflection
	1878	DO l = startenergy, endenergy
	1879	IF ( surfl(id,l) == ids ) THEN
	1880	surfinsw_av(l) = surfinsw_av(l) / REAL( average_count_3d, kind=wp )
	1881	ENDIF
	1882	ENDDO
	1883
	1884	CASE ( 'usm_rad_inlw' )
	1885	!-- array of lw radiation falling to surface after i-th reflection
	1886	DO l = startenergy, endenergy
	1887	IF ( surfl(id,l) == ids ) THEN
	1888	surfinlw_av(l) = surfinlw_av(l) / REAL( average_count_3d, kind=wp )
	1889	ENDIF
	1890	ENDDO
	1891
	1892	CASE ( 'usm_rad_inswdir' )
	1893	!-- array of direct sw radiation falling to surface from sun
	1894	DO l = startenergy, endenergy
	1895	IF ( surfl(id,l) == ids ) THEN
	1896	surfinswdir_av(l) = surfinswdir_av(l) / REAL( average_count_3d, kind=wp )
	1897	ENDIF
	1898	ENDDO
	1899
	1900	CASE ( 'usm_rad_inswdif' )
	1901	!-- array of difusion sw radiation falling to surface from sky and borders of the domain
	1902	DO l = startenergy, endenergy
	1903	IF ( surfl(id,l) == ids ) THEN
	1904	surfinswdif_av(l) = surfinswdif_av(l) / REAL( average_count_3d, kind=wp )
	1905	ENDIF
	1906	ENDDO
	1907
	1908	CASE ( 'usm_rad_inswref' )
	1909	!-- array of sw radiation falling to surface from reflections
	1910	DO l = startenergy, endenergy
	1911	IF ( surfl(id,l) == ids ) THEN
	1912	surfinswref_av(l) = surfinswref_av(l) / REAL( average_count_3d, kind=wp )
	1913	ENDIF
	1914	ENDDO
	1915
	1916	CASE ( 'usm_rad_inlwdif' )
	1917	!-- array of sw radiation falling to surface after i-th reflection
	1918	DO l = startenergy, endenergy
	1919	IF ( surfl(id,l) == ids ) THEN
	1920	surfinlwdif_av(l) = surfinlwdif_av(l) / REAL( average_count_3d, kind=wp )
	1921	ENDIF
	1922	ENDDO
	1923
	1924	CASE ( 'usm_rad_inlwref' )
	1925	!-- array of lw radiation falling to surface from reflections
	1926	DO l = startenergy, endenergy
	1927	IF ( surfl(id,l) == ids ) THEN
	1928	surfinlwref_av(l) = surfinlwref_av(l) / REAL( average_count_3d, kind=wp )
	1929	ENDIF
	1930	ENDDO
	1931
	1932	CASE ( 'usm_rad_outsw' )
	1933	!-- array of sw radiation emitted from surface after i-th reflection
	1934	DO l = startenergy, endenergy
	1935	IF ( surfl(id,l) == ids ) THEN
	1936	surfoutsw_av(l) = surfoutsw_av(l) / REAL( average_count_3d, kind=wp )
	1937	ENDIF
	1938	ENDDO
	1939
	1940	CASE ( 'usm_rad_outlw' )
	1941	!-- array of lw radiation emitted from surface after i-th reflection
	1942	DO l = startenergy, endenergy
	1943	IF ( surfl(id,l) == ids ) THEN
	1944	surfoutlw_av(l) = surfoutlw_av(l) / REAL( average_count_3d, kind=wp )
	1945	ENDIF
	1946	ENDDO
	1947
	1948	CASE ( 'usm_rad_ressw' )
	1949	!-- array of residua of sw radiation absorbed in surface after last reflection
	1950	DO l = startenergy, endenergy
	1951	IF ( surfl(id,l) == ids ) THEN
	1952	surfins_av(l) = surfins_av(l) / REAL( average_count_3d, kind=wp )
	1953	ENDIF
	1954	ENDDO
	1955
	1956	CASE ( 'usm_rad_reslw' )
	1957	!-- array of residua of lw radiation absorbed in surface after last reflection
	1958	DO l = startenergy, endenergy
	1959	IF ( surfl(id,l) == ids ) THEN
	1960	surfinl_av(l) = surfinl_av(l) / REAL( average_count_3d, kind=wp )
	1961	ENDIF
	1962	ENDDO
	1963
	1964	CASE ( 'usm_rad_hf' )
	1965	!-- array of heat flux from radiation for surfaces after i-th reflection
	1966	DO m = 1, surf_usm_h%ns
	1967	surf_usm_h%surfhf_av(m) = &
	1968	surf_usm_h%surfhf_av(m) / &
	1969	REAL( average_count_3d, kind=wp )
	1970	ENDDO
	1971	DO l = 0, 3
	1972	DO m = 1, surf_usm_v(l)%ns
	1973	surf_usm_v(l)%surfhf_av(m) = &
	1974	surf_usm_v(l)%surfhf_av(m) / &
	1975	REAL( average_count_3d, kind=wp )
	1976	ENDDO
	1977	ENDDO
	1978
	1979	CASE ( 'usm_wshf' )
	1980	!-- array of sensible heat flux from surfaces (land, roof, wall)
	1981	DO m = 1, surf_usm_h%ns
	1982	surf_usm_h%wshf_eb_av(m) = &
	1983	surf_usm_h%wshf_eb_av(m) / &
	1984	REAL( average_count_3d, kind=wp )
	1985	ENDDO
	1986	DO l = 0, 3
	1987	DO m = 1, surf_usm_v(l)%ns
	1988	surf_usm_v(l)%wshf_eb_av(m) = &
	1989	surf_usm_v(l)%wshf_eb_av(m) / &
	1990	REAL( average_count_3d, kind=wp )
	1991	ENDDO
	1992	ENDDO
	1993
	1994	CASE ( 'usm_wghf' )
	1995	!-- array of heat flux from ground (wall, roof, land)
	1996	DO m = 1, surf_usm_h%ns
	1997	surf_usm_h%wghf_eb_av(m) = &
	1998	surf_usm_h%wghf_eb_av(m) / &
	1999	REAL( average_count_3d, kind=wp )
	2000	ENDDO
	2001	DO l = 0, 3
	2002	DO m = 1, surf_usm_v(l)%ns
	2003	surf_usm_v(l)%wghf_eb_av(m) = &
	2004	surf_usm_v(l)%wghf_eb_av(m) / &
	2005	REAL( average_count_3d, kind=wp )
	2006	ENDDO
	2007	ENDDO
	2008
	2009	CASE ( 'usm_wghf_window' )
	2010	!-- array of heat flux from window ground (wall, roof, land)
	2011	DO m = 1, surf_usm_h%ns
	2012	surf_usm_h%wghf_eb_window_av(m) = &
	2013	surf_usm_h%wghf_eb_window_av(m) / &
	2014	REAL( average_count_3d, kind=wp )
	2015	ENDDO
	2016	DO l = 0, 3
	2017	DO m = 1, surf_usm_v(l)%ns
	2018	surf_usm_v(l)%wghf_eb_window_av(m) = &
	2019	surf_usm_v(l)%wghf_eb_window_av(m) / &
	2020	REAL( average_count_3d, kind=wp )
	2021	ENDDO
	2022	ENDDO
	2023
	2024	CASE ( 'usm_wghf_green' )
	2025	!-- array of heat flux from green ground (wall, roof, land)
	2026	DO m = 1, surf_usm_h%ns
	2027	surf_usm_h%wghf_eb_green_av(m) = &
	2028	surf_usm_h%wghf_eb_green_av(m) / &
	2029	REAL( average_count_3d, kind=wp )
	2030	ENDDO
	2031	DO l = 0, 3
	2032	DO m = 1, surf_usm_v(l)%ns
	2033	surf_usm_v(l)%wghf_eb_green_av(m) = &
	2034	surf_usm_v(l)%wghf_eb_green_av(m) / &
	2035	REAL( average_count_3d, kind=wp )
	2036	ENDDO
	2037	ENDDO
	2038
	2039	CASE ( 'usm_iwghf' )
	2040	!-- array of heat flux from indoor ground (wall, roof, land)
	2041	DO m = 1, surf_usm_h%ns
	2042	surf_usm_h%iwghf_eb_av(m) = &
	2043	surf_usm_h%iwghf_eb_av(m) / &
	2044	REAL( average_count_3d, kind=wp )
	2045	ENDDO
	2046	DO l = 0, 3
	2047	DO m = 1, surf_usm_v(l)%ns
	2048	surf_usm_v(l)%iwghf_eb_av(m) = &
	2049	surf_usm_v(l)%iwghf_eb_av(m) / &
	2050	REAL( average_count_3d, kind=wp )
	2051	ENDDO
	2052	ENDDO
	2053
	2054	CASE ( 'usm_iwghf_window' )
	2055	!-- array of heat flux from indoor window ground (wall, roof, land)
	2056	DO m = 1, surf_usm_h%ns
	2057	surf_usm_h%iwghf_eb_window_av(m) = &
	2058	surf_usm_h%iwghf_eb_window_av(m) / &
	2059	REAL( average_count_3d, kind=wp )
	2060	ENDDO
	2061	DO l = 0, 3
	2062	DO m = 1, surf_usm_v(l)%ns
	2063	surf_usm_v(l)%iwghf_eb_window_av(m) = &
	2064	surf_usm_v(l)%iwghf_eb_window_av(m) / &
	2065	REAL( average_count_3d, kind=wp )
	2066	ENDDO
	2067	ENDDO
	2068
	2069	CASE ( 'usm_t_surf' )
	2070	!-- surface temperature for surfaces
	2071	DO m = 1, surf_usm_h%ns
	2072	surf_usm_h%t_surf_av(m) = &
	2073	surf_usm_h%t_surf_av(m) / &
	2074	REAL( average_count_3d, kind=wp )
	2075	ENDDO
	2076	DO l = 0, 3
	2077	DO m = 1, surf_usm_v(l)%ns
	2078	surf_usm_v(l)%t_surf_av(m) = &
	2079	surf_usm_v(l)%t_surf_av(m) / &
	2080	REAL( average_count_3d, kind=wp )
	2081	ENDDO
	2082	ENDDO
	2083
	2084	CASE ( 'usm_t_surf_window' )
	2085	!-- surface temperature for window surfaces
	2086	DO m = 1, surf_usm_h%ns
	2087	surf_usm_h%t_surf_window_av(m) = &
	2088	surf_usm_h%t_surf_window_av(m) / &
	2089	REAL( average_count_3d, kind=wp )
	2090	ENDDO
	2091	DO l = 0, 3
	2092	DO m = 1, surf_usm_v(l)%ns
	2093	surf_usm_v(l)%t_surf_window_av(m) = &
	2094	surf_usm_v(l)%t_surf_window_av(m) / &
	2095	REAL( average_count_3d, kind=wp )
	2096	ENDDO
	2097	ENDDO
	2098
	2099	CASE ( 'usm_t_surf_green' )
	2100	!-- surface temperature for green surfaces
	2101	DO m = 1, surf_usm_h%ns
	2102	surf_usm_h%t_surf_green_av(m) = &
	2103	surf_usm_h%t_surf_green_av(m) / &
	2104	REAL( average_count_3d, kind=wp )
	2105	ENDDO
	2106	DO l = 0, 3
	2107	DO m = 1, surf_usm_v(l)%ns
	2108	surf_usm_v(l)%t_surf_green_av(m) = &
	2109	surf_usm_v(l)%t_surf_green_av(m) / &
	2110	REAL( average_count_3d, kind=wp )
	2111	ENDDO
	2112	ENDDO
	2113
	2114	CASE ( 'usm_t_surf_whole' )
	2115	!-- surface temperature for whole surfaces
	2116	DO m = 1, surf_usm_h%ns
	2117	surf_usm_h%t_surf_whole_av(m) = &
	2118	surf_usm_h%t_surf_whole_av(m) / &
	2119	REAL( average_count_3d, kind=wp )
	2120	ENDDO
	2121	DO l = 0, 3
	2122	DO m = 1, surf_usm_v(l)%ns
	2123	surf_usm_v(l)%t_surf_whole_av(m) = &
	2124	surf_usm_v(l)%t_surf_whole_av(m) / &
	2125	REAL( average_count_3d, kind=wp )
	2126	ENDDO
	2127	ENDDO
	2128
	2129	CASE ( 'usm_t_surf_10cm' )
	2130	!-- near surface temperature for whole surfaces
	2131	DO m = 1, surf_usm_h%ns
	2132	surf_usm_h%t_surf_10cm_av(m) = &
	2133	surf_usm_h%t_surf_10cm_av(m) / &
	2134	REAL( average_count_3d, kind=wp )
	2135	ENDDO
	2136	DO l = 0, 3
	2137	DO m = 1, surf_usm_v(l)%ns
	2138	surf_usm_v(l)%t_surf_10cm_av(m) = &
	2139	surf_usm_v(l)%t_surf_10cm_av(m) / &
	2140	REAL( average_count_3d, kind=wp )
	2141	ENDDO
	2142	ENDDO
	2143
	2144	CASE ( 'usm_t_wall' )
	2145	!-- wall temperature for iwl layer of walls and land
	2146	DO m = 1, surf_usm_h%ns
	2147	surf_usm_h%t_wall_av(iwl,m) = &
	2148	surf_usm_h%t_wall_av(iwl,m) / &
	2149	REAL( average_count_3d, kind=wp )
	2150	ENDDO
	2151	DO l = 0, 3
	2152	DO m = 1, surf_usm_v(l)%ns
	2153	surf_usm_v(l)%t_wall_av(iwl,m) = &
	2154	surf_usm_v(l)%t_wall_av(iwl,m) / &
	2155	REAL( average_count_3d, kind=wp )
	2156	ENDDO
	2157	ENDDO
	2158
	2159	CASE ( 'usm_t_window' )
	2160	!-- window temperature for iwl layer of walls and land
	2161	DO m = 1, surf_usm_h%ns
	2162	surf_usm_h%t_window_av(iwl,m) = &
	2163	surf_usm_h%t_window_av(iwl,m) / &
	2164	REAL( average_count_3d, kind=wp )
	2165	ENDDO
	2166	DO l = 0, 3
	2167	DO m = 1, surf_usm_v(l)%ns
	2168	surf_usm_v(l)%t_window_av(iwl,m) = &
	2169	surf_usm_v(l)%t_window_av(iwl,m) / &
	2170	REAL( average_count_3d, kind=wp )
	2171	ENDDO
	2172	ENDDO
	2173
	2174	CASE ( 'usm_t_green' )
	2175	!-- green temperature for iwl layer of walls and land
	2176	DO m = 1, surf_usm_h%ns
	2177	surf_usm_h%t_green_av(iwl,m) = &
	2178	surf_usm_h%t_green_av(iwl,m) / &
	2179	REAL( average_count_3d, kind=wp )
	2180	ENDDO
	2181	DO l = 0, 3
	2182	DO m = 1, surf_usm_v(l)%ns
	2183	surf_usm_v(l)%t_green_av(iwl,m) = &
	2184	surf_usm_v(l)%t_green_av(iwl,m) / &
	2185	REAL( average_count_3d, kind=wp )
	2186	ENDDO
	2187	ENDDO
	2188
	2189
	2190	END SELECT
	2191
	2192	ENDIF
	2193
	2194	END SUBROUTINE usm_average_3d_data
	2195
	2196
	2197
	2198	!------------------------------------------------------------------------------!
	2199	! Description:
	2200	! ------------
	2201	!> Set internal Neumann boundary condition at outer soil grid points
	2202	!> for temperature and humidity.
	2203	!------------------------------------------------------------------------------!
	2204	SUBROUTINE usm_boundary_condition
	2205
	2206	IMPLICIT NONE
	2207
	2208	INTEGER(iwp) :: i !< grid index x-direction
	2209	INTEGER(iwp) :: ioff !< offset index x-direction indicating location of soil grid point
	2210	INTEGER(iwp) :: j !< grid index y-direction
	2211	INTEGER(iwp) :: joff !< offset index x-direction indicating location of soil grid point
	2212	INTEGER(iwp) :: k !< grid index z-direction
	2213	INTEGER(iwp) :: koff !< offset index x-direction indicating location of soil grid point
	2214	INTEGER(iwp) :: l !< running index surface-orientation
	2215	INTEGER(iwp) :: m !< running index surface elements
	2216
	2217	koff = surf_usm_h%koff
	2218	DO m = 1, surf_usm_h%ns
	2219	i = surf_usm_h%i(m)
	2220	j = surf_usm_h%j(m)
	2221	k = surf_usm_h%k(m)
	2222	pt(k+koff,j,i) = pt(k,j,i)
	2223	ENDDO
	2224
	2225	DO l = 0, 3
	2226	ioff = surf_usm_v(l)%ioff
	2227	joff = surf_usm_v(l)%joff
	2228	DO m = 1, surf_usm_v(l)%ns
	2229	i = surf_usm_v(l)%i(m)
	2230	j = surf_usm_v(l)%j(m)
	2231	k = surf_usm_v(l)%k(m)
	2232	pt(k,j+joff,i+ioff) = pt(k,j,i)
	2233	ENDDO
	2234	ENDDO
	2235
	2236	END SUBROUTINE usm_boundary_condition
	2237
	2238
	2239	!------------------------------------------------------------------------------!
	2240	!
	2241	! Description:
	2242	! ------------
	2243	!> Subroutine checks variables and assigns units.
	2244	!> It is called out from subroutine check_parameters.
	2245	!------------------------------------------------------------------------------!
	2246	SUBROUTINE usm_check_data_output( variable, unit )
	2247
	2248	IMPLICIT NONE
	2249
	2250	CHARACTER (len=*),INTENT(IN) :: variable !:
	2251	CHARACTER (len=*),INTENT(OUT) :: unit !:
	2252
	2253	CHARACTER (len=varnamelength) :: var
	2254
	2255	var = TRIM(variable)
	2256	IF ( var(1:12) == 'usm_rad_net_' .OR. var(1:13) == 'usm_rad_insw_' .OR. &
	2257	var(1:13) == 'usm_rad_inlw_' .OR. var(1:16) == 'usm_rad_inswdir_' .OR. &
	2258	var(1:16) == 'usm_rad_inswdif_' .OR. var(1:16) == 'usm_rad_inswref_' .OR. &
	2259	var(1:16) == 'usm_rad_inlwdif_' .OR. var(1:16) == 'usm_rad_inlwref_' .OR. &
	2260	var(1:14) == 'usm_rad_outsw_' .OR. var(1:14) == 'usm_rad_outlw_' .OR. &
	2261	var(1:14) == 'usm_rad_ressw_' .OR. var(1:14) == 'usm_rad_reslw_' .OR. &
	2262	var(1:11) == 'usm_rad_hf_' .OR. &
	2263	var(1:9) == 'usm_wshf_' .OR. var(1:9) == 'usm_wghf_' .OR. &
	2264	var(1:16) == 'usm_wghf_window_' .OR. var(1:15) == 'usm_wghf_green_' .OR. &
	2265	var(1:10) == 'usm_iwghf_' .OR. var(1:17) == 'usm_iwghf_window_' ) THEN
	2266	unit = 'W/m2'
	2267	ELSE IF ( var(1:10) == 'usm_t_surf' .OR. var(1:10) == 'usm_t_wall' .OR. &
	2268	var(1:12) == 'usm_t_window' .OR. var(1:17) == 'usm_t_surf_window' .OR. &
	2269	var(1:16) == 'usm_t_surf_green' .OR. &
	2270	var(1:16) == 'usm_t_surf_whole' .OR. var(1:11) == 'usm_t_green' .OR. &
	2271	var(1:15) == 'usm_t_surf_10cm') THEN
	2272	unit = 'K'
	2273	ELSE IF ( var(1:9) == 'usm_surfz' .OR. var(1:7) == 'usm_svf' .OR. &
	2274	var(1:7) == 'usm_dif' .OR. var(1:11) == 'usm_surfcat' .OR. &
	2275	var(1:11) == 'usm_surfalb' .OR. var(1:12) == 'usm_surfemis') THEN
	2276	unit = '1'
	2277	ELSE
	2278	unit = 'illegal'
	2279	ENDIF
	2280
	2281	END SUBROUTINE usm_check_data_output
	2282
	2283
	2284	!------------------------------------------------------------------------------!
	2285	! Description:
	2286	! ------------
	2287	!> Check parameters routine for urban surface model
	2288	!------------------------------------------------------------------------------!
	2289	SUBROUTINE usm_check_parameters
	2290
	2291	USE control_parameters, &
	2292	ONLY: bc_pt_b, bc_q_b, constant_flux_layer, large_scale_forcing, &
	2293	lsf_surf, topography
	2294
	2295	!
	2296	!-- Dirichlet boundary conditions are required as the surface fluxes are
	2297	!-- calculated from the temperature/humidity gradients in the urban surface
	2298	!-- model
	2299	IF ( bc_pt_b == 'neumann' .OR. bc_q_b == 'neumann' ) THEN
	2300	message_string = 'urban surface model requires setting of '// &
	2301	'bc_pt_b = "dirichlet" and '// &
	2302	'bc_q_b = "dirichlet"'
	2303	CALL message( 'check_parameters', 'PA0590', 1, 2, 0, 6, 0 )
	2304	ENDIF
	2305
	2306	IF ( .NOT. constant_flux_layer ) THEN
	2307	message_string = 'urban surface model requires '// &
	2308	'constant_flux_layer = .T.'
	2309	CALL message( 'check_parameters', 'PA0591', 1, 2, 0, 6, 0 )
	2310	ENDIF
	2311	!
	2312	!-- Surface forcing has to be disabled for LSF in case of enabled
	2313	!-- urban surface module
	2314	IF ( large_scale_forcing ) THEN
	2315	lsf_surf = .FALSE.
	2316	ENDIF
	2317	!
	2318	!-- Topography
	2319	IF ( topography == 'flat' ) THEN
	2320	message_string = 'topography /= "flat" is required '// &
	2321	'when using the urban surface model'
	2322	CALL message( 'check_parameters', 'PA0592', 1, 2, 0, 6, 0 )
	2323	ENDIF
	2324
	2325	END SUBROUTINE usm_check_parameters
	2326
	2327
	2328	!------------------------------------------------------------------------------!
	2329	!
	2330	! Description:
	2331	! ------------
	2332	!> Output of the 3D-arrays in netCDF and/or AVS format
	2333	!> for variables of urban_surface model.
	2334	!> It resorts the urban surface module output quantities from surf style
	2335	!> indexing into temporary 3D array with indices (i,j,k).
	2336	!> It is called from subroutine data_output_3d.
	2337	!------------------------------------------------------------------------------!
	2338	SUBROUTINE usm_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )
	2339
	2340	IMPLICIT NONE
	2341
	2342	INTEGER(iwp), INTENT(IN) :: av !<
	2343	CHARACTER (len=*), INTENT(IN) :: variable !<
	2344	INTEGER(iwp), INTENT(IN) :: nzb_do !< lower limit of the data output (usually 0)
	2345	INTEGER(iwp), INTENT(IN) :: nzt_do !< vertical upper limit of the data output (usually nz_do3d)
	2346	LOGICAL, INTENT(OUT) :: found !<
	2347	REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) :: local_pf !< sp - it has to correspond to module data_output_3d
	2348	REAL(wp), DIMENSION(nzb:nzt+1,nys:nyn,nxl:nxr) :: temp_pf !< temp array for urban surface output procedure
	2349
	2350	CHARACTER (len=varnamelength) :: var, surfid
	2351	INTEGER(iwp), PARAMETER :: nd = 5
	2352	CHARACTER(len=6), DIMENSION(0:nd-1), PARAMETER :: dirname = (/ '_roof ', '_south', '_north', '_west ', '_east ' /)
	2353	INTEGER(iwp), DIMENSION(0:nd-1), PARAMETER :: dirint = (/ iup_u, isouth_u, inorth_u, iwest_u, ieast_u /)
	2354	INTEGER(iwp), DIMENSION(0:nd-1) :: dirstart
	2355	INTEGER(iwp), DIMENSION(0:nd-1) :: dirend
	2356	INTEGER(iwp) :: ids,isurf,isvf,isurfs,isurflt
	2357	INTEGER(iwp) :: is,js,ks,i,j,k,iwl,istat, l, m
	2358	INTEGER(iwp) :: k_topo !< topography top index
	2359
	2360	dirstart = (/ startland, startwall, startwall, startwall, startwall /)
	2361	dirend = (/ endland, endwall, endwall, endwall, endwall /)
	2362
	2363	found = .TRUE.
	2364	temp_pf = -1._wp
	2365
	2366	ids = -1
	2367	var = TRIM(variable)
	2368	DO i = 0, nd-1
	2369	k = len(TRIM(var))
	2370	j = len(TRIM(dirname(i)))
	2371	IF ( var(k-j+1:k) == dirname(i) ) THEN
	2372	ids = i
	2373	var = var(:k-j)
	2374	EXIT
	2375	ENDIF
	2376	ENDDO
	2377	IF ( ids == -1 ) THEN
	2378	var = TRIM(variable)
	2379	ENDIF
	2380	IF ( var(1:11) == 'usm_t_wall_' .AND. len(TRIM(var)) >= 12 ) THEN
	2381	!-- wall layers
	2382	READ(var(12:12), '(I1)', iostat=istat ) iwl
	2383	IF ( istat == 0 .AND. iwl >= nzb_wall .AND. iwl <= nzt_wall ) THEN
	2384	var = var(1:10)
	2385	ENDIF
	2386	ENDIF
	2387	IF ( var(1:13) == 'usm_t_window_' .AND. len(TRIM(var)) >= 14 ) THEN
	2388	!-- window layers
	2389	READ(var(14:14), '(I1)', iostat=istat ) iwl
	2390	IF ( istat == 0 .AND. iwl >= nzb_wall .AND. iwl <= nzt_wall ) THEN
	2391	var = var(1:12)
	2392	ENDIF
	2393	ENDIF
	2394	IF ( var(1:12) == 'usm_t_green_' .AND. len(TRIM(var)) >= 13 ) THEN
	2395	!-- green layers
	2396	READ(var(13:13), '(I1)', iostat=istat ) iwl
	2397	IF ( istat == 0 .AND. iwl >= nzb_wall .AND. iwl <= nzt_wall ) THEN
	2398	var = var(1:11)
	2399	ENDIF
	2400	ENDIF
	2401	IF ( (var(1:8) == 'usm_svf_' .OR. var(1:8) == 'usm_dif_') .AND. len(TRIM(var)) >= 13 ) THEN
	2402	!-- svf values to particular surface
	2403	surfid = var(9:)
	2404	i = index(surfid,'_')
	2405	j = index(surfid(i+1:),'_')
	2406	READ(surfid(1:i-1),*, iostat=istat ) is
	2407	IF ( istat == 0 ) THEN
	2408	READ(surfid(i+1:i+j-1),*, iostat=istat ) js
	2409	ENDIF
	2410	IF ( istat == 0 ) THEN
	2411	READ(surfid(i+j+1:),*, iostat=istat ) ks
	2412	ENDIF
	2413	IF ( istat == 0 ) THEN
	2414	var = var(1:7)
	2415	ENDIF
	2416	ENDIF
	2417
	2418	SELECT CASE ( TRIM(var) )
	2419
	2420	CASE ( 'usm_surfz' )
	2421	!-- array of lw radiation falling to local surface after i-th reflection
	2422	DO m = 1, surf_usm_h%ns
	2423	i = surf_usm_h%i(m)
	2424	j = surf_usm_h%j(m)
	2425	k = surf_usm_h%k(m)
	2426	temp_pf(0,j,i) = MAX( temp_pf(0,j,i), REAL( k, kind=wp) )
	2427	ENDDO
	2428	DO l = 0, 3
	2429	DO m = 1, surf_usm_v(l)%ns
	2430	i = surf_usm_v(l)%i(m)
	2431	j = surf_usm_v(l)%j(m)
	2432	k = surf_usm_v(l)%k(m)
	2433	temp_pf(0,j,i) = MAX( temp_pf(0,j,i), REAL( k, kind=wp) + 1.0_wp )
	2434	ENDDO
	2435	ENDDO
	2436
	2437	CASE ( 'usm_surfcat' )
	2438	!-- surface category
	2439	DO m = 1, surf_usm_h%ns
	2440	i = surf_usm_h%i(m)
	2441	j = surf_usm_h%j(m)
	2442	k = surf_usm_h%k(m)
	2443	temp_pf(k,j,i) = surf_usm_h%surface_types(m)
	2444	ENDDO
	2445	DO l = 0, 3
	2446	DO m = 1, surf_usm_v(l)%ns
	2447	i = surf_usm_v(l)%i(m)
	2448	j = surf_usm_v(l)%j(m)
	2449	k = surf_usm_v(l)%k(m)
	2450	temp_pf(k,j,i) = surf_usm_v(l)%surface_types(m)
	2451	ENDDO
	2452	ENDDO
	2453
	2454	CASE ( 'usm_surfalb' )
	2455	!-- surface albedo, weighted average
	2456	DO m = 1, surf_usm_h%ns
	2457	i = surf_usm_h%i(m)
	2458	j = surf_usm_h%j(m)
	2459	k = surf_usm_h%k(m)
	2460	temp_pf(k,j,i) = surf_usm_h%frac(0,m) * &
	2461	surf_usm_h%albedo(0,m) + &
	2462	surf_usm_h%frac(1,m) * &
	2463	surf_usm_h%albedo(1,m) + &
	2464	surf_usm_h%frac(2,m) * &
	2465	surf_usm_h%albedo(2,m)
	2466	ENDDO
	2467	DO l = 0, 3
	2468	DO m = 1, surf_usm_v(l)%ns
	2469	i = surf_usm_v(l)%i(m)
	2470	j = surf_usm_v(l)%j(m)
	2471	k = surf_usm_v(l)%k(m)
	2472	temp_pf(k,j,i) = surf_usm_v(l)%frac(0,m) * &
	2473	surf_usm_v(l)%albedo(0,m) + &
	2474	surf_usm_v(l)%frac(1,m) * &
	2475	surf_usm_v(l)%albedo(1,m) + &
	2476	surf_usm_v(l)%frac(2,m) * &
	2477	surf_usm_v(l)%albedo(2,m)
	2478	ENDDO
	2479	ENDDO
	2480
	2481	CASE ( 'usm_surfemis' )
	2482	!-- surface emissivity, weighted average
	2483	DO m = 1, surf_usm_h%ns
	2484	i = surf_usm_h%i(m)
	2485	j = surf_usm_h%j(m)
	2486	k = surf_usm_h%k(m)
	2487	temp_pf(k,j,i) = surf_usm_h%frac(0,m) * &
	2488	surf_usm_h%emissivity(0,m) + &
	2489	surf_usm_h%frac(1,m) * &
	2490	surf_usm_h%emissivity(1,m) + &
	2491	surf_usm_h%frac(2,m) * &
	2492	surf_usm_h%emissivity(2,m)
	2493	ENDDO
	2494	DO l = 0, 3
	2495	DO m = 1, surf_usm_v(l)%ns
	2496	i = surf_usm_v(l)%i(m)
	2497	j = surf_usm_v(l)%j(m)
	2498	k = surf_usm_v(l)%k(m)
	2499	temp_pf(k,j,i) = surf_usm_v(l)%frac(0,m) * &
	2500	surf_usm_v(l)%emissivity(0,m) + &
	2501	surf_usm_v(l)%frac(1,m) * &
	2502	surf_usm_v(l)%emissivity(1,m) + &
	2503	surf_usm_v(l)%frac(2,m) * &
	2504	surf_usm_v(l)%emissivity(2,m)
	2505	ENDDO
	2506	ENDDO
	2507
	2508	CASE ( 'usm_surfwintrans' )
	2509	!-- transmissivity window tiles
	2510	DO m = 1, surf_usm_h%ns
	2511	i = surf_usm_h%i(m)
	2512	j = surf_usm_h%j(m)
	2513	k = surf_usm_h%k(m)
	2514	temp_pf(k,j,i) = surf_usm_h%transmissivity(m)
	2515	ENDDO
	2516	DO l = 0, 3
	2517	DO m = 1, surf_usm_v(l)%ns
	2518	i = surf_usm_v(l)%i(m)
	2519	j = surf_usm_v(l)%j(m)
	2520	k = surf_usm_v(l)%k(m)
	2521	temp_pf(k,j,i) = surf_usm_v(l)%transmissivity(m)
	2522	ENDDO
	2523
	2524	ENDDO
	2525
	2526	!
	2527	!-- Not adjusted so far
	2528	CASE ( 'usm_svf', 'usm_dif' )
	2529	!-- shape view factors or iradiance factors to selected surface
	2530	IF ( TRIM(var)=='usm_svf' ) THEN
	2531	k = 1
	2532	ELSE
	2533	k = 2
	2534	ENDIF
	2535	DO isvf = 1, nsvfl
	2536	isurflt = svfsurf(1, isvf)
	2537	isurfs = svfsurf(2, isvf)
	2538
	2539	IF ( surf(ix,isurfs) == is .AND. surf(iy,isurfs) == js .AND. &
	2540	surf(iz,isurfs) == ks .AND. surf(id,isurfs) == ids ) THEN
	2541	!-- correct source surface
	2542	temp_pf(surfl(iz,isurflt),surfl(iy,isurflt),surfl(ix,isurflt)) = svf(k,isvf)
	2543	ENDIF
	2544	ENDDO
	2545
	2546	CASE ( 'usm_rad_net' )
	2547	!-- array of complete radiation balance
	2548	IF ( av == 0 ) THEN
	2549	DO m = 1, surf_usm_h%ns
	2550	i = surf_usm_h%i(m)
	2551	j = surf_usm_h%j(m)
	2552	k = surf_usm_h%k(m)
	2553	temp_pf(k,j,i) = surf_usm_h%rad_net_l(m)
	2554	ENDDO
	2555	DO l = 0, 3
	2556	DO m = 1, surf_usm_v(l)%ns
	2557	i = surf_usm_v(l)%i(m)
	2558	j = surf_usm_v(l)%j(m)
	2559	k = surf_usm_v(l)%k(m)
	2560	temp_pf(k,j,i) = surf_usm_v(l)%rad_net_l(m)
	2561	ENDDO
	2562	ENDDO
	2563	ELSE
	2564	DO m = 1, surf_usm_h%ns
	2565	i = surf_usm_h%i(m)
	2566	j = surf_usm_h%j(m)
	2567	k = surf_usm_h%k(m)
	2568	temp_pf(k,j,i) = surf_usm_h%rad_net_av(m)
	2569	ENDDO
	2570	DO l = 0, 3
	2571	DO m = 1, surf_usm_v(l)%ns
	2572	i = surf_usm_v(l)%i(m)
	2573	j = surf_usm_v(l)%j(m)
	2574	k = surf_usm_v(l)%k(m)
	2575	temp_pf(k,j,i) = surf_usm_v(l)%rad_net_av(m)
	2576	ENDDO
	2577	ENDDO
	2578	ENDIF
	2579
	2580	CASE ( 'usm_rad_insw' )
	2581	!-- array of sw radiation falling to surface after i-th reflection
	2582	DO isurf = dirstart(ids), dirend(ids)
	2583	IF ( surfl(id,isurf) == ids ) THEN
	2584	IF ( av == 0 ) THEN
	2585	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfinsw(isurf)
	2586	ELSE
	2587	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfinsw_av(isurf)
	2588	ENDIF
	2589	ENDIF
	2590	ENDDO
	2591
	2592	CASE ( 'usm_rad_inlw' )
	2593	!-- array of lw radiation falling to surface after i-th reflection
	2594	DO isurf = dirstart(ids), dirend(ids)
	2595	IF ( surfl(id,isurf) == ids ) THEN
	2596	IF ( av == 0 ) THEN
	2597	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfinlw(isurf)
	2598	ELSE
	2599	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfinlw_av(isurf)
	2600	ENDIF
	2601	ENDIF
	2602	ENDDO
	2603
	2604	CASE ( 'usm_rad_inswdir' )
	2605	!-- array of direct sw radiation falling to surface from sun
	2606	DO isurf = dirstart(ids), dirend(ids)
	2607	IF ( surfl(id,isurf) == ids ) THEN
	2608	IF ( av == 0 ) THEN
	2609	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfinswdir(isurf)
	2610	ELSE
	2611	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfinswdir_av(isurf)
	2612	ENDIF
	2613	ENDIF
	2614	ENDDO
	2615
	2616	CASE ( 'usm_rad_inswdif' )
	2617	!-- array of difusion sw radiation falling to surface from sky and borders of the domain
	2618	DO isurf = dirstart(ids), dirend(ids)
	2619	IF ( surfl(id,isurf) == ids ) THEN
	2620	IF ( av == 0 ) THEN
	2621	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfinswdif(isurf)
	2622	ELSE
	2623	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfinswdif_av(isurf)
	2624	ENDIF
	2625	ENDIF
	2626	ENDDO
	2627
	2628	CASE ( 'usm_rad_inswref' )
	2629	!-- array of sw radiation falling to surface from reflections
	2630	DO isurf = dirstart(ids), dirend(ids)
	2631	IF ( surfl(id,isurf) == ids ) THEN
	2632	IF ( av == 0 ) THEN
	2633	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = &
	2634	surfinsw(isurf) - surfinswdir(isurf) - surfinswdif(isurf)
	2635	ELSE
	2636	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfinswref_av(isurf)
	2637	ENDIF
	2638	ENDIF
	2639	ENDDO
	2640
	2641	CASE ( 'usm_rad_inlwref' )
	2642	!-- array of lw radiation falling to surface from reflections
	2643	DO isurf = dirstart(ids), dirend(ids)
	2644	IF ( surfl(id,isurf) == ids ) THEN
	2645	IF ( av == 0 ) THEN
	2646	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfinlw(isurf) - surfinlwdif(isurf)
	2647	ELSE
	2648	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfinlwref_av(isurf)
	2649	ENDIF
	2650	ENDIF
	2651	ENDDO
	2652
	2653	CASE ( 'usm_rad_outsw' )
	2654	!-- array of sw radiation emitted from surface after i-th reflection
	2655	DO isurf = dirstart(ids), dirend(ids)
	2656	IF ( surfl(id,isurf) == ids ) THEN
	2657	IF ( av == 0 ) THEN
	2658	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfoutsw(isurf)
	2659	ELSE
	2660	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfoutsw_av(isurf)
	2661	ENDIF
	2662	ENDIF
	2663	ENDDO
	2664
	2665	CASE ( 'usm_rad_outlw' )
	2666	!-- array of lw radiation emitted from surface after i-th reflection
	2667	DO isurf = dirstart(ids), dirend(ids)
	2668	IF ( surfl(id,isurf) == ids ) THEN
	2669	IF ( av == 0 ) THEN
	2670	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfoutlw(isurf)
	2671	ELSE
	2672	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfoutlw_av(isurf)
	2673	ENDIF
	2674	ENDIF
	2675	ENDDO
	2676
	2677	CASE ( 'usm_rad_ressw' )
	2678	!-- average of array of residua of sw radiation absorbed in surface after last reflection
	2679	DO isurf = dirstart(ids), dirend(ids)
	2680	IF ( surfl(id,isurf) == ids ) THEN
	2681	IF ( av == 0 ) THEN
	2682	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfins(isurf)
	2683	ELSE
	2684	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfins_av(isurf)
	2685	ENDIF
	2686	ENDIF
	2687	ENDDO
	2688
	2689	CASE ( 'usm_rad_reslw' )
	2690	!-- average of array of residua of lw radiation absorbed in surface after last reflection
	2691	DO isurf = dirstart(ids), dirend(ids)
	2692	IF ( surfl(id,isurf) == ids ) THEN
	2693	IF ( av == 0 ) THEN
	2694	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfinl(isurf)
	2695	ELSE
	2696	temp_pf(surfl(iz,isurf),surfl(iy,isurf),surfl(ix,isurf)) = surfinl_av(isurf)
	2697	ENDIF
	2698	ENDIF
	2699	ENDDO
	2700
	2701	CASE ( 'usm_rad_hf' )
	2702	!-- array of heat flux from radiation for surfaces after all reflections
	2703	IF ( av == 0 ) THEN
	2704	DO m = 1, surf_usm_h%ns
	2705	i = surf_usm_h%i(m)
	2706	j = surf_usm_h%j(m)
	2707	k = surf_usm_h%k(m)
	2708	temp_pf(k,j,i) = surf_usm_h%surfhf(m)
	2709	ENDDO
	2710	DO l = 0, 3
	2711	DO m = 1, surf_usm_v(l)%ns
	2712	i = surf_usm_v(l)%i(m)
	2713	j = surf_usm_v(l)%j(m)
	2714	k = surf_usm_v(l)%k(m)
	2715	temp_pf(k,j,i) = surf_usm_v(l)%surfhf(m)
	2716	ENDDO
	2717	ENDDO
	2718	ELSE
	2719	DO m = 1, surf_usm_h%ns
	2720	i = surf_usm_h%i(m)
	2721	j = surf_usm_h%j(m)
	2722	k = surf_usm_h%k(m)
	2723	temp_pf(k,j,i) = surf_usm_h%surfhf_av(m)
	2724	ENDDO
	2725	DO l = 0, 3
	2726	DO m = 1, surf_usm_v(l)%ns
	2727	i = surf_usm_v(l)%i(m)
	2728	j = surf_usm_v(l)%j(m)
	2729	k = surf_usm_v(l)%k(m)
	2730	temp_pf(k,j,i) = surf_usm_v(l)%surfhf_av(m)
	2731	ENDDO
	2732	ENDDO
	2733	ENDIF
	2734
	2735	CASE ( 'usm_wshf' )
	2736	!-- array of sensible heat flux from surfaces
	2737	IF ( av == 0 ) THEN
	2738	DO m = 1, surf_usm_h%ns
	2739	i = surf_usm_h%i(m)
	2740	j = surf_usm_h%j(m)
	2741	k = surf_usm_h%k(m)
	2742	temp_pf(k,j,i) = surf_usm_h%wshf_eb(m)
	2743	ENDDO
	2744	DO l = 0, 3
	2745	DO m = 1, surf_usm_v(l)%ns
	2746	i = surf_usm_v(l)%i(m)
	2747	j = surf_usm_v(l)%j(m)
	2748	k = surf_usm_v(l)%k(m)
	2749	temp_pf(k,j,i) = surf_usm_v(l)%wshf_eb(m)
	2750	ENDDO
	2751	ENDDO
	2752	ELSE
	2753	DO m = 1, surf_usm_h%ns
	2754	i = surf_usm_h%i(m)
	2755	j = surf_usm_h%j(m)
	2756	k = surf_usm_h%k(m)
	2757	temp_pf(k,j,i) = surf_usm_h%wshf_eb_av(m)
	2758	ENDDO
	2759	DO l = 0, 3
	2760	DO m = 1, surf_usm_v(l)%ns
	2761	i = surf_usm_v(l)%i(m)
	2762	j = surf_usm_v(l)%j(m)
	2763	k = surf_usm_v(l)%k(m)
	2764	temp_pf(k,j,i) = surf_usm_v(l)%wshf_eb_av(m)
	2765	ENDDO
	2766	ENDDO
	2767	ENDIF
	2768
	2769
	2770	CASE ( 'usm_wghf' )
	2771	!-- array of heat flux from ground (land, wall, roof)
	2772	IF ( av == 0 ) THEN
	2773	DO m = 1, surf_usm_h%ns
	2774	i = surf_usm_h%i(m)
	2775	j = surf_usm_h%j(m)
	2776	k = surf_usm_h%k(m)
	2777	temp_pf(k,j,i) = surf_usm_h%wghf_eb(m)
	2778	ENDDO
	2779	DO l = 0, 3
	2780	DO m = 1, surf_usm_v(l)%ns
	2781	i = surf_usm_v(l)%i(m)
	2782	j = surf_usm_v(l)%j(m)
	2783	k = surf_usm_v(l)%k(m)
	2784	temp_pf(k,j,i) = surf_usm_v(l)%wghf_eb(m)
	2785	ENDDO
	2786	ENDDO
	2787	ELSE
	2788	DO m = 1, surf_usm_h%ns
	2789	i = surf_usm_h%i(m)
	2790	j = surf_usm_h%j(m)
	2791	k = surf_usm_h%k(m)
	2792	temp_pf(k,j,i) = surf_usm_h%wghf_eb_av(m)
	2793	ENDDO
	2794	DO l = 0, 3
	2795	DO m = 1, surf_usm_v(l)%ns
	2796	i = surf_usm_v(l)%i(m)
	2797	j = surf_usm_v(l)%j(m)
	2798	k = surf_usm_v(l)%k(m)
	2799	temp_pf(k,j,i) = surf_usm_v(l)%wghf_eb_av(m)
	2800	ENDDO
	2801	ENDDO
	2802	ENDIF
	2803
	2804	CASE ( 'usm_wghf_window' )
	2805	!-- array of heat flux from window ground (land, wall, roof)
	2806
	2807	IF ( av == 0 ) THEN
	2808	DO m = 1, surf_usm_h%ns
	2809	i = surf_usm_h%i(m)
	2810	j = surf_usm_h%j(m)
	2811	k = surf_usm_h%k(m)
	2812	temp_pf(k,j,i) = surf_usm_h%wghf_eb_window(m)
	2813	ENDDO
	2814	DO l = 0, 3
	2815	DO m = 1, surf_usm_v(l)%ns
	2816	i = surf_usm_v(l)%i(m)
	2817	j = surf_usm_v(l)%j(m)
	2818	k = surf_usm_v(l)%k(m)
	2819	temp_pf(k,j,i) = surf_usm_v(l)%wghf_eb_window(m)
	2820	ENDDO
	2821	ENDDO
	2822	ELSE
	2823	DO m = 1, surf_usm_h%ns
	2824	i = surf_usm_h%i(m)
	2825	j = surf_usm_h%j(m)
	2826	k = surf_usm_h%k(m)
	2827	temp_pf(k,j,i) = surf_usm_h%wghf_eb_window_av(m)
	2828	ENDDO
	2829	DO l = 0, 3
	2830	DO m = 1, surf_usm_v(l)%ns
	2831	i = surf_usm_v(l)%i(m)
	2832	j = surf_usm_v(l)%j(m)
	2833	k = surf_usm_v(l)%k(m)
	2834	temp_pf(k,j,i) = surf_usm_v(l)%wghf_eb_window_av(m)
	2835	ENDDO
	2836	ENDDO
	2837	ENDIF
	2838
	2839	CASE ( 'usm_wghf_green' )
	2840	!-- array of heat flux from green ground (land, wall, roof)
	2841
	2842	IF ( av == 0 ) THEN
	2843	DO m = 1, surf_usm_h%ns
	2844	i = surf_usm_h%i(m)
	2845	j = surf_usm_h%j(m)
	2846	k = surf_usm_h%k(m)
	2847	temp_pf(k,j,i) = surf_usm_h%wghf_eb_green(m)
	2848	ENDDO
	2849	DO l = 0, 3
	2850	DO m = 1, surf_usm_v(l)%ns
	2851	i = surf_usm_v(l)%i(m)
	2852	j = surf_usm_v(l)%j(m)
	2853	k = surf_usm_v(l)%k(m)
	2854	temp_pf(k,j,i) = surf_usm_v(l)%wghf_eb_green(m)
	2855	ENDDO
	2856	ENDDO
	2857	ELSE
	2858	DO m = 1, surf_usm_h%ns
	2859	i = surf_usm_h%i(m)
	2860	j = surf_usm_h%j(m)
	2861	k = surf_usm_h%k(m)
	2862	temp_pf(k,j,i) = surf_usm_h%wghf_eb_green_av(m)
	2863	ENDDO
	2864	DO l = 0, 3
	2865	DO m = 1, surf_usm_v(l)%ns
	2866	i = surf_usm_v(l)%i(m)
	2867	j = surf_usm_v(l)%j(m)
	2868	k = surf_usm_v(l)%k(m)
	2869	temp_pf(k,j,i) = surf_usm_v(l)%wghf_eb_green_av(m)
	2870	ENDDO
	2871	ENDDO
	2872	ENDIF
	2873
	2874	CASE ( 'usm_iwghf' )
	2875	!-- array of heat flux from indoor ground (land, wall, roof)
	2876	IF ( av == 0 ) THEN
	2877	DO m = 1, surf_usm_h%ns
	2878	i = surf_usm_h%i(m)
	2879	j = surf_usm_h%j(m)
	2880	k = surf_usm_h%k(m)
	2881	temp_pf(k,j,i) = surf_usm_h%iwghf_eb(m)
	2882	ENDDO
	2883	DO l = 0, 3
	2884	DO m = 1, surf_usm_v(l)%ns
	2885	i = surf_usm_v(l)%i(m)
	2886	j = surf_usm_v(l)%j(m)
	2887	k = surf_usm_v(l)%k(m)
	2888	temp_pf(k,j,i) = surf_usm_v(l)%iwghf_eb(m)
	2889	ENDDO
	2890	ENDDO
	2891	ELSE
	2892	DO m = 1, surf_usm_h%ns
	2893	i = surf_usm_h%i(m)
	2894	j = surf_usm_h%j(m)
	2895	k = surf_usm_h%k(m)
	2896	temp_pf(k,j,i) = surf_usm_h%iwghf_eb_av(m)
	2897	ENDDO
	2898	DO l = 0, 3
	2899	DO m = 1, surf_usm_v(l)%ns
	2900	i = surf_usm_v(l)%i(m)
	2901	j = surf_usm_v(l)%j(m)
	2902	k = surf_usm_v(l)%k(m)
	2903	temp_pf(k,j,i) = surf_usm_v(l)%iwghf_eb_av(m)
	2904	ENDDO
	2905	ENDDO
	2906	ENDIF
	2907
	2908	CASE ( 'usm_iwghf_window' )
	2909	!-- array of heat flux from indoor window ground (land, wall, roof)
	2910
	2911	IF ( av == 0 ) THEN
	2912	DO m = 1, surf_usm_h%ns
	2913	i = surf_usm_h%i(m)
	2914	j = surf_usm_h%j(m)
	2915	k = surf_usm_h%k(m)
	2916	temp_pf(k,j,i) = surf_usm_h%iwghf_eb_window(m)
	2917	ENDDO
	2918	DO l = 0, 3
	2919	DO m = 1, surf_usm_v(l)%ns
	2920	i = surf_usm_v(l)%i(m)
	2921	j = surf_usm_v(l)%j(m)
	2922	k = surf_usm_v(l)%k(m)
	2923	temp_pf(k,j,i) = surf_usm_v(l)%iwghf_eb_window(m)
	2924	ENDDO
	2925	ENDDO
	2926	ELSE
	2927	DO m = 1, surf_usm_h%ns
	2928	i = surf_usm_h%i(m)
	2929	j = surf_usm_h%j(m)
	2930	k = surf_usm_h%k(m)
	2931	temp_pf(k,j,i) = surf_usm_h%iwghf_eb_window_av(m)
	2932	ENDDO
	2933	DO l = 0, 3
	2934	DO m = 1, surf_usm_v(l)%ns
	2935	i = surf_usm_v(l)%i(m)
	2936	j = surf_usm_v(l)%j(m)
	2937	k = surf_usm_v(l)%k(m)
	2938	temp_pf(k,j,i) = surf_usm_v(l)%iwghf_eb_window_av(m)
	2939	ENDDO
	2940	ENDDO
	2941	ENDIF
	2942
	2943	CASE ( 'usm_t_surf' )
	2944	!-- surface temperature for surfaces
	2945	IF ( av == 0 ) THEN
	2946	DO m = 1, surf_usm_h%ns
	2947	i = surf_usm_h%i(m)
	2948	j = surf_usm_h%j(m)
	2949	k = surf_usm_h%k(m)
	2950	temp_pf(k,j,i) = t_surf_h(m)
	2951	ENDDO
	2952	DO l = 0, 3
	2953	DO m = 1, surf_usm_v(l)%ns
	2954	i = surf_usm_v(l)%i(m)
	2955	j = surf_usm_v(l)%j(m)
	2956	k = surf_usm_v(l)%k(m)
	2957	temp_pf(k,j,i) = t_surf_v(l)%t(m)
	2958	ENDDO
	2959	ENDDO
	2960	ELSE
	2961	DO m = 1, surf_usm_h%ns
	2962	i = surf_usm_h%i(m)
	2963	j = surf_usm_h%j(m)
	2964	k = surf_usm_h%k(m)
	2965	temp_pf(k,j,i) = surf_usm_h%t_surf_av(m)
	2966	ENDDO
	2967	DO l = 0, 3
	2968	DO m = 1, surf_usm_v(l)%ns
	2969	i = surf_usm_v(l)%i(m)
	2970	j = surf_usm_v(l)%j(m)
	2971	k = surf_usm_v(l)%k(m)
	2972	temp_pf(k,j,i) = surf_usm_v(l)%t_surf_av(m)
	2973	ENDDO
	2974	ENDDO
	2975	ENDIF
	2976
	2977	CASE ( 'usm_t_surf_window' )
	2978	!-- surface temperature for window surfaces
	2979
	2980	IF ( av == 0 ) THEN
	2981	DO m = 1, surf_usm_h%ns
	2982	i = surf_usm_h%i(m)
	2983	j = surf_usm_h%j(m)
	2984	k = surf_usm_h%k(m)
	2985	temp_pf(k,j,i) = t_surf_window_h(m)
	2986	ENDDO
	2987	DO l = 0, 3
	2988	DO m = 1, surf_usm_v(l)%ns
	2989	i = surf_usm_v(l)%i(m)
	2990	j = surf_usm_v(l)%j(m)
	2991	k = surf_usm_v(l)%k(m)
	2992	temp_pf(k,j,i) = t_surf_window_v(l)%t(m)
	2993	ENDDO
	2994	ENDDO
	2995
	2996	ELSE
	2997	DO m = 1, surf_usm_h%ns
	2998	i = surf_usm_h%i(m)
	2999	j = surf_usm_h%j(m)
	3000	k = surf_usm_h%k(m)
	3001	temp_pf(k,j,i) = surf_usm_h%t_surf_window_av(m)
	3002	ENDDO
	3003	DO l = 0, 3
	3004	DO m = 1, surf_usm_v(l)%ns
	3005	i = surf_usm_v(l)%i(m)
	3006	j = surf_usm_v(l)%j(m)
	3007	k = surf_usm_v(l)%k(m)
	3008	temp_pf(k,j,i) = surf_usm_v(l)%t_surf_window_av(m)
	3009	ENDDO
	3010
	3011	ENDDO
	3012
	3013	ENDIF
	3014
	3015	CASE ( 'usm_t_surf_green' )
	3016	!-- surface temperature for green surfaces
	3017
	3018	IF ( av == 0 ) THEN
	3019	DO m = 1, surf_usm_h%ns
	3020	i = surf_usm_h%i(m)
	3021	j = surf_usm_h%j(m)
	3022	k = surf_usm_h%k(m)
	3023	temp_pf(k,j,i) = t_surf_green_h(m)
	3024	ENDDO
	3025	DO l = 0, 3
	3026	DO m = 1, surf_usm_v(l)%ns
	3027	i = surf_usm_v(l)%i(m)
	3028	j = surf_usm_v(l)%j(m)
	3029	k = surf_usm_v(l)%k(m)
	3030	temp_pf(k,j,i) = t_surf_green_v(l)%t(m)
	3031	ENDDO
	3032	ENDDO
	3033
	3034	ELSE
	3035	DO m = 1, surf_usm_h%ns
	3036	i = surf_usm_h%i(m)
	3037	j = surf_usm_h%j(m)
	3038	k = surf_usm_h%k(m)
	3039	temp_pf(k,j,i) = surf_usm_h%t_surf_green_av(m)
	3040	ENDDO
	3041	DO l = 0, 3
	3042	DO m = 1, surf_usm_v(l)%ns
	3043	i = surf_usm_v(l)%i(m)
	3044	j = surf_usm_v(l)%j(m)
	3045	k = surf_usm_v(l)%k(m)
	3046	temp_pf(k,j,i) = surf_usm_v(l)%t_surf_green_av(m)
	3047	ENDDO
	3048
	3049	ENDDO
	3050
	3051	ENDIF
	3052
	3053	CASE ( 'usm_t_surf_whole' )
	3054	!-- surface temperature for whole surfaces
	3055
	3056	IF ( av == 0 ) THEN
	3057	DO m = 1, surf_usm_h%ns
	3058	i = surf_usm_h%i(m)
	3059	j = surf_usm_h%j(m)
	3060	k = surf_usm_h%k(m)
	3061	temp_pf(k,j,i) = t_surf_whole_h(m)
	3062	ENDDO
	3063	DO l = 0, 3
	3064	DO m = 1, surf_usm_v(l)%ns
	3065	i = surf_usm_v(l)%i(m)
	3066	j = surf_usm_v(l)%j(m)
	3067	k = surf_usm_v(l)%k(m)
	3068	temp_pf(k,j,i) = t_surf_whole_v(l)%t(m)
	3069	ENDDO
	3070	ENDDO
	3071
	3072	ELSE
	3073	DO m = 1, surf_usm_h%ns
	3074	i = surf_usm_h%i(m)
	3075	j = surf_usm_h%j(m)
	3076	k = surf_usm_h%k(m)
	3077	temp_pf(k,j,i) = surf_usm_h%t_surf_whole_av(m)
	3078	ENDDO
	3079	DO l = 0, 3
	3080	DO m = 1, surf_usm_v(l)%ns
	3081	i = surf_usm_v(l)%i(m)
	3082	j = surf_usm_v(l)%j(m)
	3083	k = surf_usm_v(l)%k(m)
	3084	temp_pf(k,j,i) = surf_usm_v(l)%t_surf_whole_av(m)
	3085	ENDDO
	3086
	3087	ENDDO
	3088
	3089	ENDIF
	3090
	3091	CASE ( 'usm_t_surf_10cm' )
	3092	!-- near surface temperature for whole surfaces
	3093
	3094	IF ( av == 0 ) THEN
	3095	DO m = 1, surf_usm_h%ns
	3096	i = surf_usm_h%i(m)
	3097	j = surf_usm_h%j(m)
	3098	k = surf_usm_h%k(m)
	3099	temp_pf(k,j,i) = t_surf_10cm_h(m)
	3100	ENDDO
	3101	DO l = 0, 3
	3102	DO m = 1, surf_usm_v(l)%ns
	3103	i = surf_usm_v(l)%i(m)
	3104	j = surf_usm_v(l)%j(m)
	3105	k = surf_usm_v(l)%k(m)
	3106	temp_pf(k,j,i) = t_surf_10cm_v(l)%t(m)
	3107	ENDDO
	3108	ENDDO
	3109
	3110	ELSE
	3111	DO m = 1, surf_usm_h%ns
	3112	i = surf_usm_h%i(m)
	3113	j = surf_usm_h%j(m)
	3114	k = surf_usm_h%k(m)
	3115	temp_pf(k,j,i) = surf_usm_h%t_surf_10cm_av(m)
	3116	ENDDO
	3117	DO l = 0, 3
	3118	DO m = 1, surf_usm_v(l)%ns
	3119	i = surf_usm_v(l)%i(m)
	3120	j = surf_usm_v(l)%j(m)
	3121	k = surf_usm_v(l)%k(m)
	3122	temp_pf(k,j,i) = surf_usm_v(l)%t_surf_10cm_av(m)
	3123	ENDDO
	3124
	3125	ENDDO
	3126
	3127	ENDIF
	3128
	3129
	3130	CASE ( 'usm_t_wall' )
	3131	!-- wall temperature for iwl layer of walls and land
	3132	IF ( av == 0 ) THEN
	3133	DO m = 1, surf_usm_h%ns
	3134	i = surf_usm_h%i(m)
	3135	j = surf_usm_h%j(m)
	3136	k = surf_usm_h%k(m)
	3137	temp_pf(k,j,i) = t_wall_h(iwl,m)
	3138	ENDDO
	3139	DO l = 0, 3
	3140	DO m = 1, surf_usm_v(l)%ns
	3141	i = surf_usm_v(l)%i(m)
	3142	j = surf_usm_v(l)%j(m)
	3143	k = surf_usm_v(l)%k(m)
	3144	temp_pf(k,j,i) = t_wall_v(l)%t(iwl,m)
	3145	ENDDO
	3146	ENDDO
	3147	ELSE
	3148	DO m = 1, surf_usm_h%ns
	3149	i = surf_usm_h%i(m)
	3150	j = surf_usm_h%j(m)
	3151	k = surf_usm_h%k(m)
	3152	temp_pf(k,j,i) = surf_usm_h%t_wall_av(iwl,m)
	3153	ENDDO
	3154	DO l = 0, 3
	3155	DO m = 1, surf_usm_v(l)%ns
	3156	i = surf_usm_v(l)%i(m)
	3157	j = surf_usm_v(l)%j(m)
	3158	k = surf_usm_v(l)%k(m)
	3159	temp_pf(k,j,i) = surf_usm_v(l)%t_wall_av(iwl,m)
	3160	ENDDO
	3161	ENDDO
	3162	ENDIF
	3163
	3164	CASE ( 'usm_t_window' )
	3165	!-- window temperature for iwl layer of walls and land
	3166	IF ( av == 0 ) THEN
	3167	DO m = 1, surf_usm_h%ns
	3168	i = surf_usm_h%i(m)
	3169	j = surf_usm_h%j(m)
	3170	k = surf_usm_h%k(m)
	3171	temp_pf(k,j,i) = t_window_h(iwl,m)
	3172	ENDDO
	3173	DO l = 0, 3
	3174	DO m = 1, surf_usm_v(l)%ns
	3175	i = surf_usm_v(l)%i(m)
	3176	j = surf_usm_v(l)%j(m)
	3177	k = surf_usm_v(l)%k(m)
	3178	temp_pf(k,j,i) = t_window_v(l)%t(iwl,m)
	3179	ENDDO
	3180	ENDDO
	3181	ELSE
	3182	DO m = 1, surf_usm_h%ns
	3183	i = surf_usm_h%i(m)
	3184	j = surf_usm_h%j(m)
	3185	k = surf_usm_h%k(m)
	3186	temp_pf(k,j,i) = surf_usm_h%t_window_av(iwl,m)
	3187	ENDDO
	3188	DO l = 0, 3
	3189	DO m = 1, surf_usm_v(l)%ns
	3190	i = surf_usm_v(l)%i(m)
	3191	j = surf_usm_v(l)%j(m)
	3192	k = surf_usm_v(l)%k(m)
	3193	temp_pf(k,j,i) = surf_usm_v(l)%t_window_av(iwl,m)
	3194	ENDDO
	3195	ENDDO
	3196	ENDIF
	3197
	3198	CASE ( 'usm_t_green' )
	3199	!-- green temperature for iwl layer of walls and land
	3200	IF ( av == 0 ) THEN
	3201	DO m = 1, surf_usm_h%ns
	3202	i = surf_usm_h%i(m)
	3203	j = surf_usm_h%j(m)
	3204	k = surf_usm_h%k(m)
	3205	temp_pf(k,j,i) = t_green_h(iwl,m)
	3206	ENDDO
	3207	DO l = 0, 3
	3208	DO m = 1, surf_usm_v(l)%ns
	3209	i = surf_usm_v(l)%i(m)
	3210	j = surf_usm_v(l)%j(m)
	3211	k = surf_usm_v(l)%k(m)
	3212	temp_pf(k,j,i) = t_green_v(l)%t(iwl,m)
	3213	ENDDO
	3214	ENDDO
	3215	ELSE
	3216	DO m = 1, surf_usm_h%ns
	3217	i = surf_usm_h%i(m)
	3218	j = surf_usm_h%j(m)
	3219	k = surf_usm_h%k(m)
	3220	temp_pf(k,j,i) = surf_usm_h%t_green_av(iwl,m)
	3221	ENDDO
	3222	DO l = 0, 3
	3223	DO m = 1, surf_usm_v(l)%ns
	3224	i = surf_usm_v(l)%i(m)
	3225	j = surf_usm_v(l)%j(m)
	3226	k = surf_usm_v(l)%k(m)
	3227	temp_pf(k,j,i) = surf_usm_v(l)%t_green_av(iwl,m)
	3228	ENDDO
	3229	ENDDO
	3230	ENDIF
	3231
	3232
	3233	CASE DEFAULT
	3234	found = .FALSE.
	3235
	3236	END SELECT
	3237
	3238	!
	3239	!-- Rearrange dimensions for NetCDF output
	3240	DO j = nys, nyn
	3241	DO i = nxl, nxr
	3242	DO k = nzb_do, nzt_do
	3243	local_pf(i,j,k) = temp_pf(k,j,i)
	3244	ENDDO
	3245	ENDDO
	3246	ENDDO
	3247
	3248	END SUBROUTINE usm_data_output_3d
	3249
	3250
	3251	!------------------------------------------------------------------------------!
	3252	!
	3253	! Description:
	3254	! ------------
	3255	!> Soubroutine defines appropriate grid for netcdf variables.
	3256	!> It is called out from subroutine netcdf.
	3257	!------------------------------------------------------------------------------!
	3258	SUBROUTINE usm_define_netcdf_grid( variable, found, grid_x, grid_y, grid_z )
	3259
	3260	IMPLICIT NONE
	3261
	3262	CHARACTER (len=*), INTENT(IN) :: variable !<
	3263	LOGICAL, INTENT(OUT) :: found !<
	3264	CHARACTER (len=*), INTENT(OUT) :: grid_x !<
	3265	CHARACTER (len=*), INTENT(OUT) :: grid_y !<
	3266	CHARACTER (len=*), INTENT(OUT) :: grid_z !<
	3267
	3268	CHARACTER (len=varnamelength) :: var
	3269
	3270	var = TRIM(variable)
	3271	IF ( var(1:12) == 'usm_rad_net_' .OR. var(1:13) == 'usm_rad_insw_' .OR. &
	3272	var(1:13) == 'usm_rad_inlw_' .OR. var(1:16) == 'usm_rad_inswdir_' .OR. &
	3273	var(1:16) == 'usm_rad_inswdif_' .OR. var(1:16) == 'usm_rad_inswref_' .OR. &
	3274	var(1:16) == 'usm_rad_inlwdif_' .OR. var(1:16) == 'usm_rad_inlwref_' .OR. &
	3275	var(1:14) == 'usm_rad_outsw_' .OR. var(1:14) == 'usm_rad_outlw_' .OR. &
	3276	var(1:14) == 'usm_rad_ressw_' .OR. var(1:14) == 'usm_rad_reslw_' .OR. &
	3277	var(1:11) == 'usm_rad_hf_' .OR. &
	3278	var(1:9) == 'usm_wshf_' .OR. var(1:9) == 'usm_wghf_' .OR. &
	3279	var(1:16) == 'usm_wghf_window_' .OR. var(1:15) == 'usm_wghf_green_' .OR. &
	3280	var(1:10) == 'usm_iwghf_' .OR. var(1:17) == 'usm_iwghf_window_' .OR. &
	3281	var(1:10) == 'usm_t_surf' .OR. var(1:10) == 'usm_t_wall' .OR. &
	3282	var(1:17) == 'usm_t_surf_window' .OR. var(1:12) == 'usm_t_window' .OR. &
	3283	var(1:16) == 'usm_t_surf_green' .OR. var(1:16) == 'usm_t_surf_whole' .OR. &
	3284	var(1:15) == 'usm_t_surf_10cm' .OR. &
	3285	var(1:9) == 'usm_surfz' .OR. var(1:7) == 'usm_svf' .OR. &
	3286	var(1:7) == 'usm_dif' .OR. var(1:11) == 'usm_surfcat' .OR. &
	3287	var(1:11) == 'usm_surfalb' .OR. var(1:12) == 'usm_surfemis' .OR. &
	3288	var(1:16) == 'usm_surfwintrans' ) THEN
	3289
	3290	found = .TRUE.
	3291	grid_x = 'x'
	3292	grid_y = 'y'
	3293	grid_z = 'zu'
	3294	ELSE
	3295	found = .FALSE.
	3296	grid_x = 'none'
	3297	grid_y = 'none'
	3298	grid_z = 'none'
	3299	ENDIF
	3300
	3301	END SUBROUTINE usm_define_netcdf_grid
	3302
	3303
	3304	!------------------------------------------------------------------------------!
	3305	! Description:
	3306	! ------------
	3307	!> Initialization of the wall surface model
	3308	!------------------------------------------------------------------------------!
	3309	SUBROUTINE usm_init_material_model
	3310
	3311	IMPLICIT NONE
	3312
	3313	INTEGER(iwp) :: k, l, m !< running indices
	3314
	3315	CALL location_message( ' initialization of wall surface model', .TRUE. )
	3316
	3317	!-- Calculate wall grid spacings.
	3318	!-- Temperature is defined at the center of the wall layers,
	3319	!-- whereas gradients/fluxes are defined at the edges (_stag)
	3320	!-- apply for all particular surface grids. First for horizontal surfaces
	3321	DO m = 1, surf_usm_h%ns
	3322
	3323	surf_usm_h%dz_wall(nzb_wall,m) = surf_usm_h%zw(nzb_wall,m)
	3324	DO k = nzb_wall+1, nzt_wall
	3325	surf_usm_h%dz_wall(k,m) = surf_usm_h%zw(k,m) - &
	3326	surf_usm_h%zw(k-1,m)
	3327	ENDDO
	3328	surf_usm_h%dz_window(nzb_wall,m) = surf_usm_h%zw_window(nzb_wall,m)
	3329	DO k = nzb_wall+1, nzt_wall
	3330	surf_usm_h%dz_window(k,m) = surf_usm_h%zw_window(k,m) - &
	3331	surf_usm_h%zw_window(k-1,m)
	3332	ENDDO
	3333	surf_usm_h%dz_green(nzb_wall,m) = surf_usm_h%zw_green(nzb_wall,m)
	3334	DO k = nzb_wall+1, nzt_wall
	3335	surf_usm_h%dz_green(k,m) = surf_usm_h%zw_green(k,m) - &
	3336	surf_usm_h%zw_green(k-1,m)
	3337	ENDDO
	3338
	3339	surf_usm_h%dz_wall(nzt_wall+1,m) = surf_usm_h%dz_wall(nzt_wall,m)
	3340
	3341	DO k = nzb_wall, nzt_wall-1
	3342	surf_usm_h%dz_wall_stag(k,m) = 0.5 * ( &
	3343	surf_usm_h%dz_wall(k+1,m) + surf_usm_h%dz_wall(k,m) )
	3344	ENDDO
	3345	surf_usm_h%dz_wall_stag(nzt_wall,m) = surf_usm_h%dz_wall(nzt_wall,m)
	3346
	3347	surf_usm_h%dz_window(nzt_wall+1,m) = surf_usm_h%dz_window(nzt_wall,m)
	3348
	3349	DO k = nzb_wall, nzt_wall-1
	3350	surf_usm_h%dz_window_stag(k,m) = 0.5 * ( &
	3351	surf_usm_h%dz_window(k+1,m) + surf_usm_h%dz_window(k,m) )
	3352	ENDDO
	3353	surf_usm_h%dz_window_stag(nzt_wall,m) = surf_usm_h%dz_window(nzt_wall,m)
	3354
	3355	surf_usm_h%dz_green(nzt_wall+1,m) = surf_usm_h%dz_green(nzt_wall,m)
	3356
	3357	DO k = nzb_wall, nzt_wall-1
	3358	surf_usm_h%dz_green_stag(k,m) = 0.5 * ( &
	3359	surf_usm_h%dz_green(k+1,m) + surf_usm_h%dz_green(k,m) )
	3360	ENDDO
	3361	surf_usm_h%dz_green_stag(nzt_wall,m) = surf_usm_h%dz_green(nzt_wall,m)
	3362	ENDDO
	3363	surf_usm_h%ddz_wall = 1.0_wp / surf_usm_h%dz_wall
	3364	surf_usm_h%ddz_wall_stag = 1.0_wp / surf_usm_h%dz_wall_stag
	3365	surf_usm_h%ddz_window = 1.0_wp / surf_usm_h%dz_window
	3366	surf_usm_h%ddz_window_stag = 1.0_wp / surf_usm_h%dz_window_stag
	3367	surf_usm_h%ddz_green = 1.0_wp / surf_usm_h%dz_green
	3368	surf_usm_h%ddz_green_stag = 1.0_wp / surf_usm_h%dz_green_stag
	3369	!
	3370	!-- For vertical surfaces
	3371	DO l = 0, 3
	3372	DO m = 1, surf_usm_v(l)%ns
	3373	surf_usm_v(l)%dz_wall(nzb_wall,m) = surf_usm_v(l)%zw(nzb_wall,m)
	3374	DO k = nzb_wall+1, nzt_wall
	3375	surf_usm_v(l)%dz_wall(k,m) = surf_usm_v(l)%zw(k,m) - &
	3376	surf_usm_v(l)%zw(k-1,m)
	3377	ENDDO
	3378	surf_usm_v(l)%dz_window(nzb_wall,m) = surf_usm_v(l)%zw_window(nzb_wall,m)
	3379	DO k = nzb_wall+1, nzt_wall
	3380	surf_usm_v(l)%dz_window(k,m) = surf_usm_v(l)%zw_window(k,m) - &
	3381	surf_usm_v(l)%zw_window(k-1,m)
	3382	ENDDO
	3383	surf_usm_v(l)%dz_green(nzb_wall,m) = surf_usm_v(l)%zw_green(nzb_wall,m)
	3384	DO k = nzb_wall+1, nzt_wall
	3385	surf_usm_v(l)%dz_green(k,m) = surf_usm_v(l)%zw_green(k,m) - &
	3386	surf_usm_v(l)%zw_green(k-1,m)
	3387	ENDDO
	3388
	3389	surf_usm_v(l)%dz_wall(nzt_wall+1,m) = &
	3390	surf_usm_v(l)%dz_wall(nzt_wall,m)
	3391
	3392	DO k = nzb_wall, nzt_wall-1
	3393	surf_usm_v(l)%dz_wall_stag(k,m) = 0.5 * ( &
	3394	surf_usm_v(l)%dz_wall(k+1,m) + &
	3395	surf_usm_v(l)%dz_wall(k,m) )
	3396	ENDDO
	3397	surf_usm_v(l)%dz_wall_stag(nzt_wall,m) = &
	3398	surf_usm_v(l)%dz_wall(nzt_wall,m)
	3399	surf_usm_v(l)%dz_window(nzt_wall+1,m) = &
	3400	surf_usm_v(l)%dz_window(nzt_wall,m)
	3401
	3402	DO k = nzb_wall, nzt_wall-1
	3403	surf_usm_v(l)%dz_window_stag(k,m) = 0.5 * ( &
	3404	surf_usm_v(l)%dz_window(k+1,m) + &
	3405	surf_usm_v(l)%dz_window(k,m) )
	3406	ENDDO
	3407	surf_usm_v(l)%dz_window_stag(nzt_wall,m) = &
	3408	surf_usm_v(l)%dz_window(nzt_wall,m)
	3409	surf_usm_v(l)%dz_green(nzt_wall+1,m) = &
	3410	surf_usm_v(l)%dz_green(nzt_wall,m)
	3411
	3412	DO k = nzb_wall, nzt_wall-1
	3413	surf_usm_v(l)%dz_green_stag(k,m) = 0.5 * ( &
	3414	surf_usm_v(l)%dz_green(k+1,m) + &
	3415	surf_usm_v(l)%dz_green(k,m) )
	3416	ENDDO
	3417	surf_usm_v(l)%dz_green_stag(nzt_wall,m) = &
	3418	surf_usm_v(l)%dz_green(nzt_wall,m)
	3419	ENDDO
	3420	surf_usm_v(l)%ddz_wall = 1.0_wp / surf_usm_v(l)%dz_wall
	3421	surf_usm_v(l)%ddz_wall_stag = 1.0_wp / surf_usm_v(l)%dz_wall_stag
	3422	surf_usm_v(l)%ddz_window = 1.0_wp / surf_usm_v(l)%dz_window
	3423	surf_usm_v(l)%ddz_window_stag = 1.0_wp / surf_usm_v(l)%dz_window_stag
	3424	surf_usm_v(l)%ddz_green = 1.0_wp / surf_usm_v(l)%dz_green
	3425	surf_usm_v(l)%ddz_green_stag = 1.0_wp / surf_usm_v(l)%dz_green_stag
	3426	ENDDO
	3427
	3428
	3429	CALL location_message( ' wall structures filed out', .TRUE. )
	3430
	3431	CALL location_message( ' initialization of wall surface model finished', .TRUE. )
	3432
	3433	END SUBROUTINE usm_init_material_model
	3434
	3435
	3436	!------------------------------------------------------------------------------!
	3437	! Description:
	3438	! ------------
	3439	!> Initialization of the urban surface model
	3440	!------------------------------------------------------------------------------!
	3441	SUBROUTINE usm_init_urban_surface
	3442
	3443	USE arrays_3d, &
	3444	ONLY: zw
	3445
	3446	USE netcdf_data_input_mod, &
	3447	ONLY: building_pars_f, building_type_f, terrain_height_f
	3448
	3449	IMPLICIT NONE
	3450
	3451	INTEGER(iwp) :: i !< loop index x-dirction
	3452	INTEGER(iwp) :: ind_emis_wall !< index in input list for wall emissivity
	3453	INTEGER(iwp) :: ind_emis_green !< index in input list for green emissivity
	3454	INTEGER(iwp) :: ind_emis_win !< index in input list for window emissivity
	3455	INTEGER(iwp) :: ind_green_frac_w !< index in input list for green fraction on wall
	3456	INTEGER(iwp) :: ind_green_frac_r !< index in input list for green fraction on roof
	3457	INTEGER(iwp) :: ind_hc1 !< index in input list for heat capacity at first wall layer
	3458	INTEGER(iwp) :: ind_hc2 !< index in input list for heat capacity at second wall layer
	3459	INTEGER(iwp) :: ind_hc3 !< index in input list for heat capacity at third wall layer
	3460	INTEGER(iwp) :: ind_lai_r !< index in input list for LAI on roof
	3461	INTEGER(iwp) :: ind_lai_w !< index in input list for LAI on wall
	3462	INTEGER(iwp) :: ind_tc1 !< index in input list for thermal conductivity at first wall layer
	3463	INTEGER(iwp) :: ind_tc2 !< index in input list for thermal conductivity at second wall layer
	3464	INTEGER(iwp) :: ind_tc3 !< index in input list for thermal conductivity at third wall layer
	3465	INTEGER(iwp) :: ind_trans !< index in input list for window transmissivity
	3466	INTEGER(iwp) :: ind_wall_frac !< index in input list for wall fraction
	3467	INTEGER(iwp) :: ind_win_frac !< index in input list for window fraction
	3468	INTEGER(iwp) :: ind_z0 !< index in input list for z0
	3469	INTEGER(iwp) :: ind_z0qh !< index in input list for z0h / z0q
	3470	INTEGER(iwp) :: j !< loop index y-dirction
	3471	INTEGER(iwp) :: k !< loop index z-dirction
	3472	INTEGER(iwp) :: l !< loop index surface orientation
	3473	INTEGER(iwp) :: m !< loop index surface element
	3474	INTEGER(iwp) :: st !< dummy
	3475
	3476	REAL(wp) :: c, d, tin, twin, exn
	3477	REAL(wp) :: ground_floor_level_l !< local height of ground floor level
	3478	REAL(wp) :: z_agl !< height above ground
	3479
	3480	!
	3481	!-- NOPOINTER version not implemented yet
	3482	#if defined( __nopointer )
	3483	message_string = 'The urban surface module only runs with POINTER version'
	3484	CALL message( 'urban_surface_mod', 'PA0452', 1, 2, 0, 6, 0 )
	3485	#endif
	3486
	3487	CALL cpu_log( log_point_s(78), 'usm_init', 'start' )
	3488	!-- surface forcing have to be disabled for LSF
	3489	!-- in case of enabled urban surface module
	3490	IF ( large_scale_forcing ) THEN
	3491	lsf_surf = .FALSE.
	3492	ENDIF
	3493
	3494	!
	3495	!-- Flag surface elements belonging to the ground floor level. Therefore,
	3496	!-- use terrain height array from file, if available. This flag is later used
	3497	!-- to control initialization of surface attributes.
	3498	surf_usm_h%ground_level = .FALSE.
	3499	DO m = 1, surf_usm_h%ns
	3500	i = surf_usm_h%i(m)
	3501	j = surf_usm_h%j(m)
	3502	k = surf_usm_h%k(m)
	3503	!
	3504	!-- Get local ground level. If no ground level is given in input file,
	3505	!-- use default value.
	3506	ground_floor_level_l = ground_floor_level
	3507	IF ( building_pars_f%from_file ) THEN
	3508	IF ( building_pars_f%pars_xy(ind_gflh,j,i) /= &
	3509	building_pars_f%fill ) &
	3510	ground_floor_level_l = building_pars_f%pars_xy(ind_gflh,j,i)
	3511	ENDIF
	3512	!
	3513	!-- Determine height of surface element above ground level
	3514	IF ( terrain_height_f%from_file ) THEN
	3515	z_agl = zw(k) - terrain_height_f%var(j,i)
	3516	ELSE
	3517	z_agl = zw(k)
	3518	ENDIF
	3519	!
	3520	!-- Set flag for ground level
	3521	IF ( z_agl <= ground_floor_level_l ) &
	3522	surf_usm_h%ground_level(m) = .TRUE.
	3523	ENDDO
	3524
	3525	DO l = 0, 3
	3526	surf_usm_v(l)%ground_level = .FALSE.
	3527	DO m = 1, surf_usm_v(l)%ns
	3528	i = surf_usm_v(l)%i(m) + surf_usm_v(l)%ioff
	3529	j = surf_usm_v(l)%j(m) + surf_usm_v(l)%joff
	3530	k = surf_usm_v(l)%k(m)
	3531	!
	3532	!-- Get local ground level. If no ground level is given in input file,
	3533	!-- use default value.
	3534	ground_floor_level_l = ground_floor_level
	3535	IF ( building_pars_f%from_file ) THEN
	3536	IF ( building_pars_f%pars_xy(ind_gflh,j,i) /= &
	3537	building_pars_f%fill ) &
	3538	ground_floor_level_l = building_pars_f%pars_xy(ind_gflh,j,i)
	3539	ENDIF
	3540	!
	3541	!-- Determine height of surface element above ground level. Please
	3542	!-- note, height of surface element is determined with respect to
	3543	!-- its height of the adjoing atmospheric grid point.
	3544	IF ( terrain_height_f%from_file ) THEN
	3545	z_agl = zw(k) - terrain_height_f%var(j-surf_usm_v(l)%joff, &
	3546	i-surf_usm_v(l)%ioff)
	3547	ELSE
	3548	z_agl = zw(k)
	3549	ENDIF
	3550	!
	3551	!-- Set flag for ground level
	3552	IF ( z_agl <= ground_floor_level_l ) &
	3553	surf_usm_v(l)%ground_level(m) = .TRUE.
	3554
	3555	ENDDO
	3556	ENDDO
	3557	!
	3558	!-- Initialize urban-type surface attribute. According to initialization in
	3559	!-- land-surface model, follow a 3-level approach.
	3560	!-- Level 1 - initialization via default attributes
	3561	DO m = 1, surf_usm_h%ns
	3562	!
	3563	!-- Now, all horizontal surfaces are roof surfaces (?)
	3564	surf_usm_h%isroof_surf(m) = .TRUE.
	3565	surf_usm_h%surface_types(m) = roof_category !< default category for root surface
	3566	!
	3567	!-- In order to distinguish between ground floor level and
	3568	!-- above-ground-floor level surfaces, set input indices.
	3569	ind_wall_frac = MERGE( ind_wall_frac_gfl, ind_wall_frac_agfl, &
	3570	surf_usm_h%ground_level(m) )
	3571	ind_win_frac = MERGE( ind_win_frac_gfl, ind_win_frac_agfl, &
	3572	surf_usm_h%ground_level(m) )
	3573	ind_green_frac_w = MERGE( ind_green_frac_w_gfl, ind_green_frac_w_agfl, &
	3574	surf_usm_h%ground_level(m) )
	3575	ind_green_frac_r = MERGE( ind_green_frac_r_gfl, ind_green_frac_r_agfl, &
	3576	surf_usm_h%ground_level(m) )
	3577	ind_lai_r = MERGE( ind_lai_r_gfl, ind_lai_r_agfl, &
	3578	surf_usm_h%ground_level(m) )
	3579	ind_lai_w = MERGE( ind_lai_w_gfl, ind_lai_w_agfl, &
	3580	surf_usm_h%ground_level(m) )
	3581	ind_hc1 = MERGE( ind_hc1_gfl, ind_hc1_agfl, &
	3582	surf_usm_h%ground_level(m) )
	3583	ind_hc2 = MERGE( ind_hc2_gfl, ind_hc2_agfl, &
	3584	surf_usm_h%ground_level(m) )
	3585	ind_hc3 = MERGE( ind_hc3_gfl, ind_hc3_agfl, &
	3586	surf_usm_h%ground_level(m) )
	3587	ind_tc1 = MERGE( ind_tc1_gfl, ind_tc1_agfl, &
	3588	surf_usm_h%ground_level(m) )
	3589	ind_tc2 = MERGE( ind_tc2_gfl, ind_tc2_agfl, &
	3590	surf_usm_h%ground_level(m) )
	3591	ind_tc3 = MERGE( ind_tc3_gfl, ind_tc3_agfl, &
	3592	surf_usm_h%ground_level(m) )
	3593	ind_emis_wall = MERGE( ind_emis_wall_gfl, ind_emis_wall_agfl, &
	3594	surf_usm_h%ground_level(m) )
	3595	ind_emis_green = MERGE( ind_emis_green_gfl, ind_emis_green_agfl, &
	3596	surf_usm_h%ground_level(m) )
	3597	ind_emis_win = MERGE( ind_emis_win_gfl, ind_emis_win_agfl, &
	3598	surf_usm_h%ground_level(m) )
	3599	ind_trans = MERGE( ind_trans_gfl, ind_trans_agfl, &
	3600	surf_usm_h%ground_level(m) )
	3601	ind_z0 = MERGE( ind_z0_gfl, ind_z0_agfl, &
	3602	surf_usm_h%ground_level(m) )
	3603	ind_z0qh = MERGE( ind_z0qh_gfl, ind_z0qh_agfl, &
	3604	surf_usm_h%ground_level(m) )
	3605	!
	3606	!-- Initialize relatvie wall- (0), green- (1) and window (2) fractions
	3607	surf_usm_h%frac(0,m) = building_pars(ind_wall_frac,building_type)
	3608	surf_usm_h%frac(1,m) = building_pars(ind_green_frac_r,building_type)
	3609	surf_usm_h%frac(2,m) = building_pars(ind_win_frac,building_type)
	3610	surf_usm_h%lai(m) = building_pars(ind_green_frac_r,building_type)
	3611
	3612	surf_usm_h%rho_c_wall(nzb_wall,m) = building_pars(ind_hc1,building_type)
	3613	surf_usm_h%rho_c_wall(nzb_wall+1,m) = building_pars(ind_hc1,building_type)
	3614	surf_usm_h%rho_c_wall(nzb_wall+2,m) = building_pars(ind_hc2,building_type)
	3615	surf_usm_h%rho_c_wall(nzb_wall+3,m) = building_pars(ind_hc3,building_type)
	3616	surf_usm_h%lambda_h(nzb_wall,m) = building_pars(ind_tc1,building_type)
	3617	surf_usm_h%lambda_h(nzb_wall+1,m) = building_pars(ind_tc1,building_type)
	3618	surf_usm_h%lambda_h(nzb_wall+2,m) = building_pars(ind_tc2,building_type)
	3619	surf_usm_h%lambda_h(nzb_wall+3,m) = building_pars(ind_tc3,building_type)
	3620	surf_usm_h%rho_c_green(nzb_wall,m) = building_pars(ind_hc1,building_type)
	3621	surf_usm_h%rho_c_green(nzb_wall+1,m) = building_pars(ind_hc1,building_type)
	3622	surf_usm_h%rho_c_green(nzb_wall+2,m) = building_pars(ind_hc2,building_type)
	3623	surf_usm_h%rho_c_green(nzb_wall+3,m) = building_pars(ind_hc3,building_type)
	3624	surf_usm_h%lambda_h_green(nzb_wall,m) = building_pars(ind_tc1,building_type)
	3625	surf_usm_h%lambda_h_green(nzb_wall+1,m) = building_pars(ind_tc1,building_type)
	3626	surf_usm_h%lambda_h_green(nzb_wall+2,m) = building_pars(ind_tc2,building_type)
	3627	surf_usm_h%lambda_h_green(nzb_wall+3,m) = building_pars(ind_tc3,building_type)
	3628	surf_usm_h%rho_c_window(nzb_wall,m) = building_pars(ind_hc1,building_type)
	3629	surf_usm_h%rho_c_window(nzb_wall+1,m) = building_pars(ind_hc1,building_type)
	3630	surf_usm_h%rho_c_window(nzb_wall+2,m) = building_pars(ind_hc2,building_type)
	3631	surf_usm_h%rho_c_window(nzb_wall+3,m) = building_pars(ind_hc3,building_type)
	3632	surf_usm_h%lambda_h_window(nzb_wall,m) = building_pars(ind_tc1,building_type)
	3633	surf_usm_h%lambda_h_window(nzb_wall+1,m) = building_pars(ind_tc1,building_type)
	3634	surf_usm_h%lambda_h_window(nzb_wall+2,m) = building_pars(ind_tc2,building_type)
	3635	surf_usm_h%lambda_h_window(nzb_wall+3,m) = building_pars(ind_tc3,building_type)
	3636
	3637	surf_usm_h%target_temp_summer(m) = building_pars(12,building_type)
	3638	surf_usm_h%target_temp_winter(m) = building_pars(13,building_type)
	3639	!
	3640	!-- emissivity of wall-, green- and window fraction
	3641	surf_usm_h%emissivity(0,m) = building_pars(ind_emis_wall,building_type)
	3642	surf_usm_h%emissivity(1,m) = building_pars(ind_emis_green,building_type)
	3643	surf_usm_h%emissivity(2,m) = building_pars(ind_emis_win,building_type)
	3644
	3645	surf_usm_h%transmissivity(m) = building_pars(ind_trans,building_type)
	3646
	3647	surf_usm_h%z0(m) = building_pars(ind_z0,building_type)
	3648	surf_usm_h%z0h(m) = building_pars(ind_z0qh,building_type)
	3649	surf_usm_h%z0q(m) = building_pars(ind_z0qh,building_type)
	3650	!
	3651	!-- albedo type for wall fraction, green fraction, window fraction
	3652	surf_usm_h%albedo_type(0,m) = INT( building_pars(ind_alb_wall,building_type) )
	3653	surf_usm_h%albedo_type(1,m) = INT( building_pars(ind_alb_green,building_type) )
	3654	surf_usm_h%albedo_type(2,m) = INT( building_pars(ind_alb_win,building_type) )
	3655
	3656	surf_usm_h%zw(nzb_wall,m) = building_pars(ind_thick_1,building_type)
	3657	surf_usm_h%zw(nzb_wall+1,m) = building_pars(ind_thick_2,building_type)
	3658	surf_usm_h%zw(nzb_wall+2,m) = building_pars(ind_thick_3,building_type)
	3659	surf_usm_h%zw(nzb_wall+3,m) = building_pars(ind_thick_4,building_type)
	3660
	3661	surf_usm_h%zw_green(nzb_wall,m) = building_pars(ind_thick_1,building_type)
	3662	surf_usm_h%zw_green(nzb_wall+1,m) = building_pars(ind_thick_2,building_type)
	3663	surf_usm_h%zw_green(nzb_wall+2,m) = building_pars(ind_thick_3,building_type)
	3664	surf_usm_h%zw_green(nzb_wall+3,m) = building_pars(ind_thick_4,building_type)
	3665
	3666	surf_usm_h%zw_window(nzb_wall,m) = building_pars(ind_thick_1,building_type)
	3667	surf_usm_h%zw_window(nzb_wall+1,m) = building_pars(ind_thick_2,building_type)
	3668	surf_usm_h%zw_window(nzb_wall+2,m) = building_pars(ind_thick_3,building_type)
	3669	surf_usm_h%zw_window(nzb_wall+3,m) = building_pars(ind_thick_4,building_type)
	3670
	3671	surf_usm_h%c_surface(m) = building_pars(45,building_type)
	3672	surf_usm_h%lambda_surf(m) = building_pars(46,building_type)
	3673	surf_usm_h%c_surface_green(m) = building_pars(45,building_type)
	3674	surf_usm_h%lambda_surf_green(m) = building_pars(46,building_type)
	3675	surf_usm_h%c_surface_window(m) = building_pars(45,building_type)
	3676	surf_usm_h%lambda_surf_window(m) = building_pars(46,building_type)
	3677
	3678	ENDDO
	3679
	3680	DO l = 0, 3
	3681	DO m = 1, surf_usm_v(l)%ns
	3682
	3683	surf_usm_v(l)%surface_types(m) = wall_category !< default category for root surface
	3684	!
	3685	!-- In order to distinguish between ground floor level and
	3686	!-- above-ground-floor level surfaces, set input indices.
	3687	ind_wall_frac = MERGE( ind_wall_frac_gfl, ind_wall_frac_agfl, &
	3688	surf_usm_v(l)%ground_level(m) )
	3689	ind_win_frac = MERGE( ind_win_frac_gfl, ind_win_frac_agfl, &
	3690	surf_usm_v(l)%ground_level(m) )
	3691	ind_green_frac_w = MERGE( ind_green_frac_w_gfl, ind_green_frac_w_agfl, &
	3692	surf_usm_v(l)%ground_level(m) )
	3693	ind_green_frac_r = MERGE( ind_green_frac_r_gfl, ind_green_frac_r_agfl, &
	3694	surf_usm_v(l)%ground_level(m) )
	3695	ind_lai_r = MERGE( ind_lai_r_gfl, ind_lai_r_agfl, &
	3696	surf_usm_v(l)%ground_level(m) )
	3697	ind_lai_w = MERGE( ind_lai_w_gfl, ind_lai_w_agfl, &
	3698	surf_usm_v(l)%ground_level(m) )
	3699	ind_hc1 = MERGE( ind_hc1_gfl, ind_hc1_agfl, &
	3700	surf_usm_v(l)%ground_level(m) )
	3701	ind_hc2 = MERGE( ind_hc2_gfl, ind_hc2_agfl, &
	3702	surf_usm_v(l)%ground_level(m) )
	3703	ind_hc3 = MERGE( ind_hc3_gfl, ind_hc3_agfl, &
	3704	surf_usm_v(l)%ground_level(m) )
	3705	ind_tc1 = MERGE( ind_tc1_gfl, ind_tc1_agfl, &
	3706	surf_usm_v(l)%ground_level(m) )
	3707	ind_tc2 = MERGE( ind_tc2_gfl, ind_tc2_agfl, &
	3708	surf_usm_v(l)%ground_level(m) )
	3709	ind_tc3 = MERGE( ind_tc3_gfl, ind_tc3_agfl, &
	3710	surf_usm_v(l)%ground_level(m) )
	3711	ind_emis_wall = MERGE( ind_emis_wall_gfl, ind_emis_wall_agfl, &
	3712	surf_usm_v(l)%ground_level(m) )
	3713	ind_emis_green = MERGE( ind_emis_green_gfl, ind_emis_green_agfl, &
	3714	surf_usm_v(l)%ground_level(m) )
	3715	ind_emis_win = MERGE( ind_emis_win_gfl, ind_emis_win_agfl, &
	3716	surf_usm_v(l)%ground_level(m) )
	3717	ind_trans = MERGE( ind_trans_gfl, ind_trans_agfl, &
	3718	surf_usm_v(l)%ground_level(m) )
	3719	ind_z0 = MERGE( ind_z0_gfl, ind_z0_agfl, &
	3720	surf_usm_v(l)%ground_level(m) )
	3721	ind_z0qh = MERGE( ind_z0qh_gfl, ind_z0qh_agfl, &
	3722	surf_usm_v(l)%ground_level(m) )
	3723
	3724	!
	3725	!-- Initialize relatvie wall- (0), green- (1) and window (2) fractions
	3726	surf_usm_v(l)%frac(0,m) = building_pars(ind_wall_frac,building_type)
	3727	surf_usm_v(l)%frac(1,m) = building_pars(ind_green_frac_w,building_type)
	3728	surf_usm_v(l)%frac(2,m) = building_pars(ind_win_frac,building_type)
	3729	surf_usm_v(l)%lai(m) = building_pars(ind_lai_w,building_type)
	3730
	3731	surf_usm_v(l)%rho_c_wall(nzb_wall,m) = building_pars(ind_hc1,building_type)
	3732	surf_usm_v(l)%rho_c_wall(nzb_wall+1,m) = building_pars(ind_hc1,building_type)
	3733	surf_usm_v(l)%rho_c_wall(nzb_wall+2,m) = building_pars(ind_hc2,building_type)
	3734	surf_usm_v(l)%rho_c_wall(nzb_wall+3,m) = building_pars(ind_hc3,building_type)
	3735
	3736	surf_usm_v(l)%rho_c_green(nzb_wall,m) = building_pars(ind_hc1,building_type)
	3737	surf_usm_v(l)%rho_c_green(nzb_wall+1,m) = building_pars(ind_hc1,building_type)
	3738	surf_usm_v(l)%rho_c_green(nzb_wall+2,m) = building_pars(ind_hc2,building_type)
	3739	surf_usm_v(l)%rho_c_green(nzb_wall+3,m) = building_pars(ind_hc3,building_type)
	3740
	3741	surf_usm_v(l)%rho_c_window(nzb_wall,m) = building_pars(ind_hc1,building_type)
	3742	surf_usm_v(l)%rho_c_window(nzb_wall+1,m) = building_pars(ind_hc1,building_type)
	3743	surf_usm_v(l)%rho_c_window(nzb_wall+2,m) = building_pars(ind_hc2,building_type)
	3744	surf_usm_v(l)%rho_c_window(nzb_wall+3,m) = building_pars(ind_hc3,building_type)
	3745
	3746	surf_usm_v(l)%lambda_h(nzb_wall,m) = building_pars(ind_tc1,building_type)
	3747	surf_usm_v(l)%lambda_h(nzb_wall+1,m) = building_pars(ind_tc1,building_type)
	3748	surf_usm_v(l)%lambda_h(nzb_wall+2,m) = building_pars(ind_tc2,building_type)
	3749	surf_usm_v(l)%lambda_h(nzb_wall+3,m) = building_pars(ind_tc3,building_type)
	3750
	3751	surf_usm_v(l)%lambda_h_green(nzb_wall,m) = building_pars(ind_tc1,building_type)
	3752	surf_usm_v(l)%lambda_h_green(nzb_wall+1,m) = building_pars(ind_tc1,building_type)
	3753	surf_usm_v(l)%lambda_h_green(nzb_wall+2,m) = building_pars(ind_tc2,building_type)
	3754	surf_usm_v(l)%lambda_h_green(nzb_wall+3,m) = building_pars(ind_tc3,building_type)
	3755
	3756	surf_usm_v(l)%lambda_h_window(nzb_wall,m) = building_pars(ind_tc1,building_type)
	3757	surf_usm_v(l)%lambda_h_window(nzb_wall+1,m) = building_pars(ind_tc1,building_type)
	3758	surf_usm_v(l)%lambda_h_window(nzb_wall+2,m) = building_pars(ind_tc2,building_type)
	3759	surf_usm_v(l)%lambda_h_window(nzb_wall+3,m) = building_pars(ind_tc3,building_type)
	3760
	3761	surf_usm_v(l)%target_temp_summer(m) = building_pars(12,building_type)
	3762	surf_usm_v(l)%target_temp_winter(m) = building_pars(13,building_type)
	3763	!
	3764	!-- emissivity of wall-, green- and window fraction
	3765	surf_usm_v(l)%emissivity(0,m) = building_pars(ind_emis_wall,building_type)
	3766	surf_usm_v(l)%emissivity(1,m) = building_pars(ind_emis_green,building_type)
	3767	surf_usm_v(l)%emissivity(2,m) = building_pars(ind_emis_win,building_type)
	3768
	3769	surf_usm_v(l)%transmissivity(m) = building_pars(ind_trans,building_type)
	3770
	3771	surf_usm_v(l)%z0(m) = building_pars(ind_z0,building_type)
	3772	surf_usm_v(l)%z0h(m) = building_pars(ind_z0qh,building_type)
	3773	surf_usm_v(l)%z0q(m) = building_pars(ind_z0qh,building_type)
	3774
	3775	surf_usm_v(l)%albedo_type(0,m) = INT( building_pars(ind_alb_wall,building_type) )
	3776	surf_usm_v(l)%albedo_type(1,m) = INT( building_pars(ind_alb_green,building_type) )
	3777	surf_usm_v(l)%albedo_type(2,m) = INT( building_pars(ind_alb_win,building_type) )
	3778
	3779	surf_usm_v(l)%zw(nzb_wall,m) = building_pars(ind_thick_1,building_type)
	3780	surf_usm_v(l)%zw(nzb_wall+1,m) = building_pars(ind_thick_2,building_type)
	3781	surf_usm_v(l)%zw(nzb_wall+2,m) = building_pars(ind_thick_3,building_type)
	3782	surf_usm_v(l)%zw(nzb_wall+3,m) = building_pars(ind_thick_4,building_type)
	3783
	3784	surf_usm_v(l)%zw_green(nzb_wall,m) = building_pars(ind_thick_1,building_type)
	3785	surf_usm_v(l)%zw_green(nzb_wall+1,m) = building_pars(ind_thick_2,building_type)
	3786	surf_usm_v(l)%zw_green(nzb_wall+2,m) = building_pars(ind_thick_3,building_type)
	3787	surf_usm_v(l)%zw_green(nzb_wall+3,m) = building_pars(ind_thick_4,building_type)
	3788
	3789	surf_usm_v(l)%zw_window(nzb_wall,m) = building_pars(ind_thick_1,building_type)
	3790	surf_usm_v(l)%zw_window(nzb_wall+1,m) = building_pars(ind_thick_2,building_type)
	3791	surf_usm_v(l)%zw_window(nzb_wall+2,m) = building_pars(ind_thick_3,building_type)
	3792	surf_usm_v(l)%zw_window(nzb_wall+3,m) = building_pars(ind_thick_4,building_type)
	3793
	3794	surf_usm_v(l)%c_surface(m) = building_pars(45,building_type)
	3795	surf_usm_v(l)%lambda_surf(m) = building_pars(46,building_type)
	3796	surf_usm_v(l)%c_surface_green(m) = building_pars(45,building_type)
	3797	surf_usm_v(l)%lambda_surf_green(m) = building_pars(46,building_type)
	3798	surf_usm_v(l)%c_surface_window(m) = building_pars(45,building_type)
	3799	surf_usm_v(l)%lambda_surf_window(m) = building_pars(46,building_type)
	3800
	3801	ENDDO
	3802	ENDDO
	3803	!
	3804	!-- Level 2 - initialization via building type read from file
	3805	IF ( building_type_f%from_file ) THEN
	3806	DO m = 1, surf_usm_h%ns
	3807	i = surf_usm_h%i(m)
	3808	j = surf_usm_h%j(m)
	3809	!
	3810	!-- For the moment, limit building type to 6 (to overcome errors in input file).
	3811	st = building_type_f%var(j,i)
	3812	IF ( st /= building_type_f%fill ) THEN
	3813
	3814	!
	3815	!-- In order to distinguish between ground floor level and
	3816	!-- above-ground-floor level surfaces, set input indices.
	3817	ind_wall_frac = MERGE( ind_wall_frac_gfl, ind_wall_frac_agfl, &
	3818	surf_usm_h%ground_level(m) )
	3819	ind_win_frac = MERGE( ind_win_frac_gfl, ind_win_frac_agfl, &
	3820	surf_usm_h%ground_level(m) )
	3821	ind_green_frac_w = MERGE( ind_green_frac_w_gfl, ind_green_frac_w_agfl, &
	3822	surf_usm_h%ground_level(m) )
	3823	ind_green_frac_r = MERGE( ind_green_frac_r_gfl, ind_green_frac_r_agfl, &
	3824	surf_usm_h%ground_level(m) )
	3825	ind_lai_r = MERGE( ind_lai_r_gfl, ind_lai_r_agfl, &
	3826	surf_usm_h%ground_level(m) )
	3827	ind_lai_w = MERGE( ind_lai_w_gfl, ind_lai_w_agfl, &
	3828	surf_usm_h%ground_level(m) )
	3829	ind_hc1 = MERGE( ind_hc1_gfl, ind_hc1_agfl, &
	3830	surf_usm_h%ground_level(m) )
	3831	ind_hc2 = MERGE( ind_hc2_gfl, ind_hc2_agfl, &
	3832	surf_usm_h%ground_level(m) )
	3833	ind_hc3 = MERGE( ind_hc3_gfl, ind_hc3_agfl, &
	3834	surf_usm_h%ground_level(m) )
	3835	ind_tc1 = MERGE( ind_tc1_gfl, ind_tc1_agfl, &
	3836	surf_usm_h%ground_level(m) )
	3837	ind_tc2 = MERGE( ind_tc2_gfl, ind_tc2_agfl, &
	3838	surf_usm_h%ground_level(m) )
	3839	ind_tc3 = MERGE( ind_tc3_gfl, ind_tc3_agfl, &
	3840	surf_usm_h%ground_level(m) )
	3841	ind_emis_wall = MERGE( ind_emis_wall_gfl, ind_emis_wall_agfl, &
	3842	surf_usm_h%ground_level(m) )
	3843	ind_emis_green = MERGE( ind_emis_green_gfl, ind_emis_green_agfl, &
	3844	surf_usm_h%ground_level(m) )
	3845	ind_emis_win = MERGE( ind_emis_win_gfl, ind_emis_win_agfl, &
	3846	surf_usm_h%ground_level(m) )
	3847	ind_trans = MERGE( ind_trans_gfl, ind_trans_agfl, &
	3848	surf_usm_h%ground_level(m) )
	3849	ind_z0 = MERGE( ind_z0_gfl, ind_z0_agfl, &
	3850	surf_usm_h%ground_level(m) )
	3851	ind_z0qh = MERGE( ind_z0qh_gfl, ind_z0qh_agfl, &
	3852	surf_usm_h%ground_level(m) )
	3853
	3854	!
	3855	!-- Initialize relatvie wall- (0), green- (1) and window (2) fractions
	3856	surf_usm_h%frac(0,m) = building_pars(ind_wall_frac,st)
	3857	surf_usm_h%frac(1,m) = building_pars(ind_green_frac_r,st)
	3858	surf_usm_h%frac(2,m) = building_pars(ind_win_frac,st)
	3859	surf_usm_h%lai(m) = building_pars(ind_green_frac_r,st)
	3860
	3861	surf_usm_h%rho_c_wall(nzb_wall,m) = building_pars(ind_hc1,st)
	3862	surf_usm_h%rho_c_wall(nzb_wall+1,m) = building_pars(ind_hc1,st)
	3863	surf_usm_h%rho_c_wall(nzb_wall+2,m) = building_pars(ind_hc2,st)
	3864	surf_usm_h%rho_c_wall(nzb_wall+3,m) = building_pars(ind_hc3,st)
	3865	surf_usm_h%lambda_h(nzb_wall,m) = building_pars(ind_tc1,st)
	3866	surf_usm_h%lambda_h(nzb_wall+1,m) = building_pars(ind_tc1,st)
	3867	surf_usm_h%lambda_h(nzb_wall+2,m) = building_pars(ind_tc2,st)
	3868	surf_usm_h%lambda_h(nzb_wall+3,m) = building_pars(ind_tc3,st)
	3869
	3870	surf_usm_h%rho_c_green(nzb_wall,m) = building_pars(ind_hc1,st)
	3871	surf_usm_h%rho_c_green(nzb_wall+1,m) = building_pars(ind_hc1,st)
	3872	surf_usm_h%rho_c_green(nzb_wall+2,m) = building_pars(ind_hc2,st)
	3873	surf_usm_h%rho_c_green(nzb_wall+3,m) = building_pars(ind_hc3,st)
	3874	surf_usm_h%lambda_h_green(nzb_wall,m) = building_pars(ind_tc1,st)
	3875	surf_usm_h%lambda_h_green(nzb_wall+1,m) = building_pars(ind_tc1,st)
	3876	surf_usm_h%lambda_h_green(nzb_wall+2,m) = building_pars(ind_tc2,st)
	3877	surf_usm_h%lambda_h_green(nzb_wall+3,m) = building_pars(ind_tc3,st)
	3878
	3879	surf_usm_h%rho_c_window(nzb_wall,m) = building_pars(ind_hc1,st)
	3880	surf_usm_h%rho_c_window(nzb_wall+1,m) = building_pars(ind_hc1,st)
	3881	surf_usm_h%rho_c_window(nzb_wall+2,m) = building_pars(ind_hc2,st)
	3882	surf_usm_h%rho_c_window(nzb_wall+3,m) = building_pars(ind_hc3,st)
	3883	surf_usm_h%lambda_h_window(nzb_wall,m) = building_pars(ind_tc1,st)
	3884	surf_usm_h%lambda_h_window(nzb_wall+1,m) = building_pars(ind_tc1,st)
	3885	surf_usm_h%lambda_h_window(nzb_wall+2,m) = building_pars(ind_tc2,st)
	3886	surf_usm_h%lambda_h_window(nzb_wall+3,m) = building_pars(ind_tc3,st)
	3887
	3888	surf_usm_h%target_temp_summer(m) = building_pars(12,st)
	3889	surf_usm_h%target_temp_winter(m) = building_pars(13,st)
	3890	!
	3891	!-- emissivity of wall-, green- and window fraction
	3892	surf_usm_h%emissivity(0,m) = building_pars(ind_emis_wall,st)
	3893	surf_usm_h%emissivity(1,m) = building_pars(ind_emis_green,st)
	3894	surf_usm_h%emissivity(2,m) = building_pars(ind_emis_win,st)
	3895
	3896	surf_usm_h%transmissivity(m) = building_pars(ind_trans,st)
	3897
	3898	surf_usm_h%z0(m) = building_pars(ind_z0,st)
	3899	surf_usm_h%z0h(m) = building_pars(ind_z0qh,st)
	3900	surf_usm_h%z0q(m) = building_pars(ind_z0qh,st)
	3901	!
	3902	!-- albedo type for wall fraction, green fraction, window fraction
	3903	surf_usm_h%albedo_type(0,m) = INT( building_pars(ind_alb_wall,st) )
	3904	surf_usm_h%albedo_type(1,m) = INT( building_pars(ind_alb_green,st) )
	3905	surf_usm_h%albedo_type(2,m) = INT( building_pars(ind_alb_win,st) )
	3906
	3907	surf_usm_h%zw(nzb_wall,m) = building_pars(ind_thick_1,st)
	3908	surf_usm_h%zw(nzb_wall+1,m) = building_pars(ind_thick_2,st)
	3909	surf_usm_h%zw(nzb_wall+2,m) = building_pars(ind_thick_3,st)
	3910	surf_usm_h%zw(nzb_wall+3,m) = building_pars(ind_thick_4,st)
	3911
	3912	surf_usm_h%zw_green(nzb_wall,m) = building_pars(ind_thick_1,st)
	3913	surf_usm_h%zw_green(nzb_wall+1,m) = building_pars(ind_thick_2,st)
	3914	surf_usm_h%zw_green(nzb_wall+2,m) = building_pars(ind_thick_3,st)
	3915	surf_usm_h%zw_green(nzb_wall+3,m) = building_pars(ind_thick_4,st)
	3916
	3917	surf_usm_h%zw_window(nzb_wall,m) = building_pars(ind_thick_1,st)
	3918	surf_usm_h%zw_window(nzb_wall+1,m) = building_pars(ind_thick_2,st)
	3919	surf_usm_h%zw_window(nzb_wall+2,m) = building_pars(ind_thick_3,st)
	3920	surf_usm_h%zw_window(nzb_wall+3,m) = building_pars(ind_thick_4,st)
	3921
	3922	surf_usm_h%c_surface(m) = building_pars(45,st)
	3923	surf_usm_h%lambda_surf(m) = building_pars(46,st)
	3924	surf_usm_h%c_surface_green(m) = building_pars(45,st)
	3925	surf_usm_h%lambda_surf_green(m) = building_pars(46,st)
	3926	surf_usm_h%c_surface_window(m) = building_pars(45,st)
	3927	surf_usm_h%lambda_surf_window(m) = building_pars(46,st)
	3928
	3929	ENDIF
	3930	ENDDO
	3931
	3932	DO l = 0, 3
	3933	DO m = 1, surf_usm_v(l)%ns
	3934	i = surf_usm_v(l)%i(m) + surf_usm_v(l)%ioff
	3935	j = surf_usm_v(l)%j(m) + surf_usm_v(l)%joff
	3936	!
	3937	!-- For the moment, limit building type to 6 (to overcome errors in input file).
	3938
	3939	st = building_type_f%var(j,i)
	3940	IF ( st /= building_type_f%fill ) THEN
	3941
	3942	!
	3943	!-- In order to distinguish between ground floor level and
	3944	!-- above-ground-floor level surfaces, set input indices.
	3945	ind_wall_frac = MERGE( ind_wall_frac_gfl, ind_wall_frac_agfl, &
	3946	surf_usm_v(l)%ground_level(m) )
	3947	ind_win_frac = MERGE( ind_win_frac_gfl, ind_win_frac_agfl, &
	3948	surf_usm_v(l)%ground_level(m) )
	3949	ind_green_frac_w = MERGE( ind_green_frac_w_gfl, ind_green_frac_w_agfl, &
	3950	surf_usm_v(l)%ground_level(m) )
	3951	ind_green_frac_r = MERGE( ind_green_frac_r_gfl, ind_green_frac_r_agfl, &
	3952	surf_usm_v(l)%ground_level(m) )
	3953	ind_lai_r = MERGE( ind_lai_r_gfl, ind_lai_r_agfl, &
	3954	surf_usm_v(l)%ground_level(m) )
	3955	ind_lai_w = MERGE( ind_lai_w_gfl, ind_lai_w_agfl, &
	3956	surf_usm_v(l)%ground_level(m) )
	3957	ind_hc1 = MERGE( ind_hc1_gfl, ind_hc1_agfl, &
	3958	surf_usm_v(l)%ground_level(m) )
	3959	ind_hc2 = MERGE( ind_hc2_gfl, ind_hc2_agfl, &
	3960	surf_usm_v(l)%ground_level(m) )
	3961	ind_hc3 = MERGE( ind_hc3_gfl, ind_hc3_agfl, &
	3962	surf_usm_v(l)%ground_level(m) )
	3963	ind_tc1 = MERGE( ind_tc1_gfl, ind_tc1_agfl, &
	3964	surf_usm_v(l)%ground_level(m) )
	3965	ind_tc2 = MERGE( ind_tc2_gfl, ind_tc2_agfl, &
	3966	surf_usm_v(l)%ground_level(m) )
	3967	ind_tc3 = MERGE( ind_tc3_gfl, ind_tc3_agfl, &
	3968	surf_usm_v(l)%ground_level(m) )
	3969	ind_emis_wall = MERGE( ind_emis_wall_gfl, ind_emis_wall_agfl, &
	3970	surf_usm_v(l)%ground_level(m) )
	3971	ind_emis_green = MERGE( ind_emis_green_gfl, ind_emis_green_agfl, &
	3972	surf_usm_v(l)%ground_level(m) )
	3973	ind_emis_win = MERGE( ind_emis_win_gfl, ind_emis_win_agfl, &
	3974	surf_usm_v(l)%ground_level(m) )
	3975	ind_trans = MERGE( ind_trans_gfl, ind_trans_agfl, &
	3976	surf_usm_v(l)%ground_level(m) )
	3977	ind_z0 = MERGE( ind_z0_gfl, ind_z0_agfl, &
	3978	surf_usm_v(l)%ground_level(m) )
	3979	ind_z0qh = MERGE( ind_z0qh_gfl, ind_z0qh_agfl, &
	3980	surf_usm_v(l)%ground_level(m) )
	3981
	3982	!
	3983	!-- Initialize relatvie wall- (0), green- (1) and window (2) fractions
	3984	surf_usm_v(l)%frac(0,m) = building_pars(ind_wall_frac,st)
	3985	surf_usm_v(l)%frac(1,m) = building_pars(ind_green_frac_w,st)
	3986	surf_usm_v(l)%frac(2,m) = building_pars(ind_win_frac,st)
	3987	surf_usm_v(l)%lai(m) = building_pars(ind_lai_w,st)
	3988
	3989	surf_usm_v(l)%rho_c_wall(nzb_wall,m) = building_pars(ind_hc1,st)
	3990	surf_usm_v(l)%rho_c_wall(nzb_wall+1,m) = building_pars(ind_hc1,st)
	3991	surf_usm_v(l)%rho_c_wall(nzb_wall+2,m) = building_pars(ind_hc2,st)
	3992	surf_usm_v(l)%rho_c_wall(nzb_wall+3,m) = building_pars(ind_hc3,st)
	3993
	3994	surf_usm_v(l)%rho_c_green(nzb_wall,m) = building_pars(ind_hc1,st)
	3995	surf_usm_v(l)%rho_c_green(nzb_wall+1,m) = building_pars(ind_hc1,st)
	3996	surf_usm_v(l)%rho_c_green(nzb_wall+2,m) = building_pars(ind_hc2,st)
	3997	surf_usm_v(l)%rho_c_green(nzb_wall+3,m) = building_pars(ind_hc3,st)
	3998
	3999	surf_usm_v(l)%rho_c_window(nzb_wall,m) = building_pars(ind_hc1,st)
	4000	surf_usm_v(l)%rho_c_window(nzb_wall+1,m) = building_pars(ind_hc1,st)
	4001	surf_usm_v(l)%rho_c_window(nzb_wall+2,m) = building_pars(ind_hc2,st)
	4002	surf_usm_v(l)%rho_c_window(nzb_wall+3,m) = building_pars(ind_hc3,st)
	4003
	4004	surf_usm_v(l)%lambda_h(nzb_wall,m) = building_pars(ind_tc1,st)
	4005	surf_usm_v(l)%lambda_h(nzb_wall+1,m) = building_pars(ind_tc1,st)
	4006	surf_usm_v(l)%lambda_h(nzb_wall+2,m) = building_pars(ind_tc2,st)
	4007	surf_usm_v(l)%lambda_h(nzb_wall+3,m) = building_pars(ind_tc3,st)
	4008
	4009	surf_usm_v(l)%lambda_h_green(nzb_wall,m) = building_pars(ind_tc1,st)
	4010	surf_usm_v(l)%lambda_h_green(nzb_wall+1,m) = building_pars(ind_tc1,st)
	4011	surf_usm_v(l)%lambda_h_green(nzb_wall+2,m) = building_pars(ind_tc2,st)
	4012	surf_usm_v(l)%lambda_h_green(nzb_wall+3,m) = building_pars(ind_tc3,st)
	4013
	4014	surf_usm_v(l)%lambda_h_window(nzb_wall,m) = building_pars(ind_tc1,st)
	4015	surf_usm_v(l)%lambda_h_window(nzb_wall+1,m) = building_pars(ind_tc1,st)
	4016	surf_usm_v(l)%lambda_h_window(nzb_wall+2,m) = building_pars(ind_tc2,st)
	4017	surf_usm_v(l)%lambda_h_window(nzb_wall+3,m) = building_pars(ind_tc3,st)
	4018
	4019	surf_usm_v(l)%target_temp_summer(m) = building_pars(12,st)
	4020	surf_usm_v(l)%target_temp_winter(m) = building_pars(13,st)
	4021	!
	4022	!-- emissivity of wall-, green- and window fraction
	4023	surf_usm_v(l)%emissivity(0,m) = building_pars(ind_emis_wall,st)
	4024	surf_usm_v(l)%emissivity(1,m) = building_pars(ind_emis_green,st)
	4025	surf_usm_v(l)%emissivity(2,m) = building_pars(ind_emis_win,st)
	4026
	4027	surf_usm_v(l)%transmissivity(m) = building_pars(ind_trans,st)
	4028
	4029	surf_usm_v(l)%z0(m) = building_pars(ind_z0,st)
	4030	surf_usm_v(l)%z0h(m) = building_pars(ind_z0qh,st)
	4031	surf_usm_v(l)%z0q(m) = building_pars(ind_z0qh,st)
	4032
	4033	surf_usm_v(l)%albedo_type(0,m) = INT( building_pars(ind_alb_wall,st) )
	4034	surf_usm_v(l)%albedo_type(1,m) = INT( building_pars(ind_alb_green,st) )
	4035	surf_usm_v(l)%albedo_type(2,m) = INT( building_pars(ind_alb_win,st) )
	4036
	4037	surf_usm_v(l)%zw(nzb_wall,m) = building_pars(ind_thick_1,st)
	4038	surf_usm_v(l)%zw(nzb_wall+1,m) = building_pars(ind_thick_2,st)
	4039	surf_usm_v(l)%zw(nzb_wall+2,m) = building_pars(ind_thick_3,st)
	4040	surf_usm_v(l)%zw(nzb_wall+3,m) = building_pars(ind_thick_4,st)
	4041
	4042	surf_usm_v(l)%zw_green(nzb_wall,m) = building_pars(ind_thick_1,st)
	4043	surf_usm_v(l)%zw_green(nzb_wall+1,m) = building_pars(ind_thick_2,st)
	4044	surf_usm_v(l)%zw_green(nzb_wall+2,m) = building_pars(ind_thick_3,st)
	4045	surf_usm_v(l)%zw_green(nzb_wall+3,m) = building_pars(ind_thick_4,st)
	4046
	4047	surf_usm_v(l)%zw_window(nzb_wall,m) = building_pars(ind_thick_1,st)
	4048	surf_usm_v(l)%zw_window(nzb_wall+1,m) = building_pars(ind_thick_2,st)
	4049	surf_usm_v(l)%zw_window(nzb_wall+2,m) = building_pars(ind_thick_3,st)
	4050	surf_usm_v(l)%zw_window(nzb_wall+3,m) = building_pars(ind_thick_4,st)
	4051
	4052	surf_usm_v(l)%c_surface(m) = building_pars(45,st)
	4053	surf_usm_v(l)%lambda_surf(m) = building_pars(46,st)
	4054	surf_usm_v(l)%c_surface_green(m) = building_pars(45,st)
	4055	surf_usm_v(l)%lambda_surf_green(m) = building_pars(46,st)
	4056	surf_usm_v(l)%c_surface_window(m) = building_pars(45,st)
	4057	surf_usm_v(l)%lambda_surf_window(m) = building_pars(46,st)
	4058
	4059
	4060	ENDIF
	4061	ENDDO
	4062	ENDDO
	4063	ENDIF
	4064
	4065	!
	4066	!-- Level 3 - initialization via building_pars read from file
	4067	IF ( building_pars_f%from_file ) THEN
	4068	DO m = 1, surf_usm_h%ns
	4069	i = surf_usm_h%i(m)
	4070	j = surf_usm_h%j(m)
	4071
	4072	!
	4073	!-- In order to distinguish between ground floor level and
	4074	!-- above-ground-floor level surfaces, set input indices.
	4075	ind_wall_frac = MERGE( ind_wall_frac_gfl, ind_wall_frac_agfl, &
	4076	surf_usm_h%ground_level(m) )
	4077	ind_win_frac = MERGE( ind_win_frac_gfl, ind_win_frac_agfl, &
	4078	surf_usm_h%ground_level(m) )
	4079	ind_green_frac_w = MERGE( ind_green_frac_w_gfl, ind_green_frac_w_agfl, &
	4080	surf_usm_h%ground_level(m) )
	4081	ind_green_frac_r = MERGE( ind_green_frac_r_gfl, ind_green_frac_r_agfl, &
	4082	surf_usm_h%ground_level(m) )
	4083	ind_lai_r = MERGE( ind_lai_r_gfl, ind_lai_r_agfl, &
	4084	surf_usm_h%ground_level(m) )
	4085	ind_lai_w = MERGE( ind_lai_w_gfl, ind_lai_w_agfl, &
	4086	surf_usm_h%ground_level(m) )
	4087	ind_hc1 = MERGE( ind_hc1_gfl, ind_hc1_agfl, &
	4088	surf_usm_h%ground_level(m) )
	4089	ind_hc2 = MERGE( ind_hc2_gfl, ind_hc2_agfl, &
	4090	surf_usm_h%ground_level(m) )
	4091	ind_hc3 = MERGE( ind_hc3_gfl, ind_hc3_agfl, &
	4092	surf_usm_h%ground_level(m) )
	4093	ind_tc1 = MERGE( ind_tc1_gfl, ind_tc1_agfl, &
	4094	surf_usm_h%ground_level(m) )
	4095	ind_tc2 = MERGE( ind_tc2_gfl, ind_tc2_agfl, &
	4096	surf_usm_h%ground_level(m) )
	4097	ind_tc3 = MERGE( ind_tc3_gfl, ind_tc3_agfl, &
	4098	surf_usm_h%ground_level(m) )
	4099	ind_emis_wall = MERGE( ind_emis_wall_gfl, ind_emis_wall_agfl, &
	4100	surf_usm_h%ground_level(m) )
	4101	ind_emis_green = MERGE( ind_emis_green_gfl, ind_emis_green_agfl, &
	4102	surf_usm_h%ground_level(m) )
	4103	ind_emis_win = MERGE( ind_emis_win_gfl, ind_emis_win_agfl, &
	4104	surf_usm_h%ground_level(m) )
	4105	ind_trans = MERGE( ind_trans_gfl, ind_trans_agfl, &
	4106	surf_usm_h%ground_level(m) )
	4107	ind_z0 = MERGE( ind_z0_gfl, ind_z0_agfl, &
	4108	surf_usm_h%ground_level(m) )
	4109	ind_z0qh = MERGE( ind_z0qh_gfl, ind_z0qh_agfl, &
	4110	surf_usm_h%ground_level(m) )
	4111
	4112	!
	4113	!-- Initialize relatvie wall- (0), green- (1) and window (2) fractions
	4114	IF ( building_pars_f%pars_xy(ind_wall_frac,j,i) /= building_pars_f%fill ) &
	4115	surf_usm_h%frac(0,m) = building_pars_f%pars_xy(ind_wall_frac,j,i)
	4116	IF ( building_pars_f%pars_xy(ind_green_frac_r,j,i) /= building_pars_f%fill ) &
	4117	surf_usm_h%frac(1,m) = building_pars_f%pars_xy(ind_green_frac_r,j,i)
	4118	IF ( building_pars_f%pars_xy(ind_win_frac,j,i) /= building_pars_f%fill ) &
	4119	surf_usm_h%frac(2,m) = building_pars_f%pars_xy(ind_win_frac,j,i)
	4120
	4121
	4122	IF ( building_pars_f%pars_xy(ind_lai_r,j,i) /= building_pars_f%fill ) &
	4123	surf_usm_h%lai(m) = building_pars_f%pars_xy(ind_lai_r,j,i)
	4124
	4125	IF ( building_pars_f%pars_xy(ind_hc1,j,i) /= building_pars_f%fill ) THEN
	4126	surf_usm_h%rho_c_wall(nzb_wall,m) = building_pars_f%pars_xy(ind_hc1,j,i)
	4127	surf_usm_h%rho_c_wall(nzb_wall+1,m) = building_pars_f%pars_xy(ind_hc1,j,i)
	4128	ENDIF
	4129	IF ( building_pars_f%pars_xy(ind_hc2,j,i) /= building_pars_f%fill ) &
	4130	surf_usm_h%rho_c_wall(nzb_wall+2,m) = building_pars_f%pars_xy(ind_hc2,j,i)
	4131	IF ( building_pars_f%pars_xy(ind_hc3,j,i) /= building_pars_f%fill ) &
	4132	surf_usm_h%rho_c_wall(nzb_wall+3,m) = building_pars_f%pars_xy(ind_hc3,j,i)
	4133	IF ( building_pars_f%pars_xy(ind_hc1,j,i) /= building_pars_f%fill ) THEN
	4134	surf_usm_h%rho_c_green(nzb_wall,m) = building_pars_f%pars_xy(ind_hc1,j,i)
	4135	surf_usm_h%rho_c_green(nzb_wall+1,m) = building_pars_f%pars_xy(ind_hc1,j,i)
	4136	ENDIF
	4137	IF ( building_pars_f%pars_xy(ind_hc2,j,i) /= building_pars_f%fill ) &
	4138	surf_usm_h%rho_c_green(nzb_wall+2,m) = building_pars_f%pars_xy(ind_hc2,j,i)
	4139	IF ( building_pars_f%pars_xy(ind_hc3,j,i) /= building_pars_f%fill ) &
	4140	surf_usm_h%rho_c_green(nzb_wall+3,m) = building_pars_f%pars_xy(ind_hc3,j,i)
	4141	IF ( building_pars_f%pars_xy(ind_hc1,j,i) /= building_pars_f%fill ) THEN
	4142	surf_usm_h%rho_c_window(nzb_wall,m) = building_pars_f%pars_xy(ind_hc1,j,i)
	4143	surf_usm_h%rho_c_window(nzb_wall+1,m) = building_pars_f%pars_xy(ind_hc1,j,i)
	4144	ENDIF
	4145	IF ( building_pars_f%pars_xy(ind_hc2,j,i) /= building_pars_f%fill ) &
	4146	surf_usm_h%rho_c_window(nzb_wall+2,m) = building_pars_f%pars_xy(ind_hc2,j,i)
	4147	IF ( building_pars_f%pars_xy(ind_hc3,j,i) /= building_pars_f%fill ) &
	4148	surf_usm_h%rho_c_window(nzb_wall+3,m) = building_pars_f%pars_xy(ind_hc3,j,i)
	4149
	4150	IF ( building_pars_f%pars_xy(ind_tc1,j,i) /= building_pars_f%fill ) THEN
	4151	surf_usm_h%lambda_h(nzb_wall,m) = building_pars_f%pars_xy(ind_tc1,j,i)
	4152	surf_usm_h%lambda_h(nzb_wall+1,m) = building_pars_f%pars_xy(ind_tc1,j,i)
	4153	ENDIF
	4154	IF ( building_pars_f%pars_xy(ind_tc2,j,i) /= building_pars_f%fill ) &
	4155	surf_usm_h%lambda_h(nzb_wall+2,m) = building_pars_f%pars_xy(ind_tc2,j,i)
	4156	IF ( building_pars_f%pars_xy(ind_tc3,j,i) /= building_pars_f%fill ) &
	4157	surf_usm_h%lambda_h(nzb_wall+3,m) = building_pars_f%pars_xy(ind_tc3,j,i)
	4158	IF ( building_pars_f%pars_xy(ind_tc1,j,i) /= building_pars_f%fill ) THEN
	4159	surf_usm_h%lambda_h_green(nzb_wall,m) = building_pars_f%pars_xy(ind_tc1,j,i)
	4160	surf_usm_h%lambda_h_green(nzb_wall+1,m) = building_pars_f%pars_xy(ind_tc1,j,i)
	4161	ENDIF
	4162	IF ( building_pars_f%pars_xy(ind_tc2,j,i) /= building_pars_f%fill ) &
	4163	surf_usm_h%lambda_h_green(nzb_wall+2,m) = building_pars_f%pars_xy(ind_tc2,j,i)
	4164	IF ( building_pars_f%pars_xy(ind_tc3,j,i) /= building_pars_f%fill ) &
	4165	surf_usm_h%lambda_h_green(nzb_wall+3,m) = building_pars_f%pars_xy(ind_tc3,j,i)
	4166	IF ( building_pars_f%pars_xy(ind_tc1,j,i) /= building_pars_f%fill ) THEN
	4167	surf_usm_h%lambda_h_window(nzb_wall,m) = building_pars_f%pars_xy(ind_tc1,j,i)
	4168	surf_usm_h%lambda_h_window(nzb_wall+1,m) = building_pars_f%pars_xy(ind_tc1,j,i)
	4169	ENDIF
	4170	IF ( building_pars_f%pars_xy(ind_tc2,j,i) /= building_pars_f%fill ) &
	4171	surf_usm_h%lambda_h_window(nzb_wall+2,m) = building_pars_f%pars_xy(ind_tc2,j,i)
	4172	IF ( building_pars_f%pars_xy(ind_tc3,j,i) /= building_pars_f%fill ) &
	4173	surf_usm_h%lambda_h_window(nzb_wall+3,m) = building_pars_f%pars_xy(ind_tc3,j,i)
	4174
	4175	IF ( building_pars_f%pars_xy(12,j,i) /= building_pars_f%fill ) &
	4176	surf_usm_h%target_temp_summer(m) = building_pars_f%pars_xy(12,j,i)
	4177	IF ( building_pars_f%pars_xy(13,j,i) /= building_pars_f%fill ) &
	4178	surf_usm_h%target_temp_winter(m) = building_pars_f%pars_xy(13,j,i)
	4179
	4180	IF ( building_pars_f%pars_xy(ind_emis_wall,j,i) /= building_pars_f%fill ) &
	4181	surf_usm_h%emissivity(0,m) = building_pars_f%pars_xy(ind_emis_wall,j,i)
	4182	IF ( building_pars_f%pars_xy(ind_emis_green,j,i) /= building_pars_f%fill )&
	4183	surf_usm_h%emissivity(1,m) = building_pars_f%pars_xy(ind_emis_green,j,i)
	4184	IF ( building_pars_f%pars_xy(ind_emis_win,j,i) /= building_pars_f%fill ) &
	4185	surf_usm_h%emissivity(2,m) = building_pars_f%pars_xy(ind_emis_win,j,i)
	4186
	4187	IF ( building_pars_f%pars_xy(ind_trans,j,i) /= building_pars_f%fill ) &
	4188	surf_usm_h%transmissivity(m) = building_pars_f%pars_xy(ind_trans,j,i)
	4189
	4190	IF ( building_pars_f%pars_xy(ind_z0,j,i) /= building_pars_f%fill ) &
	4191	surf_usm_h%z0(m) = building_pars_f%pars_xy(ind_z0,j,i)
	4192	IF ( building_pars_f%pars_xy(ind_z0qh,j,i) /= building_pars_f%fill ) &
	4193	surf_usm_h%z0h(m) = building_pars_f%pars_xy(ind_z0qh,j,i)
	4194	IF ( building_pars_f%pars_xy(ind_z0qh,j,i) /= building_pars_f%fill ) &
	4195	surf_usm_h%z0q(m) = building_pars_f%pars_xy(ind_z0qh,j,i)
	4196
	4197	IF ( building_pars_f%pars_xy(ind_alb_wall,j,i) /= building_pars_f%fill ) &
	4198	surf_usm_h%albedo_type(0,m) = building_pars_f%pars_xy(ind_alb_wall,j,i)
	4199	IF ( building_pars_f%pars_xy(ind_alb_green,j,i) /= building_pars_f%fill ) &
	4200	surf_usm_h%albedo_type(1,m) = building_pars_f%pars_xy(ind_alb_green,j,i)
	4201	IF ( building_pars_f%pars_xy(ind_alb_win,j,i) /= building_pars_f%fill ) &
	4202	surf_usm_h%albedo_type(2,m) = building_pars_f%pars_xy(ind_alb_win,j,i)
	4203
	4204	IF ( building_pars_f%pars_xy(ind_thick_1,j,i) /= building_pars_f%fill ) &
	4205	surf_usm_h%zw(nzb_wall,m) = building_pars_f%pars_xy(ind_thick_1,j,i)
	4206	IF ( building_pars_f%pars_xy(ind_thick_2,j,i) /= building_pars_f%fill ) &
	4207	surf_usm_h%zw(nzb_wall+1,m) = building_pars_f%pars_xy(ind_thick_2,j,i)
	4208	IF ( building_pars_f%pars_xy(ind_thick_3,j,i) /= building_pars_f%fill ) &
	4209	surf_usm_h%zw(nzb_wall+2,m) = building_pars_f%pars_xy(ind_thick_3,j,i)
	4210	IF ( building_pars_f%pars_xy(ind_thick_4,j,i) /= building_pars_f%fill ) &
	4211	surf_usm_h%zw(nzb_wall+3,m) = building_pars_f%pars_xy(ind_thick_4,j,i)
	4212	IF ( building_pars_f%pars_xy(ind_thick_1,j,i) /= building_pars_f%fill ) &
	4213	surf_usm_h%zw_green(nzb_wall,m) = building_pars_f%pars_xy(ind_thick_1,j,i)
	4214	IF ( building_pars_f%pars_xy(ind_thick_2,j,i) /= building_pars_f%fill ) &
	4215	surf_usm_h%zw_green(nzb_wall+1,m) = building_pars_f%pars_xy(ind_thick_2,j,i)
	4216	IF ( building_pars_f%pars_xy(ind_thick_3,j,i) /= building_pars_f%fill ) &
	4217	surf_usm_h%zw_green(nzb_wall+2,m) = building_pars_f%pars_xy(ind_thick_3,j,i)
	4218	IF ( building_pars_f%pars_xy(ind_thick_4,j,i) /= building_pars_f%fill ) &
	4219	surf_usm_h%zw_green(nzb_wall+3,m) = building_pars_f%pars_xy(ind_thick_4,j,i)
	4220	IF ( building_pars_f%pars_xy(ind_thick_1,j,i) /= building_pars_f%fill ) &
	4221	surf_usm_h%zw_window(nzb_wall,m) = building_pars_f%pars_xy(ind_thick_1,j,i)
	4222	IF ( building_pars_f%pars_xy(ind_thick_2,j,i) /= building_pars_f%fill ) &
	4223	surf_usm_h%zw_window(nzb_wall+1,m) = building_pars_f%pars_xy(ind_thick_2,j,i)
	4224	IF ( building_pars_f%pars_xy(ind_thick_3,j,i) /= building_pars_f%fill ) &
	4225	surf_usm_h%zw_window(nzb_wall+2,m) = building_pars_f%pars_xy(ind_thick_3,j,i)
	4226	IF ( building_pars_f%pars_xy(ind_thick_4,j,i) /= building_pars_f%fill ) &
	4227	surf_usm_h%zw_window(nzb_wall+3,m) = building_pars_f%pars_xy(ind_thick_4,j,i)
	4228
	4229	IF ( building_pars_f%pars_xy(45,j,i) /= building_pars_f%fill ) &
	4230	surf_usm_h%c_surface(m) = building_pars_f%pars_xy(45,j,i)
	4231	IF ( building_pars_f%pars_xy(46,j,i) /= building_pars_f%fill ) &
	4232	surf_usm_h%lambda_surf(m) = building_pars_f%pars_xy(46,j,i)
	4233	IF ( building_pars_f%pars_xy(45,j,i) /= building_pars_f%fill ) &
	4234	surf_usm_h%c_surface_green(m) = building_pars_f%pars_xy(45,j,i)
	4235	IF ( building_pars_f%pars_xy(46,j,i) /= building_pars_f%fill ) &
	4236	surf_usm_h%lambda_surf_green(m) = building_pars_f%pars_xy(46,j,i)
	4237	IF ( building_pars_f%pars_xy(45,j,i) /= building_pars_f%fill ) &
	4238	surf_usm_h%c_surface_window(m) = building_pars_f%pars_xy(45,j,i)
	4239	IF ( building_pars_f%pars_xy(46,j,i) /= building_pars_f%fill ) &
	4240	surf_usm_h%lambda_surf_window(m) = building_pars_f%pars_xy(46,j,i)
	4241	ENDDO
	4242
	4243
	4244
	4245	DO l = 0, 3
	4246	DO m = 1, surf_usm_v(l)%ns
	4247	i = surf_usm_v(l)%i(m) + surf_usm_v(l)%ioff
	4248	j = surf_usm_v(l)%j(m) + surf_usm_v(l)%joff
	4249
	4250	!
	4251	!-- In order to distinguish between ground floor level and
	4252	!-- above-ground-floor level surfaces, set input indices.
	4253	ind_wall_frac = MERGE( ind_wall_frac_gfl, ind_wall_frac_agfl, &
	4254	surf_usm_v(l)%ground_level(m) )
	4255	ind_win_frac = MERGE( ind_win_frac_gfl, ind_win_frac_agfl, &
	4256	surf_usm_v(l)%ground_level(m) )
	4257	ind_green_frac_w = MERGE( ind_green_frac_w_gfl, ind_green_frac_w_agfl, &
	4258	surf_usm_v(l)%ground_level(m) )
	4259	ind_green_frac_r = MERGE( ind_green_frac_r_gfl, ind_green_frac_r_agfl, &
	4260	surf_usm_v(l)%ground_level(m) )
	4261	ind_lai_r = MERGE( ind_lai_r_gfl, ind_lai_r_agfl, &
	4262	surf_usm_v(l)%ground_level(m) )
	4263	ind_lai_w = MERGE( ind_lai_w_gfl, ind_lai_w_agfl, &
	4264	surf_usm_v(l)%ground_level(m) )
	4265	ind_hc1 = MERGE( ind_hc1_gfl, ind_hc1_agfl, &
	4266	surf_usm_v(l)%ground_level(m) )
	4267	ind_hc2 = MERGE( ind_hc2_gfl, ind_hc2_agfl, &
	4268	surf_usm_v(l)%ground_level(m) )
	4269	ind_hc3 = MERGE( ind_hc3_gfl, ind_hc3_agfl, &
	4270	surf_usm_v(l)%ground_level(m) )
	4271	ind_tc1 = MERGE( ind_tc1_gfl, ind_tc1_agfl, &
	4272	surf_usm_v(l)%ground_level(m) )
	4273	ind_tc2 = MERGE( ind_tc2_gfl, ind_tc2_agfl, &
	4274	surf_usm_v(l)%ground_level(m) )
	4275	ind_tc3 = MERGE( ind_tc3_gfl, ind_tc3_agfl, &
	4276	surf_usm_v(l)%ground_level(m) )
	4277	ind_emis_wall = MERGE( ind_emis_wall_gfl, ind_emis_wall_agfl, &
	4278	surf_usm_v(l)%ground_level(m) )
	4279	ind_emis_green = MERGE( ind_emis_green_gfl, ind_emis_green_agfl, &
	4280	surf_usm_v(l)%ground_level(m) )
	4281	ind_emis_win = MERGE( ind_emis_win_gfl, ind_emis_win_agfl, &
	4282	surf_usm_v(l)%ground_level(m) )
	4283	ind_trans = MERGE( ind_trans_gfl, ind_trans_agfl, &
	4284	surf_usm_v(l)%ground_level(m) )
	4285	ind_z0 = MERGE( ind_z0_gfl, ind_z0_agfl, &
	4286	surf_usm_v(l)%ground_level(m) )
	4287	ind_z0qh = MERGE( ind_z0qh_gfl, ind_z0qh_agfl, &
	4288	surf_usm_v(l)%ground_level(m) )
	4289
	4290	!
	4291	!-- Initialize relatvie wall- (0), green- (1) and window (2) fractions
	4292	IF ( building_pars_f%pars_xy(ind_wall_frac,j,i) /= &
	4293	building_pars_f%fill ) &
	4294	surf_usm_v(l)%frac(0,m) = building_pars_f%pars_xy(ind_wall_frac,j,i)
	4295	IF ( building_pars_f%pars_xy(ind_green_frac_w,j,i) /= &
	4296	building_pars_f%fill ) &
	4297	surf_usm_v(l)%frac(1,m) = building_pars_f%pars_xy(ind_green_frac_w,j,i)
	4298	IF ( building_pars_f%pars_xy(ind_win_frac,j,i) /= &
	4299	building_pars_f%fill ) &
	4300	surf_usm_v(l)%frac(2,m) = building_pars_f%pars_xy(ind_win_frac,j,i)
	4301
	4302	IF ( building_pars_f%pars_xy(ind_lai_w,j,i) /= building_pars_f%fill ) &
	4303	surf_usm_v(l)%lai(m) = building_pars_f%pars_xy(ind_lai_w,j,i)
	4304
	4305	IF ( building_pars_f%pars_xy(ind_hc1,j,i) /= building_pars_f%fill ) &
	4306	THEN
	4307	surf_usm_v(l)%rho_c_wall(nzb_wall,m) = &
	4308	building_pars_f%pars_xy(ind_hc1,j,i)
	4309	surf_usm_v(l)%rho_c_wall(nzb_wall+1,m) = &
	4310	building_pars_f%pars_xy(ind_hc1,j,i)
	4311	ENDIF
	4312	IF ( building_pars_f%pars_xy(ind_hc2,j,i) /= building_pars_f%fill ) &
	4313	surf_usm_v(l)%rho_c_wall(nzb_wall+2,m) = &
	4314	building_pars_f%pars_xy(ind_hc2,j,i)
	4315	IF ( building_pars_f%pars_xy(ind_hc3,j,i) /= building_pars_f%fill ) &
	4316	surf_usm_v(l)%rho_c_wall(nzb_wall+3,m) = &
	4317	building_pars_f%pars_xy(ind_hc3,j,i)
	4318	IF ( building_pars_f%pars_xy(ind_hc1,j,i) /= building_pars_f%fill ) THEN
	4319	surf_usm_v(l)%rho_c_green(nzb_wall,m) = &
	4320	building_pars_f%pars_xy(ind_hc1,j,i)
	4321	surf_usm_v(l)%rho_c_green(nzb_wall+1,m) = &
	4322	building_pars_f%pars_xy(ind_hc1,j,i)
	4323	ENDIF
	4324	IF ( building_pars_f%pars_xy(ind_hc2,j,i) /= building_pars_f%fill ) &
	4325	surf_usm_v(l)%rho_c_green(nzb_wall+2,m) = building_pars_f%pars_xy(ind_hc2,j,i)
	4326	IF ( building_pars_f%pars_xy(ind_hc3,j,i) /= building_pars_f%fill ) &
	4327	surf_usm_v(l)%rho_c_green(nzb_wall+3,m) = building_pars_f%pars_xy(ind_hc3,j,i)
	4328	IF ( building_pars_f%pars_xy(ind_hc1,j,i) /= building_pars_f%fill ) THEN
	4329	surf_usm_v(l)%rho_c_window(nzb_wall,m) = building_pars_f%pars_xy(ind_hc1,j,i)
	4330	surf_usm_v(l)%rho_c_window(nzb_wall+1,m) = building_pars_f%pars_xy(ind_hc1,j,i)
	4331	ENDIF
	4332	IF ( building_pars_f%pars_xy(ind_hc2,j,i) /= building_pars_f%fill ) &
	4333	surf_usm_v(l)%rho_c_window(nzb_wall+2,m) = building_pars_f%pars_xy(ind_hc2,j,i)
	4334	IF ( building_pars_f%pars_xy(ind_hc3,j,i) /= building_pars_f%fill ) &
	4335	surf_usm_v(l)%rho_c_window(nzb_wall+3,m) = building_pars_f%pars_xy(ind_hc3,j,i)
	4336
	4337	IF ( building_pars_f%pars_xy(ind_tc1,j,i) /= building_pars_f%fill ) THEN
	4338	surf_usm_v(l)%lambda_h(nzb_wall,m) = building_pars_f%pars_xy(ind_tc1,j,i)
	4339	surf_usm_v(l)%lambda_h(nzb_wall+1,m) = building_pars_f%pars_xy(ind_tc1,j,i)
	4340	ENDIF
	4341	IF ( building_pars_f%pars_xy(ind_tc2,j,i) /= building_pars_f%fill ) &
	4342	surf_usm_v(l)%lambda_h(nzb_wall+2,m) = building_pars_f%pars_xy(ind_tc2,j,i)
	4343	IF ( building_pars_f%pars_xy(ind_tc3,j,i) /= building_pars_f%fill ) &
	4344	surf_usm_v(l)%lambda_h(nzb_wall+3,m) = building_pars_f%pars_xy(ind_tc3,j,i)
	4345	IF ( building_pars_f%pars_xy(ind_tc1,j,i) /= building_pars_f%fill ) THEN
	4346	surf_usm_v(l)%lambda_h_green(nzb_wall,m) = building_pars_f%pars_xy(ind_tc1,j,i)
	4347	surf_usm_v(l)%lambda_h_green(nzb_wall+1,m) = building_pars_f%pars_xy(ind_tc1,j,i)
	4348	ENDIF
	4349	IF ( building_pars_f%pars_xy(ind_tc2,j,i) /= building_pars_f%fill ) &
	4350	surf_usm_v(l)%lambda_h_green(nzb_wall+2,m) = building_pars_f%pars_xy(ind_tc2,j,i)
	4351	IF ( building_pars_f%pars_xy(ind_tc3,j,i) /= building_pars_f%fill ) &
	4352	surf_usm_v(l)%lambda_h_green(nzb_wall+3,m) = building_pars_f%pars_xy(ind_tc3,j,i)
	4353	IF ( building_pars_f%pars_xy(ind_tc1,j,i) /= building_pars_f%fill ) THEN
	4354	surf_usm_v(l)%lambda_h_window(nzb_wall,m) = building_pars_f%pars_xy(ind_tc1,j,i)
	4355	surf_usm_v(l)%lambda_h_window(nzb_wall+1,m) = building_pars_f%pars_xy(ind_tc1,j,i)
	4356	ENDIF
	4357	IF ( building_pars_f%pars_xy(ind_tc2,j,i) /= building_pars_f%fill ) &
	4358	surf_usm_v(l)%lambda_h_window(nzb_wall+2,m) = building_pars_f%pars_xy(ind_tc2,j,i)
	4359	IF ( building_pars_f%pars_xy(ind_tc3,j,i) /= building_pars_f%fill ) &
	4360	surf_usm_v(l)%lambda_h_window(nzb_wall+3,m) = building_pars_f%pars_xy(ind_tc3,j,i)
	4361
	4362	IF ( building_pars_f%pars_xy(12,j,i) /= building_pars_f%fill ) &
	4363	surf_usm_v(l)%target_temp_summer(m) = building_pars_f%pars_xy(12,j,i)
	4364	IF ( building_pars_f%pars_xy(13,j,i) /= building_pars_f%fill ) &
	4365	surf_usm_v(l)%target_temp_winter(m) = building_pars_f%pars_xy(13,j,i)
	4366
	4367	IF ( building_pars_f%pars_xy(ind_emis_wall,j,i) /= building_pars_f%fill ) &
	4368	surf_usm_v(l)%emissivity(0,m) = building_pars_f%pars_xy(ind_emis_wall,j,i)
	4369	IF ( building_pars_f%pars_xy(ind_emis_green,j,i) /= building_pars_f%fill )&
	4370	surf_usm_v(l)%emissivity(1,m) = building_pars_f%pars_xy(ind_emis_green,j,i)
	4371	IF ( building_pars_f%pars_xy(ind_emis_win,j,i) /= building_pars_f%fill ) &
	4372	surf_usm_v(l)%emissivity(2,m) = building_pars_f%pars_xy(ind_emis_win,j,i)
	4373
	4374	IF ( building_pars_f%pars_xy(ind_trans,j,i) /= building_pars_f%fill ) &
	4375	surf_usm_v(l)%transmissivity(m) = building_pars_f%pars_xy(ind_trans,j,i)
	4376
	4377	IF ( building_pars_f%pars_xy(ind_z0,j,i) /= building_pars_f%fill ) &
	4378	surf_usm_v(l)%z0(m) = building_pars_f%pars_xy(ind_z0,j,i)
	4379	IF ( building_pars_f%pars_xy(ind_z0qh,j,i) /= building_pars_f%fill ) &
	4380	surf_usm_v(l)%z0h(m) = building_pars_f%pars_xy(ind_z0qh,j,i)
	4381	IF ( building_pars_f%pars_xy(ind_z0qh,j,i) /= building_pars_f%fill ) &
	4382	surf_usm_v(l)%z0q(m) = building_pars_f%pars_xy(ind_z0qh,j,i)
	4383
	4384	IF ( building_pars_f%pars_xy(ind_alb_wall,j,i) /= building_pars_f%fill ) &
	4385	surf_usm_v(l)%albedo_type(0,m) = building_pars_f%pars_xy(ind_alb_wall,j,i)
	4386	IF ( building_pars_f%pars_xy(ind_alb_green,j,i) /= building_pars_f%fill ) &
	4387	surf_usm_v(l)%albedo_type(1,m) = building_pars_f%pars_xy(ind_alb_green,j,i)
	4388	IF ( building_pars_f%pars_xy(ind_alb_win,j,i) /= building_pars_f%fill ) &
	4389	surf_usm_v(l)%albedo_type(2,m) = building_pars_f%pars_xy(ind_alb_win,j,i)
	4390
	4391	IF ( building_pars_f%pars_xy(ind_thick_1,j,i) /= building_pars_f%fill ) &
	4392	surf_usm_v(l)%zw(nzb_wall,m) = building_pars_f%pars_xy(ind_thick_1,j,i)
	4393	IF ( building_pars_f%pars_xy(ind_thick_2,j,i) /= building_pars_f%fill ) &
	4394	surf_usm_v(l)%zw(nzb_wall+1,m) = building_pars_f%pars_xy(ind_thick_2,j,i)
	4395	IF ( building_pars_f%pars_xy(ind_thick_3,j,i) /= building_pars_f%fill ) &
	4396	surf_usm_v(l)%zw(nzb_wall+2,m) = building_pars_f%pars_xy(ind_thick_3,j,i)
	4397	IF ( building_pars_f%pars_xy(ind_thick_4,j,i) /= building_pars_f%fill ) &
	4398	surf_usm_v(l)%zw(nzb_wall+3,m) = building_pars_f%pars_xy(ind_thick_4,j,i)
	4399	IF ( building_pars_f%pars_xy(ind_thick_1,j,i) /= building_pars_f%fill ) &
	4400	surf_usm_v(l)%zw_green(nzb_wall,m) = building_pars_f%pars_xy(ind_thick_1,j,i)
	4401	IF ( building_pars_f%pars_xy(ind_thick_2,j,i) /= building_pars_f%fill ) &
	4402	surf_usm_v(l)%zw_green(nzb_wall+1,m) = building_pars_f%pars_xy(ind_thick_2,j,i)
	4403	IF ( building_pars_f%pars_xy(ind_thick_3,j,i) /= building_pars_f%fill ) &
	4404	surf_usm_v(l)%zw_green(nzb_wall+2,m) = building_pars_f%pars_xy(ind_thick_3,j,i)
	4405	IF ( building_pars_f%pars_xy(ind_thick_4,j,i) /= building_pars_f%fill ) &
	4406	surf_usm_v(l)%zw_green(nzb_wall+3,m) = building_pars_f%pars_xy(ind_thick_4,j,i)
	4407	IF ( building_pars_f%pars_xy(ind_thick_1,j,i) /= building_pars_f%fill ) &
	4408	surf_usm_v(l)%zw_window(nzb_wall,m) = building_pars_f%pars_xy(ind_thick_1,j,i)
	4409	IF ( building_pars_f%pars_xy(ind_thick_2,j,i) /= building_pars_f%fill ) &
	4410	surf_usm_v(l)%zw_window(nzb_wall+1,m) = building_pars_f%pars_xy(ind_thick_2,j,i)
	4411	IF ( building_pars_f%pars_xy(ind_thick_3,j,i) /= building_pars_f%fill ) &
	4412	surf_usm_v(l)%zw_window(nzb_wall+2,m) = building_pars_f%pars_xy(ind_thick_3,j,i)
	4413	IF ( building_pars_f%pars_xy(ind_thick_4,j,i) /= building_pars_f%fill ) &
	4414	surf_usm_v(l)%zw_window(nzb_wall+3,m) = building_pars_f%pars_xy(ind_thick_4,j,i)
	4415
	4416	IF ( building_pars_f%pars_xy(45,j,i) /= building_pars_f%fill ) &
	4417	surf_usm_v(l)%c_surface(m) = building_pars_f%pars_xy(45,j,i)
	4418	IF ( building_pars_f%pars_xy(46,j,i) /= building_pars_f%fill ) &
	4419	surf_usm_v(l)%lambda_surf(m) = building_pars_f%pars_xy(46,j,i)
	4420	IF ( building_pars_f%pars_xy(45,j,i) /= building_pars_f%fill ) &
	4421	surf_usm_v(l)%c_surface_green(m) = building_pars_f%pars_xy(45,j,i)
	4422	IF ( building_pars_f%pars_xy(46,j,i) /= building_pars_f%fill ) &
	4423	surf_usm_v(l)%lambda_surf_green(m) = building_pars_f%pars_xy(46,j,i)
	4424	IF ( building_pars_f%pars_xy(45,j,i) /= building_pars_f%fill ) &
	4425	surf_usm_v(l)%c_surface_window(m) = building_pars_f%pars_xy(45,j,i)
	4426	IF ( building_pars_f%pars_xy(46,j,i) /= building_pars_f%fill ) &
	4427	surf_usm_v(l)%lambda_surf_window(m) = building_pars_f%pars_xy(46,j,i)
	4428
	4429	ENDDO
	4430	ENDDO
	4431	ENDIF
	4432	!
	4433	!-- Read the surface_types array.
	4434	!-- Please note, here also initialization of surface attributes is done as
	4435	!-- long as _urbsurf and _surfpar files are available. Values from above
	4436	!-- will be overwritten. This might be removed later, but is still in the
	4437	!-- code to enable compatibility with older model version.
	4438	CALL usm_read_urban_surface_types()
	4439
	4440	!-- init material heat model
	4441	CALL usm_init_material_model()
	4442
	4443	!-- init anthropogenic sources of heat
	4444	IF ( usm_anthropogenic_heat ) THEN
	4445	!-- init anthropogenic sources of heat (from transportation for now)
	4446	CALL usm_read_anthropogenic_heat()
	4447	ENDIF
	4448
	4449	IF ( plant_canopy ) THEN
	4450
	4451	IF ( .NOT. ALLOCATED( pc_heating_rate) ) THEN
	4452	!-- then pc_heating_rate is allocated in init_plant_canopy
	4453	!-- in case of cthf /= 0 => we need to allocate it for our use here
	4454	ALLOCATE( pc_heating_rate(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
	4455	ENDIF
	4456	ENDIF
	4457
	4458	!-- Intitialization of the surface and wall/ground/roof temperature
	4459
	4460	!-- Initialization for restart runs
	4461	IF ( TRIM( initializing_actions ) /= 'read_restart_data' .AND. &
	4462	TRIM( initializing_actions ) /= 'cyclic_fill' ) THEN
	4463
	4464	!-- Calculate initial surface temperature from pt of adjacent gridbox
	4465	exn = ( surface_pressure / 1000.0_wp )**0.286_wp
	4466
	4467	!
	4468	!-- At horizontal surfaces. Please note, t_surf_h is defined on a
	4469	!-- different data type, but with the same dimension.
	4470	#if ! defined( __nopointer )
	4471	DO m = 1, surf_usm_h%ns
	4472	i = surf_usm_h%i(m)
	4473	j = surf_usm_h%j(m)
	4474	k = surf_usm_h%k(m)
	4475
	4476	t_surf_h(m) = pt(k,j,i) * exn
	4477	t_surf_window_h(m) = pt(k,j,i) * exn
	4478	t_surf_green_h(m) = pt(k,j,i) * exn
	4479	t_surf_whole_h(m) = pt(k,j,i) * exn
	4480	ENDDO
	4481	!
	4482	!-- At vertical surfaces.
	4483	DO l = 0, 3
	4484	DO m = 1, surf_usm_v(l)%ns
	4485	i = surf_usm_v(l)%i(m)
	4486	j = surf_usm_v(l)%j(m)
	4487	k = surf_usm_v(l)%k(m)
	4488
	4489	t_surf_v(l)%t(m) = pt(k,j,i) * exn
	4490	t_surf_window_v(l)%t(m) = pt(k,j,i) * exn
	4491	t_surf_green_v(l)%t(m) = pt(k,j,i) * exn
	4492	t_surf_whole_v(l)%t(m) = pt(k,j,i) * exn
	4493	ENDDO
	4494	ENDDO
	4495	#endif
	4496
	4497	!-- initial values for t_wall
	4498	!-- outer value is set to surface temperature
	4499	!-- inner value is set to wall_inner_temperature
	4500	!-- and profile is logaritmic (linear in nz).
	4501	!-- Horizontal surfaces
	4502	DO m = 1, surf_usm_h%ns
	4503	!
	4504	!-- Roof
	4505	IF ( surf_usm_h%isroof_surf(m) ) THEN
	4506	tin = roof_inner_temperature
	4507	twin = window_inner_temperature
	4508	!
	4509	!-- Normal land surface
	4510	ELSE
	4511	tin = soil_inner_temperature
	4512	twin = window_inner_temperature
	4513	ENDIF
	4514
	4515	DO k = nzb_wall, nzt_wall+1
	4516	c = REAL( k - nzb_wall, wp ) / &
	4517	REAL( nzt_wall + 1 - nzb_wall , wp )
	4518
	4519	t_wall_h(k,m) = ( 1.0_wp - c ) * t_surf_h(m) + c * tin
	4520	t_window_h(k,m) = ( 1.0_wp - c ) * t_surf_window_h(m) + c * twin
	4521	t_green_h(k,m) = t_surf_h(m)
	4522	ENDDO
	4523	ENDDO
	4524	!
	4525	!-- Vertical surfaces
	4526	DO l = 0, 3
	4527	DO m = 1, surf_usm_v(l)%ns
	4528	!
	4529	!-- Inner wall
	4530	tin = wall_inner_temperature
	4531	twin = window_inner_temperature
	4532
	4533	DO k = nzb_wall, nzt_wall+1
	4534	c = REAL( k - nzb_wall, wp ) / &
	4535	REAL( nzt_wall + 1 - nzb_wall , wp )
	4536	t_wall_v(l)%t(k,m) = ( 1.0_wp - c ) * t_surf_v(l)%t(m) + c * tin
	4537	t_window_v(l)%t(k,m) = ( 1.0_wp - c ) * t_surf_window_v(l)%t(m) + c * twin
	4538	t_green_v(l)%t(k,m) = t_surf_v(l)%t(m)
	4539	ENDDO
	4540	ENDDO
	4541	ENDDO
	4542
	4543	ENDIF
	4544
	4545	!--
	4546	!-- Possibly DO user-defined actions (e.g. define heterogeneous wall surface)
	4547	CALL user_init_urban_surface
	4548
	4549	!-- initialize prognostic values for the first timestep
	4550	t_surf_h_p = t_surf_h
	4551	t_surf_v_p = t_surf_v
	4552	t_surf_window_h_p = t_surf_window_h
	4553	t_surf_window_v_p = t_surf_window_v
	4554	t_surf_whole_h_p = t_surf_whole_h
	4555	t_surf_whole_v_p = t_surf_whole_v
	4556	t_surf_green_h_p = t_surf_green_h
	4557	t_surf_green_v_p = t_surf_green_v
	4558	t_surf_10cm_h_p = t_surf_10cm_h
	4559	t_surf_10cm_v_p = t_surf_10cm_v
	4560
	4561	t_wall_h_p = t_wall_h
	4562	t_wall_v_p = t_wall_v
	4563	t_window_h_p = t_window_h
	4564	t_window_v_p = t_window_v
	4565	t_green_h_p = t_green_h
	4566	t_green_v_p = t_green_v
	4567
	4568	CALL cpu_log( log_point_s(78), 'usm_init', 'stop' )
	4569
	4570	END SUBROUTINE usm_init_urban_surface
	4571
	4572
	4573	!------------------------------------------------------------------------------!
	4574	! Description:
	4575	! ------------
	4576	!
	4577	!> Wall model as part of the urban surface model. The model predicts wall
	4578	!> temperature.
	4579	!------------------------------------------------------------------------------!
	4580	SUBROUTINE usm_material_heat_model
	4581
	4582
	4583	IMPLICIT NONE
	4584
	4585	INTEGER(iwp) :: i,j,k,l,kw, m !< running indices
	4586
	4587	REAL(wp), DIMENSION(nzb_wall:nzt_wall) :: wtend, wintend !< tendency
	4588
	4589	!
	4590	!-- For horizontal surfaces
	4591	DO m = 1, surf_usm_h%ns
	4592	!
	4593	!-- Obtain indices
	4594	i = surf_usm_h%i(m)
	4595	j = surf_usm_h%j(m)
	4596	k = surf_usm_h%k(m)
	4597	!
	4598	!-- prognostic equation for ground/roof temperature t_wall_h
	4599	wtend(:) = 0.0_wp
	4600	wtend(nzb_wall) = (1.0_wp / surf_usm_h%rho_c_wall(nzb_wall,m)) * &
	4601	( surf_usm_h%lambda_h(nzb_wall,m) * &
	4602	( t_wall_h(nzb_wall+1,m) &
	4603	- t_wall_h(nzb_wall,m) ) * &
	4604	surf_usm_h%ddz_wall(nzb_wall+1,m) &
	4605	+ surf_usm_h%frac(0,m) &
	4606	/ (surf_usm_h%frac(0,m) &
	4607	+ surf_usm_h%frac(1,m) ) &
	4608	* surf_usm_h%wghf_eb(m) &
	4609	- surf_usm_h%frac(1,m) &
	4610	/ (surf_usm_h%frac(0,m) &
	4611	+ surf_usm_h%frac(1,m) ) &
	4612	* ( surf_usm_h%lambda_h_green(nzt_wall,m) &
	4613	* surf_usm_h%ddz_green(nzt_wall,m) &
	4614	+ surf_usm_h%lambda_h(nzb_wall,m) &
	4615	* surf_usm_h%ddz_wall(nzb_wall,m) ) &
	4616	/ ( surf_usm_h%ddz_green(nzt_wall,m) &
	4617	+ surf_usm_h%ddz_wall(nzb_wall,m) ) &
	4618	* ( t_wall_h(nzb_wall,m) &
	4619	- t_green_h(nzt_wall,m) ) ) * &
	4620	surf_usm_h%ddz_wall_stag(nzb_wall,m)
	4621
	4622	!dummy value for testing
	4623	surf_usm_h%iwghf_eb(m) = 0.
	4624
	4625	IF ( indoor_model ) then
	4626	DO kw = nzb_wall+1, nzt_wall-1
	4627	wtend(kw) = (1.0_wp / surf_usm_h%rho_c_wall(kw,m)) &
	4628	* ( surf_usm_h%lambda_h(kw,m) &
	4629	* ( t_wall_h(kw+1,m) - t_wall_h(kw,m) ) &
	4630	* surf_usm_h%ddz_wall(kw+1,m) &
	4631	- surf_usm_h%lambda_h(kw-1,m) &
	4632	* ( t_wall_h(kw,m) - t_wall_h(kw-1,m) ) &
	4633	* surf_usm_h%ddz_wall(kw,m) &
	4634	) * surf_usm_h%ddz_wall_stag(kw,m)
	4635	ENDDO
	4636	wtend(nzt_wall) = (1.0_wp / surf_usm_h%rho_c_wall(nzt_wall,m)) * &
	4637	( surf_usm_h%lambda_h(nzt_wall-1,m) * &
	4638	( t_wall_h(nzt_wall,m) &
	4639	- t_wall_h(nzt_wall-1,m) ) * &
	4640	surf_usm_h%ddz_wall(nzt_wall,m) &
	4641	+ surf_usm_h%iwghf_eb(m) ) * &
	4642	surf_usm_h%ddz_wall_stag(nzt_wall,m)
	4643	ELSE
	4644	DO kw = nzb_wall+1, nzt_wall
	4645	wtend(kw) = (1.0_wp / surf_usm_h%rho_c_wall(kw,m)) &
	4646	* ( surf_usm_h%lambda_h(kw,m) &
	4647	* ( t_wall_h(kw+1,m) - t_wall_h(kw,m) ) &
	4648	* surf_usm_h%ddz_wall(kw+1,m) &
	4649	- surf_usm_h%lambda_h(kw-1,m) &
	4650	* ( t_wall_h(kw,m) - t_wall_h(kw-1,m) ) &
	4651	* surf_usm_h%ddz_wall(kw,m) &
	4652	) * surf_usm_h%ddz_wall_stag(kw,m)
	4653	ENDDO
	4654	ENDIF
	4655
	4656	t_wall_h_p(nzb_wall:nzt_wall,m) = t_wall_h(nzb_wall:nzt_wall,m) &
	4657	+ dt_3d * ( tsc(2) &
	4658	* wtend(nzb_wall:nzt_wall) + tsc(3) &
	4659	* surf_usm_h%tt_wall_m(nzb_wall:nzt_wall,m) )
	4660
	4661	!-- prognostic equation for ground/roof window temperature t_window_h
	4662	wintend(:) = 0.0_wp
	4663	wintend(nzb_wall) = (1.0_wp / surf_usm_h%rho_c_window(nzb_wall,m)) * &
	4664	( surf_usm_h%lambda_h_window(nzb_wall,m) * &
	4665	( t_window_h(nzb_wall+1,m) &
	4666	- t_window_h(nzb_wall,m) ) * &
	4667	surf_usm_h%ddz_window(nzb_wall+1,m) &
	4668	+ surf_usm_h%wghf_eb_window(m) &
	4669	+ surf_usm_h%rad_sw_in(m) &
	4670	* (1.0_wp - exp(-surf_usm_h%transmissivity(m) &
	4671	* surf_usm_h%zw_window(nzb_wall,m) ) ) &
	4672	) * surf_usm_h%ddz_window_stag(nzb_wall,m)
	4673
	4674	IF ( indoor_model ) then
	4675	DO kw = nzb_wall+1, nzt_wall-1
	4676	wintend(kw) = (1.0_wp / surf_usm_h%rho_c_window(kw,m)) &
	4677	* ( surf_usm_h%lambda_h_window(kw,m) &
	4678	* ( t_window_h(kw+1,m) - t_window_h(kw,m) ) &
	4679	* surf_usm_h%ddz_window(kw+1,m) &
	4680	- surf_usm_h%lambda_h_window(kw-1,m) &
	4681	* ( t_window_h(kw,m) - t_window_h(kw-1,m) ) &
	4682	* surf_usm_h%ddz_window(kw,m) &
	4683	+ surf_usm_h%rad_sw_in(m) &
	4684	* (exp(-surf_usm_h%transmissivity(m) &
	4685	* surf_usm_h%zw_window(kw-1,m) ) &
	4686	- exp(-surf_usm_h%transmissivity(m) &
	4687	* surf_usm_h%zw_window(kw,m) ) ) &
	4688	) * surf_usm_h%ddz_window_stag(kw,m)
	4689
	4690	ENDDO
	4691	wintend(nzt_wall) = (1.0_wp / surf_usm_h%rho_c_window(nzt_wall,m)) * &
	4692	( surf_usm_h%lambda_h_window(nzt_wall-1,m) * &
	4693	( t_window_h(nzt_wall,m) &
	4694	- t_window_h(nzt_wall-1,m) ) * &
	4695	surf_usm_h%ddz_window(nzt_wall,m) &
	4696	+ surf_usm_h%iwghf_eb_window(m) &
	4697	+ surf_usm_h%rad_sw_in(m) &
	4698	* (1.0_wp - exp(-surf_usm_h%transmissivity(m) &
	4699	* surf_usm_h%zw_window(nzt_wall,m) ) ) &
	4700	) * surf_usm_h%ddz_window_stag(nzt_wall,m)
	4701	ELSE
	4702	DO kw = nzb_wall+1, nzt_wall
	4703	wintend(kw) = (1.0_wp / surf_usm_h%rho_c_window(kw,m)) &
	4704	* ( surf_usm_h%lambda_h_window(kw,m) &
	4705	* ( t_window_h(kw+1,m) - t_window_h(kw,m) ) &
	4706	* surf_usm_h%ddz_window(kw+1,m) &
	4707	- surf_usm_h%lambda_h_window(kw-1,m) &
	4708	* ( t_window_h(kw,m) - t_window_h(kw-1,m) ) &
	4709	* surf_usm_h%ddz_window(kw,m) &
	4710	+ surf_usm_h%rad_sw_in(m) &
	4711	* (exp(-surf_usm_h%transmissivity(m) &
	4712	* surf_usm_h%zw_window(kw-1,m) ) &
	4713	- exp(-surf_usm_h%transmissivity(m) &
	4714	* surf_usm_h%zw_window(kw,m) ) ) &
	4715	) * surf_usm_h%ddz_window_stag(kw,m)
	4716
	4717	ENDDO
	4718	ENDIF
	4719
	4720	t_window_h_p(nzb_wall:nzt_wall,m) = t_window_h(nzb_wall:nzt_wall,m) &
	4721	+ dt_3d * ( tsc(2) &
	4722	* wintend(nzb_wall:nzt_wall) + tsc(3) &
	4723	* surf_usm_h%tt_window_m(nzb_wall:nzt_wall,m) )
	4724
	4725	!
	4726	!-- calculate t_wall tendencies for the next Runge-Kutta step
	4727	IF ( timestep_scheme(1:5) == 'runge' ) THEN
	4728	IF ( intermediate_timestep_count == 1 ) THEN
	4729	DO kw = nzb_wall, nzt_wall
	4730	surf_usm_h%tt_wall_m(kw,m) = wtend(kw)
	4731	ENDDO
	4732	ELSEIF ( intermediate_timestep_count < &
	4733	intermediate_timestep_count_max ) THEN
	4734	DO kw = nzb_wall, nzt_wall
	4735	surf_usm_h%tt_wall_m(kw,m) = -9.5625_wp * wtend(kw) + &
	4736	5.3125_wp * surf_usm_h%tt_wall_m(kw,m)
	4737	ENDDO
	4738	ENDIF
	4739	ENDIF
	4740
	4741	!-- calculate t_window tendencies for the next Runge-Kutta step
	4742	IF ( timestep_scheme(1:5) == 'runge' ) THEN
	4743	IF ( intermediate_timestep_count == 1 ) THEN
	4744	DO kw = nzb_wall, nzt_wall
	4745	surf_usm_h%tt_window_m(kw,m) = wintend(kw)
	4746	ENDDO
	4747	ELSEIF ( intermediate_timestep_count < &
	4748	intermediate_timestep_count_max ) THEN
	4749	DO kw = nzb_wall, nzt_wall
	4750	surf_usm_h%tt_window_m(kw,m) = -9.5625_wp * wintend(kw) + &
	4751	5.3125_wp * surf_usm_h%tt_window_m(kw,m)
	4752	ENDDO
	4753	ENDIF
	4754	ENDIF
	4755	ENDDO
	4756
	4757	!
	4758	!-- For vertical surfaces
	4759	DO l = 0, 3
	4760	DO m = 1, surf_usm_v(l)%ns
	4761	!
	4762	!-- Obtain indices
	4763	i = surf_usm_v(l)%i(m)
	4764	j = surf_usm_v(l)%j(m)
	4765	k = surf_usm_v(l)%k(m)
	4766	!
	4767	!-- prognostic equation for wall temperature t_wall_v
	4768	wtend(:) = 0.0_wp
	4769
	4770	wtend(nzb_wall) = (1.0_wp / surf_usm_v(l)%rho_c_wall(nzb_wall,m)) * &
	4771	( surf_usm_v(l)%lambda_h(nzb_wall,m) * &
	4772	( t_wall_v(l)%t(nzb_wall+1,m) &
	4773	- t_wall_v(l)%t(nzb_wall,m) ) * &
	4774	surf_usm_v(l)%ddz_wall(nzb_wall+1,m) &
	4775	+ surf_usm_v(l)%frac(0,m) &
	4776	/ (surf_usm_v(l)%frac(0,m) &
	4777	+ surf_usm_v(l)%frac(1,m) ) &
	4778	* surf_usm_v(l)%wghf_eb(m) &
	4779	- surf_usm_v(l)%frac(1,m) &
	4780	/ (surf_usm_v(l)%frac(0,m) &
	4781	+ surf_usm_v(l)%frac(1,m) ) &
	4782	* ( surf_usm_v(l)%lambda_h_green(nzt_wall,m) &
	4783	* surf_usm_v(l)%ddz_green(nzt_wall,m) &
	4784	+ surf_usm_v(l)%lambda_h(nzb_wall,m) &
	4785	* surf_usm_v(l)%ddz_wall(nzb_wall,m) ) &
	4786	/ ( surf_usm_v(l)%ddz_green(nzt_wall,m) &
	4787	+ surf_usm_v(l)%ddz_wall(nzb_wall,m) ) &
	4788	* ( t_wall_v(l)%t(nzb_wall,m) &
	4789	- t_green_v(l)%t(nzt_wall,m) ) ) * &
	4790	surf_usm_v(l)%ddz_wall_stag(nzb_wall,m)
	4791
	4792	!dummy value for testing
	4793	surf_usm_v(l)%iwghf_eb(m) = 0.
	4794
	4795	IF ( indoor_model ) then
	4796	DO kw = nzb_wall+1, nzt_wall-1
	4797	wtend(kw) = (1.0_wp / surf_usm_v(l)%rho_c_wall(kw,m)) &
	4798	* ( surf_usm_v(l)%lambda_h(kw,m) &
	4799	* ( t_wall_v(l)%t(kw+1,m) - t_wall_v(l)%t(kw,m) )&
	4800	* surf_usm_v(l)%ddz_wall(kw+1,m) &
	4801	- surf_usm_v(l)%lambda_h(kw-1,m) &
	4802	* ( t_wall_v(l)%t(kw,m) - t_wall_v(l)%t(kw-1,m) )&
	4803	* surf_usm_v(l)%ddz_wall(kw,m) &
	4804	) * surf_usm_v(l)%ddz_wall_stag(kw,m)
	4805	ENDDO
	4806	wtend(nzt_wall) = (1.0_wp / surf_usm_v(l)%rho_c_wall(nzt_wall,m)) * &
	4807	( surf_usm_v(l)%lambda_h(nzt_wall-1,m) * &
	4808	( t_wall_v(l)%t(nzt_wall,m) &
	4809	- t_wall_v(l)%t(nzt_wall-1,m) ) * &
	4810	surf_usm_v(l)%ddz_wall(nzt_wall,m) &
	4811	+ surf_usm_v(l)%iwghf_eb(m) ) * &
	4812	surf_usm_v(l)%ddz_wall_stag(nzt_wall,m)
	4813	ELSE
	4814	DO kw = nzb_wall+1, nzt_wall
	4815	wtend(kw) = (1.0_wp / surf_usm_v(l)%rho_c_wall(kw,m)) &
	4816	* ( surf_usm_v(l)%lambda_h(kw,m) &
	4817	* ( t_wall_v(l)%t(kw+1,m) - t_wall_v(l)%t(kw,m) )&
	4818	* surf_usm_v(l)%ddz_wall(kw+1,m) &
	4819	- surf_usm_v(l)%lambda_h(kw-1,m) &
	4820	* ( t_wall_v(l)%t(kw,m) - t_wall_v(l)%t(kw-1,m) )&
	4821	* surf_usm_v(l)%ddz_wall(kw,m) &
	4822	) * surf_usm_v(l)%ddz_wall_stag(kw,m)
	4823	ENDDO
	4824	ENDIF
	4825
	4826	t_wall_v_p(l)%t(nzb_wall:nzt_wall,m) = &
	4827	t_wall_v(l)%t(nzb_wall:nzt_wall,m) &
	4828	+ dt_3d * ( tsc(2) &
	4829	* wtend(nzb_wall:nzt_wall) + tsc(3) &
	4830	* surf_usm_v(l)%tt_wall_m(nzb_wall:nzt_wall,m) )
	4831
	4832	!-- prognostic equation for window temperature t_window_v
	4833	wintend(:) = 0.0_wp
	4834	wintend(nzb_wall) = (1.0_wp / surf_usm_v(l)%rho_c_window(nzb_wall,m)) * &
	4835	( surf_usm_v(l)%lambda_h_window(nzb_wall,m) * &
	4836	( t_window_v(l)%t(nzb_wall+1,m) &
	4837	- t_window_v(l)%t(nzb_wall,m) ) * &
	4838	surf_usm_v(l)%ddz_window(nzb_wall+1,m) &
	4839	+ surf_usm_v(l)%wghf_eb_window(m) &
	4840	+ surf_usm_v(l)%rad_sw_in(m) &
	4841	* (1.0_wp - exp(-surf_usm_v(l)%transmissivity(m) &
	4842	* surf_usm_v(l)%zw_window(nzb_wall,m) ) ) &
	4843	) * surf_usm_v(l)%ddz_window_stag(nzb_wall,m)
	4844
	4845	IF ( indoor_model ) then
	4846	DO kw = nzb_wall+1, nzt_wall -1
	4847	wintend(kw) = (1.0_wp / surf_usm_v(l)%rho_c_window(kw,m)) &
	4848	* ( surf_usm_v(l)%lambda_h_window(kw,m) &
	4849	* ( t_window_v(l)%t(kw+1,m) - t_window_v(l)%t(kw,m) ) &
	4850	* surf_usm_v(l)%ddz_window(kw+1,m) &
	4851	- surf_usm_v(l)%lambda_h_window(kw-1,m) &
	4852	* ( t_window_v(l)%t(kw,m) - t_window_v(l)%t(kw-1,m) ) &
	4853	* surf_usm_v(l)%ddz_window(kw,m) &
	4854	+ surf_usm_v(l)%rad_sw_in(m) &
	4855	* (exp(-surf_usm_v(l)%transmissivity(m) &
	4856	* surf_usm_v(l)%zw_window(kw-1,m) ) &
	4857	- exp(-surf_usm_v(l)%transmissivity(m) &
	4858	* surf_usm_v(l)%zw_window(kw,m) ) ) &
	4859	) * surf_usm_v(l)%ddz_window_stag(kw,m)
	4860	ENDDO
	4861	wintend(nzt_wall) = (1.0_wp / surf_usm_v(l)%rho_c_window(nzt_wall,m)) * &
	4862	( surf_usm_v(l)%lambda_h_window(nzt_wall-1,m) * &
	4863	( t_window_v(l)%t(nzt_wall,m) &
	4864	- t_window_v(l)%t(nzt_wall-1,m) ) * &
	4865	surf_usm_v(l)%ddz_window(nzt_wall,m) &
	4866	+ surf_usm_v(l)%iwghf_eb_window(m) &
	4867	+ surf_usm_v(l)%rad_sw_in(m) &
	4868	* (1.0_wp - exp(-surf_usm_v(l)%transmissivity(m) &
	4869	* surf_usm_v(l)%zw_window(nzt_wall,m) ) ) &
	4870	) * surf_usm_v(l)%ddz_window_stag(nzt_wall,m)
	4871	ELSE
	4872	DO kw = nzb_wall+1, nzt_wall
	4873	wintend(kw) = (1.0_wp / surf_usm_v(l)%rho_c_window(kw,m)) &
	4874	* ( surf_usm_v(l)%lambda_h_window(kw,m) &
	4875	* ( t_window_v(l)%t(kw+1,m) - t_window_v(l)%t(kw,m) ) &
	4876	* surf_usm_v(l)%ddz_window(kw+1,m) &
	4877	- surf_usm_v(l)%lambda_h_window(kw-1,m) &
	4878	* ( t_window_v(l)%t(kw,m) - t_window_v(l)%t(kw-1,m) ) &
	4879	* surf_usm_v(l)%ddz_window(kw,m) &
	4880	+ surf_usm_v(l)%rad_sw_in(m) &
	4881	* (exp(-surf_usm_v(l)%transmissivity(m) &
	4882	* surf_usm_v(l)%zw_window(kw-1,m) ) &
	4883	- exp(-surf_usm_v(l)%transmissivity(m) &
	4884	* surf_usm_v(l)%zw_window(kw,m) ) ) &
	4885	) * surf_usm_v(l)%ddz_window_stag(kw,m)
	4886	ENDDO
	4887	ENDIF
	4888
	4889	t_window_v_p(l)%t(nzb_wall:nzt_wall,m) = &
	4890	t_window_v(l)%t(nzb_wall:nzt_wall,m) &
	4891	+ dt_3d * ( tsc(2) &
	4892	* wintend(nzb_wall:nzt_wall) + tsc(3) &
	4893	* surf_usm_v(l)%tt_window_m(nzb_wall:nzt_wall,m) )
	4894
	4895	!
	4896	!-- calculate t_wall tendencies for the next Runge-Kutta step
	4897	IF ( timestep_scheme(1:5) == 'runge' ) THEN
	4898	IF ( intermediate_timestep_count == 1 ) THEN
	4899	DO kw = nzb_wall, nzt_wall
	4900	surf_usm_v(l)%tt_wall_m(kw,m) = wtend(kw)
	4901	ENDDO
	4902	ELSEIF ( intermediate_timestep_count < &
	4903	intermediate_timestep_count_max ) THEN
	4904	DO kw = nzb_wall, nzt_wall
	4905	surf_usm_v(l)%tt_wall_m(kw,m) = &
	4906	- 9.5625_wp * wtend(kw) + &
	4907	5.3125_wp * surf_usm_v(l)%tt_wall_m(kw,m)
	4908	ENDDO
	4909	ENDIF
	4910	ENDIF
	4911	!-- calculate t_window tendencies for the next Runge-Kutta step
	4912	IF ( timestep_scheme(1:5) == 'runge' ) THEN
	4913	IF ( intermediate_timestep_count == 1 ) THEN
	4914	DO kw = nzb_wall, nzt_wall
	4915	surf_usm_v(l)%tt_window_m(kw,m) = wintend(kw)
	4916	ENDDO
	4917	ELSEIF ( intermediate_timestep_count < &
	4918	intermediate_timestep_count_max ) THEN
	4919	DO kw = nzb_wall, nzt_wall
	4920	surf_usm_v(l)%tt_window_m(kw,m) = &
	4921	- 9.5625_wp * wintend(kw) + &
	4922	5.3125_wp * surf_usm_v(l)%tt_window_m(kw,m)
	4923	ENDDO
	4924	ENDIF
	4925	ENDIF
	4926	ENDDO
	4927	ENDDO
	4928
	4929	END SUBROUTINE usm_material_heat_model
	4930
	4931	!------------------------------------------------------------------------------!
	4932	! Description:
	4933	! ------------
	4934	!
	4935	!> Green and substrate model as part of the urban surface model. The model predicts ground
	4936	!> temperatures.
	4937	!------------------------------------------------------------------------------!
	4938	SUBROUTINE usm_green_heat_model
	4939
	4940
	4941	IMPLICIT NONE
	4942
	4943	INTEGER(iwp) :: i,j,k,l,kw, m !< running indices
	4944
	4945	REAL(wp), DIMENSION(nzb_wall:nzt_wall) :: gtend !< tendency
	4946
	4947	!
	4948	!-- For horizontal surfaces
	4949	DO m = 1, surf_usm_h%ns
	4950	!
	4951	!-- Obtain indices
	4952	i = surf_usm_h%i(m)
	4953	j = surf_usm_h%j(m)
	4954	k = surf_usm_h%k(m)
	4955
	4956	t_green_h(nzt_wall+1,m) = t_wall_h(nzb_wall,m)
	4957	!
	4958	!-- prognostic equation for ground/roof temperature t_green_h
	4959	gtend(:) = 0.0_wp
	4960	gtend(nzb_wall) = (1.0_wp / surf_usm_h%rho_c_green(nzb_wall,m)) * &
	4961	( surf_usm_h%lambda_h_green(nzb_wall,m) * &
	4962	( t_green_h(nzb_wall+1,m) &
	4963	- t_green_h(nzb_wall,m) ) * &
	4964	surf_usm_h%ddz_green(nzb_wall+1,m) &
	4965	+ surf_usm_h%wghf_eb_green(m) ) * &
	4966	surf_usm_h%ddz_green_stag(nzb_wall,m)
	4967
	4968	DO kw = nzb_wall+1, nzt_wall
	4969	gtend(kw) = (1.0_wp / surf_usm_h%rho_c_green(kw,m)) &
	4970	* ( surf_usm_h%lambda_h_green(kw,m) &
	4971	* ( t_green_h(kw+1,m) - t_green_h(kw,m) ) &
	4972	* surf_usm_h%ddz_green(kw+1,m) &
	4973	- surf_usm_h%lambda_h_green(kw-1,m) &
	4974	* ( t_green_h(kw,m) - t_green_h(kw-1,m) ) &
	4975	* surf_usm_h%ddz_green(kw,m) &
	4976	) * surf_usm_h%ddz_green_stag(kw,m)
	4977	ENDDO
	4978
	4979	t_green_h_p(nzb_wall:nzt_wall,m) = t_green_h(nzb_wall:nzt_wall,m) &
	4980	+ dt_3d * ( tsc(2) &
	4981	* gtend(nzb_wall:nzt_wall) + tsc(3) &
	4982	* surf_usm_h%tt_green_m(nzb_wall:nzt_wall,m) )
	4983
	4984
	4985	!
	4986	!-- calculate t_green tendencies for the next Runge-Kutta step
	4987	IF ( timestep_scheme(1:5) == 'runge' ) THEN
	4988	IF ( intermediate_timestep_count == 1 ) THEN
	4989	DO kw = nzb_wall, nzt_wall
	4990	surf_usm_h%tt_green_m(kw,m) = gtend(kw)
	4991	ENDDO
	4992	ELSEIF ( intermediate_timestep_count < &
	4993	intermediate_timestep_count_max ) THEN
	4994	DO kw = nzb_wall, nzt_wall
	4995	surf_usm_h%tt_green_m(kw,m) = -9.5625_wp * gtend(kw) + &
	4996	5.3125_wp * surf_usm_h%tt_green_m(kw,m)
	4997	ENDDO
	4998	ENDIF
	4999	ENDIF
	5000	ENDDO
	5001
	5002	!
	5003	!-- For vertical surfaces
	5004	DO l = 0, 3
	5005	DO m = 1, surf_usm_v(l)%ns
	5006	!
	5007	!-- Obtain indices
	5008	i = surf_usm_v(l)%i(m)
	5009	j = surf_usm_v(l)%j(m)
	5010	k = surf_usm_v(l)%k(m)
	5011
	5012	t_green_v(l)%t(nzt_wall+1,m) = t_wall_v(l)%t(nzb_wall,m)
	5013	!
	5014	!-- prognostic equation for green temperature t_green_v
	5015	gtend(:) = 0.0_wp
	5016	gtend(nzb_wall) = (1.0_wp / surf_usm_v(l)%rho_c_green(nzb_wall,m)) * &
	5017	( surf_usm_v(l)%lambda_h_green(nzb_wall,m) * &
	5018	( t_green_v(l)%t(nzb_wall+1,m) &
	5019	- t_green_v(l)%t(nzb_wall,m) ) * &
	5020	surf_usm_v(l)%ddz_green(nzb_wall+1,m) &
	5021	+ surf_usm_v(l)%wghf_eb(m) ) * &
	5022	surf_usm_v(l)%ddz_green_stag(nzb_wall,m)
	5023
	5024	DO kw = nzb_wall+1, nzt_wall
	5025	gtend(kw) = (1.0_wp / surf_usm_v(l)%rho_c_green(kw,m)) &
	5026	* ( surf_usm_v(l)%lambda_h_green(kw,m) &
	5027	* ( t_green_v(l)%t(kw+1,m) - t_green_v(l)%t(kw,m) ) &
	5028	* surf_usm_v(l)%ddz_green(kw+1,m) &
	5029	- surf_usm_v(l)%lambda_h(kw-1,m) &
	5030	* ( t_green_v(l)%t(kw,m) - t_green_v(l)%t(kw-1,m) ) &
	5031	* surf_usm_v(l)%ddz_green(kw,m) ) &
	5032	* surf_usm_v(l)%ddz_green_stag(kw,m)
	5033	ENDDO
	5034
	5035	t_green_v_p(l)%t(nzb_wall:nzt_wall,m) = &
	5036	t_green_v(l)%t(nzb_wall:nzt_wall,m) &
	5037	+ dt_3d * ( tsc(2) &
	5038	* gtend(nzb_wall:nzt_wall) + tsc(3) &
	5039	* surf_usm_v(l)%tt_green_m(nzb_wall:nzt_wall,m) )
	5040
	5041	!
	5042	!-- calculate t_green tendencies for the next Runge-Kutta step
	5043	IF ( timestep_scheme(1:5) == 'runge' ) THEN
	5044	IF ( intermediate_timestep_count == 1 ) THEN
	5045	DO kw = nzb_wall, nzt_wall
	5046	surf_usm_v(l)%tt_green_m(kw,m) = gtend(kw)
	5047	ENDDO
	5048	ELSEIF ( intermediate_timestep_count < &
	5049	intermediate_timestep_count_max ) THEN
	5050	DO kw = nzb_wall, nzt_wall
	5051	surf_usm_v(l)%tt_green_m(kw,m) = &
	5052	- 9.5625_wp * gtend(kw) + &
	5053	5.3125_wp * surf_usm_v(l)%tt_green_m(kw,m)
	5054	ENDDO
	5055	ENDIF
	5056	ENDIF
	5057
	5058	ENDDO
	5059	ENDDO
	5060
	5061	END SUBROUTINE usm_green_heat_model
	5062
	5063	!------------------------------------------------------------------------------!
	5064	! Description:
	5065	! ------------
	5066	!> Parin for &usm_par for urban surface model
	5067	!------------------------------------------------------------------------------!
	5068	SUBROUTINE usm_parin
	5069
	5070	IMPLICIT NONE
	5071
	5072	CHARACTER (LEN=80) :: line !< string containing current line of file PARIN
	5073
	5074	NAMELIST /urban_surface_par/ &
	5075	building_type, &
	5076	land_category, &
	5077	pedestrant_category, &
	5078	ra_horiz_coef, &
	5079	roof_category, &
	5080	urban_surface, &
	5081	usm_anthropogenic_heat, &
	5082	usm_material_model, &
	5083	usm_lad_rma, &
	5084	wall_category, &
	5085	indoor_model
	5086
	5087	line = ' '
	5088
	5089	!
	5090	!-- Try to find urban surface model package
	5091	REWIND ( 11 )
	5092	line = ' '
	5093	DO WHILE ( INDEX( line, '&urban_surface_par' ) == 0 )
	5094	READ ( 11, '(A)', END=10 ) line
	5095	ENDDO
	5096	BACKSPACE ( 11 )
	5097
	5098	!
	5099	!-- Read user-defined namelist
	5100	READ ( 11, urban_surface_par )
	5101	!
	5102	!-- Set flag that indicates that the land surface model is switched on
	5103	urban_surface = .TRUE.
	5104
	5105	!
	5106	!-- Activate spinup
	5107	IF ( spinup_time > 0.0_wp ) THEN
	5108	coupling_start_time = spinup_time
	5109	end_time = end_time + spinup_time
	5110	IF ( spinup_pt_mean == 9999999.9_wp ) THEN
	5111	spinup_pt_mean = pt_surface
	5112	ENDIF
	5113	spinup = .TRUE.
	5114	ENDIF
	5115
	5116	10 CONTINUE
	5117
	5118	END SUBROUTINE usm_parin
	5119
	5120	!------------------------------------------------------------------------------!
	5121	! Description:
	5122	! ------------
	5123	!> Calculates temperature near surface (10 cm) for indoor model
	5124	!------------------------------------------------------------------------------!
	5125	SUBROUTINE usm_temperature_near_surface
	5126
	5127	IMPLICIT NONE
	5128
	5129	INTEGER(iwp) :: i, j, k, l, m !< running indices
	5130
	5131	!
	5132	!-- First, treat horizontal surface elements
	5133	DO m = 1, surf_usm_h%ns
	5134
	5135	!-- Get indices of respective grid point
	5136	i = surf_usm_h%i(m)
	5137	j = surf_usm_h%j(m)
	5138	k = surf_usm_h%k(m)
	5139
	5140	t_surf_10cm_h(m) = t_surf_whole_h(m) + surf_usm_h%ts(m) / kappa &
	5141	* ( log( 0.1_wp / surf_usm_h%z0h(m) ) &
	5142	- psi_h( 0.1_wp / surf_usm_h%ol(m) ) &
	5143	+ psi_h( surf_usm_h%z0h(m) / surf_usm_h%ol(m) ) )
	5144
	5145	ENDDO
	5146	!
	5147	!-- Now, treat vertical surface elements
	5148	DO l = 0, 3
	5149	DO m = 1, surf_usm_v(l)%ns
	5150
	5151	!-- Get indices of respective grid point
	5152	i = surf_usm_v(l)%i(m)
	5153	j = surf_usm_v(l)%j(m)
	5154	k = surf_usm_v(l)%k(m)
	5155
	5156	t_surf_10cm_v(l)%t(m) = t_surf_whole_v(l)%t(m) + surf_usm_v(l)%ts(m) / kappa &
	5157	* ( log( 0.1_wp / surf_usm_v(l)%z0h(m) ) &
	5158	- psi_h( 0.1_wp / surf_usm_v(l)%ol(m) ) &
	5159	+ psi_h( surf_usm_v(l)%z0h(m) / surf_usm_v(l)%ol(m) ) )
	5160
	5161	ENDDO
	5162
	5163	ENDDO
	5164
	5165
	5166	END SUBROUTINE usm_temperature_near_surface
	5167
	5168
	5169
	5170	!------------------------------------------------------------------------------!
	5171	! Description:
	5172	! ------------
	5173	!
	5174	!> This subroutine is part of the urban surface model.
	5175	!> It reads daily heat produced by anthropogenic sources
	5176	!> and the diurnal cycle of the heat.
	5177	!------------------------------------------------------------------------------!
	5178	SUBROUTINE usm_read_anthropogenic_heat
	5179
	5180	INTEGER(iwp) :: i,j,ii
	5181	REAL(wp) :: heat
	5182
	5183	!-- allocation of array of sources of anthropogenic heat and their diural profile
	5184	ALLOCATE( aheat(nys:nyn,nxl:nxr) )
	5185	ALLOCATE( aheatprof(0:24) )
	5186
	5187	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	5188	!-- read daily amount of heat and its daily cycle
	5189	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	5190	aheat = 0.0_wp
	5191	DO ii = 0, io_blocks-1
	5192	IF ( ii == io_group ) THEN
	5193
	5194	!-- open anthropogenic heat file
	5195	OPEN( 151, file='ANTHROPOGENIC_HEAT'//TRIM(coupling_char), action='read', &
	5196	status='old', form='formatted', err=11 )
	5197	i = 0
	5198	j = 0
	5199	DO
	5200	READ( 151, *, err=12, end=13 ) i, j, heat
	5201	IF ( i >= nxl .AND. i <= nxr .AND. j >= nys .AND. j <= nyn ) THEN
	5202	!-- write heat into the array
	5203	aheat(j,i) = heat
	5204	ENDIF
	5205	CYCLE
	5206	12 WRITE(message_string,'(a,2i4)') 'error in file ANTHROPOGENIC_HEAT'//TRIM(coupling_char)//' after line ',i,j
	5207	CALL message( 'usm_read_anthropogenic_heat', 'PA0515', 0, 1, 0, 6, 0 )
	5208	ENDDO
	5209	13 CLOSE(151)
	5210	CYCLE
	5211	11 message_string = 'file ANTHROPOGENIC_HEAT'//TRIM(coupling_char)//' does not exist'
	5212	CALL message( 'usm_read_anthropogenic_heat', 'PA0516', 1, 2, 0, 6, 0 )
	5213	ENDIF
	5214
	5215	#if defined( __parallel ) && ! defined ( __check )
	5216	CALL MPI_BARRIER( comm2d, ierr )
	5217	#endif
	5218	ENDDO
	5219
	5220	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	5221	!-- read diurnal profiles of heat sources
	5222	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	5223	aheatprof = 0.0_wp
	5224	DO ii = 0, io_blocks-1
	5225	IF ( ii == io_group ) THEN
	5226
	5227	!-- open anthropogenic heat profile file
	5228	OPEN( 151, file='ANTHROPOGENIC_HEAT_PROFILE'//TRIM(coupling_char), action='read', &
	5229	status='old', form='formatted', err=21 )
	5230	i = 0
	5231	DO
	5232	READ( 151, *, err=22, end=23 ) i, heat
	5233	IF ( i >= 0 .AND. i <= 24 ) THEN
	5234	!-- write heat into the array
	5235	aheatprof(i) = heat
	5236	ENDIF
	5237	CYCLE
	5238	22 WRITE(message_string,'(a,i4)') 'error in file ANTHROPOGENIC_HEAT_PROFILE'// &
	5239	TRIM(coupling_char)//' after line ',i
	5240	CALL message( 'usm_read_anthropogenic_heat', 'PA0517', 0, 1, 0, 6, 0 )
	5241	ENDDO
	5242	aheatprof(24) = aheatprof(0)
	5243	23 CLOSE(151)
	5244	CYCLE
	5245	21 message_string = 'file ANTHROPOGENIC_HEAT_PROFILE'//TRIM(coupling_char)//' does not exist'
	5246	CALL message( 'usm_read_anthropogenic_heat', 'PA0518', 1, 2, 0, 6, 0 )
	5247	ENDIF
	5248
	5249	#if defined( __parallel ) && ! defined ( __check )
	5250	CALL MPI_BARRIER( comm2d, ierr )
	5251	#endif
	5252	ENDDO
	5253
	5254	END SUBROUTINE usm_read_anthropogenic_heat
	5255
	5256
	5257	!------------------------------------------------------------------------------!
	5258	!
	5259	! Description:
	5260	! ------------
	5261	!> Soubroutine reads t_surf and t_wall data from restart files
	5262	!kanani: Renamed this routine according to corresponging routines in PALM
	5263	!kanani: Modified the routine to match read_var_list, from where usm_read_restart_data
	5264	! shall be called in the future. This part has not been tested yet. (see virtual_flight_mod)
	5265	! Also, I had some trouble with the allocation of t_surf, since this is a pointer.
	5266	! So, I added some directives here.
	5267	!------------------------------------------------------------------------------!
	5268	SUBROUTINE usm_read_restart_data( ii, &
	5269	nxlfa, nxl_on_file, nxrfa, nxr_on_file, &
	5270	nynfa, nyn_on_file, nysfa, nys_on_file, &
	5271	offset_xa, offset_ya, overlap_count )
	5272
	5273
	5274	USE pegrid, &
	5275	ONLY: numprocs_previous_run
	5276
	5277	IMPLICIT NONE
	5278
	5279	CHARACTER (LEN=1) :: dum !< dummy to create correct string for reading input variable
	5280	CHARACTER (LEN=30) :: field_chr !< input variable
	5281
	5282	INTEGER(iwp) :: l !< index variable for surface type
	5283	INTEGER(iwp) :: ii !< running index over input files
	5284	INTEGER(iwp) :: kk !< running index over previous input files covering current local domain
	5285	INTEGER(iwp) :: ns_h_on_file_usm !< number of horizontal surface elements (urban type) on file
	5286	INTEGER(iwp) :: nxlc !< index of left boundary on current subdomain
	5287	INTEGER(iwp) :: nxlf !< index of left boundary on former subdomain
	5288	INTEGER(iwp) :: nxl_on_file !< index of left boundary on former local domain
	5289	INTEGER(iwp) :: nxrc !< index of right boundary on current subdomain
	5290	INTEGER(iwp) :: nxrf !< index of right boundary on former subdomain
	5291	INTEGER(iwp) :: nxr_on_file !< index of right boundary on former local domain
	5292	INTEGER(iwp) :: nync !< index of north boundary on current subdomain
	5293	INTEGER(iwp) :: nynf !< index of north boundary on former subdomain
	5294	INTEGER(iwp) :: nyn_on_file !< index of norht boundary on former local domain
	5295	INTEGER(iwp) :: nysc !< index of south boundary on current subdomain
	5296	INTEGER(iwp) :: nysf !< index of south boundary on former subdomain
	5297	INTEGER(iwp) :: nys_on_file !< index of south boundary on former local domain
	5298	INTEGER(iwp) :: overlap_count !< number of overlaps
	5299
	5300	INTEGER(iwp) :: ns_v_on_file_usm(0:3) !< number of vertical surface elements (urban type) on file
	5301
	5302	INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) :: nxlfa !<
	5303	INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) :: nxrfa !<
	5304	INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) :: nynfa !<
	5305	INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) :: nysfa !<
	5306	INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) :: offset_xa !<
	5307	INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) :: offset_ya !<
	5308
	5309	INTEGER(iwp), DIMENSION(nys_on_file:nyn_on_file,nxl_on_file:nxr_on_file) :: start_index_on_file
	5310	INTEGER(iwp), DIMENSION(nys_on_file:nyn_on_file,nxl_on_file:nxr_on_file) :: end_index_on_file
	5311
	5312	REAL(wp), DIMENSION(:), ALLOCATABLE :: tmp_surf_h, tmp_surf_window_h, tmp_surf_green_h
	5313	REAL(wp), DIMENSION(:,:), ALLOCATABLE :: tmp_wall_h, tmp_window_h, tmp_green_h
	5314
	5315	TYPE( t_surf_vertical ), DIMENSION(0:3) :: tmp_surf_v, tmp_surf_window_v, tmp_surf_green_v
	5316	TYPE( t_wall_vertical ), DIMENSION(0:3) :: tmp_wall_v, tmp_window_v, tmp_green_v
	5317
	5318
	5319	IF ( initializing_actions == 'read_restart_data' .OR. &
	5320	initializing_actions == 'cyclic_fill' ) THEN
	5321
	5322	!
	5323	!-- Read number of respective surface elements on file
	5324	READ ( 13 ) field_chr
	5325	IF ( TRIM( field_chr ) /= 'ns_h_on_file_usm' ) THEN
	5326	!
	5327	!-- Add a proper error message
	5328	ENDIF
	5329	READ ( 13 ) ns_h_on_file_usm
	5330
	5331	READ ( 13 ) field_chr
	5332	IF ( TRIM( field_chr ) /= 'ns_v_on_file_usm' ) THEN
	5333	!
	5334	!-- Add a proper error message
	5335	ENDIF
	5336	READ ( 13 ) ns_v_on_file_usm
	5337	!
	5338	!-- Allocate temporary arrays for reading data on file. Note, the
	5339	!-- size of allocated surface elements do not necessarily need to match
	5340	!-- the size of present surface elements on current processor, as the
	5341	!-- number of processors between restarts can change.
	5342	ALLOCATE( tmp_surf_h(1:ns_h_on_file_usm) )
	5343	ALLOCATE( tmp_wall_h(nzb_wall:nzt_wall+1,1:ns_h_on_file_usm) )
	5344	ALLOCATE( tmp_surf_window_h(1:ns_h_on_file_usm) )
	5345	ALLOCATE( tmp_window_h(nzb_wall:nzt_wall+1,1:ns_h_on_file_usm) )
	5346	ALLOCATE( tmp_surf_green_h(1:ns_h_on_file_usm) )
	5347	ALLOCATE( tmp_green_h(nzb_wall:nzt_wall+1,1:ns_h_on_file_usm) )
	5348
	5349	DO l = 0, 3
	5350	ALLOCATE( tmp_surf_v(l)%t(1:ns_v_on_file_usm(l)) )
	5351	ALLOCATE( tmp_wall_v(l)%t(nzb_wall:nzt_wall+1,1:ns_v_on_file_usm(l) ) )
	5352	ALLOCATE( tmp_surf_window_v(l)%t(1:ns_v_on_file_usm(l)) )
	5353	ALLOCATE( tmp_window_v(l)%t(nzb_wall:nzt_wall+1,1:ns_v_on_file_usm(l) ) )
	5354	ALLOCATE( tmp_surf_green_v(l)%t(1:ns_v_on_file_usm(l)) )
	5355	ALLOCATE( tmp_green_v(l)%t(nzb_wall:nzt_wall+1,1:ns_v_on_file_usm(l) ) )
	5356	ENDDO
	5357
	5358
	5359	READ ( 13 ) field_chr
	5360
	5361	DO WHILE ( TRIM( field_chr ) /= '* end usm *' )
	5362	!
	5363	!-- Map data on file as often as needed (data are read only for k=1)
	5364	DO kk = 1, overlap_count
	5365	!
	5366	!-- Get the index range of the subdomain on file which overlap with the
	5367	!-- current subdomain
	5368	nxlf = nxlfa(ii,kk)
	5369	nxlc = nxlfa(ii,kk) + offset_xa(ii,kk)
	5370	nxrf = nxrfa(ii,kk)
	5371	nxrc = nxrfa(ii,kk) + offset_xa(ii,kk)
	5372	nysf = nysfa(ii,kk)
	5373	nysc = nysfa(ii,kk) + offset_ya(ii,kk)
	5374	nynf = nynfa(ii,kk)
	5375	nync = nynfa(ii,kk) + offset_ya(ii,kk)
	5376
	5377	SELECT CASE ( TRIM( field_chr ) )
	5378
	5379	CASE ( 'usm_start_index_h', 'usm_start_index_v' )
	5380	IF ( kk == 1 ) &
	5381	READ ( 13 ) start_index_on_file
	5382
	5383	CASE ( 'usm_end_index_h', 'usm_end_index_v' )
	5384	IF ( kk == 1 ) &
	5385	READ ( 13 ) end_index_on_file
	5386
	5387	CASE ( 't_surf_h' )
	5388	#if defined( __nopointer )
	5389	IF ( kk == 1 ) THEN
	5390	IF ( .NOT. ALLOCATED( t_surf_h ) ) &
	5391	ALLOCATE( t_surf_h(1:surf_usm_h%ns) )
	5392	READ ( 13 ) tmp_surf_h
	5393	ENDIF
	5394	CALL surface_restore_elements( &
	5395	t_surf_h, tmp_surf_h, &
	5396	surf_usm_h%start_index, &
	5397	start_index_on_file, &
	5398	end_index_on_file, &
	5399	nxlc, nysc, &
	5400	nxlf, nxrf, nysf, nynf, &
	5401	nys_on_file, nyn_on_file, &
	5402	nxl_on_file,nxr_on_file )
	5403	#else
	5404	IF ( kk == 1 ) THEN
	5405	IF ( .NOT. ALLOCATED( t_surf_h_1 ) ) &
	5406	ALLOCATE( t_surf_h_1(1:surf_usm_h%ns) )
	5407	READ ( 13 ) tmp_surf_h
	5408	ENDIF
	5409	CALL surface_restore_elements( &
	5410	t_surf_h_1, tmp_surf_h, &
	5411	surf_usm_h%start_index, &
	5412	start_index_on_file, &
	5413	end_index_on_file, &
	5414	nxlc, nysc, &
	5415	nxlf, nxrf, nysf, nynf, &
	5416	nys_on_file, nyn_on_file, &
	5417	nxl_on_file,nxr_on_file )
	5418	#endif
	5419
	5420	CASE ( 't_surf_v(0)' )
	5421	#if defined( __nopointer )
	5422	IF ( kk == 1 ) THEN
	5423	IF ( .NOT. ALLOCATED( t_surf_v(0)%t ) ) &
	5424	ALLOCATE( t_surf_v(0)%t(1:surf_usm_v(0)%ns) )
	5425	READ ( 13 ) tmp_surf_v(0)%t
	5426	ENDIF
	5427	CALL surface_restore_elements( &
	5428	t_surf_v(0)%t, tmp_surf_v(0)%t, &
	5429	surf_usm_v(0)%start_index, &
	5430	start_index_on_file, &
	5431	end_index_on_file, &
	5432	nxlc, nysc, &
	5433	nxlf, nxrf, nysf, nynf, &
	5434	nys_on_file, nyn_on_file, &
	5435	nxl_on_file,nxr_on_file )
	5436	#else
	5437	IF ( kk == 1 ) THEN
	5438	IF ( .NOT. ALLOCATED( t_surf_v_1(0)%t ) ) &
	5439	ALLOCATE( t_surf_v_1(0)%t(1:surf_usm_v(0)%ns) )
	5440	READ ( 13 ) tmp_surf_v(0)%t
	5441	ENDIF
	5442	CALL surface_restore_elements( &
	5443	t_surf_v_1(0)%t, tmp_surf_v(0)%t,&
	5444	surf_usm_v(0)%start_index, &
	5445	start_index_on_file, &
	5446	end_index_on_file, &
	5447	nxlc, nysc, &
	5448	nxlf, nxrf, nysf, nynf, &
	5449	nys_on_file, nyn_on_file, &
	5450	nxl_on_file,nxr_on_file )
	5451	#endif
	5452
	5453	CASE ( 't_surf_v(1)' )
	5454	#if defined( __nopointer )
	5455	IF ( kk == 1 ) THEN
	5456	IF ( .NOT. ALLOCATED( t_surf_v(1)%t ) ) &
	5457	ALLOCATE( t_surf_v(1)%t(1:surf_usm_v(1)%ns) )
	5458	READ ( 13 ) tmp_surf_v(1)%t
	5459	ENDIF
	5460	CALL surface_restore_elements( &
	5461	t_surf_v(1)%t, tmp_surf_v(1)%t, &
	5462	surf_usm_v(1)%start_index, &
	5463	start_index_on_file, &
	5464	end_index_on_file, &
	5465	nxlc, nysc, &
	5466	nxlf, nxrf, nysf, nynf, &
	5467	nys_on_file, nyn_on_file, &
	5468	nxl_on_file,nxr_on_file )
	5469	#else
	5470	IF ( kk == 1 ) THEN
	5471	IF ( .NOT. ALLOCATED( t_surf_v_1(1)%t ) ) &
	5472	ALLOCATE( t_surf_v_1(1)%t(1:surf_usm_v(1)%ns) )
	5473	READ ( 13 ) tmp_surf_v(1)%t
	5474	ENDIF
	5475	CALL surface_restore_elements( &
	5476	t_surf_v_1(1)%t, tmp_surf_v(1)%t,&
	5477	surf_usm_v(1)%start_index, &
	5478	start_index_on_file, &
	5479	end_index_on_file, &
	5480	nxlc, nysc, &
	5481	nxlf, nxrf, nysf, nynf, &
	5482	nys_on_file, nyn_on_file, &
	5483	nxl_on_file,nxr_on_file )
	5484	#endif
	5485
	5486	CASE ( 't_surf_v(2)' )
	5487	#if defined( __nopointer )
	5488	IF ( kk == 1 ) THEN
	5489	IF ( .NOT. ALLOCATED( t_surf_v(2)%t ) ) &
	5490	ALLOCATE( t_surf_v(2)%t(1:surf_usm_v(2)%ns) )
	5491	READ ( 13 ) tmp_surf_v(2)%t
	5492	ENDIF
	5493	CALL surface_restore_elements( &
	5494	t_surf_v(2)%t, tmp_surf_v(2)%t, &
	5495	surf_usm_v(2)%start_index, &
	5496	start_index_on_file, &
	5497	end_index_on_file, &
	5498	nxlc, nysc, &
	5499	nxlf, nxrf, nysf, nynf, &
	5500	nys_on_file, nyn_on_file, &
	5501	nxl_on_file,nxr_on_file )
	5502	#else
	5503	IF ( kk == 1 ) THEN
	5504	IF ( .NOT. ALLOCATED( t_surf_v_1(2)%t ) ) &
	5505	ALLOCATE( t_surf_v_1(2)%t(1:surf_usm_v(2)%ns) )
	5506	READ ( 13 ) tmp_surf_v(2)%t
	5507	ENDIF
	5508	CALL surface_restore_elements( &
	5509	t_surf_v_1(2)%t, tmp_surf_v(2)%t,&
	5510	surf_usm_v(2)%start_index, &
	5511	start_index_on_file, &
	5512	end_index_on_file, &
	5513	nxlc, nysc, &
	5514	nxlf, nxrf, nysf, nynf, &
	5515	nys_on_file, nyn_on_file, &
	5516	nxl_on_file,nxr_on_file )
	5517	#endif
	5518
	5519	CASE ( 't_surf_v(3)' )
	5520	#if defined( __nopointer )
	5521	IF ( kk == 1 ) THEN
	5522	IF ( .NOT. ALLOCATED( t_surf_v(3)%t ) ) &
	5523	ALLOCATE( t_surf_v(3)%t(1:surf_usm_v(3)%ns) )
	5524	READ ( 13 ) tmp_surf_v(3)%t
	5525	ENDIF
	5526	CALL surface_restore_elements( &
	5527	t_surf_v(3)%t, tmp_surf_v(3)%t, &
	5528	surf_usm_v(3)%start_index, &
	5529	start_index_on_file, &
	5530	end_index_on_file, &
	5531	nxlc, nysc, &
	5532	nxlf, nxrf, nysf, nynf, &
	5533	nys_on_file, nyn_on_file, &
	5534	nxl_on_file,nxr_on_file )
	5535	#else
	5536	IF ( kk == 1 ) THEN
	5537	IF ( .NOT. ALLOCATED( t_surf_v_1(3)%t ) ) &
	5538	ALLOCATE( t_surf_v_1(3)%t(1:surf_usm_v(3)%ns) )
	5539	READ ( 13 ) tmp_surf_v(3)%t
	5540	ENDIF
	5541	CALL surface_restore_elements( &
	5542	t_surf_v_1(3)%t, tmp_surf_v(3)%t,&
	5543	surf_usm_v(3)%start_index, &
	5544	start_index_on_file, &
	5545	end_index_on_file, &
	5546	nxlc, nysc, &
	5547	nxlf, nxrf, nysf, nynf, &
	5548	nys_on_file, nyn_on_file, &
	5549	nxl_on_file,nxr_on_file )
	5550	#endif
	5551	CASE ( 't_surf_green_h' )
	5552	#if defined( __nopointer )
	5553	IF ( kk == 1 ) THEN
	5554	IF ( .NOT. ALLOCATED( t_surf_green_h ) ) &
	5555	ALLOCATE( t_surf_green_h(1:surf_usm_h%ns) )
	5556	READ ( 13 ) tmp_surf_green_h
	5557	ENDIF
	5558	CALL surface_restore_elements( &
	5559	t_surf_green_h, tmp_surf_green_h, &
	5560	surf_usm_h%start_index, &
	5561	start_index_on_file, &
	5562	end_index_on_file, &
	5563	nxlc, nysc, &
	5564	nxlf, nxrf, nysf, nynf, &
	5565	nys_on_file, nyn_on_file, &
	5566	nxl_on_file,nxr_on_file )
	5567	#else
	5568	IF ( kk == 1 ) THEN
	5569	IF ( .NOT. ALLOCATED( t_surf_green_h_1 ) ) &
	5570	ALLOCATE( t_surf_green_h_1(1:surf_usm_h%ns) )
	5571	READ ( 13 ) tmp_surf_green_h
	5572	ENDIF
	5573	CALL surface_restore_elements( &
	5574	t_surf_green_h_1, tmp_surf_green_h, &
	5575	surf_usm_h%start_index, &
	5576	start_index_on_file, &
	5577	end_index_on_file, &
	5578	nxlc, nysc, &
	5579	nxlf, nxrf, nysf, nynf, &
	5580	nys_on_file, nyn_on_file, &
	5581	nxl_on_file,nxr_on_file )
	5582	#endif
	5583
	5584	CASE ( 't_surf_green_v(0)' )
	5585	#if defined( __nopointer )
	5586	IF ( kk == 1 ) THEN
	5587	IF ( .NOT. ALLOCATED( t_surf_green_v(0)%t ) ) &
	5588	ALLOCATE( t_surf_green_v(0)%t(1:surf_usm_v(0)%ns) )
	5589	READ ( 13 ) tmp_surf_green_v(0)%t
	5590	ENDIF
	5591	CALL surface_restore_elements( &
	5592	t_surf_green_v(0)%t, tmp_surf_green_v(0)%t, &
	5593	surf_usm_v(0)%start_index, &
	5594	start_index_on_file, &
	5595	end_index_on_file, &
	5596	nxlc, nysc, &
	5597	nxlf, nxrf, nysf, nynf, &
	5598	nys_on_file, nyn_on_file, &
	5599	nxl_on_file,nxr_on_file )
	5600	#else
	5601	IF ( kk == 1 ) THEN
	5602	IF ( .NOT. ALLOCATED( t_surf_green_v_1(0)%t ) ) &
	5603	ALLOCATE( t_surf_green_v_1(0)%t(1:surf_usm_v(0)%ns) )
	5604	READ ( 13 ) tmp_surf_green_v(0)%t
	5605	ENDIF
	5606	CALL surface_restore_elements( &
	5607	t_surf_green_v_1(0)%t, tmp_surf_green_v(0)%t,&
	5608	surf_usm_v(0)%start_index, &
	5609	start_index_on_file, &
	5610	end_index_on_file, &
	5611	nxlc, nysc, &
	5612	nxlf, nxrf, nysf, nynf, &
	5613	nys_on_file, nyn_on_file, &
	5614	nxl_on_file,nxr_on_file )
	5615	#endif
	5616
	5617	CASE ( 't_surf_green_v(1)' )
	5618	#if defined( __nopointer )
	5619	IF ( kk == 1 ) THEN
	5620	IF ( .NOT. ALLOCATED( t_surf_green_v(1)%t ) ) &
	5621	ALLOCATE( t_surf_green_v(1)%t(1:surf_usm_v(1)%ns) )
	5622	READ ( 13 ) tmp_surf_green_v(1)%t
	5623	ENDIF
	5624	CALL surface_restore_elements( &
	5625	t_surf_green_v(1)%t, tmp_surf_green_v(1)%t, &
	5626	surf_usm_v(1)%start_index, &
	5627	start_index_on_file, &
	5628	end_index_on_file, &
	5629	nxlc, nysc, &
	5630	nxlf, nxrf, nysf, nynf, &
	5631	nys_on_file, nyn_on_file, &
	5632	nxl_on_file,nxr_on_file )
	5633	#else
	5634	IF ( kk == 1 ) THEN
	5635	IF ( .NOT. ALLOCATED( t_surf_green_v_1(1)%t ) ) &
	5636	ALLOCATE( t_surf_green_v_1(1)%t(1:surf_usm_v(1)%ns) )
	5637	READ ( 13 ) tmp_surf_green_v(1)%t
	5638	ENDIF
	5639	CALL surface_restore_elements( &
	5640	t_surf_green_v_1(1)%t, tmp_surf_green_v(1)%t,&
	5641	surf_usm_v(1)%start_index, &
	5642	start_index_on_file, &
	5643	end_index_on_file, &
	5644	nxlc, nysc, &
	5645	nxlf, nxrf, nysf, nynf, &
	5646	nys_on_file, nyn_on_file, &
	5647	nxl_on_file,nxr_on_file )
	5648	#endif
	5649
	5650	CASE ( 't_surf_green_v(2)' )
	5651	#if defined( __nopointer )
	5652	IF ( kk == 1 ) THEN
	5653	IF ( .NOT. ALLOCATED( t_surf_green_v(2)%t ) ) &
	5654	ALLOCATE( t_surf_green_v(2)%t(1:surf_usm_v(2)%ns) )
	5655	READ ( 13 ) tmp_surf_green_v(2)%t
	5656	ENDIF
	5657	CALL surface_restore_elements( &
	5658	t_surf_green_v(2)%t, tmp_surf_green_v(2)%t, &
	5659	surf_usm_v(2)%start_index, &
	5660	start_index_on_file, &
	5661	end_index_on_file, &
	5662	nxlc, nysc, &
	5663	nxlf, nxrf, nysf, nynf, &
	5664	nys_on_file, nyn_on_file, &
	5665	nxl_on_file,nxr_on_file )
	5666	#else
	5667	IF ( kk == 1 ) THEN
	5668	IF ( .NOT. ALLOCATED( t_surf_green_v_1(2)%t ) ) &
	5669	ALLOCATE( t_surf_green_v_1(2)%t(1:surf_usm_v(2)%ns) )
	5670	READ ( 13 ) tmp_surf_green_v(2)%t
	5671	ENDIF
	5672	CALL surface_restore_elements( &
	5673	t_surf_green_v_1(2)%t, tmp_surf_green_v(2)%t,&
	5674	surf_usm_v(2)%start_index, &
	5675	start_index_on_file, &
	5676	end_index_on_file, &
	5677	nxlc, nysc, &
	5678	nxlf, nxrf, nysf, nynf, &
	5679	nys_on_file, nyn_on_file, &
	5680	nxl_on_file,nxr_on_file )
	5681	#endif
	5682
	5683	CASE ( 't_surf_green_v(3)' )
	5684	#if defined( __nopointer )
	5685	IF ( kk == 1 ) THEN
	5686	IF ( .NOT. ALLOCATED( t_surf_green_v(3)%t ) ) &
	5687	ALLOCATE( t_surf_green_v(3)%t(1:surf_usm_v(3)%ns) )
	5688	READ ( 13 ) tmp_surf_green_v(3)%t
	5689	ENDIF
	5690	CALL surface_restore_elements( &
	5691	t_surf_green_v(3)%t, tmp_surf_green_v(3)%t, &
	5692	surf_usm_v(3)%start_index, &
	5693	start_index_on_file, &
	5694	end_index_on_file, &
	5695	nxlc, nysc, &
	5696	nxlf, nxrf, nysf, nynf, &
	5697	nys_on_file, nyn_on_file, &
	5698	nxl_on_file,nxr_on_file )
	5699	#else
	5700	IF ( kk == 1 ) THEN
	5701	IF ( .NOT. ALLOCATED( t_surf_green_v_1(3)%t ) ) &
	5702	ALLOCATE( t_surf_green_v_1(3)%t(1:surf_usm_v(3)%ns) )
	5703	READ ( 13 ) tmp_surf_green_v(3)%t
	5704	ENDIF
	5705	CALL surface_restore_elements( &
	5706	t_surf_green_v_1(3)%t, tmp_surf_green_v(3)%t,&
	5707	surf_usm_v(3)%start_index, &
	5708	start_index_on_file, &
	5709	end_index_on_file, &
	5710	nxlc, nysc, &
	5711	nxlf, nxrf, nysf, nynf, &
	5712	nys_on_file, nyn_on_file, &
	5713	nxl_on_file,nxr_on_file )
	5714	#endif
	5715	CASE ( 't_surf_window_h' )
	5716	#if defined( __nopointer )
	5717	IF ( kk == 1 ) THEN
	5718	IF ( .NOT. ALLOCATED( t_surf_window_h ) ) &
	5719	ALLOCATE( t_surf_window_h(1:surf_usm_h%ns) )
	5720	READ ( 13 ) tmp_surf_window_h
	5721	ENDIF
	5722	CALL surface_restore_elements( &
	5723	t_surf_window_h, tmp_surf_window_h, &
	5724	surf_usm_h%start_index, &
	5725	start_index_on_file, &
	5726	end_index_on_file, &
	5727	nxlc, nysc, &
	5728	nxlf, nxrf, nysf, nynf, &
	5729	nys_on_file, nyn_on_file, &
	5730	nxl_on_file,nxr_on_file )
	5731	#else
	5732	IF ( kk == 1 ) THEN
	5733	IF ( .NOT. ALLOCATED( t_surf_window_h_1 ) ) &
	5734	ALLOCATE( t_surf_window_h_1(1:surf_usm_h%ns) )
	5735	READ ( 13 ) tmp_surf_window_h
	5736	ENDIF
	5737	CALL surface_restore_elements( &
	5738	t_surf_window_h_1, tmp_surf_window_h, &
	5739	surf_usm_h%start_index, &
	5740	start_index_on_file, &
	5741	end_index_on_file, &
	5742	nxlc, nysc, &
	5743	nxlf, nxrf, nysf, nynf, &
	5744	nys_on_file, nyn_on_file, &
	5745	nxl_on_file,nxr_on_file )
	5746	#endif
	5747
	5748	CASE ( 't_surf_window_v(0)' )
	5749	#if defined( __nopointer )
	5750	IF ( kk == 1 ) THEN
	5751	IF ( .NOT. ALLOCATED( t_surf_window_v(0)%t ) ) &
	5752	ALLOCATE( t_surf_window_v(0)%t(1:surf_usm_v(0)%ns) )
	5753	READ ( 13 ) tmp_surf_window_v(0)%t
	5754	ENDIF
	5755	CALL surface_restore_elements( &
	5756	t_surf_window_v(0)%t, tmp_surf_window_v(0)%t, &
	5757	surf_usm_v(0)%start_index, &
	5758	start_index_on_file, &
	5759	end_index_on_file, &
	5760	nxlc, nysc, &
	5761	nxlf, nxrf, nysf, nynf, &
	5762	nys_on_file, nyn_on_file, &
	5763	nxl_on_file,nxr_on_file )
	5764	#else
	5765	IF ( kk == 1 ) THEN
	5766	IF ( .NOT. ALLOCATED( t_surf_window_v_1(0)%t ) ) &
	5767	ALLOCATE( t_surf_window_v_1(0)%t(1:surf_usm_v(0)%ns) )
	5768	READ ( 13 ) tmp_surf_window_v(0)%t
	5769	ENDIF
	5770	CALL surface_restore_elements( &
	5771	t_surf_window_v_1(0)%t, tmp_surf_window_v(0)%t,&
	5772	surf_usm_v(0)%start_index, &
	5773	start_index_on_file, &
	5774	end_index_on_file, &
	5775	nxlc, nysc, &
	5776	nxlf, nxrf, nysf, nynf, &
	5777	nys_on_file, nyn_on_file, &
	5778	nxl_on_file,nxr_on_file )
	5779	#endif
	5780
	5781	CASE ( 't_surf_window_v(1)' )
	5782	#if defined( __nopointer )
	5783	IF ( kk == 1 ) THEN
	5784	IF ( .NOT. ALLOCATED( t_surf_window_v(1)%t ) ) &
	5785	ALLOCATE( t_surf_window_v(1)%t(1:surf_usm_v(1)%ns) )
	5786	READ ( 13 ) tmp_surf_window_v(1)%t
	5787	ENDIF
	5788	CALL surface_restore_elements( &
	5789	t_surf_window_v(1)%t, tmp_surf_window_v(1)%t, &
	5790	surf_usm_v(1)%start_index, &
	5791	start_index_on_file, &
	5792	end_index_on_file, &
	5793	nxlc, nysc, &
	5794	nxlf, nxrf, nysf, nynf, &
	5795	nys_on_file, nyn_on_file, &
	5796	nxl_on_file,nxr_on_file )
	5797	#else
	5798	IF ( kk == 1 ) THEN
	5799	IF ( .NOT. ALLOCATED( t_surf_window_v_1(1)%t ) ) &
	5800	ALLOCATE( t_surf_window_v_1(1)%t(1:surf_usm_v(1)%ns) )
	5801	READ ( 13 ) tmp_surf_window_v(1)%t
	5802	ENDIF
	5803	CALL surface_restore_elements( &
	5804	t_surf_window_v_1(1)%t, tmp_surf_window_v(1)%t,&
	5805	surf_usm_v(1)%start_index, &
	5806	start_index_on_file, &
	5807	end_index_on_file, &
	5808	nxlc, nysc, &
	5809	nxlf, nxrf, nysf, nynf, &
	5810	nys_on_file, nyn_on_file, &
	5811	nxl_on_file,nxr_on_file )
	5812	#endif
	5813
	5814	CASE ( 't_surf_window_v(2)' )
	5815	#if defined( __nopointer )
	5816	IF ( kk == 1 ) THEN
	5817	IF ( .NOT. ALLOCATED( t_surf_window_v(2)%t ) ) &
	5818	ALLOCATE( t_surf_window_v(2)%t(1:surf_usm_v(2)%ns) )
	5819	READ ( 13 ) tmp_surf_window_v(2)%t
	5820	ENDIF
	5821	CALL surface_restore_elements( &
	5822	t_surf_window_v(2)%t, tmp_surf_window_v(2)%t, &
	5823	surf_usm_v(2)%start_index, &
	5824	start_index_on_file, &
	5825	end_index_on_file, &
	5826	nxlc, nysc, &
	5827	nxlf, nxrf, nysf, nynf, &
	5828	nys_on_file, nyn_on_file, &
	5829	nxl_on_file,nxr_on_file )
	5830	#else
	5831	IF ( kk == 1 ) THEN
	5832	IF ( .NOT. ALLOCATED( t_surf_window_v_1(2)%t ) ) &
	5833	ALLOCATE( t_surf_window_v_1(2)%t(1:surf_usm_v(2)%ns) )
	5834	READ ( 13 ) tmp_surf_window_v(2)%t
	5835	ENDIF
	5836	CALL surface_restore_elements( &
	5837	t_surf_window_v_1(2)%t, tmp_surf_window_v(2)%t,&
	5838	surf_usm_v(2)%start_index, &
	5839	start_index_on_file, &
	5840	end_index_on_file, &
	5841	nxlc, nysc, &
	5842	nxlf, nxrf, nysf, nynf, &
	5843	nys_on_file, nyn_on_file, &
	5844	nxl_on_file,nxr_on_file )
	5845	#endif
	5846
	5847	CASE ( 't_surf_window_v(3)' )
	5848	#if defined( __nopointer )
	5849	IF ( kk == 1 ) THEN
	5850	IF ( .NOT. ALLOCATED( t_surf_window_v(3)%t ) ) &
	5851	ALLOCATE( t_surf_window_v(3)%t(1:surf_usm_v(3)%ns) )
	5852	READ ( 13 ) tmp_surf_window_v(3)%t
	5853	ENDIF
	5854	CALL surface_restore_elements( &
	5855	t_surf_window_v(3)%t, tmp_surf_window_v(3)%t, &
	5856	surf_usm_v(3)%start_index, &
	5857	start_index_on_file, &
	5858	end_index_on_file, &
	5859	nxlc, nysc, &
	5860	nxlf, nxrf, nysf, nynf, &
	5861	nys_on_file, nyn_on_file, &
	5862	nxl_on_file,nxr_on_file )
	5863	#else
	5864	IF ( kk == 1 ) THEN
	5865	IF ( .NOT. ALLOCATED( t_surf_window_v_1(3)%t ) ) &
	5866	ALLOCATE( t_surf_window_v_1(3)%t(1:surf_usm_v(3)%ns) )
	5867	READ ( 13 ) tmp_surf_window_v(3)%t
	5868	ENDIF
	5869	CALL surface_restore_elements( &
	5870	t_surf_window_v_1(3)%t, tmp_surf_window_v(3)%t,&
	5871	surf_usm_v(3)%start_index, &
	5872	start_index_on_file, &
	5873	end_index_on_file, &
	5874	nxlc, nysc, &
	5875	nxlf, nxrf, nysf, nynf, &
	5876	nys_on_file, nyn_on_file, &
	5877	nxl_on_file,nxr_on_file )
	5878	#endif
	5879	CASE ( 't_wall_h' )
	5880	#if defined( __nopointer )
	5881	IF ( kk == 1 ) THEN
	5882	IF ( .NOT. ALLOCATED( t_wall_h ) ) &
	5883	ALLOCATE( t_wall_h(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	5884	READ ( 13 ) tmp_wall_h
	5885	ENDIF
	5886	CALL surface_restore_elements( &
	5887	t_wall_h, tmp_wall_h, &
	5888	surf_usm_h%start_index, &
	5889	start_index_on_file, &
	5890	end_index_on_file, &
	5891	nxlc, nysc, &
	5892	nxlf, nxrf, nysf, nynf, &
	5893	nys_on_file, nyn_on_file, &
	5894	nxl_on_file,nxr_on_file )
	5895	#else
	5896	IF ( kk == 1 ) THEN
	5897	IF ( .NOT. ALLOCATED( t_wall_h_1 ) ) &
	5898	ALLOCATE( t_wall_h_1(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	5899	READ ( 13 ) tmp_wall_h
	5900	ENDIF
	5901	CALL surface_restore_elements( &
	5902	t_wall_h_1, tmp_wall_h, &
	5903	surf_usm_h%start_index, &
	5904	start_index_on_file, &
	5905	end_index_on_file, &
	5906	nxlc, nysc, &
	5907	nxlf, nxrf, nysf, nynf, &
	5908	nys_on_file, nyn_on_file, &
	5909	nxl_on_file,nxr_on_file )
	5910	#endif
	5911	CASE ( 't_wall_v(0)' )
	5912	#if defined( __nopointer )
	5913	IF ( kk == 1 ) THEN
	5914	IF ( .NOT. ALLOCATED( t_wall_v(0)%t ) ) &
	5915	ALLOCATE( t_wall_v(0)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(0)%ns) )
	5916	READ ( 13 ) tmp_wall_v(0)%t
	5917	ENDIF
	5918	CALL surface_restore_elements( &
	5919	t_wall_v(0)%t, tmp_wall_v(0)%t, &
	5920	surf_usm_v(0)%start_index, &
	5921	start_index_on_file, &
	5922	end_index_on_file, &
	5923	nxlc, nysc, &
	5924	nxlf, nxrf, nysf, nynf, &
	5925	nys_on_file, nyn_on_file, &
	5926	nxl_on_file,nxr_on_file )
	5927	#else
	5928	IF ( kk == 1 ) THEN
	5929	IF ( .NOT. ALLOCATED( t_wall_v_1(0)%t ) ) &
	5930	ALLOCATE( t_wall_v_1(0)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(0)%ns) )
	5931	READ ( 13 ) tmp_wall_v(0)%t
	5932	ENDIF
	5933	CALL surface_restore_elements( &
	5934	t_wall_v_1(0)%t, tmp_wall_v(0)%t,&
	5935	surf_usm_v(0)%start_index, &
	5936	start_index_on_file, &
	5937	end_index_on_file, &
	5938	nxlc, nysc, &
	5939	nxlf, nxrf, nysf, nynf, &
	5940	nys_on_file, nyn_on_file, &
	5941	nxl_on_file,nxr_on_file )
	5942	#endif
	5943	CASE ( 't_wall_v(1)' )
	5944	#if defined( __nopointer )
	5945	IF ( kk == 1 ) THEN
	5946	IF ( .NOT. ALLOCATED( t_wall_v(1)%t ) ) &
	5947	ALLOCATE( t_wall_v(1)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(1)%ns) )
	5948	READ ( 13 ) tmp_wall_v(1)%t
	5949	ENDIF
	5950	CALL surface_restore_elements( &
	5951	t_wall_v(1)%t, tmp_wall_v(1)%t, &
	5952	surf_usm_v(1)%start_index, &
	5953	start_index_on_file, &
	5954	end_index_on_file , &
	5955	nxlc, nysc, , &
	5956	nys_on_file, nyn_on_file, &
	5957	nxl_on_file,nxr_on_file )
	5958	#else
	5959	IF ( kk == 1 ) THEN
	5960	IF ( .NOT. ALLOCATED( t_wall_v_1(1)%t ) ) &
	5961	ALLOCATE( t_wall_v_1(1)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(1)%ns) )
	5962	READ ( 13 ) tmp_wall_v(1)%t
	5963	ENDIF
	5964	CALL surface_restore_elements( &
	5965	t_wall_v_1(1)%t, tmp_wall_v(1)%t,&
	5966	surf_usm_v(1)%start_index, &
	5967	start_index_on_file, &
	5968	end_index_on_file, &
	5969	nxlc, nysc, &
	5970	nxlf, nxrf, nysf, nynf, &
	5971	nys_on_file, nyn_on_file, &
	5972	nxl_on_file,nxr_on_file )
	5973	#endif
	5974	CASE ( 't_wall_v(2)' )
	5975	#if defined( __nopointer )
	5976	IF ( kk == 1 ) THEN
	5977	IF ( .NOT. ALLOCATED( t_wall_v(2)%t ) ) &
	5978	ALLOCATE( t_wall_v(2)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(2)%ns) )
	5979	READ ( 13 ) tmp_wall_v(2)%t
	5980	ENDIF
	5981	CALL surface_restore_elements( &
	5982	t_wall_v(2)%t, tmp_wall_v(2)%t, &
	5983	surf_usm_v(2)%start_index, &
	5984	start_index_on_file, &
	5985	end_index_on_file, &
	5986	nxlc, nysc, &
	5987	nxlf, nxrf, nysf, nynf, &
	5988	nys_on_file, nyn_on_file, &
	5989	nxl_on_file,nxr_on_file )
	5990	#else
	5991	IF ( kk == 1 ) THEN
	5992	IF ( .NOT. ALLOCATED( t_wall_v_1(2)%t ) ) &
	5993	ALLOCATE( t_wall_v_1(2)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(2)%ns) )
	5994	READ ( 13 ) tmp_wall_v(2)%t
	5995	ENDIF
	5996	CALL surface_restore_elements( &
	5997	t_wall_v_1(2)%t, tmp_wall_v(2)%t,&
	5998	surf_usm_v(2)%start_index, &
	5999	start_index_on_file, &
	6000	end_index_on_file , &
	6001	nxlc, nysc, &
	6002	nxlf, nxrf, nysf, nynf, &
	6003	nys_on_file, nyn_on_file, &
	6004	nxl_on_file,nxr_on_file )
	6005	#endif
	6006	CASE ( 't_wall_v(3)' )
	6007	#if defined( __nopointer )
	6008	IF ( kk == 1 ) THEN
	6009	IF ( .NOT. ALLOCATED( t_wall_v(3)%t ) ) &
	6010	ALLOCATE( t_wall_v(3)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(3)%ns) )
	6011	READ ( 13 ) tmp_wall_v(3)%t
	6012	ENDIF
	6013	CALL surface_restore_elements( &
	6014	t_wall_v(3)%t, tmp_wall_v(3)%t, &
	6015	surf_usm_v(3)%start_index, &
	6016	start_index_on_file, &
	6017	end_index_on_file, &
	6018	nxlc, nysc, &
	6019	nxlf, nxrf, nysf, nynf, &
	6020	nys_on_file, nyn_on_file, &
	6021	nxl_on_file,nxr_on_file )
	6022	#else
	6023	IF ( kk == 1 ) THEN
	6024	IF ( .NOT. ALLOCATED( t_wall_v_1(3)%t ) ) &
	6025	ALLOCATE( t_wall_v_1(3)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(3)%ns) )
	6026	READ ( 13 ) tmp_wall_v(3)%t
	6027	ENDIF
	6028	CALL surface_restore_elements( &
	6029	t_wall_v_1(3)%t, tmp_wall_v(3)%t,&
	6030	surf_usm_v(3)%start_index, &
	6031	start_index_on_file, &
	6032	end_index_on_file, &
	6033	nxlc, nysc, &
	6034	nxlf, nxrf, nysf, nynf, &
	6035	nys_on_file, nyn_on_file, &
	6036	nxl_on_file,nxr_on_file )
	6037	#endif
	6038	CASE ( 't_green_h' )
	6039	#if defined( __nopointer )
	6040	IF ( kk == 1 ) THEN
	6041	IF ( .NOT. ALLOCATED( t_green_h ) ) &
	6042	ALLOCATE( t_green_h(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	6043	READ ( 13 ) tmp_green_h
	6044	ENDIF
	6045	CALL surface_restore_elements( &
	6046	t_green_h, tmp_green_h, &
	6047	surf_usm_h%start_index, &
	6048	start_index_on_file, &
	6049	end_index_on_file, &
	6050	nxlc, nysc, &
	6051	nxlf, nxrf, nysf, nynf, &
	6052	nys_on_file, nyn_on_file, &
	6053	nxl_on_file,nxr_on_file )
	6054	#else
	6055	IF ( kk == 1 ) THEN
	6056	IF ( .NOT. ALLOCATED( t_green_h_1 ) ) &
	6057	ALLOCATE( t_green_h_1(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	6058	READ ( 13 ) tmp_green_h
	6059	ENDIF
	6060	CALL surface_restore_elements( &
	6061	t_green_h_1, tmp_green_h, &
	6062	surf_usm_h%start_index, &
	6063	start_index_on_file, &
	6064	end_index_on_file, &
	6065	nxlc, nysc, &
	6066	nxlf, nxrf, nysf, nynf, &
	6067	nys_on_file, nyn_on_file, &
	6068	nxl_on_file,nxr_on_file )
	6069	#endif
	6070	CASE ( 't_green_v(0)' )
	6071	#if defined( __nopointer )
	6072	IF ( kk == 1 ) THEN
	6073	IF ( .NOT. ALLOCATED( t_green_v(0)%t ) ) &
	6074	ALLOCATE( t_green_v(0)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(0)%ns) )
	6075	READ ( 13 ) tmp_green_v(0)%t
	6076	ENDIF
	6077	CALL surface_restore_elements( &
	6078	t_green_v(0)%t, tmp_green_v(0)%t, &
	6079	surf_usm_v(0)%start_index, &
	6080	start_index_on_file, &
	6081	end_index_on_file, &
	6082	nxlc, nysc, &
	6083	nxlf, nxrf, nysf, nynf, &
	6084	nys_on_file, nyn_on_file, &
	6085	nxl_on_file,nxr_on_file )
	6086	#else
	6087	IF ( kk == 1 ) THEN
	6088	IF ( .NOT. ALLOCATED( t_green_v_1(0)%t ) ) &
	6089	ALLOCATE( t_green_v_1(0)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(0)%ns) )
	6090	READ ( 13 ) tmp_green_v(0)%t
	6091	ENDIF
	6092	CALL surface_restore_elements( &
	6093	t_green_v_1(0)%t, tmp_green_v(0)%t,&
	6094	surf_usm_v(0)%start_index, &
	6095	start_index_on_file, &
	6096	end_index_on_file, &
	6097	nxlc, nysc, &
	6098	nxlf, nxrf, nysf, nynf, &
	6099	nys_on_file, nyn_on_file, &
	6100	nxl_on_file,nxr_on_file )
	6101	#endif
	6102	CASE ( 't_green_v(1)' )
	6103	#if defined( __nopointer )
	6104	IF ( kk == 1 ) THEN
	6105	IF ( .NOT. ALLOCATED( t_green_v(1)%t ) ) &
	6106	ALLOCATE( t_green_v(1)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(1)%ns) )
	6107	READ ( 13 ) tmp_green_v(1)%t
	6108	ENDIF
	6109	CALL surface_restore_elements( &
	6110	t_green_v(1)%t, tmp_green_v(1)%t, &
	6111	surf_usm_v(1)%start_index, &
	6112	start_index_on_file, &
	6113	end_index_on_file , &
	6114	nxlc, nysc, , &
	6115	nys_on_file, nyn_on_file, &
	6116	nxl_on_file,nxr_on_file )
	6117	#else
	6118	IF ( kk == 1 ) THEN
	6119	IF ( .NOT. ALLOCATED( t_green_v_1(1)%t ) ) &
	6120	ALLOCATE( t_green_v_1(1)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(1)%ns) )
	6121	READ ( 13 ) tmp_green_v(1)%t
	6122	ENDIF
	6123	CALL surface_restore_elements( &
	6124	t_green_v_1(1)%t, tmp_green_v(1)%t,&
	6125	surf_usm_v(1)%start_index, &
	6126	start_index_on_file, &
	6127	end_index_on_file, &
	6128	nxlc, nysc, &
	6129	nxlf, nxrf, nysf, nynf, &
	6130	nys_on_file, nyn_on_file, &
	6131	nxl_on_file,nxr_on_file )
	6132	#endif
	6133	CASE ( 't_green_v(2)' )
	6134	#if defined( __nopointer )
	6135	IF ( kk == 1 ) THEN
	6136	IF ( .NOT. ALLOCATED( t_green_v(2)%t ) ) &
	6137	ALLOCATE( t_green_v(2)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(2)%ns) )
	6138	READ ( 13 ) tmp_green_v(2)%t
	6139	ENDIF
	6140	CALL surface_restore_elements( &
	6141	t_green_v(2)%t, tmp_green_v(2)%t, &
	6142	surf_usm_v(2)%start_index, &
	6143	start_index_on_file, &
	6144	end_index_on_file, &
	6145	nxlc, nysc, &
	6146	nxlf, nxrf, nysf, nynf, &
	6147	nys_on_file, nyn_on_file, &
	6148	nxl_on_file,nxr_on_file )
	6149	#else
	6150	IF ( kk == 1 ) THEN
	6151	IF ( .NOT. ALLOCATED( t_green_v_1(2)%t ) ) &
	6152	ALLOCATE( t_green_v_1(2)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(2)%ns) )
	6153	READ ( 13 ) tmp_green_v(2)%t
	6154	ENDIF
	6155	CALL surface_restore_elements( &
	6156	t_green_v_1(2)%t, tmp_green_v(2)%t,&
	6157	surf_usm_v(2)%start_index, &
	6158	start_index_on_file, &
	6159	end_index_on_file , &
	6160	nxlc, nysc, &
	6161	nxlf, nxrf, nysf, nynf, &
	6162	nys_on_file, nyn_on_file, &
	6163	nxl_on_file,nxr_on_file )
	6164	#endif
	6165	CASE ( 't_green_v(3)' )
	6166	#if defined( __nopointer )
	6167	IF ( kk == 1 ) THEN
	6168	IF ( .NOT. ALLOCATED( t_green_v(3)%t ) ) &
	6169	ALLOCATE( t_green_v(3)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(3)%ns) )
	6170	READ ( 13 ) tmp_green_v(3)%t
	6171	ENDIF
	6172	CALL surface_restore_elements( &
	6173	t_green_v(3)%t, tmp_green_v(3)%t, &
	6174	surf_usm_v(3)%start_index, &
	6175	start_index_on_file, &
	6176	end_index_on_file, &
	6177	nxlc, nysc, &
	6178	nxlf, nxrf, nysf, nynf, &
	6179	nys_on_file, nyn_on_file, &
	6180	nxl_on_file,nxr_on_file )
	6181	#else
	6182	IF ( kk == 1 ) THEN
	6183	IF ( .NOT. ALLOCATED( t_green_v_1(3)%t ) ) &
	6184	ALLOCATE( t_green_v_1(3)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(3)%ns) )
	6185	READ ( 13 ) tmp_green_v(3)%t
	6186	ENDIF
	6187	CALL surface_restore_elements( &
	6188	t_green_v_1(3)%t, tmp_green_v(3)%t,&
	6189	surf_usm_v(3)%start_index, &
	6190	start_index_on_file, &
	6191	end_index_on_file, &
	6192	nxlc, nysc, &
	6193	nxlf, nxrf, nysf, nynf, &
	6194	nys_on_file, nyn_on_file, &
	6195	nxl_on_file,nxr_on_file )
	6196	#endif
	6197	CASE ( 't_window_h' )
	6198	#if defined( __nopointer )
	6199	IF ( kk == 1 ) THEN
	6200	IF ( .NOT. ALLOCATED( t_window_h ) ) &
	6201	ALLOCATE( t_window_h(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	6202	READ ( 13 ) tmp_window_h
	6203	ENDIF
	6204	CALL surface_restore_elements( &
	6205	t_window_h, tmp_window_h, &
	6206	surf_usm_h%start_index, &
	6207	start_index_on_file, &
	6208	end_index_on_file, &
	6209	nxlc, nysc, &
	6210	nxlf, nxrf, nysf, nynf, &
	6211	nys_on_file, nyn_on_file, &
	6212	nxl_on_file,nxr_on_file )
	6213	#else
	6214	IF ( kk == 1 ) THEN
	6215	IF ( .NOT. ALLOCATED( t_window_h_1 ) ) &
	6216	ALLOCATE( t_window_h_1(nzb_wall:nzt_wall+1,1:surf_usm_h%ns) )
	6217	READ ( 13 ) tmp_window_h
	6218	ENDIF
	6219	CALL surface_restore_elements( &
	6220	t_window_h_1, tmp_window_h, &
	6221	surf_usm_h%start_index, &
	6222	start_index_on_file, &
	6223	end_index_on_file, &
	6224	nxlc, nysc, &
	6225	nxlf, nxrf, nysf, nynf, &
	6226	nys_on_file, nyn_on_file, &
	6227	nxl_on_file,nxr_on_file )
	6228	#endif
	6229	CASE ( 't_window_v(0)' )
	6230	#if defined( __nopointer )
	6231	IF ( kk == 1 ) THEN
	6232	IF ( .NOT. ALLOCATED( t_window_v(0)%t ) ) &
	6233	ALLOCATE( t_window_v(0)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(0)%ns) )
	6234	READ ( 13 ) tmp_window_v(0)%t
	6235	ENDIF
	6236	CALL surface_restore_elements( &
	6237	t_window_v(0)%t, tmp_window_v(0)%t, &
	6238	surf_usm_v(0)%start_index, &
	6239	start_index_on_file, &
	6240	end_index_on_file, &
	6241	nxlc, nysc, &
	6242	nxlf, nxrf, nysf, nynf, &
	6243	nys_on_file, nyn_on_file, &
	6244	nxl_on_file,nxr_on_file )
	6245	#else
	6246	IF ( kk == 1 ) THEN
	6247	IF ( .NOT. ALLOCATED( t_window_v_1(0)%t ) ) &
	6248	ALLOCATE( t_window_v_1(0)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(0)%ns) )
	6249	READ ( 13 ) tmp_window_v(0)%t
	6250	ENDIF
	6251	CALL surface_restore_elements( &
	6252	t_window_v_1(0)%t, tmp_window_v(0)%t,&
	6253	surf_usm_v(0)%start_index, &
	6254	start_index_on_file, &
	6255	end_index_on_file, &
	6256	nxlc, nysc, &
	6257	nxlf, nxrf, nysf, nynf, &
	6258	nys_on_file, nyn_on_file, &
	6259	nxl_on_file,nxr_on_file )
	6260	#endif
	6261	CASE ( 't_window_v(1)' )
	6262	#if defined( __nopointer )
	6263	IF ( kk == 1 ) THEN
	6264	IF ( .NOT. ALLOCATED( t_window_v(1)%t ) ) &
	6265	ALLOCATE( t_window_v(1)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(1)%ns) )
	6266	READ ( 13 ) tmp_window_v(1)%t
	6267	ENDIF
	6268	CALL surface_restore_elements( &
	6269	t_window_v(1)%t, tmp_window_v(1)%t, &
	6270	surf_usm_v(1)%start_index, &
	6271	start_index_on_file, &
	6272	end_index_on_file , &
	6273	nxlc, nysc, , &
	6274	nys_on_file, nyn_on_file, &
	6275	nxl_on_file,nxr_on_file )
	6276	#else
	6277	IF ( kk == 1 ) THEN
	6278	IF ( .NOT. ALLOCATED( t_window_v_1(1)%t ) ) &
	6279	ALLOCATE( t_window_v_1(1)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(1)%ns) )
	6280	READ ( 13 ) tmp_window_v(1)%t
	6281	ENDIF
	6282	CALL surface_restore_elements( &
	6283	t_window_v_1(1)%t, tmp_window_v(1)%t,&
	6284	surf_usm_v(1)%start_index, &
	6285	start_index_on_file, &
	6286	end_index_on_file, &
	6287	nxlc, nysc, &
	6288	nxlf, nxrf, nysf, nynf, &
	6289	nys_on_file, nyn_on_file, &
	6290	nxl_on_file,nxr_on_file )
	6291	#endif
	6292	CASE ( 't_window_v(2)' )
	6293	#if defined( __nopointer )
	6294	IF ( kk == 1 ) THEN
	6295	IF ( .NOT. ALLOCATED( t_window_v(2)%t ) ) &
	6296	ALLOCATE( t_window_v(2)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(2)%ns) )
	6297	READ ( 13 ) tmp_window_v(2)%t
	6298	ENDIF
	6299	CALL surface_restore_elements( &
	6300	t_window_v(2)%t, tmp_window_v(2)%t, &
	6301	surf_usm_v(2)%start_index, &
	6302	start_index_on_file, &
	6303	end_index_on_file, &
	6304	nxlc, nysc, &
	6305	nxlf, nxrf, nysf, nynf, &
	6306	nys_on_file, nyn_on_file, &
	6307	nxl_on_file,nxr_on_file )
	6308	#else
	6309	IF ( kk == 1 ) THEN
	6310	IF ( .NOT. ALLOCATED( t_window_v_1(2)%t ) ) &
	6311	ALLOCATE( t_window_v_1(2)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(2)%ns) )
	6312	READ ( 13 ) tmp_window_v(2)%t
	6313	ENDIF
	6314	CALL surface_restore_elements( &
	6315	t_window_v_1(2)%t, tmp_window_v(2)%t,&
	6316	surf_usm_v(2)%start_index, &
	6317	start_index_on_file, &
	6318	end_index_on_file , &
	6319	nxlc, nysc, &
	6320	nxlf, nxrf, nysf, nynf, &
	6321	nys_on_file, nyn_on_file, &
	6322	nxl_on_file,nxr_on_file )
	6323	#endif
	6324	CASE ( 't_window_v(3)' )
	6325	#if defined( __nopointer )
	6326	IF ( kk == 1 ) THEN
	6327	IF ( .NOT. ALLOCATED( t_window_v(3)%t ) ) &
	6328	ALLOCATE( t_window_v(3)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(3)%ns) )
	6329	READ ( 13 ) tmp_window_v(3)%t
	6330	ENDIF
	6331	CALL surface_restore_elements( &
	6332	t_window_v(3)%t, tmp_window_v(3)%t, &
	6333	surf_usm_v(3)%start_index, &
	6334	start_index_on_file, &
	6335	end_index_on_file, &
	6336	nxlc, nysc, &
	6337	nxlf, nxrf, nysf, nynf, &
	6338	nys_on_file, nyn_on_file, &
	6339	nxl_on_file,nxr_on_file )
	6340	#else
	6341	IF ( kk == 1 ) THEN
	6342	IF ( .NOT. ALLOCATED( t_window_v_1(3)%t ) ) &
	6343	ALLOCATE( t_window_v_1(3)%t(nzb_wall:nzt_wall+1,1:surf_usm_v(3)%ns) )
	6344	READ ( 13 ) tmp_window_v(3)%t
	6345	ENDIF
	6346	CALL surface_restore_elements( &
	6347	t_window_v_1(3)%t, tmp_window_v(3)%t,&
	6348	surf_usm_v(3)%start_index, &
	6349	start_index_on_file, &
	6350	end_index_on_file, &
	6351	nxlc, nysc, &
	6352	nxlf, nxrf, nysf, nynf, &
	6353	nys_on_file, nyn_on_file, &
	6354	nxl_on_file,nxr_on_file )
	6355	#endif
	6356	CASE DEFAULT
	6357	WRITE ( message_string, * ) 'unknown variable named "', &
	6358	TRIM( field_chr ), '" found in', &
	6359	'&data from prior run on PE ', myid
	6360	CALL message( 'user_read_restart_data', 'UI0012', 1, 2, 0, 6, 0 )
	6361
	6362	END SELECT
	6363
	6364	ENDDO
	6365
	6366	READ ( 13 ) field_chr
	6367
	6368	ENDDO
	6369
	6370	ENDIF
	6371
	6372	END SUBROUTINE usm_read_restart_data
	6373
	6374
	6375
	6376	!------------------------------------------------------------------------------!
	6377	! Description:
	6378	! ------------
	6379	!
	6380	!> This subroutine reads walls, roofs and land categories and it parameters
	6381	!> from input files.
	6382	!------------------------------------------------------------------------------!
	6383	SUBROUTINE usm_read_urban_surface_types
	6384
	6385	USE netcdf_data_input_mod, &
	6386	ONLY: building_pars_f, building_type_f
	6387
	6388	IMPLICIT NONE
	6389
	6390	CHARACTER(12) :: wtn
	6391	INTEGER(iwp) :: wtc
	6392	REAL(wp), DIMENSION(n_surface_params) :: wtp
	6393
	6394	INTEGER(iwp), DIMENSION(0:17, nysg:nyng, nxlg:nxrg) :: usm_par
	6395	REAL(wp), DIMENSION(1:14, nysg:nyng, nxlg:nxrg) :: usm_val
	6396	INTEGER(iwp) :: k, l, d, iw, jw, kw, it, ip, ii, ij, m
	6397	INTEGER(iwp) :: i, j
	6398	INTEGER(iwp) :: nz, roof, dirwe, dirsn
	6399	INTEGER(iwp) :: category
	6400	INTEGER(iwp) :: weheight1, wecat1, snheight1, sncat1
	6401	INTEGER(iwp) :: weheight2, wecat2, snheight2, sncat2
	6402	INTEGER(iwp) :: weheight3, wecat3, snheight3, sncat3
	6403	REAL(wp) :: height, albedo, thick
	6404	REAL(wp) :: wealbedo1, wethick1, snalbedo1, snthick1
	6405	REAL(wp) :: wealbedo2, wethick2, snalbedo2, snthick2
	6406	REAL(wp) :: wealbedo3, wethick3, snalbedo3, snthick3
	6407
	6408	LOGICAL :: surfpar
	6409	LOGICAL :: urbsurf
	6410
	6411	!
	6412	!-- If building_pars or building_type are already read from static input
	6413	!-- file, skip reading ASCII file.
	6414	IF ( building_type_f%from_file .OR. building_pars_f%from_file ) &
	6415	RETURN
	6416
	6417	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	6418	!-- read categories of walls and their parameters
	6419	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	6420	DO ii = 0, io_blocks-1
	6421	IF ( ii == io_group ) THEN
	6422
	6423	!-- open urban surface file
	6424	OPEN( 151, file='SURFACE_PARAMETERS'//coupling_char, action='read', &
	6425	status='old', form='formatted', err=15 )
	6426	!-- first test and get n_surface_types
	6427	k = 0
	6428	l = 0
	6429	DO
	6430	l = l+1
	6431	READ( 151, *, err=11, end=12 ) wtc, wtp, wtn
	6432	k = k+1
	6433	CYCLE
	6434	11 CONTINUE
	6435	ENDDO
	6436	12 n_surface_types = k
	6437	ALLOCATE( surface_type_names(n_surface_types) )
	6438	ALLOCATE( surface_type_codes(n_surface_types) )
	6439	ALLOCATE( surface_params(n_surface_params, n_surface_types) )
	6440	!-- real reading
	6441	rewind( 151 )
	6442	k = 0
	6443	DO
	6444	READ( 151, *, err=13, end=14 ) wtc, wtp, wtn
	6445	k = k+1
	6446	surface_type_codes(k) = wtc
	6447	surface_params(:,k) = wtp
	6448	surface_type_names(k) = wtn
	6449	CYCLE
	6450	13 WRITE(6,'(i3,a,2i5)') myid, 'readparams2 error k=', k
	6451	FLUSH(6)
	6452	CONTINUE
	6453	ENDDO
	6454	14 CLOSE(151)
	6455	CYCLE
	6456	15 message_string = 'file SURFACE_PARAMETERS'//TRIM(coupling_char)//' does not exist'
	6457	CALL message( 'usm_read_urban_surface_types', 'PA0513', 1, 2, 0, 6, 0 )
	6458	ENDIF
	6459	ENDDO
	6460
	6461	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	6462	!-- read types of surfaces
	6463	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	6464	usm_par = 0
	6465	DO ii = 0, io_blocks-1
	6466	IF ( ii == io_group ) THEN
	6467
	6468	!
	6469	!-- open csv urban surface file
	6470	OPEN( 151, file='URBAN_SURFACE'//TRIM(coupling_char), action='read', &
	6471	status='old', form='formatted', err=23 )
	6472
	6473	l = 0
	6474	DO
	6475	l = l+1
	6476	!-- i, j, height, nz, roof, dirwe, dirsn, category, soilcat,
	6477	!-- weheight1, wecat1, snheight1, sncat1, weheight2, wecat2, snheight2, sncat2,
	6478	!-- weheight3, wecat3, snheight3, sncat3
	6479	READ( 151, *, err=21, end=25 ) i, j, height, nz, roof, dirwe, dirsn, &
	6480	category, albedo, thick, &
	6481	weheight1, wecat1, wealbedo1, wethick1, &
	6482	weheight2, wecat2, wealbedo2, wethick2, &
	6483	weheight3, wecat3, wealbedo3, wethick3, &
	6484	snheight1, sncat1, snalbedo1, snthick1, &
	6485	snheight2, sncat2, snalbedo2, snthick2, &
	6486	snheight3, sncat3, snalbedo3, snthick3
	6487
	6488	IF ( i >= nxlg .AND. i <= nxrg .AND. j >= nysg .AND. j <= nyng ) THEN
	6489	!-- write integer variables into array
	6490	usm_par(:,j,i) = (/1, nz, roof, dirwe, dirsn, category, &
	6491	weheight1, wecat1, weheight2, wecat2, weheight3, wecat3, &
	6492	snheight1, sncat1, snheight2, sncat2, snheight3, sncat3 /)
	6493	!-- write real values into array
	6494	usm_val(:,j,i) = (/ albedo, thick, &
	6495	wealbedo1, wethick1, wealbedo2, wethick2, &
	6496	wealbedo3, wethick3, snalbedo1, snthick1, &
	6497	snalbedo2, snthick2, snalbedo3, snthick3 /)
	6498	ENDIF
	6499	CYCLE
	6500	21 WRITE (message_string, "(A,I5)") 'errors in file URBAN_SURFACE'//TRIM(coupling_char)//' on line ', l
	6501	CALL message( 'usm_read_urban_surface_types', 'PA0512', 0, 1, 0, 6, 0 )
	6502	ENDDO
	6503
	6504	23 message_string = 'file URBAN_SURFACE'//TRIM(coupling_char)//' does not exist'
	6505	CALL message( 'usm_read_urban_surface_types', 'PA0514', 1, 2, 0, 6, 0 )
	6506
	6507	25 CLOSE( 90 )
	6508
	6509	ENDIF
	6510	#if defined( __parallel ) && ! defined ( __check )
	6511	CALL MPI_BARRIER( comm2d, ierr )
	6512	#endif
	6513	ENDDO
	6514
	6515	!
	6516	!-- check completeness and formal correctness of the data
	6517	DO i = nxlg, nxrg
	6518	DO j = nysg, nyng
	6519	IF ( usm_par(0,j,i) /= 0 .AND. ( & !< incomplete data,supply default values later
	6520	usm_par(1,j,i) < nzb .OR. &
	6521	usm_par(1,j,i) > nzt .OR. & !< incorrect height (nz < nzb .OR. nz > nzt)
	6522	usm_par(2,j,i) < 0 .OR. &
	6523	usm_par(2,j,i) > 1 .OR. & !< incorrect roof sign
	6524	usm_par(3,j,i) < nzb-nzt .OR. &
	6525	usm_par(3,j,i) > nzt-nzb .OR. & !< incorrect west-east wall direction sign
	6526	usm_par(4,j,i) < nzb-nzt .OR. &
	6527	usm_par(4,j,i) > nzt-nzb .OR. & !< incorrect south-north wall direction sign
	6528	usm_par(6,j,i) < nzb .OR. &
	6529	usm_par(6,j,i) > nzt .OR. & !< incorrect pedestrian level height for west-east wall
	6530	usm_par(8,j,i) > nzt .OR. &
	6531	usm_par(10,j,i) > nzt .OR. & !< incorrect wall or roof level height for west-east wall
	6532	usm_par(12,j,i) < nzb .OR. &
	6533	usm_par(12,j,i) > nzt .OR. & !< incorrect pedestrian level height for south-north wall
	6534	usm_par(14,j,i) > nzt .OR. &
	6535	usm_par(16,j,i) > nzt & !< incorrect wall or roof level height for south-north wall
	6536	) ) THEN
	6537	!-- incorrect input data
	6538	WRITE (message_string, "(A,2I5)") 'missing or incorrect data in file URBAN_SURFACE'// &
	6539	TRIM(coupling_char)//' for i,j=', i,j
	6540	CALL message( 'usm_read_urban_surface', 'PA0504', 1, 2, 0, 6, 0 )
	6541	ENDIF
	6542
	6543	ENDDO
	6544	ENDDO
	6545	!
	6546	!-- Assign the surface types to the respective data type.
	6547	!-- First, for horizontal upward-facing surfaces.
	6548	DO m = 1, surf_usm_h%ns
	6549	iw = surf_usm_h%i(m)
	6550	jw = surf_usm_h%j(m)
	6551	kw = surf_usm_h%k(m)
	6552
	6553	IF ( usm_par(5,jw,iw) == 0 ) THEN
	6554	#if ! defined( __nopointer )
	6555	IF ( zu(kw) >= roof_height_limit ) THEN
	6556	surf_usm_h%isroof_surf(m) = .TRUE.
	6557	surf_usm_h%surface_types(m) = roof_category !< default category for root surface
	6558	ELSE
	6559	surf_usm_h%isroof_surf(m) = .FALSE.
	6560	surf_usm_h%surface_types(m) = land_category !< default category for land surface
	6561	ENDIF
	6562	#endif
	6563	surf_usm_h%albedo(:,m) = -1.0_wp
	6564	surf_usm_h%thickness_wall(m) = -1.0_wp
	6565	surf_usm_h%thickness_green(m) = -1.0_wp
	6566	surf_usm_h%thickness_window(m) = -1.0_wp
	6567	ELSE
	6568	IF ( usm_par(2,jw,iw)==0 ) THEN
	6569	surf_usm_h%isroof_surf(m) = .FALSE.
	6570	surf_usm_h%thickness_wall(m) = -1.0_wp
	6571	surf_usm_h%thickness_window(m) = -1.0_wp
	6572	surf_usm_h%thickness_green(m) = -1.0_wp
	6573	ELSE
	6574	surf_usm_h%isroof_surf(m) = .TRUE.
	6575	surf_usm_h%thickness_wall(m) = usm_val(2,jw,iw)
	6576	surf_usm_h%thickness_window(m) = usm_val(2,jw,iw)
	6577	surf_usm_h%thickness_green(m) = usm_val(2,jw,iw)
	6578	ENDIF
	6579	surf_usm_h%surface_types(m) = usm_par(5,jw,iw)
	6580	surf_usm_h%albedo(:,m) = usm_val(1,jw,iw)
	6581	surf_usm_h%transmissivity(m) = 0.0_wp
	6582	ENDIF
	6583	!
	6584	!-- Find the type position
	6585	it = surf_usm_h%surface_types(m)
	6586	ip = -99999
	6587	DO k = 1, n_surface_types
	6588	IF ( surface_type_codes(k) == it ) THEN
	6589	ip = k
	6590	EXIT
	6591	ENDIF
	6592	ENDDO
	6593	IF ( ip == -99999 ) THEN
	6594	!-- wall category not found
	6595	WRITE (message_string, "(A,I5,A,3I5)") 'wall category ', it, &
	6596	' not found for i,j,k=', iw,jw,kw
	6597	CALL message( 'usm_read_urban_surface', 'PA0506', 1, 2, 0, 6, 0 )
	6598	ENDIF
	6599	!
	6600	!-- Albedo
	6601	IF ( surf_usm_h%albedo(0,m) < 0.0_wp ) THEN
	6602	surf_usm_h%albedo(:,m) = surface_params(ialbedo,ip)
	6603	ENDIF
	6604	!-- Transmissivity
	6605	IF ( surf_usm_h%transmissivity(m) < 0.0_wp ) THEN
	6606	surf_usm_h%transmissivity(m) = 0.0_wp
	6607	ENDIF
	6608	!
	6609	!-- emissivity of the wall
	6610	surf_usm_h%emissivity(:,m) = surface_params(iemiss,ip)
	6611	!
	6612	!-- heat conductivity Î»S between air and wall ( W mâ2 Kâ1 )
	6613	surf_usm_h%lambda_surf(m) = surface_params(ilambdas,ip)
	6614	surf_usm_h%lambda_surf_window(m) = surface_params(ilambdas,ip)
	6615	surf_usm_h%lambda_surf_green(m) = surface_params(ilambdas,ip)
	6616	!
	6617	!-- roughness relative to concrete
	6618	surf_usm_h%z0(m) = surface_params(irough,ip)
	6619	!
	6620	!-- Surface skin layer heat capacity (J mâ2 Kâ1 )
	6621	surf_usm_h%c_surface(m) = surface_params(icsurf,ip)
	6622	surf_usm_h%c_surface_window(m) = surface_params(icsurf,ip)
	6623	surf_usm_h%c_surface_green(m) = surface_params(icsurf,ip)
	6624	!
	6625	!-- wall material parameters:
	6626	!-- thickness of the wall (m)
	6627	!-- missing values are replaced by default value for category
	6628	IF ( surf_usm_h%thickness_wall(m) <= 0.001_wp ) THEN
	6629	surf_usm_h%thickness_wall(m) = surface_params(ithick,ip)
	6630	ENDIF
	6631	IF ( surf_usm_h%thickness_window(m) <= 0.001_wp ) THEN
	6632	surf_usm_h%thickness_window(m) = surface_params(ithick,ip)
	6633	ENDIF
	6634	IF ( surf_usm_h%thickness_green(m) <= 0.001_wp ) THEN
	6635	surf_usm_h%thickness_green(m) = surface_params(ithick,ip)
	6636	ENDIF
	6637	!
	6638	!-- volumetric heat capacity rho*C of the wall ( J mâ3 Kâ1 )
	6639	surf_usm_h%rho_c_wall(:,m) = surface_params(irhoC,ip)
	6640	surf_usm_h%rho_c_window(:,m) = surface_params(irhoC,ip)
	6641	surf_usm_h%rho_c_green(:,m) = surface_params(irhoC,ip)
	6642	!
	6643	!-- thermal conductivity Î»H of the wall (W mâ1 Kâ1 )
	6644	surf_usm_h%lambda_h(:,m) = surface_params(ilambdah,ip)
	6645	surf_usm_h%lambda_h_window(:,m) = surface_params(ilambdah,ip)
	6646	surf_usm_h%lambda_h_green(:,m) = surface_params(ilambdah,ip)
	6647
	6648	ENDDO
	6649	!
	6650	!-- For vertical surface elements ( 0 -- northward-facing, 1 -- southward-facing,
	6651	!-- 2 -- eastward-facing, 3 -- westward-facing )
	6652	DO l = 0, 3
	6653	DO m = 1, surf_usm_v(l)%ns
	6654	i = surf_usm_v(l)%i(m)
	6655	j = surf_usm_v(l)%j(m)
	6656	kw = surf_usm_v(l)%k(m)
	6657
	6658	IF ( l == 3 ) THEN ! westward facing
	6659	iw = i
	6660	jw = j
	6661	ii = 6
	6662	ij = 3
	6663	ELSEIF ( l == 2 ) THEN
	6664	iw = i-1
	6665	jw = j
	6666	ii = 6
	6667	ij = 3
	6668	ELSEIF ( l == 1 ) THEN
	6669	iw = i
	6670	jw = j
	6671	ii = 12
	6672	ij = 9
	6673	ELSEIF ( l == 0 ) THEN
	6674	iw = i
	6675	jw = j-1
	6676	ii = 12
	6677	ij = 9
	6678	ENDIF
	6679
	6680	IF ( kw <= usm_par(ii,jw,iw) ) THEN
	6681	!-- pedestrant zone
	6682	IF ( usm_par(ii+1,jw,iw) == 0 ) THEN
	6683	surf_usm_v(l)%surface_types(m) = pedestrant_category !< default category for wall surface in pedestrant zone
	6684	surf_usm_v(l)%albedo(:,m) = -1.0_wp
	6685	surf_usm_v(l)%thickness_wall(m) = -1.0_wp
	6686	surf_usm_v(l)%thickness_window(m) = -1.0_wp
	6687	surf_usm_v(l)%thickness_green(m) = -1.0_wp
	6688	surf_usm_v(l)%transmissivity(m) = -1.0_wp
	6689	ELSE
	6690	surf_usm_v(l)%surface_types(m) = usm_par(ii+1,jw,iw)
	6691	surf_usm_v(l)%albedo(:,m) = usm_val(ij,jw,iw)
	6692	surf_usm_v(l)%thickness_wall(m) = usm_val(ij+1,jw,iw)
	6693	surf_usm_v(l)%thickness_window(m) = usm_val(ij+1,jw,iw)
	6694	surf_usm_v(l)%thickness_green(m) = usm_val(ij+1,jw,iw)
	6695	surf_usm_v(l)%transmissivity(m) = 0.0_wp
	6696	ENDIF
	6697	ELSE IF ( kw <= usm_par(ii+2,jw,iw) ) THEN
	6698	!-- wall zone
	6699	IF ( usm_par(ii+3,jw,iw) == 0 ) THEN
	6700	surf_usm_v(l)%surface_types(m) = wall_category !< default category for wall surface
	6701	surf_usm_v(l)%albedo(:,m) = -1.0_wp
	6702	surf_usm_v(l)%thickness_wall(m) = -1.0_wp
	6703	surf_usm_v(l)%thickness_window(m) = -1.0_wp
	6704	surf_usm_v(l)%thickness_green(m) = -1.0_wp
	6705	surf_usm_v(l)%transmissivity(m) = -1.0_wp
	6706	ELSE
	6707	surf_usm_v(l)%surface_types(m) = usm_par(ii+3,jw,iw)
	6708	surf_usm_v(l)%albedo(:,m) = usm_val(ij+2,jw,iw)
	6709	surf_usm_v(l)%thickness_wall(m) = usm_val(ij+3,jw,iw)
	6710	surf_usm_v(l)%thickness_window(m) = usm_val(ij+3,jw,iw)
	6711	surf_usm_v(l)%thickness_green(m) = usm_val(ij+3,jw,iw)
	6712	surf_usm_v(l)%transmissivity(m) = 0.0_wp
	6713	ENDIF
	6714	ELSE IF ( kw <= usm_par(ii+4,jw,iw) ) THEN
	6715	!-- roof zone
	6716	IF ( usm_par(ii+5,jw,iw) == 0 ) THEN
	6717	surf_usm_v(l)%surface_types(m) = roof_category !< default category for roof surface
	6718	surf_usm_v(l)%albedo(:,m) = -1.0_wp
	6719	surf_usm_v(l)%thickness_wall(m) = -1.0_wp
	6720	surf_usm_v(l)%thickness_window(m) = -1.0_wp
	6721	surf_usm_v(l)%thickness_green(m) = -1.0_wp
	6722	surf_usm_v(l)%transmissivity(m) = -1.0_wp
	6723	ELSE
	6724	surf_usm_v(l)%surface_types(m) = usm_par(ii+5,jw,iw)
	6725	surf_usm_v(l)%albedo(:,m) = usm_val(ij+4,jw,iw)
	6726	surf_usm_v(l)%thickness_wall(m) = usm_val(ij+5,jw,iw)
	6727	surf_usm_v(l)%thickness_window(m) = usm_val(ij+5,jw,iw)
	6728	surf_usm_v(l)%thickness_green(m) = usm_val(ij+5,jw,iw)
	6729	surf_usm_v(l)%transmissivity(m) = 0.0_wp
	6730	ENDIF
	6731	ELSE
	6732	!-- something wrong
	6733	CALL message( 'usm_read_urban_surface', 'PA0505', 1, 2, 0, 6, 0 )
	6734	ENDIF
	6735
	6736	!
	6737	!-- Find the type position
	6738	it = surf_usm_v(l)%surface_types(m)
	6739	ip = -99999
	6740	DO k = 1, n_surface_types
	6741	IF ( surface_type_codes(k) == it ) THEN
	6742	ip = k
	6743	EXIT
	6744	ENDIF
	6745	ENDDO
	6746	IF ( ip == -99999 ) THEN
	6747	!-- wall category not found
	6748	WRITE (message_string, "(A,I5,A,3I5)") 'wall category ', it, &
	6749	' not found for i,j,k=', iw,jw,kw
	6750	CALL message( 'usm_read_urban_surface', 'PA0506', 1, 2, 0, 6, 0 )
	6751	ENDIF
	6752	!
	6753	!-- Albedo
	6754	IF ( surf_usm_v(l)%albedo(0,m) < 0.0_wp ) THEN
	6755	surf_usm_v(l)%albedo(:,m) = surface_params(ialbedo,ip)
	6756	ENDIF
	6757	!-- Transmissivity of the windows
	6758	IF ( surf_usm_v(l)%transmissivity(m) < 0.0_wp ) THEN
	6759	surf_usm_v(l)%transmissivity(m) = 0.0_wp
	6760	ENDIF
	6761	!
	6762	!-- emissivity of the wall
	6763	surf_usm_v(l)%emissivity(:,m) = surface_params(iemiss,ip)
	6764	!
	6765	!-- heat conductivity Î»S between air and wall ( W mâ2 Kâ1 )
	6766	surf_usm_v(l)%lambda_surf(m) = surface_params(ilambdas,ip)
	6767	surf_usm_v(l)%lambda_surf_window(m) = surface_params(ilambdas,ip)
	6768	surf_usm_v(l)%lambda_surf_green(m) = surface_params(ilambdas,ip)
	6769	!
	6770	!-- roughness relative to concrete
	6771	surf_usm_v(l)%z0(m) = surface_params(irough,ip)
	6772	!
	6773	!-- Surface skin layer heat capacity (J mâ2 Kâ1 )
	6774	surf_usm_v(l)%c_surface(m) = surface_params(icsurf,ip)
	6775	surf_usm_v(l)%c_surface_window(m) = surface_params(icsurf,ip)
	6776	surf_usm_v(l)%c_surface_green(m) = surface_params(icsurf,ip)
	6777	!
	6778	!-- wall material parameters:
	6779	!-- thickness of the wall (m)
	6780	!-- missing values are replaced by default value for category
	6781	IF ( surf_usm_v(l)%thickness_wall(m) <= 0.001_wp ) THEN
	6782	surf_usm_v(l)%thickness_wall(m) = surface_params(ithick,ip)
	6783	ENDIF
	6784	IF ( surf_usm_v(l)%thickness_window(m) <= 0.001_wp ) THEN
	6785	surf_usm_v(l)%thickness_window(m) = surface_params(ithick,ip)
	6786	ENDIF
	6787	IF ( surf_usm_v(l)%thickness_green(m) <= 0.001_wp ) THEN
	6788	surf_usm_v(l)%thickness_green(m) = surface_params(ithick,ip)
	6789	ENDIF
	6790	!
	6791	!-- volumetric heat capacity rho*C of the wall ( J mâ3 Kâ1 )
	6792	surf_usm_v(l)%rho_c_wall(:,m) = surface_params(irhoC,ip)
	6793	surf_usm_v(l)%rho_c_window(:,m) = surface_params(irhoC,ip)
	6794	surf_usm_v(l)%rho_c_green(:,m) = surface_params(irhoC,ip)
	6795	!
	6796	!-- thermal conductivity Î»H of the wall (W mâ1 Kâ1 )
	6797	surf_usm_v(l)%lambda_h(:,m) = surface_params(ilambdah,ip)
	6798	surf_usm_v(l)%lambda_h_window(:,m) = surface_params(ilambdah,ip)
	6799	surf_usm_v(l)%lambda_h_green(:,m) = surface_params(ilambdah,ip)
	6800
	6801	ENDDO
	6802	ENDDO
	6803	!
	6804	!-- Initialize wall layer thicknesses. Please note, this will be removed
	6805	!-- after migration to Palm input data standard.
	6806	DO k = nzb_wall, nzt_wall
	6807	zwn(k) = zwn_default(k)
	6808	zwn_green(k) = zwn_default_green(k)
	6809	zwn_window(k) = zwn_default_window(k)
	6810	ENDDO
	6811	!
	6812	!-- apply for all particular surface grids. First for horizontal surfaces
	6813	DO m = 1, surf_usm_h%ns
	6814	surf_usm_h%zw(:,m) = zwn(:) * surf_usm_h%thickness_wall(m)
	6815	surf_usm_h%zw_green(:,m) = zwn_green(:) * surf_usm_h%thickness_green(m)
	6816	surf_usm_h%zw_window(:,m) = zwn_window(:) * surf_usm_h%thickness_window(m)
	6817	ENDDO
	6818	DO l = 0, 3
	6819	DO m = 1, surf_usm_v(l)%ns
	6820	surf_usm_v(l)%zw(:,m) = zwn(:) * surf_usm_v(l)%thickness_wall(m)
	6821	surf_usm_v(l)%zw_green(:,m) = zwn_green(:) * surf_usm_v(l)%thickness_green(m)
	6822	surf_usm_v(l)%zw_window(:,m) = zwn_window(:) * surf_usm_v(l)%thickness_window(m)
	6823	ENDDO
	6824	ENDDO
	6825
	6826	CALL location_message( ' types and parameters of urban surfaces read', .TRUE. )
	6827
	6828	END SUBROUTINE usm_read_urban_surface_types
	6829
	6830
	6831	!------------------------------------------------------------------------------!
	6832	! Description:
	6833	! ------------
	6834	!> Solver for the energy balance at the ground/roof/wall surface.
	6835	!> It follows basic ideas and structure of lsm_energy_balance
	6836	!> with many simplifications and adjustments.
	6837	!> TODO better description
	6838	!------------------------------------------------------------------------------!
	6839	SUBROUTINE usm_surface_energy_balance
	6840
	6841	IMPLICIT NONE
	6842
	6843	INTEGER(iwp) :: i, j, k, l, d, m !< running indices
	6844
	6845	REAL(wp) :: u1,v1,w1 !< near wall u,v,w
	6846	REAL(wp) :: stend !< surface tendency
	6847	REAL(wp) :: stend_window !< surface tendency
	6848	REAL(wp) :: stend_green !< surface tendency
	6849	REAL(wp) :: coef_1 !< first coeficient for prognostic equation
	6850	REAL(wp) :: coef_window_1 !< first coeficient for prognostic window equation
	6851	REAL(wp) :: coef_green_1 !< first coeficient for prognostic green wall equation
	6852	REAL(wp) :: coef_2 !< second coeficient for prognostic equation
	6853	REAL(wp) :: coef_window_2 !< second coeficient for prognostic window equation
	6854	REAL(wp) :: coef_green_2 !< second coeficient for prognostic green wall equation
	6855	REAL(wp) :: rho_cp !< rho_wall_surface * cp
	6856	REAL(wp) :: r_a !< aerodynamic resistance for horizontal and vertical surfaces
	6857	REAL(wp) :: r_a_window !< aerodynamic resistance for horizontal and vertical window surfaces
	6858	REAL(wp) :: r_a_green !< aerodynamic resistance for horizontal and vertical green surfaces
	6859	REAL(wp) :: f_shf !< factor for shf_eb
	6860	REAL(wp) :: f_shf_window !< factor for shf_eb window
	6861	REAL(wp) :: f_shf_green !< factor for shf_eb green wall
	6862	REAL(wp) :: lambda_surface !< current value of lambda_surface (heat conductivity between air and wall)
	6863	REAL(wp) :: lambda_surface_window !< current value of lambda_surface (heat conductivity between air and window)
	6864	REAL(wp) :: lambda_surface_green !< current value of lambda_surface (heat conductivity between air and greeb wall)
	6865	REAL(wp) :: Ueff !< effective wind speed for calculation of heat transfer coefficients
	6866	REAL(wp) :: httc !< heat transfer coefficient
	6867	REAL(wp) :: httc_window !< heat transfer coefficient window
	6868	REAL(wp) :: httc_green !< heat transfer coefficient green wall
	6869	REAL(wp), DIMENSION(nzub:nzut) :: exn !< value of the Exner function in layers
	6870
	6871	REAL(wp), DIMENSION(0:4) :: dxdir !< surface normal direction gridbox length
	6872	REAL(wp) :: dtime !< simulated time of day (in UTC)
	6873	INTEGER(iwp) :: dhour !< simulated hour of day (in UTC)
	6874	REAL(wp) :: acoef !< actual coefficient of diurnal profile of anthropogenic heat
	6875
	6876
	6877	dxdir = (/dz,dy,dy,dx,dx/)
	6878	#if ! defined( __nopointer )
	6879	exn(:) = (hyp(nzub:nzut) / 100000.0_wp )**0.286_wp !< Exner function
	6880	#endif
	6881	!
	6882	!-- First, treat horizontal surface elements
	6883	DO m = 1, surf_usm_h%ns
	6884	!
	6885	!-- Get indices of respective grid point
	6886	i = surf_usm_h%i(m)
	6887	j = surf_usm_h%j(m)
	6888	k = surf_usm_h%k(m)
	6889	!
	6890	!-- TODO - how to calculate lambda_surface for horizontal surfaces
	6891	!-- (lambda_surface is set according to stratification in land surface model)
	6892	!-- MS: ???
	6893	IF ( surf_usm_h%ol(m) >= 0.0_wp ) THEN
	6894	lambda_surface = surf_usm_h%lambda_surf(m)
	6895	lambda_surface_window = surf_usm_h%lambda_surf_window(m)
	6896	lambda_surface_green = surf_usm_h%lambda_surf_green(m)
	6897	ELSE
	6898	lambda_surface = surf_usm_h%lambda_surf(m)
	6899	lambda_surface_window = surf_usm_h%lambda_surf_window(m)
	6900	lambda_surface_green = surf_usm_h%lambda_surf_green(m)
	6901	ENDIF
	6902	#if ! defined( __nopointer )
	6903	!
	6904	!-- calculate rho * cp coefficient at surface layer
	6905	rho_cp = cp * hyp(k) / ( r_d * surf_usm_h%pt1(m) * exn(k) )
	6906	#endif
	6907	!
	6908	!-- Calculate aerodyamic resistance.
	6909	!-- Calculation for horizontal surfaces follows LSM formulation
	6910	!-- pt, us, ts are not available for the prognostic time step,
	6911	!-- data from the last time step is used here.
[2703]	6912
[2720]	6913	!-- Workaround: use single r_a as stability is only treated for the
	6914	!-- average temperature
[2703]	6915	r_a = ( surf_usm_h%pt1(m) - surf_usm_h%pt_surface(m) ) / &
	6916	( surf_usm_h%ts(m) * surf_usm_h%us(m) + 1.0E-20_wp )
	6917	r_a_window = r_a
	6918	r_a_green = r_a
	6919	! r_a = ( surf_usm_h%pt1(m) - t_surf_h(m) / exn(k) ) / &
	6920	! ( surf_usm_h%ts(m) * surf_usm_h%us(m) + 1.0E-20_wp )
	6921	! r_a_window = ( surf_usm_h%pt1(m) - t_surf_window_h(m) / exn(k) ) / &
	6922	! ( surf_usm_h%ts(m) * surf_usm_h%us(m) + 1.0E-20_wp )
	6923	! r_a_green = ( surf_usm_h%pt1(m) - t_surf_green_h(m) / exn(k) ) / &
	6924	! ( surf_usm_h%ts(m) * surf_usm_h%us(m) + 1.0E-20_wp )
[2696]	6925
	6926	!-- make sure that the resistance does not drop to zero
	6927	IF ( r_a < 1.0_wp ) r_a = 1.0_wp
	6928	IF ( r_a_window < 1.0_wp ) r_a_window = 1.0_wp
	6929	IF ( r_a_green < 1.0_wp ) r_a_green = 1.0_wp
	6930
	6931
	6932	!-- the parameterization is developed originally for larger scales
	6933	!-- (compare with remark in TUF-3D)
	6934	!-- our first experiences show that the parameterization underestimates
	6935	!-- r_a in meter resolution.
	6936	!-- A temporary solution would be multiplication by magic constant :-(.
	6937	!-- For the moment this is comment out.
	6938	r_a = r_a !* ra_horiz_coef
	6939	r_a_window = r_a_window !* ra_horiz_coef
	6940	r_a_green = r_a_green !* ra_horiz_coef
	6941
	6942	!-- factor for shf_eb
	6943	f_shf = rho_cp / r_a
	6944	f_shf_window = rho_cp / r_a_window
	6945	f_shf_green = rho_cp / r_a_green
	6946
	6947	!-- add LW up so that it can be removed in prognostic equation
	6948	surf_usm_h%rad_net_l(m) = surf_usm_h%rad_sw_in(m) - &
	6949	surf_usm_h%rad_sw_out(m) + &
	6950	surf_usm_h%rad_lw_in(m) - &
	6951	surf_usm_h%rad_lw_out(m)
	6952
	6953	!-- numerator of the prognostic equation
	6954	!-- Todo: Adjust to tile approach. So far, emissivity for wall (element 0)
	6955	!-- is used
	6956	coef_1 = surf_usm_h%rad_net_l(m) + &
	6957	( 3.0_wp + 1.0_wp ) * surf_usm_h%emissivity(0,m) * sigma_sb * &
	6958	t_surf_h(m) ** 4 + &
	6959	f_shf * surf_usm_h%pt1(m) + &
	6960	lambda_surface * t_wall_h(nzb_wall,m)
	6961	coef_window_1 = surf_usm_h%rad_net_l(m) + &
	6962	( 3.0_wp + 1.0_wp ) * surf_usm_h%emissivity(2,m) * sigma_sb * &
	6963	t_surf_window_h(m) ** 4 + &
	6964	f_shf_window * surf_usm_h%pt1(m) + &
	6965	lambda_surface_window * t_window_h(nzb_wall,m)
	6966	coef_green_1 = surf_usm_h%rad_net_l(m) + &
	6967	( 3.0_wp + 1.0_wp ) * surf_usm_h%emissivity(1,m) * sigma_sb * &
	6968	t_surf_green_h(m) ** 4 + &
	6969	f_shf_green * surf_usm_h%pt1(m) + &
	6970	lambda_surface_green * t_wall_h(nzb_wall,m)
	6971
	6972	!-- denominator of the prognostic equation
	6973	coef_2 = 4.0_wp * surf_usm_h%emissivity(0,m) * sigma_sb * &
	6974	t_surf_h(m) ** 3 &
	6975	+ lambda_surface + f_shf / exn(k)
	6976	coef_window_2 = 4.0_wp * surf_usm_h%emissivity(2,m) * sigma_sb * &
	6977	t_surf_window_h(m) ** 3 &
	6978	+ lambda_surface_window + f_shf_window / exn(k)
	6979	coef_green_2 = 4.0_wp * surf_usm_h%emissivity(1,m) * sigma_sb * &
	6980	t_surf_green_h(m) ** 3 &
	6981	+ lambda_surface_green + f_shf_green / exn(k)
	6982
	6983	!-- implicit solution when the surface layer has no heat capacity,
	6984	!-- otherwise use RK3 scheme.
	6985	t_surf_h_p(m) = ( coef_1 * dt_3d * tsc(2) + &
	6986	surf_usm_h%c_surface(m) * t_surf_h(m) ) / &
	6987	( surf_usm_h%c_surface(m) + coef_2 * dt_3d * tsc(2) )
	6988	t_surf_window_h_p(m) = ( coef_window_1 * dt_3d * tsc(2) + &
	6989	surf_usm_h%c_surface_window(m) * t_surf_window_h(m) ) / &
	6990	( surf_usm_h%c_surface_window(m) + coef_window_2 * dt_3d * tsc(2) )
	6991	t_surf_green_h_p(m) = ( coef_green_1 * dt_3d * tsc(2) + &
	6992	surf_usm_h%c_surface_green(m) * t_surf_green_h(m) ) / &
	6993	( surf_usm_h%c_surface_green(m) + coef_green_2 * dt_3d * tsc(2) )
	6994
	6995	!-- add RK3 term
	6996	t_surf_h_p(m) = t_surf_h_p(m) + dt_3d * tsc(3) * &
	6997	surf_usm_h%tt_surface_m(m)
	6998	t_surf_window_h_p(m) = t_surf_window_h_p(m) + dt_3d * tsc(3) * &
	6999	surf_usm_h%tt_surface_window_m(m)
	7000	t_surf_green_h_p(m) = t_surf_green_h_p(m) + dt_3d * tsc(3) * &
	7001	surf_usm_h%tt_surface_green_m(m)
	7002	!
	7003	!-- Store surface temperature
	7004	surf_usm_h%pt_surface(m) = ( surf_usm_h%frac(0,m) * t_surf_h_p(m) &
	7005	+ surf_usm_h%frac(2,m) * t_surf_window_h_p(m) &
	7006	+ surf_usm_h%frac(1,m) * t_surf_green_h_p(m) ) &
	7007	/ exn(k)
	7008
	7009	!-- calculate true tendency
	7010	stend = ( t_surf_h_p(m) - t_surf_h(m) - dt_3d * tsc(3) * &
	7011	surf_usm_h%tt_surface_m(m)) / ( dt_3d * tsc(2) )
	7012	stend_window = ( t_surf_window_h_p(m) - t_surf_window_h(m) - dt_3d * tsc(3) * &
	7013	surf_usm_h%tt_surface_window_m(m)) / ( dt_3d * tsc(2) )
	7014	stend_green = ( t_surf_green_h_p(m) - t_surf_green_h(m) - dt_3d * tsc(3) * &
	7015	surf_usm_h%tt_surface_green_m(m)) / ( dt_3d * tsc(2) )
	7016
	7017	!-- calculate t_surf tendencies for the next Runge-Kutta step
	7018	IF ( timestep_scheme(1:5) == 'runge' ) THEN
	7019	IF ( intermediate_timestep_count == 1 ) THEN
	7020	surf_usm_h%tt_surface_m(m) = stend
	7021	surf_usm_h%tt_surface_window_m(m) = stend_window
	7022	surf_usm_h%tt_surface_green_m(m) = stend_green
	7023	ELSEIF ( intermediate_timestep_count < &
	7024	intermediate_timestep_count_max ) THEN
	7025	surf_usm_h%tt_surface_m(m) = -9.5625_wp * stend + &
	7026	5.3125_wp * surf_usm_h%tt_surface_m(m)
	7027	surf_usm_h%tt_surface_window_m(m) = -9.5625_wp * stend_window + &
	7028	5.3125_wp * surf_usm_h%tt_surface_window_m(m)
	7029	surf_usm_h%tt_surface_green_m(m) = -9.5625_wp * stend_green + &
	7030	5.3125_wp * surf_usm_h%tt_surface_green_m(m)
	7031	ENDIF
	7032	ENDIF
	7033
	7034	!-- in case of fast changes in the skin temperature, it is required to
	7035	!-- update the radiative fluxes in order to keep the solution stable
	7036	IF ( ( ABS( t_surf_h_p(m) - t_surf_h(m) ) > 1.0_wp ) .OR. &
	7037	( ABS( t_surf_green_h_p(m) - t_surf_green_h(m) ) > 1.0_wp ) .OR. &
	7038	( ABS( t_surf_window_h_p(m) - t_surf_window_h(m) ) > 1.0_wp ) ) THEN
	7039	force_radiation_call_l = .TRUE.
	7040	ENDIF
	7041	!
	7042	!-- for horizontal surfaces is pt(nzb_s_inner(j,i),j,i) = pt_surf.
	7043	!-- there is no equivalent surface gridpoint for vertical surfaces.
	7044	!-- pt(k,j,i) is calculated for all directions in diffusion_s
	7045	!-- using surface and wall heat fluxes
	7046	#if ! defined( __nopointer )
	7047	! pt(k-1,j,i) = ( surf_usm_h%frac(0,m) * t_surf_h_p(m) &
	7048	! + surf_usm_h%frac(2,m) * t_surf_window_h_p(m) &
	7049	! + surf_usm_h%frac(1,m) * t_surf_green_h_p(m) ) &
	7050	! / exn(k) ! not for vertical surfaces
	7051	#endif
	7052
	7053	!-- calculate fluxes
	7054	!-- rad_net_l is never used!
	7055	surf_usm_h%rad_net_l(m) = surf_usm_h%frac(0,m) * &
	7056	( surf_usm_h%rad_net_l(m) + &
	7057	3.0_wp * sigma_sb * &
	7058	t_surf_h(m)*4 - 4.0_wp sigma_sb * &
	7059	t_surf_h(m)*3 t_surf_h_p(m) ) &
	7060	+ surf_usm_h%frac(2,m) * &
	7061	( surf_usm_h%rad_net_l(m) + &
	7062	3.0_wp * sigma_sb * &
	7063	t_surf_window_h(m)*4 - 4.0_wp sigma_sb * &
	7064	t_surf_window_h(m)*3 t_surf_window_h_p(m) ) &
	7065	+ surf_usm_h%frac(1,m) * &
	7066	( surf_usm_h%rad_net_l(m) + &
	7067	3.0_wp * sigma_sb * &
	7068	t_surf_green_h(m)*4 - 4.0_wp sigma_sb * &
	7069	t_surf_green_h(m)*3 t_surf_green_h_p(m) )
	7070	surf_usm_h%wghf_eb(m) = lambda_surface * &
	7071	( t_surf_h_p(m) - t_wall_h(nzb_wall,m) )
	7072	surf_usm_h%wghf_eb_green(m) = lambda_surface_green * &
	7073	( t_surf_green_h_p(m) - t_green_h(nzb_wall,m) )
	7074	surf_usm_h%wghf_eb_window(m) = lambda_surface_window * &
	7075	( t_surf_window_h_p(m) - t_window_h(nzb_wall,m) )
	7076
	7077	!
	7078	!-- ground/wall/roof surface heat flux
	7079	surf_usm_h%wshf_eb(m) = - f_shf * ( surf_usm_h%pt1(m) - t_surf_h_p(m) / exn(k) ) * &
	7080	surf_usm_h%frac(0,m) &
	7081	- f_shf_window * ( surf_usm_h%pt1(m) - t_surf_window_h_p(m) / exn(k) ) * &
	7082	surf_usm_h%frac(2,m) &
	7083	- f_shf_green * ( surf_usm_h%pt1(m) - t_surf_green_h_p(m) / exn(k) ) * &
	7084	surf_usm_h%frac(1,m)
	7085	!
	7086	!-- store kinematic surface heat fluxes for utilization in other processes
	7087	!-- diffusion_s, surface_layer_fluxes,...
	7088	surf_usm_h%shf(m) = surf_usm_h%wshf_eb(m) / cp
	7089
	7090	ENDDO
	7091	!
	7092	!-- Now, treat vertical surface elements
	7093	DO l = 0, 3
	7094	DO m = 1, surf_usm_v(l)%ns
	7095	!
	7096	!-- Get indices of respective grid point
	7097	i = surf_usm_v(l)%i(m)
	7098	j = surf_usm_v(l)%j(m)
	7099	k = surf_usm_v(l)%k(m)
	7100
	7101	!
	7102	!-- TODO - how to calculate lambda_surface for horizontal (??? do you mean verical ???) surfaces
	7103	!-- (lambda_surface is set according to stratification in land surface model).
	7104	!-- Please note, for vertical surfaces no ol is defined, since
	7105	!-- stratification is not considered in this case.
	7106	lambda_surface = surf_usm_v(l)%lambda_surf(m)
	7107	lambda_surface_window = surf_usm_v(l)%lambda_surf_window(m)
	7108	lambda_surface_green = surf_usm_v(l)%lambda_surf_green(m)
	7109
	7110	#if ! defined( __nopointer )
	7111	!
	7112	!-- calculate rho * cp coefficient at surface layer
	7113	rho_cp = cp * hyp(k) / ( r_d * surf_usm_v(l)%pt1(m) * exn(k) )
	7114	#endif
	7115
	7116	!-- Calculation of r_a for vertical surfaces
	7117	!--
	7118	!-- heat transfer coefficient for forced convection along vertical walls
	7119	!-- follows formulation in TUF3d model (Krayenhoff & Voogt, 2006)
	7120	!--
	7121	!-- H = httc (Tsfc - Tair)
	7122	!-- httc = rw * (11.8 + 4.2 * Ueff) - 4.0
	7123	!--
	7124	!-- rw: wall patch roughness relative to 1.0 for concrete
	7125	!-- Ueff: effective wind speed
	7126	!-- - 4.0 is a reduction of Rowley et al (1930) formulation based on
	7127	!-- Cole and Sturrock (1977)
	7128	!--
	7129	!-- Ucan: Canyon wind speed
	7130	!-- wstar: convective velocity
	7131	!-- Qs: surface heat flux
	7132	!-- zH: height of the convective layer
	7133	!-- wstar = (g/TcanQszH)**(1./3.)
	7134
	7135	!-- Effective velocity components must always
	7136	!-- be defined at scalar grid point. The wall normal component is
	7137	!-- obtained by simple linear interpolation. ( An alternative would
	7138	!-- be an logarithmic interpolation. )
	7139	#if ! defined( __nopointer )
	7140	u1 = ( u(k,j,i) + u(k,j,i+1) ) * 0.5_wp
	7141	v1 = ( v(k,j,i) + v(k,j+1,i) ) * 0.5_wp
	7142	w1 = ( w(k,j,i) + w(k-1,j,i) ) * 0.5_wp
	7143	#endif
	7144
	7145	Ueff = SQRT( u12 + v12 + w1**2 )
	7146	httc = surf_usm_v(l)%z0(m) * &
	7147	( 11.8_wp + 4.2_wp * Ueff ) - 4.0_wp
	7148	f_shf = httc
	7149	f_shf_window = httc
	7150	f_shf_green = httc
	7151
	7152	!-- add LW up so that it can be removed in prognostic equation
	7153	surf_usm_v(l)%rad_net_l(m) = surf_usm_v(l)%rad_sw_in(m) - &
	7154	surf_usm_v(l)%rad_sw_out(m) + &
	7155	surf_usm_v(l)%rad_lw_in(m) - &
	7156	surf_usm_v(l)%rad_lw_out(m)
	7157
	7158	!-- numerator of the prognostic equation
	7159	coef_1 = surf_usm_v(l)%rad_net_l(m) + & ! coef +1 corresponds to -lwout included in calculation of radnet_l
	7160	( 3.0_wp + 1.0_wp ) * surf_usm_v(l)%emissivity(0,m) * sigma_sb * &
	7161	t_surf_v(l)%t(m) ** 4 + &
	7162	f_shf * surf_usm_v(l)%pt1(m) + &
	7163	lambda_surface * t_wall_v(l)%t(nzb_wall,m)
	7164	coef_window_1 = surf_usm_v(l)%rad_net_l(m) + & ! coef +1 corresponds to -lwout included in calculation of radnet_l
	7165	( 3.0_wp + 1.0_wp ) * surf_usm_v(l)%emissivity(2,m) * sigma_sb * &
	7166	t_surf_window_v(l)%t(m) ** 4 + &
	7167	f_shf * surf_usm_v(l)%pt1(m) + &
	7168	lambda_surface_window * t_window_v(l)%t(nzb_wall,m)
	7169
	7170	coef_green_1 = surf_usm_v(l)%rad_net_l(m) + & ! coef +1 corresponds to -lwout included in calculation of radnet_l
	7171	( 3.0_wp + 1.0_wp ) * surf_usm_v(l)%emissivity(1,m) * sigma_sb * &
	7172	t_surf_green_v(l)%t(m) ** 4 + &
	7173	f_shf * surf_usm_v(l)%pt1(m) + &
	7174	lambda_surface_green * t_wall_v(l)%t(nzb_wall,m)
	7175
	7176	!-- denominator of the prognostic equation
	7177	coef_2 = 4.0_wp * surf_usm_v(l)%emissivity(0,m) * sigma_sb * &
	7178	t_surf_v(l)%t(m) ** 3 &
	7179	+ lambda_surface + f_shf / exn(k)
	7180	coef_window_2 = 4.0_wp * surf_usm_v(l)%emissivity(2,m) * sigma_sb * &
	7181	t_surf_window_v(l)%t(m) ** 3 &
	7182	+ lambda_surface_window + f_shf / exn(k)
	7183	coef_green_2 = 4.0_wp * surf_usm_v(l)%emissivity(1,m) * sigma_sb * &
	7184	t_surf_green_v(l)%t(m) ** 3 &
	7185	+ lambda_surface_green + f_shf / exn(k)
	7186
	7187	!-- implicit solution when the surface layer has no heat capacity,
	7188	!-- otherwise use RK3 scheme.
	7189	t_surf_v_p(l)%t(m) = ( coef_1 * dt_3d * tsc(2) + &
	7190	surf_usm_v(l)%c_surface(m) * t_surf_v(l)%t(m) ) / &
	7191	( surf_usm_v(l)%c_surface(m) + coef_2 * dt_3d * tsc(2) )
	7192	t_surf_window_v_p(l)%t(m) = ( coef_window_1 * dt_3d * tsc(2) + &
	7193	surf_usm_v(l)%c_surface_window(m) * t_surf_window_v(l)%t(m) ) / &
	7194	( surf_usm_v(l)%c_surface_window(m) + coef_window_2 * dt_3d * tsc(2) )
	7195
	7196	t_surf_green_v_p(l)%t(m) = ( coef_green_1 * dt_3d * tsc(2) + &
	7197	surf_usm_v(l)%c_surface_green(m) * t_surf_green_v(l)%t(m) ) / &
	7198	( surf_usm_v(l)%c_surface_green(m) + coef_green_2 * dt_3d * tsc(2) )
	7199
	7200
	7201
	7202	!-- add RK3 term
	7203	t_surf_v_p(l)%t(m) = t_surf_v_p(l)%t(m) + dt_3d * tsc(3) * &
	7204	surf_usm_v(l)%tt_surface_m(m)
	7205	t_surf_window_v_p(l)%t(m) = t_surf_window_v_p(l)%t(m) + dt_3d * tsc(3) * &
	7206	surf_usm_v(l)%tt_surface_window_m(m)
	7207	t_surf_green_v_p(l)%t(m) = t_surf_green_v_p(l)%t(m) + dt_3d * tsc(3) * &
	7208	surf_usm_v(l)%tt_surface_green_m(m)
	7209	!
	7210	!-- Store surface temperature
	7211	surf_usm_v(l)%pt_surface(m) = ( surf_usm_v(l)%frac(0,m) * t_surf_v_p(l)%t(m) &
	7212	+ surf_usm_v(l)%frac(2,m) * t_surf_window_v_p(l)%t(m) &
	7213	+ surf_usm_v(l)%frac(1,m) * t_surf_green_v_p(l)%t(m) ) &
	7214	/ exn(k)
	7215
	7216	!-- calculate true tendency
	7217	stend = ( t_surf_v_p(l)%t(m) - t_surf_v(l)%t(m) - dt_3d * tsc(3) *&
	7218	surf_usm_v(l)%tt_surface_m(m) ) / ( dt_3d * tsc(2) )
	7219	stend_window = ( t_surf_window_v_p(l)%t(m) - t_surf_window_v(l)%t(m) - dt_3d * tsc(3) *&
	7220	surf_usm_v(l)%tt_surface_window_m(m) ) / ( dt_3d * tsc(2) )
	7221	stend_green = ( t_surf_green_v_p(l)%t(m) - t_surf_green_v(l)%t(m) - dt_3d * tsc(3) *&
	7222	surf_usm_v(l)%tt_surface_green_m(m) ) / ( dt_3d * tsc(2) )
	7223
	7224	!-- calculate t_surf tendencies for the next Runge-Kutta step
	7225	IF ( timestep_scheme(1:5) == 'runge' ) THEN
	7226	IF ( intermediate_timestep_count == 1 ) THEN
	7227	surf_usm_v(l)%tt_surface_m(m) = stend
	7228	surf_usm_v(l)%tt_surface_window_m(m) = stend_window
	7229	surf_usm_v(l)%tt_surface_green_m(m) = stend_green
	7230	ELSEIF ( intermediate_timestep_count < &
	7231	intermediate_timestep_count_max ) THEN
	7232	surf_usm_v(l)%tt_surface_m(m) = -9.5625_wp * stend + &
	7233	5.3125_wp * surf_usm_v(l)%tt_surface_m(m)
	7234	surf_usm_v(l)%tt_surface_green_m(m) = -9.5625_wp * stend_green + &
	7235	5.3125_wp * surf_usm_v(l)%tt_surface_green_m(m)
	7236	surf_usm_v(l)%tt_surface_window_m(m) = -9.5625_wp * stend_window + &
	7237	5.3125_wp * surf_usm_v(l)%tt_surface_window_m(m)
	7238	ENDIF
	7239	ENDIF
	7240
	7241	!-- in case of fast changes in the skin temperature, it is required to
	7242	!-- update the radiative fluxes in order to keep the solution stable
	7243
	7244	IF ( ( ABS( t_surf_v_p(l)%t(m) - t_surf_v(l)%t(m) ) > 1.0_wp ) .OR. &
	7245	( ABS( t_surf_green_v_p(l)%t(m) - t_surf_green_v(l)%t(m) ) > 1.0_wp ) .OR. &
	7246	( ABS( t_surf_window_v_p(l)%t(m) - t_surf_window_v(l)%t(m) ) > 1.0_wp ) ) THEN
	7247	force_radiation_call_l = .TRUE.
	7248	ENDIF
	7249
	7250	!-- calculate fluxes
	7251	!-- rad_net_l is never used!
	7252	surf_usm_v(l)%rad_net_l(m) = surf_usm_v(l)%frac(0,m) * &
	7253	( surf_usm_v(l)%rad_net_l(m) + &
	7254	3.0_wp * sigma_sb * &
	7255	t_surf_v(l)%t(m)*4 - 4.0_wp sigma_sb * &
	7256	t_surf_v(l)%t(m)*3 t_surf_v_p(l)%t(m) ) &
	7257	+ surf_usm_v(l)%frac(2,m) * &
	7258	( surf_usm_v(l)%rad_net_l(m) + &
	7259	3.0_wp * sigma_sb * &
	7260	t_surf_window_v(l)%t(m)*4 - 4.0_wp sigma_sb * &
	7261	t_surf_window_v(l)%t(m)*3 t_surf_window_v_p(l)%t(m) ) &
	7262	+ surf_usm_v(l)%frac(1,m) * &
	7263	( surf_usm_v(l)%rad_net_l(m) + &
	7264	3.0_wp * sigma_sb * &
	7265	t_surf_green_v(l)%t(m)*4 - 4.0_wp sigma_sb * &
	7266	t_surf_green_v(l)%t(m)*3 t_surf_green_v_p(l)%t(m) )
	7267
	7268	surf_usm_v(l)%wghf_eb_window(m) = lambda_surface_window * &
	7269	( t_surf_window_v_p(l)%t(m) - t_window_v(l)%t(nzb_wall,m) )
	7270	surf_usm_v(l)%wghf_eb(m) = lambda_surface * &
	7271	( t_surf_v_p(l)%t(m) - t_wall_v(l)%t(nzb_wall,m) )
	7272	surf_usm_v(l)%wghf_eb_green(m) = lambda_surface_green * &
	7273	( t_surf_green_v_p(l)%t(m) - t_green_v(l)%t(nzb_wall,m) )
	7274
	7275	!-- ground/wall/roof surface heat flux
	7276	surf_usm_v(l)%wshf_eb(m) = - f_shf * ( surf_usm_v(l)%pt1(m) - t_surf_v_p(l)%t(m) / exn(k) ) * surf_usm_v(l)%frac(0,m) &
	7277	- f_shf_window * ( surf_usm_v(l)%pt1(m) - t_surf_window_v_p(l)%t(m) / exn(k) ) * surf_usm_v(l)%frac(2,m) &
	7278	- f_shf_green * ( surf_usm_v(l)%pt1(m) - t_surf_green_v_p(l)%t(m) / exn(k) ) * surf_usm_v(l)%frac(1,m)
	7279
	7280	!
	7281	!-- store kinematic surface heat fluxes for utilization in other processes
	7282	!-- diffusion_s, surface_layer_fluxes,...
	7283	surf_usm_v(l)%shf(m) = surf_usm_v(l)%wshf_eb(m) / cp
	7284
	7285	ENDDO
	7286
	7287	ENDDO
	7288	!
	7289	!-- Add-up anthropogenic heat, for now only at upward-facing surfaces
	7290	IF ( usm_anthropogenic_heat .AND. &
	7291	intermediate_timestep_count == intermediate_timestep_count_max ) THEN
	7292	!-- application of the additional anthropogenic heat sources
	7293	!-- we considere the traffic for now so all heat is absorbed
	7294	!-- to the first layer, generalization would be worth.
	7295
	7296	!-- calculation of actual profile coefficient
	7297	!-- ??? check time_since_reference_point ???
	7298	dtime = mod(simulated_time + time_utc_init, 24.0_wp*3600.0_wp)
	7299	dhour = INT(dtime/3600.0_wp)
	7300	!-- linear interpolation of coeficient
	7301	acoef = (REAL(dhour+1,wp)-dtime/3600.0_wp)aheatprof(dhour) + (dtime/3600.0_wp-REAL(dhour,wp))aheatprof(dhour+1)
	7302
	7303	DO m = 1, surf_usm_h%ns
	7304	!
	7305	!-- Get indices of respective grid point
	7306	i = surf_usm_h%i(m)
	7307	j = surf_usm_h%j(m)
	7308	k = surf_usm_h%k(m)
	7309
	7310	IF ( aheat(j,i) > 0.0_wp ) THEN
	7311	!-- TODO the increase of pt in box i,j,nzb_s_inner(j,i)+1 in time dt_3d
	7312	!-- given to anthropogenic heat aheatacoef (Wm-2)
	7313	!-- k = nzb_s_inner(j,i)+1
	7314	!-- pt(k,j,i) = pt(k,j,i) + aheat(j,i)acoefdt_3d/(exn(k)rho_cpdz)
	7315	!-- Instead of this, we can adjust shf in case AH only at surface
	7316	surf_usm_h%shf(m) = surf_usm_h%shf(m) + &
	7317	aheat(j,i) * acoef * ddx * ddy / cp
	7318	ENDIF
	7319	ENDDO
	7320
	7321	ENDIF
	7322
	7323	!-- pt and shf are defined on nxlg:nxrg,nysg:nyng
	7324	!-- get the borders from neighbours
	7325	#if ! defined( __nopointer )
	7326	CALL exchange_horiz( pt, nbgp )
	7327	#endif
	7328
	7329	!-- calculation of force_radiation_call:
	7330	!-- Make logical OR for all processes.
	7331	!-- Force radiation call if at least one processor forces it.
	7332	IF ( intermediate_timestep_count == intermediate_timestep_count_max-1 )&
	7333	THEN
	7334	#if defined( __parallel )
	7335	IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr )
	7336	CALL MPI_ALLREDUCE( force_radiation_call_l, force_radiation_call, &
	7337	1, MPI_LOGICAL, MPI_LOR, comm2d, ierr )
	7338	#else
	7339	force_radiation_call = force_radiation_call_l
	7340	#endif
	7341	force_radiation_call_l = .FALSE.
	7342	ENDIF
	7343
	7344	END SUBROUTINE usm_surface_energy_balance
	7345
	7346
	7347	!------------------------------------------------------------------------------!
	7348	! Description:
	7349	! ------------
	7350	!> Swapping of timelevels for t_surf and t_wall
	7351	!> called out from subroutine swap_timelevel
	7352	!------------------------------------------------------------------------------!
	7353	SUBROUTINE usm_swap_timelevel ( mod_count )
	7354
	7355	IMPLICIT NONE
	7356
	7357	INTEGER(iwp), INTENT(IN) :: mod_count
	7358	INTEGER(iwp) :: i
	7359
	7360	#if defined( __nopointer )
	7361	t_surf_h = t_surf_h_p
	7362	t_wall_h = t_wall_h_p
	7363	t_surf_v = t_surf_v_p
	7364	t_wall_v = t_wall_v_p
	7365	t_surf_window_h = t_surf_window_h_p
	7366	t_window_h = t_window_h_p
	7367	t_surf_window_v = t_surf_window_v_p
	7368	t_window_v = t_window_v_p
	7369	t_surf_green_h = t_surf_green_h_p
	7370	t_surf_green_v = t_surf_green_v_p
	7371	t_green_h = t_green_h_p
	7372	t_green_v = t_green_v_p
	7373	t_surf_whole_h = t_surf_whole_h_p
	7374	t_surf_whole_v = t_surf_whole_v_p
	7375	#else
	7376	SELECT CASE ( mod_count )
	7377	CASE ( 0 )
	7378	!
	7379	!-- Horizontal surfaces
	7380	t_surf_h => t_surf_h_1; t_surf_h_p => t_surf_h_2
	7381	t_wall_h => t_wall_h_1; t_wall_h_p => t_wall_h_2
	7382	t_surf_window_h => t_surf_window_h_1; t_surf_window_h_p => t_surf_window_h_2
	7383	t_window_h => t_window_h_1; t_window_h_p => t_window_h_2
	7384	t_surf_green_h => t_surf_green_h_1; t_surf_green_h_p => t_surf_green_h_2
	7385	t_green_h => t_green_h_1; t_green_h_p => t_green_h_2
	7386	t_surf_whole_h => t_surf_whole_h_1; t_surf_whole_h_p => t_surf_whole_h_2
	7387	!
	7388	!-- Vertical surfaces
	7389	t_surf_v => t_surf_v_1; t_surf_v_p => t_surf_v_2
	7390	t_wall_v => t_wall_v_1; t_wall_v_p => t_wall_v_2
	7391	t_surf_window_v => t_surf_window_v_1; t_surf_window_v_p => t_surf_window_v_2
	7392	t_window_v => t_window_v_1; t_window_v_p => t_window_v_2
	7393	t_surf_green_v => t_surf_green_v_1; t_surf_green_v_p => t_surf_green_v_2
	7394	t_green_v => t_green_v_1; t_green_v_p => t_green_v_2
	7395	t_surf_whole_v => t_surf_whole_v_1; t_surf_whole_v_p => t_surf_whole_v_2
	7396	CASE ( 1 )
	7397	!
	7398	!-- Horizontal surfaces
	7399	t_surf_h => t_surf_h_2; t_surf_h_p => t_surf_h_1
	7400	t_wall_h => t_wall_h_2; t_wall_h_p => t_wall_h_1
	7401	t_surf_window_h => t_surf_window_h_2; t_surf_window_h_p => t_surf_window_h_1
	7402	t_window_h => t_window_h_2; t_window_h_p => t_window_h_1
	7403	t_surf_green_h => t_surf_green_h_2; t_surf_green_h_p => t_surf_green_h_1
	7404	t_green_h => t_green_h_2; t_green_h_p => t_green_h_1
	7405	t_surf_whole_h => t_surf_whole_h_2; t_surf_whole_h_p => t_surf_whole_h_1
	7406	!
	7407	!-- Vertical surfaces
	7408	t_surf_v => t_surf_v_2; t_surf_v_p => t_surf_v_1
	7409	t_wall_v => t_wall_v_2; t_wall_v_p => t_wall_v_1
	7410	t_surf_window_v => t_surf_window_v_2; t_surf_window_v_p => t_surf_window_v_1
	7411	t_window_v => t_window_v_2; t_window_v_p => t_window_v_1
	7412	t_surf_green_v => t_surf_green_v_2; t_surf_green_v_p => t_surf_green_v_1
	7413	t_green_v => t_green_v_2; t_green_v_p => t_green_v_1
	7414	t_surf_whole_v => t_surf_whole_v_2; t_surf_whole_v_p => t_surf_whole_v_1
	7415	END SELECT
	7416	#endif
	7417
	7418	END SUBROUTINE usm_swap_timelevel
	7419
	7420	!------------------------------------------------------------------------------!
	7421	!
	7422	! Description:
	7423	! ------------
	7424	!> Subroutine writes t_surf and t_wall data into restart files
	7425	!kanani: Renamed this routine according to corresponging routines in PALM
	7426	!kanani: Modified the routine to match write_var_list, from where usm_write_restart_data
	7427	! shall be called in the future. This part has not been tested yet. (see virtual_flight_mod)
	7428	! Also, I had some trouble with the allocation of t_surf, since this is a pointer.
	7429	! So, I added some directives here.
	7430	!------------------------------------------------------------------------------!
	7431	SUBROUTINE usm_write_restart_data
	7432
	7433	IMPLICIT NONE
	7434
	7435	CHARACTER(LEN=1) :: dum !< dummy string to create output-variable name
	7436	INTEGER(iwp) :: l !< index surface type orientation
	7437
	7438	WRITE ( 14 ) 'ns_h_on_file_usm '
	7439	WRITE ( 14 ) surf_usm_h%ns
	7440	WRITE ( 14 ) 'ns_v_on_file_usm '
	7441	WRITE ( 14 ) surf_usm_v(0:3)%ns
	7442
	7443	WRITE ( 14 ) 'usm_start_index_h '
	7444	WRITE ( 14 ) surf_usm_h%start_index
	7445	WRITE ( 14 ) 'usm_end_index_h '
	7446	WRITE ( 14 ) surf_usm_h%end_index
	7447	WRITE ( 14 ) 't_surf_h '
	7448	WRITE ( 14 ) t_surf_h
	7449	WRITE ( 14 ) 't_surf_window_h '
	7450	WRITE ( 14 ) t_surf_window_h
	7451	WRITE ( 14 ) 't_surf_green_h '
	7452	WRITE ( 14 ) t_surf_green_h
	7453
	7454	DO l = 0, 3
	7455	WRITE ( 14 ) 'usm_start_index_v '
	7456	WRITE ( 14 ) surf_usm_v(l)%start_index
	7457	WRITE ( 14 ) 'usm_end_index_v '
	7458	WRITE ( 14 ) surf_usm_v(l)%end_index
	7459	WRITE( dum, '(I1)') l
	7460	WRITE ( 14 ) 't_surf_v(' // dum // ') '
	7461	WRITE ( 14 ) t_surf_v(l)%t
	7462	WRITE ( 14 ) 't_surf_window_v(' // dum // ') '
	7463	WRITE ( 14 ) t_surf_window_v(l)%t
	7464	WRITE ( 14 ) 't_surf_green_v(' // dum // ') '
	7465	WRITE ( 14 ) t_surf_green_v(l)%t
	7466	ENDDO
	7467
	7468	WRITE ( 14 ) 'usm_start_index_h '
	7469	WRITE ( 14 ) surf_usm_h%start_index
	7470	WRITE ( 14 ) 'usm_end_index_h '
	7471	WRITE ( 14 ) surf_usm_h%end_index
	7472	WRITE ( 14 ) 't_wall_h '
	7473	WRITE ( 14 ) t_wall_h
	7474	WRITE ( 14 ) 't_window_h '
	7475	WRITE ( 14 ) t_window_h
	7476	WRITE ( 14 ) 't_green_h '
	7477	WRITE ( 14 ) t_green_h
	7478	DO l = 0, 3
	7479	WRITE ( 14 ) 'usm_start_index_v '
	7480	WRITE ( 14 ) surf_usm_v(l)%start_index
	7481	WRITE ( 14 ) 'usm_end_index_v '
	7482	WRITE ( 14 ) surf_usm_v(l)%end_index
	7483	WRITE( dum, '(I1)') l
	7484	WRITE ( 14 ) 't_wall_v(' // dum // ') '
	7485	WRITE ( 14 ) t_wall_v(l)%t
	7486	WRITE ( 14 ) 't_window_v(' // dum // ') '
	7487	WRITE ( 14 ) t_window_v(l)%t
	7488	WRITE ( 14 ) 't_green_v(' // dum // ') '
	7489	WRITE ( 14 ) t_green_v(l)%t
	7490	ENDDO
	7491
	7492	WRITE ( 14 ) '* end usm * '
	7493
	7494	END SUBROUTINE usm_write_restart_data
	7495
	7496	!
	7497	!-- Integrated stability function for heat and moisture
	7498	FUNCTION psi_h( zeta )
	7499
	7500	USE kinds
	7501
	7502	IMPLICIT NONE
	7503
	7504	REAL(wp) :: psi_h !< Integrated similarity function result
	7505	REAL(wp) :: zeta !< Stability parameter z/L
	7506	REAL(wp) :: x !< dummy variable
	7507
	7508	REAL(wp), PARAMETER :: a = 1.0_wp !< constant
	7509	REAL(wp), PARAMETER :: b = 0.66666666666_wp !< constant
	7510	REAL(wp), PARAMETER :: c = 5.0_wp !< constant
	7511	REAL(wp), PARAMETER :: d = 0.35_wp !< constant
	7512	REAL(wp), PARAMETER :: c_d_d = c / d !< constant
	7513	REAL(wp), PARAMETER :: bc_d_d = b * c / d !< constant
	7514
	7515
	7516	IF ( zeta < 0.0_wp ) THEN
	7517	x = SQRT( 1.0_wp - 16.0_wp * zeta )
	7518	psi_h = 2.0_wp * LOG( (1.0_wp + x ) / 2.0_wp )
	7519	ELSE
	7520	psi_h = - b * ( zeta - c_d_d ) * EXP( -d * zeta ) - (1.0_wp &
	7521	+ 0.66666666666_wp * a * zeta )**1.5_wp - bc_d_d &
	7522	+ 1.0_wp
	7523	!
	7524	!-- Old version for stable conditions (only valid for z/L < 0.5)
	7525	!-- psi_h = - 5.0_wp * zeta
	7526	ENDIF
	7527
	7528	END FUNCTION psi_h
	7529
	7530	END MODULE urban_surface_mod

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

| Impressum | ©Leibniz Universität Hannover |