Ignore:
Timestamp:
Aug 21, 2019 2:37:54 PM (22 months ago)
Author:
scharf
Message:

removed comments in 'Former revisions' section that are older than 01.01.2019

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/urban_surface_mod.f90

    r4168 r4180  
    140140! Implementation of the PALM module interface
    141141!
    142 ! 3636 2018-12-19 13:48:34Z raasch
    143 ! nopointer option removed
    144 !
    145 ! 3614 2018-12-10 07:05:46Z raasch
    146 ! unused variables removed
    147 !
    148 ! 3607 2018-12-07 11:56:58Z suehring
    149 ! Output of radiation-related quantities migrated to radiation_model_mod.
    150 !
    151 ! 3597 2018-12-04 08:40:18Z maronga
    152 ! Fixed calculation method of near surface air potential temperature at 10 cm
    153 ! and moved to surface_layer_fluxes. Removed unnecessary _eb strings.
    154 !
    155 ! 3524 2018-11-14 13:36:44Z raasch
    156 ! bugfix concerning allocation of t_surf_wall_v
    157 !
    158 ! 3502 2018-11-07 14:45:23Z suehring
    159 ! Disable initialization of building roofs with ground-floor-level properties,
    160 ! since this causes strong oscillations of surface temperature during the
    161 ! spinup.
    162 !
    163 ! 3469 2018-10-30 20:05:07Z kanani
    164 ! Add missing PUBLIC variables for new indoor model
    165 !
    166 ! 3449 2018-10-29 19:36:56Z suehring
    167 ! Bugfix: Fix average arrays allocations in usm_3d_data_averaging (J.Resler)
    168 ! Bugfix: Fix reading wall temperatures (J.Resler)
    169 ! Bugfix: Fix treating of outputs for wall temperature and sky view factors (J.Resler)
    170 !
    171 !
    172 ! 3435 2018-10-26 18:25:44Z gronemeier
    173 ! Bugfix: allocate gamma_w_green_sat until nzt_wall+1
    174 !
    175 ! 3418 2018-10-24 16:07:39Z kanani
    176 ! (rvtils, srissman)
    177 ! -Updated building databse, two green roof types (ind_green_type_roof)
    178 ! -Latent heat flux for green walls and roofs, new output of latent heatflux
    179 !  and soil water content of green roof substrate
    180 ! -t_surf changed to t_surf_wall
    181 ! -Added namelist parameter usm_wall_mod for lower wall tendency
    182 !  of first two wall layers during spinup
    183 ! -Window calculations deactivated during spinup
    184 !
    185 ! 3382 2018-10-19 13:10:32Z knoop
    186 ! Bugix: made array declaration Fortran Standard conform
    187 !
    188 ! 3378 2018-10-19 12:34:59Z kanani
    189 ! merge from radiation branch (r3362) into trunk
    190 ! (moh.hefny):
    191 ! - check the requested output variables if they are correct
    192 ! - added unscheduled_radiation_calls switch to control force_radiation_call
    193 ! - minor formate changes
    194 !
    195 ! 3371 2018-10-18 13:40:12Z knoop
    196 ! Set flag indicating that albedo at urban surfaces is already initialized
    197 !
    198 ! 3347 2018-10-15 14:21:08Z suehring
    199 ! Enable USM initialization with default building parameters in case no static
    200 ! input file exist.
    201 !
    202 ! 3343 2018-10-15 10:38:52Z suehring
    203 ! Add output variables usm_rad_pc_inlw, usm_rad_pc_insw*
    204 !
    205 ! 3274 2018-09-24 15:42:55Z knoop
    206 ! Modularization of all bulk cloud physics code components
    207 !
    208 ! 3248 2018-09-14 09:42:06Z sward
    209 ! Minor formating changes
    210 !
    211 ! 3246 2018-09-13 15:14:50Z sward
    212 ! Added error handling for input namelist via parin_fail_message
    213 !
    214 ! 3241 2018-09-12 15:02:00Z raasch
    215 ! unused variables removed
    216 !
    217 ! 3223 2018-08-30 13:48:17Z suehring
    218 ! Bugfix for commit 3222
    219 !
    220 ! 3222 2018-08-30 13:35:35Z suehring
    221 ! Introduction of surface array for type and its name
    222 !
    223 ! 3203 2018-08-23 10:48:36Z suehring
    224 ! Revise bulk parameter for emissivity at ground-floor level
    225 !
    226 ! 3196 2018-08-13 12:26:14Z maronga
    227 ! Added maximum aerodynamic resistance of 300 for horiztonal surfaces.
    228 !
    229 ! 3176 2018-07-26 17:12:48Z suehring
    230 ! Bugfix, update virtual potential surface temparture, else heat fluxes on
    231 ! roofs might become unphysical
    232 !
    233 ! 3152 2018-07-19 13:26:52Z suehring
    234 ! Initialize q_surface, which might be used in surface_layer_fluxes
    235 !
    236 ! 3151 2018-07-19 08:45:38Z raasch
    237 ! remaining preprocessor define strings __check removed
    238 !
    239 ! 3136 2018-07-16 14:48:21Z suehring
    240 ! Limit also roughness length for heat and moisture where necessary
    241 !
    242 ! 3123 2018-07-12 16:21:53Z suehring
    243 ! Correct working precision for INTEGER number
    244 !
    245 ! 3115 2018-07-10 12:49:26Z suehring
    246 ! Additional building type to represent bridges
    247 !
    248 ! 3091 2018-06-28 16:20:35Z suehring
    249 ! - Limit aerodynamic resistance at vertical walls.
    250 ! - Add check for local roughness length not exceeding surface-layer height and
    251 !   limit roughness length where necessary.
    252 !
    253 ! 3065 2018-06-12 07:03:02Z Giersch
    254 ! Unused array dxdir was removed, dz was replaced by dzu to consider vertical
    255 ! grid stretching
    256 !
    257 ! 3049 2018-05-29 13:52:36Z Giersch
    258 ! Error messages revised
    259 !
    260 ! 3045 2018-05-28 07:55:41Z Giersch
    261 ! Error message added
    262 !
    263 ! 3029 2018-05-23 12:19:17Z raasch
    264 ! bugfix: close unit 151 instead of 90
    265 !
    266 ! 3014 2018-05-09 08:42:38Z maronga
    267 ! Added pc_transpiration_rate
    268 !
    269 ! 2977 2018-04-17 10:27:57Z kanani
    270 ! Implement changes from branch radiation (r2948-2971) with minor modifications.
    271 ! (moh.hefny):
    272 ! Extended exn for all model domain height to avoid the need to get nzut.
    273 !
    274 ! 2963 2018-04-12 14:47:44Z suehring
    275 ! Introduce index for vegetation/wall, pavement/green-wall and water/window
    276 ! surfaces, for clearer access of surface fraction, albedo, emissivity, etc. .
    277 !
    278 ! 2943 2018-04-03 16:17:10Z suehring
    279 ! Calculate exner function at all height levels and remove some un-used
    280 ! variables.
    281 !
    282 ! 2932 2018-03-26 09:39:22Z maronga
    283 ! renamed urban_surface_par to urban_surface_parameters
    284 !
    285 ! 2921 2018-03-22 15:05:23Z Giersch
    286 ! The activation of spinup has been moved to parin
    287 !
    288 ! 2920 2018-03-22 11:22:01Z kanani
    289 ! Remove unused pcbl, npcbl from ONLY list
    290 ! moh.hefny:
    291 ! Fixed bugs introduced by new structures and by moving radiation interaction
    292 ! into radiation_model_mod.f90.
    293 ! Bugfix: usm data output 3D didn't respect directions
    294 !
    295 ! 2906 2018-03-19 08:56:40Z Giersch
    296 ! Local variable ids has to be initialized with a value of -1 in
    297 ! usm_3d_data_averaging
    298 !
    299 ! 2894 2018-03-15 09:17:58Z Giersch
    300 ! Calculations of the index range of the subdomain on file which overlaps with
    301 ! the current subdomain are already done in read_restart_data_mod,
    302 ! usm_read/write_restart_data have been renamed to usm_r/wrd_local, variable
    303 ! named found has been introduced for checking if restart data was found,
    304 ! reading of restart strings has been moved completely to
    305 ! read_restart_data_mod, usm_rrd_local is already inside the overlap loop
    306 ! programmed in read_restart_data_mod, SAVE attribute added where necessary,
    307 ! deallocation and allocation of some arrays have been changed to take care of
    308 ! different restart files that can be opened (index i), the marker *** end usm
    309 ! *** is not necessary anymore, strings and their respective lengths are
    310 ! written out and read now in case of restart runs to get rid of prescribed
    311 ! character lengths
    312 !
    313 ! 2805 2018-02-14 17:00:09Z suehring
    314 ! Initialization of resistances.
    315 !
    316 ! 2797 2018-02-08 13:24:35Z suehring
    317 ! Comment concerning output of ground-heat flux added.
    318 !
    319 ! 2766 2018-01-22 17:17:47Z kanani
    320 ! Removed redundant commas, added some blanks
    321 !
    322 ! 2765 2018-01-22 11:34:58Z maronga
    323 ! Major bugfix in calculation of f_shf. Adjustment of roughness lengths in
    324 ! building_pars
    325 !
    326 ! 2750 2018-01-15 16:26:51Z knoop
    327 ! Move flag plant canopy to modules
    328 !
    329 ! 2737 2018-01-11 14:58:11Z kanani
    330 ! Removed unused variables t_surf_whole...
    331 !
    332 ! 2735 2018-01-11 12:01:27Z suehring
    333 ! resistances are saved in surface attributes
    334 !
    335 ! 2723 2018-01-05 09:27:03Z maronga
    336 ! Bugfix for spinups (end_time was increased twice in case of LSM + USM runs)
    337 !
    338 ! 2720 2018-01-02 16:27:15Z kanani
    339 ! Correction of comment
    340 !
    341 ! 2718 2018-01-02 08:49:38Z maronga
    342 ! Corrected "Former revisions" section
    343 !
    344 ! 2705 2017-12-18 11:26:23Z maronga
    345 ! Changes from last commit documented
    346 !
    347 ! 2703 2017-12-15 20:12:38Z maronga
    348 ! Workaround for calculation of r_a
    349 !
    350 ! 2696 2017-12-14 17:12:51Z kanani
    351 ! - Change in file header (GPL part)
    352 ! - Bugfix in calculation of pt_surface and related fluxes. (BM)
    353 ! - Do not write surface temperatures onto pt array as this might cause
    354 !   problems with nesting. (MS)
    355 ! - Revised calculation of pt1 (now done in surface_layer_fluxes).
    356 !   Bugfix, f_shf_window and f_shf_green were not set at vertical surface
    357 !   elements. (MS)
    358 ! - merged with branch ebsolver
    359 !   green building surfaces do not evaporate yet
    360 !   properties of green wall layers and window layers are taken from wall layers
    361 !   this input data is missing. (RvT)
    362 ! - Merged with branch radiation (developed by Mohamed Salim)
    363 ! - Revised initialization. (MS)
    364 ! - Rename emiss_surf into emissivity, roughness_wall into z0, albedo_surf into
    365 !   albedo. (MS)
    366 ! - Move first call of usm_radiatin from usm_init to init_3d_model
    367 ! - fixed problem with near surface temperature
    368 ! - added near surface temperature pt_10cm_h(m), pt_10cm_v(l)%t(m)
    369 ! - does not work with temp profile including stability, ol
    370 !   pt_10cm = pt1 now
    371 ! - merged with 2357 bugfix, error message for nopointer version
    372 ! - added indoor model coupling with wall heat flux
    373 ! - added green substrate/ dry vegetation layer for buildings
    374 ! - merged with 2232 new surface-type structure
    375 ! - added transmissivity of window tiles
    376 ! - added MOSAIK tile approach for 3 different surfaces (RvT)
    377 !
    378 ! 2583 2017-10-26 13:58:38Z knoop
    379 ! Bugfix: reverted MPI_Win_allocate_cptr introduction in last commit
    380 !
    381 ! 2582 2017-10-26 13:19:46Z hellstea
    382 ! Workaround for gnufortran compiler added in usm_calc_svf. CALL MPI_Win_allocate is
    383 ! replaced by CALL MPI_Win_allocate_cptr if defined ( __gnufortran ).
    384 !
    385 ! 2544 2017-10-13 18:09:32Z maronga
    386 ! Date and time quantities are now read from date_and_time_mod. Solar constant is
    387 ! read from radiation_model_mod
    388 !
    389 ! 2516 2017-10-04 11:03:04Z suehring
    390 ! Remove tabs
    391 !
    392 ! 2514 2017-10-04 09:52:37Z suehring
    393 ! upper bounds of 3d output changed from nx+1,ny+1 to nx,ny
    394 ! no output of ghost layer data
    395 !
    396 ! 2350 2017-08-15 11:48:26Z kanani
    397 ! Bugfix and error message for nopointer version.
    398 ! Additional "! defined(__nopointer)" as workaround to enable compilation of
    399 ! nopointer version.
    400 !
    401 ! 2318 2017-07-20 17:27:44Z suehring
    402 ! Get topography top index via Function call
    403 !
    404 ! 2317 2017-07-20 17:27:19Z suehring
    405 ! Bugfix: adjust output of shf. Added support for spinups
    406 !
    407 ! 2287 2017-06-15 16:46:30Z suehring
    408 ! Bugfix in determination topography-top index
    409 !
    410 ! 2269 2017-06-09 11:57:32Z suehring
    411 ! Enable restart runs with different number of PEs
    412 ! Bugfixes nopointer branch
    413 !
    414 ! 2258 2017-06-08 07:55:13Z suehring
    415 ! Bugfix, add pre-preprocessor directives to enable non-parrallel mode
    416 !
    417 ! 2233 2017-05-30 18:08:54Z suehring
    418 !
    419 ! 2232 2017-05-30 17:47:52Z suehring
    420 ! Adjustments according to new surface-type structure. Remove usm_wall_heat_flux;
    421 ! insteat, heat fluxes are directly applied in diffusion_s.
    422 !
    423 ! 2213 2017-04-24 15:10:35Z kanani
    424 ! Removal of output quantities usm_lad and usm_canopy_hr
    425 !
    426 ! 2209 2017-04-19 09:34:46Z kanani
    427 ! cpp switch __mpi3 removed,
    428 ! minor formatting,
    429 ! small bugfix for division by zero (Krc)
    430 !
    431 ! 2113 2017-01-12 13:40:46Z kanani
    432 ! cpp switch __mpi3 added for MPI-3 standard code (Ketelsen)
    433 !
    434 ! 2071 2016-11-17 11:22:14Z maronga
    435 ! Small bugfix (Resler)
    436 !
    437 ! 2031 2016-10-21 15:11:58Z knoop
    438 ! renamed variable rho to rho_ocean
    439 !
    440 ! 2024 2016-10-12 16:42:37Z kanani
    441 ! Bugfixes in deallocation of array plantt and reading of csf/csfsurf,
    442 ! optimization of MPI-RMA operations,
    443 ! declaration of pcbl as integer,
    444 ! renamed usm_radnet -> usm_rad_net, usm_canopy_khf -> usm_canopy_hr,
    445 ! splitted arrays svf -> svf & csf, svfsurf -> svfsurf & csfsurf,
    446 ! use of new control parameter varnamelength,
    447 ! added output variables usm_rad_ressw, usm_rad_reslw,
    448 ! minor formatting changes,
    449 ! minor optimizations.
    450 !
    451 ! 2011 2016-09-19 17:29:57Z kanani
    452 ! Major reformatting according to PALM coding standard (comments, blanks,
    453 ! alphabetical ordering, etc.),
    454 ! removed debug_prints,
    455 ! removed auxiliary SUBROUTINE get_usm_info, instead, USM flag urban_surface is
    456 ! defined in MODULE control_parameters (modules.f90) to avoid circular
    457 ! dependencies,
    458 ! renamed canopy_heat_flux to pc_heating_rate, as meaning of quantity changed.
    459 !
    460 ! 2007 2016-08-24 15:47:17Z kanani
    461 ! Initial revision
    462 !
    463142!
    464143! Description:
Note: See TracChangeset for help on using the changeset viewer.