Ignore:
Timestamp:
Mar 20, 2014 4:38:49 PM (8 years ago)
Author:
raasch
Message:

REAL functions and a lot of REAL constants provided with KIND-attribute,
some small bugfixes

File:
1 edited

Legend:

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

    r1321 r1322  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL constants defined as wp-kind
    2323!
    2424! Former revisions:
     
    8585       ALLOCATE( aex(intervals), bex(intervals), dex(intervals), eex(intervals) )
    8686
    87        delt  = 1.0 / REAL( intervals )
     87       delt  = 1.0_wp / REAL( intervals, KIND=wp )
    8888       sterm = delt * 0.5
    8989
Note: See TracChangeset for help on using the changeset viewer.