Ignore:
Timestamp:
Jul 26, 2018 1:46:50 PM (3 years ago)
Author:
Giersch
Message:

Bugfix in reading NAMELIST user_parameters, bugfix in wind turbine model related to the check of vertical stretching

File:
1 edited

Legend:

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

    r3139 r3174  
    2626! -----------------
    2727! $Id$
     28! Check for vertical stretching has been revised.
     29!
     30! 3139 2018-07-17 11:30:10Z Giersch
    2831! Bugfix in calculation of alpha_attack
    2932!
     
    10161019!--    the area where the wtm is active. ABS (...) is required because the
    10171020!--    default value of dz_stretch_level_start is -9999999.9_wp (negative).
    1018        IF ( ABS( dz_stretch_level_start(1) ) <= MAXVAL(rcz) + MAXVAL(rr) +     &
    1019        eps_min)  THEN
     1021       IF ( ABS( dz_stretch_level_start(1) ) <= MAXVAL(rcz(1:nturbines)) +     &
     1022                                                MAXVAL(rr(1:nturbines)) +      &
     1023                                                eps_min)  THEN
    10201024          WRITE( message_string, * ) 'The lowest level where vertical ',       &
    10211025                                     'stretching is applied &have to be ',     &
    1022                                      'greater than ', MAXVAL(rcz) +            &
    1023                                       MAXVAL(rr) + eps_min
     1026                                     'greater than ',MAXVAL(rcz(1:nturbines)) +&
     1027                                      MAXVAL(rr(1:nturbines)) + eps_min
    10241028          CALL message( 'wtm_init', 'PA0484', 1, 2, 0, 6, 0 )
    10251029       ENDIF
Note: See TracChangeset for help on using the changeset viewer.