Changeset 3139 for palm


Ignore:
Timestamp:
Jul 17, 2018 11:30:10 AM (6 years ago)
Author:
Giersch
Message:

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

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r3115 r3139  
    2525! -----------------
    2626! $Id$
     27! Bugfix in case of restarts and grid stretching
     28!
     29! 3115 2018-07-10 12:49:26Z suehring
    2730! Referencing of buildings onto top of terrain - special treatment for bridges.
    2831!
     
    432435!-- Determine number of dz values and stretching levels specified by the
    433436!-- user to allow right controlling of the stretching mechanism and to
    434 !-- perform error checks
    435     number_dz = COUNT( dz /= -1.0_wp )
     437!-- perform error checks. The additional requirement that dz /= dz_max
     438!-- for counting number of user-specified dz values is necessary. Otherwise
     439!-- restarts would abort if the old stretching mechanism with dz_stretch_level
     440!-- is used (Attention: The user is not allowed to specify a dz value equal
     441!-- to the default of dz_max = 999.0).
     442    number_dz = COUNT( dz /= -1.0_wp .AND. dz /= dz_max)
    436443    number_stretch_level_start = COUNT( dz_stretch_level_start /=              &
    437444                                       -9999999.9_wp )
  • palm/trunk/SOURCE/wind_turbine_model_mod.f90

    r3069 r3139  
    2121! Current revisions:
    2222! -----------------
    23 !
     23! 
    2424!
    2525! Former revisions:
    2626! -----------------
    2727! $Id$
     28! Bugfix in calculation of alpha_attack
     29!
     30! 3069 2018-06-15 07:56:09Z witha
    2831! Initialization of some arrays added
    2932!
     
    20672070!
    20682071!--                Correct with collective pitch angle:
    2069                    alpha_attack = alpha_attack - pitch_add(inot)
     2072                   alpha_attack(rseg) = alpha_attack(rseg) - pitch_add(inot)
    20702073
    20712074!
Note: See TracChangeset for help on using the changeset viewer.