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/cpulog.f90

    r1321 r1322  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL functions provided with KIND-attribute
    2323!
    2424! Former revisions:
     
    165165#if defined( __lc ) || defined( __decalpha ) || defined( __nec )
    166166       CALL SYSTEM_CLOCK( count, count_rate )
    167        mtime = REAL( count ) / REAL( count_rate )
     167       mtime = REAL( count, KIND=wp ) / REAL( count_rate, KIND=wp )
    168168#elif defined( __ibm )
    169        mtime = IRTC( ) * 1E-9
     169       mtime = IRTC( ) * 1E-9_wp
    170170#else
    171171       message_string = 'no time measurement defined on this host'
     
    322322!--       Get total time in order to calculate CPU-time per gridpoint and timestep
    323323          IF ( nr_timesteps_this_run /= 0 )  THEN
    324              average_cputime = log_point(1)%sum / REAL( (nx+1) * (ny+1) * nz ) / &
    325                                REAL( nr_timesteps_this_run ) * 1E6  ! in micro-sec
     324             average_cputime = log_point(1)%sum / REAL( (nx+1) * (ny+1) * nz, KIND=wp ) / &
     325                               REAL( nr_timesteps_this_run, KIND=wp ) * 1E6_wp  ! in micro-sec
    326326          ELSE
    327327             average_cputime = -1.0
Note: See TracChangeset for help on using the changeset viewer.