Index: palm/trunk/SOURCE/urban_surface_mod.f90
===================================================================
--- palm/trunk/SOURCE/urban_surface_mod.f90	(revision 4168)
+++ palm/trunk/SOURCE/urban_surface_mod.f90	(revision 4180)
@@ -140,325 +140,4 @@
 ! Implementation of the PALM module interface
 ! 
-! 3636 2018-12-19 13:48:34Z raasch
-! nopointer option removed
-! 
-! 3614 2018-12-10 07:05:46Z raasch
-! unused variables removed
-! 
-! 3607 2018-12-07 11:56:58Z suehring
-! Output of radiation-related quantities migrated to radiation_model_mod.
-! 
-! 3597 2018-12-04 08:40:18Z maronga
-! Fixed calculation method of near surface air potential temperature at 10 cm
-! and moved to surface_layer_fluxes. Removed unnecessary _eb strings.
-! 
-! 3524 2018-11-14 13:36:44Z raasch
-! bugfix concerning allocation of t_surf_wall_v
-! 
-! 3502 2018-11-07 14:45:23Z suehring
-! Disable initialization of building roofs with ground-floor-level properties, 
-! since this causes strong oscillations of surface temperature during the 
-! spinup.
-! 
-! 3469 2018-10-30 20:05:07Z kanani
-! Add missing PUBLIC variables for new indoor model
-! 
-! 3449 2018-10-29 19:36:56Z suehring
-! Bugfix: Fix average arrays allocations in usm_3d_data_averaging (J.Resler)
-! Bugfix: Fix reading wall temperatures (J.Resler)
-! Bugfix: Fix treating of outputs for wall temperature and sky view factors (J.Resler)
-!
-! 
-! 3435 2018-10-26 18:25:44Z gronemeier
-! Bugfix: allocate gamma_w_green_sat until nzt_wall+1
-! 
-! 3418 2018-10-24 16:07:39Z kanani
-! (rvtils, srissman)
-! -Updated building databse, two green roof types (ind_green_type_roof)
-! -Latent heat flux for green walls and roofs, new output of latent heatflux
-!  and soil water content of green roof substrate
-! -t_surf changed to t_surf_wall
-! -Added namelist parameter usm_wall_mod for lower wall tendency
-!  of first two wall layers during spinup
-! -Window calculations deactivated during spinup
-! 
-! 3382 2018-10-19 13:10:32Z knoop
-! Bugix: made array declaration Fortran Standard conform
-! 
-! 3378 2018-10-19 12:34:59Z kanani
-! merge from radiation branch (r3362) into trunk
-! (moh.hefny):
-! - check the requested output variables if they are correct
-! - added unscheduled_radiation_calls switch to control force_radiation_call
-! - minor formate changes
-! 
-! 3371 2018-10-18 13:40:12Z knoop
-! Set flag indicating that albedo at urban surfaces is already initialized
-! 
-! 3347 2018-10-15 14:21:08Z suehring
-! Enable USM initialization with default building parameters in case no static
-! input file exist. 
-! 
-! 3343 2018-10-15 10:38:52Z suehring
-! Add output variables usm_rad_pc_inlw, usm_rad_pc_insw*
-! 
-! 3274 2018-09-24 15:42:55Z knoop
-! Modularization of all bulk cloud physics code components
-! 
-! 3248 2018-09-14 09:42:06Z sward
-! Minor formating changes
-! 
-! 3246 2018-09-13 15:14:50Z sward
-! Added error handling for input namelist via parin_fail_message
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3223 2018-08-30 13:48:17Z suehring
-! Bugfix for commit 3222
-! 
-! 3222 2018-08-30 13:35:35Z suehring
-! Introduction of surface array for type and its name
-! 
-! 3203 2018-08-23 10:48:36Z suehring
-! Revise bulk parameter for emissivity at ground-floor level
-! 
-! 3196 2018-08-13 12:26:14Z maronga
-! Added maximum aerodynamic resistance of 300 for horiztonal surfaces.
-! 
-! 3176 2018-07-26 17:12:48Z suehring
-! Bugfix, update virtual potential surface temparture, else heat fluxes on 
-! roofs might become unphysical
-! 
-! 3152 2018-07-19 13:26:52Z suehring
-! Initialize q_surface, which might be used in surface_layer_fluxes
-! 
-! 3151 2018-07-19 08:45:38Z raasch
-! remaining preprocessor define strings __check removed
-! 
-! 3136 2018-07-16 14:48:21Z suehring
-! Limit also roughness length for heat and moisture where necessary
-! 
-! 3123 2018-07-12 16:21:53Z suehring
-! Correct working precision for INTEGER number
-! 
-! 3115 2018-07-10 12:49:26Z suehring
-! Additional building type to represent bridges 
-! 
-! 3091 2018-06-28 16:20:35Z suehring
-! - Limit aerodynamic resistance at vertical walls.
-! - Add check for local roughness length not exceeding surface-layer height and
-!   limit roughness length where necessary.
-! 
-! 3065 2018-06-12 07:03:02Z Giersch
-! Unused array dxdir was removed, dz was replaced by dzu to consider vertical
-! grid stretching
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error message added
-! 
-! 3029 2018-05-23 12:19:17Z raasch
-! bugfix: close unit 151 instead of 90
-! 
-! 3014 2018-05-09 08:42:38Z maronga
-! Added pc_transpiration_rate
-! 
-! 2977 2018-04-17 10:27:57Z kanani
-! Implement changes from branch radiation (r2948-2971) with minor modifications.
-! (moh.hefny):
-! Extended exn for all model domain height to avoid the need to get nzut.
-! 
-! 2963 2018-04-12 14:47:44Z suehring
-! Introduce index for vegetation/wall, pavement/green-wall and water/window 
-! surfaces, for clearer access of surface fraction, albedo, emissivity, etc. .
-! 
-! 2943 2018-04-03 16:17:10Z suehring
-! Calculate exner function at all height levels and remove some un-used
-! variables.
-! 
-! 2932 2018-03-26 09:39:22Z maronga
-! renamed urban_surface_par to urban_surface_parameters
-! 
-! 2921 2018-03-22 15:05:23Z Giersch
-! The activation of spinup has been moved to parin
-! 
-! 2920 2018-03-22 11:22:01Z kanani
-! Remove unused pcbl, npcbl from ONLY list
-! moh.hefny:
-! Fixed bugs introduced by new structures and by moving radiation interaction
-! into radiation_model_mod.f90.
-! Bugfix: usm data output 3D didn't respect directions
-! 
-! 2906 2018-03-19 08:56:40Z Giersch
-! Local variable ids has to be initialized with a value of -1 in 
-! usm_3d_data_averaging
-! 
-! 2894 2018-03-15 09:17:58Z Giersch
-! Calculations of the index range of the subdomain on file which overlaps with
-! the current subdomain are already done in read_restart_data_mod,
-! usm_read/write_restart_data have been renamed to usm_r/wrd_local, variable 
-! named found has been introduced for checking if restart data was found, 
-! reading of restart strings has been moved completely to 
-! read_restart_data_mod, usm_rrd_local is already inside the overlap loop 
-! programmed in read_restart_data_mod, SAVE attribute added where necessary, 
-! deallocation and allocation of some arrays have been changed to take care of 
-! different restart files that can be opened (index i), the marker *** end usm 
-! *** is not necessary anymore, strings and their respective lengths are 
-! written out and read now in case of restart runs to get rid of prescribed 
-! character lengths
-! 
-! 2805 2018-02-14 17:00:09Z suehring
-! Initialization of resistances.
-! 
-! 2797 2018-02-08 13:24:35Z suehring
-! Comment concerning output of ground-heat flux added.
-! 
-! 2766 2018-01-22 17:17:47Z kanani
-! Removed redundant commas, added some blanks
-! 
-! 2765 2018-01-22 11:34:58Z maronga
-! Major bugfix in calculation of f_shf. Adjustment of roughness lengths in
-! building_pars
-! 
-! 2750 2018-01-15 16:26:51Z knoop
-! Move flag plant canopy to modules
-! 
-! 2737 2018-01-11 14:58:11Z kanani
-! Removed unused variables t_surf_whole...
-! 
-! 2735 2018-01-11 12:01:27Z suehring
-! resistances are saved in surface attributes
-! 
-! 2723 2018-01-05 09:27:03Z maronga
-! Bugfix for spinups (end_time was increased twice in case of LSM + USM runs)
-! 
-! 2720 2018-01-02 16:27:15Z kanani
-! Correction of comment
-! 
-! 2718 2018-01-02 08:49:38Z maronga
-! Corrected "Former revisions" section
-! 
-! 2705 2017-12-18 11:26:23Z maronga
-! Changes from last commit documented
-! 
-! 2703 2017-12-15 20:12:38Z maronga
-! Workaround for calculation of r_a
-!
-! 2696 2017-12-14 17:12:51Z kanani
-! - Change in file header (GPL part)
-! - Bugfix in calculation of pt_surface and related fluxes. (BM)
-! - Do not write surface temperatures onto pt array as this might cause 
-!   problems with nesting. (MS)
-! - Revised calculation of pt1 (now done in surface_layer_fluxes).
-!   Bugfix, f_shf_window and f_shf_green were not set at vertical surface 
-!   elements. (MS)
-! - merged with branch ebsolver
-!   green building surfaces do not evaporate yet
-!   properties of green wall layers and window layers are taken from wall layers
-!   this input data is missing. (RvT)
-! - Merged with branch radiation (developed by Mohamed Salim)
-! - Revised initialization. (MS)
-! - Rename emiss_surf into emissivity, roughness_wall into z0, albedo_surf into 
-!   albedo. (MS)
-! - Move first call of usm_radiatin from usm_init to init_3d_model
-! - fixed problem with near surface temperature
-! - added near surface temperature pt_10cm_h(m), pt_10cm_v(l)%t(m)
-! - does not work with temp profile including stability, ol
-!   pt_10cm = pt1 now
-! - merged with 2357 bugfix, error message for nopointer version
-! - added indoor model coupling with wall heat flux
-! - added green substrate/ dry vegetation layer for buildings
-! - merged with 2232 new surface-type structure
-! - added transmissivity of window tiles
-! - added MOSAIK tile approach for 3 different surfaces (RvT)
-! 
-! 2583 2017-10-26 13:58:38Z knoop
-! Bugfix: reverted MPI_Win_allocate_cptr introduction in last commit 
-!
-! 2582 2017-10-26 13:19:46Z hellstea
-! Workaround for gnufortran compiler added in usm_calc_svf. CALL MPI_Win_allocate is
-! replaced by CALL MPI_Win_allocate_cptr if defined ( __gnufortran ).
-!
-! 2544 2017-10-13 18:09:32Z maronga
-! Date and time quantities are now read from date_and_time_mod. Solar constant is
-! read from radiation_model_mod
-! 
-! 2516 2017-10-04 11:03:04Z suehring
-! Remove tabs
-! 
-! 2514 2017-10-04 09:52:37Z suehring
-! upper bounds of 3d output changed from nx+1,ny+1 to nx,ny
-! no output of ghost layer data
-! 
-! 2350 2017-08-15 11:48:26Z kanani
-! Bugfix and error message for nopointer version. 
-! Additional "! defined(__nopointer)" as workaround to enable compilation of 
-! nopointer version.
-! 
-! 2318 2017-07-20 17:27:44Z suehring
-! Get topography top index via Function call 
-! 
-! 2317 2017-07-20 17:27:19Z suehring
-! Bugfix: adjust output of shf. Added support for spinups
-! 
-! 2287 2017-06-15 16:46:30Z suehring
-! Bugfix in determination topography-top index
-! 
-! 2269 2017-06-09 11:57:32Z suehring
-! Enable restart runs with different number of PEs
-! Bugfixes nopointer branch
-! 
-! 2258 2017-06-08 07:55:13Z suehring
-! Bugfix, add pre-preprocessor directives to enable non-parrallel mode
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments according to new surface-type structure. Remove usm_wall_heat_flux; 
-! insteat, heat fluxes are directly applied in diffusion_s.
-! 
-! 2213 2017-04-24 15:10:35Z kanani
-! Removal of output quantities usm_lad and usm_canopy_hr
-! 
-! 2209 2017-04-19 09:34:46Z kanani
-! cpp switch __mpi3 removed,
-! minor formatting,
-! small bugfix for division by zero (Krc)
-! 
-! 2113 2017-01-12 13:40:46Z kanani
-! cpp switch __mpi3 added for MPI-3 standard code (Ketelsen)
-! 
-! 2071 2016-11-17 11:22:14Z maronga
-! Small bugfix (Resler)
-! 
-! 2031 2016-10-21 15:11:58Z knoop
-! renamed variable rho to rho_ocean
-! 
-! 2024 2016-10-12 16:42:37Z kanani
-! Bugfixes in deallocation of array plantt and reading of csf/csfsurf,
-! optimization of MPI-RMA operations,
-! declaration of pcbl as integer,
-! renamed usm_radnet -> usm_rad_net, usm_canopy_khf -> usm_canopy_hr,
-! splitted arrays svf -> svf & csf, svfsurf -> svfsurf & csfsurf,
-! use of new control parameter varnamelength,
-! added output variables usm_rad_ressw, usm_rad_reslw,
-! minor formatting changes,
-! minor optimizations.
-! 
-! 2011 2016-09-19 17:29:57Z kanani
-! Major reformatting according to PALM coding standard (comments, blanks,
-! alphabetical ordering, etc.),
-! removed debug_prints, 
-! removed auxiliary SUBROUTINE get_usm_info, instead, USM flag urban_surface is
-! defined in MODULE control_parameters (modules.f90) to avoid circular 
-! dependencies,
-! renamed canopy_heat_flux to pc_heating_rate, as meaning of quantity changed.
-! 
-! 2007 2016-08-24 15:47:17Z kanani
-! Initial revision
-!
 !
 ! Description:
