Changeset 4343 for palm

Timestamp:

Dec 17, 2019 12:26:12 PM (4 years ago)

Author:

oliver.maas

Message:

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

File:

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

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! replaced <= by < in line 1464 to ensure that ialpha will not be 
+! greater than dlen
+! 
+! 4329 2019-12-10 15:46:36Z motisi
 ! Renamed wall_flags_0 to wall_flags_static_0
 ! 
@@ -1462 +1466 @@
              ialpha = 1
              
-             DO WHILE ( ( alpha_attack_i > alpha_attack_tab(ialpha) ) .AND. (ialpha <= dlen ) )
+             DO WHILE ( ( alpha_attack_i > alpha_attack_tab(ialpha) ) .AND. (ialpha < dlen ) )
                 ialpha = ialpha + 1
              ENDDO