Changeset 3139 for palm/trunk/SOURCE/init_grid.f90

Timestamp:

Jul 17, 2018 11:30:10 AM (7 years ago)

Author:

Giersch

Message:

Bugfix in calculation of alpha_attack and Bugfix for restarts in combination with grid stretching

File:

• palm/trunk/SOURCE/init_grid.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in case of restarts and grid stretching
+! 
+! 3115 2018-07-10 12:49:26Z suehring
 ! Referencing of buildings onto top of terrain - special treatment for bridges. 
 ! 
@@ -432 +435 @@
 !-- Determine number of dz values and stretching levels specified by the
 !-- user to allow right controlling of the stretching mechanism and to
-!-- perform error checks
-    number_dz = COUNT( dz /= -1.0_wp )
+!-- perform error checks. The additional requirement that dz /= dz_max
+!-- for counting number of user-specified dz values is necessary. Otherwise 
+!-- restarts would abort if the old stretching mechanism with dz_stretch_level
+!-- is used (Attention: The user is not allowed to specify a dz value equal
+!-- to the default of dz_max = 999.0). 
+    number_dz = COUNT( dz /= -1.0_wp .AND. dz /= dz_max)
     number_stretch_level_start = COUNT( dz_stretch_level_start /=              &
                                        -9999999.9_wp )