Changeset 4343 for palm


Ignore:
Timestamp:
Dec 17, 2019 12:26:12 PM (5 years ago)
Author:
oliver.maas
Message:

replaced <= by < in line 1464 to ensure that ialpha will not be greater than dlen

File:
1 edited

Legend:

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

    r4329 r4343  
    2626! -----------------
    2727! $Id$
     28! replaced <= by < in line 1464 to ensure that ialpha will not be
     29! greater than dlen
     30!
     31! 4329 2019-12-10 15:46:36Z motisi
    2832! Renamed wall_flags_0 to wall_flags_static_0
    2933!
     
    14621466             ialpha = 1
    14631467             
    1464              DO WHILE ( ( alpha_attack_i > alpha_attack_tab(ialpha) ) .AND. (ialpha <= dlen ) )
     1468             DO WHILE ( ( alpha_attack_i > alpha_attack_tab(ialpha) ) .AND. (ialpha < dlen ) )
    14651469                ialpha = ialpha + 1
    14661470             ENDDO
Note: See TracChangeset for help on using the changeset viewer.