Ignore:
Timestamp:
Apr 5, 2016 7:44:00 PM (5 years ago)
Author:
raasch
Message:

preprocessor directives using machine dependent flags (lc, ibm, etc.) mostly removed from the code

File:
1 edited

Legend:

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

    r1683 r1808  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! cpu measurements are done with standard FORTRAN routine on every machine
    2222!
    2323! Former revisions:
     
    6363    IMPLICIT NONE
    6464
    65 #if defined( __ibm )
    66     INTEGER(idp)     ::  IRTC       !<
    67 #elif defined( __lc )
    6865    INTEGER(idp)     ::  count      !<
    6966    INTEGER(idp)     ::  count_rate !<
    70 #endif
    71 
    7267
    7368!
    7469!-- Get initial wall clock time
    75 #if defined( __ibm )
    76 
    77     initial_wallclock_time = IRTC( ) * 1E-9_wp
    78 
    79 #elif defined( __lc )
    80 
    8170    CALL SYSTEM_CLOCK( count, count_rate )
    8271    initial_wallclock_time = REAL( count, KIND=wp ) / REAL( count_rate, KIND=wp )
    8372
    84 #else
    85 !
    86 !-- So far, nothing is done on these machines
    87 #endif
    88 
    89 
    9073 END SUBROUTINE local_tremain_ini
Note: See TracChangeset for help on using the changeset viewer.