Changeset 3300 for palm/trunk/SOURCE/turbulence_closure_mod.f90

Timestamp:

Oct 2, 2018 2:16:54 PM (6 years ago)

Author:

gronemeier

Message:

bugfix: rename of variable

File:

• palm/trunk/SOURCE/turbulence_closure_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/turbulence_closure_mod.f90

@@ -1758 +1758 @@
           maximum = MAXVAL( array(:,a) )
           DO  b = 0, rad_k+1
-             IF ( array(b,a) == maxi )  THEN
+             IF ( array(b,a) == maximum )  THEN
                 loc_k(a) = b
                 EXIT