Ignore:
Timestamp:
Mar 27, 2014 1:18:20 PM (8 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/init_advec.f90

    r1323 r1346  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix: REAL constants provided with KIND-attribute especially in call of
     23! intrinsic function like MAX, MIN, SIGN
    2324!
    2425! Former revisions:
     
    111112          ENDDO
    112113
    113           IF ( sterm < 0.5 )  dn = MAX(  2.95E-2, dn )
    114           IF ( sterm > 0.5 )  dn = MIN( -2.95E-2, dn )
     114          IF ( sterm < 0.5 )  dn = MAX(  2.95E-2_wp, dn )
     115          IF ( sterm > 0.5 )  dn = MIN( -2.95E-2_wp, dn )
    115116          ex1 = EXP( -dn )
    116117          ex2 = EXP( dn ) - ex1
Note: See TracChangeset for help on using the changeset viewer.