Ignore:
Timestamp:
Mar 20, 2014 4:38:49 PM (7 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_pegrid.f90

    r1321 r1322  
    1919!
    2020! Current revisions:
    21 ! -----------------
     21! ------------------
     22! REAL functions provided with KIND-attribute
    2223!
    2324! Former revisions:
     
    174175!
    175176!--    Automatic determination of the topology
    176        numproc_sqr = SQRT( REAL( numprocs ) )
     177       numproc_sqr = SQRT( REAL( numprocs, KIND=wp ) )
    177178       pdims(1)    = MAX( numproc_sqr , 1 )
    178179       DO  WHILE ( MOD( numprocs , pdims(1) ) /= 0 )
Note: See TracChangeset for help on using the changeset viewer.