Changeset 3174 for palm


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

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

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r3049 r3174  
    2525! -----------------
    2626! $Id$
     27! userpar in READ statement has been changed to user_parameters
     28!
     29! 3049 2018-05-29 13:52:36Z Giersch
    2730! Error messages revised
    2831!
     
    137140!
    138141!-- Read user-defined namelist
    139     READ ( 11, userpar )
     142    READ ( 11, user_parameters )
    140143
    141144    user_defined_namelist_found = .TRUE.
  • 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.