Changeset 3300 for palm/trunk/SOURCE


Ignore:
Timestamp:
Oct 2, 2018 2:16:54 PM (6 years ago)
Author:
gronemeier
Message:

bugfix: rename of variable

File:
1 edited

Legend:

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

    r3299 r3300  
    17581758          maximum = MAXVAL( array(:,a) )
    17591759          DO  b = 0, rad_k+1
    1760              IF ( array(b,a) == maxi )  THEN
     1760             IF ( array(b,a) == maximum )  THEN
    17611761                loc_k(a) = b
    17621762                EXIT
Note: See TracChangeset for help on using the changeset viewer.