Ignore:
Timestamp:
Mar 27, 2014 1:18:20 PM (7 years ago)
Author:
heinze
Message:

Bugfix: REAL constants provided with KIND-attribute especially in call of intrinsic function like MAX, MIN, SIGN

File:
1 edited

Legend:

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

    r1321 r1346  
    214214              e(k,j,-nbgp:-1)  = mean_inflow_profiles(k,5) + &
    215215                           inflow_dist(k,j,5,1:nbgp) * inflow_damping_factor(k)
    216               e(k,j,-nbgp:-1)  = MAX( e(k,j,-nbgp:-1), 0.0 )
     216              e(k,j,-nbgp:-1)  = MAX( e(k,j,-nbgp:-1), 0.0_wp )
    217217
    218218          ENDDO
Note: See TracChangeset for help on using the changeset viewer.